%MACRO R02X78M2(ICD9=); %********************************************************************** *********************************************************************** MACRO NAME: R02X78M2 PURPOSE: to assign multiple RXs for some ICD9s codes **********************************************************************; SELECT(&ICD9); WHEN ("3572","36201","36202","36203","36204","36205","36206", "36207" ) RXCC14 = 1 ; WHEN ("29013","29021","29043" ) RXCC62 = 1 ; WHEN ("40401","40403","40411","40413","40491","40493" ) RXCC87 = 1 ; WHEN ("40300","40301","40310","40311","40390","40391","40400", "40402","40410","40412","40490","40492" ) RXCC88 = 1 ; OTHERWISE; END; %MEND R02X78M2;