%MACRO R04X76M1(ICD9=);
%**********************************************************************
***********************************************************************

  MACRO NAME:      R04X76M1
  PURPOSE:         to assign multiple RXs for some ICD9s codes 

**********************************************************************;
  SELECT(&ICD9);
        WHEN("36201","36202","36203","36204","36205","36206","36207")  
        RXCC30  = 1 ;
        WHEN("29013","29021","29043")  
        RXCC134  = 1 ;
        WHEN("40403","40413","40493")  
        RXCC186  = 1 ;
        WHEN("40301","40311","40391","40402","40412","40492")  
        RXCC187  = 1 ;
        WHEN("5172")  
        RXCC227  = 1 ;
    OTHERWISE;
  END;
%MEND R04X76M1;