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

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

**********************************************************************;
  SELECT(&ICD9);
    WHEN('40403','40413','40493')  RXCC91  = 1;
    OTHERWISE;
  END;
%MEND R01A84M;