2006 HCSDB Adult Sampling Report - Tricare

else com_geo = d_par;end;********************************************************************;***Made the following 9 Navy sites stand alone in q1,2005: ***;***’0026’,’0068’,’0231’,’0378’,’0387’,’0405’,’0407’,’0508’,’6215’***;********************************************************************;if geocell in(’0026’,’0068’,’0231’,’0378’,’0387’,’0405’,’0407’,’0508’,’6215’) thencom_geo=geocell;****************************************************;*** Collapsing small areas with nearest facility ***;****************************************************;***********************************************************************;*** Collapsed the following 9 Air force sites to achieve the sample ***;*** size of 50000 due to making 9 Navy sites stand alone in q1,2005:***;*** ’0013’,’0036’,’0059’,’0090’,’0287’,’0326’,’0638’,’0805’,’7139’. ***;***********************************************************************;if com_geo in (’0074’,’0416’) then com_geo=’0001’;else if com_geo in (’0203’,’0130’,’0417’,’7044’,’7047’) then com_geo=’0005’;else if com_geo in (’0418’,’0419’,’7083’,’0015’,’0287’) then com_geo=’0014’; *0287 addedin q1,2005 by Haixia;else if com_geo in (’0018’,’0248’) then com_geo=’0019’;else if com_geo in (’7046’)then com_geo=’0029’; *By emfadded q4 2003;else if com_geo in (’0420’)then com_geo=’0037’;else if com_geo in (’0422’)then com_geo=’0038’;else if com_geo in (’0421’,’7048’,’0050’) then com_geo=’0039’;else if com_geo in (’7139’)then com_geo=’0045’;else if com_geo in (’7043’)then com_geo=’0052’;else if com_geo in (’0427’)then com_geo=’0056’; *By emfadded q3 2003;else if com_geo in (’0076’)then com_geo=’0058’;else if com_geo in (’0423’)then com_geo=’0064’;else if com_geo in (’0413’,’0428’,’0326’,’0036’) then com_geo=’0066’; *Taken out0068, added 0036, 0326 in q1,2005 by Haixia;else if com_geo in (’0424’)then com_geo=’0067’;else if com_geo in (’0306’)then com_geo=’0069’;else if com_geo in (’0338’, ’0059’) then com_geo=’0078’; *changed inq1,2005;else if com_geo in (’0085’)then com_geo=’0083’;else if com_geo in (’0081’,’5196’)then com_geo=’0086’; *By emfadded q1 2003;else if com_geo in (’0430’,’0335’,’7143’) then com_geo=’0089’;else if com_geo in (’0013’)then com_geo=’0096’; *0013 addedin q1,2005 by Haixia;else if com_geo in (’0097’)then com_geo=’0098’;else if com_geo in (’0356’)then com_geo=’0103’;F-7