***** To create: Government Program Participation CVC and event history variables; *******************************************************************************************************; /**Variable Names on the Gator Variable Names in the Program**********************************; YINTDATE~D_2011 INTD YINTDATE~M_2011 INTM YINTDATE~Y_2011 INTY YINC-6100A_2011 YINC_6100A YINC-6200A_2011 YINC_6200A YINC-6300A_2011 YINC_6300A YINC-6400A_2011 YINC_6400A YINC-6500A_2011 YINC_6500A YPRG-500_2011 p500 YPRG-800_2011 p800 YPRG-1000_2011 p1000 YPRGA-R13CHECK_2011 YPRGA_R13CHECK YPRGA-1100~000001_2011 p11001 YPRGA-1100~000002_2011 p11002 YPRGA-1200~000001_2011 p12001 YPRGA-1200~000002_2011 p12002 YPRGA-1200~000003_2011 p12003 YPRGA-1200~000004_2011 p12004 YPRGA-1200~000005_2011 p12005 YPRGA-1200~000006_2011 p12006 YPRGA-1200~000007_2011 p12007 YPRGA-R13CHECK2.01_2011 YPRGA_R13CHECK2_1 YPRGA-R13CHECK2.02_2011 YPRGA_R13CHECK2_2 YPRGA-R13CHECK2.03_2011 YPRGA_R13CHECK2_3 YPRGA-R13CHECK3_2011 YPRGA_R13CHECK3 YPRGA-R13CHECK4_2011 YPRGA_R13CHECK4 YPRGA-R13CHECK5.01_2011 YPRGA_R13CHECK5_1 YPRGA-R13CHECK6_2011 YPRGA_R13CHECK6 YPRGA-R13CHECK8_2011 YPRGA_R13CHECK8 YPRG-NEWCHECK_2011 YPRG_NEWCHECK YPRG-NEW1_2011 YPRG_NEW1 YPRG-NEW2~000001_2011 YPRG_NEW2_1 YPRG-NEW2~000002_2011 YPRG_NEW2_2 YPRG-NEW2~000003_2011 YPRG_NEW2_3 YPRG-NEW2~000004_2011 YPRG_NEW2_4 YPRG-NEW2CHECK1_2011 YPRG_NEW2CHECK1 YPRG-FOODCHECK2_2011 YPRG_FOODCHECK2 YPRG-FOODCHECK3_2011 YPRG_FOODCHECK3 YPRG-16310_UPD_2011 ps16310 YPRG-16330_UPD_2011 ps16330 YPRG-16340_UPD_2011 ps16340 YPRG-16385_UPD_2011 ps16385 YPRG-16400_UPD_2011 ps16400 YPRG-16410_UPD_2011 ps16410 YPRG-19063X_UPD.01_2011 ps19063X1 YPRG-19063X_UPD.02_2011 ps19063X2 YPRG-19063A_UPD.01_2011 ps19063A1 YPRG-19100_UPD.01~M_2011 ps19100M1 YPRG-19100_UPD.01~Y_2011 ps19100Y1 YPRG-19100_UPD.02~M_2011 ps19100M2 YPRG-19100_UPD.02~Y_2011 ps19100Y2 YPRG-19120_UPD.01_2011 ps191201 YPRG-19120_UPD.02_2011 ps191202 YPRG-19140_UPD.01_2011 ps191401 YPRG-19140_UPD.02_2011 ps191402 YPRG-19700_UPD.01_2011 ps197001 YPRG-19700_UPD.02_2011 ps197002 YPRG-20000_UPD.01~M_2011 ps20000M1 YPRG-20000_UPD.01~Y_2011 ps20000Y1 YPRG-20100_UPD.01_2011 ps201001 YPRG-20100_UPD.02_2011 ps201002 YPRG-20200_UPD.01_2011 ps202001 YPRG-20300_UPD.01_2011 ps203001 YPRG-20300_UPD.02_2011 ps203002 YPRG-20400_UPD.01_2011 ps204001 YPRG-20400_UPD.02_2011 ps204002 YPRG-20700_UPD.01_2011 ps207001 YPRG-20700_UPD.02_2011 ps207002 YPRG-20800_UPD.01_2011 ps208001 YPRG-20900_UPD.01~000001_2011 ps20900r_1 YPRG-20900_UPD.01~000002_2011 ps20900s_1 YPRG-20900_UPD.01~000003_2011 ps20900c_1 YPRG-20900_UPD.01~000004_2011 ps20900l_1 YPRG-20900_UPD.01~000005_2011 ps20900t_1 YPRG-20900_UPD.02~000001_2011 ps20900r_2 YPRG-20900_UPD.02~000002_2011 ps20900s_2 YPRG-20900_UPD.02~000003_2011 ps20900c_2 YPRG-20900_UPD.02~000004_2011 ps20900l_2 YPRG-20900_UPD.02~000005_2011 ps20900t_2 YPRG-21000_UPD.01_2011 ps210001 YPRG-21000_UPD.02_2011 ps210002 YPRG-21100A_UPD.01_2011 ps21100A1 YPRG-21100A_UPD.02_2011 ps21100A2 YPRG-21200_UPD.01_2011 ps212001 YPRG-WICCHECK1_2011 YPRG_WICCHECK1 YPRG-WICCHECK2_2011 YPRG_WICCHECK2 YPRG-WICCHECK3_2011 YPRG_WICCHECK3 YPRG-21330_UPD_2011 ps21330 YPRG-21350_UPD_2011 ps21350 YPRG-21360_UPD_2011 ps21360 YPRG-21405_UPD_2011 ps21405 YPRG-21420_UPD_2011 ps21420 YPRG-21430_UPD_2011 ps21430 YPRG-21900X_UPD.01_2011 ps21900X1 YPRG-21900A_UPD.01_2011 ps21900A1 YPRG-22000_UPD.01~M_2011 ps22000Y1 YPRG-22000_UPD.01~Y_2011 ps22000M1 YPRG-22100_UPD.01_2011 ps221001 YPRG-22200_UPD.01_2011 ps222001 YPRG-22300_UPD.01_2011 ps223001 YPRG-22600_UPD.01~M_2011 ps22600M1 YPRG-22600_UPD.01~Y_2011 ps22600Y1 YPRG-22700_UPD.01_2011 ps227001 YPRG-22800_UPD.01_2011 ps228001 YPRG-22900_UPD.01_2011 ps229001 YPRG-23000_UPD.01_2011 ps230001 YPRG-23300_UPD.01_2011 ps233001 YPRG-23400_UPD.01_2011 ps234001 YPRG-23500_UPD.01~000001_2011 ps23500r_1 YPRG-23500_UPD.01~000002_2011 ps23500s_1 YPRG-23500_UPD.01~000003_2011 ps23500c_1 YPRG-23500_UPD.01~000004_2011 ps23500l_1 YPRG-23500_UPD.01~000005_2011 ps23500t_1 YPRG-23600_UPD.01_2011 ps236001 YPRG-23700A_UPD.01_2011 ps23700A1 YPRG-23800_UPD.01_2011 ps238001 YPRG-AFDCCHECK1_2011 YPRG_AFDCCHECK1 YPRG-AFDCCHECK2_2011 YPRG_AFDCCHECK2 YPRG-AFDCCHECK3_2011 YPRG_AFDCCHECK3 YPRG-35630_UPD_2011 ps35630 YPRG-35660_UPD_2011 ps35660 YPRG-35730_UPD_2011 ps35730 YPRG-35740_UPD_2011 ps35740 YPRG-35785_UPD.01_2011 ps357851 YPRG-35785_UPD.02_2011 ps357852 YPRG-35790_UPD.01_2011 ps357901 YPRG-35800_UPD.01~M_2011 ps35800M1 YPRG-35800_UPD.01~Y_2011 ps35800Y1 YPRG-35800_UPD.02~M_2011 ps35800M2 YPRG-35800_UPD.02~Y_2011 ps35800Y2 YPRG-35810_UPD.01_2011 ps358101 YPRG-35810_UPD.02_2011 ps358102 YPRG-35820_UPD.01_2011 ps358201 YPRG-35830_UPD.01_2011 ps358301 YPRG-35840_UPD.01~M_2011 ps35840M1 YPRG-35840_UPD.01~Y_2011 ps35840Y1 YPRG-35840_UPD.02~M_2011 ps35840M2 YPRG-35840_UPD.02~Y_2011 ps35840Y2 YPRG-35850_UPD.01_2011 ps358501 YPRG-35850_UPD.02_2011 ps358502 YPRG-35860_UPD.01_2011 ps358601 YPRG-35860_UPD.02_2011 ps358602 YPRG-35865_UPD.01_2011 ps358651 YPRG-35870_UPD.01_2011 ps358701 YPRG-35870_UPD.02_2011 ps358702 YPRG-35900_UPD.01_2011 ps359001 YPRG-35900_UPD.02_2011 ps359002 YPRG-35910_UPD.01_2011 ps359101 YPRG-35910_UPD.02_2011 ps359102 YPRG-35915_UPD.01_2011 ps359151 YPRG-35915_UPD.02_2011 ps359152 YPRG-35920_UPD.01~000001_2011 ps35920r_1 YPRG-35920_UPD.01~000002_2011 ps35920s_1 YPRG-35920_UPD.01~000003_2011 ps35920c_1 YPRG-35920_UPD.01~000004_2011 ps35920l_1 YPRG-35920_UPD.01~000005_2011 ps35920t_1 YPRG-35920_UPD.02~000001_2011 ps35920r_2 YPRG-35920_UPD.02~000002_2011 ps35920s_2 YPRG-35920_UPD.02~000003_2011 ps35920c_2 YPRG-35920_UPD.02~000004_2011 ps35920l_2 YPRG-35920_UPD.02~000005_2011 ps35920t_2 YPRG-35930_UPD.01_2011 ps359301 YPRG-35930_UPD.02_2011 ps359302 YPRG-35950_UPD.01_2011 ps359501 YPRG-35950_UPD.02_2011 ps359502 YPRG-35960_UPD.01_2011 ps359601 YPRG-35960_UPD.02_2011 ps359602 YPRG-35971_UPD_2011 ps35971 YPRG-35973_UPD_2011 ps35973 YPRG-OTHWELFCHECK1_2011 YPRG_OTHWELFCHECK1 YPRG-OTHWELFCHECK2_2011 YPRG_OTHWELFCHECK2 YPRG-OTHWELFCHECK3_2011 YPRG_OTHWELFCHECK3 YPRG-36020_UPD_2011 ps36020 YPRG-36050_UPD_2011 ps36050 YPRG-36110_UPD_2011 ps36110 YPRG-36120_UPD_2011 ps36120 YPRG-30900X_UPD.01_2011 ps30900X1 YPRG-30900X_UPD.02_2011 ps30900X2 YPRG-30900X_UPD.03_2011 ps30900X3 YPRG-30900A_UPD.01_2011 ps30900A1 YPRG-31000_UPD.01~M_2011 ps31000M1 YPRG-31000_UPD.01~Y_2011 ps31000Y1 YPRG-31000_UPD.02~M_2011 ps31000M2 YPRG-31000_UPD.02~Y_2011 ps31000Y2 YPRG-31000_UPD.03~M_2011 ps31000M3 YPRG-31000_UPD.03~Y_2011 ps31000Y3 YPRG-31100_UPD.01_2011 ps311001 YPRG-31100_UPD.02_2011 ps311002 YPRG-31100_UPD.03_2011 ps311003 YPRG-31600_UPD.01~M_2011 ps31600M1 YPRG-31600_UPD.01~Y_2011 ps31600Y1 YPRG-31600_UPD.02~M_2011 ps31600M2 YPRG-31600_UPD.02~Y_2011 ps31600Y2 YPRG-31600_UPD.03~M_2011 ps31600M3 YPRG-31600_UPD.03~Y_2011 ps31600Y3 YPRG-31700_UPD.01_2011 ps317001 YPRG-31700_UPD.02_2011 ps317002 YPRG-31700_UPD.03_2011 ps317003 YPRG-31800_UPD.01_2011 ps318001 YPRG-31800_UPD.02_2011 ps318002 YPRG-31800_UPD.03_2011 ps318003 YPRG-31850_UPD.01_2011 ps318501 YPRG-31850_UPD.02_2011 ps318502 YPRG-31850_UPD.03_2011 ps318503 YPRG-32000_UPD.01_2011 ps320001 YPRG-32000_UPD.02_2011 ps320002 YPRG-32000_UPD.03_2011 ps320003 YPRG-32300_UPD.01_2011 ps323001 YPRG-32300_UPD.02_2011 ps323002 YPRG-32300_UPD.03_2011 ps323003 YPRG-32400_UPD.01_2011 ps324001 YPRG-32400_UPD.02_2011 ps324002 YPRG-32400_UPD.03_2011 ps324003 YPRG-32500_UPD.01~000001_2011 ps32500r_1 YPRG-32500_UPD.01~000002_2011 ps32500s_1 YPRG-32500_UPD.01~000003_2011 ps32500c_1 YPRG-32500_UPD.01~000004_2011 ps32500l_1 YPRG-32500_UPD.01~000005_2011 ps32500t_1 YPRG-32500_UPD.02~000001_2011 ps32500r_2 YPRG-32500_UPD.02~000002_2011 ps32500s_2 YPRG-32500_UPD.02~000003_2011 ps32500c_2 YPRG-32500_UPD.02~000004_2011 ps32500l_2 YPRG-32500_UPD.02~000005_2011 ps32500t_2 YPRG-32500_UPD.03~000001_2011 ps32500r_3 YPRG-32500_UPD.03~000002_2011 ps32500s_3 YPRG-32500_UPD.03~000003_2011 ps32500c_3 YPRG-32500_UPD.03~000004_2011 ps32500l_3 YPRG-32500_UPD.03~000005_2011 ps32500t_3 YPRG-32600_UPD.01_2011 ps326001 YPRG-32600_UPD.02_2011 ps326002 YPRG-32600_UPD.03_2011 ps326003 YPRG-32700A_UPD.01_2011 ps32700A1 YPRG-32700A_UPD.02_2011 ps32700A2 YPRG-32700A_UPD.03_2011 ps32700A3 YPRG-32900_UPD.01_2011 ps329001 YPRG-32900_UPD.02_2011 ps329002 YPRG-32900_UPD.03_2011 ps329003 YPRG-2100_2011 p2100 YPRG-2500_2011 p2500 YPRG-2600_2011 p2600 YPRG-2400_2011 p2400 YPRG-3300_2011 p3300 YPRG-18800_2011 p18800 YPRG-18900_2011 p18900 YPRG-19400.01~M_2011 p19400M1 YPRG-19400.01~Y_2011 p19400Y1 YPRG-19500.01_2011 p195001 YPRG-19600.01_2011 p196001 YPRG-20000.01~M_2011 p20000M1 YPRG-20000.01~Y_2011 p20000Y1 YPRG-20100.01_2011 p201001 YPRG-20350.01_2011 p203501 YPRG-20400.01_2011 p204001 YPRG-20700.01_2011 p207001 YPRG-20900.01~000001_2011 p20900r_1 YPRG-20900.01~000002_2011 p20900s_1 YPRG-20900.01~000003_2011 p20900c_1 YPRG-20900.01~000004_2011 p20900l_1 YPRG-20900.01~000005_2011 p20900t_1 YPRG-21000.01_2011 p210001 YPRG-21400_2011 p21400 YPRG-21500_2011 p21500 YPRG-22000.01~M_2011 p22000M1 YPRG-22000.01~Y_2011 p22000Y1 YPRG-22100.01_2011 p221001 YPRG-22200.01_2011 p222001 YPRG-22300.01_2011 p223001 YPRG-22390.01_2011 p223901 YPRG-22950.01_2011 p229501 YPRG-23000.01_2011 p230001 YPRG-23300.01_2011 p233001 YPRG-23500.01~000001_2011 p23500r_1 YPRG-23500.01~000002_2011 p23500s_1 YPRG-23500.01~000003_2011 p23500c_1 YPRG-23500.01~000004_2011 p23500l_1 YPRG-23500.01~000005_2011 p23500t_1 YPRG-23600.01_2011 p236001 YPRG-16100_2011 p16100 YPRG-29100_2011 p29100 YPRG-31000.01~M_2011 p31000M1 YPRG-31000.01~Y_2011 p31000Y1 YPRG-31000.02~M_2011 p31000M2 YPRG-31000.02~Y_2011 p31000Y2 YPRG-31100.01_2011 p311001 YPRG-31100.02_2011 p311002 YPRG-31200.01_2011 p312001 YPRG-31200.02_2011 p312002 YPRG-31600.01~M_2011 p31600M1 YPRG-31600.01~Y_2011 p31600Y1 YPRG-31600.02~M_2011 p31600M2 YPRG-31600.02~Y_2011 p31600Y2 YPRG-31700.01_2011 p317001 YPRG-31700.02_2011 p317002 YPRG-31800.01_2011 p318001 YPRG-31800.02_2011 p318002 YPRG-31950.01_2011 p319501 YPRG-31950.02_2011 p319502 YPRG-32000.01_2011 p320001 YPRG-32000.02_2011 p320002 YPRG-32300.01_2011 p323001 YPRG-32300.02_2011 p323002 YPRG-32500.01~000001_2011 p32500r_1 YPRG-32500.01~000002_2011 p32500s_1 YPRG-32500.01~000003_2011 p32500c_1 YPRG-32500.01~000004_2011 p32500l_1 YPRG-32500.01~000005_2011 p32500t_1 YPRG-32500.02~000001_2011 p32500r_2 YPRG-32500.02~000002_2011 p32500s_2 YPRG-32500.02~000003_2011 p32500c_2 YPRG-32500.02~000004_2011 p32500l_2 YPRG-32500.02~000005_2011 p32500t_2 YPRG-32600.01_2011 p326001 YPRG-32600.02_2011 p326002 YPRG-32900.01_2011 p329001 YPRG-32900.02_2011 p329002 PUBID_2011 PUBID SYMBOL_KEY_BDATE~D_2011 dobD SYMBOL_KEY_BDATE~M_2011 dobM SYMBOL_KEY_BDATE~Y_2011 dobY AFDC_START_MONTH_1997.01_XRND csmAr1_1 AFDC_START_MONTH_1997.02_XRND csmAr1_2 AFDC_START_MONTH_1997.03_XRND csmAr1_3 AFDC_START_MONTH_1998.01_XRND csmAr2_1 AFDC_START_MONTH_1998.02_XRND csmAr2_2 AFDC_START_MONTH_1998.03_XRND csmAr2_3 AFDC_START_MONTH_1999.01_XRND csmAr3_1 AFDC_START_MONTH_1999.02_XRND csmAr3_2 AFDC_START_MONTH_2000.01_XRND csmAr4_1 AFDC_START_MONTH_2000.02_XRND csmAr4_2 AFDC_START_MONTH_2000.03_XRND csmAr4_3 AFDC_START_MONTH_2000.04_XRND csmAr4_4 AFDC_START_MONTH_2001.01_XRND csmAr5_1 AFDC_START_MONTH_2001.02_XRND csmAr5_2 AFDC_START_MONTH_2001.03_XRND csmAr5_3 AFDC_START_MONTH_2002.01_XRND csmAr6_1 AFDC_START_MONTH_2002.02_XRND csmAr6_2 AFDC_START_MONTH_2003.01_XRND csmAr7_1 AFDC_START_MONTH_2003.02_XRND csmAr7_2 AFDC_START_MONTH_2004.01_XRND csmAr8_1 AFDC_START_MONTH_2004.02_XRND csmAr8_2 AFDC_START_MONTH_2005.01_XRND csmAr9_1 AFDC_START_MONTH_2005.02_XRND csmAr9_2 AFDC_START_MONTH_2005.03_XRND csmAr9_3 AFDC_START_MONTH_2005.04_XRND csmAr9_4 AFDC_START_MONTH_2006.01_XRND csmAr10_1 AFDC_START_MONTH_2006.02_XRND csmAr10_2 AFDC_START_MONTH_2006.03_XRND csmAr10_3 AFDC_START_MONTH_2007.01_XRND csmAr11_1 AFDC_START_MONTH_2007.02_XRND csmAr11_2 AFDC_START_MONTH_2008.01_XRND csmAr12_1 AFDC_START_MONTH_2008.02_XRND csmAr12_2 AFDC_START_MONTH_2008.03_XRND csmAr12_3 AFDC_START_MONTH_2009.01_XRND csmAr13_1 AFDC_START_MONTH_2009.02_XRND csmAr13_2 AFDC_START_MONTH_2010.01_XRND csmAr14_1 AFDC_STOP_MONTH_1997.01_XRND cemAr1_1 AFDC_STOP_MONTH_1997.02_XRND cemAr1_2 AFDC_STOP_MONTH_1997.03_XRND cemAr1_3 AFDC_STOP_MONTH_1998.01_XRND cemAr2_1 AFDC_STOP_MONTH_1998.02_XRND cemAr2_2 AFDC_STOP_MONTH_1998.03_XRND cemAr2_3 AFDC_STOP_MONTH_1999.01_XRND cemAr3_1 AFDC_STOP_MONTH_1999.02_XRND cemAr3_2 AFDC_STOP_MONTH_2000.01_XRND cemAr4_1 AFDC_STOP_MONTH_2000.02_XRND cemAr4_2 AFDC_STOP_MONTH_2000.03_XRND cemAr4_3 AFDC_STOP_MONTH_2000.04_XRND cemAr4_4 AFDC_STOP_MONTH_2001.01_XRND cemAr5_1 AFDC_STOP_MONTH_2001.02_XRND cemAr5_2 AFDC_STOP_MONTH_2001.03_XRND cemAr5_3 AFDC_STOP_MONTH_2002.01_XRND cemAr6_1 AFDC_STOP_MONTH_2002.02_XRND cemAr6_2 AFDC_STOP_MONTH_2003.01_XRND cemAr7_1 AFDC_STOP_MONTH_2003.02_XRND cemAr7_2 AFDC_STOP_MONTH_2004.01_XRND cemAr8_1 AFDC_STOP_MONTH_2004.02_XRND cemAr8_2 AFDC_STOP_MONTH_2005.01_XRND cemAr9_1 AFDC_STOP_MONTH_2005.02_XRND cemAr9_2 AFDC_STOP_MONTH_2005.03_XRND cemAr9_3 AFDC_STOP_MONTH_2005.04_XRND cemAr9_4 AFDC_STOP_MONTH_2006.01_XRND cemAr10_1 AFDC_STOP_MONTH_2006.02_XRND cemAr10_2 AFDC_STOP_MONTH_2006.03_XRND cemAr10_3 AFDC_STOP_MONTH_2007.01_XRND cemAr11_1 AFDC_STOP_MONTH_2007.02_XRND cemAr11_2 AFDC_STOP_MONTH_2008.01_XRND cemAr12_1 AFDC_STOP_MONTH_2008.02_XRND cemAr12_2 AFDC_STOP_MONTH_2008.03_XRND cemAr12_3 AFDC_STOP_MONTH_2009.01_XRND cemAr13_1 AFDC_STOP_MONTH_2009.02_XRND cemAr13_2 AFDC_STOP_MONTH_2010.01_XRND cemAr14_1 AFDC_EDIT_AMT_1997.01_XRND aflAr1_1 AFDC_EDIT_AMT_1997.02_XRND aflAr1_2 AFDC_EDIT_AMT_1997.03_XRND aflAr1_3 AFDC_EDIT_AMT_1998.01_XRND aflAr2_1 AFDC_EDIT_AMT_1998.02_XRND aflAr2_2 AFDC_EDIT_AMT_1998.03_XRND aflAr2_3 AFDC_EDIT_AMT_1999.01_XRND aflAr3_1 AFDC_EDIT_AMT_1999.02_XRND aflAr3_2 AFDC_EDIT_AMT_2000.01_XRND aflAr4_1 AFDC_EDIT_AMT_2000.02_XRND aflAr4_2 AFDC_EDIT_AMT_2000.03_XRND aflAr4_3 AFDC_EDIT_AMT_2000.04_XRND aflAr4_4 AFDC_EDIT_AMT_2001.01_XRND aflAr5_1 AFDC_EDIT_AMT_2001.02_XRND aflAr5_2 AFDC_EDIT_AMT_2001.03_XRND aflAr5_3 AFDC_EDIT_AMT_2002.01_XRND aflAr6_1 AFDC_EDIT_AMT_2002.02_XRND aflAr6_2 AFDC_EDIT_AMT_2003.01_XRND aflAr7_1 AFDC_EDIT_AMT_2003.02_XRND aflAr7_2 AFDC_EDIT_AMT_2004.01_XRND aflAr8_1 AFDC_EDIT_AMT_2004.02_XRND aflAr8_2 AFDC_EDIT_AMT_2005.01_XRND aflAr9_1 AFDC_EDIT_AMT_2005.02_XRND aflAr9_2 AFDC_EDIT_AMT_2005.03_XRND aflAr9_3 AFDC_EDIT_AMT_2005.04_XRND aflAr9_4 AFDC_EDIT_AMT_2006.01_XRND aflAr10_1 AFDC_EDIT_AMT_2006.02_XRND aflAr10_2 AFDC_EDIT_AMT_2006.03_XRND aflAr10_3 AFDC_EDIT_AMT_2007.01_XRND aflAr11_1 AFDC_EDIT_AMT_2007.02_XRND aflAr11_2 AFDC_EDIT_AMT_2008.01_XRND aflAr12_1 AFDC_EDIT_AMT_2008.02_XRND aflAr12_2 AFDC_EDIT_AMT_2008.03_XRND aflAr12_3 AFDC_EDIT_AMT_2009.01_XRND aflAr13_1 AFDC_EDIT_AMT_2009.02_XRND aflAr13_2 AFDC_EDIT_AMT_2010.01_XRND aflAr14_1 AFDC_EDIT_DATE_1997.01_XRND eflAr1_1 AFDC_EDIT_DATE_1997.02_XRND eflAr1_2 AFDC_EDIT_DATE_1997.03_XRND eflAr1_3 AFDC_EDIT_DATE_1998.01_XRND eflAr2_1 AFDC_EDIT_DATE_1998.02_XRND eflAr2_2 AFDC_EDIT_DATE_1998.03_XRND eflAr2_3 AFDC_EDIT_DATE_1999.01_XRND eflAr3_1 AFDC_EDIT_DATE_1999.02_XRND eflAr3_2 AFDC_EDIT_DATE_2000.01_XRND eflAr4_1 AFDC_EDIT_DATE_2000.02_XRND eflAr4_2 AFDC_EDIT_DATE_2000.03_XRND eflAr4_3 AFDC_EDIT_DATE_2000.04_XRND eflAr4_4 AFDC_EDIT_DATE_2001.01_XRND eflAr5_1 AFDC_EDIT_DATE_2001.02_XRND eflAr5_2 AFDC_EDIT_DATE_2001.03_XRND eflAr5_3 AFDC_EDIT_DATE_2002.01_XRND eflAr6_1 AFDC_EDIT_DATE_2002.02_XRND eflAr6_2 AFDC_EDIT_DATE_2003.01_XRND eflAr7_1 AFDC_EDIT_DATE_2003.02_XRND eflAr7_2 AFDC_EDIT_DATE_2004.01_XRND eflAr8_1 AFDC_EDIT_DATE_2004.02_XRND eflAr8_2 AFDC_EDIT_DATE_2005.01_XRND eflAr9_1 AFDC_EDIT_DATE_2005.02_XRND eflAr9_2 AFDC_EDIT_DATE_2005.03_XRND eflAr9_3 AFDC_EDIT_DATE_2005.04_XRND eflAr9_4 AFDC_EDIT_DATE_2006.01_XRND eflAr10_1 AFDC_EDIT_DATE_2006.02_XRND eflAr10_2 AFDC_EDIT_DATE_2006.03_XRND eflAr10_3 AFDC_EDIT_DATE_2007.01_XRND eflAr11_1 AFDC_EDIT_DATE_2007.02_XRND eflAr11_2 AFDC_EDIT_DATE_2008.01_XRND eflAr12_1 AFDC_EDIT_DATE_2008.02_XRND eflAr12_2 AFDC_EDIT_DATE_2008.03_XRND eflAr12_3 AFDC_EDIT_DATE_2009.01_XRND eflAr13_1 AFDC_EDIT_DATE_2009.02_XRND eflAr13_2 AFDC_EDIT_DATE_2010.01_XRND eflAr14_1 FDSTMPS_START_MONTH_1997.01_XRND csmFr1_1 FDSTMPS_START_MONTH_1997.02_XRND csmFr1_2 FDSTMPS_START_MONTH_1998.01_XRND csmFr2_1 FDSTMPS_START_MONTH_1998.02_XRND csmFr2_2 FDSTMPS_START_MONTH_1998.03_XRND csmFr2_3 FDSTMPS_START_MONTH_1999.01_XRND csmFr3_1 FDSTMPS_START_MONTH_1999.02_XRND csmFr3_2 FDSTMPS_START_MONTH_2000.01_XRND csmFr4_1 FDSTMPS_START_MONTH_2000.02_XRND csmFr4_2 FDSTMPS_START_MONTH_2000.03_XRND csmFr4_3 FDSTMPS_START_MONTH_2001.01_XRND csmFr5_1 FDSTMPS_START_MONTH_2001.02_XRND csmFr5_2 FDSTMPS_START_MONTH_2001.03_XRND csmFr5_3 FDSTMPS_START_MONTH_2002.01_XRND csmFr6_1 FDSTMPS_START_MONTH_2002.02_XRND csmFr6_2 FDSTMPS_START_MONTH_2002.03_XRND csmFr6_3 FDSTMPS_START_MONTH_2003.01_XRND csmFr7_1 FDSTMPS_START_MONTH_2003.02_XRND csmFr7_2 FDSTMPS_START_MONTH_2003.03_XRND csmFr7_3 FDSTMPS_START_MONTH_2004.01_XRND csmFr8_1 FDSTMPS_START_MONTH_2004.02_XRND csmFr8_2 FDSTMPS_START_MONTH_2004.03_XRND csmFr8_3 FDSTMPS_START_MONTH_2005.01_XRND csmFr9_1 FDSTMPS_START_MONTH_2005.02_XRND csmFr9_2 FDSTMPS_START_MONTH_2005.03_XRND csmFr9_3 FDSTMPS_START_MONTH_2006.01_XRND csmFr10_1 FDSTMPS_START_MONTH_2006.02_XRND csmFr10_2 FDSTMPS_START_MONTH_2006.03_XRND csmFr10_3 FDSTMPS_START_MONTH_2006.04_XRND csmFr10_4 FDSTMPS_START_MONTH_2007.01_XRND csmFr11_1 FDSTMPS_START_MONTH_2007.02_XRND csmFr11_2 FDSTMPS_START_MONTH_2007.03_XRND csmFr11_3 FDSTMPS_START_MONTH_2008.01_XRND csmFr12_1 FDSTMPS_START_MONTH_2008.02_XRND csmFr12_2 FDSTMPS_START_MONTH_2008.03_XRND csmFr12_3 FDSTMPS_START_MONTH_2009.01_XRND csmFr13_1 FDSTMPS_START_MONTH_2009.02_XRND csmFr13_2 FDSTMPS_START_MONTH_2009.03_XRND csmFr13_3 FDSTMPS_START_MONTH_2010.01_XRND csmFr14_1 FDSTMPS_START_MONTH_2010.02_XRND csmFr14_2 FDSTMPS_STOP_MONTH_1997.01_XRND cemFr1_1 FDSTMPS_STOP_MONTH_1997.02_XRND cemFr1_2 FDSTMPS_STOP_MONTH_1998.01_XRND cemFr2_1 FDSTMPS_STOP_MONTH_1998.02_XRND cemFr2_2 FDSTMPS_STOP_MONTH_1998.03_XRND cemFr2_3 FDSTMPS_STOP_MONTH_1999.01_XRND cemFr3_1 FDSTMPS_STOP_MONTH_1999.02_XRND cemFr3_2 FDSTMPS_STOP_MONTH_2000.01_XRND cemFr4_1 FDSTMPS_STOP_MONTH_2000.02_XRND cemFr4_2 FDSTMPS_STOP_MONTH_2000.03_XRND cemFr4_3 FDSTMPS_STOP_MONTH_2001.01_XRND cemFr5_1 FDSTMPS_STOP_MONTH_2001.02_XRND cemFr5_2 FDSTMPS_STOP_MONTH_2001.03_XRND cemFr5_3 FDSTMPS_STOP_MONTH_2002.01_XRND cemFr6_1 FDSTMPS_STOP_MONTH_2002.02_XRND cemFr6_2 FDSTMPS_STOP_MONTH_2002.03_XRND cemFr6_3 FDSTMPS_STOP_MONTH_2003.01_XRND cemFr7_1 FDSTMPS_STOP_MONTH_2003.02_XRND cemFr7_2 FDSTMPS_STOP_MONTH_2003.03_XRND cemFr7_3 FDSTMPS_STOP_MONTH_2004.01_XRND cemFr8_1 FDSTMPS_STOP_MONTH_2004.02_XRND cemFr8_2 FDSTMPS_STOP_MONTH_2004.03_XRND cemFr8_3 FDSTMPS_STOP_MONTH_2005.01_XRND cemFr9_1 FDSTMPS_STOP_MONTH_2005.02_XRND cemFr9_2 FDSTMPS_STOP_MONTH_2005.03_XRND cemFr9_3 FDSTMPS_STOP_MONTH_2006.01_XRND cemFr10_1 FDSTMPS_STOP_MONTH_2006.02_XRND cemFr10_2 FDSTMPS_STOP_MONTH_2006.03_XRND cemFr10_3 FDSTMPS_STOP_MONTH_2006.04_XRND cemFr10_4 FDSTMPS_STOP_MONTH_2007.01_XRND cemFr11_1 FDSTMPS_STOP_MONTH_2007.02_XRND cemFr11_2 FDSTMPS_STOP_MONTH_2007.03_XRND cemFr11_3 FDSTMPS_STOP_MONTH_2008.01_XRND cemFr12_1 FDSTMPS_STOP_MONTH_2008.02_XRND cemFr12_2 FDSTMPS_STOP_MONTH_2008.03_XRND cemFr12_3 FDSTMPS_STOP_MONTH_2009.01_XRND cemFr13_1 FDSTMPS_STOP_MONTH_2009.02_XRND cemFr13_2 FDSTMPS_STOP_MONTH_2009.03_XRND cemFr13_3 FDSTMPS_STOP_MONTH_2010.01_XRND cemFr14_1 FDSTMPS_STOP_MONTH_2010.02_XRND cemFr14_2 FDSTMPS_EDIT_AMT_1997.01_XRND aflFr1_1 FDSTMPS_EDIT_AMT_1997.02_XRND aflFr1_2 FDSTMPS_EDIT_AMT_1998.01_XRND aflFr2_1 FDSTMPS_EDIT_AMT_1998.02_XRND aflFr2_2 FDSTMPS_EDIT_AMT_1998.03_XRND aflFr2_3 FDSTMPS_EDIT_AMT_1999.01_XRND aflFr3_1 FDSTMPS_EDIT_AMT_1999.02_XRND aflFr3_2 FDSTMPS_EDIT_AMT_2000.01_XRND aflFr4_1 FDSTMPS_EDIT_AMT_2000.02_XRND aflFr4_2 FDSTMPS_EDIT_AMT_2000.03_XRND aflFr4_3 FDSTMPS_EDIT_AMT_2001.01_XRND aflFr5_1 FDSTMPS_EDIT_AMT_2001.02_XRND aflFr5_2 FDSTMPS_EDIT_AMT_2001.03_XRND aflFr5_3 FDSTMPS_EDIT_AMT_2002.01_XRND aflFr6_1 FDSTMPS_EDIT_AMT_2002.02_XRND aflFr6_2 FDSTMPS_EDIT_AMT_2002.03_XRND aflFr6_3 FDSTMPS_EDIT_AMT_2003.01_XRND aflFr7_1 FDSTMPS_EDIT_AMT_2003.02_XRND aflFr7_2 FDSTMPS_EDIT_AMT_2003.03_XRND aflFr7_3 FDSTMPS_EDIT_AMT_2004.01_XRND aflFr8_1 FDSTMPS_EDIT_AMT_2004.02_XRND aflFr8_2 FDSTMPS_EDIT_AMT_2004.03_XRND aflFr8_3 FDSTMPS_EDIT_AMT_2005.01_XRND aflFr9_1 FDSTMPS_EDIT_AMT_2005.02_XRND aflFr9_2 FDSTMPS_EDIT_AMT_2005.03_XRND aflFr9_3 FDSTMPS_EDIT_AMT_2006.01_XRND aflFr10_1 FDSTMPS_EDIT_AMT_2006.02_XRND aflFr10_2 FDSTMPS_EDIT_AMT_2006.03_XRND aflFr10_3 FDSTMPS_EDIT_AMT_2006.04_XRND aflFr10_4 FDSTMPS_EDIT_AMT_2007.01_XRND aflFr11_1 FDSTMPS_EDIT_AMT_2007.02_XRND aflFr11_2 FDSTMPS_EDIT_AMT_2007.03_XRND aflFr11_3 FDSTMPS_EDIT_AMT_2008.01_XRND aflFr12_1 FDSTMPS_EDIT_AMT_2008.02_XRND aflFr12_2 FDSTMPS_EDIT_AMT_2008.03_XRND aflFr12_3 FDSTMPS_EDIT_AMT_2009.01_XRND aflFr13_1 FDSTMPS_EDIT_AMT_2009.02_XRND aflFr13_2 FDSTMPS_EDIT_AMT_2009.03_XRND aflFr13_3 FDSTMPS_EDIT_AMT_2010.01_XRND aflFr14_1 FDSTMPS_EDIT_AMT_2010.02_XRND aflFr14_2 FDSTMPS_EDIT_DATE_1997.01_XRND eflFr1_1 FDSTMPS_EDIT_DATE_1997.02_XRND eflFr1_2 FDSTMPS_EDIT_DATE_1998.01_XRND eflFr2_1 FDSTMPS_EDIT_DATE_1998.02_XRND eflFr2_2 FDSTMPS_EDIT_DATE_1998.03_XRND eflFr2_3 FDSTMPS_EDIT_DATE_1999.01_XRND eflFr3_1 FDSTMPS_EDIT_DATE_1999.02_XRND eflFr3_2 FDSTMPS_EDIT_DATE_2000.01_XRND eflFr4_1 FDSTMPS_EDIT_DATE_2000.02_XRND eflFr4_2 FDSTMPS_EDIT_DATE_2000.03_XRND eflFr4_3 FDSTMPS_EDIT_DATE_2001.01_XRND eflFr5_1 FDSTMPS_EDIT_DATE_2001.02_XRND eflFr5_2 FDSTMPS_EDIT_DATE_2001.03_XRND eflFr5_3 FDSTMPS_EDIT_DATE_2002.01_XRND eflFr6_1 FDSTMPS_EDIT_DATE_2002.02_XRND eflFr6_2 FDSTMPS_EDIT_DATE_2002.03_XRND eflFr6_3 FDSTMPS_EDIT_DATE_2003.01_XRND eflFr7_1 FDSTMPS_EDIT_DATE_2003.02_XRND eflFr7_2 FDSTMPS_EDIT_DATE_2003.03_XRND eflFr7_3 FDSTMPS_EDIT_DATE_2004.01_XRND eflFr8_1 FDSTMPS_EDIT_DATE_2004.02_XRND eflFr8_2 FDSTMPS_EDIT_DATE_2004.03_XRND eflFr8_3 FDSTMPS_EDIT_DATE_2005.01_XRND eflFr9_1 FDSTMPS_EDIT_DATE_2005.02_XRND eflFr9_2 FDSTMPS_EDIT_DATE_2005.03_XRND eflFr9_3 FDSTMPS_EDIT_DATE_2006.01_XRND eflFr10_1 FDSTMPS_EDIT_DATE_2006.02_XRND eflFr10_2 FDSTMPS_EDIT_DATE_2006.03_XRND eflFr10_3 FDSTMPS_EDIT_DATE_2006.04_XRND eflFr10_4 FDSTMPS_EDIT_DATE_2007.01_XRND eflFr11_1 FDSTMPS_EDIT_DATE_2007.02_XRND eflFr11_2 FDSTMPS_EDIT_DATE_2007.03_XRND eflFr11_3 FDSTMPS_EDIT_DATE_2008.01_XRND eflFr12_1 FDSTMPS_EDIT_DATE_2008.02_XRND eflFr12_2 FDSTMPS_EDIT_DATE_2008.03_XRND eflFr12_3 FDSTMPS_EDIT_DATE_2009.01_XRND eflFr13_1 FDSTMPS_EDIT_DATE_2009.02_XRND eflFr13_2 FDSTMPS_EDIT_DATE_2009.03_XRND eflFr13_3 FDSTMPS_EDIT_DATE_2010.01_XRND eflFr14_1 FDSTMPS_EDIT_DATE_2010.02_XRND eflFr14_2 OTHER_START_MONTH_1997.01_XRND csmOr1_1 OTHER_START_MONTH_1997.02_XRND csmOr1_2 OTHER_START_MONTH_1998.01_XRND csmOr2_1 OTHER_START_MONTH_1998.02_XRND csmOr2_2 OTHER_START_MONTH_1999.01_XRND csmOr3_1 OTHER_START_MONTH_1999.02_XRND csmOr3_2 OTHER_START_MONTH_2000.01_XRND csmOr4_1 OTHER_START_MONTH_2000.02_XRND csmOr4_2 OTHER_START_MONTH_2001.01_XRND csmOr5_1 OTHER_START_MONTH_2001.02_XRND csmOr5_2 OTHER_START_MONTH_2002.01_XRND csmOr6_1 OTHER_START_MONTH_2002.02_XRND csmOr6_2 OTHER_START_MONTH_2003.01_XRND csmOr7_1 OTHER_START_MONTH_2003.02_XRND csmOr7_2 OTHER_START_MONTH_2003.03_XRND csmOr7_3 OTHER_START_MONTH_2004.01_XRND csmOr8_1 OTHER_START_MONTH_2004.02_XRND csmOr8_2 OTHER_START_MONTH_2004.03_XRND csmOr8_3 OTHER_START_MONTH_2005.01_XRND csmOr9_1 OTHER_START_MONTH_2005.02_XRND csmOr9_2 OTHER_START_MONTH_2006.01_XRND csmOr10_1 OTHER_START_MONTH_2006.02_XRND csmOr10_2 OTHER_START_MONTH_2006.03_XRND csmOr10_3 OTHER_START_MONTH_2007.01_XRND csmOr11_1 OTHER_START_MONTH_2007.02_XRND csmOr11_2 OTHER_START_MONTH_2007.03_XRND csmOr11_3 OTHER_START_MONTH_2008.01_XRND csmOr12_1 OTHER_START_MONTH_2008.02_XRND csmOr12_2 OTHER_START_MONTH_2008.03_XRND csmOr12_3 OTHER_START_MONTH_2009.01_XRND csmOr13_1 OTHER_START_MONTH_2009.02_XRND csmOr13_2 OTHER_START_MONTH_2010.01_XRND csmOr14_1 OTHER_STOP_MONTH_1997.01_XRND cemOr1_1 OTHER_STOP_MONTH_1997.02_XRND cemOr1_2 OTHER_STOP_MONTH_1998.01_XRND cemOr2_1 OTHER_STOP_MONTH_1998.02_XRND cemOr2_2 OTHER_STOP_MONTH_1999.01_XRND cemOr3_1 OTHER_STOP_MONTH_1999.02_XRND cemOr3_2 OTHER_STOP_MONTH_2000.01_XRND cemOr4_1 OTHER_STOP_MONTH_2000.02_XRND cemOr4_2 OTHER_STOP_MONTH_2001.01_XRND cemOr5_1 OTHER_STOP_MONTH_2001.02_XRND cemOr5_2 OTHER_STOP_MONTH_2002.01_XRND cemOr6_1 OTHER_STOP_MONTH_2002.02_XRND cemOr6_2 OTHER_STOP_MONTH_2003.01_XRND cemOr7_1 OTHER_STOP_MONTH_2003.02_XRND cemOr7_2 OTHER_STOP_MONTH_2003.03_XRND cemOr7_3 OTHER_STOP_MONTH_2004.01_XRND cemOr8_1 OTHER_STOP_MONTH_2004.02_XRND cemOr8_2 OTHER_STOP_MONTH_2004.03_XRND cemOr8_3 OTHER_STOP_MONTH_2005.01_XRND cemOr9_1 OTHER_STOP_MONTH_2005.02_XRND cemOr9_2 OTHER_STOP_MONTH_2006.01_XRND cemOr10_1 OTHER_STOP_MONTH_2006.02_XRND cemOr10_2 OTHER_STOP_MONTH_2006.03_XRND cemOr10_3 OTHER_STOP_MONTH_2007.01_XRND cemOr11_1 OTHER_STOP_MONTH_2007.02_XRND cemOr11_2 OTHER_STOP_MONTH_2007.03_XRND cemOr11_3 OTHER_STOP_MONTH_2008.01_XRND cemOr12_1 OTHER_STOP_MONTH_2008.02_XRND cemOr12_2 OTHER_STOP_MONTH_2008.03_XRND cemOr12_3 OTHER_STOP_MONTH_2009.01_XRND cemOr13_1 OTHER_STOP_MONTH_2009.02_XRND cemOr13_2 OTHER_STOP_MONTH_2010.01_XRND cemOr14_1 OTHER_EDIT_AMT_1997.01_XRND aflOr1_1 OTHER_EDIT_AMT_1997.02_XRND aflOr1_2 OTHER_EDIT_AMT_1998.01_XRND aflOr2_1 OTHER_EDIT_AMT_1998.02_XRND aflOr2_2 OTHER_EDIT_AMT_1999.01_XRND aflOr3_1 OTHER_EDIT_AMT_1999.02_XRND aflOr3_2 OTHER_EDIT_AMT_2000.01_XRND aflOr4_1 OTHER_EDIT_AMT_2000.02_XRND aflOr4_2 OTHER_EDIT_AMT_2001.01_XRND aflOr5_1 OTHER_EDIT_AMT_2001.02_XRND aflOr5_2 OTHER_EDIT_AMT_2002.01_XRND aflOr6_1 OTHER_EDIT_AMT_2002.02_XRND aflOr6_2 OTHER_EDIT_AMT_2003.01_XRND aflOr7_1 OTHER_EDIT_AMT_2003.02_XRND aflOr7_2 OTHER_EDIT_AMT_2003.03_XRND aflOr7_3 OTHER_EDIT_AMT_2004.01_XRND aflOr8_1 OTHER_EDIT_AMT_2004.02_XRND aflOr8_2 OTHER_EDIT_AMT_2004.03_XRND aflOr8_3 OTHER_EDIT_AMT_2005.01_XRND aflOr9_1 OTHER_EDIT_AMT_2005.02_XRND aflOr9_2 OTHER_EDIT_AMT_2006.01_XRND aflOr10_1 OTHER_EDIT_AMT_2006.02_XRND aflOr10_2 OTHER_EDIT_AMT_2006.03_XRND aflOr10_3 OTHER_EDIT_AMT_2007.01_XRND aflOr11_1 OTHER_EDIT_AMT_2007.02_XRND aflOr11_2 OTHER_EDIT_AMT_2007.03_XRND aflOr11_3 OTHER_EDIT_AMT_2008.01_XRND aflOr12_1 OTHER_EDIT_AMT_2008.02_XRND aflOr12_2 OTHER_EDIT_AMT_2008.03_XRND aflOr12_3 OTHER_EDIT_AMT_2009.01_XRND aflOr13_1 OTHER_EDIT_AMT_2009.02_XRND aflOr13_2 OTHER_EDIT_AMT_2010.01_XRND aflOr14_1 OTHER_EDIT_DATE_1997.01_XRND eflOr1_1 OTHER_EDIT_DATE_1997.02_XRND eflOr1_2 OTHER_EDIT_DATE_1998.01_XRND eflOr2_1 OTHER_EDIT_DATE_1998.02_XRND eflOr2_2 OTHER_EDIT_DATE_1999.01_XRND eflOr3_1 OTHER_EDIT_DATE_1999.02_XRND eflOr3_2 OTHER_EDIT_DATE_2000.01_XRND eflOr4_1 OTHER_EDIT_DATE_2000.02_XRND eflOr4_2 OTHER_EDIT_DATE_2001.01_XRND eflOr5_1 OTHER_EDIT_DATE_2001.02_XRND eflOr5_2 OTHER_EDIT_DATE_2002.01_XRND eflOr6_1 OTHER_EDIT_DATE_2002.02_XRND eflOr6_2 OTHER_EDIT_DATE_2003.01_XRND eflOr7_1 OTHER_EDIT_DATE_2003.02_XRND eflOr7_2 OTHER_EDIT_DATE_2003.03_XRND eflOr7_3 OTHER_EDIT_DATE_2004.01_XRND eflOr8_1 OTHER_EDIT_DATE_2004.02_XRND eflOr8_2 OTHER_EDIT_DATE_2004.03_XRND eflOr8_3 OTHER_EDIT_DATE_2005.01_XRND eflOr9_1 OTHER_EDIT_DATE_2005.02_XRND eflOr9_2 OTHER_EDIT_DATE_2006.01_XRND eflOr10_1 OTHER_EDIT_DATE_2006.02_XRND eflOr10_2 OTHER_EDIT_DATE_2006.03_XRND eflOr10_3 OTHER_EDIT_DATE_2007.01_XRND eflOr11_1 OTHER_EDIT_DATE_2007.02_XRND eflOr11_2 OTHER_EDIT_DATE_2007.03_XRND eflOr11_3 OTHER_EDIT_DATE_2008.01_XRND eflOr12_1 OTHER_EDIT_DATE_2008.02_XRND eflOr12_2 OTHER_EDIT_DATE_2008.03_XRND eflOr12_3 OTHER_EDIT_DATE_2009.01_XRND eflOr13_1 OTHER_EDIT_DATE_2009.02_XRND eflOr13_2 OTHER_EDIT_DATE_2010.01_XRND eflOr14_1 WIC_START_MONTH_1997.01_XRND csmWr1_1 WIC_START_MONTH_1997.02_XRND csmWr1_2 WIC_START_MONTH_1997.03_XRND csmWr1_3 WIC_START_MONTH_1998.01_XRND csmWr2_1 WIC_START_MONTH_1998.02_XRND csmWr2_2 WIC_START_MONTH_1998.03_XRND csmWr2_3 WIC_START_MONTH_1999.01_XRND csmWr3_1 WIC_START_MONTH_1999.02_XRND csmWr3_2 WIC_START_MONTH_2000.01_XRND csmWr4_1 WIC_START_MONTH_2000.02_XRND csmWr4_2 WIC_START_MONTH_2000.03_XRND csmWr4_3 WIC_START_MONTH_2001.01_XRND csmWr5_1 WIC_START_MONTH_2001.02_XRND csmWr5_2 WIC_START_MONTH_2001.03_XRND csmWr5_3 WIC_START_MONTH_2002.01_XRND csmWr6_1 WIC_START_MONTH_2002.02_XRND csmWr6_2 WIC_START_MONTH_2002.03_XRND csmWr6_3 WIC_START_MONTH_2003.01_XRND csmWr7_1 WIC_START_MONTH_2003.02_XRND csmWr7_2 WIC_START_MONTH_2003.03_XRND csmWr7_3 WIC_START_MONTH_2003.04_XRND csmWr7_4 WIC_START_MONTH_2004.01_XRND csmWr8_1 WIC_START_MONTH_2004.02_XRND csmWr8_2 WIC_START_MONTH_2004.03_XRND csmWr8_3 WIC_START_MONTH_2004.04_XRND csmWr8_4 WIC_START_MONTH_2005.01_XRND csmWr9_1 WIC_START_MONTH_2005.02_XRND csmWr9_2 WIC_START_MONTH_2005.03_XRND csmWr9_3 WIC_START_MONTH_2006.01_XRND csmWr10_1 WIC_START_MONTH_2006.02_XRND csmWr10_2 WIC_START_MONTH_2006.03_XRND csmWr10_3 WIC_START_MONTH_2007.01_XRND csmWr11_1 WIC_START_MONTH_2007.02_XRND csmWr11_2 WIC_START_MONTH_2008.01_XRND csmWr12_1 WIC_START_MONTH_2008.02_XRND csmWr12_2 WIC_START_MONTH_2009.01_XRND csmWr13_1 WIC_START_MONTH_2009.02_XRND csmWr13_2 WIC_START_MONTH_2009.03_XRND csmWr13_3 WIC_START_MONTH_2010.01_XRND csmWr14_1 WIC_START_MONTH_2010.02_XRND csmWr14_2 WIC_START_MONTH_2010.03_XRND csmWr14_3 WIC_START_MONTH_2010.04_XRND csmWr14_4 WIC_STOP_MONTH_1997.01_XRND cemWr1_1 WIC_STOP_MONTH_1997.02_XRND cemWr1_2 WIC_STOP_MONTH_1997.03_XRND cemWr1_3 WIC_STOP_MONTH_1998.01_XRND cemWr2_1 WIC_STOP_MONTH_1998.02_XRND cemWr2_2 WIC_STOP_MONTH_1998.03_XRND cemWr2_3 WIC_STOP_MONTH_1999.01_XRND cemWr3_1 WIC_STOP_MONTH_1999.02_XRND cemWr3_2 WIC_STOP_MONTH_2000.01_XRND cemWr4_1 WIC_STOP_MONTH_2000.02_XRND cemWr4_2 WIC_STOP_MONTH_2000.03_XRND cemWr4_3 WIC_STOP_MONTH_2001.01_XRND cemWr5_1 WIC_STOP_MONTH_2001.02_XRND cemWr5_2 WIC_STOP_MONTH_2001.03_XRND cemWr5_3 WIC_STOP_MONTH_2002.01_XRND cemWr6_1 WIC_STOP_MONTH_2002.02_XRND cemWr6_2 WIC_STOP_MONTH_2002.03_XRND cemWr6_3 WIC_STOP_MONTH_2003.01_XRND cemWr7_1 WIC_STOP_MONTH_2003.02_XRND cemWr7_2 WIC_STOP_MONTH_2003.03_XRND cemWr7_3 WIC_STOP_MONTH_2003.04_XRND cemWr7_4 WIC_STOP_MONTH_2004.01_XRND cemWr8_1 WIC_STOP_MONTH_2004.02_XRND cemWr8_2 WIC_STOP_MONTH_2004.03_XRND cemWr8_3 WIC_STOP_MONTH_2004.04_XRND cemWr8_4 WIC_STOP_MONTH_2005.01_XRND cemWr9_1 WIC_STOP_MONTH_2005.02_XRND cemWr9_2 WIC_STOP_MONTH_2005.03_XRND cemWr9_3 WIC_STOP_MONTH_2006.01_XRND cemWr10_1 WIC_STOP_MONTH_2006.02_XRND cemWr10_2 WIC_STOP_MONTH_2006.03_XRND cemWr10_3 WIC_STOP_MONTH_2007.01_XRND cemWr11_1 WIC_STOP_MONTH_2007.02_XRND cemWr11_2 WIC_STOP_MONTH_2008.01_XRND cemWr12_1 WIC_STOP_MONTH_2008.02_XRND cemWr12_2 WIC_STOP_MONTH_2009.01_XRND cemWr13_1 WIC_STOP_MONTH_2009.02_XRND cemWr13_2 WIC_STOP_MONTH_2009.03_XRND cemWr13_3 WIC_STOP_MONTH_2010.01_XRND cemWr14_1 WIC_STOP_MONTH_2010.02_XRND cemWr14_2 WIC_STOP_MONTH_2010.03_XRND cemWr14_3 WIC_STOP_MONTH_2010.04_XRND cemWr14_4 WIC_EDIT_AMT_1997.01_XRND aflWr1_1 WIC_EDIT_AMT_1997.02_XRND aflWr1_2 WIC_EDIT_AMT_1997.03_XRND aflWr1_3 WIC_EDIT_AMT_1998.01_XRND aflWr2_1 WIC_EDIT_AMT_1998.02_XRND aflWr2_2 WIC_EDIT_AMT_1998.03_XRND aflWr2_3 WIC_EDIT_AMT_1999.01_XRND aflWr3_1 WIC_EDIT_AMT_1999.02_XRND aflWr3_2 WIC_EDIT_AMT_2000.01_XRND aflWr4_1 WIC_EDIT_AMT_2000.02_XRND aflWr4_2 WIC_EDIT_AMT_2000.03_XRND aflWr4_3 WIC_EDIT_AMT_2001.01_XRND aflWr5_1 WIC_EDIT_AMT_2001.02_XRND aflWr5_2 WIC_EDIT_AMT_2001.03_XRND aflWr5_3 WIC_EDIT_AMT_2002.01_XRND aflWr6_1 WIC_EDIT_AMT_2002.02_XRND aflWr6_2 WIC_EDIT_AMT_2002.03_XRND aflWr6_3 WIC_EDIT_AMT_2003.01_XRND aflWr7_1 WIC_EDIT_AMT_2003.02_XRND aflWr7_2 WIC_EDIT_AMT_2003.03_XRND aflWr7_3 WIC_EDIT_AMT_2003.04_XRND aflWr7_4 WIC_EDIT_AMT_2004.01_XRND aflWr8_1 WIC_EDIT_AMT_2004.02_XRND aflWr8_2 WIC_EDIT_AMT_2004.03_XRND aflWr8_3 WIC_EDIT_AMT_2004.04_XRND aflWr8_4 WIC_EDIT_AMT_2005.01_XRND aflWr9_1 WIC_EDIT_AMT_2005.02_XRND aflWr9_2 WIC_EDIT_AMT_2005.03_XRND aflWr9_3 WIC_EDIT_AMT_2006.01_XRND aflWr10_1 WIC_EDIT_AMT_2006.02_XRND aflWr10_2 WIC_EDIT_AMT_2006.03_XRND aflWr10_3 WIC_EDIT_AMT_2007.01_XRND aflWr11_1 WIC_EDIT_AMT_2007.02_XRND aflWr11_2 WIC_EDIT_AMT_2008.01_XRND aflWr12_1 WIC_EDIT_AMT_2008.02_XRND aflWr12_2 WIC_EDIT_AMT_2009.01_XRND aflWr13_1 WIC_EDIT_AMT_2009.02_XRND aflWr13_2 WIC_EDIT_AMT_2009.03_XRND aflWr13_3 WIC_EDIT_AMT_2010.01_XRND aflWr14_1 WIC_EDIT_AMT_2010.02_XRND aflWr14_2 WIC_EDIT_AMT_2010.03_XRND aflWr14_3 WIC_EDIT_AMT_2010.04_XRND aflWr14_4 WIC_EDIT_DATE_1997.01_XRND eflWr1_1 WIC_EDIT_DATE_1997.02_XRND eflWr1_2 WIC_EDIT_DATE_1997.03_XRND eflWr1_3 WIC_EDIT_DATE_1998.01_XRND eflWr2_1 WIC_EDIT_DATE_1998.02_XRND eflWr2_2 WIC_EDIT_DATE_1998.03_XRND eflWr2_3 WIC_EDIT_DATE_1999.01_XRND eflWr3_1 WIC_EDIT_DATE_1999.02_XRND eflWr3_2 WIC_EDIT_DATE_2000.01_XRND eflWr4_1 WIC_EDIT_DATE_2000.02_XRND eflWr4_2 WIC_EDIT_DATE_2000.03_XRND eflWr4_3 WIC_EDIT_DATE_2001.01_XRND eflWr5_1 WIC_EDIT_DATE_2001.02_XRND eflWr5_2 WIC_EDIT_DATE_2001.03_XRND eflWr5_3 WIC_EDIT_DATE_2002.01_XRND eflWr6_1 WIC_EDIT_DATE_2002.02_XRND eflWr6_2 WIC_EDIT_DATE_2002.03_XRND eflWr6_3 WIC_EDIT_DATE_2003.01_XRND eflWr7_1 WIC_EDIT_DATE_2003.02_XRND eflWr7_2 WIC_EDIT_DATE_2003.03_XRND eflWr7_3 WIC_EDIT_DATE_2003.04_XRND eflWr7_4 WIC_EDIT_DATE_2004.01_XRND eflWr8_1 WIC_EDIT_DATE_2004.02_XRND eflWr8_2 WIC_EDIT_DATE_2004.03_XRND eflWr8_3 WIC_EDIT_DATE_2004.04_XRND eflWr8_4 WIC_EDIT_DATE_2005.01_XRND eflWr9_1 WIC_EDIT_DATE_2005.02_XRND eflWr9_2 WIC_EDIT_DATE_2005.03_XRND eflWr9_3 WIC_EDIT_DATE_2006.01_XRND eflWr10_1 WIC_EDIT_DATE_2006.02_XRND eflWr10_2 WIC_EDIT_DATE_2006.03_XRND eflWr10_3 WIC_EDIT_DATE_2007.01_XRND eflWr11_1 WIC_EDIT_DATE_2007.02_XRND eflWr11_2 WIC_EDIT_DATE_2008.01_XRND eflWr12_1 WIC_EDIT_DATE_2008.02_XRND eflWr12_2 WIC_EDIT_DATE_2009.01_XRND eflWr13_1 WIC_EDIT_DATE_2009.02_XRND eflWr13_2 WIC_EDIT_DATE_2009.03_XRND eflWr13_3 WIC_EDIT_DATE_2010.01_XRND eflWr14_1 WIC_EDIT_DATE_2010.02_XRND eflWr14_2 WIC_EDIT_DATE_2010.03_XRND eflWr14_3 WIC_EDIT_DATE_2010.04_XRND eflWr14_4 PUBID_1997 PUBID KEY!SEX_1997 SEX KEY!BDATE_M_1997 BDATEM KEY!BDATE_Y_1997 BDATEY CV_INTERVIEW_DATE_M_1997 CV_INTERVIEW_DATE_M_1997 CV_INTERVIEW_DATE_Y_1997 CV_INTERVIEW_DATE_Y_1997 CV_SAMPLE_TYPE_1997 CV_SAMPLE_TYPE_1997 KEY!RACE_ETHNICITY_1997 RACE_ETHNICITY_1997 PUBID_1998 PUBID_1998 CV_INTERVIEW_DATE~M_1998 CV_INTERVIEW_DATE_M_1998 CV_INTERVIEW_DATE~Y_1998 CV_INTERVIEW_DATE_Y_1998 PUBID_1999 PUBID_1999 CV_INTERVIEW_DATE~M_1999 CV_INTERVIEW_DATE_M_1999 CV_INTERVIEW_DATE~Y_1999 CV_INTERVIEW_DATE_Y_1999 PUBID_2000 PUBID_2000 CV_INTERVIEW_DATE~M_2000 CV_INTERVIEW_DATE_M_2000 CV_INTERVIEW_DATE~Y_2000 CV_INTERVIEW_DATE_Y_2000 PUBID_2001 PUBID_2001 CV_INTERVIEW_DATE~M_2001 CV_INTERVIEW_DATE_M_2001 CV_INTERVIEW_DATE~Y_2001 CV_INTERVIEW_DATE_Y_2001 PUBID_2002 PUBID_2002 CV_INTERVIEW_DATE~M_2002 CV_INTERVIEW_DATE_M_2002 CV_INTERVIEW_DATE~Y_2002 CV_INTERVIEW_DATE_Y_2002 CV_INTERVIEW_DATE~M_2003 CV_INTERVIEW_DATE_M_2003 CV_INTERVIEW_DATE~Y_2003 CV_INTERVIEW_DATE_Y_2003 PUBID_2003 PUBID_2003 CV_INTERVIEW_DATE~M_2004 CV_INTERVIEW_DATE_M_2004 CV_INTERVIEW_DATE~Y_2004 CV_INTERVIEW_DATE_Y_2004 PUBID_2004 PUBID_2004 CV_INTERVIEW_DATE~M_2005 CV_INTERVIEW_DATE_M_2005 CV_INTERVIEW_DATE~Y_2005 CV_INTERVIEW_DATE_Y_2005 PUBID_2005 PUBID_2005 CV_INTERVIEW_DATE~M_2006 CV_INTERVIEW_DATE_M_2006 CV_INTERVIEW_DATE~Y_2006 CV_INTERVIEW_DATE_Y_2006 PUBID_2006 PUBID_2006 CV_INTERVIEW_DATE~M_2007 CV_INTERVIEW_DATE_M_2007 CV_INTERVIEW_DATE~Y_2007 CV_INTERVIEW_DATE_Y_2007 PUBID_2007 PUBID_2007 CV_INTERVIEW_DATE~M_2008 CV_INTERVIEW_DATE_M_2008 CV_INTERVIEW_DATE~Y_2008 CV_INTERVIEW_DATE_Y_2008 PUBID_2008 PUBID_2008 CV_INTERVIEW_DATE~M_2009 CV_INTERVIEW_DATE_M_2009 CV_INTERVIEW_DATE~Y_2009 CV_INTERVIEW_DATE_Y_2009 PUBID_2009 PUBID_2009 CV_INTERVIEW_DATE~M_2010 CV_INTERVIEW_DATE_M_2010 CV_INTERVIEW_DATE~Y_2010 CV_INTERVIEW_DATE_Y_2010 PUBID_2010 PUBID_2010 CVC_GOVNT_PRG_YR.00_XRND CVC_GOVNT_PRG_YR_2000 CVC_GOVNT_PRG_YR.01_XRND CVC_GOVNT_PRG_YR_2001 CVC_GOVNT_PRG_YR.02_XRND CVC_GOVNT_PRG_YR_2002 CVC_GOVNT_PRG_YR.03_XRND CVC_GOVNT_PRG_YR_2003 CVC_GOVNT_PRG_YR.04_XRND CVC_GOVNT_PRG_YR_2004 CVC_GOVNT_PRG_YR.05_XRND CVC_GOVNT_PRG_YR_2005 CVC_GOVNT_PRG_YR.06_XRND CVC_GOVNT_PRG_YR_2006 CVC_GOVNT_PRG_YR.07_XRND CVC_GOVNT_PRG_YR_2007 CVC_GOVNT_PRG_YR.08_XRND CVC_GOVNT_PRG_YR_2008 CVC_GOVNT_PRG_YR.09_XRND CVC_GOVNT_PRG_YR_2009 CVC_GOVNT_PRG_YR.80_XRND CVC_GOVNT_PRG_YR_1980 CVC_GOVNT_PRG_YR.81_XRND CVC_GOVNT_PRG_YR_1981 CVC_GOVNT_PRG_YR.82_XRND CVC_GOVNT_PRG_YR_1982 CVC_GOVNT_PRG_YR.83_XRND CVC_GOVNT_PRG_YR_1983 CVC_GOVNT_PRG_YR.84_XRND CVC_GOVNT_PRG_YR_1984 CVC_GOVNT_PRG_YR.85_XRND CVC_GOVNT_PRG_YR_1985 CVC_GOVNT_PRG_YR.86_XRND CVC_GOVNT_PRG_YR_1986 CVC_GOVNT_PRG_YR.87_XRND CVC_GOVNT_PRG_YR_1987 CVC_GOVNT_PRG_YR.88_XRND CVC_GOVNT_PRG_YR_1988 CVC_GOVNT_PRG_YR.89_XRND CVC_GOVNT_PRG_YR_1989 CVC_GOVNT_PRG_YR.90_XRND CVC_GOVNT_PRG_YR_1990 CVC_GOVNT_PRG_YR.91_XRND CVC_GOVNT_PRG_YR_1991 CVC_GOVNT_PRG_YR.92_XRND CVC_GOVNT_PRG_YR_1992 CVC_GOVNT_PRG_YR.93_XRND CVC_GOVNT_PRG_YR_1993 CVC_GOVNT_PRG_YR.94_XRND CVC_GOVNT_PRG_YR_1994 CVC_GOVNT_PRG_YR.95_XRND CVC_GOVNT_PRG_YR_1995 CVC_GOVNT_PRG_YR.96_XRND CVC_GOVNT_PRG_YR_1996 CVC_GOVNT_PRG_YR.97_XRND CVC_GOVNT_PRG_YR_1997 CVC_GOVNT_PRG_YR.98_XRND CVC_GOVNT_PRG_YR_1998 CVC_GOVNT_PRG_YR.99_XRND CVC_GOVNT_PRG_YR_1999 CVC_GOVNT_PRG_EVER_XRND CVC_GOVNT_PRG_EVER CVC_AMT_GOVNT_PRG_YR.00_XRND CVC_AMT_GOVNT_PRG_YR_2000 CVC_AMT_GOVNT_PRG_YR.01_XRND CVC_AMT_GOVNT_PRG_YR_2001 CVC_AMT_GOVNT_PRG_YR.02_XRND CVC_AMT_GOVNT_PRG_YR_2002 CVC_AMT_GOVNT_PRG_YR.03_XRND CVC_AMT_GOVNT_PRG_YR_2003 CVC_AMT_GOVNT_PRG_YR.04_XRND CVC_AMT_GOVNT_PRG_YR_2004 CVC_AMT_GOVNT_PRG_YR.05_XRND CVC_AMT_GOVNT_PRG_YR_2005 CVC_AMT_GOVNT_PRG_YR.06_XRND CVC_AMT_GOVNT_PRG_YR_2006 CVC_AMT_GOVNT_PRG_YR.07_XRND CVC_AMT_GOVNT_PRG_YR_2007 CVC_AMT_GOVNT_PRG_YR.08_XRND CVC_AMT_GOVNT_PRG_YR_2008 CVC_AMT_GOVNT_PRG_YR.09_XRND CVC_AMT_GOVNT_PRG_YR_2009 CVC_AMT_GOVNT_PRG_YR.80_XRND CVC_AMT_GOVNT_PRG_YR_1980 CVC_AMT_GOVNT_PRG_YR.81_XRND CVC_AMT_GOVNT_PRG_YR_1981 CVC_AMT_GOVNT_PRG_YR.82_XRND CVC_AMT_GOVNT_PRG_YR_1982 CVC_AMT_GOVNT_PRG_YR.83_XRND CVC_AMT_GOVNT_PRG_YR_1983 CVC_AMT_GOVNT_PRG_YR.84_XRND CVC_AMT_GOVNT_PRG_YR_1984 CVC_AMT_GOVNT_PRG_YR.85_XRND CVC_AMT_GOVNT_PRG_YR_1985 CVC_AMT_GOVNT_PRG_YR.86_XRND CVC_AMT_GOVNT_PRG_YR_1986 CVC_AMT_GOVNT_PRG_YR.87_XRND CVC_AMT_GOVNT_PRG_YR_1987 CVC_AMT_GOVNT_PRG_YR.88_XRND CVC_AMT_GOVNT_PRG_YR_1988 CVC_AMT_GOVNT_PRG_YR.89_XRND CVC_AMT_GOVNT_PRG_YR_1989 CVC_AMT_GOVNT_PRG_YR.90_XRND CVC_AMT_GOVNT_PRG_YR_1990 CVC_AMT_GOVNT_PRG_YR.91_XRND CVC_AMT_GOVNT_PRG_YR_1991 CVC_AMT_GOVNT_PRG_YR.92_XRND CVC_AMT_GOVNT_PRG_YR_1992 CVC_AMT_GOVNT_PRG_YR.93_XRND CVC_AMT_GOVNT_PRG_YR_1993 CVC_AMT_GOVNT_PRG_YR.94_XRND CVC_AMT_GOVNT_PRG_YR_1994 CVC_AMT_GOVNT_PRG_YR.95_XRND CVC_AMT_GOVNT_PRG_YR_1995 CVC_AMT_GOVNT_PRG_YR.96_XRND CVC_AMT_GOVNT_PRG_YR_1996 CVC_AMT_GOVNT_PRG_YR.97_XRND CVC_AMT_GOVNT_PRG_YR_1997 CVC_AMT_GOVNT_PRG_YR.98_XRND CVC_AMT_GOVNT_PRG_YR_1998 CVC_AMT_GOVNT_PRG_YR.99_XRND CVC_AMT_GOVNT_PRG_YR_1999 ******************************************************************************************************/ options nocenter nolabel linesize=100 pagesize=85 mlogic mprint msglevel=i; libname pin15 '\\chrr\nls\Profiles\xangerer\My Documents\R15\PRG'; %let cur_year=2012; %let cur_cm=396; %let cur_dim=33; %let last_year=2011; %let last_dim=32; /************************************************************** Create dataset for those interviewed for program participation ************************************************************ */ data int ; merge pin15.in_C_prgR15 pin15.in_P_prgR15 pin15.in_p1210; by pubid; if (p1210=1 & YPRGA_R13CHECK=0) or p1210=0; /* arrays for checking */ array dtps (*) dtps1-dtps10; array dtp1 (*) dtpa1 dtpw1 dtpf1 dtpo1; array dtp2 (*) dtpa2 dtpw2 dtpf2 dtpo2; array dtp3 (*) dtpa3 dtpw3 dtpf3 dtpo3; array dtp4 (*) dtpa4 dtpw4 dtpf4 dtpo4; array dtp5 (*) dtpa5 dtpw5 dtpf5 dtpo5; array dtp6 (*) dtpa6 dtpw6 dtpf6 dtpo6; array dtp7 (*) dtpa7 dtpw7 dtpf7 dtpo7; array dtp8 (*) dtpa8 dtpw8 dtpf8 dtpo8; array dtp9 (4) dtpa9 dtpw9 dtpf9 dtpo9; array dtp10 (4) dtpa10 dtpw10 dtpf10 dtpo10; array dtp11 (4) dtpa11 dtpw11 dtpf11 dtpo11; array dtp22 (4,8) dtp2a11-dtp2a14 dtp2a21-dtp2a24 dtp2w11-dtp2w14 dtp2w21-dtp2w24 dtp2f11-dtp2f14 dtp2f21-dtp2f24 dtp2o11-dtp2o14 dtp2o21-dtp2o24; array dtp33 (4,8) dtp3a11-dtp3a14 dtp3a21-dtp3a24 dtp3w11-dtp3w14 dtp3w21-dtp3w24 dtp3f11-dtp3f14 dtp3f21-dtp3f24 dtp3o11-dtp3o14 dtp3o21-dtp3o24; array dtp99 (4,8) dtp10a11-dtp10a14 dtp10a21-dtp10a24 dtp10w11-dtp10w14 dtp10w21-dtp10w24 dtp10f11-dtp10f14 dtp10f21-dtp10f24 dtp10o11-dtp10o14 dtp10o21-dtp10o24; /* initialize arrays to zero */ do i=1 to dim(dtps); dtps(i)=0; end; do p=1 to 4; dtp1(p)=0; dtp2(p)=0; dtp3(p)=0; dtp4(p)=0; dtp5(p)=0; dtp6(p)=0; dtp7(p)=0; dtp8(p)=0; dtp9(p)=0; dtp10(p)=0;dtp11(p)=0; do q=1 to 8; dtp22(p,q)=0; dtp33(p,q)=0; dtp99(p,q)=0; end; end; /* Note: Abbreviations used in this program are as follows: DLI - Date of last interview DCI - Date of current interview SDLI - Since date of last interview NVPR - Never Prior - NVPR CMS - Continuous month scheme AFDC - Aid to Families with Dependent Children WIC - Women, Infants and Children FST - Food Stamps OTH - Other Assistance CV - Created Variables; */ /********************************************** PART I ***********************************************/ /* Define all the arrays used in this program */ /******************************************************************************************************/ /* (1) Created Variables; */ array GPR GPR1980 - GPR2009; array GPA GPA1980 - GPA2009; /* (2) Information from prior rounds; */ array intmR (*) CV_INTERVIEW_DATE_M_1997 - CV_INTERVIEW_DATE_M_2009; array intyR (*) CV_INTERVIEW_DATE_Y_1997 - CV_INTERVIEW_DATE_Y_2009; array cvcgpr CVC_GOVNT_PRG_YR_1980 - CVC_GOVNT_PRG_YR_2009; array cvcgpa CVC_AMT_GOVNT_PRG_YR_1980 - CVC_AMT_GOVNT_PRG_YR_2009; /* start date for each spell; */ array csmR (12,4,4) csmaR1_1 -csmaR1_4 csmwR1_1 -csmwR1_4 csmfR1_1 -csmfR1_4 csmoR1_1 -csmoR1_4 csmaR2_1 -csmaR2_4 csmwR2_1 -csmwR2_4 csmfR2_1 -csmfR2_4 csmoR2_1 -csmoR2_4 csmaR3_1 -csmaR3_4 csmwR3_1 -csmwR3_4 csmfR3_1 -csmfR3_4 csmoR3_1 -csmoR3_4 csmaR4_1 -csmaR4_4 csmwR4_1 -csmwR4_4 csmfR4_1 -csmfR4_4 csmoR4_1 -csmoR4_4 csmaR5_1 -csmaR5_4 csmwR5_1 -csmwR5_4 csmfR5_1 -csmfR5_4 csmoR5_1 -csmoR5_4 csmaR6_1 -csmaR6_4 csmwR6_1 -csmwR6_4 csmfR6_1 -csmfR6_4 csmoR6_1 -csmoR6_4 csmaR7_1 -csmaR7_4 csmwR7_1 -csmwR7_4 csmfR7_1 -csmfR7_4 csmoR7_1 -csmoR7_4 csmaR8_1 -csmaR8_4 csmwR8_1 -csmwR8_4 csmfR8_1 -csmfR8_4 csmoR8_1 -csmoR8_4 csmaR9_1 -csmaR9_4 csmwR9_1 -csmwR9_4 csmfR9_1 -csmfR9_4 csmoR9_1 -csmoR9_4 csmaR10_1-csmaR10_4 csmwR10_1-csmwR10_4 csmfR10_1-csmfR10_4 csmoR10_1-csmoR10_4 csmaR11_1-csmaR11_4 csmwR11_1-csmwR11_4 csmfR11_1-csmfR11_4 csmoR11_1-csmoR11_4 csmaR12_1-csmaR12_4 csmwR12_1-csmwR12_4 csmfR12_1-csmfR12_4 csmoR12_1-csmoR12_4 ; /* stop date for each spell; */ array cemR (12,4,4) cemaR1_1 -cemaR1_4 cemwR1_1 -cemwR1_4 cemfR1_1 -cemfR1_4 cemoR1_1 -cemoR1_4 cemaR2_1 -cemaR2_4 cemwR2_1 -cemwR2_4 cemfR2_1 -cemfR2_4 cemoR2_1 -cemoR2_4 cemaR3_1 -cemaR3_4 cemwR3_1 -cemwR3_4 cemfR3_1 -cemfR3_4 cemoR3_1 -cemoR3_4 cemaR4_1 -cemaR4_4 cemwR4_1 -cemwR4_4 cemfR4_1 -cemfR4_4 cemoR4_1 -cemoR4_4 cemaR5_1 -cemaR5_4 cemwR5_1 -cemwR5_4 cemfR5_1 -cemfR5_4 cemoR5_1 -cemoR5_4 cemaR6_1 -cemaR6_4 cemwR6_1 -cemwR6_4 cemfR6_1 -cemfR6_4 cemoR6_1 -cemoR6_4 cemaR7_1 -cemaR7_4 cemwR7_1 -cemwR7_4 cemfR7_1 -cemfR7_4 cemoR7_1 -cemoR7_4 cemaR8_1 -cemaR8_4 cemwR8_1 -cemwR8_4 cemfR8_1 -cemfR8_4 cemoR8_1 -cemoR8_4 cemaR9_1 -cemaR9_4 cemwR9_1 -cemwR9_4 cemfR9_1 -cemfR9_4 cemoR9_1 -cemoR9_4 cemaR10_1-cemaR10_4 cemwR10_1-cemwR10_4 cemfR10_1-cemfR10_4 cemoR10_1-cemoR10_4 cemaR11_1-cemaR11_4 cemwR11_1-cemwR11_4 cemfR11_1-cemfR11_4 cemoR11_1-cemoR11_4 cemaR12_1-cemaR12_4 cemwR12_1-cemwR12_4 cemfR12_1-cemfR12_4 cemoR12_1-cemoR12_4 ; /* edit flag for dates for each spell; */ array eflR (12,4,4) eflaR1_1 -eflaR1_4 eflwR1_1 -eflwR1_4 eflfR1_1 -eflfR1_4 efloR1_1 -efloR1_4 eflaR2_1 -eflaR2_4 eflwR2_1 -eflwR2_4 eflfR2_1 -eflfR2_4 efloR2_1 -efloR2_4 eflaR3_1 -eflaR3_4 eflwR3_1 -eflwR3_4 eflfR3_1 -eflfR3_4 efloR3_1 -efloR3_4 eflaR4_1 -eflaR4_4 eflwR4_1 -eflwR4_4 eflfR4_1 -eflfR4_4 efloR4_1 -efloR4_4 eflaR5_1 -eflaR5_4 eflwR5_1 -eflwR5_4 eflfR5_1 -eflfR5_4 efloR5_1 -efloR5_4 eflaR6_1 -eflaR6_4 eflwR6_1 -eflwR6_4 eflfR6_1 -eflfR6_4 efloR6_1 -efloR6_4 eflaR7_1 -eflaR7_4 eflwR7_1 -eflwR7_4 eflfR7_1 -eflfR7_4 efloR7_1 -efloR7_4 eflaR8_1 -eflaR8_4 eflwR8_1 -eflwR8_4 eflfR8_1 -eflfR8_4 efloR8_1 -efloR8_4 eflaR9_1 -eflaR9_4 eflwR9_1 -eflwR9_4 eflfR9_1 -eflfR9_4 efloR9_1 -efloR9_4 eflaR10_1-eflaR10_4 eflwR10_1-eflwR10_4 eflfR10_1-eflfR10_4 efloR10_1-efloR10_4 eflaR11_1-eflaR11_4 eflwR11_1-eflwR11_4 eflfR11_1-eflfR11_4 efloR11_1-efloR11_4 eflaR12_1-eflaR12_4 eflwR12_1-eflwR12_4 eflfR12_1-eflfR12_4 efloR12_1-efloR12_4 ; /* edit flag for amounts for each spell; */ array aflR (12,4,4) aflaR1_1 -aflaR1_4 aflwR1_1 -aflwR1_4 aflfR1_1 -aflfR1_4 afloR1_1 -afloR1_4 aflaR2_1 -aflaR2_4 aflwR2_1 -aflwR2_4 aflfR2_1 -aflfR2_4 afloR2_1 -afloR2_4 aflaR3_1 -aflaR3_4 aflwR3_1 -aflwR3_4 aflfR3_1 -aflfR3_4 afloR3_1 -afloR3_4 aflaR4_1 -aflaR4_4 aflwR4_1 -aflwR4_4 aflfR4_1 -aflfR4_4 afloR4_1 -afloR4_4 aflaR5_1 -aflaR5_4 aflwR5_1 -aflwR5_4 aflfR5_1 -aflfR5_4 afloR5_1 -afloR5_4 aflaR6_1 -aflaR6_4 aflwR6_1 -aflwR6_4 aflfR6_1 -aflfR6_4 afloR6_1 -afloR6_4 aflaR7_1 -aflaR7_4 aflwR7_1 -aflwR7_4 aflfR7_1 -aflfR7_4 afloR7_1 -afloR7_4 aflaR8_1 -aflaR8_4 aflwR8_1 -aflwR8_4 aflfR8_1 -aflfR8_4 afloR8_1 -afloR8_4 aflaR9_1 -aflaR9_4 aflwR9_1 -aflwR9_4 aflfR9_1 -aflfR9_4 afloR9_1 -afloR9_4 aflaR10_1-aflaR10_4 aflwR10_1-aflwR10_4 aflfR10_1-aflfR10_4 afloR10_1-afloR10_4 aflaR11_1-aflaR11_4 aflwR11_1-aflwR11_4 aflfR11_1-aflfR11_4 afloR11_1-afloR11_4 aflaR12_1-aflaR12_4 aflwR12_1-aflwR12_4 aflfR12_1-aflfR12_4 afloR12_1-afloR12_4 ; /* (3) Intermediate variables - latest created variables available from prior rounds.; */ /* ogpev - no. of months ever received.;*/ /* no. of months recd., yearly;*/ array ogpr ogpr1980 - ogpr2009; /* amount recd., yearly; */ array ogpa ogpa1980 - ogpa2009; /* start date;*/ array ocsm (4) ocsma ocsmw ocsmf ocsmo; /* stop date; */ array ocem (4) ocema ocemw ocemf ocemo; /* edit flag for dates; */ array oefl (4) oefla oeflw oeflf oeflo; /* edit flag for amounts; */ array oafl (4) oafla oaflw oaflf oaflo; /* (4) (Raw data) Information available from current round.; */ /* START YEAR information;*/ array ys (4,8) ps35800y1-ps35800y4 p16700y1-p16700y4 ps22000y1-ps22000y4 p22000y1-p22000y4 ps19100y1-ps19100y4 p19400y1-p19400y4 ps31000y1-ps31000y4 p31000y1-p31000y4; /* START MONTH information; */ array ms (4,8) ps35800m1-ps35800m4 p16700m1-p16700m4 ps22000m1-ps22000m4 p22000m1-p22000m4 ps19100m1-ps19100m4 p19400m1-p19400m4 ps31000m1-ps31000m4 p31000m1-p31000m4; /* END YEAR information */ array ye (4,8) ps35840y1-ps35840y4 p17200y1-p17200y4 ps22600y1-ps22600y4 p22600y1-p22600y4 ps20000y1-ps20000y4 p20000y1-p20000y4 ps31600y1-ps31600y4 p31600y1-p31600y4; /* END MONTH information; */ array me (4,8) ps35840m1-ps35840m4 p17200m1-p17200m4 ps22600m1-ps22600m4 p22600m1-p22600m4 ps20000m1-ps20000m4 p20000m1-p20000m4 ps31600m1-ps31600m4 p31600m1-p31600m4; /* CURRENTLY RECEIVING information - NO GAPS; */ array cur (4,8) ps359501-ps359504 p169001-p169004 ps23700a1-ps23700a4 p222001-p222004 ps21100a1-ps21100a4 p196001-p196004 ps32700a1-ps32700a4 p312001-p312004; /* CURRENTLY RECEIVING information - RETRO;*/ array cwks (4,8) ps35740 ps35740 ps35740 ps35740 p16200 p16200 p16200 p16200 ps21430 ps21430 ps21430 ps21430 p21500 p21500 p21500 p21500 ps16410 ps16410 ps16410 ps16410 p18900 p18900 p18900 p18900 ps36120 ps36120 ps36120 ps36120 p30500 p30500 p30500 p30500; /* PERSON was RECEIVING AT DLI, chk;*/ array dli (4,8) ps357901 duma2-duma8 ps21900a1 dumw2-dumw8 ps19063a1 dumf2-dumf8 ps30900a1 dumo2-dumo8; /* AMOUNT RECEIVED - ACTUAL; */ array incm (4,8) ps359001-ps359004 p181001-p181004 ps233001-ps233004 p233001-p233004 ps207001-ps207004 p207001-p207004 ps323001-ps323004 p323001-p323004; /* AMOUNT RECEIVED - ESTIMATED*/ array eincm (4,8) ps359101-ps359104 p182001-p182004 ps234001-ps234004 p234001-p234004 ps208001-ps208004 p208001-p208004 ps324001-ps324004 p324001-p324004; /* ESTIMATED WEEKS - unable to answer start or stop quex; */ array wks (4,8) ps358601-ps358604 p175001-p175004 ps228001-ps228004 p228001-p228004 ps202001-ps202004 p202001-p202004 ps318001-ps318004 p318001-p318004; /* STOPPED FOR 1+ MONTHS.; */ array stpgp (4,8) ps358301-ps358304 p170001-p170004 ps223001-ps223004 p223001-p223004 ps197001-ps197004 p197001-p197004 ps313001-ps313004 p313001-p313004; /* RECEIVE AGAIN? */ array recag (4,8) ps359601-ps359604 p186001-p186004 ps238001-ps238004 p238001-p238004 ps212001-ps212004 p212001-p212004 ps329001-ps329004 p329001-p329004; /* PERSON RECEIVING, R; */ array rcvr (4,8) ps35920r_1-ps35920r_4 p18300r_1-p18300r_4 ps23500r_1-ps23500r_4 p23500r_1-p23500r_4 ps20900r_1-ps20900r_4 p20900r_1-p20900r_4 ps32500r_1-ps32500r_4 p32500r_1-p32500r_4; /* PERSON RECEIVING, SPOUSE; */ array rcvs (4,8) ps35920s_1-ps35920s_4 p18300s_1-p18300s_4 ps23500s_1-ps23500s_4 p23500s_1-p23500s_4 ps20900s_1-ps20900s_4 p20900s_1-p20900s_4 ps32500s_1-ps32500s_4 p32500s_1-p32500s_4; /* PERSON RECEIVING, CHILD; */ array rcvc (4,8) ps35920c_1-ps35920c_4 p18300c_1-p18300c_4 ps23500c_1-ps23500c_4 p23500c_1-p23500c_4 ps20900c_1-ps20900c_4 p20900c_1-p20900c_4 ps32500c_1-ps32500c_4 p32500c_1-p32500c_4; /* PERSON RECEIVING, FAMILY MEMBER;*/ array rcvf (4,8) ps35920l_1-ps35920l_4 p18300l_1-p18300l_4 ps23500l_1-ps23500l_4 p23500l_1-p23500l_4 ps20900l_1-ps20900l_4 p20900l_1-p20900l_4 ps32500l_1-ps32500l_4 p32500l_1-p32500l_4; /* PERSON RECEIVING, OTHER PERSON;*/ array rcvo (4,8) ps35920t_1-ps35920t_4 p18300t_1-p18300t_4 ps23500t_1-ps23500t_4 p23500t_1-p23500t_4 ps20900t_1-ps20900t_4 p20900t_1-p20900t_4 ps32500t_1-ps32500t_4 p32500t_1-p32500t_4; /* (5) Intermediate variables created based on information available from current round.; */ /* indicator for receipt, monthly.; * amount received, monthly.; * person receiving, monthly.; */ array AREC (&cur_cm.) AREC001-AREC&cur_cm.; array AAMT (&cur_cm.) AAMT001-AAMT&cur_cm.; array AHHM (&cur_cm.) AHHM001-AHHM&cur_cm.; array WREC (&cur_cm.) WREC001-WREC&cur_cm.; array WAMT (&cur_cm.) WAMT001-WAMT&cur_cm.; array WHHM (&cur_cm.) WHHM001-WHHM&cur_cm.; array FREC (&cur_cm.) FREC001-FREC&cur_cm.; array FAMT (&cur_cm.) FAMT001-FAMT&cur_cm.; array FHHM (&cur_cm.) FHHM001-FHHM&cur_cm.; array OREC (&cur_cm.) OREC001-OREC&cur_cm.; array OAMT (&cur_cm.) OAMT001-OAMT&cur_cm.; array OHHM (&cur_cm.) OHHM001-OHHM&cur_cm.; array ALLAMT (4,&cur_cm.) AAMT001-AAMT&cur_cm. WAMT001-WAMT&cur_cm. FAMT001-FAMT&cur_cm. OAMT001-OAMT&cur_cm.; array ALLREC (4,&cur_cm.) AREC001-AREC&cur_cm. WREC001-WREC&cur_cm. FREC001-FREC&cur_cm. OREC001-OREC&cur_cm.; array ALLHHM (4,&cur_cm.) AHHM001-AHHM&cur_cm. WHHM001-WHHM&cur_cm. FHHM001-FHHM&cur_cm. OHHM001-OHHM&cur_cm.; /* no. of months received, yearly.; */ array gm gm1980 - gm2009; /* amount received, yearly.; */ array gamt gamt1980 - gamt2009; /* no. of months with valid amounts.;*/ array ga ga1980 - ga2009; /* no. of months with invalid amounts.;*/ array gn gn1980 - gn2009; /* start date in YYYYMM scheme;*/ array yms (4,8) ymsa11-ymsa14 ymsa21-ymsa24 ymsw11-ymsw14 ymsw21-ymsw24 ymsf11-ymsf14 ymsf21-ymsf24 ymso11-ymso14 ymso21-ymso24; /* start date in CMS;*/ array csm (4,8) csma11-csma14 csma21-csma24 csmw11-csmw14 csmw21-csmw24 csmf11-csmf14 csmf21-csmf24 csmo11-csmo14 csmo21-csmo24; /* stop date in YYYYMM scheme;*/ array yme (4,8) ymea11-ymea14 ymea21-ymea24 ymew11-ymew14 ymew21-ymew24 ymef11-ymef14 ymef21-ymef24 ymeo11-ymeo14 ymeo21-ymeo24; /* stop date in CMS; */ array cem (4,8) cema11-cema14 cema21-cema24 cemw11-cemw14 cemw21-cemw24 cemf11-cemf14 cemf21-cemf24 cemo11-cemo14 cemo21-cemo24; /* amount received; */ array inc (4,8) inca11-inca14 inca21-inca24 incw11-incw14 incw21-incw24 incf11-incf14 incf21-incf24 inco11-inco14 inco21-inco24; /* person receiving dummy; */ array who (4,8) whoa11-whoa14 whoa21-whoa24 whow11-whow14 whow21-whow24 whof11-whof14 whof21-whof24 whoo11-whoo14 whoo21-whoo24; /* estimated months; */ array mos (4,8) mosa11-mosa14 mosa21-mosa24 mosw11-mosw14 mosw21-mosw24 mosf11-mosf14 mosf21-mosf24 moso11-moso14 moso21-moso24; /* start month; */ array nms (4,8) nmsa11-nmsa14 nmsa21-nmsa24 nmsw11-nmsw14 nmsw21-nmsw24 nmsf11-nmsf14 nmsf21-nmsf24 nmso11-nmso14 nmso21-nmso24; /* date flag; */ array efl (4,8) efla11-efla14 efla21-efla24 eflw11-eflw14 eflw21-eflw24 eflf11-eflf14 eflf21-eflf24 eflo11-eflo14 eflo21-eflo24; /* amount flag; */ array afl (4,8) afla11-afla14 afla21-afla24 aflw11-aflw14 aflw21-aflw24 aflf11-aflf14 aflf21-aflf24 aflo11-aflo14 aflo21-aflo24; /* date flag (when end date is before DLI); */ array nefl (4,8) nefla11-nefla14 nefla21-nefla24 neflw11-neflw14 neflw21-neflw24 neflf11-neflf14 neflf21-neflf24 neflo11-neflo14 neflo21-neflo24; /* age flag; */ array agfl (4,8) agfla11-agfla14 agfla21-agfla24 agflw11-agflw14 agflw21-agflw24 agflf11-agflf14 agflf21-agflf24 agflo11-agflo14 agflo21-agflo24; /*estimate week flag*/ array estck(4,8) esta11 -esta14 esta21 -esta24 estw11 -estw14 estw21 -estw24 estf11 -estf14 estf21 -estf24 esto11 -esto14 esto21 -esto24 ; /* (6) Variables created for use in checking the created variables.; */ /* To check for spells that ended before DLI.; */ array edli (4,8) edlia11-edlia14 edlia21-edlia24 edliw11-edliw14 edliw21-edliw24 edlif11-edlif14 edlif21-edlif24 edlio11-edlio14 edlio21-edlio24; /* date flag to be used for checking "efl"; */ array eflC (4,8) eflCa11-eflCa14 eflCa21-eflCa24 eflCw11-eflCw14 eflCw21-eflCw24 eflCf11-eflCf14 eflCf21-eflCf24 eflCo11-eflCo14 eflCo21-eflCo24; /* To check for spells that have start dates before end dates.; */ array rvdt (4,8) rvdta11-rvdta14 rvdta21-rvdta24 rvdtw11-rvdtw14 rvdtw21-rvdtw24 rvdtf11-rvdtf14 rvdtf21-rvdtf24 rvdto11-rvdto14 rvdto21-rvdto24; /* To check for spells that have start dates before end dates.; */ array dtms (4,8) dtmsa11-dtmsa14 dtmsa21-dtmsa24 dtmsw11-dtmsw14 dtmsw21-dtmsw24 dtmsf11-dtmsf14 dtmsf21-dtmsf24 dtmso11-dtmso14 dtmso21-dtmso24; /* temporary start date in CMS; */ array tcsm (4,8) tcsma11-tcsma14 tcsma21-tcsma24 tcsmw11-tcsmw14 tcsmw21-tcsmw24 tcsmf11-tcsmf14 tcsmf21-tcsmf24 tcsmo11-tcsmo14 tcsmo21-tcsmo24; /* temporary stop date in CMS; */ array tcem (4,8) tcema11-tcema14 tcema21-tcema24 tcemw11-tcemw14 tcemw21-tcemw24 tcemf11-tcemf14 tcemf21-tcemf24 tcemo11-tcemo14 tcemo21-tcemo24; /* temporary amount received; */ array tinc (4,8) tinca11-tinca14 tinca21-tinca24 tincw11-tincw14 tincw21-tincw24 tincf11-tincf14 tincf21-tincf24 tinco11-tinco14 tinco21-tinco24; /* temporary person receiving dummy; */ array twho (4,8) twhoa11-twhoa14 twhoa21-twhoa24 twhow11-twhow14 twhow21-twhow24 twhof11-twhof14 twhof21-twhof24 twhoo11-twhoo14 twhoo21-twhoo24; /* temporary date flag; */ array tefl (4,8) tefla11-tefla14 tefla21-tefla24 teflw11-teflw14 teflw21-teflw24 teflf11-teflf14 teflf21-teflf24 teflo11-teflo14 teflo21-teflo24; /* temporary amount flag; */ array tafl (4,8) tafla11-tafla14 tafla21-tafla24 taflw11-taflw14 taflw21-taflw24 taflf11-taflf14 taflf21-taflf24 taflo11-taflo14 taflo21-taflo24; array prgms1 (4) AFDC_SDLI WIC_SDLI FST_SDLI OTH_SDLI; /* Flag for whether program was reported in SDLI.; */ array prgms2 (4) AFDC_NVPR WIC_NVPR FST_NVPR OTH_NVPR; /* Flag for whether program was reported in NVPR.; */ array stdlis (4) stdlia stdliw stdlif stdlio; /* Flag for progs whose spells started before DLI.; */ array endlis (4) endlia endliw endlif endlio; /* Flag for progs whose spells ended before DLI.; */ array revdts (4) revdta revdtw revdtf revdto; /* Flag for progs with spell st dts. later than end dts.; */ array dtmiss (4) dtmisa dtmisw dtmisf dtmiso; /* Flag for progs with either spell start/stop dts missing; */ array ovp (4) ovpa ovpw ovpf ovpo; /* Flag for progs with overlapping spells.; */ array whybt (4) whybta whybtw whybtf whybto; /* Flag for reporting in both SDLI and NVPR.; */ array whodf (4) whodfa whodfw whodff whodfo; /* Flag for different person receiving overlapping spells.; */ array whyms (4) whymsa whymsw whymsf whymso; /* Flag for non-rec. in CVs even though reported.; */ array doipr (4) doipra doiprw doiprf doipro; /* Flag for receiving after DCI (as per CVs).; */ array prgms (4) AFDC WIC FST OTH; /* Flag for program receipiency (as per CVs).; */ array chk (4) achk wchk fchk ochk ; /* Flag for checking the "estimated week flag" estck() Added Apr.21,2009 */ /*********************************************** PART II *********************************************** *** Initialize the created and intermediate variables at the value at DLI or 0. Create date of birth, ** ** DCI, DLI etc. in CMS and YYYYMM schemes. ** *******************************************************************************************************/; /* HANDEDIT - if stopped for a month or more is Don't Know then we put it as ZERO, i.e. did not stop for a month. if received again question is Don't Know but we ask about next spell anyway then we put received again as Yes. if currently receiving or not is Don't Know then we put it as ZERO, i.e. was not receiving at DCI. Note: If respondent refuses (-1) to answer any of these questions we leave the response as it is; */ do i=1 to dim(csm,1); do j=1 to dim(csm,2); if stpgp(i,j)=-2 then do; stpgp(i,j)=0; HE=HE+1; imp_stpgp=1; end; end; do j=1 to dim(csm,2); if cur(i,j)=-2 or cwks(i,j)=-2 then do; cur(i,j)=0; cwks(i,j)=0; HE=HE+1; imp_currec=1; end; end; end; do i=1 to dim(csm,1); do j=1 to (dim(csm,2)/2)-1; if recag(i,j)=-2 & ye(i,j+1)>-4 then do; recag(i,j)=1; HE=HE+1; imp_recag=1; end; end; do j=(dim(csm,2)/2)+1 to dim(csm,2)-1; if recag(i,j)=-2 & ye(i,j+1)>-4 then do; recag(i,j)=1; HE=HE+1; imp_recag=1; end; end; end; rnds=dim(csm,2); rnds1=dim(csm,2)/2; /* Identify the last round that R was interviewed (dli_rnd); */ do i=1 to dim(intmR); if intmR(i)~=-5 then dli_rnd=i; end; /* Intialize values of GPR (& ogpr), GPA (& ogpa) and GPEV (& ogpev) by their values at the DLI, i.e. , to last round CVC value. */ GPEV=CVC_GOVNT_PRG_EVER ; ogpev=CVC_GOVNT_PRG_EVER; do j=1 to dim(cvcgpr); GPR(j)=cvcgpr(j); GPA(j)=cvcgpa(j); ogpr(j)=cvcgpr(j); ogpa(j)=cvcgpa(j); end; /* Identify the start and stop dates and edit flags for those dates for the last spell reported in prior rounds - ocsma ocsmw ocsmf ocsmo ocema ocemw ocemf ocemo oefla oeflw oeflf oeflo oafla oaflw oaflf oaflo; */ do i=1 to dim(csmR,1); do p=1 to dim(csmR,2); do t=1 to dim(csmR,3); if csmR(i,p,t)>-4 then do; ocsm(p)=csmR(i,p,t); ocem(p)=cemR(i,p,t); oefl(p)=eflR(i,p,t); oafl(p)=aflR(i,p,t); end; end; end; end; /* Take care of cases in earlier rounds; */ do j=1 to dim(GPR); /* although R did not participate in govt. programs, the amount received variable is 0 instead of -4.; */ if GPR(j)=0 and GPA(j)=0 then ogpa(j)=-4; /* GPR was not computed for anyone and so appears missing for all R; */ if GPR(j)=. or GPR(j)=-4 then do; ogpr(j)=-4; GPR(j)=0; end; /* GPA was not computed for anyone and so appears missing for all R; */ if GPA(j)=. or GPA(j)=-4 then do; ogpa(j)=-4; GPA(j)=0; end; end; /* Initialize value of GPEV to 0 if it is a valid skip; */ if GPEV=. or GPEV=-4 then do; ogpev=-4; GPEV=0; end; /* Create various important date variables in the two schemes - the YYYYMM scheme and the continuous month scheme (CMS) ymb - Date of Birth in YYYYMM scheme cmb - Date of Birth in CMS ym14 - Date of 14th birthday in YYYYMM scheme cm14 - Date of 14th birthday in CMS dliym - month after DLI in YYYYMM scheme dlicm - month after DLI in CMS cdli - DLI in CMS iym - DCI in YYYYMM scheme doicm - DCI in CMS mnthaf - month after DCI aaiym - Age at DCI in YYYYMM scheme aaicm - Age at DCI in CMS; */ ymb=(doby*100)+dobm; cmb=((doby-1980)*12)+dobm; ym14=ymb+1400; cm14=cmb+(14*12); if inty>0 and intm>0 then do; iym=(inty*100)+intm; doicm=((inty-1980)*12)+intm; mnthaf=doicm+1; aaiym=iym-ymb; *?? XA; aaicm=doicm-cmb; end; if inty in (-1,-2,-3) or intm in (-1,-2,-3) then do; iym=-3; doicm=-3; aaiym=-3; aaicm=-3; end; if p1210=1 then do; do i=1 to dim(intmR); if i=dli_rnd then do; if intmR(i)<12 then dliym=(intyR(i)*100)+intmR(i)+1; if intmR(i)=12 then dliym=((intyR(i)+1)*100)+1; dlicm=((intyR(i)-1980)*12)+intmR(i)+1; cdli=((intyR(i)-1980)*12)+intmR(i); end; end; end; if p1210~=1 then do; dliym=ym14; dlicm=cm14; cdli=cm14-1; end; /** Initialize values of the monthly variables to be created; */ do l=cmb to doicm; AREC(l)=0; WREC(l)=0; FREC(l)=0; OREC(l)=0; end; /* Initialize the following counters to zero. ; */ ackr=0; wckr=0; fckr=0; ockr=0; /* Counter=1 when XREC>0 but XAMT in (.,-4).; */ acka=0; wcka=0; fcka=0; ocka=0; /* Counter=1 when XREC=0 or XHHM in (.,-4) but XAMT>-4; */ ackh=0; wckh=0; fckh=0; ockh=0; /* Counter=1 when XREC=0 or XAMT in (.,-4) but XHHM>-4; */ ackv=0; wckv=0; fckv=0; ockv=0; /* Counter=1 when XREC=-3 but XAMT~=-3.; */ aodttl=0; wodttl=0; fodttl=0; oodttl=0; /* Counter for total no. of months received the problematic amts.;*/ /*********************************************** PART III ***********************************************/ /* Create intermediate variables using informaiton from current round. **/ /******************************************************************************************* ***********/ do p=1 to 4; /** [B1] **/ do q=1 to dim(csm,2); /** [B2] **/ /* Create variables that indicate the start and stop dates for a particular spell of a particular program in the yyyymm and CSM formats; */ /************************************************************************************************/ /** Define the start date and end dates. If R reports still receiving, then use DCI as the **/ /** temporary end date for the last loop reported. In the next survey round, R will be asked **/ /** if he or she is still receiving. **/ /** **/ /** IMPORTANT IMPUTATIONS: If no date given, then a permanent end date equivalent to the **/ /** interview date of the last round will be assigned. IF ANY START or END DATES ARE MISSING, **/ /** we IMPUTE those dates. Users will be able to tell what was imputed by looking at the event history **/ /** variable EVENT FLAG DATE RECEIVED FOR THE YEAR THE DATA WAS IMPUTED created during the program. */ /** The categories are the following: **/ /** ** / /** 1=R reported participation dates **/ /** 2=start month imputed **/ /** 3=start month and year imputed **/ /** 4=stop month imputed **/ /** 5=stop month and year imputed **/ /** 6=start and stop dates imputed **/ /** 7=err_or in data due to round 8 questionnaire problems or inconsistent response. **/ /** Both result in us not being sure whether Rs received in these months or not. **/ /** QUESTIONNAIRE err_or: These Rs reported valid start and stop dates but were **/ /** never asked the follow-up question - if they received **/ /** again. **/ /** CONFLICTING RESPONSE: These Rs reported currently receiving, a valid start **/ /** date and a valid stop date that is different from the **/ /** DCI but in the follow-up question as to whether they **/ /** received again, they answered NO. **/ /***********************************************************************************************/ /* (1) Set start date if both start month and year are valid; */ if ys(p,q)>0 and ms(p,q)>0 then yms(p,q)=(ys(p,q)*100)+ms(p,q); /* set start date to month after DLI if receiving then; */ if dli(p,q)=1 then do; yms(p,q)=dliym; if cwks(p,q)=1 then do; yme(p,q)=iym; nogaps=p; end; end; /* Set end date to DCI if receiving now; */ if cur(p,q)=1 then yme(p,q)=iym; /* Set end date if both end month and year are valid; */ if ye(p,q)>0 and me(p,q)>0 then yme(p,q)=(ye(p,q)*100)+me(p,q); /* If end month greater than DCI, constrain by DCI; */ if yme(p,q)>iym then yme(p,q)=iym; /* Efl is not set if the end date is before DLI. Only in these cases we do not compute months receiving variable. So, we use another efl variable just to know the efl value; */ if yms(p,q)>0 and yme(p,q)>=dliym then efl(p,q)=1; if yms(p,q)>0 and 0=0 and (ys(p,q)<0 or ms(p,q)<0 or ye(p,q)<0 or me(p,q)<0) then do; mos(p,q)=floor(wks(p,q)/4.3); end; /* Age edit flag; */ agfl(p,q)=0; if ys(p,q)>0 and ys(p,q)<1990 then agfl(p,q)=1; /* (2) If start year is known and month is unknown; */ if ys(p,q)>0 and -3<=ms(p,q)<=-1 then do; /* If weeks are known and currently receiving, then count backwards by the number of weeks from the DCI. If the number of weeks falls short of the start year, the start month is December of that year. If the number of weeks is past the start year, then the start month is January of that year.; */ if wks(p,q)>=0 and cwks(p,q)=1 then do; yme(p,q)=iym; if 0<=mos(p,q)<=(intm-1) then yms(p,q)=iym-mos(p,q); do k=1 to 13; A=(k*88); if (intm+(k*12)-12)<=mos(p,q)<=(intm+(k*12)-1) then yms(p,q)=iym-A-mos(p,q); end; if yms(p,q)<((ys(p,q)*100)+01) then yms(p,q)=((ys(p,q)*100)+01); if yms(p,q)((ys(p,q)*100)+12) then yms(p,q)=((ys(p,q)*100)+12); end; /* Weeks missing and currently receiving - set end date to DCI and start date to Dec of start year; */ else if -3<=wks(p,q)<0 and cwks(p,q)=1 then do; yme(p,q)=iym; yms(p,q)=((ys(p,q)*100)+12); if yms(p,q)>iym then yms(p,q)=iym; end; /* Weeks missing and not currently receiving - set end date to Dec and start date to Jan of start year, constrain end date by DCI; */ else if -3<=wks(p,q)<0 and cwks(p,q)=0 then do; yms(p,q)=((ys(p,q)*100)+01); if yms(p,q)((ys(p,q)*100)+12) then yms(p,q)=((ys(p,q)*100)+12); if yme(p,q)=. then yme(p,q)=((ys(p,q)*100)+12); if yme(p,q)>iym then yme(p,q)=iym; end; /* If weeks are known and not currently receiving, then put start date as Jan of start year. Constrain by DLI. But finally constrain by Dec of start year. Then count forward by the number of weeks from start date. Constrain end date by DCI; */ else if wks(p,q)>=0 and cwks(p,q)=0 then do; yms(p,q)=((ys(p,q)*100)+01); if yms(p,q)iym then yme(p,q)=iym; end; /* If end date is known (then estimated weeks is not asked and so wks=-4). Then set start date to Jan of start year; */ if yme(p,q)>0 and wks(p,q)=-4 then yms(p,q)=((ys(p,q)*100)+01); if yms(p,q)((ys(p,q)*100)+12) then yms(p,q)=((ys(p,q)*100)+12); efl(p,q)=2; end; /* (3) If start year is unknown; */ if -3<=ys(p,q)<=-1 then do; /* If weeks are known then count back from DCI if currently receiving.; */ if wks(p,q)>=0 and cwks(p,q)=1 then do; yme(p,q)=iym; if 0<=mos(p,q)<=(intm-1) then yms(p,q)=iym-mos(p,q); do k=1 to 13; A=(k*88); if (intm+(k*12)-12)<=mos(p,q)<=(intm+(k*12)-1) then yms(p,q)=iym-A-mos(p,q); end; if yms(p,q)=0 & cwks(p,q)=0 & yme(p,q)>0 then do; if 0<=mos(p,q)<=me(p,q) then do; yms(p,q)=(ye(p,q)*100)+01; yme(p,q)=(ye(p,q)*100)+01+mos(p,q); end; do k=1 to 13; if me(p,q)>=0 & (me(p,q)+(k*12)-11)<=mos(p,q)<=(me(p,q)+(k*12)) then do; yms(p,q)=((ye(p,q)-k)*100)+01; if 0<=mos(p,q)<=((k*12)-1) then yme(p,q)=((ye(p,q)-1)*100)+01+mos(p,q)-(k*12)+12; if mos(p,q)>=(k*12) then yme(p,q)= (ye(p,q)*100) +01+mos(p,q)-(k*12); end; end; if yme(p,q)>iym then yme(p,q)=iym; end; if wks(p,q)>=0 & cwks(p,q)=0 & yme(p,q)<=0 then do; if 0<=mos(p,q)<=intm then do; yms(p,q)=(inty*100)+01; yme(p,q)=(inty*100)+01+mos(p,q); end; do k=1 to 13; if (intm+(k*12)-11)<=mos(p,q)<=(intm+(k*12)) then do; yms(p,q)=((inty-k)*100)+01; if 0<=mos(p,q)<=((k*12)-1) then yme(p,q)=((inty-1)*100)+01+mos(p,q)-(k*12)+12; if mos(p,q)>=(k*12) then yme(p,q)= (inty*100) +01+mos(p,q)-(k*12); end; end; if yme(p,q)>iym then yme(p,q)=iym; end; efl(p,q)=3; end; /* If stop date is known but start date is not, then set DLI as start date; */ if yme(p,q)>0 and yms(p,q)=. then do; yms(p,q)=dliym; if q=1 or q=((dim(csm,2)/2)+1) then efl(p,q)=3; else if 2<=q<=(dim(csm,2)/2) or ((dim(csm,2)/2)+2)<=q<=dim(csm,2) then efl(p,q)=7.3; end; /* (4) If stop year is known but stop month is not known; */ if yms(p,q)>0 and ye(p,q)>0 and -2<=me(p,q)<=-1 then do; /* If weeks are known, then count forward from start date. If the number of months falls short of the stop year, then use Jan of the end year as the stop date. If the number of months exceeds the stop year, then use Dec of the end year as the stop date. Constrain stop date by DCI; */ if wks(p,q)>=0 then do; nms(p,q)=yms(p,q)-round(yms(p,q),100); if 0<=mos(p,q)<=(12-nms(p,q)) then yme(p,q)=yms(p,q)+mos(p,q); do k=1 to 13; A=(k*88); if ((k*12)+1-nms(p,q))<=mos(p,q)<=((k*12)+12-nms(p,q)) then yme(p,q)=yms(p,q)+A+mos(p,q); end; if yme(p,q)>((ye(p,q)*100)+12) then yme(p,q)=((ye(p,q)*100)+12); if yme(p,q)<((ye(p,q)*100)+01) then yme(p,q)=((ye(p,q)*100)+01); if yme(p,q)>iym then yme(p,q)=iym; end; /* If weeks are missing then set end date to Dec of stop year and constrain by DCI; */ if -3<=wks(p,q)<0 then yme(p,q)=((ye(p,q)*100)+12); if yme(p,q)>iym then yme(p,q)=iym; if (efl(p,q) not in (2,3,7) or efl(p,q)=.) then efl(p,q)=4; if efl(p,q) in (2,3,7) then efl(p,q)=6; end; /* (5) If stop year is unknown; */ if -3<=ye(p,q)<=-1 then do; /* If weeks are known then count forward from start date; */ if yms(p,q)>0 and wks(p,q)>=0 then do; nms(p,q)=yms(p,q)-round(yms(p,q),100); if 0<=mos(p,q)<=(12-nms(p,q)) then yme(p,q)=yms(p,q)+mos(p,q); do k=1 to 13; A=(k*88); if ((k*12)+1-nms(p,q))<=mos(p,q)<=((k*12)+12-nms(p,q)) then yme(p,q)=yms(p,q)+A+mos(p,q); end; if yme(p,q)>iym then yme(p,q)=iym; end; /** If weeks are missing then set Dec of start year as stop date and constrain by DCI; */ if yms(p,q)>0 and -3<=wks(p,q)<0 then yme(p,q)=(round(yms(p,q),100))+12; if yme(p,q)>iym then yme(p,q)=iym; if (efl(p,q) not in (2,3,7) or efl(p,q)=.) then efl(p,q)=5; if efl(p,q) in (2,3,7) then efl(p,q)=6; end; /* (6) If the start and stop years are unknown and the weeks are unknown, use DLI and DCI as start and stop dates, respectively.; */ if -3<=ys(p,q)<=-1 and -3<=ye(p,q)<=-1 and cwks(p,q)=0 and -3<=wks(p,q)<0 then do; yme(p,q)=iym; yms(p,q)=dliym; if q=1 or q=((dim(csm,2)/2)+1) then efl(p,q)=6; else if 2<=q<=(dim(csm,2)/2) or ((dim(csm,2)/2)+2)<=q<=dim(csm,2) then efl(p,q)=7; end; /* (7) If the start year is unknown, stop month is unknown but stop year is known, and the weeks are unknown and either currently receiving or R does not know if currently receiving or not then use DLI as the start date and December of stop year as stop date. Constrain stop date by DCI; * Added on 03-22-07; **/ if -3<=ys(p,q)<=-1 and -3<=me(p,q)<=-1 and ye(p,q)>0 and cwks(p,q)<=0 and -3<=wks(p,q)<0 then do; yms(p,q)=dliym; yme(p,q)=((ye(p,q)*100)+12); if yme(p,q)>iym then yme(p,q)=iym; if q=1 or q=((dim(csm,2)/2)+1) then efl(p,q)=6; else if 2<=q<=(dim(csm,2)/2) or ((dim(csm,2)/2)+2)<=q<=dim(csm,2) then efl(p,q)=7; end; /** Convert start and stop dates of the program spells into cms format; */ csm(p,q)=(round(yms(p,q),100)-198000)*.12+(yms(p,q)-round(yms(p,q),100)); cem(p,q)=(round(yme(p,q),100)-198000)*.12+(yme(p,q)-round(yme(p,q),100)); /******************************************************************************** */ /* Create a variable that determined which person in the household receives the */ /* particular spell of the particular program.; */ /******************************************************************************** */ /* Define the person in the household receiving the program variable. */ /* It collapses the answers to 8 categories. The coding is the following - */ /* 1=R only */ /* 2=spouse/partner only */ /* 3=child only */ /* 4=R and spouse/partner */ /* 5=R and child */ /* 6=spouse/partner and child */ /* 7=R and spouse/partner and child */ /* 8=other ** */ /* The first 7 categories may include an 'other' person as captured by response */ /* categories 4 (other relatives in household) and 5 (other (specify)) in the */ /* original question. If only 'other' person is listed as receiving, then the */ /* 8th answer category is used in the created variable. */ /******************************************************************************** */ if rcvr(p,q)=1 and rcvs(p,q)=0 and rcvc(p,q)=0 then who(p,q)=01; if rcvr(p,q)=0 and rcvs(p,q)=1 and rcvc(p,q)=0 then who(p,q)=02; if rcvr(p,q)=0 and rcvs(p,q)=0 and rcvc(p,q)=1 then who(p,q)=03; if rcvr(p,q)=1 and rcvs(p,q)=1 and rcvc(p,q)=0 then who(p,q)=04; if rcvr(p,q)=1 and rcvs(p,q)=0 and rcvc(p,q)=1 then who(p,q)=05; if rcvr(p,q)=0 and rcvs(p,q)=1 and rcvc(p,q)=1 then who(p,q)=06; if rcvr(p,q)=1 and rcvs(p,q)=1 and rcvc(p,q)=1 then who(p,q)=07; if -3<=rcvr(p,q)<0 then who(p,q)=rcvr(p,q); if rcvr(p,q)=0 and rcvs(p,q)=0 and rcvc(p,q)=0 and (rcvf(p,q)=1 or rcvo(p,q)=1) then who(p,q)=08; if rcvr(p,q)=0 & rcvs(p,q)=0 & rcvc(p,q)=0 & rcvf(p,q)=0 & rcvo(p,q)=0 then who(p,q)=-3; /*********************************************************************************************/ /** Create a variable that calculates the amount that is received by the household each month*/ /** during a particular spell of a particular program.; */ /*********************************************************************************************/ /* Create an estimated amount using the category reported by R. The estimated amount is the */ /* midpoint rounded down. Note that the 12th category for AFDC, FST & OTH lists $1251 as the */ /* amount. This amount was chosen since the category is unbounded - the number represents 1 */ /* dollar above the lower bound. Similarly the 6th (highest) category for wic is $101, $1 */ /* above the lower bound, $100. */ /*********************************************************************************************/ /* AFDC; */ if p=1 then do; inc(p,q)=incm(p,q); if -3<=incm(p,q)<=-1 and 1<=eincm(p,q)<=10 then inc(p,q)=(eincm(p,q)*100)-50; if -3<=incm(p,q)<=-1 and eincm(p,q)=11 then inc(p,q)=1125; if -3<=incm(p,q)<=-1 and eincm(p,q)=12 then inc(p,q)=1251; end; /* WIC; */ if p=2 then do; inc(p,q)=incm(p,q); if -3<=incm(p,q)<=-1 and 1<=eincm(p,q)<=5 then inc(p,q)=(eincm(p,q)*20)-10; if -3<=incm(p,q)<=-1 and eincm(p,q)=6 then inc(p,q)=101; end; /* FST; */ if p=3 then do; inc(p,q)=incm(p,q); if -3<=incm(p,q)<=-1 and 1<=eincm(p,q)<=10 then inc(p,q)=(eincm(p,q)*100)-50; if -3<=incm(p,q)<=-1 and eincm(p,q)=11 then inc(p,q)=1125; if -3<=incm(p,q)<=-1 and eincm(p,q)=12 then inc(p,q)=1251; end; /* OTH; */ if p=4 then do; inc(p,q)=incm(p,q); if -3<=incm(p,q)<=-1 and 1<=eincm(p,q)<=10 then inc(p,q)=(eincm(p,q)*100)-50; if -3<=incm(p,q)<=-1 and eincm(p,q)=11 then inc(p,q)=1125; if -3<=incm(p,q)<=-1 and eincm(p,q)=12 then inc(p,q)=1251; end; if inc(p,q)>-4 then afl(p,q)=0; if inc(p,q)=-4 then inc(p,q)=.; /* Compute edit flags for dates (efls) for those cases that have not already been computed.; */ if efl(p,q)=. and nefl(p,q)~=. then efl(p,q)=nefl(p,q); end; /** [E2] **/ end; /** [E1] **/ do p=1 to 4; do q=1 to dim(csm,2); tcsm(p,q)=csm(p,q); tcem(p,q)=cem(p,q); twho(p,q)=who(p,q); tinc(p,q)=inc(p,q); tefl(p,q)=efl(p,q); tafl(p,q)=afl(p,q); end; end; /* Handedits - 1; */ /* If R reports good dates for one spell and bad dates for another and these are overlapping then we are not sure when either of the spells started and/or stopped. We then impute the start and stop dates for both spells as -3. Right now we leave the dates as it is so that the rest of the program can run as intended and then right at the end we convert these dates to -3. */ do p=1 to 4; do q=1 to (dim(csm,2)/2); do r=1 to (dim(csm,2)/2); if csm(p,r)<=csm(p,q)<=cem(p,r) & efl(p,q)=1 & efl(p,r)>1 & cem(p,r)>=dlicm>0 then do; dtp99(p,q)=1; dtp99(p,r)=1; dtp9(p)=1; dtps9=1; end; end; end; do q=(dim(csm,2)/2)+1 to dim(csm,2); do r=(dim(csm,2)/2)+1 to dim(csm,2); if csm(p,r)<=csm(p,q)<=cem(p,r) & efl(p,q)=1 & efl(p,r)>1 & cem(p,r)>=dlicm>0 then do; dtp99(p,q)=1; dtp99(p,r)=1; dtp9(p)=2; dtps9=2; end; end; end; end; /* R reports receiving, but doesn't know whether stopped for more than a month and so we do not have any information on stop date. We then handedit these cases on a case-by-case basis.; */ do p=1 to 4; do q=1 to dim(csm,2); if -3<=stpgp(p,q)<=-1 then do; HE=HE+1; dtps1=1; dtp1(p)=1; end; if -3<=cur(p,q)<=-1 or -3<=cwks(p,q)<=-1 then do; HE=HE+1; dtps1=2; dtp1(p)=2; end; end; end; /* When Rs report overlapping spells with amount receiving and person receiving are the same for these spells we just merge all the consecutive spells into 1.; */ do p=1 to 4; do q=4,3,2,8,7,6; if 0=0)|(tinc(p,q)<0 & tinc(p,q-1)<0)) & ((twho(p,q)=twho(p,q-1) & twho(p,q)>=0)|(twho(p,q)<0 & twho(p,q-1)<0)) then do; HE=HE+1; dtps2=1; if dtp2(p)~=-1 then dtp2(p)=1; if efl(p,q)>1 then dtp2(p)=-1; dtp22(p,q)=1; dtp22(p,q-1)=1; csm(p,q)=tcsm(p,q); cem(p,q)=tcem(p,q); who(p,q)=twho(p,q); inc(p,q)=tinc(p,q); efl(p,q)=tefl(p,q); afl(p,q)=tafl(p,q); if 0=0)|(tinc(p,q)>=0 & tinc(p,q-1)<0)|(tinc(p,q)<0 & tinc(p,q-1)>=0)) then do; HE=HE+1; dtps3=1; if dtp3(p)~=-1 then dtp3(p)=1; if efl(p,q)>1 then dtp3(p)=-1; dtp33(p,q)=1; dtp33(p,q-1)=1; csm(p,q)=tcsm(p,q); cem(p,q)=tcem(p,q); who(p,q)=twho(p,q); inc(p,q)=tinc(p,q); efl(p,q)=tefl(p,q); afl(p,q)=tafl(p,q); if 01 then dtp4(p)=-1; cem(p,q)=doicm-1; efl(p,q)=1; end; end; end; /* Rs report currently receiving, a period of 1 month or more when they did not receive, have a valid stop date but when asked if they received again, said NO so did not go through the second loop. We create another loop from the month after the reported stop month to DCI, and put efl=7, inc=-3 and who=-3. IF THE STOP DATE IS DCI, THEN WE DO NOT HANDEDIT.; */ do p=1 to 4; do q=1 to dim(csm,2)-1; if q~=dim(csm,2)/2 & (cur(p,q)=1|cwks(p,q)=1) & stpgp(p,q)=1 & ye(p,q)>0 & me(p,q)>0 & recag(p,q)=0 & cem(p,q)~=doicm then do; HE=HE+1; dtps5=1; if dtp5(p)~=-1 then dtp5(p)=1; if efl(p,q)>1 then dtp5(p)=-1; csm(p,q+1)=tcem(p,q)+1; cem(p,q+1)=doicm; efl(p,q+1)=7; afl(p,q+1)=2; inc(p,q+1)=-3; who(p,q+1)=-3; end; end; do q=dim(csm,2), dim(csm,2)/2; /* Identify these cases and then add another spell.; */ if (cur(p,q)=1|cwks(p,q)=1) & stpgp(p,q)=1 & ye(p,q)>0 & me(p,q)>0 & recag(p,q)=0 & cem(p,q)~=doicm then do; HE=HE+1; dtps5=1; if dtp5(p)~=-2 then dtp5(p)=2; if efl(p,q)>1 then dtp5(p)=-2; end; end; end; /* If R reports a valid stop date but is not asked whether receives again then handedit similar to cases of dtps5. As for dtps5 cases we do not handedit if stop date reported is DCI.; */ do p=1 to 4; do q=1 to dim(csm,2)-1; if q~=dim(csm,2)/2 & ((ys(p,q)>0 & ms(p,q)>0)|dli(p,q)=1) & ye(p,q)>0 & me(p,q)>0 & recag(p,q)=-4 & cem(p,q)~=doicm then do; HE=HE+1; dtps6=1; if dtp6(p)~=-1 then dtp6(p)=1; if efl(p,q)>1 then dtp6(p)=-1; csm(p,q+1)=tcem(p,q)+1; cem(p,q+1)=doicm; efl(p,q+1)=7; inc(p,q+1)=-3; afl(p,q+1)=2; who(p,q+1)=-3; end; end; do q=dim(csm,2),dim(csm,2)/2; /* Identify these cases and then add another spell.; */ if ((ys(p,q)>0 & ms(p,q)>0)|dli(p,q)=1) & (ye(p,q)>0 & me(p,q)>0) & recag(p,q)=-4 & cem(p,q)~=doicm then do; HE=HE+1; dtps6=1; if dtp6(p)~=-2 then dtp6(p)=2; if efl(p,q)>1 then dtp6(p)=-2; end; end; end; /* Rs went through the NVPR section even though they had reported receiving that program in earlier rounds. Last time we curtailed the start dates if they were before DLI to DLI. This time I am not sure we should do that. In a later section (dtps7) we will anyway take care of not counting the months before DLI.; */ do p=1 to 4; do q=(dim(csm,2)/2)+1 to dim(csm,2); if inc(p,q)>-4 and ocsm(p)~=. then do; HE=HE+1; dtps7=1; if dtp7(p)~=-1 then dtp7(p)=1; if efl(p,q)>1 then dtp7(p)=-1; end; end; end; /* estimated week flag session*/ /* If (reported good start date and good estimated weeks) or (reported continue from DLI and good estimated weeks) or (reported good stop date and good estimated weeks) or (reported receive on DCI and good estimated weeks) then these cases should not have GPEV gpr gpa assigned -3. This session mark out these cases with "estimated week check flags". Added for R11. It's decided in R12 that if reported weeks=zero is also OK. */ do i= 1 to 4; do j = 1 to 8; if wks(i,j)>=0 then do; chk(i)=1; /* if any estimated weeks are good then check flag *chk=1 */ if ys(i,j)>0 and ms(i,j)>0 then do; if estck(i,j)~=. then estck(i,j)=estck(i,j)+1000; /* flag of 1000 means reported good start date and estimated weeks */ else estck(i,j)=1000; end; if dli(i,j)=1 then do; if estck(i,j)~=. then estck(i,j)=estck(i,j)+200; /* 200 continue from DLI and estimated weeks */ else estck(i,j)=200; end; if ye(i,j)>0 and me(i,j)>0 then do ; if estck(i,j)~=. then estck(i,j)=estck(i,j)+30; /* 30 means reported good stop date and estimated weeks */ else estck(i,j)=30; end; if ( cwks(i,j)=1 or cur(i,j)=1 ) then do ; if estck(i,j)~=. then estck(i,j)=estck(i,j)+4; /* 4 continue receiving to DOI and estimated weeks */ else estck(i,j)=4; end; end; end; end; /* Create the monthly array variables - those that indicate whether R received any of the four govt. programs in a particular month and the monthly amount received from all these programs.; */ /* Notice AFDC and FS are treated differently than WIC and OTHER. For AFDC and FS, estimate week flag values of (1000,200,30,4,230,204,34) are OK because the question do ask "since DLI how many weeks you receive" if R didn't give good start & stop date. For WIC and OTHER, Rosella: " R might answer the total estimated weeks because the question did not explicitely say since DLI how many week you receive" hence only (1000,30,4) are OK for estimate week flag values. */ c=0; do l=1 to doicm; /** [B3] **/ c=c+1; do q=1 to dim(csm,2); /** [B4] **/ /* AFDC; */ if 0 1. */ if efl(1,q)>1 then do ; if estck(1,q) in (1000,200,30,4,230,204,34) then AREC(l)=1; end; AHHM(l)=who(1,q); AAMT(l)=inc(1,q); aod=0; if AAMT(l)>1000 then aod=AAMT(l); if AREC(l)>0 and (AAMT(l)=. or AHHM(l)=.) then do; ackr=ackr+1; end; if (AAMT(l)>0 or -3<=AAMT(l)<0) and (AREC(l)=0 or AHHM(l)=.) then do; acka=acka+1; end; if AHHM(l)>0 and (AREC(l)=0 or AAMT(l)=.) then do; ackh=ackh+1; end; if AREC(l)=-3 and (AHHM(l)~=-3 or AAMT(l)~=-3) then do; ackv=ackv+1; end; if AAMT(l)=0 then dummya=1; end; /* WIC; */ if 0 1*/ if efl(2,q)>1 then do ; if estck(2,q) in (1000,30,4) then WREC(l)=1; end; WHHM(l)=who(2,q); WAMT(l)=inc(2,q); wod=0; if WAMT(l)>1000 then wod=WAMT(l); if WREC(l)>0 and (WAMT(l)=. or WHHM(l)=.) then do; wckr=wckr+1; end; if (WAMT(l)>0 or -3<=WAMT(l)<0) and (WREC(l)=0 or WHHM(l)=.) then do; wcka=wcka+1; end; if WHHM(l)>0 and (WREC(l)=0 or WAMT(l)=.) then do; wckh=wckh+1; end; if WREC(l)=-3 and (WHHM(l)~=-3 or WAMT(l)~=-3) then do; wckv=wckv+1; end; if WAMT(l)=0 then dummyw=1; end; /* FST; */ if 0 1*/ if efl(3,q)>1 then do ; if estck(3,q) in (1000,200,30,4,230,204,34) then FREC(l)=1; end; FHHM(l)=who(3,q); FAMT(l)=inc(3,q); fod=0; if FAMT(l)>1000 then fod=FAMT(l); if FREC(l)>0 and (FAMT(l)=. or FHHM(l)=.) then do; fckr=fckr+1; end; if (FAMT(l)>0 or -3<=FAMT(l)<0) and (FREC(l)=0 or FHHM(l)=.) then do; fcka=fcka+1; end; if FHHM(l)>0 and (FREC(l)=0 or FAMT(l)=.) then do; fckh=fckh+1; end; if FREC(l)=-3 and (FHHM(l)~=-3 or FAMT(l)~=-3) then do; fckv=fckv+1; end; if FAMT(l)=0 then dummyf=1; end; /* OTH; */ if 0 1*/ if efl(4,q)>1 then do ; if estck(4,q) in (1000,30,4) then OREC(l)=1; end; OHHM(l)=who(4,q); OAMT(l)=inc(4,q); ood=0; if OAMT(l)>1000 then ood=OAMT(l); if OREC(l)>0 and (OAMT(l)=. or OHHM(l)=.) then do; ockr=ockr+1; end; if (OAMT(l)>0 or -3<=OAMT(l)<0) and (OREC(l)=0 or OHHM(l)=.) then do; ocka=ocka+1; end; if OHHM(l)>0 and (OREC(l)=0 or OAMT(l)=.) then do; ockh=ockh+1; end; if OREC(l)=-3 and (OHHM(l)~=-3 or OAMT(l)~=-3) then do; ockv=ockv+1; end; if OAMT(l)=0 then dummyo=1; end; end; /** [E4] **/ end; /** [E3] **/ /* Handedits - 2; */ /* R reported receiving in months prior to DLI. We delete any information in the monthly variables till DLI i.e receiving variables are 0, amount and person receiving variables are missing.; */ do p=1 to 4; do q=1 to dim(csm,2); if 01 then dtp8(p)=-1; C=0; do l=1 to dim(AREC); C=C+1; if csm(p,q)<=C<=cdli then do; ALLREC(p,l)=0; ALLAMT(p,l)=.; ALLHHM(p,l)=.; end; end; end; end; end; if GPEV>-4 then do; /* Adjust amount variables if they appear to be too high - then we assume that Rs have reported the whole amount that they received instead of the average monthly amount.; */ /* Compute aodttl, wodttl, fodttl and oodttl.; */ do l=1 to dim(AREC); if AREC(l)>0 and AAMT(l)>1000 and aod>0 then do; aodttl=aodttl+1; end; if FREC(l)>0 and FAMT(l)>1000 and fod>0 then do; fodttl=fodttl+1; end; if OREC(l)>0 and OAMT(l)>1000 and ood>0 then do; oodttl=oodttl+1; end; if WREC(l)>0 and WAMT(l)>1000 and wod>0 then do; wodttl=wodttl+1; end; end; /* Divide the problematic "too high" amount by the total number of months receiving these amounts.; */ do l=1 to dim(AREC); if AAMT(l)>1000 and aodttl>0 and AREC(l)>0 then do; AAMT(l)=round(AAMT(l)/aodttl, 1); end; if WAMT(l)>1000 and wodttl>0 and WREC(l)>0 then do; WAMT(l)=round(WAMT(l)/wodttl, 1); end; if FAMT(l)>1000 and fodttl>0 and FREC(l)>0 then do; FAMT(l)=round(FAMT(l)/fodttl, 1); end; if OAMT(l)>1000 and oodttl>0 and OREC(l)>0 then do; OAMT(l)=round(OAMT(l)/oodttl, 1); end; end; /* Compute mxx, amtxx and ttlg - months receiving in each year (mxx), the amount receiving in each year (amtxx) and the total number of months received ever (ttlg); */ do j=1 to dim(gm); gm(j)=0; ttlg=0; gamt(j)=0; ga(j)=0; gn(j)=0; end; do j=1 to dim(gm); if j<30 then do; *years before 2009; do l=((j*12)-11) to (j*12); if gm(j)>=0 and (AREC(l)>0 or WREC(l)>0 or FREC(l)>0 or OREC(l)>0) then do; gm(j)=gm(j)+1; end; if AREC(l)>1 then gm(j)=-3; if WREC(l)>1 then gm(j)=-3; if FREC(l)>1 then gm(j)=-3; if OREC(l)>1 then gm(j)=-3; do p=1 to 4; if -3<=ALLAMT(p,l)<=-1 then do; gn(j)=gn(j)+1; gamt(j)=ALLAMT(p,l); end; if ALLAMT(p,l)>=0 then do; ga(j)=ga(j)+1; if ga(j)=1 and gn(j)=0 then gamt(j)=ALLAMT(p,l); if ga(j)>1 and gn(j)=0 then gamt(j)=gamt(j)+ALLAMT(p,l); if gm(j)=-3 then gamt(j)=-3; end; end; end; end; if j=30 then do; * 2009 count only to Sept; do l=((j*12)-11) to ((j*12)-3); if gm(j)>=0 and (AREC(l)>0 or WREC(l)>0 or FREC(l)>0 or OREC(l)>0) then do; gm(j)=gm(j)+1; end; if AREC(l)>1 then gm(j)=-3; if WREC(l)>1 then gm(j)=-3; if FREC(l)>1 then gm(j)=-3; if OREC(l)>1 then gm(j)=-3; do p=1 to 4; if -3<=ALLAMT(p,l)<=-1 then do; gn(j)=gn(j)+1; gamt(j)=ALLAMT(p,l); end; if ALLAMT(p,l)>=0 then do; ga(j)=ga(j)+1; if ga(j)=1 and gn(j)=0 then gamt(j)=ALLAMT(p,l); if ga(j)>1 and gn(j)=0 then gamt(j)=gamt(j)+ALLAMT(p,l); if gm(j)=-3 then gamt(j)=-3; end; end; end; end; end; do l=1 to 357; if ttlg>=0 and (AREC(l)=1 or WREC(l)=1 or FREC(l)=1 or OREC(l)=1) then do; ttlg=ttlg+1; end; if AREC(l)>1 or AREC(l)=-3 then ttlg=-3; if WREC(l)>1 or WREC(l)=-3 then ttlg=-3; if FREC(l)>1 or FREC(l)=-3 then ttlg=-3; if OREC(l)>1 or OREC(l)=-3 then ttlg=-3; end; end; /* Handedits - 3; */ /* Reconverting monthly receiving variables from 9 to -3.; */ do p=1 to 4; do l=1 to dim(AREC); if ALLREC(p,l)=9 then ALLREC(p,l)=-3; end; end; /* Converting the start and stop dates to -3 for dtps9 cases. */ do p=1 to 4; do q=1 to (dim(csm,2)/2); do r=1 to (dim(csm,2)/2); if dtp99(p,q)=1 & dtp99(p,r)=1 then do; csm(p,q)=-3; cem(p,q)=-3; csm(p,r)=-3; cem(p,r)=-3; end; end; end; do q=(dim(csm,2)/2)+1 to dim(csm,2); do r=(dim(csm,2)/2)+1 to dim(csm,2); if dtp99(p,q)=1 & dtp99(p,r)=1 then do; csm(p,q)=-3; cem(p,q)=-3; csm(p,r)=-3; cem(p,r)=-3; end; end; end; end; /********************************************** PART IV ***********************************************/ /* Create the final variables by combining information from this and earlier rounds. */ /******************************************************************************************************/ /* Calculate the total number of months ever received (GPEV).; */ if ttlg>=0 and GPEV>=0 then GPEV=ttlg+GPEV; if ttlg in (-1,-2,-3) or GPEV in (-1,-2-3) then GPEV=-3; /* Calculate the total number of months received in each year (GPRXX) and the total amount receiving in each year (GPAXX).; */ do j=1 to dim(GPR); if gm(j)>=0 and GPR(j)>=0 then do; GPR(j)=gm(j)+GPR(j); end; if gm(j)<0 or GPR(j)<0 then GPR(j)=-3; if gamt(j)>=0 and GPA(j)>=0 then do; GPA(j)=gamt(j)+GPA(j); end; if gamt(j)<0 or GPA(j)<0 or (GPR(j)<0 and GPR(j)~=-4) then GPA(j)=-3; if gamt(j)=0 and ogpa(j)=-4 and GPR(j)=0 then GPA(j)=-4; end; /* To change all invalid skips to -3; */ array vars1 GPR1980 - GPR2009; array vars2 GPA1980 - GPA2009; if GPEV in (-1,-2) then GPEV=-3; do i=1 to dim(vars1); if vars1(i) in (-1,-2) then vars1(i)=-3; if vars2(i)>=0 then vars2(i)=round(vars2(i)); else if vars2(i) in (-1,-2) then vars2(i)=-3; end; /********************************************** PART V ***********************************************/ /* Check the created variables. */ /****************************************************************************************************/ gct=0; /* To identify cases where there are discrepancies between amount and received variables.; */ gctn=0; /* To identify cases where these discrepancies are in this round ; */ gcto=0; /* To identify cases where these discrepancies are in the previous rounds ; */ dliprb=0; /* To identify cases where the months before DLI have been been coded as receiving.; */ doiprb=0; /* To identify cases where the months after the DCI have been coded (i.e. other than -4 or .); */ bfdob=0; /* To identify cases where the months before date of birth have been coded (i.e. other than -4 or .); */ chkrN=0; /* Counter for months when the monthly prgm receiving variable shows receiving but the monthly */ /* amt. receiving variable shows not receiving.; */ chkaN=0; /* Counter for months when the monthly prgm or person receiving variable shows not receiving */ /* but monthly amt. receiving variable shows receiving; */ chkhN=0; /* Counter for months when the monthly prgm or amt receiving variables show not receiving */ /* but monthly person receiving variable shows receiving; */ chkvN=0; /* Counter for months when the monthly receiving variable is invalid but amount is not.; */ overlap=0; /* Counter for overlapping spells; */ endli=0; /* To identify cases where spells end before DLI.; */ stdli=0; /* To identify cases where spells start before DLI.; */ revdt=0; /* To identify cases where start dates of spells are after their end dates.; */ dtmis=0; /* To identify cases where etiher start or stop dates of spells are missing.; */ do p=1 to 4; /* To identify doipr for each program; */ doipr(p)=0; /* To identify cases that started before DLI; */ stdlis(p)=0; /* Identify the particular programs received by Rs.; */ prgms(p)=0; /* To identify the particular spells of the cases that stopped before DLI, start dates were after stop dates or either of start/stop dates were missing; */ endlis(p)=0; revdts(p)=0; dtmiss(p)=0; do q=1 to dim(csm,2); edli(p,q)=0; rvdt(p,q)=0; dtms(p,q)=0; end; /* To identify cases where R reported receiving but our created variables show that R did not receive.; */ whyms(p)=.; /* To identify cases where R reported receiving in both SDLI and NVPR sections.; */ whybt(p)=0; end; /* Compute gct, gctn & gcto.; */ do j=1 to dim(GPR); if gm(j)=0 and gamt(j)>0 then do; gctn=gctn+1; end; if GPR(j)=0 and GPA(j)~=-4 then do; gct=gct+1; end; if ogpr(j)=0 and ogpa(j)~=-4 then do; gcto=gcto+1; end; end; /* Compute edli, endli, stdli, revdt, revdts, revdt, stdlis, endlis, dtms, dtmsis, dtmss.; */ do p=1 to 4; do q=1 to dim(csm,2); if 0<=cem(p,q)dim(csm,2)/2 then endlis(p)=2; end; if (csm(p,q)~=. & cem(p,q)=.)|(cem(p,q)~=. & csm(p,q)=.) then do; dtms(p,q)=1; dtmis=1; dtmiss(p)=1; if q>dim(csm,2)/2 then dtmiss(p)=2; end; if 0<=csm(p,q)dim(csm,2)/2 then stdlis(p)=2; end; if 0=1 or ALLREC(p,l)=-3 then do; dliprb=1; p=4; L=cdli; end; end; end; /* Compute bfdob; */ do l=1 to cmb; do p=1 to 4; if ALLREC(p,l) not in (0,.,-4) or ALLAMT(p,l) not in (.,-4) or ALLHHM(p,l) not in (.,-4) then do; bfdob=1; p=4; l=cmb; end; end; end; /* Compute doiprs for all the programs and doiprb.; */ do p=1 to 4; do l=mnthaf to dim(ALLREC,2); if ALLREC(p,l) not in (.,-4) or ALLAMT(p,l) not in (.,-4) or ALLHHM(p,l) not in (.,-4) then do; doiprb=1; doipr(p)=1; l=dim(ALLREC,2); end; end; end; /* Compute chkrN, chkaN, chkhN and chkvN for all the programs.; */ do l=1 to dim(ALLREC,2); do p=1 to 4; if ALLREC(p,l)>0 and (ALLAMT(p,l)=. or ALLHHM(p,l)=.) then do; chkrN=chkrN+1; end; if ALLAMT(p,l)>0 and (ALLREC(p,l)=0 or ALLHHM(p,l)=.) then do; chkaN=chkaN+1; end; if ALLHHM(p,l)>0 and (ALLREC(p,l)=0 or ALLAMT(p,l)=.) then do; chkhN=chkhN+1; end; if ALLREC(p,l)=-3 and ALLAMT(p,l)~=-3 then do; chkvN=chkvN+1; end; end; end; /* Check if efl represents the truth or not.; */ do p=1 to 4; do q=1 to dim(csm,2); if (dli(p,q)=1|(ys(p,q)>0 & ms(p,q)>0)) & ((ye(p,q)>0 & me(p,q)>0)|(cur(p,q)=1 & ye(p,q)<=-4 & me(p,q)<=-4)) then eflC(p,q)=1; if ys(p,q)>0 & -1<=ms(p,q)<=-3 & ((ye(p,q)>0 & me(p,q)>0)|(cur(p,q)=1 & ye(p,q)<=-4 & me(p,q)<=-4)) then eflC(p,q)=2; if -1<=ys(p,q)<=-3 & ((ye(p,q)>0 & me(p,q)>0)|(cur(p,q)=1 & ye(p,q)<=-4 & me(p,q)<=-4)) then eflC(p,q)=3; if (dli(p,q)=1|(ys(p,q)>0 & ms(p,q)>0)) & ye(p,q)>0 & -1<=me(p,q)<=-3 then eflC(p,q)=4; if (dli(p,q)=1|(ys(p,q)>0 & ms(p,q)>0)) & -1<=ye(p,q)<=-3 then eflC(p,q)=5; if (-1<=ys(p,q)<=-3|-1<=ms(p,q)<=-3) & (-1<=ye(p,q)<=-3|-1<=me(p,q)<=-3) then eflC(p,q)=6; if eflC(p,q)=1 and efl(p,q)~=1 then prbeflC1=1; if eflC(p,q)=2 and efl(p,q)~=2 then prbeflC2=1; if eflC(p,q)=3 and efl(p,q)~=3 then prbeflC3=1; if eflC(p,q)=4 and efl(p,q)~=4 then prbeflC4=1; if eflC(p,q)=5 and efl(p,q)~=5 then prbeflC5=1; if eflC(p,q)=6 and efl(p,q)~=6 then prbeflC6=1; if csm(p,q)=. and cem(p,q)=. and efl(p,q)~=. then prbeflC7=1; if eflC(p,q)~=. and efl(p,q)~=. and eflC(p,q)~=efl(p,q) then prb_efl=1; end; end; /* Compute prgms(), prgms1() and prgms2() - AFDC, WIC, FST and OTH, _SDLIs and _NVPRs; */ do p=1 to 4; do l=cmb to doicm; if ALLREC(p,l)=1 and prgms(p)~=-1 then prgms(p)=1; if ALLREC(p,l)>1 or ALLREC(p,l)=-3 then prgms(p)=-1; end; end; do p=1 to 4; do q=1 to dim(csm,2)/2; if inc(p,q)>-4 then do; prgms1(p)=1; if prgms(p)=0 then whyms(p)=q; if prgms(p)=0 & edli(p,q)>0 then whyms(p)=q+10; if prgms(p)=0 & rvdt(p,q)>0 then whyms(p)=q+20; if prgms(p)=0 & dtms(p,q)>0 then whyms(p)=q+30; end; end; do q=(dim(csm,2)/2)+1 to dim(csm,2); if inc(p,q)>-4 then do; prgms2(p)=1; if prgms(p)=0 then whyms(p)=q; if prgms(p)=0 & edli(p,q)>0 then whyms(p)=q+10; if prgms(p)=0 & rvdt(p,q)>0 then whyms(p)=q+20; if prgms(p)=0 & dtms(p,q)>0 then whyms(p)=q+30; end; end; if prgms1(p)=1 and prgms2(p)=1 then do; whybt(p)=1; whyboth=1; end; if whyms(p)>=1 then whymiss=1; end; REC=0; if AFDC~=0 and WIC=0 and FST=0 and OTH=0 then REC=1; if AFDC=0 and WIC~=0 and FST=0 and OTH=0 then REC=2; if AFDC=0 and WIC=0 and FST~=0 and OTH=0 then REC=3; if AFDC=0 and WIC=0 and FST=0 and OTH~=0 then REC=4; if AFDC~=0 and WIC~=0 and FST=0 and OTH=0 then REC=12; if AFDC~=0 and WIC=0 and FST~=0 and OTH=0 then REC=13; if AFDC~=0 and WIC=0 and FST=0 and OTH~=0 then REC=14; if AFDC=0 and WIC~=0 and FST~=0 and OTH=0 then REC=23; if AFDC=0 and WIC~=0 and FST=0 and OTH~=0 then REC=24; if AFDC=0 and WIC=0 and FST~=0 and OTH~=0 then REC=34; if AFDC~=0 and WIC~=0 and FST~=0 and OTH=0 then REC=123; if AFDC~=0 and WIC~=0 and FST=0 and OTH~=0 then REC=124; if AFDC~=0 and WIC=0 and FST~=0 and OTH~=0 then REC=134; if AFDC=0 and WIC~=0 and FST~=0 and OTH~=0 then REC=234; if AFDC~=0 and WIC~=0 and FST~=0 and OTH~=0 then REC=1234; /* Check for overlapping loops.; */ do p=1 to 4; do q=1 to (dim(csm,2)/2)-1; if q~=(dim(csm,2)/2) & 01|efl(p,q)>1 then ovp(p)=-1; overlap=overlap+1; end; end; end; /* if estimate flag is good and we assigned a -3 to ever receive, then check flag *chk=2 */ do i = 1 to 4; do j = 1 to 8; if estck(i,j)>0 and prgms(i) in(-1,-2,-3) then chk(i)=2; end; if chk(i)>0 then do; if CVC_GOVNT_PRG_EVER =-3 then chk(i)=chk(i)+90; end; end; run; /*********************************************************************** Finished main program, start check results here. ********************************************************************* */ proc freq; tables HE imp_stpgp imp_currec imp_recag; title "these flags not necessarily indicate any problem"; proc freq; tables agfl: dtps1-dtps9 prgerr ack: aod wck: wod fck: fod ock: ood dummy: chkrN chkaN chkhN chkvN gct gctn gcto endli dtmis stdli revdt dliprb bfdob doiprb prb_efl prbeflC1-prbeflC7 whymiss whyboth overlap achk wchk fchk ochk; title "these flags may imply a further look"; proc means n mean min max; var gpev gpr1980-gpr2009 gpa1980-gpa2009; title "CVC"; proc means n mean min max; var gm1980-gm2009 gamt1980-gamt2009 ttlg; title "current round intermediate variables"; run; ******************************************** Cases flagged *****************************************; proc print; where imp_stpgp=1 or imp_currec=1 or imp_recag=1; var pubid imp_stpgp imp_currec imp_recag; title "imp"; run; proc print; where dtps1=2; var pubid dtpa1 dtpw1 dtpf1 dtpo1 gpev gpr1980-gpr2009 gpa1980-gpa2009 gm1980-gm2009 gamt1980-gamt2009 ttlg orec001-orec357 oamt001-oamt357 ohhm001-ohhm357 csmo11-csmo14 csmo21-csmo24 cemo11-cemo14 cemo21-cemo24 whoo11-whoo14 whoo21-whoo24 inco11-inco14 inco21-inco24 eflo11-eflo14 eflo21-eflo24 aflo11-aflo14 aflo21-aflo24; title "dtps1=2"; run; proc print; where dtps3=1; var pubid dtpa3 dtpw3 dtpf3 dtpo3; title "dtps3=1"; run; proc print; where dtps4=1; var pubid dtpa4 dtpw4 dtpf4 dtpo4 gpev gpr1980-gpr2009 gpa1980-gpa2009 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 csmw11-csmw14 csmw21-csmw24 cemw11-cemw14 cemw21-cemw24 whow11-whow14 whow21-whow24 incw11-incw14 incw21-incw24 eflw11-eflw14 eflw21-eflw24 aflw11-aflw14 aflw21-aflw24 frec001-frec357 famt001-famt357 fhhm001-fhhm357 csmf11-csmf14 csmf21-csmf24 cemf11-cemf14 cemf21-cemf24 whof11-whof14 whof21-whof24 incf11-incf14 incf21-incf24 eflf11-eflf14 eflf21-eflf24 aflf11-aflf14 aflf21-aflf24; title "dtps4=1"; run; proc print; where dtps8=1; var pubid dtpa8 dtpw8 dtpf8 dtpo8 gpev gpr1980-gpr2009 gpa1980-gpa2009 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 csmw11-csmw14 csmw21-csmw24 cemw11-cemw14 cemw21-cemw24 whow11-whow14 whow21-whow24 incw11-incw14 incw21-incw24 eflw11-eflw14 eflw21-eflw24 aflw11-aflw14 aflw21-aflw24 frec001-frec357 famt001-famt357 fhhm001-fhhm357 csmf11-csmf14 csmf21-csmf24 cemf11-cemf14 cemf21-cemf24 whof11-whof14 whof21-whof24 incf11-incf14 incf21-incf24 eflf11-eflf14 eflf21-eflf24 aflf11-aflf14 aflf21-aflf24; title "dtps8=1"; run; proc print; where wod>0; var pubid gpev gpr1980-gpr2009 gpa1980-gpa2009 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 csmw11-csmw14 csmw21-csmw24 cemw11-cemw14 cemw21-cemw24 whow11-whow14 whow21-whow24 incw11-incw14 incw21-incw24 eflw11-eflw14 eflw21-eflw24 aflw11-aflw14 aflw21-aflw24 frec001-frec357 famt001-famt357 fhhm001-fhhm357 csmf11-csmf14 csmf21-csmf24 cemf11-cemf14 cemf21-cemf24 whof11-whof14 whof21-whof24 incf11-incf14 incf21-incf24 eflf11-eflf14 eflf21-eflf24 aflf11-aflf14 aflf21-aflf24; title "wod>0"; run; proc print; where stdli=1; var pubid stdlia stdliw stdlif stdlio; title "stdli=1"; run; proc print; where prb_efl=1; var pubid; title "prb_efl=1"; run; proc print; where prbeflC1=1; var pubid ; title "prbeflC1=1"; run; proc print; where overlap>0; var pubid overlap ovpa ovpw ovpf ovpo gpev gpr1980-gpr2009 gpa1980-gpa2009 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 csmw11-csmw14 csmw21-csmw24 cemw11-cemw14 cemw21-cemw24 whow11-whow14 whow21-whow24 incw11-incw14 incw21-incw24 eflw11-eflw14 eflw21-eflw24 aflw11-aflw14 aflw21-aflw24 frec001-frec357 famt001-famt357 fhhm001-fhhm357 csmf11-csmf14 csmf21-csmf24 cemf11-cemf14 cemf21-cemf24 whof11-whof14 whof21-whof24 incf11-incf14 incf21-incf24 eflf11-eflf14 eflf21-eflf24 aflf11-aflf14 aflf21-aflf24 arec001-arec357 aamt001-aamt357 ahhm001-ahhm357 csma11-csma14 csma21-csma24 cema11-cema14 cema21-cema24 whoa11-whoa14 whoa21-whoa24 inca11-inca14 inca21-inca24 efla11-efla14 efla21-efla24 afla11-afla14 afla21-afla24 orec001-orec357 oamt001-oamt357 ohhm001-ohhm357 csmo11-csmo14 csmo21-csmo24 cemo11-cemo14 cemo21-cemo24 whoo11-whoo14 whoo21-whoo24 inco11-inco14 inco21-inco24 eflo11-eflo14 eflo21-eflo24 aflo11-aflo14 aflo21-aflo24; title "overlap>0"; run; proc print; where wchk>0; var pubid gpev gpr1980-gpr2009 gpa1980-gpa2009 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 csmw11-csmw14 csmw21-csmw24 cemw11-cemw14 cemw21-cemw24 whow11-whow14 whow21-whow24 incw11-incw14 incw21-incw24 eflw11-eflw14 eflw21-eflw24 aflw11-aflw14 aflw21-aflw24; title "wchk>0"; run; proc print; where ochk>0; var pubid ; title "ochk>0"; run; /**************************************************************************************************** ** Generate the final data set ** ******************************************************************************************************/; data pin15.out_prgR15; set int; file '\\chrr\nls\Profiles\xangerer\My Documents\R15\PRG\prgR15.csv' lrecl=400 recfm=v DSD; put pubid GPEV GPR1980 - GPR2009 GPA1980 - GPA2009; run; /**************************************************************************************************** ** EVENT HISTORY OF GOVERNMENT PROGRAM VARIABLES ** ******************************************************************************************************/; data one; set pin15.out_prgR15 (keep= pubid p1210 YPRGA_R13CHECK cmb cm14 dlicm doicm cdli ttlg mnthaf dtps1-dtps8 HE prgerr AFDC WIC FST OTH AFDC_SDLI FST_SDLI OTH_SDLI WIC_SDLI arec001-arec357 aamt001-aamt357 ahhm001-ahhm357 wrec001-wrec357 wamt001-wamt357 whhm001-whhm357 frec001-frec357 famt001-famt357 fhhm001-fhhm357 orec001-orec357 oamt001-oamt357 ohhm001-ohhm357 csma11-csma14 csmw11-csmw14 csmf11-csmf14 csmo11-csmo14 csma21-csma24 csmw21-csmw24 csmf21-csmf24 csmo21-csmo24 cema11-cema14 cemw11-cemw14 cemf11-cemf14 cemo11-cemo14 cema21-cema24 cemw21-cemw24 cemf21-cemf24 cemo21-cemo24 whoa11-whoa14 whow11-whow14 whof11-whof14 whoo11-whoo14 whoa21-whoa24 whow21-whow24 whof21-whof24 whoo21-whoo24 inca11-inca14 incw11-incw14 incf11-incf14 inco11-inco14 inca21-inca24 incw21-incw24 incf21-incf24 inco21-inco24 efla11-efla14 eflw11-eflw14 eflf11-eflf14 eflo11-eflo14 efla21-efla24 eflw21-eflw24 eflf21-eflf24 eflo21-eflo24 afla11-afla14 aflw11-aflw14 aflf11-aflf14 aflo11-aflo14 afla21-afla24 aflw21-aflw24 aflf21-aflf24 aflo21-aflo24); /* ARRAYS USED IN THIS PROGRAM; */ array arec (357) arec001-arec357; array aamt (357) aamt001-aamt357; array ahhm (357) ahhm001-ahhm357; array wrec (357) wrec001-wrec357; array wamt (357) wamt001-wamt357; array whhm (357) whhm001-whhm357; array frec (357) frec001-frec357; array famt (357) famt001-famt357; array fhhm (357) fhhm001-fhhm357; array orec (357) orec001-orec357; array oamt (357) oamt001-oamt357; array ohhm (357) ohhm001-ohhm357; array csm1 (4,4) csma11-csma14 csmw11-csmw14 csmf11-csmf14 csmo11-csmo14; array csm2 (4,4) csma21-csma24 csmw21-csmw24 csmf21-csmf24 csmo21-csmo24; array cem1 (4,4) cema11-cema14 cemw11-cemw14 cemf11-cemf14 cemo11-cemo14; array cem2 (4,4) cema21-cema24 cemw21-cemw24 cemf21-cemf24 cemo21-cemo24; array who1 (4,4) whoa11-whoa14 whow11-whow14 whof11-whof14 whoo11-whoo14; array who2 (4,4) whoa21-whoa24 whow21-whow24 whof21-whof24 whoo21-whoo24; array inc1 (4,4) inca11-inca14 incw11-incw14 incf11-incf14 inco11-inco14; array inc2 (4,4) inca21-inca24 incw21-incw24 incf21-incf24 inco21-inco24; array afl1 (4,4) afla11-afla14 aflw11-aflw14 aflf11-aflf14 aflo11-aflo14; array afl2 (4,4) afla21-afla24 aflw21-aflw24 aflf21-aflf24 aflo21-aflo24; array efl1 (4,4) efla11-efla14 eflw11-eflw14 eflf11-eflf14 eflo11-eflo14; array efl2 (4,4) efla21-efla24 eflw21-eflw24 eflf21-eflf24 eflo21-eflo24; array efM1 (4,4) efMa11-efMa14 efMw11-efMw14 efMf11-efMf14 efMo11-efMo14; array efM2 (4,4) efMa21-efMa24 efMw21-efMw24 efMf21-efMf24 efMo21-efMo24; array rev1 (4,4) reva11-reva14 revw11-revw14 revf11-revf14 revo11-revo14; array rev2 (4,4) reva21-reva24 revw21-revw24 revf21-revf24 revo21-revo24; array BckR (4,4) BckRa1-BckRa4 BckRw1-BckRw4 BckRf1-BckRf4 BckRo1-BckRo4; array join (4,4) joina1-joina4 joinw1-joinw4 joinf1-joinf4 joino1-joino4; array loop (4,4) loopa1-loopa4 loopw1-loopw4 loopf1-loopf4 loopo1-loopo4; array skip (4,4) skipa1-skipa4 skipw1-skipw4 skipf1-skipf4 skipo1-skipo4; array eror (4,4) erora1-erora4 erorw1-erorw4 erorf1-erorf4 eroro1-eroro4; array nmss (4,4) nmssa1-nmssa4 nmssw1-nmssw4 nmssf1-nmssf4 nmsso1-nmsso4; array ovlp (4,4) ovlpa1-ovlpa4 ovlpw1-ovlpw4 ovlpf1-ovlpf4 ovlpo1-ovlpo4; prbloop=0; dliprb=0; doiprb=0; durprb=0; joinOK=0; EHack=0; EHackm=0; EHackh=0; EHfck=0; EHfckm=0; EHfckh=0; EHwck=0; EHwckm=0; EHwckh=0; EHock=0; EHockm=0; EHockh=0; do j=1 to 4; do k=1 to 4; join(j,k)=0; skip(j,k)=0; loop(j,k)=0; eror(j,k)=0; nmss(j,k)=0; if inc1(j,k)=-4 then inc1(j,k)=.; if inc2(j,k)=-4 then inc2(j,k)=.; end; end; /* BEGINNING OF PROGRAM PART I; */ /* Convert all monthly variables to create the event history variables. Change (1) missing values to -4, (2) values >1 to 1 and (3) values that are refuse (-1), don't know (-2) to invalid skip (-3); */ do l=1 to dim(arec); if arec(l)>=1 then arec(l)=1; if arec(l)=. then arec(l)=-4; if ahhm(l)=. then ahhm(l)=-4; if aamt(l)=. then aamt(l)=-4; if arec(l) in (-1,-2) then arec(l)=-3; if aamt(l) in (-1,-2) then aamt(l)=-3; if ahhm(l) in (-1,-2) then ahhm(l)=-3; if wrec(l)>=1 then wrec(l)=1; if wrec(l)=. then wrec(l)=-4; if whhm(l)=. then whhm(l)=-4; if wamt(l)=. then wamt(l)=-4; if wrec(l) in (-1,-2) then wrec(l)=-3; if wamt(l) in (-1,-2) then wamt(l)=-3; if whhm(l) in (-1,-2) then whhm(l)=-3; if frec(l)>=1 then frec(l)=1; if frec(l)=. then frec(l)=-4; if fhhm(l)=. then fhhm(l)=-4; if famt(l)=. then famt(l)=-4; if frec(l) in (-1,-2) then frec(l)=-3; if famt(l) in (-1,-2) then famt(l)=-3; if fhhm(l) in (-1,-2) then fhhm(l)=-3; if orec(l)>=1 then orec(l)=1; if orec(l)=. then orec(l)=-4; if ohhm(l)=. then ohhm(l)=-4; if oamt(l)=. then oamt(l)=-4; if orec(l) in (-1,-2) then orec(l)=-3; if oamt(l) in (-1,-2) then oamt(l)=-3; if ohhm(l) in (-1,-2) then ohhm(l)=-3; end; /* All event history variables before DLI for those who were eligible for program participation at DLI are converted to -4.; */ do l=1 to cdli; arec(l)=-4; ahhm(l)=-4; aamt(l)=-4; frec(l)=-4; fhhm(l)=-4; famt(l)=-4; orec(l)=-4; ohhm(l)=-4; oamt(l)=-4; wrec(l)=-4; whhm(l)=-4; wamt(l)=-4; end; /* END OF PROGRAM PART I; */ /* When there are spells that end before DLI, the efl variable is not computed although the ysm, yem, csm, cem and afl variables are calculated. The months in the period between this csm and cdli are not counted i.e. the a,f,o and w variables in this period are 0 and aamt and ahhm etc. are missing. However, we do not delete the csm and cem variables. We leave them as they are. The variables efMs and efMISS captures these cases.; */ do j=1 to 4; do k=1 to 4; if 00 then do; do l=mnthaf to dim(arec); if arec(l)~=-4 OR aamt(l)~=-4 OR ahhm(l)~=-4 OR wrec(l)~=-4 OR wamt(l)~=-4 OR whhm(l)~=-4 OR frec(l)~=-4 OR famt(l)~=-4 OR fhhm(l)~=-4 OR orec(l)~=-4 OR oamt(l)~=-4 OR ohhm(l)~=-4 then do; doiprb=1; l=dim(arec); end; end; end; do l=1 to dim(arec); if arec(l)=1 then afdc_rec=1; if afdc_rec~=1 & arec(l)=-3 then afdc_rec=-3; if wrec(l)=1 then wic_rec=1; if wic_rec~=1 & wrec(l)=-3 then wic_rec=-3; if frec(l)=1 then fst_rec=1; if fst_rec~=1 & frec(l)=-3 then fst_rec=-3; if orec(l)=1 then oth_rec=1; if oth_rec~=1 & orec(l)=-3 then oth_rec=-3; end; /* BEGINNING OF PROGRAM PART II; ** Spells that ended before 14th birthday or interview date are deleted.; */ do j=1 to 4; do k=1 to 4; if 01 OR efl1(j,1)>1) then OVLP(j,1)=100; end; do i=3 to 4; if 01 or efl1(j,2)>1) then ovlp(j,2)=100; end; if 01 or efl1(j,3)>1) then ovlp(j,3)=100; end; do j=1 to 4; do k=1 to 4; if 00 & (aamt(l)=-4 OR ahhm(l)=-4) then EHack= EHack+1; if aamt(l)>0 & (arec(l)=0 OR ahhm(l)=-4) then EHackm=EHackm+1; if ahhm(l)>0 & (arec(l)=0 OR aamt(l)=-4) then EHackh=EHackh+1; if wrec(l)>0 & (wamt(l)=-4 OR whhm(l)=-4) then EHwck= EHwck+1; if wamt(l)>0 & (wrec(l)=0 OR whhm(l)=-4) then EHwckm=EHwckm+1; if whhm(l)>0 & (wrec(l)=0 OR wamt(l)=-4) then EHwckh=EHwckh+1; if frec(l)>0 & (famt(l)=-4 OR fhhm(l)=-4) then EHfck= EHfck+1; if famt(l)>0 & (frec(l)=0 OR fhhm(l)=-4) then EHfckm=EHfckm+1; if fhhm(l)>0 & (frec(l)=0 OR famt(l)=-4) then EHfckh=EHfckh+1; if orec(l)>0 & (oamt(l)=-4 OR ohhm(l)=-4) then EHock= EHock+1; if oamt(l)>0 & (orec(l)=0 OR ohhm(l)=-4) then EHockm=EHockm+1; if ohhm(l)>0 & (orec(l)=0 OR oamt(l)=-4) then EHockh=EHockh+1; end; *** add the part of the program to trancate the csm cem who inc efl and afl at 357; do p=1 to 4; do q=1 to 4; if cem1(p,q)>357 & (not(csm1(p,q)>357)) then do; cem1(p,q)=357; efl1(p,q)=efl1(p,q)+7; truncate=1; end; if csm1(p,q)>357 & cem1(p,q)>357 then do; csm1(p,q)=.; cem1(p,q)=.; efl1(p,q)=.; afl1(p,q)=.; truncate=2; end; end; end; ******************* flags; proc freq; tables dliprb durprb doiprb joinOK prbloop overlap backreport efmiss reversedt erors ehack ehackm ehackh ehwck ehwckm ehwckh ehfck ehfckm ehfckh ehock ehockm ehockh truncate; run; proc means n mean min max; var cdli dlicm; proc print; where overlap=100; var pubid ovlp: arec187-arec357 aamt187-aamt357 ahhm187-ahhm357 wrec187-wrec357 wamt187-wamt357 whhm187-whhm357 frec187-frec357 famt187-famt357 fhhm187-fhhm357 orec187-orec357 oamt187-oamt357 ohhm187-ohhm357 csma11-csma14 cema11-cema14 csmw11-csmw14 cemw11-cemw14 csmf11-csmf14 cemf11-cemf14 csmo11-csmo14 cemo11-cemo14 efla11-efla14 afla11-afla14 eflw11-eflw14 aflw11-aflw14 eflf11-eflf14 aflf11-aflf14 eflo11-eflo14 aflo11-aflo14; title "overlap=100"; proc print; where backreport=1; var pubid bckr: arec187-arec357 aamt187-aamt357 ahhm187-ahhm357 wrec187-wrec357 wamt187-wamt357 whhm187-whhm357 frec187-frec357 famt187-famt357 fhhm187-fhhm357 orec187-orec357 oamt187-oamt357 ohhm187-ohhm357 csma11-csma14 cema11-cema14 csmw11-csmw14 cemw11-cemw14 csmf11-csmf14 cemf11-cemf14 csmo11-csmo14 cemo11-cemo14 efla11-efla14 afla11-afla14 eflw11-eflw14 aflw11-aflw14 eflf11-eflf14 aflf11-aflf14 eflo11-eflo14 aflo11-aflo14; title "backreport=1"; proc print; where pubid in (1948 8558 710 3699 6968 217 7430 2109); var pubid bckr: arec187-arec357 aamt187-aamt357 ahhm187-ahhm357 wrec187-wrec357 wamt187-wamt357 whhm187-whhm357 frec187-frec357 famt187-famt357 fhhm187-fhhm357 orec187-orec357 oamt187-oamt357 ohhm187-ohhm357 csma11-csma14 cema11-cema14 csmw11-csmw14 cemw11-cemw14 csmf11-csmf14 cemf11-cemf14 csmo11-csmo14 cemo11-cemo14 efla11-efla14 afla11-afla14 eflw11-eflw14 aflw11-aflw14 eflf11-eflf14 aflf11-aflf14 eflo11-eflo14 aflo11-aflo14; title "cases checked in prgR15.sas"; run; proc print data=one (obs=7); var pubid bckr: arec187-arec357 aamt187-aamt357 ahhm187-ahhm357 wrec187-wrec357 wamt187-wamt357 whhm187-whhm357 frec187-frec357 famt187-famt357 fhhm187-fhhm357 orec187-orec357 oamt187-oamt357 ohhm187-ohhm357 csma11-csma14 cema11-cema14 csmw11-csmw14 cemw11-cemw14 csmf11-csmf14 cemf11-cemf14 csmo11-csmo14 cemo11-cemo14 efla11-efla14 afla11-afla14 eflw11-eflw14 aflw11-aflw14 eflf11-eflf14 aflf11-aflf14 eflo11-eflo14 aflo11-aflo14; title "more check"; proc means n mean min max; var arec187-arec357 aamt187-aamt357 ahhm187-ahhm357 wrec187-wrec357 wamt187-wamt357 whhm187-whhm357 frec187-frec357 famt187-famt357 fhhm187-fhhm357 orec187-orec357 oamt187-oamt357 ohhm187-ohhm357 csma11-csma14 cema11-cema14 csmw11-csmw14 cemw11-cemw14 csmf11-csmf14 cemf11-cemf14 csmo11-csmo14 cemo11-cemo14 efla11-efla14 afla11-afla14 eflw11-eflw14 aflw11-aflw14 eflf11-eflf14 aflf11-aflf14 eflo11-eflo14 aflo11-aflo14; title "all cv"; run;