I've made a merged dataset that I'm trying to create several variables in. My Arrays and Do loop code seems to work but with the rest of the variables I'm getting ERROR 161-185: No matching DO/SELECT statement. It does seem to be a semicolon issue and when I run various combinations of the array and do loops with the SAMPLE variable creation that part seems to work so not sure where i'm going wrong. thanks for the help!
DATA KID2019Merge;
SET IN.KID2019Merge;
T1DM=0;
ARRAY DIAG(1) $ I10_DX1;
DO i=1;
IF SUBSTR(DIAG(i),1,3)='E10' THEN T1DM=1;
END;
MHD=0;
ARRAY MENT(39) $ I10_DX2 - I10_DX40;
DO j=1 TO 39;
IF SUBSTR(MENT(j),1,2)='F0' OR SUBSTR(MENT(j),1,2)='F1' OR SUBSTR(MENT(j),1,2)='F2' OR SUBSTR(MENT(j),1,2)='F3'
OR SUBSTR(MENT(j),1,2)='F4' OR SUBSTR(MENT(j),1,2)='F5' OR SUBSTR(MENT(j),1,2)='F6' OR SUBSTR(MENT(j),1,2)='F7'
OR SUBSTR(MENT(j),1,2)='F8' OR SUBSTR(MENT(j),1,2)='F9' THEN MHD=1;
END;
ADHD=0;
ARRAY MENTADHD(39) $ I10_DX2 - I10_DX40;
DO k=1 TO 39;
IF SUBSTR(MENTADHD(k),1,4)= 'F900' OR SUBSTR(MENTADHD(k),1,4)= 'F901' OR SUBSTR(MENTADHD(k),1,4)= 'F902' OR SUBSTR(MENTADHD(k),1,4)= 'F908'
OR SUBSTR(MENTADHD(k),1,4)= 'F909' THEN ADHD=1;
END;
ANXIETY=0;
ARRAY MENTANX(39) $ I10_DX2 - I10_DX40;
DO l=1 TO 39;
IF SUBSTR(MENTANX(l),1,5)='F4000' OR SUBSTR(MENTANX(l),1,5)='F4001' OR SUBSTR(MENTANX(l),1,5)='F4002' OR SUBSTR(MENTANX(l),1,5)='F4010'
OR SUBSTR(MENTANX(l),1,5)='F4011' OR SUBSTR(MENTANX(l),1,6)='F40210' OR SUBSTR(MENTANX(l),1,6)='F40218' OR SUBSTR(MENTANX(l),1,6)='F40220'
OR SUBSTR(MENTANX(l),1,6)='F40228' OR SUBSTR(MENTANX(l),1,6)='F40230' OR SUBSTR(MENTANX(l),1,6)='F40231' OR SUBSTR(MENTANX(l),1,6)='F40232'
OR SUBSTR(MENTANX(l),1,6)='F40233' OR SUBSTR(MENTANX(l),1,6)='F40240' OR SUBSTR(MENTANX(l),1,6)='F40241' OR SUBSTR(MENTANX(l),1,6)='F40243'
OR SUBSTR(MENTANX(l),1,6)='F40248' OR SUBSTR(MENTANX(l),1,6)='F40298' OR SUBSTR(MENTANX(l),1,4)='F408' OR SUBSTR(MENTANX(l),1,4)='F409'
OR SUBSTR(MENTANX(l),1,4)='F410' OR SUBSTR(MENTANX(l),1,4)='F411' OR SUBSTR(MENTANX(l),1,4)='F413' OR SUBSTR(MENTANX(l),1,4)='F418'
OR SUBSTR(MENTANX(l),1,4)='F419' OR SUBSTR(MENTANX(l),1,3)='F42' OR SUBSTR(MENTANX(l),1,4)='F422' OR SUBSTR(MENTANX(l),1,4)='F423'
OR SUBSTR(MENTANX(l),1,4)='F424' OR SUBSTR(MENTANX(l),1,4)='F428' OR SUBSTR(MENTANX(l),1,4)='F429' OR SUBSTR(MENTANX(l),1,4)='F430'
OR SUBSTR(MENTANX(l),1,5)='F4310' OR SUBSTR(MENTANX(l),1,5)='F4311' OR SUBSTR(MENTANX(l),1,5)='F4312' OR SUBSTR(MENTANX(l),1,5)='F4320'
OR SUBSTR(MENTANX(l),1,5)='F4321' OR SUBSTR(MENTANX(l),1,5)='F4322' OR SUBSTR(MENTANX(l),1,5)='F4323' OR SUBSTR(MENTANX(l),1,5)='F4324'
OR SUBSTR(MENTANX(l),1,5)='F4325' OR SUBSTR(MENTANX(l),1,5)='F4329' OR SUBSTR(MENTANX(l),1,4)='F438' OR SUBSTR(MENTANX(l),1,4)='F439'
THEN ANXIETY=1;
END;
DEPR=0;
ARRAY MENTDEP(39) $ I10_DX2 - I10_DX40;
DO m=1 TO 39;
IF SUBSTR(MENTDEP(m),1,4)='F320' OR SUBSTR(MENTDEP(m),1,4)='F321' OR SUBSTR(MENTDEP(m),1,4)='F322' OR SUBSTR(MENTDEP(m),1,4)='F323'
OR SUBSTR(MENTDEP(m),1,4)='F324' OR SUBSTR(MENTDEP(m),1,4)='F325' OR SUBSTR(MENTDEP(m),1,4)='F328' OR SUBSTR(MENTDEP(m),1,4)='F328'
OR SUBSTR(MENTDEP(m),1,4)='F329' OR SUBSTR(MENTDEP(m),1,4)='F330' OR SUBSTR(MENTDEP(m),1,4)='F331' OR SUBSTR(MENTDEP(m),1,4)='F332'
OR SUBSTR(MENTDEP(m),1,4)='F333' OR SUBSTR(MENTDEP(m),1,4)='F334' OR SUBSTR(MENTDEP(m),1,4)='F334'
OR SUBSTR(MENTDEP(m),1,4)='F334' OR SUBSTR(MENTDEP(m),1,4)='F338' OR SUBSTR(MENTDEP(m),1,4)='F339' OR SUBSTR(MENTDEP(m),1,4)='F340'
OR SUBSTR(MENTDEP(m),1,4)='F341' OR SUBSTR(MENTDEP(m),1,4)='F348'
OR SUBSTR(MENTDEP(m),1,4)='F349' OR SUBSTR(MENTDEP(m),1,4)='F39' THEN DEPR=1;
END;
OTHERMHD=0;
IF MHD = 1 THEN OTHERMHD=1;
IF ADHD=1 OR ANXIETY=1 OR DEPR=1 THEN OTHERMHD=0;
END;
SAMPLE=0;
IF T1DM = 1 THEN SAMPLE = 1;
IF AGE LE 9 THEN SAMPLE = 0;
IF TRAN_IN = 1 THEN SAMPLE = 0;
IF TRAN_IN = 2 THEN SAMPLE = 0;
IF TRAN_OUT = 1 THEN SAMPLE = 0;
IF TRAN_OUT = 2 THEN SAMPLE = 0;
IF DIED = 1 THEN SAMPLE = 0;
IF DISPUNIFORM = 2 OR 5 OR 6 OR 7 OR 20 THEN SAMPLE = 0;
END;
IF PAY1=1 OR PAY1=2 THEN PAYER=0;
IF PAY1=3 OR PAY1=4 OR PAY1=5 OR PAY1=6 THEN PAYER=1;
END;
IF AGE=10 OR AGE=11 OR AGE=12 OR AGE=13 THEN AGECAT=0;
IF AGE=14 OR AGE=15 OR AGE=16 OR AGE=17 THEN AGECAT=1;
IF AGE=18 OR AGE=19 OR AGE=20 THEN AGECAT=2;
END;
SEVERITY = 0;
IF APRDRG_Severity = 0 THEN SEVERITY=0;
IF APRDRG_Severity = 1 THEN SEVERITY=1;
IF APRDRG_Severity = 2 THEN SEVERITY=2;
IF APRDRG_Severity = 3 THEN SEVERITY=3;
IF APRDRG_Severity = 4 THEN SEVERITY=5;
END;
HOSP=0;
IF HOSP_LOCTEACH = 1 THEN HOSP=0;
IF HOSP_LOCTEACH = 2 THEN HOSP=1;
IF HOSP_LOCTEACH = 3 THEN HOSP=2;
RUN;
