else if com_geo in (’0084’)then com_geo=’0108’;else if com_geo in (’0363’,’7082’,’1587’) then com_geo=’0109’;else if com_geo in (’0364’)then com_geo=’0112’;else if com_geo in (’0114’)then com_geo=’0117’;else if com_geo in (’0077’)then com_geo=’0119’;else if com_geo in (’0432’,’0433’,’0090’) then com_geo=’0120’; *Added 0090in q1,2005 by Haixia;*else if com_geo in (’0122’)then com_geo=’0121’; *Uncollapse0122(KENNER AHC-FT. LEE)to make ita seperate cacsmpl in q1,2005 by Haixia;else if com_geo in (’0431’,’0434’,’0395’,’1646’) then com_geo=’0125’;else if com_geo in (’0435’)then com_geo=’0126’;else if com_geo in (’7045’)then com_geo=’0128’;else if com_geo in (’0106’,’7200’,’0093’,’0094’) then com_geo=’0129’; *Changed inq1,2005 by Haixia;*Collapse 0093,0094 with an Air Force site in the west TNEX region, 0129,instead of the south TNEX region, 0096;else if com_geo in (’0310’,’0425’,’0426’) then com_geo=’0321’;else if com_geo in (’0808’)then com_geo=’0609’;else if com_geo in (’0618’,’0623’,’0629’,’0624’,’0635’,’0825’) then com_geo=’0617’;else if com_geo in (’0802’, ’0616’,’0615’,’7042’,’5197’) then com_geo=’0620’; *0616 addedin q3,2004 by Haixia;else if com_geo in (’8931’)then com_geo=’0633’;else if com_geo in (’0610’,’0639’,’0637’,’0638’) then com_geo=’0640’; *changed inq1,2005;else if com_geo in (’0805’,’8982’)then com_geo=’0806’; *0805 addedin q1,2005 by Haixia;else if com_geo in (’0034’,’0035’,’0100’) then com_geo=’6223’; *changed emfq1 2004;*** added on 01/27/2004 by Haixia Xu to collapse small cellsfor the facility type of TGRO into out of catchment area;if d_fac=’NONCAT’ or d_fac=’TGRO’ or d_fac="TPR" then do;if d_health in (’01’,’02’,’05’,’17’) then com_geo=’9901’;else if d_health in (’03’,’04’,’06’,’18’) then com_geo=’9902’;else if d_health in (’07’,’08’,’09’,’10’,’11’,’12’,’19’) thencom_geo=’9903’;else if d_health in (’00’,’13’,’14’,’15’) then com_geo=’9904’;end;**********************************************************************************;***d_fac="TPR" and d_health = ’17’, ’18’, ’19’ were added above for Q4,2004, ***;***since we got the new regions 17(North T_NEX),18(South T_NEX),19(WestT_NEX).***;**********************************************************************************;F-8
*** If the facility is unknown then set com_geo indicates unknown facility***;*** ’0999’ added 03/15 to account for id 6992;if com_geo in (’9900’, ’0999’, ’0998’,’ ’) then com_geo=’9904’;RUN;rename com_geo = cacsmpl;title5 "Check the correctness of the assignments of cacsmpl";proc freq data=&outdata.;tables cacsmpl*geocell*d_par/missing list;where pcm=’MTF’;run;***Check any ENRIDs going into 9904.Sometimes com_geo is missing and cases get put here that really shouldn’t gohere;title5 "Check the cell cacsmpl=9904";proc freq data=&outdata ;tables pcm*enrid*dcatch*d_fac*d_health/missing list;where cacsmpl=’9904’ ;run;title5 "Check the beneficiaries with enrid =’ ’";proc freq data=&outdata ;tables pcm*pnlcatcd/missing list;where enrid=’ ’ ;run;************** The end ***************;F-9