/* SHORT TITLE:  Patient Quest-Time 4 Specific Data   */
PROC FORMAT
;
VALUE  GREC01F
   01  = 'NUMBER          '
;
VALUE  GSREC0F
   00  = 'NOT A REPEATING '
;
VALUE $GITYPEF
  'G' = 'TIME 4 QUESTIONN'
;
VALUE  GRTYPEF
   1  = 'STUDY SUBJECT   '
   2  = 'PROXY           '
;
VALUE  GLANG_F
   1  = 'ENGLISH         '
   2  = 'SPANISH         '
;
VALUE $T4_STAF
  'CO' = 'COMPLETE, WITH R'
  'PR' = 'COMPLETE, WITH P'
  'DD' = 'COMPLETE, WITH P'
;
VALUE  OBSDAYF
   999  = 'NOT ASCERTAINED '
;
VALUE $GAP4FLF
  '1' = 'YES TIME GAP    '
;
VALUE  ADM4__F
   00  = 'NONE            '
;
VALUE  IPNGT4F
   000  = 'NONE            '
;
VALUE $GA1RELF
  '91' = 'OTHER RELATIVE  '
  '92' = 'OTHER NON-RELATI'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GA1SEXF
  '1' = 'MALE            '
  '2' = 'FEMALE          '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GA1AGEF
  '00' = 'NEWBORN TO 11 MO'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GA1SSTF
  '1' = 'YES             '
  '2' = 'NO              '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GA1RELG
  '91' = 'OTHER RELATIVE  '
  '92' = 'OTHER NON-RELATI'
  '97' = 'REFUSED         '
  '99' = 'NOT ASCERTAINED '
;
VALUE  GABOX1F
   1  = 'YES             '
   2  = 'NO              '
;
VALUE $GA2___F
  '1' = 'MARRIED         '
  '2' = 'WIDOWED         '
  '3' = 'DIVORCED        '
  '4' = 'SEPARATED       '
  '5' = 'NEVER MARRIED   '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  GA5___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  GA6A__F
   1  = 'CIRCLED         '
   2  = 'NOT CIRCLED     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GB1___F
   1  = 'YES             '
   2  = 'NO              '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $GBBOX2F
  '1' = 'YES             '
  '2' = 'NO              '
;
VALUE $GB3___F
  '1' = 'THE WHOLE TIME  '
  '2' = 'PART OF THE TIME'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GB4A__F
  '1' = 'CIRCLED         '
  '2' = 'NOT CIRCLED     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GB5MO_F
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GB7___F
  '1' = 'INDIVIDUAL PLAN '
  '2' = 'FAMILY PLAN     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GB8___F
  '01' = 'EMPLOYER/FAMILY '
  '02' = 'UNION           '
  '03' = 'INSURANCE COMPAN'
  '04' = 'SCHOOL/ALUMNI GR'
  '05' = 'MEDICAL OR PUBLI'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GB18__F
  '1' = 'YES             '
  '2' = 'NO/ NO DECISION '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GB26__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 $GB27YRF
  '92' = 'YEAR            '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GB31A2F
  '1' = 'DAYS            '
  '2' = 'WEEKS           '
  '3' = 'MONTHS          '
  '4' = 'YEARS           '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  GD05CTF
   00  = 'NONE LISTED     '
;
VALUE  GE1A__F
   1  = 'YES             '
   2  = 'NO              '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASGERTAINED '
;
VALUE  GI3___F
   1  = 'YES             '
   2  = 'NO              '
   3  = 'NO CHILDREN     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GKSEX_F
   1  = 'MALE            '
   2  = 'FEMALE          '
;
VALUE $GK1___F
  '01' = 'HOSPITAL        '
  '02' = 'CLINIC          '
  '03' = 'DOCTOR''S OFFICE'
  '04' = 'JAIL            '
  '05' = 'LAB             '
  '06' = 'HEALTH DEPT     '
  '07' = 'MOBILE VAN/UNIT '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GK1A__F
  '01' = 'SEXUALLY TRANSMI'
  '02' = 'OB-GYN CLINIC   '
  '03' = 'PRENATAL CLINIC '
  '04' = 'DRUG TREATMENT  '
  '05' = 'MEDICAL CLINIC  '
  '06' = 'INPATIENT STAY  '
  '07' = 'EMERGENCY ROOM  '
  '08' = 'HOSPITAL NOT OTH'
  '09' = 'LAB             '
  '10' = 'HEALTH DEPT     '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  GK6APRF
   9999997  = 'REFUSED         '
   9999998  = 'DK              '
   9999999  = 'NOT ASCERTAINED '
;
VALUE $GK7AFOF
  '01' = 'RESEARCH STUDY  '
  '03' = 'FLAT FEE        '
  '05' = 'GAY AIDS TASK FO'
  '14' = 'FAMILY/FRIEND   '
  '29' = 'COMMUNITY HEALTH'
  '46' = 'PROVIDER        '
  '47' = 'PRIVATE CHARITY/'
  '50' = 'DRUG COMPANY    '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GK10A_F
  '01' = 'NO PROBLEMS     '
  '02' = 'DIDN''T WANT TO '
  '03' = 'NONE BECAUSE TER'
  '04' = 'HAD MISCARRIAGE '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GK10B_F
  '01' = 'NO PROBLEM      '
  '02' = 'DIDN''T WANT TO '
  '03' = 'NONE BECAUSE TER'
  '04' = 'HAD MISCARRIAGE '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  GL32CTF
   00  = 'NO DRUGS LISTED '
;
VALUE $GL5A__F
  '991' = 'OTHER SPECIFIED '
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $GL6___F
  '000000' = 'NONE            '
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE  GM1___F
   1  = 'EXCELLENT       '
   2  = 'VERY GOOD       '
   3  = 'GOOD            '
   4  = 'FAIR            '
   5  = 'POOR            '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GM3A__F
   1  = 'LIMITED FOR MORE'
   2  = 'LIMITED FOR 3 MO'
   3  = 'NOT LIMITED AT A'
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GM8___F
   1  = 'DAILY           '
   2  = 'SEVERAL TIMES A '
   3  = 'SEVERAL TIMES A '
   4  = 'ONCE OR TWICE   '
   5  = 'NOT AT ALL      '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GM9___F
   1  = 'ALL OF THE TIME '
   2  = 'MOST OF THE TIME'
   3  = 'A GOOD BIT OF TH'
   4  = 'SOME OF THE TIME'
   5  = 'A LITTLE OF THE '
   6  = 'NONE OF THE TIME'
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GM11__F
   00  = 'NONE            '
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE  GM12__F
   1  = '000-100         '
   2  = '101-200         '
   3  = '201-300         '
   4  = '301-500         '
   5  = 'GREATER THAN 500'
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  GM13MOF
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE $GN2A__F
  '01' = 'CLINIC          '
  '02' = 'HOSPITAL        '
  '03' = 'DOCTOR''S OFFICE'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GN5___F
  '01' = 'WALKING         '
  '02' = 'DRIVING         '
  '03' = 'BEING DRIVEN    '
  '04' = 'TAXI            '
  '05' = 'OTHER PUBLIC TRA'
  '06' = 'AMBULETTE/AMBULA'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $GN6MINF
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $GN7___F
  '1' = 'HAS APPOINTMENT '
  '2' = 'JUST WALKS IN   '
  '3' = 'SOMETIMES HAS AP'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GN9AG_F
  '0001' = 'DISEASE RELATED '
  '0002' = 'PROVIDER STATED;'
  '0003' = 'VARIATIONS OF RE'
  '0004' = 'RESPONDENT WAS T'
  '0005' = 'PATIENT NOT ELIG'
  '0006' = 'SERVICE NOT AVAI'
  '9992' = 'RESPONDENT DOES '
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE  GO1___F
   1  = 'FULL-TIME       '
   2  = 'PART-TIME       '
   3  = 'NOT WORKING     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $GOBOX2F
  '1' = 'WORKING FULL TIM'
  '2' = 'WORKING PART-TIM'
  '3' = 'NOT WORKING (NW)'
;
VALUE $GO3O4_F
  '9994' = 'UNCODEABLE      '
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $GO4A__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 $GO6___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 $GO11__F
  '01' = 'LEAVE OF ABSENCE'
  '02' = 'QUIT            '
  '03' = 'LAID OFF        '
  '04' = 'FIRED           '
  '05' = 'TOO ILL         '
  '06' = 'PREGNANCY       '
  '07' = 'ARRESTED/IN PRIS'
  '08' = 'RETIRED         '
  '09' = 'KEPT SAME JOB CH'
  '10' = 'MOVED/LEFT AREA '
  '11' = 'JOB ENDED OR BUS'
  '12' = 'WENT TO SCHOOL  '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  GO31__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 $GO33BXF
  '1' = 'CHECKED         '
;
VALUE $GO35__F
  '1' = 'YES             '
  '2' = 'NO/NO DECISION Y'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $GOBOX5F
  '1' = 'NO CHILDREN LIVI'
  '2' = '1 OR MORE CHILDR'
;
VALUE $GO43__F
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE  GR1___F
   1  = 'VERY CONFIDENT  '
   2  = 'CONFIDENT       '
   3  = 'UNSURE          '
   4  = 'DOUBTFUL        '
   5  = 'VERY DOUBTFUL   '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $GR2___F
  '91' = 'FLAG FOR QUESTIO'
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  GR5A__F
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
     DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;

 /*****************************************************************************/
 /*                                                                           */
 /*                   GENSAS run of 06/27/1994 at 21:55:17                    */
 /*                                                                           */
 /*****************************************************************************/

     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
