/* SHORT TITLE:  Patient Quest-Time 3 Specific Data   */
PROC FORMAT
;
VALUE  CREC01F
   01  = 'NUMBER          '
;
VALUE  CSREC0F
   00  = 'NOT A REPEATING '
;
VALUE $CITYPEF
  'C' = 'TIME 3 QUESTIONN'
;
VALUE  CRTYPEF
   1  = 'STUDY SUBJECT   '
   2  = 'PROXY           '
;
VALUE  IOANG_F
   1  = 'ENGLISH         '
   2  = 'SPANISH         '
;
VALUE $T3_STAF
  'CO' = 'COMPLETE, WITH R'
  'PR' = 'COMPLETE, WITH P'
  'DD' = 'COMPLETE, WITH P'
;
VALUE  OBSDAYF
   999  = 'NOT ASCERTAINED '
;
VALUE $GAP3FLF
  '1' = 'YES TIME GAP    '
;
VALUE  ADM3__F
   00  = 'NONE            '
;
VALUE  IPNGT3F
   000  = 'NONE            '
;
VALUE $CA1RELF
  '91' = 'OTHER RELATIVE  '
  '92' = 'OTHER NON-RELATI'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CA1SEXF
  '1' = 'MALE            '
  '2' = 'FEMALE          '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CA1AGEF
  '00' = 'NEWBORN TO 11 MO'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CA1SSTF
  '1' = 'YES             '
  '2' = 'NO              '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  CABOX1F
   1  = 'YES             '
   2  = 'NO              '
;
VALUE $CA2___F
  '1' = 'MARRIED         '
  '2' = 'WIDOWED         '
  '3' = 'DIVORCED        '
  '4' = 'SEPARATED       '
  '5' = 'NEVER MARRIED   '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  CA5___F
   01  = 'APARTMENT OR HOU'
   02  = 'APARTMENT OR HOU'
   03  = '"DOUBLED UP" WIT'
   04  = 'SINGLE ROOM OCCU'
   05  = 'SPECIALIZED AIDS'
   06  = 'SHELTERS        '
   07  = 'STREET OR OTHER '
   08  = 'HOSPITAL, NURSIN'
   09  = 'IN FOSTER HOMES '
   10  = 'LIVES WITH SOMEO'
   11  = 'JAIL            '
   12  = 'PUBLIC HOUSING  '
   13  = 'TRAILER/HOUSE UN'
   91  = 'OTHER SPECIFIED '
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE  CA6A__F
   1  = 'CIRCLED         '
   2  = 'NOT CIRCLED     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  CB1___F
   1  = 'YES             '
   2  = 'NO              '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $CBBOX2F
  '1' = 'YES             '
  '2' = 'NO              '
;
VALUE $CB3___F
  '1' = 'THE WHOLE TIME  '
  '2' = 'PART OF THE TIME'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CB4A__F
  '1' = 'CIRCLED         '
  '2' = 'NOT CIRCLED     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CB5MO_F
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CB7___F
  '1' = 'INDIVIDUAL PLAN '
  '2' = 'FAMILY PLAN     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CB8___F
  '01' = 'EMPLOYER/FAMILY '
  '02' = 'UNION           '
  '03' = 'INSURANCE COMPAN'
  '04' = 'SPECIAL INTEREST'
  '05' = 'PUBLIC ASSISTANC'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  CB18__F
   1  = 'YES             '
   2  = 'NO/ NO DECISION '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $CB26__F
  '70' = 'DRUG ASSISTANCE '
  '71' = 'ASSISTANCE FROM '
  '72' = 'CITY FUNDED PROG'
  '73' = 'COUNTY FUNDED PR'
  '74' = 'STATE FUNDED PRO'
  '75' = 'FEDERALLY FUNDED'
  '76' = 'GOVT FUNDED PROG'
  '77' = 'COMMUNITY PROGRA'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CB31A2F
  '1' = 'DAYS            '
  '2' = 'WEEKS           '
  '3' = 'MONTHS          '
  '4' = 'YEARS           '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  CD05CTF
   00  = 'NONE LISTED     '
;
VALUE  CI3___F
   1  = 'YES             '
   2  = 'NO              '
   3  = 'NO CHILDREN     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  CK31CTF
   00  = 'NO DRUGS LISTED '
;
VALUE $CK5A__F
  '991' = 'OTHER SPECIFIED '
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $CK6___F
  '000000' = 'NOTHING         '
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE  CL1___F
   1  = 'FULL-TIME       '
   2  = 'PART-TIME       '
   3  = 'NOT WORKING     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $CLBOX1F
  '1' = 'WORKING FULL TIM'
  '2' = 'WORKING PART-TIM'
  '3' = 'NOT WORKING (NW)'
;
VALUE $CL2___F
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $CL3L4_F
  '9994' = 'UNCODEABLE      '
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $CL4A__F
  '1' = 'LESS THAN 25 PEO'
  '2' = '25-99 PEOPLE    '
  '3' = '100-499 PEOPLE  '
  '4' = '500 OR MORE     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CL6___F
  '01' = 'STOPPED QUIT WOR'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGED TYPE/AMO'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL11__F
  '01' = 'LEAVE OF ABSENCE'
  '02' = 'QUIT            '
  '03' = 'LAID OFF        '
  '04' = 'FIRED           '
  '05' = 'TOO ILL         '
  '06' = 'PREGNANCY       '
  '07' = 'ARRESTED/PRISON '
  '08' = 'RETIRED         '
  '09' = 'KEPT SAME JOB,CH'
  '10' = 'MOVED           '
  '11' = 'JOB ENDED/BUSINE'
  '12' = 'SCHOOL          '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL21__F
  '01' = 'STOPPED QUIT WOR'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGE TYPE/ AMO'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL23__F
  '01' = 'LEAVE OF ABSENCE'
  '02' = 'QUIT            '
  '03' = 'LAID OFF        '
  '04' = 'FIRED           '
  '05' = 'TOO ILL         '
  '06' = 'PREGNANCY       '
  '07' = 'ARRESTED/PRISON '
  '08' = 'RETIRED         '
  '09' = 'KEPT SAME JOB,CH'
  '10' = 'MOVED,LEFT AREA '
  '11' = 'JOB ENDED/BUSINE'
  '12' = 'SCHOOL          '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL27__F
  '01' = 'STOPPED QUIT WOR'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGE TYPE/AMOU'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL30__F
  '01' = 'STOPPED/QUIT WOR'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGED TYPE/AMO'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL31__F
  '01' = '$ 0-200/MO      '
  '02' = '$ 201-350/MO    '
  '03' = '$ 351-500/MO    '
  '04' = '$ 501-750/MO    '
  '05' = '$ 751-900/MO    '
  '06' = '$ 901-1,150/MO  '
  '07' = '$ 1,151-1,300/MO'
  '08' = '$ 1,301-1,450/MO'
  '09' = '$ 1,451-1,600/MO'
  '10' = '$ 1,601-1,750/MO'
  '11' = '$ 1,751-2000/MO '
  '12' = '$ 2,001-3000/MO '
  '13' = '$ 3,001-4,000/MO'
  '14' = '$ 4,001 OR MORE/'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $CL33BXF
  '1' = 'CHECKED         '
