2006 HCSDB Adult Sampling Report - Tricare

put "********************************************************;";end;else if &var_name. =’TSCPCM’ then do;put "********************************************************;";put "*** Managed care contractor assignment ***;";put "********************************************************;";end;else if &var_name. =’T’ then do;put "********************************************************;";put "*** Uniformed Services Family Health Plan assignment ***;";put "********************************************************;";end;if &i. = 1 then do;put "if enrid = ’" dmis_id +(-1) "’ then &fromvar.=&tovar.;";end;else do;put "else if enrid = ’" dmis_id +(-1)"’ then &fromvar.=&tovar.;";end;end;else do;put "else if enrid = ’" dmis_id +(-1)"’ then &fromvar.=&tovar.;";end;run; /*end of the data-set step */%end; /*end of do loop*/%mend assigngeocell;***Macro assigncom_geo does the assignments describe in NOTE 2) above;%macro assigncom_geo;%do i = 1 %to &loopnum.;%let category_name=%scan(&category_list., &i.);%let var_name=%scan(&var_list., 1);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.;%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 */F-3