Participation in Government Programs - Appendix 5

National Longitudinal Survey of Youth - 1997 Cohort

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;