;
VALUE $CL35__F
  '1' = 'YES             '
  '2' = 'NO/NO DECISION Y'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $CLBOX4F
  '1' = 'NO CHILDREN LIVI'
  '2' = '1 OR MORE CHILDR'
;
VALUE $CL43__F
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE  CN1___F
   1  = 'VERY CONFIDENT  '
   2  = 'CONFIDENT       '
   3  = 'UNSURE          '
   4  = 'DOUBTFUL        '
   5  = 'VERY DOUBTFUL   '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $CN2___F
  '91' = 'FLAG FOR QUESTIO'
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  CN5A__F
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
     DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;

 /*****************************************************************************/
 /*                                                                           */
 /*                   GENSAS run of 06/27/1994 at 21:54:54                    */
 /*                                                                           */
 /*****************************************************************************/

     ARRAY _CRDCTS_ (CRDCTSI)   CRDC01 - CRDC99 ;
     DO CRDCTSI = 1 TO 99 ;
          _CRDCTS_ = 0 ;
     END;

 /*****************************************************************************/
 /*                                                                           */
 /*   Read New ID and hold input line (Input Records must be SORTED BY ID)    */
 /*                                                                           */
 /*****************************************************************************/

     INPUT     ID         $  001-009 @ ;
     HOLD_ID = ID      ;


 /*****************************************************************************/
 /*                                                                           */
 /*                     Read in data until ID changes ...                     */
 /*                                                                           */
 /*****************************************************************************/

     DO WHILE (ID       = HOLD_ID);

          INPUT CRDTYP     010-011  @;

          IF CRDTYP = 01 THEN
          DO ;
               LINK CRD01;
          END ;
          ELSE
          DO ;
               PUT 'INVALID CRDTYP : 'ID      =  CRDTYP  = ;
               INPUT ; /* Release input line */
          END ;

          IF EOF THEN
          DO ;
               OUTPUT ;
               RETURN;
          END ;

          INPUT     HOLD_ID    $  001-009 @;

     END;

     DROP HOLD_ID CRDTYP CRDCTSI CRDC01 - CRDC99 ;
     OUTPUT ;
     INPUT @@ ; /* Hold input line */
     RETURN;


