2006 HCSDB Adult Sampling Report - Tricare

%VAR(INDATA,DOM&ITE,POPSIZE,NHF,SUMMARY);DATA CHKVAR;***TO COMPARE THE VARIANCE TO THE PRECISION REQUIREMENT;MERGE SUMMARY INDATA;BY DOM&ITE;FIN=1;MARGIN=SQRT((VSUM/DSUM&ITE**2)*1.96**2)/HL&ITE;IF MARGIN > 1 THEN FIN=FIN+1;DROP VSUM MARGIN; /* SHOULD DROP ’VSUM’VARIABLE HERE !!! */RUN;***DATA SET INCLUDING STRATA HAVING FINAL SAMPLE SIZE AT THIS STEP***;DATA FIN1 STE;SET CHKVAR;BY DOM&ITE;VSTAR=(HL&ITE/1.96)**2;IF FIN=1 then output FIN1;IF FIN=2 then output STE;RUN;%NUMOBS(STE);%LET I = 1;%IF &NUM=0 %THEN %GOTO FDSN;/*-----------------------------------------------------------------------------ITERATE MACRO TO UPDATE SAMPLE SIZES TO MEET THE PRECISIONREQUIREMENTSTHIS PART NEEDS TO BE REFINED TO ALLOW TO STOP THE PROGRAM WHENEVERNEEDED--------------------------------------------------------------------------------*/%DO %UNTIL(&NUM = 0);%LET I = %EVAL(&I +1);%ITERATE;%NUMOBS(FIN&I);%END;/*--------------------------------------------------------------------------GIVE THE REMAINING DOMAINS OPTIMAL SAMPLE SIZES----------------------------------------------------------------------------*/%LET I = %EVAL(&I +1);DATA FIN&I;SET STE;NHF = NHO;RUN;/*---------------------------------------------------------------------------COMBINE THE DATASETS INTO ONE-----------------------------------------------------------------------------*/%FDSN:DATA STEP9;SET FIN1;%DO J=2 %TO &I;DATA STEP9;SET STEP9 FIN&J;RUN;%END;F-3