2006 HCSDB Adult Sampling Report - Tricare

* references folders named according to the new convention [i.e.* the survey administration year (2002 for project 8860)].*****************************************************************************;LIBNAME IN1 V612 ’..\..\..\Q4_2005\DATA\AFINAL’; * Previous XWALK;LIBNAME IN2 V612 ’..\..\DATA\AFINAL’;* Current STI Tape Files;LIBNAME OUT V612 ’..\..\DATA\AFINAL’;* Current Output;OPTIONS PS=79 LS=132 COMPRESS=NO NOCENTER;***************************************************************************** Set period number as global variable.****************************************************************************;%LET PD = 21; * Increment by 1 every quarter;***************************************************************************** Set up MACRO to exclude specific families from survey.****************************************************************************;%INCLUDE "EXCLUDE.SAS";TITLE1 "Generate XWALK file from 2006 Q1 DOD DEERS Population Extract File";TITLE2 "Program Name: XWALK.SAS, Written by Keith Rathbun, October 2005";***************************************************************************** Assign random SEED as global variable. This will later be used as the* starting point for random numbering.****************************************************************************;DATA OUT.SEED;SEED = INT(RANUNI(0)*1000000+1);CALL SYMPUT("SEED",SEED);PUT "Random SEED assigned for generating the permanent radom numbers: "SEED;RUN;TITLE3 "Random SEED assigned for generating the permanent radom numbers:SEED.SD2";PROC PRINT; RUN;***************************************************************************** Assign LASTID from previous XWALK file as global variable. This will later* be used as the starting point for assigning new MPRIDs.****************************************************************************;DATA _NULL_;SET IN1.XWALK END=FINISHED;LENGTH MPRIDX 8; RETAIN MPRIDX;IF MPRID > MPRIDX THEN MPRIDX = MPRID;IF FINISHED THEN CALL SYMPUT("LASTID",MPRIDX);RUN;***************************************************************************** Get SSNSMPLs from current quarter tape file.****************************************************************************;%MACRO SORTIT(NUM=);PROC SORT DATA=IN2.STI&NUM (KEEP=SSNSMPL LEGDDSCD DAGEQY PTNT_ID)OUT=STI#BY SSNSMPL PTNT_ID;RUN;%MEND SORTIT;F-2