FORMAT
CREC01    CREC01F.
CSREC01   CSREC0F.
CITYPE   $CITYPEF.
CRTYPE    CRTYPEF.
IOANG     IOANG_F.
T3_STAT  $T3_STAF.
OBSDAYS3  OBSDAYF.
GAP3FLAG $GAP3FLF.
ADM3      ADM3__F.
IPNGT3    IPNGT3F.
AMBVS3    IPNGT3F.
ERVS3     IPNGT3F.
HCVS3     IPNGT3F.
OCVS3     IPNGT3F.
MDVS3     IPNGT3F.
CA01CT    ADM3__F.
CA1REL1  $CA1RELF.
CA1SEX1  $CA1SEXF.
CA1AGE1  $CA1AGEF.
CA1SST1  $CA1SSTF.
CA1REL2  $CA1RELF.
CA1SEX2  $CA1SEXF.
CA1AGE2  $CA1AGEF.
CA1SST2  $CA1SSTF.
CA1REL3  $CA1RELF.
CA1SEX3  $CA1SEXF.
CA1AGE3  $CA1AGEF.
CA1SST3  $CA1SSTF.
CA1REL4  $CA1RELF.
CA1SEX4  $CA1SEXF.
CA1AGE4  $CA1AGEF.
CA1SST4  $CA1SSTF.
CA1REL5  $CA1RELF.
CA1SEX5  $CA1SEXF.
CA1AGE5  $CA1AGEF.
CA1SST5  $CA1SSTF.
CA1REL6  $CA1RELF.
CA1SEX6  $CA1SEXF.
CA1AGE6  $CA1AGEF.
CA1SST6  $CA1SSTF.
CA1REL7  $CA1RELF.
CA1SEX7  $CA1SEXF.
CA1AGE7  $CA1AGEF.
CA1SST7  $CA1SSTF.
CA1REL8  $CA1RELF.
CA1SEX8  $CA1SEXF.
CA1AGE8  $CA1AGEF.
CA1SST8  $CA1SSTF.
CA1REL9  $CA1RELF.
CA1SEX9  $CA1SEXF.
CA1AGE9  $CA1AGEF.
CA1SST9  $CA1SSTF.
CA1REL10 $CA1RELF.
CA1SEX10 $CA1SEXF.
CA1AGE10 $CA1AGEF.
CA1SST10 $CA1SSTF.
CABOX1A   CABOX1F.
CABOX1B   CABOX1F.
CA2      $CA2___F.
CA3      $CA1SSTF.
CA4      $CA1SSTF.
CA5       CA5___F.
CA6A      CA6A__F.
CA6B      CA6A__F.
CA6C      CA6A__F.
CA6D      CA6A__F.
CA6E      CA6A__F.
CA6F      CA6A__F.
CB1       CB1___F.
CBBOX2   $CBBOX2F.
CBBOX3    CABOX1F.
CB2      $CA1SSTF.
CB3      $CB3___F.
CB4A     $CB4A__F.
CB4B     $CB4A__F.
CB4C     $CB4A__F.
CB4D     $CB4A__F.
CB4E     $CB4A__F.
CB4F     $CB4A__F.
CB4G     $CB4A__F.
CB4H     $CB4A__F.
CB4I     $CB4A__F.
CB4J     $CB4A__F.
CB4K     $CB4A__F.
CB4L     $CB4A__F.
CB5MO    $CB5MO_F.
CB5YR    $CB5MO_F.
CB6      $CA1SSTF.
CBBOX4   $CBBOX2F.
CB7      $CB7___F.
CB8      $CB8___F.
CB9MO    $CB5MO_F.
CB9YR    $CB5MO_F.
CB10     $CA1SSTF.
CB12     $CA1SSTF.
CB13     $CB3___F.
CB14A    $CB4A__F.
CB14B    $CB4A__F.
CB14C    $CB4A__F.
CB14D    $CB4A__F.
CB14E    $CB4A__F.
CB14F    $CB4A__F.
CB14G    $CB4A__F.
CB14H    $CB4A__F.
CB14I    $CB4A__F.
CB14J    $CB4A__F.
CB14K    $CB4A__F.
CB14L    $CB4A__F.
CBBOX5   $CBBOX2F.
CB16MO   $CB5MO_F.
CB16YR   $CB5MO_F.
CB17     $CA1SSTF.
CB18      CB18__F.
CB19      CB1___F.
CB21      CB1___F.
CBBOX6   $CBBOX2F.
CBBOX7   $CBBOX2F.
CB22     $CA1SSTF.
CB23     $CB3___F.
CB24A    $CB4A__F.
CB24B    $CB4A__F.
CB24C    $CB4A__F.
CB24D    $CB4A__F.
CB24E    $CB4A__F.
CB24F    $CB4A__F.
CB24G    $CB4A__F.
CB24H    $CB4A__F.
CB24I    $CB4A__F.
CB24J    $CB4A__F.
CB24K    $CB4A__F.
CB24L    $CB4A__F.
CB25MO   $CB5MO_F.
CB25YR   $CB5MO_F.
CBBOX8   $CBBOX2F.
CB26     $CB26__F.
CB27MO   $CB5MO_F.
CB27YR   $CB5MO_F.
CBBOX9    CABOX1F.
CB28     $CA1SSTF.
CB29      CB1___F.
CB31A1   $CB5MO_F.
CB31A2   $CB31A2F.
CB31B1   $CB5MO_F.
CB31B2   $CB31A2F.
CD1A      CB1___F.
CD1B     $CB5MO_F.
CD05CT    CD05CTF.
CE1A      CB1___F.
CE1B     $CB5MO_F.
CE07CT    CD05CTF.
CF1       CB1___F.
CF09CT    CD05CTF.
CF2       CB1___F.
CF2A     $CB5MO_F.
CF10CT    CD05CTF.
CF3       CB1___F.
CF3A     $CB5MO_F.
CF11CT    CD05CTF.
CF4       CB1___F.
CF4A     $CB5MO_F.
CF12CT    CD05CTF.
CG1       CB1___F.
CG1A     $CB5MO_F.
CG13CT    CD05CTF.
CG2       CB1___F.
CG2A     $CB5MO_F.
CG14CT    CD05CTF.
CG3       CB1___F.
CG3A     $CB5MO_F.
CG15CT    CD05CTF.
CG4       CB1___F.
CG16CT    CD05CTF.
CH1       CB1___F.
CH2       CB1___F.
CH18CT    CD05CTF.
CI1       CB1___F.
CI20CT    ADM3__F.
CI2       CB1___F.
CI21CT    ADM3__F.
CI3       CI3___F.
CI22CT    ADM3__F.
CI4       CB1___F.
CI23CT    ADM3__F.
CI5       CB1___F.
CI24CT    ADM3__F.
CI6       CB1___F.
CI25CT    ADM3__F.
CI7       CB1___F.
CI26CT    ADM3__F.
CJ1       CB1___F.
CJ1A     $CB5MO_F.
CJ28CT    ADM3__F.
CK1       CB1___F.
CK2       CB1___F.
CK3       CB1___F.
CK30CT    CD05CTF.
CK4       CB1___F.
CK31CT    CK31CTF.
CK5A     $CK5A__F.
CK5B     $CK5A__F.
CK5C     $CK5A__F.
CK5D     $CK5A__F.
CK5E     $CK5A__F.
CK5F     $CK5A__F.
CK5G     $CK5A__F.
CK5H     $CK5A__F.
CK5I     $CK5A__F.
CK5J     $CK5A__F.
CK5K     $CK5A__F.
CK5L     $CK5A__F.
CK5M     $CK5A__F.
CK5N     $CK5A__F.
CK5O     $CK5A__F.
CK5P     $CK5A__F.
CK5Q     $CK5A__F.
CK5R     $CK5A__F.
CK5S     $CK5A__F.
CK5T     $CK5A__F.
CK5U     $CK5A__F.
CK5V     $CK5A__F.
CK5W     $CK5A__F.
CK5X     $CK5A__F.
CK6      $CK6___F.
CL1       CL1___F.
CLBOX1   $CLBOX1F.
CLBOX2   $CLBOX1F.
CL2      $CL2___F.
CL3L4    $CL3L4_F.
CL4A     $CL4A__F.
CL5      $CA1SSTF.
CL6      $CL6___F.
CL7      $CL2___F.
CL8L9    $CL3L4_F.
CL9A     $CL4A__F.
CL10     $CA1SSTF.
CL11     $CL11__F.
CL12     $CA1SSTF.
CL13MO   $CB5MO_F.
CL13YR   $CB5MO_F.
CL14     $CA1SSTF.
CL15     $CL6___F.
CL16     $CL2___F.
CL17L18  $CL3L4_F.
CL18A    $CL4A__F.
CL19     $CA1SSTF.
CL20     $CA1SSTF.
CL21     $CL21__F.
CL22     $CA1SSTF.
CL23     $CL23__F.
CL24     $CA1SSTF.
CL25MO   $CB5MO_F.
CL25YR   $CB5MO_F.
CL26     $CA1SSTF.
CL27     $CL27__F.
CL28     $CA1SSTF.
CL29     $CA1SSTF.
CL30     $CL30__F.
CL31     $CL31__F.
CLBOX3   $CBBOX2F.
CL32     $CA1SSTF.
CL33MO   $CB5MO_F.
CL33YR   $CB5MO_F.
CL33BX   $CL33BXF.
CL34     $CA1SSTF.
CL35     $CL35__F.
CLBOX4   $CLBOX4F.
CL36     $CA1SSTF.
CL37MO   $CB5MO_F.
CL37YR   $CB5MO_F.
CL37BX   $CL33BXF.
CL38     $CA1SSTF.
CL39MO   $CB5MO_F.
CL39YR   $CB5MO_F.
CL39BX   $CL33BXF.
CL40     $CA1SSTF.
CL41MO   $CB5MO_F.
CL41YR   $CB5MO_F.
CL42     $CA1SSTF.
CL43     $CL43__F.
CN1       CN1___F.
CN2      $CN2___F.
CN3       CN1___F.
CN4      $CN2___F.
CN5A      CN5A__F.
CN5B      CN5A__F.
CN5C      CN5A__F.
CN5D      CN5A__F.
CN5E      CN5A__F.
CN5F      CN5A__F.
;
     LABEL

 /*****************************************************************************/
 /*                                                                           */
 /*                         Begin Labels for Card 01                          */
 /*                                                                           */
 /*****************************************************************************/

          CPID01   = '~PATIENT ID NUMBER'
          CREC01   = '~RECORD NUMBER'
          CSREC01  = '~SUBRECORD NUMBER'
          CITYPE   = '~WHAT IS THE INSTRUMENT TYPE?'
          CRTYPE   = '~RESPONDENT TYPE'
          IOANG    = '~QUESTIONNAIRE LANGUAGE VERSION'
          CREFMO   = '~REFERENCE BEGIN MONTH'
          CREFDY   = '~REFERENCE BEGIN DAY'
          CREFYR   = '~REFERENCE BEGIN YEAR'
          CENDMO   = '~REFERENCE END MONTH'
          CENDDY   = '~REFERENCE END DAY'
          CENDYR   = '~REFERENCE END YEAR'
          T3_STAT  = '~QUESTIONNAIRE STATUS'
          OBSDAYS3 = '~OBSERVATION DAYS WITHIN REFERENCE'
          GAP3FLAG = '~PATIENT HAD TIME GAP DURING THE'
          ADM3     = '~NUMBER OF INPATIENT ADMISSIONS'
          IPNGT3   = '~NUMBER OF INPATIENT NIGHTS'
          AMBVS3   = '~NUMBER OF AMBULATORY VISITS, INCLUDES'
          ERVS3    = '~NUMBER OF EMERGENCY ROOM VISITS'
          HCVS3    = '~NUMBER OF HOSPTIAL CLINIC VISITS'
          OCVS3    = '~NUMBER OF OTHER CLINIC VISITS'
          MDVS3    = '~NUMBER OF PRIVATE MD VISITS'
          CA01CT   = '~COUNTER OF PEOPLE LISTED IN Q.A1.'
          CA1REL1  = '~RELATIONSHIP'
          CA1SEX1  = '~SEX'
          CA1AGE1  = '~AGE'
          CA1SST1  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL2  = '~RELATIONSHIP'
          CA1SEX2  = '~SEX'
          CA1AGE2  = '~AGE'
          CA1SST2  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL3  = '~RELATIONSHIP'
          CA1SEX3  = '~SEX'
          CA1AGE3  = '~AGE'
          CA1SST3  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL4  = '~RELATIONSHIP'
          CA1SEX4  = '~SEX'
          CA1AGE4  = '~AGE'
          CA1SST4  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL5  = '~RELATIONSHIP'
          CA1SEX5  = '~SEX'
          CA1AGE5  = '~AGE'
          CA1SST5  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL6  = '~RELATIONSHIP'
          CA1SEX6  = '~SEX'
          CA1AGE6  = '~AGE'
          CA1SST6  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL7  = '~RELATIONSHIP'
          CA1SEX7  = '~SEX'
          CA1AGE7  = '~AGE'
          CA1SST7  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL8  = '~RELATIONSHIP'
          CA1SEX8  = '~SEX'
          CA1AGE8  = '~AGE'
          CA1SST8  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL9  = '~RELATIONSHIP'
          CA1SEX9  = '~SEX'
          CA1AGE9  = '~AGE'
          CA1SST9  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CA1REL10 = '~RELATIONSHIP'
          CA1SEX10 = '~SEX'
          CA1AGE10 = '~AGE'
          CA1SST10 = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          CABOX1A  = '~CHILDREN LISTED?'
          CABOX1B  = '~SPOUSE/PARTNER LISTED?'
          CA2      = '~CURRENT MARITAL STATUS'
          CA3      = '~INVOLVED IN COMMITED RELATIONSHIP NOW'
          CA4      = '~SPOUSE/PARTNER DIAGNOSED HIV POSITIVE'
          CA5      = '~TYPE OF PLACE LIVED MOST OF THE TIME'
          CA6A     = '~TEMP DOUBLED UP WITH FRIENDS/RELATIVE'
          CA6B     = '~SINGLE ROOM ONLY OR "WELFARE HOTEL"'
          CA6C     = '~SPECIALIZED AIDS HOUSING'
          CA6D     = '~SHELTERS'
          CA6E     = '~STREET OR OTHER PUBLIC PLACE'
          CA6F     = '~NONE'
          CB1      = '~COVERED BY PRIVATE HEALTH INS PLAN,HMO'
          CBBOX2   = '~TIME 2 = PRIVATE INSURANCE'
          CBBOX3   = '~TIME 2 = PRIVATE INSURANCE'
          CB2      = '~SAME PRIVATE HLTH INS PLAN AS LAST TIME'
          CB3      = '~COVERED WHOLE TIME OR ONLY PART TIME'
          CB4A     = '~JANUARY'
          CB4B     = '~FEBRUARY'
          CB4C     = '~MARCH'
          CB4D     = '~APRIL'
          CB4E     = '~MAY'
          CB4F     = '~JUNE'
          CB4G     = '~JULY'
          CB4H     = '~AUGUST'
          CB4I     = '~SEPTEMBER'
          CB4J     = '~OCTOBER'
          CB4K     = '~NOVEMBER'
          CB4L     = '~DECEMBER'
          CB5MO    = '~MO PREVIOUS HEALTH INSUR COVREAGE END'
          CB5YR    = '~YR PREVIOUS HEALTH INSUR COVERAGE END'
          CB6      = '~HAPPENED BECAUSE OF YOUR HIV INFECTION'
          CBBOX4   = '~LOOK AT Q. B-1. R ANSWERED:'
          CB7      = '~CURRENT PLAN INDIVIDUAL OR FAMILY'
          CB8      = '~HOW DO YOU GET HEALTH INSURANCE/PLAN'
          CB9MO    = '~MONTH CURRENT HEALTH INSURANCE BEGAN'
          CB9YR    = '~YEAR CURRENT HEALTH MAINTENANCE BEGAN'
          CB10     = '~IS PLAN A HEALTH MAINTENANCE ORG./HMO'
          CB12     = '~COVERED BY MEDICAID/MEDICAID STATE NAME'
          CB13     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          CB14A    = '~JANUARY'
          CB14B    = '~FEBRUARY'
          CB14C    = '~MARCH'
          CB14D    = '~APRIL'
          CB14E    = '~MAY'
          CB14F    = '~JUNE'
          CB14G    = '~JULY'
          CB14H    = '~AUGUST'
          CB14I    = '~SEPTEMBER'
          CB14J    = '~OCTOBER'
          CB14K    = '~NOVEMBER'
          CB14L    = '~DECEMBER'
          CBBOX5   = '~TIME 2 = MEDICAID'
          CB16MO   = '~MONTH WHEN MEDICAID COVERAGE ENDED'
          CB16YR   = '~YEAR WHEN MEDICAID COVERAGE ENDED'
          CB17     = '~HAVE YOU (RE-)APPLIED FOR MEDICAID?'
          CB18     = '~HAVE YOU BEEN TURNED DOWN FOR MEDICAID?'
          CB19     = '~ARE YOU NOW COVERED BY MEDICARE?'
          CB21     = '~COVERED BY OTHER PUBLIC ASSIST PROGRAM'
          CBBOX6   = '~TIME 2 = OTHER PUBLIC ASSISTANCE'
          CBBOX7   = '~TIME 2 = OTHER PUBLIC ASSISTANCE'
          CB22     = '~SAME PUBLIC ASSIST PROGRAM AS LAST TIME'
          CB23     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          CB24A    = '~JANUARY'
          CB24B    = '~FEBRUARY'
          CB24C    = '~MARCH'
          CB24D    = '~APRIL'
          CB24E    = '~MAY'
          CB24F    = '~JUNE'
          CB24G    = '~JULY'
          CB24H    = '~AUGUST'
          CB24I    = '~SEPTEMBER'
          CB24J    = '~OCTOBER'
          CB24K    = '~NOVEMBER'
          CB24L    = '~DECEMBER'
          CB25MO   = '~MONTH PUBLIC ASSISTANCE COVERAGE ENDED'
          CB25YR   = '~YEAR PUBLIC ASSISTANCE COVERAGE ENDED'
          CBBOX8   = '~LOOK AT Q B-21. R ANSWERED:'
          CB26     = '~WHAT IS THE NAME OF CURRENT PROGRAM'
          CB27MO   = '~MONTH CURRENT PROGRAM COVERAGE BEGAN'
          CB27YR   = '~YEAR CURRENT PROGRAM COVERAGE BEGAN'
          CBBOX9   = '~TIME 2 - CHAMPUS/CHAMPVA'
          CB28     = '~ARE YOU COVERED BY CHAMPUS OR CHAMPVA'
          CB29     = '~IN CLINICAL TRIALS FOR ANY MEDICATIONS'
          CB31A1   = '~LENGTH OF FIRST TRIAL'
          CB31A2   = '~UNIT OF FIRST TRIAL'
          CB31B1   = '~LENGTH OF SECOND TRIAL'
          CB31B2   = '~UNIT OF SECOND TRIAL'
          CD1A     = '~PATIENT IN HOSPITAL OVERNIGHT OR LONGER'
          CD1B     = '~HOW MANY TIMES IN HOSP OVERNIGHT/LONGER'
          CD05CT   = '~NUMBER OF INPATIENT STAY RECORDS'
          CE1A     = '~IN RES CARE,NURS HOME,HOSPICE OVERNIGHT'
          CE1B     = '~# OF TIMES IN RES CARE,NURS HOME,HSPC'
          CE07CT   = '~NUMBER OF NURSING HOME/RESIDENTIAL CARE'
          CF1      = '~GO TO HOSP EMERGENCY ROOM FOR MED CARE'
          CF1A     = '~HOW MANY DIFF EMERGENCY ROOMS VISITED'
          CF09CT   = '~NUMBER OF EMERGENCY ROOM RECORDS'
          CF2      = '~GO TO HOSP CLINIC,HOSP OUT-PATIENT DEPT'
          CF2A     = '~HOW MANY DIFF HOSPITAL CLINICS VISITED'
          CF10CT   = '~NUMBER OF HOSPITAL CLINIC RECORDS'
          CF3      = '~GO TO ANY OTHER MEDICAL CLINIC'
          CF3A     = '~HOW MANY DIFF MEDICAL CLINICS VISITED'
          CF11CT   = '~NUMBER OF MEDICAL CLINIC RECORDS'
          CF4      = '~GO TO A PRIVATE DOCTOR''S OFFICE'
          CF4A     = '~# OF DIFF PRIVATE DR OFFICES VISITED'
          CF12CT   = '~GO TO SUPPORT GROUP/PSYCH/COUNSEL/THERA'
          CG1      = '~GO TO SUPPORT GROUP,PSYCH COUNSEL/THERA'
          CG1A     = '~HOW MANY DIFF SUPPORT GROUPS VISITED'
          CG13CT   = '~NUMBER OF MENTAL HEALTH PROVIDER'
          CG2      = '~GO TO ANY MEDICAL PRACTITIONERS'
          CG2A     = '~HOW MANY DIFF MED PRACTITIONERS VISITED'
          CG14CT   = '~NUMBER OF MEDICAL PRACTITIONER RECORDS'
          CG3      = '~GO TO ANY ALTERNATIVE THERAPIST'
          CG3A     = '~HOW MANY DIFF ALTER THERAPISTS VISITED'
          CG15CT   = '~NUMBER OF ALTERNATIVE THERAPIST RECORDS'
          CG4      = '~BUY/REPLACE SPECIAL MEDICAL EQUIPMENT'
          CG16CT   = '~NUMBER OF MEDICAL EQUIPMENT PROVIDER'
          CH1      = '~HAVE ANY PEOPLE HELPED YOU AT HOME'
          CH2      = '~BEEN HELPED AT HOME BY ANY OTHER PEOPLE'
          CH18CT   = '~NUMBER OF HOME HEALTH PROVIDER RECORDS'
          CI1      = '~GOT HELP FINDING/KEEPING PLACE TO LIVE'
          CI20CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI2      = '~RECEIVED HELP WITH LEGAL SERVICES'
          CI21CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI3      = '~RECEIVED HELP WITH CHILD CARE'
          CI22CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI4      = '~RECEIVED HELP WITH TRANSPORTATION'
          CI23CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI5      = '~RECEIVED HELP WITH OBTAINING FOOD'
          CI24CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI6      = '~RECEIVED HELP WITH FINANCIAL ASSISTANCE'
          CI25CT   = '~# OF DIFFERENT PROVIDERS USED'
          CI7      = '~RCVNG ALCOHOL/DRUG TREATMENT/COUNSEL'
          CI26CT   = '~# OF DIFFERENT PROVIDERS USED'
          CJ1      = '~SEEN DENTIST,ORAL SURG,DNTL CARE PROV'
          CJ1A     = '~# OF TIMES SEEN DENTIST,ORAL SURG,ETC'
          CJ28CT   = '~NUMBER OF DENTAL VISIT RECORDS'
          CK1      = '~TAKEN ANY MEDICINES OR DRUGS LISTED'
          CK2      = '~TAKEN ANY NEW MEDICINES OR DRUGS LISTED'
          CK3      = '~TAKEN OTHER PRESCRIPTION MEDICINE/DRUG'
          CK30CT   = '~NUMBER OF PRESCRIPTION DRUG RECORDS'
          CK4      = '~TAKEN NON-PRESCRIPTION MEDICINES/DRUGS'
          CK31CT   = '~# OF NON-PRESCRIPTION DRUGS LISTED'
          CK5A     = '~NON-PRESCRIPTION DRUG 1'
          CK5B     = '~NON-PRESCRIPTION DRUG 2'
          CK5C     = '~NON-PRESCRIPTION DRUG 3'
          CK5D     = '~NON-PRESCRIPTION DRUG 4'
          CK5E     = '~NON-PRESCRIPTION DRUG 5'
          CK5F     = '~NON-PRESCRIPTION DRUG 6'
          CK5G     = '~NON-PRESCRIPTION DRUG 7'
          CK5H     = '~NON-PRESCRIPTION DRUG 8'
          CK5I     = '~NON-PRESCRIPTION DRUG 9'
          CK5J     = '~NON-PRESCRIPTION DRUG 10'
          CK5K     = '~NON-PRESCRIPTION DRUG 11'
          CK5L     = '~NON-PRESCRIPTION DRUG 12'
          CK5M     = '~NON-PRESCRIPTION DRUG 13'
          CK5N     = '~NON-PRESCRIPTION DRUG 14'
          CK5O     = '~NON-PRESCRIPTION DRUG 15'
          CK5P     = '~NON-PRESCRIPTION DRUG 16'
          CK5Q     = '~NON-PRESCRIPTION DRUG 17'
          CK5R     = '~NON-PRESCRIPTION DRUG 18'
          CK5S     = '~NON-PRESCRIPTION DRUG 19'
          CK5T     = '~NON-PRESCRIPTION DRUG 20'
          CK5U     = '~NON-PRESCRIPTION DRUG 21'
          CK5V     = '~NON-PRESCRIPTION DRUG 22'
          CK5W     = '~NON-PRESCRIPTION DRUG 23'
          CK5X     = '~NON-PRESCRIPTION DRUG 24'
          CK6      = '~TOTAL AMOUNT PAID FOR NON-PRE MEDICINES'
          CL1      = '~WORK FULL TIME,PT TIME,NOT WORKING NOW'
          CLBOX1   = '~R WORKING PART TIME.LAST TIME R WAS:'
          CLBOX2   = '~R NOT WORKING.LAST TIME R WAS:'
          CL2      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          CL3L4    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          CL4A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          CL5      = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          CL6      = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          CL7      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          CL8L9    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          CL9A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          CL10     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          CL11     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          CL12     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          CL13MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          CL13YR   = '~IN WHAT YEAR LEFT THAT (FULL TIME) JOB'
          CL14     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          CL15     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          CL16     = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          CL17L18  = '~CURRENT OCCUTATION,IMPORTANT ACTIVITIES'
          CL18A    = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          CL19     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          CL20     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          CL21     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          CL22     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          CL23     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          CL24     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          CL25MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          CL25YR   = '~IN WHAT YEAR LEFT THAT (FULL TIME) JOB'
          CL26     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          CL27     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          CL28     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          CL29     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          CL30     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          CL31     = '~TOTAL INCOME BEFORE TAXES FOR PAST MO.'
          CLBOX3   = '~R WORKING FULL TIME (Q.L-1)'
          CL32     = '~RECEIVED SOCIAL SECUR DISABIL PAYMENT'
          CL33MO   = '~MO RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          CL33YR   = '~YR RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          CL33BX   = '~1ST SOC SEC DISABIL PAY BEFORE REF DATE'
          CL34     = '~APPLIED FOR SOC SEC DISABIL PAYMENT'
          CL35     = '~TURNED DOWN FOR SOC SEC DISABIL PAYMENT'
          CLBOX4   = '~R HAS: NO CHILDREN/1 OR MORE CHILDREN'
          CL36     = '~RECEIVED ASSISTANCE THROUGH AFDC/ADC'
          CL37MO   = '~MONTH RECEIVED 1ST AFDC PAYMENT'
          CL37YR   = '~YEAR RECEIVED 1ST AFDC PAYMENT'
          CL37BX   = '~1ST AFDC PAYMENT BEFORE REFERENCE DATE'
          CL38     = '~RECEIVED SUPPLEMENTAL SECURITY INCOME'
          CL39MO   = '~MONTH RECEIVED 1ST SSI PAYMENT'
          CL39YR   = '~YEAR RECEIVED 1ST SSI PAYMENT'
          CL39BX   = '~1ST SSI PAYMENT BEFORE REFERENCE DATE'
          CL40     = '~HAVE YOU RECEIVED FOOD STAMPS'
          CL41MO   = '~MONTH RECEIVED 1ST FOOD STAMPS'
          CL41YR   = '~YEAR RECEIVED 1ST FOOD STAMPS'
          CL42     = '~RCVD $ FROM PARENTS, FRIENDS, FAMILY'
          CL43     = '~HOW MUCH MONEY HAVE YOU RECEIVED'
          CN1      = '~INDICATE CONFIDENCE IN RS TRUTHFULNESS'
          CN2      = '~INDICATE CONFIDENCE IN R''S ACCURACY'
          CN3      = '~PLEASE INDICATE YOUR CONFIDENCE IN THE'
          CN4      = '~WHY?'
          CN5A     = '~ABLE TO UNDERSTAND QUESTIONS'
          CN5B     = '~COOPERATIVE'
          CN5C     = '~NO LANGUAGE PROBLEM'
          CN5D     = '~INTERVIEWED WITHOUT INTERRUPTION'
          CN5E     = '~SOBER'
          CN5F     = '~PHYSICALLY OR MENTALLY FATIGUED'
     ;
     RETURN;

 /*****************************************************************************/
 /*                                                                           */
 /*                        Input statement for Card 01                        */
 /*                                                                           */
 /*****************************************************************************/

     CRD01 :
     INPUT
               CPID01             001-009
               CREC01             010-011
               CSREC01            012-013
               CITYPE       $     014
               CRTYPE             015
               IOANG              016
               CREFMO             017-018
               CREFDY             019-020
               CREFYR             021-022
               CENDMO       $     023-024
               CENDDY       $     025-026
               CENDYR       $     027-028
               T3_STAT      $     029-030
               OBSDAYS3           031-033
               GAP3FLAG     $     034
               ADM3               035-036
               IPNGT3             037-039
               AMBVS3             040-042
               ERVS3              043-045
               HCVS3              046-048
               OCVS3              049-051
               MDVS3              052-054
               CA01CT             055-056
               CA1REL1      $     057-058
               CA1SEX1      $     059
               CA1AGE1      $     060-061
               CA1SST1      $     062
               CA1REL2      $     063-064
               CA1SEX2      $     065
               CA1AGE2      $     066-067
               CA1SST2      $     068
               CA1REL3      $     069-070
               CA1SEX3      $     071
               CA1AGE3      $     072-073
               CA1SST3      $     074
               CA1REL4      $     075-076
               CA1SEX4      $     077
               CA1AGE4      $     078-079
               CA1SST4      $     080
               CA1REL5      $     081-082
               CA1SEX5      $     083
               CA1AGE5      $     084-085
               CA1SST5      $     086
               CA1REL6      $     087-088
               CA1SEX6      $     089
               CA1AGE6      $     090-091
               CA1SST6      $     092
               CA1REL7      $     093-094
               CA1SEX7      $     095
               CA1AGE7      $     096-097
               CA1SST7      $     098
               CA1REL8      $     099-100
               CA1SEX8      $     101
               CA1AGE8      $     102-103
               CA1SST8      $     104
               CA1REL9      $     105-106
               CA1SEX9      $     107
               CA1AGE9      $     108-109
               CA1SST9      $     110
               CA1REL10     $     111-112
               CA1SEX10     $     113
               CA1AGE10     $     114-115
               CA1SST10     $     116
               CABOX1A            117
               CABOX1B            118
               CA2          $     119
               CA3          $     120
               CA4          $     121
               CA5                122-123
               CA6A               124
               CA6B               125
               CA6C               126
               CA6D               127
               CA6E               128
               CA6F               129
               CB1                130
               CBBOX2       $     131
               CBBOX3             132
               CB2          $     133
               CB3          $     134
               CB4A         $     135
               CB4B         $     136
               CB4C         $     137
               CB4D         $     138
               CB4E         $     139
               CB4F         $     140
               CB4G         $     141
               CB4H         $     142
               CB4I         $     143
               CB4J         $     144
               CB4K         $     145
               CB4L         $     146
               CB5MO        $     147-148
               CB5YR        $     149-150
               CB6          $     151
               CBBOX4       $     152
               CB7          $     153
               CB8          $     154-155
               CB9MO        $     156-157
               CB9YR        $     158-159
               CB10         $     160
               CB12         $     161
               CB13         $     162
               CB14A        $     163
               CB14B        $     164
               CB14C        $     165
               CB14D        $     166
               CB14E        $     167
               CB14F        $     168
               CB14G        $     169
               CB14H        $     170
               CB14I        $     171
               CB14J        $     172
               CB14K        $     173
               CB14L        $     174
               CBBOX5       $     175
               CB16MO       $     176-177
               CB16YR       $     178-179
               CB17         $     180
               CB18               181
               CB19               182
               CB21               183
               CBBOX6       $     184
               CBBOX7       $     185
               CB22         $     186
               CB23         $     187
               CB24A        $     188
               CB24B        $     189
               CB24C        $     190
               CB24D        $     191
               CB24E        $     192
               CB24F        $     193
               CB24G        $     194
               CB24H        $     195
               CB24I        $     196
               CB24J        $     197
               CB24K        $     198
               CB24L        $     199
               CB25MO       $     200-201
               CB25YR       $     202-203
               CBBOX8       $     204
               CB26         $     205-206
               CB27MO       $     207-208
               CB27YR       $     209-210
               CBBOX9             211
               CB28         $     212
               CB29               213
               CB31A1       $     214-215
               CB31A2       $     216
               CB31B1       $     217-218
               CB31B2       $     219
               CD1A               220
               CD1B         $     221-222
               CD05CT             223-224
               CE1A               225
               CE1B         $     226-227
               CE07CT             228-229
               CF1                230
               CF1A         $     231-232
               CF09CT             233-234
               CF2                235
               CF2A         $     236-237
               CF10CT             238-239
               CF3                240
               CF3A         $     241-242
               CF11CT             243-244
               CF4                245
               CF4A         $     246-247
               CF12CT             248-249
               CG1                250
               CG1A         $     251-252
               CG13CT             253-254
               CG2                255
               CG2A         $     256-257
               CG14CT             258-259
               CG3                260
               CG3A         $     261-262
               CG15CT             263-264
               CG4                265
               CG16CT             266-267
               CH1                268
               CH2                269
               CH18CT             270-271
               CI1                272
               CI20CT             273-274
               CI2                275
               CI21CT             276-277
               CI3                278
               CI22CT             279-280
               CI4                281
               CI23CT             282-283
               CI5                284
               CI24CT             285-286
               CI6                287
               CI25CT             288-289
               CI7                290
               CI26CT             291-292
               CJ1                293
               CJ1A         $     294-295
               CJ28CT             296-297
               CK1                298
               CK2                299
               CK3                300
               CK30CT             301-302
               CK4                303
               CK31CT             304-305
               CK5A         $     306-308
               CK5B         $     309-311
               CK5C         $     312-314
               CK5D         $     315-317
               CK5E         $     318-320
               CK5F         $     321-323
               CK5G         $     324-326
               CK5H         $     327-329
               CK5I         $     330-332
               CK5J         $     333-335
               CK5K         $     336-338
               CK5L         $     339-341
               CK5M         $     342-344
               CK5N         $     345-347
               CK5O         $     348-350
               CK5P         $     351-353
               CK5Q         $     354-356
               CK5R         $     357-359
               CK5S         $     360-362
               CK5T         $     363-365
               CK5U         $     366-368
               CK5V         $     369-371
               CK5W         $     372-374
               CK5X         $     375-377
               CK6          $     378-383
               CL1                384
               CLBOX1       $     385
               CLBOX2       $     386
               CL2          $     387-389
               CL3L4        $     390-393
               CL4A         $     394
               CL5          $     395
               CL6          $     396-397
               CL7          $     398-400
               CL8L9        $     401-404
               CL9A         $     405
               CL10         $     406
               CL11         $     407-408
               CL12         $     409
               CL13MO       $     410-411
               CL13YR       $     412-413
               CL14         $     414
               CL15         $     415-416
               CL16         $     417-419
               CL17L18      $     420-423
               CL18A        $     424
               CL19         $     425
               CL20         $     426
               CL21         $     427-428
               CL22         $     429
               CL23         $     430-431
               CL24         $     432
               CL25MO       $     433-434
               CL25YR       $     435-436
               CL26         $     437
               CL27         $     438-439
               CL28         $     440
               CL29         $     441
               CL30         $     442-443
               CL31         $     444-445
               CLBOX3       $     446
               CL32         $     447
               CL33MO       $     448-449
               CL33YR       $     450-451
               CL33BX       $     452
               CL34         $     453
               CL35         $     454
               CLBOX4       $     455
               CL36         $     456
               CL37MO       $     457-458
               CL37YR       $     459-460
               CL37BX       $     461
               CL38         $     462
               CL39MO       $     463-464
               CL39YR       $     465-466
               CL39BX       $     467
               CL40         $     468
               CL41MO       $     469-470
               CL41YR       $     471-472
               CL42         $     473
               CL43         $     474-479
               CN1                480
               CN2          $     481-482
               CN3                483
               CN4          $     484-485
               CN5A               486
               CN5B               487
               CN5C               488
               CN5D               489
               CN5E               490
               CN5F               491
     ;
     RETURN;
     ;
     PROC FREQ ;  TABLES
          CPID01
          CREC01
          CSREC01
          CITYPE
          CRTYPE
          IOANG
          CREFMO
          CREFDY
          CREFYR
          CENDMO
          CENDDY
          CENDYR
          T3_STAT
          OBSDAYS3
          GAP3FLAG
          ADM3
          IPNGT3
          AMBVS3
          ERVS3
          HCVS3
          OCVS3
          MDVS3
          CA01CT
          CA1REL1
          CA1SEX1
          CA1AGE1
          CA1SST1
          CA1REL2
          CA1SEX2
          CA1AGE2
          CA1SST2
          CA1REL3
          CA1SEX3
          CA1AGE3
          CA1SST3
          CA1REL4
          CA1SEX4
          CA1AGE4
          CA1SST4
          CA1REL5
          CA1SEX5
          CA1AGE5
          CA1SST5
          CA1REL6
          CA1SEX6
          CA1AGE6
          CA1SST6
          CA1REL7
          CA1SEX7
          CA1AGE7
          CA1SST7
          CA1REL8
          CA1SEX8
          CA1AGE8
          CA1SST8
          CA1REL9
          CA1SEX9
          CA1AGE9
          CA1SST9
          CA1REL10
          CA1SEX10
          CA1AGE10
          CA1SST10
          CABOX1A
          CABOX1B
          CA2
          CA3
          CA4
          CA5
          CA6A
          CA6B
          CA6C
          CA6D
          CA6E
          CA6F
          CB1
          CBBOX2
          CBBOX3
          CB2
          CB3
          CB4A
          CB4B
          CB4C
          CB4D
          CB4E
          CB4F
          CB4G
          CB4H
          CB4I
          CB4J
          CB4K
          CB4L
          CB5MO
          CB5YR
          CB6
          CBBOX4
          CB7
          CB8
          CB9MO
          CB9YR
          CB10
          CB12
          CB13
          CB14A
          CB14B
          CB14C
          CB14D
          CB14E
          CB14F
          CB14G
          CB14H
          CB14I
          CB14J
          CB14K
          CB14L
          CBBOX5
          CB16MO
          CB16YR
          CB17
          CB18
          CB19
          CB21
          CBBOX6
          CBBOX7
          CB22
          CB23
          CB24A
          CB24B
          CB24C
          CB24D
          CB24E
          CB24F
          CB24G
          CB24H
          CB24I
          CB24J
          CB24K
          CB24L
          CB25MO
          CB25YR
          CBBOX8
          CB26
          CB27MO
          CB27YR
          CBBOX9
          CB28
          CB29
          CB31A1
          CB31A2
          CB31B1
          CB31B2
          CD1A
          CD1B
          CD05CT
          CE1A
          CE1B
          CE07CT
          CF1
          CF1A
          CF09CT
          CF2
          CF2A
          CF10CT
          CF3
          CF3A
          CF11CT
          CF4
          CF4A
          CF12CT
          CG1
          CG1A
          CG13CT
          CG2
          CG2A
          CG14CT
          CG3
          CG3A
          CG15CT
          CG4
          CG16CT
          CH1
          CH2
          CH18CT
          CI1
          CI20CT
          CI2
          CI21CT
          CI3
          CI22CT
          CI4
          CI23CT
          CI5
          CI24CT
          CI6
          CI25CT
          CI7
          CI26CT
          CJ1
          CJ1A
          CJ28CT
          CK1
          CK2
          CK3
          CK30CT
          CK4
          CK31CT
          CK5A
          CK5B
          CK5C
          CK5D
          CK5E
          CK5F
          CK5G
          CK5H
          CK5I
          CK5J
          CK5K
          CK5L
          CK5M
          CK5N
          CK5O
          CK5P
          CK5Q
          CK5R
          CK5S
          CK5T
          CK5U
          CK5V
          CK5W
          CK5X
          CK6
          CL1
          CLBOX1
          CLBOX2
          CL2
          CL3L4
          CL4A
          CL5
          CL6
          CL7
          CL8L9
          CL9A
          CL10
          CL11
          CL12
          CL13MO
          CL13YR
          CL14
          CL15
          CL16
          CL17L18
          CL18A
          CL19
          CL20
          CL21
          CL22
          CL23
          CL24
          CL25MO
          CL25YR
          CL26
          CL27
          CL28
          CL29
          CL30
          CL31
          CLBOX3
          CL32
          CL33MO
          CL33YR
          CL33BX
          CL34
          CL35
          CLBOX4
          CL36
          CL37MO
          CL37YR
          CL37BX
          CL38
          CL39MO
          CL39YR
          CL39BX
          CL40
          CL41MO
          CL41YR
          CL42
          CL43
          CN1
          CN2
          CN3
          CN4
          CN5A
          CN5B
          CN5C
          CN5D
          CN5E
          CN5F
     ;