2006 HCSDB Adult Sampling Report - Tricare

*** Define the macros: assigngeocell, assigncom_geo ***;********************************************************;***Macro assigngeocell does the assignments describe in NOTE 1) above;%macro assigngeocell;%do i = 1 %to &loopnum.;%let category_name=%scan(&category_list., &i.);%let var_name=%scan(&var_list., 1);%if &i. = &loopnum. %then %do;%let var_name=%scan(&var_list., 2);%end;title5 "Freq of &var_name.*geocell for cases with&var_name.=&category_name.";proc freq data=&TMA. NOPRINT;where &var_name.="&category_name.";tables &var_name.*geocell/missing list out=&category_name.;run;data &category_name.(keep=&var_name. dmis_id);set &category_name.;rename geocell=dmis_id; /*rename geocell as dmis_id */run;data _null_;set &category_name.;mod;%if &i. = 1 %then %do; /*open a new file*/file "F:\Q1_2006\Programs\Sampling\&listout..inc" LRECL=9999 RECFM=v;%end;%else %do; /*modify the existing file */file "F:\Q1_2006\Programs\Sampling\&listout..inc" LRECL=9999 RECFM=v%end;if _N_=1 then do;if &var_name.=’ADMIN’ then do;put "********************************************************;";put "*** Administration assignment ***;";put "********************************************************;";end;else if &var_name. =’DENTAL’ then do;put "********************************************************;";put "*** Dental assignment ***;";put "********************************************************;";end;else if &var_name. =’INACT’ then do;put "********************************************************;";put "*** Inactive assignment ***;";put "********************************************************;";end;else if &var_name. =’SHIP’ then do;put "********************************************************;";put "*** On board ship assignment ***;";F-2