You are here
Home › Cohorts › NLSY97 › Other Documentation › Codebook Supplement › Appendix 5: Income and Assets Variable Creation ›Participation in Government Programs - Appendix 5
Participation in Government Programs - Appendix 5
Variables Created
- CVC_GOVNT_PRG_EVER--number of months cash or transfer payments were ever received from government programs
- CVC_GOVNT_PRG_YR.80 - CVC_GOVNT_PRG_YR.xx--number of months cash or transfer payments were received from government programs during the year.
- CVC_AMT_GOVNT_PRG_YR.80 - CVC_AMT_GOVNT_PRG_YR.xx--total amount received from other government programs during the year
- CVC_UI_SPELLS_YR--number of spells the respondent received Unemployment Insurance compensation during the year
- CVC_UI_YR--number of months the respondent received Unemployment Insurance compensation during the year
- CVC_UI_EVER--number of months the respondent ever received Unemployment Insurance compensation
- CVC_AMT_UI_YR--dollar amount of the Unemployment Insurance compensation received during each year
This program creates several variables describing the respondent's participation in government programs for the economically disadvantaged. During the interview, respondents report amounts received and months of participation in Aid to Families with Dependent Children (AFDC); food stamps; and Women, Infants, and Children (WIC). There is also an "other assistance" question to capture information about any other government program from which respondents may have received assistance. The interview also records amounts received from unemployment compensation in a separate question series; this program also creates variables describing respondents' participation in unemployment compensation.
The program to create these variables first creates month-by-month participation arrays for five categories of assistance (unemployment compensation, AFDC, food stamps, WIC, and other programs). These month-by-month variables constitute part of the event history array for program participation; see Appendix 7 for more information. After all the arrays are created, this program uses the array data to create the seven summary variables listed above.
Worker's Compensation. In early survey rounds, comparable variables were created for receipt of worker's compensation. These variables included:
- CV_AMT_WC_YR (1997-2001)--dollar amount of the worker's compensation received during each year
- CV_WC_WKS (1997)--number of weeks the respondent ever received worker's compensation
- CV_WC_EVER (1998-99)--number of months the respondent ever received worker's compensation
- CV_WC_YR (1997-1999)--number of months the respondent received worker's compensation during each year
Because worker's compensation can be reported either as a lump sum received on a single day or as payments over the period of time that the respondent was not working, the number of weeks/number of months summary variables were discontinued after round 3. The total benefits received in each calendar year were calculated through round 5. Since that time, respondents have simply been asked their total income from worker's compensation in each year and so no created variable is needed.
The logic and structure of the SAS code for the creation of the early-round worker's compensation variables is the same as that shown below for the other program participation variables. Because it is embedded in the full program participation variable creation code for those rounds it is not reproduced here. Users who need exact code should contact NLS User Services.
Variables Used
/**Variable Names in the Program Variable Names on the Gator**/
INTD YINTDATE~D_2010
INTM YINTDATE~M_2010
INTY YINTDATE~Y_2010
p500 YPRG-500_2010
p800 YPRG-800_2010
p1000 YPRG-1000_2010
p1210 YPRG-1210_2010
YPRGA_R13CHECK YPRGA-R13CHECK_2010
p11001 YPRGA-1100~000001_2010
p11002 YPRGA-1100~000002_2010
p12001 YPRGA-1200~000001_2010
p12002 YPRGA-1200~000002_2010
p12003 YPRGA-1200~000003_2010
p12004 YPRGA-1200~000004_2010
p12005 YPRGA-1200~000005_2010
p12006 YPRGA-1200~000006_2010
p12007 YPRGA-1200~000007_2010
YPRGA_R13CHECK2_1 YPRGA-R13CHECK2.01_2010
YPRGA_R13CHECK2_2 YPRGA-R13CHECK2.02_2010
YPRGA_R13CHECK2_3 YPRGA-R13CHECK2.03_2010
YPRGA_R13CHECK2_4 YPRGA-R13CHECK2.04_2010
p6500 YPRG-6500_UPD_2010
YPRGA_R13CHECK3 YPRGA-R13CHECK3_2010
p6501A YPRG-6501A_UPD_2010
YPRGA_R13CHECK4 YPRGA-R13CHECK4_2010
YPRGA_R13CHECK5_1 YPRGA-R13CHECK5.01_2010
YPRGA_R13CHECK5_2 YPRGA-R13CHECK5.02_2010
YPRGA_R13CHECK6 YPRGA-R13CHECK6_2010
YPRGA_R13CHECK8 YPRGA-R13CHECK8_2010
YPRG_NEWCHECK YPRG-NEWCHECK_2010
YPRG_NEW1 YPRG-NEW1_2010
YPRG_NEW2_1 YPRG-NEW2~000001_2010
YPRG_NEW2_2 YPRG-NEW2~000002_2010
YPRG_NEW2_3 YPRG-NEW2~000003_2010
YPRG_NEW2_4 YPRG-NEW2~000004_2010
YPRG_NEW2CHECK1 YPRG-NEW2CHECK1_2010
YPRG_FOODCHECK2 YPRG-FOODCHECK2_2010
YPRG_FOODCHECK3 YPRG-FOODCHECK3_2010
ps16310 YPRG-16310_UPD_2010
ps16330 YPRG-16330_UPD_2010
ps16340 YPRG-16340_UPD_2010
ps16380 YPRG-16380_UPD_2010
ps16385 YPRG-16385_UPD_2010
ps16400 YPRG-16400_UPD_2010
ps16410 YPRG-16410_UPD_2010
ps19063X1 YPRG-19063X_UPD.01_2010
ps19063X2 YPRG-19063X_UPD.02_2010
ps19063A1 YPRG-19063A_UPD.01_2010
ps19100M1 YPRG-19100_UPD.01~M_2010
ps19100Y1 YPRG-19100_UPD.01~Y_2010
ps19100M2 YPRG-19100_UPD.02~M_2010
ps19100Y2 YPRG-19100_UPD.02~Y_2010
ps191201 YPRG-19120_UPD.01_2010
ps191202 YPRG-19120_UPD.02_2010
ps191401 YPRG-19140_UPD.01_2010
ps191402 YPRG-19140_UPD.02_2010
ps197001 YPRG-19700_UPD.01_2010
ps197002 YPRG-19700_UPD.02_2010
ps20000M1 YPRG-20000_UPD.01~M_2010
ps20000Y1 YPRG-20000_UPD.01~Y_2010
ps201001 YPRG-20100_UPD.01_2010
ps201002 YPRG-20100_UPD.02_2010
ps202001 YPRG-20200_UPD.01_2010
ps203001 YPRG-20300_UPD.01_2010
ps203002 YPRG-20300_UPD.02_2010
ps204001 YPRG-20400_UPD.01_2010
ps204002 YPRG-20400_UPD.02_2010
ps207001 YPRG-20700_UPD.01_2010
ps207002 YPRG-20700_UPD.02_2010
ps208001 YPRG-20800_UPD.01_2010
ps20900r_1 YPRG-20900_UPD.01~000001_2010
ps20900s_1 YPRG-20900_UPD.01~000002_2010
ps20900c_1 YPRG-20900_UPD.01~000003_2010
ps20900l_1 YPRG-20900_UPD.01~000004_2010
ps20900t_1 YPRG-20900_UPD.01~000005_2010
ps20900r_2 YPRG-20900_UPD.02~000001_2010
ps20900s_2 YPRG-20900_UPD.02~000002_2010
ps20900c_2 YPRG-20900_UPD.02~000003_2010
ps20900l_2 YPRG-20900_UPD.02~000004_2010
ps20900t_2 YPRG-20900_UPD.02~000005_2010
ps210001 YPRG-21000_UPD.01_2010
ps210002 YPRG-21000_UPD.02_2010
ps21100A1 YPRG-21100A_UPD.01_2010
ps21100A2 YPRG-21100A_UPD.02_2010
ps212001 YPRG-21200_UPD.01_2010
YPRG_WICCHECK1 YPRG-WICCHECK1_2010
YPRG_WICCHECK2 YPRG-WICCHECK2_2010
YPRG_WICCHECK3 YPRG-WICCHECK3_2010
ps21330 YPRG-21330_UPD_2010
ps21350 YPRG-21350_UPD_2010
ps21360 YPRG-21360_UPD_2010
ps21400 YPRG-21400_UPD_2010
ps21405 YPRG-21405_UPD_2010
ps21420 YPRG-21420_UPD_2010
ps21430 YPRG-21430_UPD_2010
ps21900X1 YPRG-21900X_UPD.01_2010
ps21900X2 YPRG-21900X_UPD.02_2010
ps21900X3 YPRG-21900X_UPD.03_2010
ps21900X4 YPRG-21900X_UPD.04_2010
ps21900A1 YPRG-21900A_UPD.01_2010
ps22000M1 YPRG-22000_UPD.01~M_2010
ps22000Y1 YPRG-22000_UPD.01~Y_2010
ps22000M2 YPRG-22000_UPD.02~M_2010
ps22000Y2 YPRG-22000_UPD.02~Y_2010
ps22000M3 YPRG-22000_UPD.03~M_2010
ps22000Y3 YPRG-22000_UPD.03~Y_2010
ps22000M4 YPRG-22000_UPD.04~M_2010
ps22000Y4 YPRG-22000_UPD.04~Y_2010
ps221001 YPRG-22100_UPD.01_2010
ps221002 YPRG-22100_UPD.02_2010
ps221003 YPRG-22100_UPD.03_2010
ps221004 YPRG-22100_UPD.04_2010
ps222001 YPRG-22200_UPD.01_2010
ps222004 YPRG-22200_UPD.04_2010
ps223001 YPRG-22300_UPD.01_2010
ps22600M1 YPRG-22600_UPD.01~M_2010
ps22600Y1 YPRG-22600_UPD.01~Y_2010
ps22600M2 YPRG-22600_UPD.02~M_2010
ps22600Y2 YPRG-22600_UPD.02~Y_2010
ps22600M3 YPRG-22600_UPD.03~M_2010
ps22600Y3 YPRG-22600_UPD.03~Y_2010
ps22600M4 YPRG-22600_UPD.04~M_2010
ps22600Y4 YPRG-22600_UPD.04~Y_2010
ps227001 YPRG-22700_UPD.01_2010
ps227002 YPRG-22700_UPD.02_2010
ps227003 YPRG-22700_UPD.03_2010
ps227004 YPRG-22700_UPD.04_2010
ps228001 YPRG-22800_UPD.01_2010
ps228002 YPRG-22800_UPD.02_2010
ps228003 YPRG-22800_UPD.03_2010
ps229001 YPRG-22900_UPD.01_2010
ps229004 YPRG-22900_UPD.04_2010
ps230001 YPRG-23000_UPD.01_2010
ps230002 YPRG-23000_UPD.02_2010
ps230003 YPRG-23000_UPD.03_2010
ps230004 YPRG-23000_UPD.04_2010
ps233001 YPRG-23300_UPD.01_2010
ps233002 YPRG-23300_UPD.02_2010
ps233003 YPRG-23300_UPD.03_2010
ps233004 YPRG-23300_UPD.04_2010
ps234001 YPRG-23400_UPD.01_2010
ps234002 YPRG-23400_UPD.02_2010
ps234003 YPRG-23400_UPD.03_2010
ps234004 YPRG-23400_UPD.04_2010
ps23500r_1 YPRG-23500_UPD.01~000001_2010
ps23500s_1 YPRG-23500_UPD.01~000002_2010
ps23500c_1 YPRG-23500_UPD.01~000003_2010
ps23500l_1 YPRG-23500_UPD.01~000004_2010
ps23500t_1 YPRG-23500_UPD.01~000005_2010
ps23500r_2 YPRG-23500_UPD.02~000001_2010
ps23500s_2 YPRG-23500_UPD.02~000002_2010
ps23500c_2 YPRG-23500_UPD.02~000003_2010
ps23500l_2 YPRG-23500_UPD.02~000004_2010
ps23500t_2 YPRG-23500_UPD.02~000005_2010
ps23500r_3 YPRG-23500_UPD.03~000001_2010
ps23500s_3 YPRG-23500_UPD.03~000002_2010
ps23500c_3 YPRG-23500_UPD.03~000003_2010
ps23500l_3 YPRG-23500_UPD.03~000004_2010
ps23500t_3 YPRG-23500_UPD.03~000005_2010
ps23500r_4 YPRG-23500_UPD.04~000001_2010
ps23500s_4 YPRG-23500_UPD.04~000002_2010
ps23500c_4 YPRG-23500_UPD.04~000003_2010
ps23500l_4 YPRG-23500_UPD.04~000004_2010
ps23500t_4 YPRG-23500_UPD.04~000005_2010
ps236001 YPRG-23600_UPD.01_2010
ps236002 YPRG-23600_UPD.02_2010
ps236003 YPRG-23600_UPD.03_2010
ps236004 YPRG-23600_UPD.04_2010
ps23700A1 YPRG-23700A_UPD.01_2010
ps23700A2 YPRG-23700A_UPD.02_2010
ps23700A3 YPRG-23700A_UPD.03_2010
ps23700A4 YPRG-23700A_UPD.04_2010
ps238001 YPRG-23800_UPD.01_2010
ps238002 YPRG-23800_UPD.02_2010
ps238003 YPRG-23800_UPD.03_2010
ps238004 YPRG-23800_UPD.04_2010
ps350001 YPRG-35000_UPD.01_2010
ps350002 YPRG-35000_UPD.02_2010
YPRG_AFDCCHECK1 YPRG-AFDCCHECK1_2010
YPRG_AFDCCHECK2 YPRG-AFDCCHECK2_2010
YPRG_AFDCCHECK3 YPRG-AFDCCHECK3_2010
ps35630 YPRG-35630_UPD_2010
ps35650 YPRG-35650_UPD_2010
ps35660 YPRG-35660_UPD_2010
ps35710 YPRG-35710_UPD_2010
ps35715 YPRG-35715_UPD_2010
ps35730 YPRG-35730_UPD_2010
ps35740 YPRG-35740_UPD_2010
ps357851 YPRG-35785_UPD.01_2010
ps357901 YPRG-35790_UPD.01_2010
ps358301 YPRG-35830_UPD.01_2010
ps35840M1 YPRG-35840_UPD.01~M_2010
ps35840Y1 YPRG-35840_UPD.01~Y_2010
ps358501 YPRG-35850_UPD.01_2010
ps358601 YPRG-35860_UPD.01_2010
ps358701 YPRG-35870_UPD.01_2010
ps359001 YPRG-35900_UPD.01_2010
ps359151 YPRG-35915_UPD.01_2010
ps35920r_1 YPRG-35920_UPD.01~000001_2010
ps35920s_1 YPRG-35920_UPD.01~000002_2010
ps35920c_1 YPRG-35920_UPD.01~000003_2010
ps35920l_1 YPRG-35920_UPD.01~000004_2010
ps35920t_1 YPRG-35920_UPD.01~000005_2010
ps359301 YPRG-35930_UPD.01_2010
ps359501 YPRG-35950_UPD.01_2010
ps359601 YPRG-35960_UPD.01_2010
ps35971 YPRG-35971_UPD_2010
ps35973 YPRG-35973_UPD_2010
YPRG_OTHWELFCHECK1 YPRG-OTHWELFCHECK1_2010
YPRG_OTHWELFCHECK2 YPRG-OTHWELFCHECK2_2010
YPRG_OTHWELFCHECK3 YPRG-OTHWELFCHECK3_2010
ps36020 YPRG-36020_UPD_2010
ps36040 YPRG-36040_UPD_2010
ps36050 YPRG-36050_UPD_2010
ps36095 YPRG-36095_UPD_2010
ps36110 YPRG-36110_UPD_2010
ps36120 YPRG-36120_UPD_2010
ps30900X1 YPRG-30900X_UPD.01_2010
ps30900A1 YPRG-30900A_UPD.01_2010
ps31000M1 YPRG-31000_UPD.01~M_2010
ps31000Y1 YPRG-31000_UPD.01~Y_2010
ps311001 YPRG-31100_UPD.01_2010
ps312001 YPRG-31200_UPD.01_2010
ps31600M1 YPRG-31600_UPD.01~M_2010
ps31600Y1 YPRG-31600_UPD.01~Y_2010
ps317001 YPRG-31700_UPD.01_2010
ps318001 YPRG-31800_UPD.01_2010
ps318501 YPRG-31850_UPD.01_2010
ps320001 YPRG-32000_UPD.01_2010
ps323001 YPRG-32300_UPD.01_2010
ps324001 YPRG-32400_UPD.01_2010
ps32500r_1 YPRG-32500_UPD.01~000001_2010
ps32500s_1 YPRG-32500_UPD.01~000002_2010
ps32500c_1 YPRG-32500_UPD.01~000003_2010
ps32500l_1 YPRG-32500_UPD.01~000004_2010
ps32500t_1 YPRG-32500_UPD.01~000005_2010
ps326001 YPRG-32600_UPD.01_2010
ps32700A1 YPRG-32700A_UPD.01_2010
ps329001 YPRG-32900_UPD.01_2010
p2100 YPRG-2100_2010
p2500 YPRG-2500_2010
p2600 YPRG-2600_2010
p2400 YPRG-2400_2010
p3300 YPRG-3300_2010
p18800 YPRG-18800_2010
p18900 YPRG-18900_2010
p19400M1 YPRG-19400.01~M_2010
p19400Y1 YPRG-19400.01~Y_2010
p195001 YPRG-19500.01_2010
p196001 YPRG-19600.01_2010
p20000M1 YPRG-20000.01~M_2010
p20000Y1 YPRG-20000.01~Y_2010
p201001 YPRG-20100.01_2010
p203501 YPRG-20350.01_2010
p204001 YPRG-20400.01_2010
p207001 YPRG-20700.01_2010
p20900r_1 YPRG-20900.01~000001_2010
p20900s_1 YPRG-20900.01~000002_2010
p20900c_1 YPRG-20900.01~000003_2010
p20900l_1 YPRG-20900.01~000004_2010
p20900t_1 YPRG-20900.01~000005_2010
p210001 YPRG-21000.01_2010
p21400 YPRG-21400_2010
p16100 YPRG-16100_2010
p29100 YPRG-29100_2010
pubid pubid_2010
PUBID PUBID_2010
dobD SYMBOL_KEY_BDATE~D_2010
dobM SYMBOL_KEY_BDATE~M_2010
dobY SYMBOL_KEY_BDATE~Y_2010
csmAr1_1 AFDC_START_MONTH_1997.01_XRND
csmAr1_2 AFDC_START_MONTH_1997.02_XRND
csmAr1_3 AFDC_START_MONTH_1997.03_XRND
csmAr2_1 AFDC_START_MONTH_1998.01_XRND
csmAr2_2 AFDC_START_MONTH_1998.02_XRND
csmAr2_3 AFDC_START_MONTH_1998.03_XRND
csmAr3_1 AFDC_START_MONTH_1999.01_XRND
csmAr3_2 AFDC_START_MONTH_1999.02_XRND
csmAr4_1 AFDC_START_MONTH_2000.01_XRND
csmAr4_2 AFDC_START_MONTH_2000.02_XRND
csmAr4_3 AFDC_START_MONTH_2000.03_XRND
csmAr4_4 AFDC_START_MONTH_2000.04_XRND
csmAr5_1 AFDC_START_MONTH_2001.01_XRND
csmAr5_2 AFDC_START_MONTH_2001.02_XRND
csmAr5_3 AFDC_START_MONTH_2001.03_XRND
csmAr6_1 AFDC_START_MONTH_2002.01_XRND
csmAr6_2 AFDC_START_MONTH_2002.02_XRND
csmAr7_1 AFDC_START_MONTH_2003.01_XRND
csmAr7_2 AFDC_START_MONTH_2003.02_XRND
csmAr8_1 AFDC_START_MONTH_2004.01_XRND
csmAr8_2 AFDC_START_MONTH_2004.02_XRND
csmAr9_1 AFDC_START_MONTH_2005.01_XRND
csmAr9_2 AFDC_START_MONTH_2005.02_XRND
csmAr9_3 AFDC_START_MONTH_2005.03_XRND
csmAr9_4 AFDC_START_MONTH_2005.04_XRND
csmAr10_1 AFDC_START_MONTH_2006.01_XRND
csmAr10_2 AFDC_START_MONTH_2006.02_XRND
csmAr10_3 AFDC_START_MONTH_2006.03_XRND
csmAr11_1 AFDC_START_MONTH_2007.01_XRND
csmAr11_2 AFDC_START_MONTH_2007.02_XRND
csmAr12_1 AFDC_START_MONTH_2008.01_XRND
csmAr12_2 AFDC_START_MONTH_2008.02_XRND
csmAr12_3 AFDC_START_MONTH_2008.03_XRND
csmAr13_1 AFDC_START_MONTH_2009.01_XRND
csmAr13_2 AFDC_START_MONTH_2009.02_XRND
cemAr1_1 AFDC_STOP_MONTH_1997.01_XRND
cemAr1_2 AFDC_STOP_MONTH_1997.02_XRND
cemAr1_3 AFDC_STOP_MONTH_1997.03_XRND
cemAr2_1 AFDC_STOP_MONTH_1998.01_XRND
cemAr2_2 AFDC_STOP_MONTH_1998.02_XRND
cemAr2_3 AFDC_STOP_MONTH_1998.03_XRND
cemAr3_1 AFDC_STOP_MONTH_1999.01_XRND
cemAr3_2 AFDC_STOP_MONTH_1999.02_XRND
cemAr4_1 AFDC_STOP_MONTH_2000.01_XRND
cemAr4_2 AFDC_STOP_MONTH_2000.02_XRND
cemAr4_3 AFDC_STOP_MONTH_2000.03_XRND
cemAr4_4 AFDC_STOP_MONTH_2000.04_XRND
cemAr5_1 AFDC_STOP_MONTH_2001.01_XRND
cemAr5_2 AFDC_STOP_MONTH_2001.02_XRND
cemAr5_3 AFDC_STOP_MONTH_2001.03_XRND
cemAr6_1 AFDC_STOP_MONTH_2002.01_XRND
cemAr6_2 AFDC_STOP_MONTH_2002.02_XRND
cemAr7_1 AFDC_STOP_MONTH_2003.01_XRND
cemAr7_2 AFDC_STOP_MONTH_2003.02_XRND
cemAr8_1 AFDC_STOP_MONTH_2004.01_XRND
cemAr8_2 AFDC_STOP_MONTH_2004.02_XRND
cemAr9_1 AFDC_STOP_MONTH_2005.01_XRND
cemAr9_2 AFDC_STOP_MONTH_2005.02_XRND
cemAr9_3 AFDC_STOP_MONTH_2005.03_XRND
cemAr9_4 AFDC_STOP_MONTH_2005.04_XRND
cemAr10_1 AFDC_STOP_MONTH_2006.01_XRND
cemAr10_2 AFDC_STOP_MONTH_2006.02_XRND
cemAr10_3 AFDC_STOP_MONTH_2006.03_XRND
cemAr11_1 AFDC_STOP_MONTH_2007.01_XRND
cemAr11_2 AFDC_STOP_MONTH_2007.02_XRND
cemAr12_1 AFDC_STOP_MONTH_2008.01_XRND
cemAr12_2 AFDC_STOP_MONTH_2008.02_XRND
cemAr12_3 AFDC_STOP_MONTH_2008.03_XRND
cemAr13_1 AFDC_STOP_MONTH_2009.01_XRND
cemAr13_2 AFDC_STOP_MONTH_2009.02_XRND
aflAr1_1 AFDC_EDIT_AMT_1997.01_XRND
aflAr1_2 AFDC_EDIT_AMT_1997.02_XRND
aflAr1_3 AFDC_EDIT_AMT_1997.03_XRND
aflAr2_1 AFDC_EDIT_AMT_1998.01_XRND
aflAr2_2 AFDC_EDIT_AMT_1998.02_XRND
aflAr2_3 AFDC_EDIT_AMT_1998.03_XRND
aflAr3_1 AFDC_EDIT_AMT_1999.01_XRND
aflAr3_2 AFDC_EDIT_AMT_1999.02_XRND
aflAr4_1 AFDC_EDIT_AMT_2000.01_XRND
aflAr4_2 AFDC_EDIT_AMT_2000.02_XRND
aflAr4_3 AFDC_EDIT_AMT_2000.03_XRND
aflAr4_4 AFDC_EDIT_AMT_2000.04_XRND
aflAr5_1 AFDC_EDIT_AMT_2001.01_XRND
aflAr5_2 AFDC_EDIT_AMT_2001.02_XRND
aflAr5_3 AFDC_EDIT_AMT_2001.03_XRND
aflAr6_1 AFDC_EDIT_AMT_2002.01_XRND
aflAr6_2 AFDC_EDIT_AMT_2002.02_XRND
aflAr7_1 AFDC_EDIT_AMT_2003.01_XRND
aflAr7_2 AFDC_EDIT_AMT_2003.02_XRND
aflAr8_1 AFDC_EDIT_AMT_2004.01_XRND
aflAr8_2 AFDC_EDIT_AMT_2004.02_XRND
aflAr9_1 AFDC_EDIT_AMT_2005.01_XRND
aflAr9_2 AFDC_EDIT_AMT_2005.02_XRND
aflAr9_3 AFDC_EDIT_AMT_2005.03_XRND
aflAr9_4 AFDC_EDIT_AMT_2005.04_XRND
aflAr10_1 AFDC_EDIT_AMT_2006.01_XRND
aflAr10_2 AFDC_EDIT_AMT_2006.02_XRND
aflAr10_3 AFDC_EDIT_AMT_2006.03_XRND
aflAr11_1 AFDC_EDIT_AMT_2007.01_XRND
aflAr11_2 AFDC_EDIT_AMT_2007.02_XRND
aflAr12_1 AFDC_EDIT_AMT_2008.01_XRND
aflAr12_2 AFDC_EDIT_AMT_2008.02_XRND
aflAr12_3 AFDC_EDIT_AMT_2008.03_XRND
aflAr13_1 AFDC_EDIT_AMT_2009.01_XRND
aflAr13_2 AFDC_EDIT_AMT_2009.02_XRND
eflAr1_1 AFDC_EDIT_DATE_1997.01_XRND
eflAr1_2 AFDC_EDIT_DATE_1997.02_XRND
eflAr1_3 AFDC_EDIT_DATE_1997.03_XRND
eflAr2_1 AFDC_EDIT_DATE_1998.01_XRND
eflAr2_2 AFDC_EDIT_DATE_1998.02_XRND
eflAr2_3 AFDC_EDIT_DATE_1998.03_XRND
eflAr3_1 AFDC_EDIT_DATE_1999.01_XRND
eflAr3_2 AFDC_EDIT_DATE_1999.02_XRND
eflAr4_1 AFDC_EDIT_DATE_2000.01_XRND
eflAr4_2 AFDC_EDIT_DATE_2000.02_XRND
eflAr4_3 AFDC_EDIT_DATE_2000.03_XRND
eflAr4_4 AFDC_EDIT_DATE_2000.04_XRND
eflAr5_1 AFDC_EDIT_DATE_2001.01_XRND
eflAr5_2 AFDC_EDIT_DATE_2001.02_XRND
eflAr5_3 AFDC_EDIT_DATE_2001.03_XRND
eflAr6_1 AFDC_EDIT_DATE_2002.01_XRND
eflAr6_2 AFDC_EDIT_DATE_2002.02_XRND
eflAr7_1 AFDC_EDIT_DATE_2003.01_XRND
eflAr7_2 AFDC_EDIT_DATE_2003.02_XRND
eflAr8_1 AFDC_EDIT_DATE_2004.01_XRND
eflAr8_2 AFDC_EDIT_DATE_2004.02_XRND
eflAr9_1 AFDC_EDIT_DATE_2005.01_XRND
eflAr9_2 AFDC_EDIT_DATE_2005.02_XRND
eflAr9_3 AFDC_EDIT_DATE_2005.03_XRND
eflAr9_4 AFDC_EDIT_DATE_2005.04_XRND
eflAr10_1 AFDC_EDIT_DATE_2006.01_XRND
eflAr10_2 AFDC_EDIT_DATE_2006.02_XRND
eflAr10_3 AFDC_EDIT_DATE_2006.03_XRND
eflAr11_1 AFDC_EDIT_DATE_2007.01_XRND
eflAr11_2 AFDC_EDIT_DATE_2007.02_XRND
eflAr12_1 AFDC_EDIT_DATE_2008.01_XRND
eflAr12_2 AFDC_EDIT_DATE_2008.02_XRND
eflAr12_3 AFDC_EDIT_DATE_2008.03_XRND
eflAr13_1 AFDC_EDIT_DATE_2009.01_XRND
eflAr13_2 AFDC_EDIT_DATE_2009.02_XRND
csmFr1_1 FDSTMPS_START_MONTH_1997.01_XRND
csmFr1_2 FDSTMPS_START_MONTH_1997.02_XRND
csmFr2_1 FDSTMPS_START_MONTH_1998.01_XRND
csmFr2_2 FDSTMPS_START_MONTH_1998.02_XRND
csmFr2_3 FDSTMPS_START_MONTH_1998.03_XRND
csmFr3_1 FDSTMPS_START_MONTH_1999.01_XRND
csmFr3_2 FDSTMPS_START_MONTH_1999.02_XRND
csmFr4_1 FDSTMPS_START_MONTH_2000.01_XRND
csmFr4_2 FDSTMPS_START_MONTH_2000.02_XRND
csmFr4_3 FDSTMPS_START_MONTH_2000.03_XRND
csmFr5_1 FDSTMPS_START_MONTH_2001.01_XRND
csmFr5_2 FDSTMPS_START_MONTH_2001.02_XRND
csmFr5_3 FDSTMPS_START_MONTH_2001.03_XRND
csmFr6_1 FDSTMPS_START_MONTH_2002.01_XRND
csmFr6_2 FDSTMPS_START_MONTH_2002.02_XRND
csmFr6_3 FDSTMPS_START_MONTH_2002.03_XRND
csmFr7_1 FDSTMPS_START_MONTH_2003.01_XRND
csmFr7_2 FDSTMPS_START_MONTH_2003.02_XRND
csmFr7_3 FDSTMPS_START_MONTH_2003.03_XRND
csmFr8_1 FDSTMPS_START_MONTH_2004.01_XRND
csmFr8_2 FDSTMPS_START_MONTH_2004.02_XRND
csmFr8_3 FDSTMPS_START_MONTH_2004.03_XRND
csmFr9_1 FDSTMPS_START_MONTH_2005.01_XRND
csmFr9_2 FDSTMPS_START_MONTH_2005.02_XRND
csmFr9_3 FDSTMPS_START_MONTH_2005.03_XRND
csmFr10_1 FDSTMPS_START_MONTH_2006.01_XRND
csmFr10_2 FDSTMPS_START_MONTH_2006.02_XRND
csmFr10_3 FDSTMPS_START_MONTH_2006.03_XRND
csmFr10_4 FDSTMPS_START_MONTH_2006.04_XRND
csmFr11_1 FDSTMPS_START_MONTH_2007.01_XRND
csmFr11_2 FDSTMPS_START_MONTH_2007.02_XRND
csmFr11_3 FDSTMPS_START_MONTH_2007.03_XRND
csmFr12_1 FDSTMPS_START_MONTH_2008.01_XRND
csmFr12_2 FDSTMPS_START_MONTH_2008.02_XRND
csmFr12_3 FDSTMPS_START_MONTH_2008.03_XRND
csmFr13_1 FDSTMPS_START_MONTH_2009.01_XRND
csmFr13_2 FDSTMPS_START_MONTH_2009.02_XRND
csmFr13_3 FDSTMPS_START_MONTH_2009.03_XRND
cemFr1_1 FDSTMPS_STOP_MONTH_1997.01_XRND
cemFr1_2 FDSTMPS_STOP_MONTH_1997.02_XRND
cemFr2_1 FDSTMPS_STOP_MONTH_1998.01_XRND
cemFr2_2 FDSTMPS_STOP_MONTH_1998.02_XRND
cemFr2_3 FDSTMPS_STOP_MONTH_1998.03_XRND
cemFr3_1 FDSTMPS_STOP_MONTH_1999.01_XRND
cemFr3_2 FDSTMPS_STOP_MONTH_1999.02_XRND
cemFr4_1 FDSTMPS_STOP_MONTH_2000.01_XRND
cemFr4_2 FDSTMPS_STOP_MONTH_2000.02_XRND
cemFr4_3 FDSTMPS_STOP_MONTH_2000.03_XRND
cemFr5_1 FDSTMPS_STOP_MONTH_2001.01_XRND
cemFr5_2 FDSTMPS_STOP_MONTH_2001.02_XRND
cemFr5_3 FDSTMPS_STOP_MONTH_2001.03_XRND
cemFr6_1 FDSTMPS_STOP_MONTH_2002.01_XRND
cemFr6_2 FDSTMPS_STOP_MONTH_2002.02_XRND
cemFr6_3 FDSTMPS_STOP_MONTH_2002.03_XRND
cemFr7_1 FDSTMPS_STOP_MONTH_2003.01_XRND
cemFr7_2 FDSTMPS_STOP_MONTH_2003.02_XRND
cemFr7_3 FDSTMPS_STOP_MONTH_2003.03_XRND
cemFr8_1 FDSTMPS_STOP_MONTH_2004.01_XRND
cemFr8_2 FDSTMPS_STOP_MONTH_2004.02_XRND
cemFr8_3 FDSTMPS_STOP_MONTH_2004.03_XRND
cemFr9_1 FDSTMPS_STOP_MONTH_2005.01_XRND
cemFr9_2 FDSTMPS_STOP_MONTH_2005.02_XRND
cemFr9_3 FDSTMPS_STOP_MONTH_2005.03_XRND
cemFr10_1 FDSTMPS_STOP_MONTH_2006.01_XRND
cemFr10_2 FDSTMPS_STOP_MONTH_2006.02_XRND
cemFr10_3 FDSTMPS_STOP_MONTH_2006.03_XRND
cemFr10_4 FDSTMPS_STOP_MONTH_2006.04_XRND
cemFr11_1 FDSTMPS_STOP_MONTH_2007.01_XRND
cemFr11_2 FDSTMPS_STOP_MONTH_2007.02_XRND
cemFr11_3 FDSTMPS_STOP_MONTH_2007.03_XRND
cemFr12_1 FDSTMPS_STOP_MONTH_2008.01_XRND
cemFr12_2 FDSTMPS_STOP_MONTH_2008.02_XRND
cemFr12_3 FDSTMPS_STOP_MONTH_2008.03_XRND
cemFr13_1 FDSTMPS_STOP_MONTH_2009.01_XRND
cemFr13_2 FDSTMPS_STOP_MONTH_2009.02_XRND
cemFr13_3 FDSTMPS_STOP_MONTH_2009.03_XRND
aflFr1_1 FDSTMPS_EDIT_AMT_1997.01_XRND
aflFr1_2 FDSTMPS_EDIT_AMT_1997.02_XRND
aflFr2_1 FDSTMPS_EDIT_AMT_1998.01_XRND
aflFr2_2 FDSTMPS_EDIT_AMT_1998.02_XRND
aflFr2_3 FDSTMPS_EDIT_AMT_1998.03_XRND
aflFr3_1 FDSTMPS_EDIT_AMT_1999.01_XRND
aflFr3_2 FDSTMPS_EDIT_AMT_1999.02_XRND
aflFr4_1 FDSTMPS_EDIT_AMT_2000.01_XRND
aflFr4_2 FDSTMPS_EDIT_AMT_2000.02_XRND
aflFr4_3 FDSTMPS_EDIT_AMT_2000.03_XRND
aflFr5_1 FDSTMPS_EDIT_AMT_2001.01_XRND
aflFr5_2 FDSTMPS_EDIT_AMT_2001.02_XRND
aflFr5_3 FDSTMPS_EDIT_AMT_2001.03_XRND
aflFr6_1 FDSTMPS_EDIT_AMT_2002.01_XRND
aflFr6_2 FDSTMPS_EDIT_AMT_2002.02_XRND
aflFr6_3 FDSTMPS_EDIT_AMT_2002.03_XRND
aflFr7_1 FDSTMPS_EDIT_AMT_2003.01_XRND
aflFr7_2 FDSTMPS_EDIT_AMT_2003.02_XRND
aflFr7_3 FDSTMPS_EDIT_AMT_2003.03_XRND
aflFr8_1 FDSTMPS_EDIT_AMT_2004.01_XRND
aflFr8_2 FDSTMPS_EDIT_AMT_2004.02_XRND
aflFr8_3 FDSTMPS_EDIT_AMT_2004.03_XRND
aflFr9_1 FDSTMPS_EDIT_AMT_2005.01_XRND
aflFr9_2 FDSTMPS_EDIT_AMT_2005.02_XRND
aflFr9_3 FDSTMPS_EDIT_AMT_2005.03_XRND
aflFr10_1 FDSTMPS_EDIT_AMT_2006.01_XRND
aflFr10_2 FDSTMPS_EDIT_AMT_2006.02_XRND
aflFr10_3 FDSTMPS_EDIT_AMT_2006.03_XRND
aflFr10_4 FDSTMPS_EDIT_AMT_2006.04_XRND
aflFr11_1 FDSTMPS_EDIT_AMT_2007.01_XRND
aflFr11_2 FDSTMPS_EDIT_AMT_2007.02_XRND
aflFr11_3 FDSTMPS_EDIT_AMT_2007.03_XRND
aflFr12_1 FDSTMPS_EDIT_AMT_2008.01_XRND
aflFr12_2 FDSTMPS_EDIT_AMT_2008.02_XRND
aflFr12_3 FDSTMPS_EDIT_AMT_2008.03_XRND
aflFr13_1 FDSTMPS_EDIT_AMT_2009.01_XRND
aflFr13_2 FDSTMPS_EDIT_AMT_2009.02_XRND
aflFr13_3 FDSTMPS_EDIT_AMT_2009.03_XRND
eflFr1_1 FDSTMPS_EDIT_DATE_1997.01_XRND
eflFr1_2 FDSTMPS_EDIT_DATE_1997.02_XRND
eflFr2_1 FDSTMPS_EDIT_DATE_1998.01_XRND
eflFr2_2 FDSTMPS_EDIT_DATE_1998.02_XRND
eflFr2_3 FDSTMPS_EDIT_DATE_1998.03_XRND
eflFr3_1 FDSTMPS_EDIT_DATE_1999.01_XRND
eflFr3_2 FDSTMPS_EDIT_DATE_1999.02_XRND
eflFr4_1 FDSTMPS_EDIT_DATE_2000.01_XRND
eflFr4_2 FDSTMPS_EDIT_DATE_2000.02_XRND
eflFr4_3 FDSTMPS_EDIT_DATE_2000.03_XRND
eflFr5_1 FDSTMPS_EDIT_DATE_2001.01_XRND
eflFr5_2 FDSTMPS_EDIT_DATE_2001.02_XRND
eflFr5_3 FDSTMPS_EDIT_DATE_2001.03_XRND
eflFr6_1 FDSTMPS_EDIT_DATE_2002.01_XRND
eflFr6_2 FDSTMPS_EDIT_DATE_2002.02_XRND
eflFr6_3 FDSTMPS_EDIT_DATE_2002.03_XRND
eflFr7_1 FDSTMPS_EDIT_DATE_2003.01_XRND
eflFr7_2 FDSTMPS_EDIT_DATE_2003.02_XRND
eflFr7_3 FDSTMPS_EDIT_DATE_2003.03_XRND
eflFr8_1 FDSTMPS_EDIT_DATE_2004.01_XRND
eflFr8_2 FDSTMPS_EDIT_DATE_2004.02_XRND
eflFr8_3 FDSTMPS_EDIT_DATE_2004.03_XRND
eflFr9_1 FDSTMPS_EDIT_DATE_2005.01_XRND
eflFr9_2 FDSTMPS_EDIT_DATE_2005.02_XRND
eflFr9_3 FDSTMPS_EDIT_DATE_2005.03_XRND
eflFr10_1 FDSTMPS_EDIT_DATE_2006.01_XRND
eflFr10_2 FDSTMPS_EDIT_DATE_2006.02_XRND
eflFr10_3 FDSTMPS_EDIT_DATE_2006.03_XRND
eflFr10_4 FDSTMPS_EDIT_DATE_2006.04_XRND
eflFr11_1 FDSTMPS_EDIT_DATE_2007.01_XRND
eflFr11_2 FDSTMPS_EDIT_DATE_2007.02_XRND
eflFr11_3 FDSTMPS_EDIT_DATE_2007.03_XRND
eflFr12_1 FDSTMPS_EDIT_DATE_2008.01_XRND
eflFr12_2 FDSTMPS_EDIT_DATE_2008.02_XRND
eflFr12_3 FDSTMPS_EDIT_DATE_2008.03_XRND
eflFr13_1 FDSTMPS_EDIT_DATE_2009.01_XRND
eflFr13_2 FDSTMPS_EDIT_DATE_2009.02_XRND
eflFr13_3 FDSTMPS_EDIT_DATE_2009.03_XRND
csmOr1_1 OTHER_START_MONTH_1997.01_XRND
csmOr1_2 OTHER_START_MONTH_1997.02_XRND
csmOr2_1 OTHER_START_MONTH_1998.01_XRND
csmOr2_2 OTHER_START_MONTH_1998.02_XRND
csmOr3_1 OTHER_START_MONTH_1999.01_XRND
csmOr3_2 OTHER_START_MONTH_1999.02_XRND
csmOr4_1 OTHER_START_MONTH_2000.01_XRND
csmOr4_2 OTHER_START_MONTH_2000.02_XRND
csmOr5_1 OTHER_START_MONTH_2001.01_XRND
csmOr5_2 OTHER_START_MONTH_2001.02_XRND
csmOr6_1 OTHER_START_MONTH_2002.01_XRND
csmOr6_2 OTHER_START_MONTH_2002.02_XRND
csmOr7_1 OTHER_START_MONTH_2003.01_XRND
csmOr7_2 OTHER_START_MONTH_2003.02_XRND
csmOr7_3 OTHER_START_MONTH_2003.03_XRND
csmOr8_1 OTHER_START_MONTH_2004.01_XRND
csmOr8_2 OTHER_START_MONTH_2004.02_XRND
csmOr8_3 OTHER_START_MONTH_2004.03_XRND
csmOr9_1 OTHER_START_MONTH_2005.01_XRND
csmOr9_2 OTHER_START_MONTH_2005.02_XRND
csmOr10_1 OTHER_START_MONTH_2006.01_XRND
csmOr10_2 OTHER_START_MONTH_2006.02_XRND
csmOr10_3 OTHER_START_MONTH_2006.03_XRND
csmOr11_1 OTHER_START_MONTH_2007.01_XRND
csmOr11_2 OTHER_START_MONTH_2007.02_XRND
csmOr11_3 OTHER_START_MONTH_2007.03_XRND
csmOr12_1 OTHER_START_MONTH_2008.01_XRND
csmOr12_2 OTHER_START_MONTH_2008.02_XRND
csmOr12_3 OTHER_START_MONTH_2008.03_XRND
csmOr13_1 OTHER_START_MONTH_2009.01_XRND
csmOr13_2 OTHER_START_MONTH_2009.02_XRND
cemOr1_1 OTHER_STOP_MONTH_1997.01_XRND
cemOr1_2 OTHER_STOP_MONTH_1997.02_XRND
cemOr2_1 OTHER_STOP_MONTH_1998.01_XRND
cemOr2_2 OTHER_STOP_MONTH_1998.02_XRND
cemOr3_1 OTHER_STOP_MONTH_1999.01_XRND
cemOr3_2 OTHER_STOP_MONTH_1999.02_XRND
cemOr4_1 OTHER_STOP_MONTH_2000.01_XRND
cemOr4_2 OTHER_STOP_MONTH_2000.02_XRND
cemOr5_1 OTHER_STOP_MONTH_2001.01_XRND
cemOr5_2 OTHER_STOP_MONTH_2001.02_XRND
cemOr6_1 OTHER_STOP_MONTH_2002.01_XRND
cemOr6_2 OTHER_STOP_MONTH_2002.02_XRND
cemOr7_1 OTHER_STOP_MONTH_2003.01_XRND
cemOr7_2 OTHER_STOP_MONTH_2003.02_XRND
cemOr7_3 OTHER_STOP_MONTH_2003.03_XRND
cemOr8_1 OTHER_STOP_MONTH_2004.01_XRND
cemOr8_2 OTHER_STOP_MONTH_2004.02_XRND
cemOr8_3 OTHER_STOP_MONTH_2004.03_XRND
cemOr9_1 OTHER_STOP_MONTH_2005.01_XRND
cemOr9_2 OTHER_STOP_MONTH_2005.02_XRND
cemOr10_1 OTHER_STOP_MONTH_2006.01_XRND
cemOr10_2 OTHER_STOP_MONTH_2006.02_XRND
cemOr10_3 OTHER_STOP_MONTH_2006.03_XRND
cemOr11_1 OTHER_STOP_MONTH_2007.01_XRND
cemOr11_2 OTHER_STOP_MONTH_2007.02_XRND
cemOr11_3 OTHER_STOP_MONTH_2007.03_XRND
cemOr12_1 OTHER_STOP_MONTH_2008.01_XRND
cemOr12_2 OTHER_STOP_MONTH_2008.02_XRND
cemOr12_3 OTHER_STOP_MONTH_2008.03_XRND
cemOr13_1 OTHER_STOP_MONTH_2009.01_XRND
cemOr13_2 OTHER_STOP_MONTH_2009.02_XRND
aflOr1_1 OTHER_EDIT_AMT_1997.01_XRND
aflOr1_2 OTHER_EDIT_AMT_1997.02_XRND
aflOr2_1 OTHER_EDIT_AMT_1998.01_XRND
aflOr2_2 OTHER_EDIT_AMT_1998.02_XRND
aflOr3_1 OTHER_EDIT_AMT_1999.01_XRND
aflOr3_2 OTHER_EDIT_AMT_1999.02_XRND
aflOr4_1 OTHER_EDIT_AMT_2000.01_XRND
aflOr4_2 OTHER_EDIT_AMT_2000.02_XRND
aflOr5_1 OTHER_EDIT_AMT_2001.01_XRND
aflOr5_2 OTHER_EDIT_AMT_2001.02_XRND
aflOr6_1 OTHER_EDIT_AMT_2002.01_XRND
aflOr6_2 OTHER_EDIT_AMT_2002.02_XRND
aflOr7_1 OTHER_EDIT_AMT_2003.01_XRND
aflOr7_2 OTHER_EDIT_AMT_2003.02_XRND
aflOr7_3 OTHER_EDIT_AMT_2003.03_XRND
aflOr8_1 OTHER_EDIT_AMT_2004.01_XRND
aflOr8_2 OTHER_EDIT_AMT_2004.02_XRND
aflOr8_3 OTHER_EDIT_AMT_2004.03_XRND
aflOr9_1 OTHER_EDIT_AMT_2005.01_XRND
aflOr9_2 OTHER_EDIT_AMT_2005.02_XRND
aflOr10_1 OTHER_EDIT_AMT_2006.01_XRND
aflOr10_2 OTHER_EDIT_AMT_2006.02_XRND
aflOr10_3 OTHER_EDIT_AMT_2006.03_XRND
aflOr11_1 OTHER_EDIT_AMT_2007.01_XRND
aflOr11_2 OTHER_EDIT_AMT_2007.02_XRND
aflOr11_3 OTHER_EDIT_AMT_2007.03_XRND
aflOr12_1 OTHER_EDIT_AMT_2008.01_XRND
aflOr12_2 OTHER_EDIT_AMT_2008.02_XRND
aflOr12_3 OTHER_EDIT_AMT_2008.03_XRND
aflOr13_1 OTHER_EDIT_AMT_2009.01_XRND
aflOr13_2 OTHER_EDIT_AMT_2009.02_XRND
eflOr1_1 OTHER_EDIT_DATE_1997.01_XRND
eflOr1_2 OTHER_EDIT_DATE_1997.02_XRND
eflOr2_1 OTHER_EDIT_DATE_1998.01_XRND
eflOr2_2 OTHER_EDIT_DATE_1998.02_XRND
eflOr3_1 OTHER_EDIT_DATE_1999.01_XRND
eflOr3_2 OTHER_EDIT_DATE_1999.02_XRND
eflOr4_1 OTHER_EDIT_DATE_2000.01_XRND
eflOr4_2 OTHER_EDIT_DATE_2000.02_XRND
eflOr5_1 OTHER_EDIT_DATE_2001.01_XRND
eflOr5_2 OTHER_EDIT_DATE_2001.02_XRND
eflOr6_1 OTHER_EDIT_DATE_2002.01_XRND
eflOr6_2 OTHER_EDIT_DATE_2002.02_XRND
eflOr7_1 OTHER_EDIT_DATE_2003.01_XRND
eflOr7_2 OTHER_EDIT_DATE_2003.02_XRND
eflOr7_3 OTHER_EDIT_DATE_2003.03_XRND
eflOr8_1 OTHER_EDIT_DATE_2004.01_XRND
eflOr8_2 OTHER_EDIT_DATE_2004.02_XRND
eflOr8_3 OTHER_EDIT_DATE_2004.03_XRND
eflOr9_1 OTHER_EDIT_DATE_2005.01_XRND
eflOr9_2 OTHER_EDIT_DATE_2005.02_XRND
eflOr10_1 OTHER_EDIT_DATE_2006.01_XRND
eflOr10_2 OTHER_EDIT_DATE_2006.02_XRND
eflOr10_3 OTHER_EDIT_DATE_2006.03_XRND
eflOr11_1 OTHER_EDIT_DATE_2007.01_XRND
eflOr11_2 OTHER_EDIT_DATE_2007.02_XRND
eflOr11_3 OTHER_EDIT_DATE_2007.03_XRND
eflOr12_1 OTHER_EDIT_DATE_2008.01_XRND
eflOr12_2 OTHER_EDIT_DATE_2008.02_XRND
eflOr12_3 OTHER_EDIT_DATE_2008.03_XRND
eflOr13_1 OTHER_EDIT_DATE_2009.01_XRND
eflOr13_2 OTHER_EDIT_DATE_2009.02_XRND
csmWr1_1 WIC_START_MONTH_1997.01_XRND
csmWr1_2 WIC_START_MONTH_1997.02_XRND
csmWr1_3 WIC_START_MONTH_1997.03_XRND
csmWr2_1 WIC_START_MONTH_1998.01_XRND
csmWr2_2 WIC_START_MONTH_1998.02_XRND
csmWr2_3 WIC_START_MONTH_1998.03_XRND
csmWr3_1 WIC_START_MONTH_1999.01_XRND
csmWr3_2 WIC_START_MONTH_1999.02_XRND
csmWr4_1 WIC_START_MONTH_2000.01_XRND
csmWr4_2 WIC_START_MONTH_2000.02_XRND
csmWr4_3 WIC_START_MONTH_2000.03_XRND
csmWr5_1 WIC_START_MONTH_2001.01_XRND
csmWr5_2 WIC_START_MONTH_2001.02_XRND
csmWr5_3 WIC_START_MONTH_2001.03_XRND
csmWr6_1 WIC_START_MONTH_2002.01_XRND
csmWr6_2 WIC_START_MONTH_2002.02_XRND
csmWr6_3 WIC_START_MONTH_2002.03_XRND
csmWr7_1 WIC_START_MONTH_2003.01_XRND
csmWr7_2 WIC_START_MONTH_2003.02_XRND
csmWr7_3 WIC_START_MONTH_2003.03_XRND
csmWr7_4 WIC_START_MONTH_2003.04_XRND
csmWr8_1 WIC_START_MONTH_2004.01_XRND
csmWr8_2 WIC_START_MONTH_2004.02_XRND
csmWr8_3 WIC_START_MONTH_2004.03_XRND
csmWr8_4 WIC_START_MONTH_2004.04_XRND
csmWr9_1 WIC_START_MONTH_2005.01_XRND
csmWr9_2 WIC_START_MONTH_2005.02_XRND
csmWr9_3 WIC_START_MONTH_2005.03_XRND
csmWr10_1 WIC_START_MONTH_2006.01_XRND
csmWr10_2 WIC_START_MONTH_2006.02_XRND
csmWr10_3 WIC_START_MONTH_2006.03_XRND
csmWr11_1 WIC_START_MONTH_2007.01_XRND
csmWr11_2 WIC_START_MONTH_2007.02_XRND
csmWr12_1 WIC_START_MONTH_2008.01_XRND
csmWr12_2 WIC_START_MONTH_2008.02_XRND
csmWr13_1 WIC_START_MONTH_2009.01_XRND
csmWr13_2 WIC_START_MONTH_2009.02_XRND
csmWr13_3 WIC_START_MONTH_2009.03_XRND
cemWr1_1 WIC_STOP_MONTH_1997.01_XRND
cemWr1_2 WIC_STOP_MONTH_1997.02_XRND
cemWr1_3 WIC_STOP_MONTH_1997.03_XRND
cemWr2_1 WIC_STOP_MONTH_1998.01_XRND
cemWr2_2 WIC_STOP_MONTH_1998.02_XRND
cemWr2_3 WIC_STOP_MONTH_1998.03_XRND
cemWr3_1 WIC_STOP_MONTH_1999.01_XRND
cemWr3_2 WIC_STOP_MONTH_1999.02_XRND
cemWr4_1 WIC_STOP_MONTH_2000.01_XRND
cemWr4_2 WIC_STOP_MONTH_2000.02_XRND
cemWr4_3 WIC_STOP_MONTH_2000.03_XRND
cemWr5_1 WIC_STOP_MONTH_2001.01_XRND
cemWr5_2 WIC_STOP_MONTH_2001.02_XRND
cemWr5_3 WIC_STOP_MONTH_2001.03_XRND
cemWr6_1 WIC_STOP_MONTH_2002.01_XRND
cemWr6_2 WIC_STOP_MONTH_2002.02_XRND
cemWr6_3 WIC_STOP_MONTH_2002.03_XRND
cemWr7_1 WIC_STOP_MONTH_2003.01_XRND
cemWr7_2 WIC_STOP_MONTH_2003.02_XRND
cemWr7_3 WIC_STOP_MONTH_2003.03_XRND
cemWr7_4 WIC_STOP_MONTH_2003.04_XRND
cemWr8_1 WIC_STOP_MONTH_2004.01_XRND
cemWr8_2 WIC_STOP_MONTH_2004.02_XRND
cemWr8_3 WIC_STOP_MONTH_2004.03_XRND
cemWr8_4 WIC_STOP_MONTH_2004.04_XRND
cemWr9_1 WIC_STOP_MONTH_2005.01_XRND
cemWr9_2 WIC_STOP_MONTH_2005.02_XRND
cemWr9_3 WIC_STOP_MONTH_2005.03_XRND
cemWr10_1 WIC_STOP_MONTH_2006.01_XRND
cemWr10_2 WIC_STOP_MONTH_2006.02_XRND
cemWr10_3 WIC_STOP_MONTH_2006.03_XRND
cemWr11_1 WIC_STOP_MONTH_2007.01_XRND
cemWr11_2 WIC_STOP_MONTH_2007.02_XRND
cemWr12_1 WIC_STOP_MONTH_2008.01_XRND
cemWr12_2 WIC_STOP_MONTH_2008.02_XRND
cemWr13_1 WIC_STOP_MONTH_2009.01_XRND
cemWr13_2 WIC_STOP_MONTH_2009.02_XRND
cemWr13_3 WIC_STOP_MONTH_2009.03_XRND
aflWr1_1 WIC_EDIT_AMT_1997.01_XRND
aflWr1_2 WIC_EDIT_AMT_1997.02_XRND
aflWr1_3 WIC_EDIT_AMT_1997.03_XRND
aflWr2_1 WIC_EDIT_AMT_1998.01_XRND
aflWr2_2 WIC_EDIT_AMT_1998.02_XRND
aflWr2_3 WIC_EDIT_AMT_1998.03_XRND
aflWr3_1 WIC_EDIT_AMT_1999.01_XRND
aflWr3_2 WIC_EDIT_AMT_1999.02_XRND
aflWr4_1 WIC_EDIT_AMT_2000.01_XRND
aflWr4_2 WIC_EDIT_AMT_2000.02_XRND
aflWr4_3 WIC_EDIT_AMT_2000.03_XRND
aflWr5_1 WIC_EDIT_AMT_2001.01_XRND
aflWr5_2 WIC_EDIT_AMT_2001.02_XRND
aflWr5_3 WIC_EDIT_AMT_2001.03_XRND
aflWr6_1 WIC_EDIT_AMT_2002.01_XRND
aflWr6_2 WIC_EDIT_AMT_2002.02_XRND
aflWr6_3 WIC_EDIT_AMT_2002.03_XRND
aflWr7_1 WIC_EDIT_AMT_2003.01_XRND
aflWr7_2 WIC_EDIT_AMT_2003.02_XRND
aflWr7_3 WIC_EDIT_AMT_2003.03_XRND
aflWr7_4 WIC_EDIT_AMT_2003.04_XRND
aflWr8_1 WIC_EDIT_AMT_2004.01_XRND
aflWr8_2 WIC_EDIT_AMT_2004.02_XRND
aflWr8_3 WIC_EDIT_AMT_2004.03_XRND
aflWr8_4 WIC_EDIT_AMT_2004.04_XRND
aflWr9_1 WIC_EDIT_AMT_2005.01_XRND
aflWr9_2 WIC_EDIT_AMT_2005.02_XRND
aflWr9_3 WIC_EDIT_AMT_2005.03_XRND
aflWr10_1 WIC_EDIT_AMT_2006.01_XRND
aflWr10_2 WIC_EDIT_AMT_2006.02_XRND
aflWr10_3 WIC_EDIT_AMT_2006.03_XRND
aflWr11_1 WIC_EDIT_AMT_2007.01_XRND
aflWr11_2 WIC_EDIT_AMT_2007.02_XRND
aflWr12_1 WIC_EDIT_AMT_2008.01_XRND
aflWr12_2 WIC_EDIT_AMT_2008.02_XRND
aflWr13_1 WIC_EDIT_AMT_2009.01_XRND
aflWr13_2 WIC_EDIT_AMT_2009.02_XRND
aflWr13_3 WIC_EDIT_AMT_2009.03_XRND
eflWr1_1 WIC_EDIT_DATE_1997.01_XRND
eflWr1_2 WIC_EDIT_DATE_1997.02_XRND
eflWr1_3 WIC_EDIT_DATE_1997.03_XRND
eflWr2_1 WIC_EDIT_DATE_1998.01_XRND
eflWr2_2 WIC_EDIT_DATE_1998.02_XRND
eflWr2_3 WIC_EDIT_DATE_1998.03_XRND
eflWr3_1 WIC_EDIT_DATE_1999.01_XRND
eflWr3_2 WIC_EDIT_DATE_1999.02_XRND
eflWr4_1 WIC_EDIT_DATE_2000.01_XRND
eflWr4_2 WIC_EDIT_DATE_2000.02_XRND
eflWr4_3 WIC_EDIT_DATE_2000.03_XRND
eflWr5_1 WIC_EDIT_DATE_2001.01_XRND
eflWr5_2 WIC_EDIT_DATE_2001.02_XRND
eflWr5_3 WIC_EDIT_DATE_2001.03_XRND
eflWr6_1 WIC_EDIT_DATE_2002.01_XRND
eflWr6_2 WIC_EDIT_DATE_2002.02_XRND
eflWr6_3 WIC_EDIT_DATE_2002.03_XRND
eflWr7_1 WIC_EDIT_DATE_2003.01_XRND
eflWr7_2 WIC_EDIT_DATE_2003.02_XRND
eflWr7_3 WIC_EDIT_DATE_2003.03_XRND
eflWr7_4 WIC_EDIT_DATE_2003.04_XRND
eflWr8_1 WIC_EDIT_DATE_2004.01_XRND
eflWr8_2 WIC_EDIT_DATE_2004.02_XRND
eflWr8_3 WIC_EDIT_DATE_2004.03_XRND
eflWr8_4 WIC_EDIT_DATE_2004.04_XRND
eflWr9_1 WIC_EDIT_DATE_2005.01_XRND
eflWr9_2 WIC_EDIT_DATE_2005.02_XRND
eflWr9_3 WIC_EDIT_DATE_2005.03_XRND
eflWr10_1 WIC_EDIT_DATE_2006.01_XRND
eflWr10_2 WIC_EDIT_DATE_2006.02_XRND
eflWr10_3 WIC_EDIT_DATE_2006.03_XRND
eflWr11_1 WIC_EDIT_DATE_2007.01_XRND
eflWr11_2 WIC_EDIT_DATE_2007.02_XRND
eflWr12_1 WIC_EDIT_DATE_2008.01_XRND
eflWr12_2 WIC_EDIT_DATE_2008.02_XRND
eflWr13_1 WIC_EDIT_DATE_2009.01_XRND
eflWr13_2 WIC_EDIT_DATE_2009.02_XRND
eflWr13_3 WIC_EDIT_DATE_2009.03_XRND
SEX KEY!SEX_1997
BDATEM KEY!BDATE_M_1997
BDATEY KEY!BDATE_Y_1997
CV_INTERVIEW_DATE_M_1997 CV_INTERVIEW_DATE_M_1997
CV_INTERVIEW_DATE_Y_1997 CV_INTERVIEW_DATE_Y_1997
CV_INTERVIEW_DATE_M_1998 CV_INTERVIEW_DATE~M_1998
CV_INTERVIEW_DATE_Y_1998 CV_INTERVIEW_DATE~Y_1998
CV_INTERVIEW_DATE_M_1999 CV_INTERVIEW_DATE~M_1999
CV_INTERVIEW_DATE_Y_1999 CV_INTERVIEW_DATE~Y_1999
CV_INTERVIEW_DATE_M_2000 CV_INTERVIEW_DATE~M_2000
CV_INTERVIEW_DATE_Y_2000 CV_INTERVIEW_DATE~Y_2000
CV_INTERVIEW_DATE_M_2001 CV_INTERVIEW_DATE~M_2001
CV_INTERVIEW_DATE_Y_2001 CV_INTERVIEW_DATE~Y_2001
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
CV_INTERVIEW_DATE_M_2004 CV_INTERVIEW_DATE~M_2004
CV_INTERVIEW_DATE_Y_2004 CV_INTERVIEW_DATE~Y_2004
CV_INTERVIEW_DATE_M_2005 CV_INTERVIEW_DATE~M_2005
CV_INTERVIEW_DATE_Y_2005 CV_INTERVIEW_DATE~Y_2005
CV_INTERVIEW_DATE_M_2006 CV_INTERVIEW_DATE~M_2006
CV_INTERVIEW_DATE_Y_2006 CV_INTERVIEW_DATE~Y_2006
CV_INTERVIEW_DATE_M_2007 CV_INTERVIEW_DATE~M_2007
CV_INTERVIEW_DATE_Y_2007 CV_INTERVIEW_DATE~Y_2007
CV_INTERVIEW_DATE_M_2008 CV_INTERVIEW_DATE~M_2008
CV_INTERVIEW_DATE_Y_2008 CV_INTERVIEW_DATE~Y_2008
CV_INTERVIEW_DATE_M_2009 CV_INTERVIEW_DATE~M_2009
CV_INTERVIEW_DATE_Y_2009 CV_INTERVIEW_DATE~Y_2009
CVC_GOVNT_PRG_YR_2000 CVC_GOVNT_PRG_YR.00_XRND
CVC_GOVNT_PRG_YR_2001 CVC_GOVNT_PRG_YR.01_XRND
CVC_GOVNT_PRG_YR_2002 CVC_GOVNT_PRG_YR.02_XRND
CVC_GOVNT_PRG_YR_2003 CVC_GOVNT_PRG_YR.03_XRND
CVC_GOVNT_PRG_YR_2004 CVC_GOVNT_PRG_YR.04_XRND
CVC_GOVNT_PRG_YR_2005 CVC_GOVNT_PRG_YR.05_XRND
CVC_GOVNT_PRG_YR_2006 CVC_GOVNT_PRG_YR.06_XRND
CVC_GOVNT_PRG_YR_2007 CVC_GOVNT_PRG_YR.07_XRND
CVC_GOVNT_PRG_YR_2008 CVC_GOVNT_PRG_YR.08_XRND
CVC_GOVNT_PRG_YR_2009 CVC_GOVNT_PRG_YR.09_XRND
CVC_GOVNT_PRG_YR_1980 CVC_GOVNT_PRG_YR.80_XRND
CVC_GOVNT_PRG_YR_1981 CVC_GOVNT_PRG_YR.81_XRND
CVC_GOVNT_PRG_YR_1982 CVC_GOVNT_PRG_YR.82_XRND
CVC_GOVNT_PRG_YR_1983 CVC_GOVNT_PRG_YR.83_XRND
CVC_GOVNT_PRG_YR_1984 CVC_GOVNT_PRG_YR.84_XRND
CVC_GOVNT_PRG_YR_1985 CVC_GOVNT_PRG_YR.85_XRND
CVC_GOVNT_PRG_YR_1986 CVC_GOVNT_PRG_YR.86_XRND
CVC_GOVNT_PRG_YR_1987 CVC_GOVNT_PRG_YR.87_XRND
CVC_GOVNT_PRG_YR_1988 CVC_GOVNT_PRG_YR.88_XRND
CVC_GOVNT_PRG_YR_1989 CVC_GOVNT_PRG_YR.89_XRND
CVC_GOVNT_PRG_YR_1990 CVC_GOVNT_PRG_YR.90_XRND
CVC_GOVNT_PRG_YR_1991 CVC_GOVNT_PRG_YR.91_XRND
CVC_GOVNT_PRG_YR_1992 CVC_GOVNT_PRG_YR.92_XRND
CVC_GOVNT_PRG_YR_1993 CVC_GOVNT_PRG_YR.93_XRND
CVC_GOVNT_PRG_YR_1994 CVC_GOVNT_PRG_YR.94_XRND
CVC_GOVNT_PRG_YR_1995 CVC_GOVNT_PRG_YR.95_XRND
CVC_GOVNT_PRG_YR_1996 CVC_GOVNT_PRG_YR.96_XRND
CVC_GOVNT_PRG_YR_1997 CVC_GOVNT_PRG_YR.97_XRND
CVC_GOVNT_PRG_YR_1998 CVC_GOVNT_PRG_YR.98_XRND
CVC_GOVNT_PRG_YR_1999 CVC_GOVNT_PRG_YR.99_XRND
CVC_GOVNT_PRG_EVER CVC_GOVNT_PRG_EVER_XRND
CVC_AMT_GOVNT_PRG_YR_2000 CVC_AMT_GOVNT_PRG_YR.00_XRND
CVC_AMT_GOVNT_PRG_YR_2001 CVC_AMT_GOVNT_PRG_YR.01_XRND
CVC_AMT_GOVNT_PRG_YR_2002 CVC_AMT_GOVNT_PRG_YR.02_XRND
CVC_AMT_GOVNT_PRG_YR_2003 CVC_AMT_GOVNT_PRG_YR.03_XRND
CVC_AMT_GOVNT_PRG_YR_2004 CVC_AMT_GOVNT_PRG_YR.04_XRND
CVC_AMT_GOVNT_PRG_YR_2005 CVC_AMT_GOVNT_PRG_YR.05_XRND
CVC_AMT_GOVNT_PRG_YR_2006 CVC_AMT_GOVNT_PRG_YR.06_XRND
CVC_AMT_GOVNT_PRG_YR_2007 CVC_AMT_GOVNT_PRG_YR.07_XRND
CVC_AMT_GOVNT_PRG_YR_2008 CVC_AMT_GOVNT_PRG_YR.08_XRND
CVC_AMT_GOVNT_PRG_YR_2009 CVC_AMT_GOVNT_PRG_YR.09_XRND
CVC_AMT_GOVNT_PRG_YR_1980 CVC_AMT_GOVNT_PRG_YR.80_XRND
CVC_AMT_GOVNT_PRG_YR_1981 CVC_AMT_GOVNT_PRG_YR.81_XRND
CVC_AMT_GOVNT_PRG_YR_1982 CVC_AMT_GOVNT_PRG_YR.82_XRND
CVC_AMT_GOVNT_PRG_YR_1983 CVC_AMT_GOVNT_PRG_YR.83_XRND
CVC_AMT_GOVNT_PRG_YR_1984 CVC_AMT_GOVNT_PRG_YR.84_XRND
CVC_AMT_GOVNT_PRG_YR_1985 CVC_AMT_GOVNT_PRG_YR.85_XRND
CVC_AMT_GOVNT_PRG_YR_1986 CVC_AMT_GOVNT_PRG_YR.86_XRND
CVC_AMT_GOVNT_PRG_YR_1987 CVC_AMT_GOVNT_PRG_YR.87_XRND
CVC_AMT_GOVNT_PRG_YR_1988 CVC_AMT_GOVNT_PRG_YR.88_XRND
CVC_AMT_GOVNT_PRG_YR_1989 CVC_AMT_GOVNT_PRG_YR.89_XRND
CVC_AMT_GOVNT_PRG_YR_1990 CVC_AMT_GOVNT_PRG_YR.90_XRND
CVC_AMT_GOVNT_PRG_YR_1991 CVC_AMT_GOVNT_PRG_YR.91_XRND
CVC_AMT_GOVNT_PRG_YR_1992 CVC_AMT_GOVNT_PRG_YR.92_XRND
CVC_AMT_GOVNT_PRG_YR_1993 CVC_AMT_GOVNT_PRG_YR.93_XRND
CVC_AMT_GOVNT_PRG_YR_1994 CVC_AMT_GOVNT_PRG_YR.94_XRND
CVC_AMT_GOVNT_PRG_YR_1995 CVC_AMT_GOVNT_PRG_YR.95_XRND
CVC_AMT_GOVNT_PRG_YR_1996 CVC_AMT_GOVNT_PRG_YR.96_XRND
CVC_AMT_GOVNT_PRG_YR_1997 CVC_AMT_GOVNT_PRG_YR.97_XRND
CVC_AMT_GOVNT_PRG_YR_1998 CVC_AMT_GOVNT_PRG_YR.98_XRND
CVC_AMT_GOVNT_PRG_YR_1999 CVC_AMT_GOVNT_PRG_YR.99_XRND
SAS Code for Variable Creation
/* 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; */
/* 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 p182001 & p208001 not in round 11; */
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 p175001 not in round 11; */
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;
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.;*/
/* Hand Edit Before Part III
Correct wrong information before these are used in creating intermediate variables */
/**************************************************
AFDC cases
**************************************************/
/*********************************************** 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<yme(p,q)<dliym then nefl(p,q)=1;
/* Determine months from estimated weeks variable; */
if wks(p,q)>=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)<dliym then yms(p,q)=dliym;
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)<dliym then yms(p,q)=dliym;
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)<dliym then yms(p,q)=dliym;
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 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)<dliym then yms(p,q)=dliym;
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)<dliym then yms(p,q)=dliym;
end;
/* If weeks missing and currently receiving - set start date to DLI and end date to DCI; */
if -3<=wks(p,q)<0 and cwks(p,q)=1 then do;
yms(p,q)=dliym;
yme(p,q)=iym;
end;
/* weeks are known and not currently receiving then count backward from DCI/or stop date if
known and set Jan of that year as the start year. Then add the number of months receiving
and get the stop date. Constrain stop date by DCI; */
if wks(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;
/* 03-21-07; */
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. Added 03-23-07; */
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<tcsm(p,q)<=tcem(p,q-1) & tefl(p,q)=1 & tefl(p,q-1)=1
& ((tinc(p,q)=tinc(p,q-1) & tinc(p,q)>=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<tcsm(p,q)<tcsm(p,q-1) then csm(p,q-1)=tcsm(p,q);
if 0<tcem(p,q-1)<tcem(p,q) then cem(p,q-1)=tcem(p,q);
csm(p,q)=.;
cem(p,q)=.;
inc(p,q)=.;
who(p,q)=.;
efl(p,q)=.;
afl(p,q)=.;
end;
end;
end;
/* When Rs report overlapping spells being received by different persons it means these are two legit.
spells and so should be counted separately. Our program will however overwrite the earlier spell amt.
by the latter spell amt. for the overlapping months. To correct for that we have to handedit.; */
do p=1 to 4;
do q=2 to (dim(csm,2)/2);
if 0<csm(p,q)<=cem(p,q-1) & efl(p,q)=1 & efl(p,q-1)=1 & who(p,q)~=who(p,q-1) then do;
HE=HE+1;
prgerr=1;
whodf(p)=1;
end;
end;
do q=(dim(csm,2)/2)+2 to dim(csm,2);
if 0<csm(p,q)<=cem(p,q-1) & efl(p,q)=1 & efl(p,q-1)=1 & who(p,q)~=who(p,q-1) then do;
HE=HE+1;
prgerr=1;
whodf(p)=2;
end;
end;
end;
/* When Rs report overlapping spells with amount receiving different and same person receiving for these
spells we put -3 for all the monthly variables as we cannot decide which of the two values to put and
when one spell ended and the other started. Identify these cases and then handedit them. Initially
put the monthly received variables to 9 (that is necessary for the program to work) and then later
change these to -3.; */
do p=1 to 4;
do q=4,3,2,8,7,6;
if 0<tcsm(p,q)<=tcem(p,q-1) & tefl(p,q)=1 & tefl(p,q-1)=1 & twho(p,q)=twho(p,q-1)
& ((tinc(p,q)~=tinc(p,q-1) & tinc(p,q)>=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 0<tcsm(p,q-1)<tcsm(p,q) then csm(p,q)=tcsm(p,q-1);
if 0<tcem(p,q)<tcem(p,q-1) then cem(p,q)=tcem(p,q-1);
efl(p,q)=9;
inc(p,q)=-3;
afl(p,q)=2;
who(p,q)=-3;
csm(p,q-1)=.;
cem(p,q-1)=.;
efl(p,q-1)=.;
inc(p,q-1)=.;
afl(p,q-1)=.;
who(p,q-1)=.;
end;
end;
end;
/* Rs report receiving, currently not receiving and no periods of 1 month or more when they did
not receive. So we take this to be receiving till less than a month before the interview.; */
do p=1 to 4;
do q=1 to dim(csm,2);
if (cur(p,q)=0|cwks(p,q)=0) & stpgp(p,q)=0 then do;
HE=HE+1;
dtps4=1;
if dtp4(p)~=-1 then dtp4(p)=1;
if efl(p,q)>1 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;
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. Nov.23,2009. */
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;
/*******************************************
Start of Hand Edit Cases-1
*******************************************/
/*******************************************
Hand Edit AFDC Cases
*******************************************/
/*******************************************
Hand Edit WIC Cases
*******************************************/
/*******************************************
Hand Edit FS Cases
*******************************************/
/*******************************************
Hand Edit Other Cases
*******************************************/
/*******************************************
End of Hand Edit Cases -1
*******************************************/
/* 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, " 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<csm(1,q)<=c<=cem(1,q) then do;
AREC(l)=efl(1,q);
/* This screen only applies to cases with date edit flag> 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<csm(2,q)<=c<=cem(2,q) then do;
WREC(l)=efl(2,q);
/* This screen makes sure the treatment only applies to cases with date edit flag> 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<csm(3,q)<=c<=cem(3,q) then do;
FREC(l)=efl(3,q);
/* This screen only applies to cases with date edit flag> 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<csm(4,q)<=c<=cem(4,q) then do;
OREC(l)=efl(4,q);
/* This screen only applies to cases with date edit flag> 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 0<csm(p,q)<=cdli then do;
HE=HE+1;
dtps8=1;
if dtp8(p)~=-1 then dtp8(p)=1;
if efl(p,q)>1 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. Added 03-23-07; */
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;
/*************************************************************************************************/
/* Begin of Handedits - 4 */
/****************************************************************************************************/
if pubid=6922 then eflf12=7;
/*************************************************************************************************/
/* End of Handedits - 4 */
/****************************************************************************************************/
/********************************************** 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)<dlicm then do;
edli(p,q)=1;
endli=1;
endlis(p)=1;
if 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)<dlicm then do;
stdli=1;
stdlis(p)=1;
if q>dim(csm,2)/2 then stdlis(p)=2;
end;
if 0<cem(p,q)<csm(p,q) then do;
rvdt(p,q)=1;
revdt=1;
revdts(p)=1;
end;
end;
end;
/* Compute dliprb; */
do l=1 to cdli;
do p=1 to 4;
if AllREC(p,l)>=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 ckrN, ckaN, ckhN and ckvN 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;
ckrN=ckrN+1;
end;
if ALLAMT(p,l)>0 and (ALLREC(p,l)=0 or ALLHHM(p,l)=.) then do;
ckaN=ckaN+1;
end;
if ALLHHM(p,l)>0 and (ALLREC(p,l)=0 or ALLAMT(p,l)=.) then do;
ckhN=ckhN+1;
end;
if ALLREC(p,l)=-3 and ALLAMT(p,l)~=-3 then do;
ckvN=ckvN+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) & 0<csm(p,q+1)<cem(p,q) then do;
if ovp(p)~=-1 then ovp(p)=q;
if efl(p,q+1)>1|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;
endsas;