Hello, I am searching for a long list of procedure codes in the APCD dataset- since some are in long ranges like this- I was trying to use this code but i am getting an error message for the "-" on the ranges- is there a way to do this without having to write these out?
%let Outpat = ( '95004'-'95199', '96900'-'96922', '96999', '99201'-'99215', '99241'-'99245', '99341'-'99350', '99354'-'99355', '99357'-'99360', '99366'-'99368', '99374'- '99381'-'99397' , '99432', '99450', '99455', '99460', '99499','99401'-'99405', '99408'-'99429', '99606', '99607', 'T1015', '99050'-'99058', '0500F'-'0503F', '90918'-'90925', '97802'-'97804', '99024', '99078', '99170'-'99175', '99195'- '99500'-'99599', 'T1502', 'T1023'-'T1026', 'T1028'-'T1030', '0001F', 'G0101'- 'G0127', 'G0166'-'G0168', 'G0179', 'G0180'-'G0182', 'G0246'-'G0250', 'G0317'-'G0327', 'G0344', 'G0372', 'G0402', 'G0438', 'G0439', 'G0466'- 'M0064', 'M0076', 'M1204', 'Q0081'-'Q0085', 'S0220', 'S0265', 'S0302', 'S9075', 'S9083'-'S9090', 'S9381'-'S9401', 'S9436'-'S9474', 'S9490'- '90792', '90801'-'90802', '90804'-'90824', '90826'-'90829', '90832'-'90834', '90836'-'90847', '90849', '90853', '90855', '90857', '90862'-'90899', 'H0001'- 'H0012'-'H0014', 'H0016'-'H0019', 'H0021'-'H0030', 'H0033'-'H0034', 'H0041'-'H0042', 'H0046'-'H2010', 'H2013'-'H2014', 'H2016'-'H2019', 'G0177', '96150'-'96155', 'T1007'-'T1010', 'H2104', 'H5300', 'HIVE2', 'S9475'-'S9479', 'S9481'-'S9483', 'G0396', 'G0397', 'G0410'-'G0411', 'G0473', 'G8466', 'G8477', 'G8128', 'G8467', 'Q4094', 'T1006', 'T1012');
data test;
set apcd.medical (keep = MED_REVENUE_CODE MED_FROM_DATE_YEAR MED_MEDICAID MED_PROC_CODE MED_AGE MED_ICD_PROC1-MED_ICD_PROC7) ;
array vars2 {*} MED_PROC_CODE MED_ICD_PROC1-MED_ICD_PROC7; do j = 1 to dim(vars2); if vars2[j] in (&Outpat.) then Outp= = Outp=+ 1; end; drop j;
run;
... View more