GREC01    GREC01F.
GSREC01   GSREC0F.
GITYPE   $GITYPEF.
GRTYPE    GRTYPEF.
GLANG     GLANG_F.
T4_STAT  $T4_STAF.
OBSDAYS4  OBSDAYF.
GAP4FLAG $GAP4FLF.
ADM4      ADM4__F.
IPNGT4    IPNGT4F.
AMBVS4    IPNGT4F.
ERVS4     IPNGT4F.
HCVS4     IPNGT4F.
OCVS4     IPNGT4F.
MDVS4     IPNGT4F.
GA01CT    ADM4__F.
GA1REL1  $GA1RELF.
GA1SEX1  $GA1SEXF.
GA1AGE1  $GA1AGEF.
GA1SST1  $GA1SSTF.
GA1REL2  $GA1RELF.
GA1SEX2  $GA1SEXF.
GA1AGE2  $GA1AGEF.
GA1SST2  $GA1SSTF.
GA1REL3  $GA1RELF.
GA1SEX3  $GA1SEXF.
GA1AGE3  $GA1AGEF.
GA1SST3  $GA1SSTF.
GA1REL4  $GA1RELF.
GA1SEX4  $GA1SEXF.
GA1AGE4  $GA1AGEF.
GA1SST4  $GA1SSTF.
GA1REL5  $GA1RELF.
GA1SEX5  $GA1SEXF.
GA1AGE5  $GA1AGEF.
GA1SST5  $GA1SSTF.
GA1REL6  $GA1RELF.
GA1SEX6  $GA1SEXF.
GA1AGE6  $GA1AGEF.
GA1SST6  $GA1SSTF.
GA1REL7  $GA1RELG.
GA1SEX7  $GA1SEXF.
GA1AGE7  $GA1AGEF.
GA1SST7  $GA1SSTF.
GA1REL8  $GA1RELF.
GA1SEX8  $GA1SEXF.
GA1AGE8  $GA1AGEF.
GA1SST8  $GA1SSTF.
GA1REL9  $GA1RELF.
GA1SEX9  $GA1SEXF.
GA1AGE9  $GA1AGEF.
GA1SST9  $GA1SSTF.
GA1REL10 $GA1RELF.
GA1SEX10 $GA1SEXF.
GA1AGE10 $GA1AGEF.
GA1SST10 $GA1SSTF.
GABOX1A   GABOX1F.
GABOX1B   GABOX1F.
GA2      $GA2___F.
GA3      $GA1SSTF.
GA4      $GA1SSTF.
GA5       GA5___F.
GA6A      GA6A__F.
GA6B      GA6A__F.
GA6C      GA6A__F.
GA6D      GA6A__F.
GA6E      GA6A__F.
GA6F      GA6A__F.
GB1       GB1___F.
GBBOX2   $GBBOX2F.
GBBOX3    GABOX1F.
GB2      $GA1SSTF.
GB3      $GB3___F.
GB4A     $GB4A__F.
GB4B     $GB4A__F.
GB4C     $GB4A__F.
GB4D     $GB4A__F.
GB4E     $GB4A__F.
GB4F     $GB4A__F.
GB4G     $GB4A__F.
GB4H     $GB4A__F.
GB4I     $GB4A__F.
GB4J     $GB4A__F.
GB4K     $GB4A__F.
GB4L     $GB4A__F.
GB5MO    $GB5MO_F.
GB5YR    $GB5MO_F.
GB6      $GA1SSTF.
GBBOX4   $GBBOX2F.
GB7      $GB7___F.
GB8      $GB8___F.
GB9MO    $GB5MO_F.
GB9YR    $GB5MO_F.
GB10     $GA1SSTF.
GB12     $GA1SSTF.
GB13     $GB3___F.
GB14A    $GB4A__F.
GB14B    $GB4A__F.
GB14C    $GB4A__F.
GB14D    $GB4A__F.
GB14E    $GB4A__F.
GB14F    $GB4A__F.
GB14G    $GB4A__F.
GB14H    $GB4A__F.
GB14I    $GB4A__F.
GB14J    $GB4A__F.
GB14K    $GB4A__F.
GB14L    $GB4A__F.
GBBOX5   $GBBOX2F.
GB16MO   $GB5MO_F.
GB16YR   $GB5MO_F.
GB17     $GA1SSTF.
GB18     $GB18__F.
GB19      GB1___F.
GB21      GB1___F.
GBBOX6   $GBBOX2F.
GBBOX7   $GBBOX2F.
GB22     $GA1SSTF.
GB23     $GB3___F.
GB24A    $GB4A__F.
GB24B    $GB4A__F.
GB24C    $GB4A__F.
GB24D    $GB4A__F.
GB24E    $GB4A__F.
GB24F    $GB4A__F.
GB24G    $GB4A__F.
GB24H    $GB4A__F.
GB24I    $GB4A__F.
GB24J    $GB4A__F.
GB24K    $GB4A__F.
GB24L    $GB4A__F.
GB25MO   $GB5MO_F.
GB25YR   $GB5MO_F.
GBBOX8   $GBBOX2F.
GB26     $GB26__F.
GB27MO   $GB5MO_F.
GB27YR   $GB27YRF.
GBBOX9    GABOX1F.
GB28     $GA1SSTF.
GB29      GB1___F.
GB31A1   $GB5MO_F.
GB31A2   $GB31A2F.
GB31B1   $GB5MO_F.
GB31B2   $GB31A2F.
GD1A      GB1___F.
GD05CT    GD05CTF.
GE1A      GE1A__F.
GE1B     $GB5MO_F.
GE07CT    GD05CTF.
GF1       GB1___F.
GF1A     $GB5MO_F.
GF09CT    GD05CTF.
GF2       GB1___F.
GF2A     $GB5MO_F.
GF10CT    GD05CTF.
GF3       GB1___F.
GF3A     $GB5MO_F.
GF11CT    GD05CTF.
GF4       GB1___F.
GF12CT    GD05CTF.
GG1       GB1___F.
GG1A     $GB5MO_F.
GG13CT    GD05CTF.
GG2       GB1___F.
GG2A     $GB5MO_F.
GG14CT    GD05CTF.
GG3       GB1___F.
GG3A     $GB5MO_F.
GG15CT    GD05CTF.
GG4       GB1___F.
GG16CT    GD05CTF.
GH1       GB1___F.
GH2       GB1___F.
GH18CT    GD05CTF.
GI1       GB1___F.
GI20CT    ADM4__F.
GI2       GB1___F.
GI21CT    ADM4__F.
GI3       GI3___F.
GI22CT    ADM4__F.
GI4       GB1___F.
GI23CT    ADM4__F.
GI5       GB1___F.
GI24CT    ADM4__F.
GI6       GB1___F.
GI25CT    ADM4__F.
GI7       GB1___F.
GI26CT    ADM4__F.
GJ1       GB1___F.
GJ28CT    ADM4__F.
GKSEX     GKSEX_F.
GK1      $GK1___F.
GK1A     $GK1A__F.
GK2A     $GB4A__F.
GK2B     $GB4A__F.
GK2C     $GB4A__F.
GK2D     $GB4A__F.
GK2E     $GB4A__F.
GK2F     $GB4A__F.
GK2G     $GB4A__F.
GK3      $GA1SSTF.
GK4      $GA1SSTF.
GK5A     $GA1SSTF.
GK6APROV  GK6APRF.
GK7AA    $GB4A__F.
GK7AB    $GB4A__F.
GK7AC    $GB4A__F.
GK7AD    $GB4A__F.
GK7AE    $GB4A__F.
GK7AF    $GB4A__F.
GK7AFOS  $GK7AFOF.
GK8A     $GA1SSTF.
GK9A     $GA1SSTF.
GK10A    $GK10A_F.
GK5B     $GA1SSTF.
GK6BPROV  GK6APRF.
GK7BA    $GB4A__F.
GK7BB    $GB4A__F.
GK7BC    $GB4A__F.
GK7BD    $GB4A__F.
GK7BE    $GB4A__F.
GK7BF    $GB4A__F.
GK7BFOS  $GK7AFOF.
GK8B     $GA1SSTF.
GK9B     $GA1SSTF.
GK10B    $GK10B_F.
GL2       GB1___F.
GL3       GB1___F.
GL31CT    GD05CTF.
GL4       GB1___F.
GL32CT    GL32CTF.
GL5A     $GL5A__F.
GL5B     $GL5A__F.
GL5C     $GL5A__F.
GL5D     $GL5A__F.
GL5E     $GL5A__F.
GL5F     $GL5A__F.
GL5G     $GL5A__F.
GL5H     $GL5A__F.
GL5I     $GL5A__F.
GL5J     $GL5A__F.
GL5K     $GL5A__F.
GL5L     $GL5A__F.
GL5M     $GL5A__F.
GL5N     $GL5A__F.
GL5O     $GL5A__F.
GL5P     $GL5A__F.
GL5Q     $GL5A__F.
GL5R     $GL5A__F.
GL5S     $GL5A__F.
GL5T     $GL5A__F.
GL5U     $GL5A__F.
GL5V     $GL5A__F.
GL5W     $GL5A__F.
GL5X     $GL5A__F.
GL6      $GL6___F.
GM1       GM1___F.
GM2A      GB1___F.
GM2B      GB1___F.
GM2C      GB1___F.
GM2D      GB1___F.
GM2E      GB1___F.
GM2F      GB1___F.
GM2G      GB1___F.
GM2H      GB1___F.
GM2I      GB1___F.
GM2J      GB1___F.
GM2K      GB1___F.
GM2L      GB1___F.
GM2M      GB1___F.
GM2N      GB1___F.
GM2O      GB1___F.
GM2P      GB1___F.
GM3A      GM3A__F.
GM3B      GM3A__F.
GM3C      GM3A__F.
GM3D      GM3A__F.
GM3E      GM3A__F.
GM3F      GM3A__F.
GM4       GB1___F.
GM5      $GA1SSTF.
GM6       GB1___F.
GM7      $GA1SSTF.
GM8       GM8___F.
GM9       GM9___F.
GM10A     GM9___F.
GM10B     GM9___F.
GM10C     GM9___F.
GM10D     GM9___F.
GM10E     GM9___F.
GM11      GM11__F.
GM12      GM12__F.
GM13MO    GM13MOF.
GM13DY    GM13MOF.
GM13YR    GM13MOF.
GM14      GB1___F.
GN1       GB1___F.
GN2A     $GN2A__F.
GN2PROV   GK6APRF.
GN3      $GA1SSTF.
GN4      $GA1SSTF.
GN5      $GN5___F.
GN6MIN   $GN6MINF.
GN6HRS   $GB5MO_F.
GN7      $GN7___F.
GN8MOS   $GB5MO_F.
GN8YRS   $GB5MO_F.
GN9AA     GB1___F.
GN9AB     GB1___F.
GN9AC    $GA1SSTF.
GN9AD    $GA1SSTF.
GN9AE    $GA1SSTF.
GN9AF    $GA1SSTF.
GN9AG    $GN9AG_F.
GN9BA     GB1___F.
GN9BB    $GA1SSTF.
GN9BC    $GA1SSTF.
GN9BD    $GA1SSTF.
GN9BE    $GA1SSTF.
GN9BF    $GA1SSTF.
GN9BG    $GN9AG_F.
GN9CA     GB1___F.
GN9CB    $GA1SSTF.
GN9CC    $GA1SSTF.
GN9CD    $GA1SSTF.
GN9CF    $GA1SSTF.
GN9CG    $GN9AG_F.
GN9DA     GB1___F.
GN9DB    $GA1SSTF.
GN9DC    $GA1SSTF.
GN9DD    $GA1SSTF.
GN9DE    $GA1SSTF.
GN9DF    $GA1SSTF.
GN9DG    $GN9AG_F.
GN9EA     GB1___F.
GN9EB    $GA1SSTF.
GN9EC    $GA1SSTF.
GN9ED    $GA1SSTF.
GN9EE    $GA1SSTF.
GN9EF    $GA1SSTF.
GN9EG    $GN9AG_F.
GN9FA     GB1___F.
GN9FB    $GA1SSTF.
GN9FC    $GA1SSTF.
GN9FD    $GA1SSTF.
GN9FE    $GA1SSTF.
GN9FF    $GA1SSTF.
GN9FG    $GN9AG_F.
GN9GA     GB1___F.
GN9GB    $GA1SSTF.
GN9GC    $GA1SSTF.
GN9GD    $GA1SSTF.
GN9GE    $GA1SSTF.
GN9GF    $GA1SSTF.
GN9GG    $GN9AG_F.
GN9HA     GB1___F.
GN9HB    $GA1SSTF.
GN9HC    $GA1SSTF.
GN9HD    $GA1SSTF.
GN9HE    $GA1SSTF.
GN9HF    $GA1SSTF.
GN9HG    $GN9AG_F.
GN9IA     GB1___F.
GO1       GO1___F.
GOBOX2   $GOBOX2F.
GOBOX3   $GOBOX2F.
GO2      $GN6MINF.
GO3O4    $GO3O4_F.
GO4A     $GO4A__F.
GO5      $GA1SSTF.
GO6      $GO6___F.
GO7      $GN6MINF.
GO8O9    $GO3O4_F.
GO9A     $GO4A__F.
GO10     $GA1SSTF.
GO11     $GO11__F.
GO12     $GA1SSTF.
GO13MO   $GB5MO_F.
GO13YR   $GB5MO_F.
GO14     $GA1SSTF.
GO15     $GO6___F.
GO16     $GN6MINF.
GO17O18  $GO3O4_F.
GO18A    $GO4A__F.
GO19     $GA1SSTF.
GO20     $GA1SSTF.
GO21     $GO6___F.
GO22     $GA1SSTF.
GO23     $GO11__F.
GO24     $GA1SSTF.
GO25MO   $GB5MO_F.
GO25YR   $GB5MO_F.
GO26     $GA1SSTF.
GO27     $GO6___F.
GO28     $GA1SSTF.
GO29     $GA1SSTF.
GO30     $GO6___F.
GO31      GO31__F.
GOBOX4   $GBBOX2F.
GO32     $GA1SSTF.
GO33MO   $GB5MO_F.
GO33YR   $GB5MO_F.
GO33BX   $GO33BXF.
GO34     $GA1SSTF.
GO35     $GO35__F.
GOBOX5   $GOBOX5F.
GO36     $GA1SSTF.
GO37MO   $GB5MO_F.
GO37YR   $GB5MO_F.
GO37BX   $GO33BXF.
GO38     $GA1SSTF.
GO39MO   $GB5MO_F.
GO39YR   $GB5MO_F.
GO39BX   $GO33BXF.
GO40     $GA1SSTF.
GO41MO   $GB5MO_F.
GO41YR   $GB5MO_F.
GO42     $GA1SSTF.
GO43     $GO43__F.
GP1       GB1___F.
GP2      $GB5MO_F.
GP3L1MO  $GB5MO_F.
GP3L1DY  $GB5MO_F.
GP3L1YR  $GB5MO_F.
GP3R1MO  $GB5MO_F.
GP3R1DY  $GB5MO_F.
GP3R1YR  $GB5MO_F.
GP3L2MO  $GB5MO_F.
GP3L2DY  $GB5MO_F.
GP3L2YR  $GB5MO_F.
GP3R2MO  $GB5MO_F.
GP3R2DY  $GB5MO_F.
GP3R2YR  $GB5MO_F.
GP3L3MO  $GB5MO_F.
GP3L3DY  $GB5MO_F.
GP3L3YR  $GB5MO_F.
GP3R3MO  $GB5MO_F.
GP3R3DY  $GB5MO_F.
GP3R3YR  $GB5MO_F.
GP4       GB1___F.
GP5      $GB5MO_F.
GP6EN1MO $GB5MO_F.
GP6EN1DY $GB5MO_F.
GP6EN1YR $GB5MO_F.
GP6EX1MO $GB5MO_F.
GP6EX1DY $GB5MO_F.
GP6EX1YR $GB5MO_F.
GP6EN2MO $GB5MO_F.
GP6EN2DY $GB5MO_F.
GP6EN2YR $GB5MO_F.
GP6EX2MO $GB5MO_F.
GP6EX2DY $GB5MO_F.
GP6EX2YR $GB5MO_F.
GP6EN3MO $GB5MO_F.
GP6EN3DY $GB5MO_F.
GP6EN3YR $GB5MO_F.
GP6EX3MO $GB5MO_F.
GP6EX3DY $GB5MO_F.
GP6EX3YR $GB5MO_F.
GR1       GR1___F.
GR2      $GR2___F.
GR3       GR1___F.
GR4      $GR2___F.
GR5A      GR5A__F.
GR5B      GR5A__F.
GR5C      GR5A__F.
GR5D      GR5A__F.
GR5E      GR5A__F.
GR5F      GR5A__F.
;
     LABEL

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

          GPID01   = '~PATIENT ID NUMBER'
          GREC01   = '~RECORD NUMBER'
          GSREC01  = '~SUBRECORD NUMBER'
          GITYPE   = '~WHAT IS THE INSTRUMENT TYPE?'
          GRTYPE   = '~RESPONDENT TYPE'
          GLANG    = '~QUESTIONNAIRE LANGUAGE VERSION'
          GREFMO   = '~MONTH OF BEGIN REFERENCE DATE'
          GREFDY   = '~DAY OF BEGIN REFERENCE DATE'
          GREFYR   = '~YEAR OF BEGIN REFERENCE DATE'
          GENDMO   = '~MONTH OF END DATE'
          GENDDY   = '~DAY OF END DATE'
          GENDYR   = '~YEAR OF END DATE'
          T4_STAT  = '~QUESTIONNAIRE STATUS'
          OBSDAYS4 = '~OBSERVATION DAYS WITHIN REFERENCE'
          GAP4FLAG = '~PATIENT HAD TIME GAP DURING REFERENCE'
          ADM4     = '~NUMBER OF INPATIENT ADMISSIONS'
          IPNGT4   = '~NUMBER OF INPATIENT NIGHTS'
          AMBVS4   = '~NUMBER OF AMBULATORY VISITS, INCLUDES'
          ERVS4    = '~NUMBER OF EMERGENCY ROOM VISITS'
          HCVS4    = '~NUMBER OF HOSPITAL CLINIC VISITS'
          OCVS4    = '~NUMBER OF OTHER CLINIC VISITS'
          MDVS4    = '~NUMBER OF PRIVATE MD VISITS'
          GA01CT   = '~COUNTER OF PEOPLE LISTED IN Q A1'
          GA1REL1  = '~RELATIONSHIP'
          GA1SEX1  = '~SEX'
          GA1AGE1  = '~AGE'
          GA1SST1  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL2  = '~RELATIONSHIP'
          GA1SEX2  = '~SEX'
          GA1AGE2  = '~AGE'
          GA1SST2  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL3  = '~RELATIONSHIP'
          GA1SEX3  = '~SEX'
          GA1AGE3  = '~AGE'
          GA1SST3  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL4  = '~RELATIONSHIP'
          GA1SEX4  = '~SEX'
          GA1AGE4  = '~AGE'
          GA1SST4  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL5  = '~RELATIONSHIP'
          GA1SEX5  = '~SEX'
          GA1AGE5  = '~AGE'
          GA1SST5  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL6  = '~RELATIONSHIP'
          GA1SEX6  = '~SEX'
          GA1AGE6  = '~AGE'
          GA1SST6  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL7  = '~RELATIONSHIP'
          GA1SEX7  = '~SEX'
          GA1AGE7  = '~AGE'
          GA1SST7  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL8  = '~RELATIONSHIP'
          GA1SEX8  = '~SEX'
          GA1AGE8  = '~AGE'
          GA1SST8  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL9  = '~RELATIONSHIP'
          GA1SEX9  = '~SEX'
          GA1AGE9  = '~AGE'
          GA1SST9  = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GA1REL10 = '~RELATIONSHIP'
          GA1SEX10 = '~SEX'
          GA1AGE10 = '~AGE'
          GA1SST10 = '~(NAME) DIAGNOSED AS BEING HIV POSITIVE'
          GABOX1A  = '~CHILDREN LISTED?'
          GABOX1B  = '~SPOUSE/PARTNER LISTED?'
          GA2      = '~CURRENT MARITAL STATUS'
          GA3      = '~INVOLVED IN COMMITED RELATIONSHIP NOW'
          GA4      = '~SPOUSE/PARTNER DIAGNOSED HIV POSITIVE'
          GA5      = '~TYPE OF PLACE LIVED MOST OF THE TIME'
          GA6A     = '~TEMP DOUBLED UP WITH FRIEND/RELATIVE'
          GA6B     = '~SINGLE ROOM ONLY OR "WELFARE HOTEL"'
          GA6C     = '~SPECIALIZED AIDS HOUSING'
          GA6D     = '~SHELTERS'
          GA6E     = '~STREET OR OTHER PUBLIC PLACE'
          GA6F     = '~NONE'
          GB1      = '~COVERED BY PRIVATE HEALTH INS PLAN,HMO'
          GBBOX2   = '~TIME 3 = PRIVATE INSURANCE'
          GBBOX3   = '~TIME 3 = PRIVATE INSURANCE'
          GB2      = '~SAME PRIVATE HLTH INS PLAN AS LAST TIME'
          GB3      = '~COVERED WHOLE TIME OR ONLY PART TIME'
          GB4A     = '~JANUARY'
          GB4B     = '~FEBRUARY'
          GB4C     = '~MARCH'
          GB4D     = '~APRIL'
          GB4E     = '~MAY'
          GB4F     = '~JUNE'
          GB4G     = '~JULY'
          GB4H     = '~AUGUST'
          GB4I     = '~SEPTEMBER'
          GB4J     = '~OCTOBER'
          GB4K     = '~NOVEMBER'
          GB4L     = '~DECEMBER'
          GB5MO    = '~MO PREVIOUS HEALTH INSUR COVERAGE END'
          GB5YR    = '~YR PREVIOUS HEALTH INSUR COVERAGE END'
          GB6      = '~HAPPENED BECAUSE OF YOUR HIV INFECTION'
          GBBOX4   = '~LOOK AT Q. B-1. R ANSWERED:'
          GB7      = '~CURRENT PLAN INDIVIDUAL OR FAMILY'
          GB8      = '~HOW DO YOU GET HEALTH INSURANCE/PLAN'
          GB9MO    = '~MONTH CURRENT HEALTH INSURANCE BEGAN'
          GB9YR    = '~YEAR CURRENT HEALTH INSURANCE BEGAN'
          GB10     = '~IS PLAN A HEALTH MAINTENANCE ORG./HMO'
          GB12     = '~COVERED BY MEDICAID/MEDICAID STATE NAME'
          GB13     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          GB14A    = '~JANUARY'
          GB14B    = '~FEBRUARY'
          GB14C    = '~MARCH'
          GB14D    = '~APRIL'
          GB14E    = '~MAY'
          GB14F    = '~JUNE'
          GB14G    = '~JULY'
          GB14H    = '~AUGUST'
          GB14I    = '~SEPTEMBER'
          GB14J    = '~OCTOBER'
          GB14K    = '~NOVEMBER'
          GB14L    = '~DECEMBER'
          GBBOX5   = '~TIME 3 = MEDICAID'
          GB16MO   = '~MONTH WHEN MEDICAID COVERAGE ENDED'
          GB16YR   = '~YEAR WHEN MEDICAID COVERAGE ENDED'
          GB17     = '~HAVE YOU (RE-)APPLIED FOR MEDICAID?'
          GB18     = '~HAVE YOU BEEN TURNED DOWN FOR MEDICAID?'
          GB19     = '~HAVE YOU BEEN COVERED BY MEDICARE'
          GB21     = '~COVERED BY OTHER PUBLIC ASSIST PROGRAM'
          GBBOX6   = '~TIME 3 = OTHER PUBLIC ASSISTANCE'
          GBBOX7   = '~TIME 3 = OTHER PUBLIC ASSISTANCE'
          GB22     = '~SAME PUBLIC ASSIST PROGRAM AS LAST TIME'
          GB23     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          GB24A    = '~JANUARY'
          GB24B    = '~FEBRUARY'
          GB24C    = '~MARCH'
          GB24D    = '~APRIL'
          GB24E    = '~MAY'
          GB24F    = '~JUNE'
          GB24G    = '~JULY'
          GB24H    = '~AUGUST'
          GB24I    = '~SEPTEMBER'
          GB24J    = '~OCTOBER'
          GB24K    = '~NOVEMBER'
          GB24L    = '~DECEMBER'
          GB25MO   = '~MONTH PUBLIC ASSISTANCE COVERAGE ENDED'
          GB25YR   = '~YEAR PUBLIC ASSISTANCE COVERAGE ENDED'
          GBBOX8   = '~LOOK AT Q B-21. R ANSWERED:'
          GB26     = '~WHAT IS THE NAME OF CURRENT PROGRAM'
          GB27MO   = '~MONTH CURRENT PROGRAM COVERAGE BEGAN'
          GB27YR   = '~YEAR CURRENT PROGRAM COVERAGE BEGAN'
          GBBOX9   = '~TIME 3 - CHAMPUS/CHAMPVA'
          GB28     = '~ARE YOU COVERED BY CHAMPUS OR CHAMPVA'
          GB29     = '~IN CLINICAL TRIALS FOR ANY MEDICATIONS'
          GB31A1   = '~LENGTH OF FIRST TRIAL'
          GB31A2   = '~UNIT OF FIRST TRIAL'
          GB31B1   = '~LENGTH OF SECOND TRIAL'
          GB31B2   = '~UNIT OF SECOND TRIAL'
          GD1A     = '~PATIENT IN HOSPITAL OVERNIGHT OR LONGER'
          GD1B     = '~HOW MANY TIMES IN HOSP OVERNIGHT/LONGER'
          GD05CT   = '~NUMBER OF INPATIENT STAY RECORDS'
          GE1A     = '~IN RES CARE,NURS HOME,HOSPICE OVERNIGHT'
          GE1B     = '~# OF TIMES IN RES CARE,NURS HOME,HSPC'
          GE07CT   = '~NUMBER OF NURSING HOME/RESIDENTIAL CARE'
          GF1      = '~GO TO HOSP EMERGENCY ROOM FOR MED CARE'
          GF1A     = '~HOW MANY DIFF EMERGENCY ROOMS VISITED'
          GF09CT   = '~NUMBER OF EMERGENCY ROOM RECORDS'
          GF2      = '~GO TO HOSP CLINIC,HOSP OUT-PATIENT DEPT'
          GF2A     = '~HOW MANY DIFF HOSPITAL CLINICS VISITED'
          GF10CT   = '~NUMBER OF HOSPITAL CLINIC RECORDS'
          GF3      = '~GO TO ANY OTHER MEDICAL CLINIC'
          GF3A     = '~HOW MANY DIFF MEDICAL CLINICS VISITED'
          GF11CT   = '~NUMBER OF MEDICAL CLINIC RECORDS'
          GF4      = '~GO TO PRIVATE DOCTOR''S OFFICE'
          GF4A     = '~# OF DIFF PRIVATE DR OFFICES VISITED'
          GF12CT   = '~NUMBER OF PRIVATE DOCTOR''S OFFICE'
          GG1      = '~GO TO SUPPORT GROUP,PSYCH COUNSEL/THERA'
          GG1A     = '~HOW MANY DIFF SUPPORT GROUPS VISITED'
          GG13CT   = '~NUMBER OF MENTAL HEALTH PROVIDER'
          GG2      = '~GO TO ANY MEDICAL PRACTITIONERS'
          GG2A     = '~HOW MANY DIFF MED PRACTITIONERS VISITED'
          GG14CT   = '~NUMBER OF MEDICAL PRACTITIONER RECORDS'
          GG3      = '~GO TO ANY ALTERNATIVE THERAPIST'
          GG3A     = '~HOW MANY DIFF ALTER THERAPISTS VISITED'
          GG15CT   = '~NUMBER OF ALTERNATIVE THERAPIST RECORDS'
          GG4      = '~BUY/REPLACE SPECIAL MEDICAL EQUIPMENT'
          GG16CT   = '~NUMBER OF MEDICAL EQUIPMENT PROVIDER'
          GH1      = '~HAVE ANY PEOPLE HELPED YOU AT HOME'
          GH2      = '~BEEN HELPED AT HOME BY ANY OTHER PEOPLE'
          GH18CT   = '~NUMBER OF HOME HEALTH PROVIDER RECORDS'
          GI1      = '~GOT HELP FINDING/KEEPING PLACE TO LIVE'
          GI20CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI2      = '~RECEIVED HELP WITH LEGAL SERVICES'
          GI21CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI3      = '~RECEIVED HELP WITH CHILD CARE'
          GI22CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI4      = '~RECEIVED HELP WITH TRANSPORTATION'
          GI23CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI5      = '~RECEIVED HELP WITH OBTAINING FOOD'
          GI24CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI6      = '~RECEIVED HELP WITH FINANCIAL ASSISTANCE'
          GI25CT   = '~# OF DIFFERENT PROVIDERS USED'
          GI7      = '~RCVNG ALCOHOL/DRUG TREATMENT/COUNSEL'
          GI26CT   = '~# OF DIFFERENT PROVIDERS USED'
          GJ1      = '~SEEN DENTIST,ORAL SURG,DNTL CARE PROV'
          GJ1A     = '~# OF TIMES SEEN DENTIST,ORAL SURG,ETC'
          GJ28CT   = '~NUMBER OF DENTAL VISIT RECORDS'
          GKSEX    = '~SEX OF PATIENT (MALE OR FEMALE)'
          GK1      = '~YOU TOLD US THAT YOU HAD A POSITIVE'
          GK1A     = '~WHICH KIND OF CLINIC DID THE BLOOD TEST'
          GK2A     = '~PAST 5 YRS, HAD A SEXUALLY TRANS DIS'
          GK2B     = '~PAST 5 YRS, HAD CHRONIC VAGINITIS'
          GK2C     = '~PAST 5 YRS, HAD PELVIC INFLAMMATORY DIS'
          GK2D     = '~PAST 5 YRS, HAD HERPES SIMPLEX'
          GK2E     = '~PAST 5 YRS, VAGINAL CANDIDIASIS/YEAST'
          GK2F     = '~PAST 5 YRS, HAD HUMAN PAPILLOMAVIRUS'
          GK2G     = '~PAST 5 YRS, HAD AN ABNORMAL PAP TEST'
          GK3      = '~ARE YOU PREGNANT NOW?'
          GK4      = '~SINCE 3/1/91, HAVE YOU BEEN PREGNANT'
          GK5A     = '~CURRENTLY RECEIVING PRENATAL CARE'
          GK6APROV = '~PROVIDER ID'
          GK7AA    = '~MEDICAID'
          GK7AB    = '~OTHER PUBLIC ASSISTANCE'
          GK7AC    = '~PRIVATE INSURANCE'
          GK7AD    = '~MEDICARE'
          GK7AE    = '~SELF PAY'
          GK7AF    = '~OTHER'
          GK7AFOS  = '~OTHER SPECIFIED'
          GK8A     = '~GET COUNSELING RELATED TO HIV INFECTION'
          GK9A     = '~HAD PRENATAL CARE SINCE KNEW PREGNANT'
          GK10A    = '~PROBLEMS FACED RECEIVING PRE-NATAL CARE'
          GK5B     = '~DID YOU RECEIVE PRENATAL CARE?'
          GK6BPROV = '~PROVIDER ID'
          GK7BA    = '~MEDICAID'
          GK7BB    = '~OTHER PUBLIC ASSISTANCE'
          GK7BC    = '~PRIVATE INSURANCE'
          GK7BD    = '~MEDICARE'
          GK7BE    = '~SELF PAY'
          GK7BF    = '~OTHER'
          GK7BFOS  = '~OTHER SPECIFIED'
          GK8B     = '~GET COUNSELING RELATED TO HIV INFECTION'
          GK9B     = '~HAD PRENATAL CARE SINCE KNEW PREGNANT'
          GK10B    = '~PROBLEMS FACED RECEIVING PRE-NATAL CARE'
          GL2      = '~TAKEN ANY MEDICINES OR DRUGS LISTED'
          GL3      = '~TAKEN OTHER PRESCRIPTION MEDICINE/DRUG'
          GL31CT   = '~NUMBER OF PRESCRIPTION DRUG RECORDS'
          GL4      = '~TAKEN NON-PRESCRIPTION MEDICINES/DRUGS'
          GL32CT   = '~# OF NON-PRESCRIPTION DRUGS LISTED'
          GL5A     = '~NON-PRESCRIPTION DRUG 1'
          GL5B     = '~NON-PRESCRIPTION DRUG 2'
          GL5C     = '~NON-PRESCRIPTION DRUG 3'
          GL5D     = '~NON-PRESCRIPTION DRUG 4'
          GL5E     = '~NON-PRESCRIPTION DRUG 5'
          GL5F     = '~NON-PRESCRIPTION DRUG 6'
          GL5G     = '~NON-PRESCRIPTION DRUG 7'
          GL5H     = '~NON-PRESCRIPTION DRUG 8'
          GL5I     = '~NON-PRESCRIPTION DRUG 9'
          GL5J     = '~NON-PRESCRIPTION DRUG 10'
          GL5K     = '~NON-PRESCRIPTION DRUG 11'
          GL5L     = '~NON-PRESCRIPTION DRUG 12'
          GL5M     = '~NON-PRESCRIPTION DRUG 13'
          GL5N     = '~NON-PRESCRIPTION DRUG 14'
          GL5O     = '~NON-PRESCRIPTION DRUG 15'
          GL5P     = '~NON-PRESCRIPTION DRUG 16'
          GL5Q     = '~NON-PRESCRIPTION DRUG 17'
          GL5R     = '~NON-PRESCRIPTION DRUG 18'
          GL5S     = '~NON-PRESCRIPTION DRUG 19'
          GL5T     = '~NON-PRESCRIPTION DRUG 20'
          GL5U     = '~NON-PRESCRIPTION DRUG 21'
          GL5V     = '~NON-PRESCRIPTION DRUG 22'
          GL5W     = '~NON-PRESCRIPTION DRUG 23'
          GL5X     = '~NON-PRESCRIPTION DRUG 24'
          GL6      = '~TOTAL AMOUNT PAID FOR NON-PRE MEDICINES'
          GM1      = '~IN GENERAL, HOW IS YOUR HEALTH'
          GM2A     = '~I HAVE PAIN AT NIGHT'
          GM2B     = '~I TAKE TABLETS TO HELP ME SLEEP'
          GM2C     = '~I HAVE UNBEARABLE PAIN'
          GM2D     = '~I AM TIRED ALL THE TIME'
          GM2E     = '~I FIND IT PAINFUL TO CHANGE POSITION'
          GM2F     = '~I''M IN PAIN WHEN I WALK'
          GM2G     = '~IM WALKING UP IN EARLY HOURS OF MORNIN'
          GM2H     = '~EVERYTHING IS AN EFFORT'
          GM2I     = '~I LIE AWAKE FOR MOST OF THE NIGHT'
          GM2J     = '~I''M IN PAIN WHEN I''M STANDING'
          GM2K     = '~IT TAKES ME A LONG TIME TO GET TO SLEEP'
          GM2L     = '~I SOON RUN OUT OF ENERGY'
          GM2M     = '~I''M IN CONSTANT PAIN'
          GM2N     = '~I''M IN PAIN GOING UP AND DOWN STAIRS'
          GM2O     = '~I SLEEP BADLY AT NIGHT'
          GM2P     = '~I''M IN PAIN WHEN I''M SITTING'
          GM3A     = '~HOW LONG HLTH LIMITS VIGOROUS ACTVTY'
          GM3B     = '~HOW LONG HLTH LIMITS MODERATE ACTVTY'
          GM3C     = '~WALK UPHILL/CLIMB FEW FLIGHTS OF STAIRS'
          GM3D     = '~BENDING, LIFTING, OR STOOPING'
          GM3E     = '~WALKING ONE BLOCK'
          GM3F     = '~EATING,DRESSING,BATHING,USING TOILET'
          GM4      = '~HLTH KEPT FROM WORK AT JOB,HOME,SCHL'
          GM5      = '~HEALTH KEEP YOU FROM ACTIVITIES BEFORE'
          GM6      = '~UNABLE TO DO CERTAIN KINDS/AMTS OF WORK'
          GM7      = '~UNABLE DO ACTIVITIES DUE TO HLTH BEFORE'
          GM8      = '~PAST MO,OFTEN TALK TO RELATIVES/FRIENDS'
          GM9      = '~PAST MO,HLTH LIMITED SOCIAL ACTIVITIES'
          GM10A    = '~HAVE YOU BEEN A VERY NERVOUS PERSON?'
          GM10B    = '~HAVE YOU BEEN CALM AND PEACEFUL?'
          GM10C    = '~HAVE YOU FELT DOWNHEARTED AND BLUE?'
          GM10D    = '~HAVE YOU BEEN A HAPPY PERSON?'
          GM10E    = '~FELT SO DOWN IN DUMPS NOTHING CHEER UP'
          GM11     = '~HOW MANY FAMILY/FRIENDS CAN CONFIDE IN'
          GM12     = '~YOUR MOST RECENT T4 COUNT/CD4 COUNT'
          GM13MO   = '~WHAT WAS MONTH OF MOST RECENT T4 TEST'
          GM13DY   = '~WHAT WAS DAY OF MOST RECENT T4 TEST'
          GM13YR   = '~WHAT WAS YEAR OF MOST RECENT T4 TEST'
          GM14     = '~HAS T4 COUNT EVER BEEN LESS THAN 200'
          GN1      = '~PARTICULAR PLACE GO FOR MED CARE/ADVICE'
          GN2A     = '~PROVIDER TYPE'
          GN2PROV  = '~PROVIDER ID'
          GN3      = '~PARTICULAR DOCTOR USUALLY SEE AT PLACE'
          GN4      = '~DOES SOMEONE HELP YOU FILL OUT FORMS'
          GN5      = '~HOW DO YOU USUALLY GET THERE'
          GN6MIN   = '~HOW MANY MINUTES TO GET THERE'
          GN6HRS   = '~HOW MANY HOURS TO GET THERE'
          GN7      = '~WHEN YOU GO THERE,DO YOU USUALLY:'
          GN8MOS   = '~HOW MANY MONTHS BEEN GOING TO PLACE'
          GN8YRS   = '~HOW MANY YEARS BEEN GOING TO PLACE'
          GN9AA    = '~NEEDED EMERGENCY CARE BUT DIDNT GET IT'
          GN9AB    = '~KNOW WHERE CAN GO TO GET EMERGENCY CARE'
          GN9AC    = '~HAVE INSURANCE THAT PAYS EMERGENCY CARE'
          GN9AD    = '~AFFORD TO PAY EMERGENCY CARE YOURSELF'
          GN9AE    = '~HAVE TRANSPORTATION TO EMERGENCY CARE'
          GN9AF    = '~ANYONE REFUSE TO PROVIDE EMERGENCY CARE'
          GN9AG    = '~WHY WERE YOU REFUSED EMERGENCY CARE'
          GN9BA    = '~NEEDED HOSPITAL STAY BUT DIDN''T GET IT'
          GN9BB    = '~KNOW WHERE CAN GO TO GET HOSPITAL STAY'
          GN9BC    = '~HAVE INSURANCE THAT PAYS HOSPITAL STAY'
          GN9BD    = '~AFFORD TO PAY HOSPITAL STAY YOURSELF'
          GN9BE    = '~HAVE TRANSPORTATION TO HOSPITAL STAY'
          GN9BF    = '~ANYONE REFUSE TO PROVIDE HOSPITAL STAY'
          GN9BG    = '~WHY WERE YOU REFUSED HOSPITAL STAY'
          GN9CA    = '~NEEDED HOME SERVICES BUT DIDN''T GET IT'
          GN9CB    = '~KNOW WHERE CAN GO TO GET HOME SERVICES'
          GN9CC    = '~HAVE INSURANCE THAT PAYS HOME SERVICES'
          GN9CD    = '~AFFORD TO PAY FOR HOME SRVCS YOURSELF'
          GN9CF    = '~ANYONE REFUSE TO PROVIDE HOME SERVICES'
          GN9CG    = '~WHY WERE YOU REFUSED ANY HOME SERVICES'
          GN9DA    = '~NEEDED MENTL HLTH SERV BUT DIDN''T GET'
          GN9DB    = '~KNOW WHERE CAN GET MENTL HLTH SERV'
          GN9DC    = '~HAVE INSURANCE PAYS FOR MNTL HLTH SRV'
          GN9DD    = '~AFFORD TO PAY MENTL HLTH SERV YOURSELF'
          GN9DE    = '~HAVE TRANSPORTATION TO MENTL HLTH SERV'
          GN9DF    = '~ANYONE REFUSE TO PROVIDE MNTL HLT SRV'
          GN9DG    = '~WHY WERE YOU REFUSED MENTAL HEALTH SERV'
          GN9EA    = '~NEEDED RESIDENTL CARE BUT DIDN''T GET'
          GN9EB    = '~KNOW WHERE CAN GO TO GET RESIDENTL CARE'
          GN9EC    = '~HAVE INSURANCE THAT PAYS RESIDENTL CARE'
          GN9ED    = '~AFFORD TO PAY RESIDENTAL CARE YOURSELF'
          GN9EE    = '~HAVE TRANSPORTATION TO RESIDENTIAL CARE'
          GN9EF    = '~ANYONE REFUSE TO PROVIDE RESIDENTL CARE'
          GN9EG    = '~WHY WERE YOU REFUSED RESIDENTIAL CARE'
          GN9FA    = '~NEEDED PRESCRIBED MED BUT DIDN''T GET'
          GN9FB    = '~KNOW WHERE CAN GO TO GET PRESCRBD MED'
          GN9FC    = '~HAVE INSURANCE THAT PAYS PRESCRBD MED'
          GN9FD    = '~AFFORD TO PAY PRESCRIBED MED YOURSELF'
          GN9FE    = '~HAVE TRANSPORT TO GET PRESCRIBED MED'
          GN9FF    = '~ANYONE REFUSE TO PROVIDE PRESCRIBE MED'
          GN9FG    = '~WHY WERE YOU REFUSED PRESCRIBED MED'
          GN9GA    = '~NEEDED DENTAL SERVICES BUT DIDN''T GET'
          GN9GB    = '~KNOW WHERE CAN GO FOR DENTAL SERVICES'
          GN9GC    = '~HAVE INSURANCE THAT PAYS DENTAL SRVCS'
          GN9GD    = '~AFFORD TO PAY DENTAL SERVICES YOURSELF'
          GN9GE    = '~HAVE TRANSPORTATION TO DENTAL SERVICES'
          GN9GF    = '~ANYONE REFUSE TO PROVIDE DENTAL SRVCS'
          GN9GG    = '~WHY WERE YOU REFUSED DENTAL SERVICES'
          GN9HA    = '~NEEDED DRUG TREATMENT BUT DIDNT GET IT'
          GN9HB    = '~KNOW WHERE CAN GO TO GET DRUG TREATMENT'
          GN9HC    = '~HAVE INSURANCE THAT PAYS DRUG TREATMENT'
          GN9HD    = '~AFFORD TO PAY DRUG TREATMENT YOURSELF'
          GN9HE    = '~HAVE TRANSPORTATION TO DRUG TREATMENT'
          GN9HF    = '~ANYONE REFUSE TO PROVIDE DRUG TREATMENT'
          GN9HG    = '~WHY WERE YOU REFUSED DRUG TREATMENT'
          GN9IA    = '~YOU FELT THAT NO SERVICES WERE NEEDED?'
          GO1      = '~WORK FULL TIME,PT TIME, NOT WORKING NOW'
          GOBOX2   = '~R WORKING PART TIME.LAST TIME R WAS:'
          GOBOX3   = '~R NOT WORKING.LAST TIME R WAS:'
          GO2      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          GO3O4    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          GO4A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          GO5      = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          GO6      = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          GO7      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          GO8O9    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          GO9A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          GO10     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          GO11     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          GO12     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          GO13MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          GO13YR   = '~IN WHAT YEAR LEFT THAT (FULL TIME) JOB'
          GO14     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          GO15     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          GO16     = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          GO17O18  = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          GO18A    = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          GO19     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          GO20     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          GO21     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          GO22     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          GO23     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          GO24     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          GO25MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          GO25YR   = '~IN WHAT YR LEFT THAT (FULL TIME) JOB'
          GO26     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          GO27     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          GO28     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          GO29     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          GO30     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          GO31     = '~TOTAL INCOME BEFORE TAXES FOR PAST MO.'
          GOBOX4   = '~R WORKING FULL TIME (Q.O-1)'
          GO32     = '~RECEIVED SOCIAL SECUR DIASABIL PAYMENT'
          GO33MO   = '~MO RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          GO33YR   = '~YR RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          GO33BX   = '~1ST SOC SEC DISABIL PAY BEFORE REF DATE'
          GO34     = '~APPLIED FOR SOC SEC DISABIL PAYMENT'
          GO35     = '~TURNED DOWN FOR SOC SEC DISABIL PAYMENT'
          GOBOX5   = '~R HAS: NO CHILDREN/1 OR MORE CHILDREN'
          GO36     = '~RECEIVED ASSISTANCE THROUGH AFDC/ADC'
          GO37MO   = '~MONTH RECEIVED 1ST AFDC PAYMENT'
          GO37YR   = '~YR RECEIVED 1ST AFDC PAYMENT'
          GO37BX   = '~1ST AFDC PAYMENT BEFORE REFERENCE DATE'
          GO38     = '~RECEIVED SUPPLEMENTAL SECURITY INCOME'
          GO39MO   = '~MONTH RECEIVED 1ST SSI PAYMENT'
          GO39YR   = '~YEAR RECEIVED 1ST SSI PAYMENT'
          GO39BX   = '~1ST SSI PAYMENT BEFORE REFERENCE DATE'
          GO40     = '~HAVE YOU RECEIVED FOOD STAMPS'
          GO41MO   = '~MONTH RECEIVED 1ST FOOD STAMPS'
          GO41YR   = '~YEAR RECEIVED 1ST FOOD STAMPS'
          GO42     = '~RCVD $ FROM PARENTS, FRIENDS, FAMILY'
          GO43     = '~HOW MUCH MONEY HAVE YOU RECEIVED'
          GP1      = '~SINCE 3/1/91, BEEN OUT USA 2 WKS/MORE'
          GP2      = '~FRM 3/1/91,# TIMES OUT USA 2 WKS/MORE'
          GP3L1MO  = '~WHAT MONTH YOU LEFT USA FIRST TRIP'
          GP3L1DY  = '~WHAT DAY YOU LEFT USA FIRST TRIP'
          GP3L1YR  = '~WHAT YEAR YOU LEFT USA FIRST TRIP'
          GP3R1MO  = '~WHAT MONTH RETURNED TO USA FIRST TRIP'
          GP3R1DY  = '~WHAT DAY RETURNED TO USA FIRST TRIP'
          GP3R1YR  = '~WHAT YEAR RETURNED TO USA FIRST TRIP'
          GP3L2MO  = '~WHAT MONTH YOU LEFT USA SECOND TRIP'
          GP3L2DY  = '~WHAT DAY YOU LEFT USA SECOND TRIP'
          GP3L2YR  = '~WHAT YEAR YOU LEFT USA SECOND TRIP'
          GP3R2MO  = '~WHAT MONTH RETURNED TO USA SECOND TRIP'
          GP3R2DY  = '~WHAT DAY RETURNED TO USA SECOND TRIP'
          GP3R2YR  = '~WHAT YEAR RETURNED TO USA SECOND TRIP'
          GP3L3MO  = '~WHAT MONTH YOU LEFT USA THIRD TRIP'
          GP3L3DY  = '~WHAT DAY YOU LEFT USA THIRD TRIP'
          GP3L3YR  = '~WHAT YEAR YOU LEFT USA THIRD TRIP'
          GP3R3MO  = '~WHAT MONTH RETURNED TO USA THIRD TRIP'
          GP3R3DY  = '~WHAT DAY RETURNED TO USA THIRD TRIP'
          GP3R3YR  = '~WHAT YEAR RETURNED TO USA THIRD TRIP'
          GP4      = '~SINCE 3/1/91,IN JAIL/PRISON 2 WKS/MORE'
          GP5      = '~FRM 3/1/91,# TIMES IN JAIL 2 WKS/MORE'
          GP6EN1MO = '~MONTH ENTERED JAIL/PRISON FIRST TIME'
          GP6EN1DY = '~DAY ENTERED JAIL/PRISON FIRST TIME'
          GP6EN1YR = '~YEAR ENTERED JAIL/PRISON FIRST TIME'
          GP6EX1MO = '~MONTH RELEASED FRM JAIL/PRSN 1ST TIME'
          GP6EX1DY = '~DAY RELEASED FRM JAIL/PRSN 1ST TIME'
          GP6EX1YR = '~YEAR RELEASED FRM JAIL/PRSN 1ST TIME'
          GP6EN2MO = '~MONTH ENTERED JAIL/PRISON SECOND TIME'
          GP6EN2DY = '~DAY ENTERED JAIL/PRISON SECOND TIME'
          GP6EN2YR = '~YEAR ENTERED JAIL/PRISON SECOND TIME'
          GP6EX2MO = '~MONTH RELEASED FRM JAIL/PRSN 2ND TIME'
          GP6EX2DY = '~DAY RELEASED FROM JAIL/PRISON 2ND TIME'
          GP6EX2YR = '~YEAR RELEASED FROM JAIL/PRISON 2ND TIME'
          GP6EN3MO = '~MONTH ENTERED JAIL/PRISON THIRD TIME'
          GP6EN3DY = '~DAY ENTERED JAIL/PRISON THIRD TIME'
          GP6EN3YR = '~YEAR ENTERED JAIL/PRISON THIRD TIME'
          GP6EX3MO = '~MONTH RELEASED FRM JAIL/PRSN 3RD TIME'
          GP6EX3DY = '~DAY RELEASED FROM JAIL/PRISON 3RD TIME'
          GP6EX3YR = '~YEAR RELEASED FROM JAIL/PRISON 3RD TIME'
          GR1      = '~INDICATE CONFIDENCE IN RS TRUTHFULNESS'
          GR2      = '~WHY?'
          GR3      = '~INDICATE CONFIDENCE IN R''S ACCURACY'
          GR4      = '~WHY?'
          GR5A     = '~ABLE TO UNDERSTAND QUESTIONS'
          GR5B     = '~COOPERATIVE'
          GR5C     = '~NO LANGUAGE PROBLEM'
          GR5D     = '~INTERVIEWED WITHOUT INTERRUPTION'
          GR5E     = '~SOBER'
          GR5F     = '~PHYSICALLY OR MENTALLY FATIGUED'
     ;
     RETURN;

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

     CRD01 :
     INPUT
               GPID01             001-009
               GREC01             010-011
               GSREC01            012-013
               GITYPE       $     014
               GRTYPE             015
               GLANG              016
               GREFMO             017-018
               GREFDY             019-020
               GREFYR             021-022
               GENDMO       $     023-024
               GENDDY       $     025-026
               GENDYR       $     027-028
               T4_STAT      $     029-030
               OBSDAYS4           031-033
               GAP4FLAG     $     034
               ADM4               035-036
               IPNGT4             037-039
               AMBVS4             040-042
               ERVS4              043-045
               HCVS4              046-048
               OCVS4              049-051
               MDVS4              052-054
               GA01CT             055-056
               GA1REL1      $     057-058
               GA1SEX1      $     059
               GA1AGE1      $     060-061
               GA1SST1      $     062
               GA1REL2      $     063-064
               GA1SEX2      $     065
               GA1AGE2      $     066-067
               GA1SST2      $     068
               GA1REL3      $     069-070
               GA1SEX3      $     071
               GA1AGE3      $     072-073
               GA1SST3      $     074
               GA1REL4      $     075-076
               GA1SEX4      $     077
               GA1AGE4      $     078-079
               GA1SST4      $     080
               GA1REL5      $     081-082
               GA1SEX5      $     083
               GA1AGE5      $     084-085
               GA1SST5      $     086
               GA1REL6      $     087-088
               GA1SEX6      $     089
               GA1AGE6      $     090-091
               GA1SST6      $     092
               GA1REL7      $     093-094
               GA1SEX7      $     095
               GA1AGE7      $     096-097
               GA1SST7      $     098
               GA1REL8      $     099-100
               GA1SEX8      $     101
               GA1AGE8      $     102-103
               GA1SST8      $     104
               GA1REL9      $     105-106
               GA1SEX9      $     107
               GA1AGE9      $     108-109
               GA1SST9      $     110
               GA1REL10     $     111-112
               GA1SEX10     $     113
               GA1AGE10     $     114-115
               GA1SST10     $     116
               GABOX1A            117
               GABOX1B            118
               GA2          $     119
               GA3          $     120
               GA4          $     121
               GA5                122-123
               GA6A               124
               GA6B               125
               GA6C               126
               GA6D               127
               GA6E               128
               GA6F               129
               GB1                130
               GBBOX2       $     131
               GBBOX3             132
               GB2          $     133
               GB3          $     134
               GB4A         $     135
               GB4B         $     136
               GB4C         $     137
               GB4D         $     138
               GB4E         $     139
               GB4F         $     140
               GB4G         $     141
               GB4H         $     142
               GB4I         $     143
               GB4J         $     144
               GB4K         $     145
               GB4L         $     146
               GB5MO        $     147-148
               GB5YR        $     149-150
               GB6          $     151
               GBBOX4       $     152
               GB7          $     153
               GB8          $     154-155
               GB9MO        $     156-157
               GB9YR        $     158-159
               GB10         $     160
               GB12         $     161
               GB13         $     162
               GB14A        $     163
               GB14B        $     164
               GB14C        $     165
               GB14D        $     166
               GB14E        $     167
               GB14F        $     168
               GB14G        $     169
               GB14H        $     170
               GB14I        $     171
               GB14J        $     172
               GB14K        $     173
               GB14L        $     174
               GBBOX5       $     175
               GB16MO       $     176-177
               GB16YR       $     178-179
               GB17         $     180
               GB18         $     181
               GB19               182
               GB21               183
               GBBOX6       $     184
               GBBOX7       $     185
               GB22         $     186
               GB23         $     187
               GB24A        $     188
               GB24B        $     189
               GB24C        $     190
               GB24D        $     191
               GB24E        $     192
               GB24F        $     193
               GB24G        $     194
               GB24H        $     195
               GB24I        $     196
               GB24J        $     197
               GB24K        $     198
               GB24L        $     199
               GB25MO       $     200-201
               GB25YR       $     202-203
               GBBOX8       $     204
               GB26         $     205-206
               GB27MO       $     207-208
               GB27YR       $     209-210
               GBBOX9             211
               GB28         $     212
               GB29               213
               GB31A1       $     214-215
               GB31A2       $     216
               GB31B1       $     217-218
               GB31B2       $     219
               GD1A               220
               GD1B         $     221-222
               GD05CT             223-224
               GE1A               225
               GE1B         $     226-227
               GE07CT             228-229
               GF1                230
               GF1A         $     231-232
               GF09CT             233-234
               GF2                235
               GF2A         $     236-237
               GF10CT             238-239
               GF3                240
               GF3A         $     241-242
               GF11CT             243-244
               GF4                245
               GF4A         $     246-247
               GF12CT             248-249
               GG1                250
               GG1A         $     251-252
               GG13CT             253-254
               GG2                255
               GG2A         $     256-257
               GG14CT             258-259
               GG3                260
               GG3A         $     261-262
               GG15CT             263-264
               GG4                265
               GG16CT             266-267
               GH1                268
               GH2                269
               GH18CT             270-271
               GI1                272
               GI20CT             273-274
               GI2                275
               GI21CT             276-277
               GI3                278
               GI22CT             279-280
               GI4                281
               GI23CT             282-283
               GI5                284
               GI24CT             285-286
               GI6                287
               GI25CT             288-289
               GI7                290
               GI26CT             291-292
               GJ1                293
               GJ1A         $     294-295
               GJ28CT             296-297
               GKSEX              298
               GK1          $     299-300
               GK1A         $     301-302
               GK2A         $     303
               GK2B         $     304
               GK2C         $     305
               GK2D         $     306
               GK2E         $     307
               GK2F         $     308
               GK2G         $     309
               GK3          $     310
               GK4          $     311
               GK5A         $     312
               GK6APROV           313-319
               GK7AA        $     320
               GK7AB        $     321
               GK7AC        $     322
               GK7AD        $     323
               GK7AE        $     324
               GK7AF        $     325
               GK7AFOS      $     326-327
               GK8A         $     328
               GK9A         $     329
               GK10A        $     330-331
               GK5B         $     332
               GK6BPROV           333-339
               GK7BA        $     340
               GK7BB        $     341
               GK7BC        $     342
               GK7BD        $     343
               GK7BE        $     344
               GK7BF        $     345
               GK7BFOS      $     346-347
               GK8B         $     348
               GK9B         $     349
               GK10B        $     350-351
               GL2                352
               GL3                353
               GL31CT             354-355
               GL4                356
               GL32CT             357-358
               GL5A         $     359-361
               GL5B         $     362-364
               GL5C         $     365-367
               GL5D         $     368-370
               GL5E         $     371-373
               GL5F         $     374-376
               GL5G         $     377-379
               GL5H         $     380-382
               GL5I         $     383-385
               GL5J         $     386-388
               GL5K         $     389-391
               GL5L         $     392-394
               GL5M         $     395-397
               GL5N         $     398-400
               GL5O         $     401-403
               GL5P         $     404-406
               GL5Q         $     407-409
               GL5R         $     410-412
               GL5S         $     413-415
               GL5T         $     416-418
               GL5U         $     419-421
               GL5V         $     422-424
               GL5W         $     425-427
               GL5X         $     428-430
               GL6          $     431-436
               GM1                437
               GM2A               438
               GM2B               439
               GM2C               440
               GM2D               441
               GM2E               442
               GM2F               443
               GM2G               444
               GM2H               445
               GM2I               446
               GM2J               447
               GM2K               448
               GM2L               449
               GM2M               450
               GM2N               451
               GM2O               452
               GM2P               453
               GM3A               454
               GM3B               455
               GM3C               456
               GM3D               457
               GM3E               458
               GM3F               459
               GM4                460
               GM5          $     461
               GM6                462
               GM7          $     463
               GM8                464
               GM9                465
               GM10A              466
               GM10B              467
               GM10C              468
               GM10D              469
               GM10E              470
               GM11               471-472
               GM12               473
               GM13MO             474-475
               GM13DY             476-477
               GM13YR             478-479
               GM14               480
               GN1                481
               GN2A         $     482-483
               GN2PROV            484-490
               GN3          $     491
               GN4          $     492
               GN5          $     493-494
               GN6MIN       $     495-497
               GN6HRS       $     498-499
               GN7          $     500
               GN8MOS       $     501-502
               GN8YRS       $     503-504
               GN9AA              505
               GN9AB              506
               GN9AC        $     507
               GN9AD        $     508
               GN9AE        $     509
               GN9AF        $     510
               GN9AG        $     511-514
               GN9BA              515
               GN9BB        $     516
               GN9BC        $     517
               GN9BD        $     518
               GN9BE        $     519
               GN9BF        $     520
               GN9BG        $     521-524
               GN9CA              525
               GN9CB        $     526
               GN9CC        $     527
               GN9CD        $     528
               GN9CF        $     529
               GN9CG        $     530-533
               GN9DA              534
               GN9DB        $     535
               GN9DC        $     536
               GN9DD        $     537
               GN9DE        $     538
               GN9DF        $     539
               GN9DG        $     540-543
               GN9EA              544
               GN9EB        $     545
               GN9EC        $     546
               GN9ED        $     547
               GN9EE        $     548
               GN9EF        $     549
               GN9EG        $     550-553
               GN9FA              554
               GN9FB        $     555
               GN9FC        $     556
               GN9FD        $     557
               GN9FE        $     558
               GN9FF        $     559
               GN9FG        $     560-563
               GN9GA              564
               GN9GB        $     565
               GN9GC        $     566
               GN9GD        $     567
               GN9GE        $     568
               GN9GF        $     569
               GN9GG        $     570-573
               GN9HA              574
               GN9HB        $     575
               GN9HC        $     576
               GN9HD        $     577
               GN9HE        $     578
               GN9HF        $     579
               GN9HG        $     580-583
               GN9IA              584
               GO1                585
               GOBOX2       $     586
               GOBOX3       $     587
               GO2          $     588-590
               GO3O4        $     591-594
               GO4A         $     595
               GO5          $     596
               GO6          $     597-598
               GO7          $     599-601
               GO8O9        $     602-605
               GO9A         $     606
               GO10         $     607
               GO11         $     608-609
               GO12         $     610
               GO13MO       $     611-612
               GO13YR       $     613-614
               GO14         $     615
               GO15         $     616-617
               GO16         $     618-620
               GO17O18      $     621-624
               GO18A        $     625
               GO19         $     626
               GO20         $     627
               GO21         $     628-629
               GO22         $     630
               GO23         $     631-632
               GO24         $     633
               GO25MO       $     634-635
               GO25YR       $     636-637
               GO26         $     638
               GO27         $     639-640
               GO28         $     641
               GO29         $     642
               GO30         $     643-644
               GO31               645-646
               GOBOX4       $     647
               GO32         $     648
               GO33MO       $     649-650
               GO33YR       $     651-652
               GO33BX       $     653
               GO34         $     654
               GO35         $     655
               GOBOX5       $     656
               GO36         $     657
               GO37MO       $     658-659
               GO37YR       $     660-661
               GO37BX       $     662
               GO38         $     663
               GO39MO       $     664-665
               GO39YR       $     666-667
               GO39BX       $     668
               GO40         $     669
               GO41MO       $     670-671
               GO41YR       $     672-673
               GO42         $     674
               GO43         $     675-680
               GP1                681
               GP2          $     682-683
               GP3L1MO      $     684-685
               GP3L1DY      $     686-687
               GP3L1YR      $     688-689
               GP3R1MO      $     690-691
               GP3R1DY      $     692-693
               GP3R1YR      $     694-695
               GP3L2MO      $     696-697
               GP3L2DY      $     698-699
               GP3L2YR      $     700-701
               GP3R2MO      $     702-703
               GP3R2DY      $     704-705
               GP3R2YR      $     706-707
               GP3L3MO      $     708-709
               GP3L3DY      $     710-711
               GP3L3YR      $     712-713
               GP3R3MO      $     714-715
               GP3R3DY      $     716-717
               GP3R3YR      $     718-719
               GP4                720
               GP5          $     721-722
               GP6EN1MO     $     723-724
               GP6EN1DY     $     725-726
               GP6EN1YR     $     727-728
               GP6EX1MO     $     729-730
               GP6EX1DY     $     731-732
               GP6EX1YR     $     733-734
               GP6EN2MO     $     735-736
               GP6EN2DY     $     737-738
               GP6EN2YR     $     739-740
               GP6EX2MO     $     741-742
               GP6EX2DY     $     743-744
               GP6EX2YR     $     745-746
               GP6EN3MO     $     747-748
               GP6EN3DY     $     749-750
               GP6EN3YR     $     751-752
               GP6EX3MO     $     753-754
               GP6EX3DY     $     755-756
               GP6EX3YR     $     757-758
               GR1                759
               GR2          $     760-761
               GR3                762
               GR4          $     763-764
               GR5A               765
               GR5B               766
               GR5C               767
               GR5D               768
               GR5E               769
               GR5F               770
     ;
     RETURN;
     ;
     PROC FREQ ;  TABLES
          GPID01
          GREC01
          GSREC01
          GITYPE
          GRTYPE
          GLANG
          GREFMO
          GREFDY
          GREFYR
          GENDMO
          GENDDY
          GENDYR
          T4_STAT
          OBSDAYS4
          GAP4FLAG
          ADM4
          IPNGT4
          AMBVS4
          ERVS4
          HCVS4
          OCVS4
          MDVS4
          GA01CT
          GA1REL1
          GA1SEX1
          GA1AGE1
          GA1SST1
          GA1REL2
          GA1SEX2
          GA1AGE2
          GA1SST2
          GA1REL3
          GA1SEX3
          GA1AGE3
          GA1SST3
          GA1REL4
          GA1SEX4
          GA1AGE4
          GA1SST4
          GA1REL5
          GA1SEX5
          GA1AGE5
          GA1SST5
          GA1REL6
          GA1SEX6
          GA1AGE6
          GA1SST6
          GA1REL7
          GA1SEX7
          GA1AGE7
          GA1SST7
          GA1REL8
          GA1SEX8
          GA1AGE8
          GA1SST8
          GA1REL9
          GA1SEX9
          GA1AGE9
          GA1SST9
          GA1REL10
          GA1SEX10
          GA1AGE10
          GA1SST10
          GABOX1A
          GABOX1B
          GA2
          GA3
          GA4
          GA5
          GA6A
          GA6B
          GA6C
          GA6D
          GA6E
          GA6F
          GB1
          GBBOX2
          GBBOX3
          GB2
          GB3
          GB4A
          GB4B
          GB4C
          GB4D
          GB4E
          GB4F
          GB4G
          GB4H
          GB4I
          GB4J
          GB4K
          GB4L
          GB5MO
          GB5YR
          GB6
          GBBOX4
          GB7
          GB8
          GB9MO
          GB9YR
          GB10
          GB12
          GB13
          GB14A
          GB14B
          GB14C
          GB14D
          GB14E
          GB14F
          GB14G
          GB14H
          GB14I
          GB14J
          GB14K
          GB14L
          GBBOX5
          GB16MO
          GB16YR
          GB17
          GB18
          GB19
          GB21
          GBBOX6
          GBBOX7
          GB22
          GB23
          GB24A
          GB24B
          GB24C
          GB24D
          GB24E
          GB24F
          GB24G
          GB24H
          GB24I
          GB24J
          GB24K
          GB24L
          GB25MO
          GB25YR
          GBBOX8
          GB26
          GB27MO
          GB27YR
          GBBOX9
          GB28
          GB29
          GB31A1
          GB31A2
          GB31B1
          GB31B2
          GD1A
          GD1B
          GD05CT
          GE1A
          GE1B
          GE07CT
          GF1
          GF1A
          GF09CT
          GF2
          GF2A
          GF10CT
          GF3
          GF3A
          GF11CT
          GF4
          GF4A
          GF12CT
          GG1
          GG1A
          GG13CT
          GG2
          GG2A
          GG14CT
          GG3
          GG3A
          GG15CT
          GG4
          GG16CT
          GH1
          GH2
          GH18CT
          GI1
          GI20CT
          GI2
          GI21CT
          GI3
          GI22CT
          GI4
          GI23CT
          GI5
          GI24CT
          GI6
          GI25CT
          GI7
          GI26CT
          GJ1
          GJ1A
          GJ28CT
          GKSEX
          GK1
          GK1A
          GK2A
          GK2B
          GK2C
          GK2D
          GK2E
          GK2F
          GK2G
          GK3
          GK4
          GK5A
          GK6APROV
          GK7AA
          GK7AB
          GK7AC
          GK7AD
          GK7AE
          GK7AF
          GK7AFOS
          GK8A
          GK9A
          GK10A
          GK5B
          GK6BPROV
          GK7BA
          GK7BB
          GK7BC
          GK7BD
          GK7BE
          GK7BF
          GK7BFOS
          GK8B
          GK9B
          GK10B
          GL2
          GL3
          GL31CT
          GL4
          GL32CT
          GL5A
          GL5B
          GL5C
          GL5D
          GL5E
          GL5F
          GL5G
          GL5H
          GL5I
          GL5J
          GL5K
          GL5L
          GL5M
          GL5N
          GL5O
          GL5P
          GL5Q
          GL5R
          GL5S
          GL5T
          GL5U
          GL5V
          GL5W
          GL5X
          GL6
          GM1
          GM2A
          GM2B
          GM2C
          GM2D
          GM2E
          GM2F
          GM2G
          GM2H
          GM2I
          GM2J
          GM2K
          GM2L
          GM2M
          GM2N
          GM2O
          GM2P
          GM3A
          GM3B
          GM3C
          GM3D
          GM3E
          GM3F
          GM4
          GM5
          GM6
          GM7
          GM8
          GM9
          GM10A
          GM10B
          GM10C
          GM10D
          GM10E
          GM11
          GM12
          GM13MO
          GM13DY
          GM13YR
          GM14
          GN1
          GN2A
          GN2PROV
          GN3
          GN4
          GN5
          GN6MIN
          GN6HRS
          GN7
          GN8MOS
          GN8YRS
          GN9AA
          GN9AB
          GN9AC
          GN9AD
          GN9AE
          GN9AF
          GN9AG
          GN9BA
          GN9BB
          GN9BC
          GN9BD
          GN9BE
          GN9BF
          GN9BG
          GN9CA
          GN9CB
          GN9CC
          GN9CD
          GN9CF
          GN9CG
          GN9DA
          GN9DB
          GN9DC
          GN9DD
          GN9DE
          GN9DF
          GN9DG
          GN9EA
          GN9EB
          GN9EC
          GN9ED
          GN9EE
          GN9EF
          GN9EG
          GN9FA
          GN9FB
          GN9FC
          GN9FD
          GN9FE
          GN9FF
          GN9FG
          GN9GA
          GN9GB
          GN9GC
          GN9GD
          GN9GE
          GN9GF
          GN9GG
          GN9HA
          GN9HB
          GN9HC
          GN9HD
          GN9HE
          GN9HF
          GN9HG
          GN9IA
          GO1
          GOBOX2
          GOBOX3
          GO2
          GO3O4
          GO4A
          GO5
          GO6
          GO7
          GO8O9
          GO9A
          GO10
          GO11
          GO12
          GO13MO
          GO13YR
          GO14
          GO15
          GO16
          GO17O18
          GO18A
          GO19
          GO20
          GO21
          GO22
          GO23
          GO24
          GO25MO
          GO25YR
          GO26
          GO27
          GO28
          GO29
          GO30
          GO31
          GOBOX4
          GO32
          GO33MO
          GO33YR
          GO33BX
          GO34
          GO35
          GOBOX5
          GO36
          GO37MO
          GO37YR
          GO37BX
          GO38
          GO39MO
          GO39YR
          GO39BX
          GO40
          GO41MO
          GO41YR
          GO42
          GO43
          GP1
          GP2
          GP3L1MO
          GP3L1DY
          GP3L1YR
          GP3R1MO
          GP3R1DY
          GP3R1YR
          GP3L2MO
          GP3L2DY
          GP3L2YR
          GP3R2MO
          GP3R2DY
          GP3R2YR
          GP3L3MO
          GP3L3DY
          GP3L3YR
          GP3R3MO
          GP3R3DY
          GP3R3YR
          GP4
          GP5
          GP6EN1MO
          GP6EN1DY
          GP6EN1YR
          GP6EX1MO
          GP6EX1DY
          GP6EX1YR
          GP6EN2MO
          GP6EN2DY
          GP6EN2YR
          GP6EX2MO
          GP6EX2DY
          GP6EX2YR
          GP6EN3MO
          GP6EN3DY
          GP6EN3YR
          GP6EX3MO
          GP6EX3DY
          GP6EX3YR
          GR1
          GR2
          GR3
          GR4
          GR5A
          GR5B
          GR5C
          GR5D
          GR5E
          GR5F
     ;