/* SHORT TITLE:  Patient Quest-Time 2 Specific Data   */
PROC FORMAT
;
VALUE  BREC01F
   01  = 'NUMBER          '
;
VALUE  BSREC0F
   00  = 'NOT A REPEATING '
;
VALUE $BITYPEF
  'B' = 'TIME 2 QUESTIONN'
;
VALUE  BRTYPEF
   1  = 'STUDY SUBJECT   '
   2  = 'PROXY           '
;
VALUE  BLANG_F
   1  = 'ENGLISH         '
   2  = 'SPANISH         '
;
VALUE $T2_STAF
  'CO' = 'COMPLETE, WITH R'
  'PR' = 'COMPLETE, WITH P'
  'DD' = 'COMPLETE, WITH P'
;
VALUE  OBSDAYF
   999  = 'NOT ASCERTAINED '
;
VALUE $GAP2FLF
  '1' = 'YES TIME GAP    '
;
VALUE  ADM2__F
   00  = 'NONE            '
;
VALUE  IPNGT2F
   000  = 'NONE            '
;
VALUE  BA1RELF
   00  = 'RESPONDENT      '
;
VALUE  BA1SEXF
   1  = 'MALE            '
   2  = 'FEMALE          '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BA1SSTF
   1  = 'YES             '
   2  = 'NO              '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $BA1RELG
  '91' = 'OTHER RELATIVE  '
  '92' = 'OTHER NON-RELATI'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BA1SEXG
  '1' = 'MALE            '
  '2' = 'FEMALE          '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BA1AGEF
  '00' = 'NEWBORN TO 11 MO'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BA1SSTG
  '1' = 'YES             '
  '2' = 'NO              '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  BABOXAG
   1  = 'YES             '
   2  = 'NO              '
;
VALUE $BA2___F
  '1' = 'MARRIED         '
  '2' = 'WIDOWED         '
  '3' = 'DIVORCED        '
  '4' = 'SEPARATED       '
  '5' = 'NEVER MARRIED   '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  BA5___F
   01  = 'APARTMENT OR HOU'
   02  = 'APARTMENT OR HOU'
   03  = '"DOUBLED UP" WIT'
   04  = 'SINGLE ROOM ONLY'
   05  = 'SPECIALIZED AIDS'
   06  = 'SHELTERS        '
   07  = 'STREET OR OTHER '
   08  = 'HOSPITAL/NURSING'
   09  = 'IN FOSTER HOMES '
   10  = 'LIVES WITH SOMEO'
   11  = 'JAIL            '
   12  = 'PUBLIC HOUSING  '
   13  = 'TRAILER/HOUSE LI'
   91  = 'OTHER SPECIFIED '
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE  BA6A__F
   1  = 'CIRCLED         '
   2  = 'NOT CIRCLED     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $BA7MO_F
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BA8MO_F
  '95' = 'STILL LIVING THE'
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BA9PROF
  '9999997' = 'REFUSED         '
  '9999998' = 'DK              '
  '9999999' = 'NOT ASCERTAINED '
;
VALUE $BA10__F
  '000000' = 'NOTHING         '
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE $BA12A_F
  '1' = 'CIRCLED         '
  '2' = 'NOT CIRCLED     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BA12EOF
  '01' = 'RESEARCH STUDY  '
  '03' = 'FLAT FEE        '
  '05' = 'GAY AIDS TASK FO'
  '14' = 'FAMILY/FRIEND   '
  '29' = 'COMMUNITY HEALTH'
  '46' = 'PROVIDER        '
  '47' = 'PRIVATE CHARITY/'
  '50' = 'DRUG CO         '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BA13__F
  '01' = 'FREE FROM PROVID'
  '02' = 'PAID IN FULL    '
  '03' = 'CAN''T AFFORD TO'
  '05' = 'RESEARCH STUDY  '
  '06' = 'GOVT AGENCY/GOVT'
  '18' = 'INCLUDED IN OTHE'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  BBBOX1F
   1  = 'YES,NO COVERAGE '
   2  = 'NO,SOME COVERAGE'
;
VALUE $BBBOX2F
  '1' = 'YES             '
  '2' = 'NO              '
;
VALUE $BB3___F
  '1' = 'THE WHOLE TIME  '
  '2' = 'PART OF THE TIME'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BB7___F
  '1' = 'INDIVIDUAL PLAN '
  '2' = 'FAMILY PLAN     '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BB8___F
  '01' = 'EMPLOYER        '
  '02' = 'UNION           '
  '03' = 'INSURANCE COMPAN'
  '04' = 'SPECIAL INTEREST'
  '05' = 'PUBLIC ASSISTANC'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BB16YRF
  '91' = 'YEAR            '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BB18__F
  '1' = 'YES             '
  '2' = 'NO/NO DECISION Y'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BB26__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 $BB31A2F
  '1' = 'DAYS            '
  '2' = 'WEEKS           '
  '3' = 'MONTHS          '
  '4' = 'YEARS           '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE  BD06CTF
   00  = 'NONE LISTED     '
;
VALUE  BI3___F
   1  = 'YES             '
   2  = 'NO              '
   3  = 'NO CHILDREN     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BK3CT_F
   00  = 'NO DRUGS LISTED '
;
VALUE $BK4A__F
  '991' = 'OTHER SPECIFIED '
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $BK4N__F
  '991' = 'OTHER SPECIFIED '
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  BL1___F
   1  = 'EXCELLENT       '
   2  = 'VERY GOOD       '
   3  = 'GOOD            '
   4  = 'FAIR            '
   5  = 'POOR            '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BL3A__F
   1  = 'LIMITED FOR MORE'
   2  = 'LIMITED FOR 3 MO'
   3  = 'NOT LIMITED AT A'
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BL8___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  BL9___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 BIT OF '
   6  = 'NONE OF THE TIME'
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BL11__F
   00  = 'NONE            '
   96  = 'GREATER THAN 95 '
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE  BL14__F
   00  = 'NONE            '
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE $BL16A_F
  '00' = 'NONE            '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BM2A__F
  '01' = 'CLINIC          '
  '02' = 'HOSPITAL        '
  '03' = 'DOCTOR''S OFFICE'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BM5___F
  '01' = 'WALKING         '
  '02' = 'DRIVING         '
  '03' = 'BEING DRIVEN    '
  '04' = 'TAXI            '
  '05' = 'OTHER PUBLIC TRA'
  '06' = 'AMBULETE/AMBULEN'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BM6MINF
  '997' = 'REFUSED         '
  '998' = 'DK              '
  '999' = 'NOT ASCERTAINED '
;
VALUE $BM7___F
  '1' = 'HAS APPOINTMENT '
  '2' = 'JUST WALKS IN   '
  '3' = 'SOMETIMES HAS AP'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BM9AG_F
  '0001' = 'DISEASE RELATED '
  '0002' = 'PROVIDER STATED;'
  '0003' = 'VARIATIONS OF RE'
  '0004' = 'RESPONDENT WAS T'
  '0005' = 'PATIENT NOT ELIG'
  '0006' = 'SERVICE NOT AVAI'
  '9992' = 'RESPONSE DOES NO'
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $BM9BG_F
  '0001' = 'DISEASE RELATED '
  '0002' = 'PROVIDER STATED;'
  '0003' = 'VARIATIONS OF RE'
  '0004' = 'RESPONDENT WAS T'
  '0005' = 'PATIENT NOT ELIG'
  '0006' = 'SERVICE NOT AVAI'
  '9992' = 'RESPONSE DOES NO'
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $BM9GG_F
  '0001' = 'DISEASE RELATED '
  '0002' = 'PROVIDER STATED;'
  '0003' = 'VARIATIONS OF RE'
  '0004' = 'RESPONDENT WAS T'
  '0005' = 'PATIENT NOT ELIG'
  '0006' = 'SERVICE NOT AVAI'
  '9991' = 'OTHER SPECIFIED '
  '9992' = 'RESPONSE DOES NO'
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE  BN1___F
   1  = 'FULL-TIME       '
   2  = 'PART-TIME       '
   3  = 'NOT WORKING     '
   7  = 'REFUSED         '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $BNBOX1F
  '1' = 'WORKING FULL TIM'
  '2' = 'WORKING PART-TIM'
  '3' = 'NOT WORKING (NW)'
;
VALUE $BN3N4_F
  '9994' = 'UNCODEABLE      '
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $BN4A__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 $BN6___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 $BN11__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 $BN15__F
  '01' = 'STOPPED/QUIT WOR'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGED TYPE /AM'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BN21__F
  '01' = 'STOPPED/ QUIT WO'
  '02' = 'CAN''T DO WHAT I'
  '03' = 'CHANGED TYPE /AM'
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $BN23__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      '
  '11' = 'JOB ENDED OR BUS'
  '12' = 'WENT TO SCHOOL  '
  '91' = 'OTHER SPECIFIED '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  BN31__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 $BN33BXF
  '1' = 'CHECKED         '
;
VALUE $BNBOX4F
  '1' = 'NO CHILDREN LIVI'
  '2' = '1 OR MORE CHILDR'
;
VALUE $BN43__F
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE  BP1___F
   1  = 'VERY CONFIDENT  '
   2  = 'CONFIDENT       '
   3  = 'UNSURE          '
   4  = 'DOUBTFUL        '
   5  = 'VERY DOUBTFUL   '
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE $BP2___F
  '91' = 'FLAG FOR QUESTIO'
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE  BP5A__F
   8  = 'DK              '
   9  = 'NOT ASCERTAINED '
;
VALUE  BB32__F
   000000  = 'NOTHING         '
   999997  = 'REFUSED         '
   999998  = 'DK              '
   999999  = 'NOT ASCERTAINED '
;
VALUE  BB33__F
   01  = 'PER WEEK        '
   02  = 'PER MONTH       '
   03  = 'QUARTERLY       '
   04  = 'SEMI-ANNUALLY (E'
   05  = 'PER YEAR        '
   06  = 'TWO TIMES A MONT'
   07  = 'EVERY TWO MONTHS'
   97  = 'REFUSED         '
   98  = 'DK              '
   99  = 'NOT ASCERTAINED '
;
VALUE $BB35A_F
  '99997' = 'REFUSED         '
  '99998' = 'DK              '
  '99999' = 'NOT ASCERTAINED '
;
VALUE $BB35B_F
  '1' = 'AMOUNT IN DOLLAR'
  '2' = 'PERCENTAGE      '
;
VALUE $BB36B1F
  '1' = 'PERCENTAGE      '
  '2' = 'FLAT RATE       '
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
VALUE $BB36G1F
  '0001' = 'INSURANCE PAYS 1'
  '0002' = 'LIFETIME LIMIT S'
  '0003' = 'INSURANCE PAYS 1'
  '0004' = 'SPECIFIED TIME L'
  '0005' = 'LIMIT GIVEN BUT '
  '0006' = 'INSURANCE PAYS 8'
  '0007' = 'INSURANCE PAYS U'
  '0008' = 'YEARLY MAXIMUM S'
  '0009' = 'INSURANCE PAYS 1'
  '0010' = '90% OF USUAL AND'
  '0011' = 'PREAPPROVED - 10'
  '0012' = 'INSURANCE PAYS 1'
  '9991' = 'OTHER SPECIFIED '
  '9997' = 'REFUSED         '
  '9998' = 'DK              '
  '9999' = 'NOT ASCERTAINED '
;
VALUE $BBINS3F
  '997' = 'DK              '
  '998' = 'REFUSED         '
  '999' = 'NOT ASCERTAINED '
;
VALUE $BB36DOF
  '999991' = 'OTHER SPECIFIED '
  '999996' = 'EQUAL TO 999996 '
  '999997' = 'REFUSED         '
  '999998' = 'DK              '
  '999999' = 'NOT ASCERTAINED '
;
VALUE $BB36MAF
  '1' = 'LIFETIME MAXIMUM'
  '2' = 'YEARLY MAXIMUM  '
  '3' = 'RESPONSE GIVEN I'
  '7' = 'REFUSED         '
  '8' = 'DK              '
  '9' = 'NOT ASCERTAINED '
;
     DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;

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

     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
BREC01    BREC01F.
BSREC01   BSREC0F.
BITYPE   $BITYPEF.
BRTYPE    BRTYPEF.
BLANG     BLANG_F.
T2_STAT  $T2_STAF.
OBSDAYS2  OBSDAYF.
GAP2FLAG $GAP2FLF.
ADM2      ADM2__F.
IPNGT2    IPNGT2F.
AMBVS2    IPNGT2F.
ERVS2     IPNGT2F.
HCVS2     IPNGT2F.
OCVS2     IPNGT2F.
MDVS2     IPNGT2F.
BA1RELP   BA1RELF.
BA1SEXP   BA1SEXF.
BA1SSTP   BA1SSTF.
BA1REL1  $BA1RELG.
BA1SEX1  $BA1SEXG.
BA1AGE1  $BA1AGEF.
BA1SST1  $BA1SSTG.
BA1REL2  $BA1RELG.
BA1SEX2  $BA1SEXG.
BA1AGE2  $BA1AGEF.
BA1SST2  $BA1SSTG.
BA1REL3  $BA1RELG.
BA1SEX3  $BA1SEXG.
BA1AGE3  $BA1AGEF.
BA1SST3  $BA1SSTG.
BA1REL4  $BA1RELG.
BA1SEX4  $BA1SEXG.
BA1AGE4  $BA1AGEF.
BA1SST4  $BA1SSTG.
BA1REL5  $BA1RELG.
BA1SEX5  $BA1SEXG.
BA1AGE5  $BA1AGEF.
BA1SST5  $BA1SSTG.
BA1REL6  $BA1RELG.
BA1SEX6  $BA1SEXG.
BA1AGE6  $BA1AGEF.
BA1SST6  $BA1SSTG.
BA1REL7  $BA1RELG.
BA1SEX7  $BA1SEXG.
BA1AGE7  $BA1AGEF.
BA1SST7  $BA1SSTG.
BA1REL8  $BA1RELG.
BA1SEX8  $BA1SEXG.
BA1AGE8  $BA1AGEF.
BA1SST8  $BA1SSTG.
BA1REL9  $BA1RELG.
BA1SEX9  $BA1SEXG.
BA1AGE9  $BA1AGEF.
BA1SST9  $BA1SSTG.
BA1REL10 $BA1RELG.
BA1SEX10 $BA1SEXG.
BA1AGE10 $BA1AGEF.
BA1SST10 $BA1SSTG.
BABOXA1A  BABOXAF.
BABOXA1B  BABOXAG.
BABOXA1C  BABOXAG.
BA2      $BA2___F.
BA3      $BA1SSTG.
BA4      $BA1SSTG.
BA5       BA5___F.
BA6A      BA6A__F.
BA6B      BA6A__F.
BA6C      BA6A__F.
BA6D      BA6A__F.
BA6E      BA6A__F.
BA6F      BA6A__F.
BA7MO    $BA7MO_F.
BA7YR    $BA7MO_F.
BA8MO    $BA8MO_F.
BA8YR    $BA8MO_F.
BA9PROV  $BA9PROF.
BA10     $BA10__F.
BA11     $BA1SSTG.
BA12A    $BA12A_F.
BA12B    $BA12A_F.
BA12C    $BA12A_F.
BA12D    $BA12A_F.
BA12E    $BA12A_F.
BA12EOS  $BA12EOF.
BA13     $BA13__F.
BBBOX1A   BABOXAG.
BBBOX1B   BABOXAG.
BBBOX1C   BABOXAG.
BBBOX1D   BABOXAG.
BBBOX1F   BABOXAG.
BBBOX1G   BBBOX1F.
BB1       BA1SSTF.
BBBOX2   $BBBOX2F.
BBBOX3   $BBBOX2F.
BB2      $BA1SSTG.
BB3      $BB3___F.
BB4A     $BA12A_F.
BB4B     $BA12A_F.
BB4C     $BA12A_F.
BB4D     $BA12A_F.
BB4E     $BA12A_F.
BB4F     $BA12A_F.
BB4G     $BA12A_F.
BB4H     $BA12A_F.
BB4I     $BA12A_F.
BB4J     $BA12A_F.
BB4K     $BA12A_F.
BB4L     $BA12A_F.
BB5MO    $BA7MO_F.
BB5YR    $BA7MO_F.
BB6      $BA1SSTG.
BBBOX4   $BBBOX2F.
BB7      $BB7___F.
BB8      $BB8___F.
BB9MO    $BA7MO_F.
BB9YR    $BA7MO_F.
BB10     $BA1SSTG.
BB12      BA1SSTF.
BB13     $BB3___F.
BB14A    $BA12A_F.
BB14B    $BA12A_F.
BB14C    $BA12A_F.
BB14D    $BA12A_F.
BB14E    $BA12A_F.
BB14F    $BA12A_F.
BB14G    $BA12A_F.
BB14H    $BA12A_F.
BB14I    $BA12A_F.
BB14J    $BA12A_F.
BB14K    $BA12A_F.
BB14L    $BA12A_F.
BBBOX5   $BBBOX2F.
BB16MO   $BA7MO_F.
BB16YR   $BB16YRF.
BB17     $BA1SSTG.
BB18     $BB18__F.
BB19      BA1SSTF.
BB21      BA1SSTF.
BBBOX6   $BBBOX2F.
BBBOX7   $BBBOX2F.
BB22     $BA1SSTG.
BB23     $BB3___F.
BB24A    $BA12A_F.
BB24B    $BA12A_F.
BB24C    $BA12A_F.
BB24D    $BA12A_F.
BB24E    $BA12A_F.
BB24F    $BA12A_F.
BB24G    $BA12A_F.
BB24H    $BA12A_F.
BB24I    $BA12A_F.
BB24J    $BA12A_F.
BB24K    $BA12A_F.
BB24L    $BA12A_F.
BB25MO   $BA7MO_F.
BB25YR   $BB16YRF.
BBBOX8   $BBBOX2F.
BB26     $BB26__F.
BB27MO   $BA7MO_F.
BB27YR   $BA7MO_F.
BB28      BA1SSTF.
BB29      BA1SSTF.
BB31A1   $BA7MO_F.
BB31A2   $BB31A2F.
BB31B1   $BA7MO_F.
BB31B2   $BB31A2F.
BD1A      BA1SSTF.
BD1B     $BA7MO_F.
BD06CT    BD06CTF.
BE1A      BA1SSTF.
BE1B     $BA7MO_F.
BE08CT    BD06CTF.
BF1       BA1SSTF.
BF1A     $BA7MO_F.
BF1ACT    BD06CTF.
BF2       BA1SSTF.
BF2A     $BA7MO_F.
BF2ACT    BD06CTF.
BF3       BA1SSTF.
BF3A     $BA7MO_F.
BF3ACT    BD06CTF.
BF4       BA1SSTF.
BF4ACT    BD06CTF.
BG1       BA1SSTF.
BG1ACT    BD06CTF.
BG2       BA1SSTF.
BG2A     $BA7MO_F.
BG2ACT    BD06CTF.
BG3       BA1SSTF.
BG3ACT    BD06CTF.
BG4       BA1SSTF.
BG4ACT    BD06CTF.
BH1       BA1SSTF.
BH2       BA1SSTF.
BHACT     BD06CTF.
BI1       BA1SSTF.
BI1CT     ADM2__F.
BI2       BA1SSTF.
BI2CT     ADM2__F.
BI3       BI3___F.
BI3CT     ADM2__F.
BI4       BA1SSTF.
BI4CT     ADM2__F.
BI5       BA1SSTF.
BI5CT     ADM2__F.
BI6       BA1SSTF.
BI6CT     ADM2__F.
BI7       BA1SSTF.
BI7CT     ADM2__F.
BI8       BA1SSTF.
BI8CT     ADM2__F.
BJ1       BA1SSTF.
BJ1A     $BA7MO_F.
BJ1ACT    ADM2__F.
BK1       BA1SSTF.
BK2       BA1SSTF.
BKACT     BD06CTF.
BK3       BA1SSTF.
BK3CT     BK3CT_F.
BK4A     $BK4A__F.
BK4B     $BK4A__F.
BK4C     $BK4A__F.
BK4D     $BK4A__F.
BK4E     $BK4A__F.
BK4F     $BK4A__F.
BK4G     $BK4A__F.
BK4H     $BK4A__F.
BK4I     $BK4A__F.
BK4J     $BK4A__F.
BK4K     $BK4A__F.
BK4L     $BK4A__F.
BK4M     $BK4A__F.
BK4N     $BK4N__F.
BK4O     $BK4A__F.
BK4P     $BK4A__F.
BK4Q     $BK4A__F.
BK4R     $BK4A__F.
BK4S     $BK4A__F.
BK4T     $BK4A__F.
BK4U     $BK4A__F.
BK4V     $BK4A__F.
BK4W     $BK4A__F.
BK4X     $BK4A__F.
BK5      $BA10__F.
BL1       BL1___F.
BL2A      BA1SSTF.
BL2B      BA1SSTF.
BL2C      BA1SSTF.
BL2D      BA1SSTF.
BL2E      BA1SSTF.
BL2F      BA1SSTF.
BL2G      BA1SSTF.
BL2H      BA1SSTF.
BL2I      BA1SSTF.
BL2J      BA1SSTF.
BL2K      BA1SSTF.
BL2L      BA1SSTF.
BL2M      BA1SSTF.
BL2N      BA1SSTF.
BL2O      BA1SSTF.
BL2P      BA1SSTF.
BL3A      BL3A__F.
BL3B      BL3A__F.
BL3C      BL3A__F.
BL3D      BL3A__F.
BL3E      BL3A__F.
BL3F      BL3A__F.
BL4       BA1SSTF.
BL5      $BA1SSTG.
BL6       BA1SSTF.
BL7      $BA1SSTG.
BL8       BL8___F.
BL9       BL9___F.
BL10A     BL9___F.
BL10B     BL9___F.
BL10C     BL9___F.
BL10D     BL9___F.
BL10E     BL9___F.
BL11      BL11__F.
BL12      BA1SSTF.
BL13      BA1SSTF.
BL14      BL14__F.
BL15      BL14__F.
BLBOX1    BL14__F.
BL16A    $BL16A_F.
BL16B    $BL16A_F.
BL16C    $BL16A_F.
BL17A    $BL16A_F.
BL17B    $BL16A_F.
BL17C    $BL16A_F.
BM1       BA1SSTF.
BM2A     $BM2A__F.
BM2PROV  $BA9PROF.
BM3      $BA1SSTG.
BM4      $BA1SSTG.
BM5      $BM5___F.
BM6MIN   $BM6MINF.
BM6HRS   $BA7MO_F.
BM7      $BM7___F.
BM8MOS   $BA7MO_F.
BM8YRS   $BA7MO_F.
BM9AA     BA6A__F.
BM9AB    $BA1SSTG.
BM9AC    $BA1SSTG.
BM9AD    $BA1SSTG.
BM9AE    $BA1SSTG.
BM9AF    $BA1SSTG.
BM9AG    $BM9AG_F.
BM9BA     BA6A__F.
BM9BB    $BA1SSTG.
BM9BC    $BA1SSTG.
BM9BD    $BA1SSTG.
BM9BE    $BA1SSTG.
BM9BF    $BA1SSTG.
BM9BG    $BM9BG_F.
BM9CA     BA6A__F.
BM9CB    $BA1SSTG.
BM9CC    $BA1SSTG.
BM9CD    $BA1SSTG.
BM9CF    $BA1SSTG.
BM9CG    $BM9AG_F.
BM9DA     BA6A__F.
BM9DB    $BA1SSTG.
BM9DC    $BA1SSTG.
BM9DD    $BA1SSTG.
BM9DE    $BA1SSTG.
BM9DF    $BA1SSTG.
BM9DG    $BM9AG_F.
BM9EA     BA6A__F.
BM9EB    $BA1SSTG.
BM9EC    $BA1SSTG.
BM9ED    $BA1SSTG.
BM9EE    $BA1SSTG.
BM9EF    $BA1SSTG.
BM9EG    $BM9AG_F.
BM9FA     BA6A__F.
BM9FB    $BA1SSTG.
BM9FC    $BA1SSTG.
BM9FD    $BA1SSTG.
BM9FE    $BA1SSTG.
BM9FF    $BA1SSTG.
BM9FG    $BM9AG_F.
BM9GA     BA6A__F.
BM9GB    $BA1SSTG.
BM9GC    $BA1SSTG.
BM9GD    $BA1SSTG.
BM9GE    $BA1SSTG.
BM9GF    $BA1SSTG.
BM9GG    $BM9GG_F.
BM9HA     BA6A__F.
BM9HB    $BA1SSTG.
BM9HC    $BA1SSTG.
BM9HD    $BA1SSTG.
BM9HE    $BA1SSTG.
BM9HF    $BA1SSTG.
BM9HG    $BM9GG_F.
BM9IA     BA6A__F.
BN1       BN1___F.
BNBOX1   $BNBOX1F.
BNBOX2   $BNBOX1F.
BN2      $BM6MINF.
BN3N4    $BN3N4_F.
BN4A     $BN4A__F.
BN5      $BA1SSTG.
BN6      $BN6___F.
BN7      $BM6MINF.
BN8N9    $BN3N4_F.
BN9A     $BN4A__F.
BN10     $BA1SSTG.
BN11     $BN11__F.
BN12     $BA1SSTG.
BN13MO   $BA7MO_F.
BN13YR   $BB16YRF.
BN14     $BA1SSTG.
BN15     $BN15__F.
BN16     $BM6MINF.
BN17N18  $BN3N4_F.
BN18A    $BN4A__F.
BN19     $BA1SSTG.
BN20     $BA1SSTG.
BN21     $BN21__F.
BN22     $BA1SSTG.
BN23     $BN23__F.
BN24     $BA1SSTG.
BN25MO   $BA7MO_F.
BN25YR   $BA7MO_F.
BN26     $BA1SSTG.
BN27     $BN6___F.
BN28     $BA1SSTG.
BN29     $BA1SSTG.
BN30     $BN6___F.
BN31      BN31__F.
BNBOX3    BABOXAG.
BN32     $BA1SSTG.
BN33MO   $BA7MO_F.
BN33YR   $BB16YRF.
BN33BX   $BN33BXF.
BN34     $BA1SSTG.
BN35     $BB18__F.
BNBOX4   $BNBOX4F.
BN36     $BA1SSTG.
BN37MO   $BA7MO_F.
BN37YR   $BB16YRF.
BN37BX   $BN33BXF.
BN38     $BA1SSTG.
BN39MO   $BA7MO_F.
BN39YR   $BB16YRF.
BN39BX   $BN33BXF.
BN40     $BA1SSTG.
BN41MO   $BA7MO_F.
BN41YR   $BA7MO_F.
BN42      BA1SSTF.
BN43     $BN43__F.
BP1       BP1___F.
BP2      $BP2___F.
BP3       BP1___F.
BP4      $BP2___F.
BP5A      BP5A__F.
BP5B      BP5A__F.
BP5C      BP5A__F.
BP5D      BP5A__F.
BP5E      BP5A__F.
BP5F      BP5A__F.
BB32      BB32__F.
BB33      BB33__F.
BB34      BA1SSTF.
BB35A    $BB35A_F.
BB35B    $BB35B_F.
BB361    $BA1SSTG.
BB36A1   $BA1SSTG.
BB36B1   $BB36B1F.
BBR1     $BM6MINF.
BBINS1   $BM6MINF.
BB36D1   $BN43__F.
BB36E1   $BA1SSTG.
BBDAYS1  $BM6MINF.
BB36F1   $BA1SSTG.
BB36G1   $BB36G1F.
BB362     BA1SSTF.
BB36A2   $BA1SSTG.
BB36B2   $BB36B1F.
BBR2     $BM6MINF.
BBINS2   $BM6MINF.
BB36D2   $BN43__F.
BB36F2   $BA1SSTG.
BB36G2   $BB36G1F.
BB363     BA1SSTF.
BB36A3   $BA1SSTG.
BB36B3   $BB36B1F.
BBR3     $BM6MINF.
BBINS3   $BBINS3F.
BB36D3   $BN43__F.
BB36F3   $BA1SSTG.
BB36G3   $BB36G1F.
BB364    $BA1SSTG.
BB36A4   $BA1SSTG.
BB36B4   $BB36B1F.
BBR4     $BM6MINF.
BBINS4   $BM6MINF.
BB36D4   $BN43__F.
BB36E4   $BA1SSTG.
BB36DOL  $BB36DOF.
BB36MAX  $BB36MAF.
BB365     BA1SSTF.
BB36A5   $BA1SSTG.
BB36B5   $BB36B1F.
BBR5     $BM6MINF.
BBINS5   $BM6MINF.
BB36D5   $BN43__F.
BB36F5   $BA1SSTG.
BB36G5   $BB36G1F.
;
     LABEL

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

          BPID01   = '~PATIENT ID NUMBER'
          BREC01   = '~RECORD NUMBER'
          BSREC01  = '~SUBRECORD NUMBER'
          BITYPE   = '~WHAT IS THE INSTRUMENT TYPE?'
          BRTYPE   = '~RESPONDENT TYPE'
          BLANG    = '~QUESTIONNAIRE LANGUAGE VERSION'
          BREFMO   = '~MONTH OF BEGIN REFERENCE DATE'
          BREFDY   = '~DAY OF BEGIN REFERENCE DATE'
          BREFYR   = '~YEAR OF BEGIN REFERENCE DATE'
          BENDMO   = '~MONTH OF END DATE'
          BENDDY   = '~DAY OF END DATE'
          BENDYR   = '~YEAR OF END DATE'
          T2_STAT  = '~QUESTIONNAIRE STATUS'
          OBSDAYS2 = '~OBSERVATION DAYS WITHIN REFERENCE'
          GAP2FLAG = '~PATIENT HAD TIME GAP DURING REFERENCE'
          ADM2     = '~NUMBER OF INPATIENT ADMISSIONS'
          IPNGT2   = '~NUMBER OF INPATIENT NIGHTS'
          AMBVS2   = '~NUMBER OF AMBULATORY VISITS, INCLUDES'
          ERVS2    = '~NUMBER OF EMERGENCY ROOM VISITS'
          HCVS2    = '~NUMBER OF HOSPITAL CLINC VISITS'
          OCVS2    = '~NUMBER OF OTHER CLINIC VISITS'
          MDVS2    = '~NUMBER OF PRIVATE MD VISITS'
          BA1RELP  = '~RELATIONSHIP'
          BA1SEXP  = '~IS (PATIENT) MALE OR FEMALE?'
          BA1SSTP  = '~PATIENT DIAGNOSED AS HIV POSITIVE'
          BA1REL1  = '~RELATIONSHIP'
          BA1SEX1  = '~SEX'
          BA1AGE1  = '~AGE'
          BA1SST1  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL2  = '~RELATIONSHIP'
          BA1SEX2  = '~SEX'
          BA1AGE2  = '~AGE'
          BA1SST2  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL3  = '~RELATIONSHIP'
          BA1SEX3  = '~SEX'
          BA1AGE3  = '~AGE'
          BA1SST3  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL4  = '~RELATIONSHIP'
          BA1SEX4  = '~SEX'
          BA1AGE4  = '~AGE'
          BA1SST4  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL5  = '~RELATIONSHIP'
          BA1SEX5  = '~SEX'
          BA1AGE5  = '~AGE'
          BA1SST5  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL6  = '~RELATIONSHIP'
          BA1SEX6  = '~SEX'
          BA1AGE6  = '~AGE'
          BA1SST6  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL7  = '~RELATIONSHIP'
          BA1SEX7  = '~SEX'
          BA1AGE7  = '~AGE'
          BA1SST7  = '~HAS (NAME) BEEN DIAGNOSED AS BEING HIV'
          BA1REL8  = '~RELATIONSHIP'
          BA1SEX8  = '~SEX'
          BA1AGE8  = '~AGE'
          BA1SST8  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL9  = '~RELATIONSHIP'
          BA1SEX9  = '~SEX'
          BA1AGE9  = '~AGE'
          BA1SST9  = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1REL10 = '~RELATIONSHIP'
          BA1SEX10 = '~SEX'
          BA1AGE10 = '~AGE'
          BA1SST10 = '~(NAME) DIAGNOSED AS HIV POSITIVE'
          BA1CT    = '~NUMBER OF PEOPLE LISTED IN HOUSE HOLD'
          BABOXA1A = '~R LIVES ALONE?'
          BABOXA1B = '~CHILDREN LISTED?'
          BABOXA1C = '~SPOUSE/PARTNER LISTED?'
          BA2      = '~CURRENT MARITAL STATUS'
          BA3      = '~INVOLVED IN COMMITED RELATIONSHIP NOW'
          BA4      = '~SPOUSE/PARTNER DIAGNOSED HIV POSITIVE'
          BA5      = '~TYPE OF PLACE LIVED MOST OF THE TIME'
          BA6A     = '~TEMP DOUBLED UP WITH FRIEND/RELATIVE'
          BA6B     = '~SINGLE ROOM ONLY OR "WELFARE HOTEL"'
          BA6C     = '~SPECIALIZED AIDS HOUSING'
          BA6D     = '~SHELTERS'
          BA6E     = '~STREET OR OTHER PUBLIC PLACE'
          BA6F     = '~NONE'
          BA7MO    = '~MO START LIVE IN SPECLIZD AIDS HOUSNG'
          BA7YR    = '~YR START LIVE IN SPECLIZD AIDS HOUSNG'
          BA8MO    = '~IN WHAT MONTH DID YOU LEAVE?'
          BA8YR    = '~IN WHAT YEAR DID YOU LEAVE?'
          BA9PROV  = '~PROVIDER ID'
          BA10     = '~HOW MUCH DID/WILL PAY FOR THIS HOUSING'
          BA11     = '~SOMEONE ELSE PAYING SOME AMT FOR STAY'
          BA12A    = '~MEDICAID'
          BA12B    = '~OTHER PUBLIC ASSISTANCE'
          BA12C    = '~PRIVATE INSURANCE'
          BA12D    = '~MEDICARE'
          BA12E    = '~OTHER'
          BA12EOS  = '~OTHER SPECIFIED'
          BA13     = '~WHY WAS THERE NO (ADDITIONAL) PAYMENT?'
          BBBOX1A  = '~PRIVATE INSURANCE CODE BOX B-2,BOX B-3'
          BBBOX1B  = '~MEDICAID: CODE BOX B-5'
          BBBOX1C  = '~MEDICARE'
          BBBOX1D  = '~OTHR PUBLIC ASST:CODE BOX B-6,BOX B-7'
          BBBOX1E  = '~ALWAYS BLANK'
          BBBOX1F  = '~CLINICAL TRIAL'
          BBBOX1G  = '~NONE'
          BB1      = '~COVERED BY PRIVATE HEALTH INS PLAN,HMO'
          BBBOX2   = '~TIME 1 = PRIVATE INSURANCE'
          BBBOX3   = '~TIME 1 = PRIVATE INSURANCE'
          BB2      = '~SOME PRIVATE HLTH INS PLAN AS LAST TIME'
          BB3      = '~COVERED WHOLE TIME OR ONLY PART TIME'
          BB4A     = '~JANUARY'
          BB4B     = '~FEBRUARY'
          BB4C     = '~MARCH'
          BB4D     = '~APRIL'
          BB4E     = '~MAY'
          BB4F     = '~JUNE'
          BB4G     = '~JULY'
          BB4H     = '~AUGUST'
          BB4I     = '~SEPTEMBER'
          BB4J     = '~OCTOBER'
          BB4K     = '~NOVEMBER'
          BB4L     = '~DECEMBER'
          BB5MO    = '~MO PREVIOUS HEALTH INSUR COVERAGE END'
          BB5YR    = '~YR PREVIOUS HEALTH INSUR COVERAGE END'
          BB6      = '~HAPPENED BECAUSE OF YOUR HIV INFECTION'
          BBBOX4   = '~LOOK AT Q. B-1. R ANSWERED:'
          BB7      = '~CURRENT PLAN INDIVIDUAL OR FAMILY'
          BB8      = '~HOW DO YOU GET HEALTH INSURANCE/PLAN'
          BB9MO    = '~MONTH CURRENT HEALTH INSURANCE BEGAN'
          BB9YR    = '~YEAR CURRENT HEALTH INSURANCE BEGAN'
          BB10     = '~IS PLAN A HEALTH MAINTENANCE ORG./HMO'
          BB12     = '~COVERED BY MEDICAID/MEDICAID STATE NAME'
          BB13     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          BB14A    = '~JANUARY'
          BB14B    = '~FEBRUARY'
          BB14C    = '~MARCH'
          BB14D    = '~APRIL'
          BB14E    = '~MAY'
          BB14F    = '~JUNE'
          BB14G    = '~JULY'
          BB14H    = '~AUGUST'
          BB14I    = '~SEPTEMBER'
          BB14J    = '~OCTOBER'
          BB14K    = '~NOVEMBER'
          BB14L    = '~DECEMBER'
          BBBOX5   = '~TIME 1 = MEDICAID'
          BB16MO   = '~MONTH WHEN MEDICAID COVERAGE ENDED'
          BB16YR   = '~YEAR WHEN MEDICAID COVERAGE ENDED'
          BB17     = '~HAVE YOU (RE-)APPLIED FOR MEDICAID?'
          BB18     = '~HAVE YOU BEEN TURNED DOWN FOR MEDICAID?'
          BB19     = '~HAVE YOU BEEN COVERED BY MEDICARE'
          BB21     = '~COVERED BY OTHER PUBLIC ASSIST PROGRAM'
          BBBOX6   = '~TIME 1 = OTHER PUBLIC ASSISTANCE'
          BBBOX7   = '~TIME 1 = OTHER PUBLIC ASSISTANCE'
          BB22     = '~SAME PUBLIC ASSIST PROGRAM AS LAST TIME'
          BB23     = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
          BB24A    = '~JANUARY'
          BB24B    = '~FEBRUARY'
          BB24C    = '~MARCH'
          BB24D    = '~APRIL'
          BB24E    = '~MAY'
          BB24F    = '~JUNE'
          BB24G    = '~JULY'
          BB24H    = '~AUGUST'
          BB24I    = '~SEPTEMBER'
          BB24J    = '~OCTOBER'
          BB24K    = '~NOVEMBER'
          BB24L    = '~DECEMBER'
          BB25MO   = '~MONTH PUBLIC ASSISTANCE COVERAGE ENDED'
          BB25YR   = '~YEAR PUBLIC ASSISTANCE COVERAGE ENDED'
          BBBOX8   = '~LOOK AT Q B-21. R ANSWERED:'
          BB26     = '~WHAT IS THE NAME OF CURRENT PROGRAM'
          BB27MO   = '~MONTH CURRENT PROGRAM COVERAGE BEGAN'
          BB27YR   = '~YEAR CURRENT PROGRAM COVERAGE BEGAN'
          BB28     = '~ARE YOU COVERED BY CHAMPUS OR CHAMPVA'
          BB29     = '~IN CLINICAL TRIALS FOR ANY MEDICATIONS'
          BB31A1   = '~LENGTH OF FIRST TRIAL'
          BB31A2   = '~UNIT OF FIRST TRIAL'
          BB31B1   = '~LENGTH OF SECOND TRIAL'
          BB31B2   = '~UNIT OF SECOND TRIAL'
          BD1A     = '~PATIENT IN HOSPITAL OVERNIGHT OR LONGER'
          BD1B     = '~HOW MANY TIMES IN HOSP OVERNIGHT/LONGER'
          BD06CT   = '~NUMBER OF INPATIENT STAY RECORDS'
          BE1A     = '~IN RES CARE,NURS HOME,HOSPICE OVERNIGHT'
          BE1B     = '~# OF TIMES IN RES CARE,NURS HOME,HSPC'
          BE08CT   = '~NUMBER OF NURSING HOME/RESIDENTIAL CARE'
          BF1      = '~GO TO HOSP EMERGENCY ROOM FOR MED CARE'
          BF1A     = '~HOW MANY DIFF EMERGENCY ROOMS VISITED'
          BF1ACT   = '~NUMBER OF EMERGENCY ROOM RECORDS'
          BF2      = '~GO TO HOSP CLINIC,HOSP OUT-PATIENT DEPT'
          BF2A     = '~HOW MANY DIFF HOSPITAL CLINICS VISITED'
          BF2ACT   = '~NUMBER OF HOSPITAL CLINIC RECORDS'
          BF3      = '~GO TO ANY OTHER MEDICAL CLINIC'
          BF3A     = '~HOW MANY DIFF MEDICAL CLINICS VISITED'
          BF3ACT   = '~NUMBER OF MEDICAL CLINIC RECORDS'
          BF4      = '~GO TO A PRIVATE DOCTOR''S OFFICE'
          BF4A     = '~# OF DIFF PRIVATE DR OFFICES VISITED'
          BF4ACT   = '~NUMBER OF PRIVATE DOCTOR''S OFFICE'
          BG1      = '~GO TO SUPPORT GROUP,PSYCH COUNSEL/THERA'
          BG1A     = '~HOW MANY DIFF SUPPORT GROUPS VISITED'
          BG1ACT   = '~NUMBER OF MENTAL HEALTH PROVIDER'
          BG2      = '~GO TO ANY MEDICAL PRACTITIONERS'
          BG2A     = '~HOW MANY DIFF MED PRACTITIONERS VISITED'
          BG2ACT   = '~NUMBER OF MEDICAL PRACTITIONER RECORDS'
          BG3      = '~GO TO ANY ALTERNATIVE THERAPIST'
          BG3A     = '~HOW MANY DIFF ALTER THERAPISTS VISITED'
          BG3ACT   = '~NUMBER OF ALTERNATIVE THERAPIST RECORDS'
          BG4      = '~BUY/REPLACE SPECIAL MEDICAL EQUIPMENT'
          BG4ACT   = '~NUMBER OF MEDICAL EQUIPMENT PROVIDER'
          BH1      = '~HAVE ANY PEOPLE HELPED YOU AT HOME'
          BH2      = '~BEEN HELPED AT HOME BY ANY OTHER PEOPLE'
          BHACT    = '~NUMBER OF HOME HEALTH CARE PROVIDER'
          BI1      = '~GOT HELP FINDING/KEEPING PLACE TO LIVE'
          BI1CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI2      = '~RECEIVED HELP WITH LEGAL SERVICES'
          BI2CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI3      = '~RECEIVED HELP WITH CHILD CARE'
          BI3CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI4      = '~RECEIVED HELP WITH TRANSPORTATION'
          BI4CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI5      = '~RECEIVED HELP WITH OBTAINING FOOD'
          BI5CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI6      = '~RECEIVED HELP WITH FINANCIAL ASSISTANCE'
          BI6CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI7      = '~GOT HELP OBTAINING CLOTHING/HOUSE ITEMS'
          BI7CT    = '~# OF DIFFERENT PROVIDERS USED'
          BI8      = '~RCVNG ALCOHOL/DRUG TREATMENT/COUNSEL'
          BI8CT    = '~# OF DIFFERENT PROVIDERS USED'
          BJ1      = '~SEEN DENTIST,ORAL SURG,DNTL CARE PROV'
          BJ1A     = '~# OF TIMES SEEN DENTIST,ORAL SURG,ETC'
          BJ1ACT   = '~NUMBER OF DENTAL VISIT RECORDS'
          BK1      = '~TAKEN ANY MEDICINES OR DRUGS LISTED'
          BK2      = '~TAKEN OTHER PRESCRIPTION MEDICINE/DRUG'
          BKACT    = '~NUMBER OF PRESCRIPTION DRUG RECORDS'
          BK3      = '~TAKEN NON-PRESCRIPTION MEDICINES/DRUGS'
          BK3CT    = '~# OF NON-PRESCRIPTION DRUGS LISTED'
          BK4A     = '~NON-PRESCRIPTION DRUG 1'
          BK4B     = '~NON-PRESCRIPTION DRUG 2'
          BK4C     = '~NON-PRESCRIPTION DRUG 3'
          BK4D     = '~NON-PRESCRIPTION DRUG 4'
          BK4E     = '~NON-PRESCRIPTION DRUG 5'
          BK4F     = '~NON-PRESCRIPTION DRUG 6'
          BK4G     = '~NON-PRESCRIPTION DRUG 7'
          BK4H     = '~NON-PRESCRIPTION DRUG 8'
          BK4I     = '~NON-PRESCRIPTION DRUG 9'
          BK4J     = '~NON-PRESCRIPTION DRUG 10'
          BK4K     = '~NON-PRESCRIPTION DRUG 11'
          BK4L     = '~NON-PRESCRIPTION DRUG 12'
          BK4M     = '~NON-PRESCRIPTION DRUG 13'
          BK4N     = '~NON-PRESCRIPTION DRUG 14'
          BK4O     = '~NON-PRESCRIPTION DRUG 15'
          BK4P     = '~NON-PRESCRIPTION DRUG 16'
          BK4Q     = '~NON-PRESCRIPTION DRUG 17'
          BK4R     = '~NON-PRESCRIPTION DRUG 18'
          BK4S     = '~NON-PRESCRIPTION DRUG 19'
          BK4T     = '~NON-PRESCRIPTION DRUG 20'
          BK4U     = '~NON-PRESCRIPTION DRUG 21'
          BK4V     = '~NON-PRESCRIPTION DRUG 22'
          BK4W     = '~NON-PRESCRIPTION DRUG 23'
          BK4X     = '~NON-PRESCRIPTION DRUG 24'
          BK5      = '~TOTAL AMOUNT PAID FOR NON-PRESCRIP MEDS'
          BL1      = '~IN GENERAL, HOW IS YOUR HEALTH'
          BL2A     = '~I HAVE PAIN AT NIGHT'
          BL2B     = '~I TAKE TABLETS TO HELP ME SLEEP'
          BL2C     = '~I HAVE UNBEARABLE PAIN'
          BL2D     = '~I''M TIRED ALL THE TIME'
          BL2E     = '~I FIND IT PAINFUL TO CHANGE POSITION'
          BL2F     = '~I''M IN PAIN WHEN I WALK'
          BL2G     = '~IM WAKING UP IN EARLY HOURS OF MORNING'
          BL2H     = '~EVERYTHING IS AN EFFORT'
          BL2I     = '~I LIE AWAKE FOR MOST OF THE NIGHT'
          BL2J     = '~I''M IN PAIN WHEN I''M STANDING'
          BL2K     = '~IT TAKES ME A LONG TIME TO GET TO SLEEP'
          BL2L     = '~I SOON RUN OUT OF ENERGY'
          BL2M     = '~I''M IN CONSTANT PAIN'
          BL2N     = '~I''M IN PAIN GOING UP AND DOWN STAIRS'
          BL2O     = '~I SLEEP BADLY AT NIGHT'
          BL2P     = '~I''M IN PAIN WHEN I''M SITTING'
          BL3A     = '~HOW LONG HLTH LIMITS VIGOROUS ACTVTY'
          BL3B     = '~HOW LONG HLTH LIMITS MODERATE ACTVTY'
          BL3C     = '~WALK UPHILL/CLIMB FEW FLIGHTS OF STAIRS'
          BL3D     = '~BENDING, LIFTING OR STOOPING'
          BL3E     = '~WALKING ONE BLOCK'
          BL3F     = '~EATING,DRESSING,BATHING,USING TOILET'
          BL4      = '~HLTH KEPT FRM WORK AT JOB,HOME,SCHOOL'
          BL5      = '~HEALTH KEEP YOU FROM ACTIVITIES BEFORE'
          BL6      = '~UNABLE TO DO CERTAIN KINDS/AMTS OF WORK'
          BL7      = '~UNABLE DO ACTIVITIES DUE TO HLTH BEFORE'
          BL8      = '~PAST MO,OFTEN TALK TO RELATIVES/FRIENDS'
          BL9      = '~PAST MO,HLTH LIMITED SOCIAL ACTIVITIES'
          BL10A    = '~HAVE YOU BEEN A VERY NERVOUS PERSON?'
          BL10B    = '~HAVE YOU FELT CALM AND PEACEFUL?'
          BL10C    = '~HAVE YOU FELT DOWNHEARTED AND BLUE?'
          BL10D    = '~HAVE YOU BEEN A HAPPY PERSON?'
          BL10E    = '~FELT SO DOWN IN DUMPS NOTHING CHEERS UP'
          BL11     = '~HOW MANY FAMILY/FRIENDS CAN CONFIDE IN'
          BL12     = '~IS YOUR MOTHER STILL LIVING'
          BL13     = '~IS YOUR FATHER STILL LIVING?'
          BL14     = '~HOW MANY BROTHERS DO YOU HAVE?'
          BL15     = '~HOW MANY SISTERS DO YOU HAVE?'
          BLBOX1   = '~TOTAL LIVING PARENTS AND SIBLINGS'
          BL16A    = '~FAMILY WITHIN 30 MIN TRAVEL TIME OF YOU'
          BL16B    = '~FAMILY WITHIN 1 HR TRAVEL TIME OF YOU'
          BL16C    = '~FAMILY WITHIN 2 HRS TRAVEL TIME OF YOU'
          BL17A    = '~FAMILY IN LARGE CITY (POP. < 100,000)'
          BL17B    = '~FAMILY IN BURB/SM CITY (POP. > 50,000)'
          BL17C    = '~FAMILY LIVE IN A RURAL AREA'
          BM1      = '~PARTICULAR PLACE GO FOR MED CARE/ADVICE'
          BM2A     = '~PROVIDER TYPE'
          BM2PROV  = '~PROVIDER ID'
          BM3      = '~PARTICULAR DOCTOR USUALLY SEE AT PLACE'
          BM4      = '~DOES SOMEONE HELP YOU FILL OUT FORMS'
          BM5      = '~HOW DO YOU USUALLY GET THERE'
          BM6MIN   = '~HOW MANY MINUTES TO GET THERE'
          BM6HRS   = '~HOW MANY HOURS TO GET THERE'
          BM7      = '~WHEN YOU GO THERE,DO YOU USUALLY'
          BM8MOS   = '~HOW MANY MONTHS BEEN GOING TO PLACE'
          BM8YRS   = '~HOW MANY YEARS BEEN GOING TO PLACE'
          BM9AA    = '~NEEDED EMERGENCY CARE BUT DIDNT GET IT'
          BM9AB    = '~KNOW WHERE CAN GO TO GET EMERGENCY CARE'
          BM9AC    = '~HAVE INSURANCE THAT PAYS EMERGENCY CARE'
          BM9AD    = '~AFFORD TO PAY EMERGENCY CARE YOURSELF'
          BM9AE    = '~HAVE TRANSPORTATION TO EMERGENCY CARE'
          BM9AF    = '~ANYONE REFUSE TO PROVIDE EMERGENCY CARE'
          BM9AG    = '~WHY WERE YOU REFUSED EMERGENCY CARE'
          BM9BA    = '~NEEDED HOSPITAL STAY BUT DIDN''T GET IT'
          BM9BB    = '~KNOW WHERE CAN GO TO GET HOSPITAL STAY'
          BM9BC    = '~HAVE INSURANCE THAT PAYS HOPITAL STAY'
          BM9BD    = '~AFFORD TO PAY HOSPITAL STAY YOURSELF'
          BM9BE    = '~HAVE TRANSPORTATION TO HOPITAL STAY'
          BM9BF    = '~ANYONE REFUSE TO PROVIDE HOSPITAL ONLY'
          BM9BG    = '~WHY WERE YOU REFUSED HOSPITAL STAY'
          BM9CA    = '~NEEDED HOME SERVICES BUT DIDN''T GET IT'
          BM9CB    = '~KNOW WHERE CAN GO TO GET HOME SERVICES'
          BM9CC    = '~HAVE INSURANCE THAT PAYS HOME SERVICES'
          BM9CD    = '~AFFORD TO PAY HOME SERVICES YOURSELF'
          BM9CF    = '~ANYONE REFUSE TO PROVIDE HOME SERVICES'
          BM9CG    = '~WHY WERE YOU REFUSED ANY HOME SERVICES'
          BM9DA    = '~NEEDED MENTL HLTH SERV BUT DIDN''T GET'
          BM9DB    = '~KNOW WHERE CAN GO FOR MNTL HLTH SRV'
          BM9DC    = '~HAVE INSURANCE PAYS FOR MNTL HLTH SRV'
          BM9DD    = '~AFFORD TO PAY MENTL HLTH SERV YOURSELF'
          BM9DE    = '~HAVE TRANSPORTATION TO MENTL HLTH SERV'
          BM9DF    = '~ANYONE REFUSE TO PROVIDE MNT HLTH SRV'
          BM9DG    = '~WHY WERE YOU REFUSED MENTAL HEALTH SERV'
          BM9EA    = '~NEEDED RESIDENTL CARE BUT DIDNT GET IT'
          BM9EB    = '~KNOW WHERE CAN GO TO GET RESIDENTL CARE'
          BM9EC    = '~HAVE INSURANCE THAT PAYS RESIDENTL CARE'
          BM9ED    = '~AFFORD TO PAY RESIDENTIAL CARE YOURSELF'
          BM9EE    = '~HAVE TRANSPORTATION TO RESIDENTIAL CARE'
          BM9EF    = '~ANYONE REFUSE TO PROVIDE RESIDENTIAL CA'
          BM9EG    = '~WHY WERE YOU REFUSED RESIDENTIAL CARE'
          BM9FA    = '~NEEDED PRESCRIBED MED BUT DIDNT GET IT'
          BM9FB    = '~KNOW WHERE CAN GO TO GET PRESCRIBED MED'
          BM9FC    = '~HAVE INSURANCE THAT PAYS PRESCRIBED MED'
          BM9FD    = '~AFFORD TO PAY PRESCRIBED MED YOURSELF'
          BM9FE    = '~HAVE TRANSPORTATION TO PRESCRIBED MED'
          BM9FF    = '~ANYONE REFUSE TO PROVIDE PRESCRIBE MED'
          BM9FG    = '~WHY WERE YOU REFUSED PRESCRIBED MEDS'
          BM9GA    = '~NEEDED DENTAL SERVICES BUT DIDN''T GET'
          BM9GB    = '~KNOW WHERE CAN GO TO GET DENTAL SRVCS'
          BM9GC    = '~HAVE INSURANCE THAT PAYS DENTAL SRVCS'
          BM9GD    = '~AFFORD TO PAY DENTAL SERVICES YOURSELF'
          BM9GE    = '~HAVE TRANSPORTATION TO DENTAL SERVICES'
          BM9GF    = '~ANYONE REFUSE TO PROVIDE DENTAL SRVCS'
          BM9GG    = '~WHY WERE YOU REFUSED DENTAL SERVICES'
          BM9HA    = '~NEEDED DRUG TREATMENT BUT DIDNT GET IT'
          BM9HB    = '~KNOW WHERE CAN GO TO GET DRUG TREATMENT'
          BM9HC    = '~HAVE INSURANCE THAT PAYS DRUG TREATMENT'
          BM9HD    = '~AFFORD TO PAY DRUG TREATMENT YOURSELF'
          BM9HE    = '~HAVE TRANSPORTATION TO DRUG TREATMENT'
          BM9HF    = '~ANYONE REFUSE TO PROVIDE DRUG TREATMENT'
          BM9HG    = '~WHY WERE YOU REFUSED DRUG TREATMENT'
          BM9IA    = '~NO SERVICES WERE NEEDED'
          BN1      = '~WORK FULL TIME,PT TIME,NOT WORKING NOW'
          BNBOX1   = '~R WORKING PART TIME.LAST TIME R WAS:'
          BNBOX2   = '~R NOT WORKING.LAST TIME R WAS:'
          BN2      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          BN3N4    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          BN4A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          BN5      = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          BN6      = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          BN7      = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          BN8N9    = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          BN9A     = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          BN10     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          BN11     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          BN12     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          BN13MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          BN13YR   = '~IN WHAT YEAR LEFT THAT (FULL TIME) JOB'
          BN14     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          BN15     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          BN16     = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
          BN17N18  = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
          BN18A    = '~# OF PERSONS USUALLY EMPLOYED AT WORK'
          BN19     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          BN20     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          BN21     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          BN22     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          BN23     = '~REASON STOP WORK FULL TIME AT LAST JOB'
          BN24     = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
          BN25MO   = '~IN WHAT MONTH LEFT THAT (FULL TIME) JOB'
          BN25YR   = '~IN WHAT YEAR LEFT THAT (FULL TIME) JOB'
          BN26     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          BN27     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          BN28     = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
          BN29     = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
          BN30     = '~WHAT TYPE OF CHANGE(S) DID YOU MAKE?'
          BN31     = '~TOTAL INCOME BEFORE TAXES FOR PAST MO.'
          BNBOX3   = '~R WORKING FULL TIME (Q.N-1)'
          BN32     = '~RECEIVED SOCIAL SECUR DISABIL PAYMENT'
          BN33MO   = '~MO RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          BN33YR   = '~YR RECEIVED 1ST SOC SEC DISABIL PAYMENT'
          BN33BX   = '~1ST SOC SEC DISABIL PAY BEFORE REF DATE'
          BN34     = '~APPLIED FOR SOC SEC DISABIL PAYMENT'
          BN35     = '~TURNED DOWN FOR SOC SECUR DISABIL PAYME'
          BNBOX4   = '~R HAS:NO CHILDREN/1 OR MORE CHILDREN'
          BN36     = '~RECEIVED ASSISTANCE THROUGH AFDC/ADC'
          BN37MO   = '~MONTH RECEIVED 1ST AFDC PAYMENT'
          BN37YR   = '~YEAR RECIEVED 1ST AFDC PAYMENT'
          BN37BX   = '~1ST AFDC PAYMENT BEFORE REFERENCE DATE'
          BN38     = '~RECEIVED SUPPLEMENTAL SECURITY INCOME'
          BN39MO   = '~MONTH RECIEVED 1ST SSI PAYMENT'
          BN39YR   = '~YEAR RECIEVED 1ST SSI PAYMENT'
          BN39BX   = '~1ST SSI PAYMENT BEFORE REFERENCE DATE'
          BN40     = '~HAVE YOU RECIEVED FOOD STAMPS'
          BN41MO   = '~MONTH RECEIVED 1ST FOOD STAMPS'
          BN41YR   = '~YEAR RECEIVED 1ST FOOD STAMPS'
          BN42     = '~RCVD $ FROM PARENTS, FRIENDS, FAMILY'
          BN43     = '~HOW MUCH MONEY HAVE YOU RECEIVED'
          BP1      = '~INDICATE CONFIDENCE IN RS TRUTHFULNESS'
          BP2      = '~WHY?'
          BP3      = '~INDICATE CONFIDENCE IN R''S ACCURACY'
          BP4      = '~WHY?'
          BP5A     = '~ABLE TO UNDERSTAND QUESTIONS'
          BP5B     = '~COOPERATIVE'
          BP5C     = '~NO LANGUAGE PROBLEM'
          BP5D     = '~INTERVIEWED WITHOUT INTERRUPTION'
          BP5E     = '~SOBER'
          BP5F     = '~PHYSICALLY OR MENTALLY FATIGUED'
          BB32     = '~WHAT IS THE PREMIUM OR PAYMENT (OR PART'
          BB33     = '~IS THIS AMOUNT YOU PAY PER WEEK, PER'
          BB34     = '~DO YOU HAVE A DEDUCTIBLE? IS THERE A'
          BB35A    = '~AMOUNT'
          BB35B    = '~IS DEDUCTIBLE DOLLAR AMOUNT OR'
          BB361    = '~DOES YOUR INSURANCE PAY FOR SERVICES'
          BB36A1   = '~DO YOU HAVE A CO-PAYMENT, THAT IS, DO'
          BB36B1   = '~IS THERE A PERCENTAGE APPLIED TO THIS'
          BBR1     = '~PERCENTAGE PAID BY RESPONDENT'
          BBINS1   = '~PERCENTAGE PAID BY INSURANCE COMPANY'
          BB36D1   = '~HOW MUCH DO YOU PAY PER'
          BB36E1   = '~IS THERE A SPECIFIED NUMBER OF DAYS'
          BBDAYS1  = '~HOW MANY DAYS DOES (HOSPITALIZATION)'
          BB36F1   = '~DOES THIS CHANGE AFTER YOU HAVE REACHED'
          BB36G1   = '~HOW DOES IT CHANGE'
          BB362    = '~DOES YOUR INSURANCE PAY FOR SERVICES'
          BB36A2   = '~DO YOU HAVE A CO-PAYMENT, THAT IS, DO'
          BB36B2   = '~IS THERE A PERCENTAGE APPLIED TO THIS'
          BBR2     = '~PERCENTAGE PAID BY RESPONDENT'
          BBINS2   = '~PERCENTAGE PAID BY INSURANCE COMPANY'
          BB36D2   = '~HOW MUCH DO YOU PAY PER DOCTOR VISIT?'
          BB36F2   = '~DOES THIS CHANGE AFTER YOU HAVE REACHED'
          BB36G2   = '~HOW DOES IT CHANGE?'
          BB363    = '~DOES YOUR INSURANCE PAY FOR'
          BB36A3   = '~DO YOU HAVE A CO-PAYMENT, THAT IS, DO'
          BB36B3   = '~IS THERE A PERCENTAGE APPLIED TO THIS'
          BBR3     = '~PERCENTAGE PAID BY RESPONDENT'
          BBINS3   = '~PERCENTAGE PAID BY INSURANCE COMPANY'
          BB36D3   = '~HOW MUCH DO YOU PAY PER PRESCRIPTION?'
          BB36F3   = '~DOES THIS CHANGE AFTER YOU HAVE REACHED'
          BB36G3   = '~HOW DOES IT CHANGE?'
          BB364    = '~DOES YOUR INSURANCE PAY FOR MENTAL'
          BB36A4   = '~DO YOU HAVE A CO-PAYMENT, THAT IS, DO'
          BB36B4   = '~IS THERE A PERCENTAGE APPLIED TO THIS'
          BBR4     = '~PERCENTAGE PAID BY RESPONDENT'
          BBINS4   = '~PERCENTAGE PAID BY INSURANCE COMPANY'
          BB36D4   = '~HOW MUCH DO YOU PAY PER MENTAL HEALTH'
          BB36E4   = '~IS THERE A LIFETIME MAXIMUM OR A YEARLY'
          BB36DOL  = '~AMOUNT'
          BB36MAX  = '~TYPE OF MAXIMUM PAID'
          BB365    = '~DOES YOUR INSURANCE PAY FOR A DENTAL'
          BB36A5   = '~DO YOU HAVE A CO-PAYMENT, THAT IS, DO'
          BB36B5   = '~IS THERE A PERCENTAGE APPLIED TO THIS'
          BBR5     = '~PERCENTAGE PAID BY RESPONDENT'
          BBINS5   = '~PERCENTAGE PAID BY INSURANCE COMPANY'
          BB36D5   = '~HOW MUCH DO YOU PAY PER DENTAL VISIT?'
          BB36F5   = '~DOES THIS CHANGE AFTER YOU HAVE REACHED'
          BB36G5   = '~HOW DOES IT CHANGE?'
     ;
     RETURN;

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

     CRD01 :
     INPUT
               BPID01             001-009
               BREC01             010-011
               BSREC01            012-013
               BITYPE       $     014
               BRTYPE             015
               BLANG              016
               BREFMO             017-018
               BREFDY             019-020
               BREFYR             021-022
               BENDMO       $     023-024
               BENDDY       $     025-026
               BENDYR       $     027-028
               T2_STAT      $     029-030
               OBSDAYS2           031-033
               GAP2FLAG     $     034
               ADM2               035-036
               IPNGT2             037-039
               AMBVS2             040-042
               ERVS2              043-045
               HCVS2              046-048
               OCVS2              049-051
               MDVS2              052-054
               BA1RELP            055-056
               BA1SEXP            057
               BA1SSTP            058
               BA1REL1      $     059-060
               BA1SEX1      $     061
               BA1AGE1      $     062-063
               BA1SST1      $     064
               BA1REL2      $     065-066
               BA1SEX2      $     067
               BA1AGE2      $     068-069
               BA1SST2      $     070
               BA1REL3      $     071-072
               BA1SEX3      $     073
               BA1AGE3      $     074-075
               BA1SST3      $     076
               BA1REL4      $     077-078
               BA1SEX4      $     079
               BA1AGE4      $     080-081
               BA1SST4      $     082
               BA1REL5      $     083-084
               BA1SEX5      $     085
               BA1AGE5      $     086-087
               BA1SST5      $     088
               BA1REL6      $     089-090
               BA1SEX6      $     091
               BA1AGE6      $     092-093
               BA1SST6      $     094
               BA1REL7      $     095-096
               BA1SEX7      $     097
               BA1AGE7      $     098-099
               BA1SST7      $     100
               BA1REL8      $     101-102
               BA1SEX8      $     103
               BA1AGE8      $     104-105
               BA1SST8      $     106
               BA1REL9      $     107-108
               BA1SEX9      $     109
               BA1AGE9      $     110-111
               BA1SST9      $     112
               BA1REL10     $     113-114
               BA1SEX10     $     115
               BA1AGE10     $     116-117
               BA1SST10     $     118
               BA1CT              119-120
               BABOXA1A           121
               BABOXA1B           122
               BABOXA1C           123
               BA2          $     124
               BA3          $     125
               BA4          $     126
               BA5                127-128
               BA6A               129
               BA6B               130
               BA6C               131
               BA6D               132
               BA6E               133
               BA6F               134
               BA7MO        $     135-136
               BA7YR        $     137-138
               BA8MO        $     139-140
               BA8YR        $     141-142
               BA9PROV      $     143-149
               BA10         $     150-155
               BA11         $     156
               BA12A        $     157
               BA12B        $     158
               BA12C        $     159
               BA12D        $     160
               BA12E        $     161
               BA12EOS      $     162-163
               BA13         $     164-165
               BBBOX1A            166
               BBBOX1B            167
               BBBOX1C            168
               BBBOX1D            169
               BBBOX1E            170
               BBBOX1F            171
               BBBOX1G            172
               BB1                173
               BBBOX2       $     174
               BBBOX3       $     175
               BB2          $     176
               BB3          $     177
               BB4A         $     178
               BB4B         $     179
               BB4C         $     180
               BB4D         $     181
               BB4E         $     182
               BB4F         $     183
               BB4G         $     184
               BB4H         $     185
               BB4I         $     186
               BB4J         $     187
               BB4K         $     188
               BB4L         $     189
               BB5MO        $     190-191
               BB5YR        $     192-193
               BB6          $     194
               BBBOX4       $     195
               BB7          $     196
               BB8          $     197-198
               BB9MO        $     199-200
               BB9YR        $     201-202
               BB10         $     203
               BB12               204
               BB13         $     205
               BB14A        $     206
               BB14B        $     207
               BB14C        $     208
               BB14D        $     209
               BB14E        $     210
               BB14F        $     211
               BB14G        $     212
               BB14H        $     213
               BB14I        $     214
               BB14J        $     215
               BB14K        $     216
               BB14L        $     217
               BBBOX5       $     218
               BB16MO       $     219-220
               BB16YR       $     221-222
               BB17         $     223
               BB18         $     224
               BB19               225
               BB21               226
               BBBOX6       $     227
               BBBOX7       $     228
               BB22         $     229
               BB23         $     230
               BB24A        $     231
               BB24B        $     232
               BB24C        $     233
               BB24D        $     234
               BB24E        $     235
               BB24F        $     236
               BB24G        $     237
               BB24H        $     238
               BB24I        $     239
               BB24J        $     240
               BB24K        $     241
               BB24L        $     242
               BB25MO       $     243-244
               BB25YR       $     245-246
               BBBOX8       $     247
               BB26         $     248-249
               BB27MO       $     250-251
               BB27YR       $     252-253
               BB28               254
               BB29               255
               BB31A1       $     256-257
               BB31A2       $     258
               BB31B1       $     259-260
               BB31B2       $     261
               BD1A               262
               BD1B         $     263-264
               BD06CT             265-266
               BE1A               267
               BE1B         $     268-269
               BE08CT             270-271
               BF1                272
               BF1A         $     273-274
               BF1ACT             275-276
               BF2                277
               BF2A         $     278-279
               BF2ACT             280-281
               BF3                282
               BF3A         $     283-284
               BF3ACT             285-286
               BF4                287
               BF4A         $     288-289
               BF4ACT             290-291
               BG1                292
               BG1A         $     293-294
               BG1ACT             295-296
               BG2                297
               BG2A         $     298-299
               BG2ACT             300-301
               BG3                302
               BG3A         $     303-304
               BG3ACT             305-306
               BG4                307
               BG4ACT             308-309
               BH1                310
               BH2                311
               BHACT              312-313
               BI1                314
               BI1CT              315-316
               BI2                317
               BI2CT              318-319
               BI3                320
               BI3CT              321-322
               BI4                323
               BI4CT              324-325
               BI5                326
               BI5CT              327-328
               BI6                329
               BI6CT              330-331
               BI7                332
               BI7CT              333-334
               BI8                335
               BI8CT              336-337
               BJ1                338
               BJ1A         $     339-340
               BJ1ACT             341-342
               BK1                343
               BK2                344
               BKACT              345-346
               BK3                347
               BK3CT              348-349
               BK4A         $     350-352
               BK4B         $     353-355
               BK4C         $     356-358
               BK4D         $     359-361
               BK4E         $     362-364
               BK4F         $     365-367
               BK4G         $     368-370
               BK4H         $     371-373
               BK4I         $     374-376
               BK4J         $     377-379
               BK4K         $     380-382
               BK4L         $     383-385
               BK4M         $     386-388
               BK4N         $     389-391
               BK4O         $     392-394
               BK4P         $     395-397
               BK4Q         $     398-400
               BK4R         $     401-403
               BK4S         $     404-406
               BK4T         $     407-409
               BK4U         $     410-412
               BK4V         $     413-415
               BK4W         $     416-418
               BK4X         $     419-421
               BK5          $     422-427
               BL1                428
               BL2A               429
               BL2B               430
               BL2C               431
               BL2D               432
               BL2E               433
               BL2F               434
               BL2G               435
               BL2H               436
               BL2I               437
               BL2J               438
               BL2K               439
               BL2L               440
               BL2M               441
               BL2N               442
               BL2O               443
               BL2P               444
               BL3A               445
               BL3B               446
               BL3C               447
               BL3D               448
               BL3E               449
               BL3F               450
               BL4                451
               BL5          $     452
               BL6                453
               BL7          $     454
               BL8                455
               BL9                456
               BL10A              457
               BL10B              458
               BL10C              459
               BL10D              460
               BL10E              461
               BL11               462-463
               BL12               464
               BL13               465
               BL14               466-467
               BL15               468-469
               BLBOX1             470-471
               BL16A        $     472-473
               BL16B        $     474-475
               BL16C        $     476-477
               BL17A        $     478-479
               BL17B        $     480-481
               BL17C        $     482-483
               BM1                484
               BM2A         $     485-486
               BM2PROV      $     487-493
               BM3          $     494
               BM4          $     495
               BM5          $     496-497
               BM6MIN       $     498-500
               BM6HRS       $     501-502
               BM7          $     503
               BM8MOS       $     504-505
               BM8YRS       $     506-507
               BM9AA              508
               BM9AB        $     509
               BM9AC        $     510
               BM9AD        $     511
               BM9AE        $     512
               BM9AF        $     513
               BM9AG        $     514-517
               BM9BA              518
               BM9BB        $     519
               BM9BC        $     520
               BM9BD        $     521
               BM9BE        $     522
               BM9BF        $     523
               BM9BG        $     524-527
               BM9CA              528
               BM9CB        $     529
               BM9CC        $     530
               BM9CD        $     531
               BM9CF        $     532
               BM9CG        $     533-536
               BM9DA              537
               BM9DB        $     538
               BM9DC        $     539
               BM9DD        $     540
               BM9DE        $     541
               BM9DF        $     542
               BM9DG        $     543-546
               BM9EA              547
               BM9EB        $     548
               BM9EC        $     549
               BM9ED        $     550
               BM9EE        $     551
               BM9EF        $     552
               BM9EG        $     553-556
               BM9FA              557
               BM9FB        $     558
               BM9FC        $     559
               BM9FD        $     560
               BM9FE        $     561
               BM9FF        $     562
               BM9FG        $     563-566
               BM9GA              567
               BM9GB        $     568
               BM9GC        $     569
               BM9GD        $     570
               BM9GE        $     571
               BM9GF        $     572
               BM9GG        $     573-576
               BM9HA              577
               BM9HB        $     578
               BM9HC        $     579
               BM9HD        $     580
               BM9HE        $     581
               BM9HF        $     582
               BM9HG        $     583-586
               BM9IA              587
               BN1                588
               BNBOX1       $     589
               BNBOX2       $     590
               BN2          $     591-593
               BN3N4        $     594-597
               BN4A         $     598
               BN5          $     599
               BN6          $     600-601
               BN7          $     602-604
               BN8N9        $     605-608
               BN9A         $     609
               BN10         $     610
               BN11         $     611-612
               BN12         $     613
               BN13MO       $     614-615
               BN13YR       $     616-617
               BN14         $     618
               BN15         $     619-620
               BN16         $     621-623
               BN17N18      $     624-627
               BN18A        $     628
               BN19         $     629
               BN20         $     630
               BN21         $     631-632
               BN22         $     633
               BN23         $     634-635
               BN24         $     636
               BN25MO       $     637-638
               BN25YR       $     639-640
               BN26         $     641
               BN27         $     642-643
               BN28         $     644
               BN29         $     645
               BN30         $     646-647
               BN31               648-649
               BNBOX3             650
               BN32         $     651
               BN33MO       $     652-653
               BN33YR       $     654-655
               BN33BX       $     656
               BN34         $     657
               BN35         $     658
               BNBOX4       $     659
               BN36         $     660
               BN37MO       $     661-662
               BN37YR       $     663-664
               BN37BX       $     665
               BN38         $     666
               BN39MO       $     667-668
               BN39YR       $     669-670
               BN39BX       $     671
               BN40         $     672
               BN41MO       $     673-674
               BN41YR       $     675-676
               BN42               677
               BN43         $     678-683
               BP1                684
               BP2          $     685-686
               BP3                687
               BP4          $     688-689
               BP5A               690
               BP5B               691
               BP5C               692
               BP5D               693
               BP5E               694
               BP5F               695
               BB32               696-701
               BB33               702-703
               BB34               704
               BB35A        $     705-709
               BB35B        $     710
               BB361        $     711
               BB36A1       $     712
               BB36B1       $     713
               BBR1         $     714-716
               BBINS1       $     717-719
               BB36D1       $     720-725
               BB36E1       $     726
               BBDAYS1      $     727-729
               BB36F1       $     730
               BB36G1       $     731-734
               BB362              735
               BB36A2       $     736
               BB36B2       $     737
               BBR2         $     738-740
               BBINS2       $     741-743
               BB36D2       $     744-749
               BB36F2       $     750
               BB36G2       $     751-754
               BB363              755
               BB36A3       $     756
               BB36B3       $     757
               BBR3         $     758-760
               BBINS3       $     761-763
               BB36D3       $     764-769
               BB36F3       $     770
               BB36G3       $     771-774
               BB364        $     775
               BB36A4       $     776
               BB36B4       $     777
               BBR4         $     778-780
               BBINS4       $     781-783
               BB36D4       $     784-789
               BB36E4       $     790
               BB36DOL      $     791-796
               BB36MAX      $     797
               BB365              798
               BB36A5       $     799
               BB36B5       $     800
               BBR5         $     801-803
               BBINS5       $     804-806
               BB36D5       $     807-812
               BB36F5       $     813
               BB36G5       $     814-817
     ;
     RETURN;
     ;
     PROC FREQ ;  TABLES
          BPID01
          BREC01
          BSREC01
          BITYPE
          BRTYPE
          BLANG
          BREFMO
          BREFDY
          BREFYR
          BENDMO
          BENDDY
          BENDYR
          T2_STAT
          OBSDAYS2
          GAP2FLAG
          ADM2
          IPNGT2
          AMBVS2
          ERVS2
          HCVS2
          OCVS2
          MDVS2
          BA1RELP
          BA1SEXP
          BA1SSTP
          BA1REL1
          BA1SEX1
          BA1AGE1
          BA1SST1
          BA1REL2
          BA1SEX2
          BA1AGE2
          BA1SST2
          BA1REL3
          BA1SEX3
          BA1AGE3
          BA1SST3
          BA1REL4
          BA1SEX4
          BA1AGE4
          BA1SST4
          BA1REL5
          BA1SEX5
          BA1AGE5
          BA1SST5
          BA1REL6
          BA1SEX6
          BA1AGE6
          BA1SST6
          BA1REL7
          BA1SEX7
          BA1AGE7
          BA1SST7
          BA1REL8
          BA1SEX8
          BA1AGE8
          BA1SST8
          BA1REL9
          BA1SEX9
          BA1AGE9
          BA1SST9
          BA1REL10
          BA1SEX10
          BA1AGE10
          BA1SST10
          BA1CT
          BABOXA1A
          BABOXA1B
          BABOXA1C
          BA2
          BA3
          BA4
          BA5
          BA6A
          BA6B
          BA6C
          BA6D
          BA6E
          BA6F
          BA7MO
          BA7YR
          BA8MO
          BA8YR
          BA9PROV
          BA10
          BA11
          BA12A
          BA12B
          BA12C
          BA12D
          BA12E
          BA12EOS
          BA13
          BBBOX1A
          BBBOX1B
          BBBOX1C
          BBBOX1D
          BBBOX1E
          BBBOX1F
          BBBOX1G
          BB1
          BBBOX2
          BBBOX3
          BB2
          BB3
          BB4A
          BB4B
          BB4C
          BB4D
          BB4E
          BB4F
          BB4G
          BB4H
          BB4I
          BB4J
          BB4K
          BB4L
          BB5MO
          BB5YR
          BB6
          BBBOX4
          BB7
          BB8
          BB9MO
          BB9YR
          BB10
          BB12
          BB13
          BB14A
          BB14B
          BB14C
          BB14D
          BB14E
          BB14F
          BB14G
          BB14H
          BB14I
          BB14J
          BB14K
          BB14L
          BBBOX5
          BB16MO
          BB16YR
          BB17
          BB18
          BB19
          BB21
          BBBOX6
          BBBOX7
          BB22
          BB23
          BB24A
          BB24B
          BB24C
          BB24D
          BB24E
          BB24F
          BB24G
          BB24H
          BB24I
          BB24J
          BB24K
          BB24L
          BB25MO
          BB25YR
          BBBOX8
          BB26
          BB27MO
          BB27YR
          BB28
          BB29
          BB31A1
          BB31A2
          BB31B1
          BB31B2
          BD1A
          BD1B
          BD06CT
          BE1A
          BE1B
          BE08CT
          BF1
          BF1A
          BF1ACT
          BF2
          BF2A
          BF2ACT
          BF3
          BF3A
          BF3ACT
          BF4
          BF4A
          BF4ACT
          BG1
          BG1A
          BG1ACT
          BG2
          BG2A
          BG2ACT
          BG3
          BG3A
          BG3ACT
          BG4
          BG4ACT
          BH1
          BH2
          BHACT
          BI1
          BI1CT
          BI2
          BI2CT
          BI3
          BI3CT
          BI4
          BI4CT
          BI5
          BI5CT
          BI6
          BI6CT
          BI7
          BI7CT
          BI8
          BI8CT
          BJ1
          BJ1A
          BJ1ACT
          BK1
          BK2
          BKACT
          BK3
          BK3CT
          BK4A
          BK4B
          BK4C
          BK4D
          BK4E
          BK4F
          BK4G
          BK4H
          BK4I
          BK4J
          BK4K
          BK4L
          BK4M
          BK4N
          BK4O
          BK4P
          BK4Q
          BK4R
          BK4S
          BK4T
          BK4U
          BK4V
          BK4W
          BK4X
          BK5
          BL1
          BL2A
          BL2B
          BL2C
          BL2D
          BL2E
          BL2F
          BL2G
          BL2H
          BL2I
          BL2J
          BL2K
          BL2L
          BL2M
          BL2N
          BL2O
          BL2P
          BL3A
          BL3B
          BL3C
          BL3D
          BL3E
          BL3F
          BL4
          BL5
          BL6
          BL7
          BL8
          BL9
          BL10A
          BL10B
          BL10C
          BL10D
          BL10E
          BL11
          BL12
          BL13
          BL14
          BL15
          BLBOX1
          BL16A
          BL16B
          BL16C
          BL17A
          BL17B
          BL17C
          BM1
          BM2A
          BM2PROV
          BM3
          BM4
          BM5
          BM6MIN
          BM6HRS
          BM7
          BM8MOS
          BM8YRS
          BM9AA
          BM9AB
          BM9AC
          BM9AD
          BM9AE
          BM9AF
          BM9AG
          BM9BA
          BM9BB
          BM9BC
          BM9BD
          BM9BE
          BM9BF
          BM9BG
          BM9CA
          BM9CB
          BM9CC
          BM9CD
          BM9CF
          BM9CG
          BM9DA
          BM9DB
          BM9DC
          BM9DD
          BM9DE
          BM9DF
          BM9DG
          BM9EA
          BM9EB
          BM9EC
          BM9ED
          BM9EE
          BM9EF
          BM9EG
          BM9FA
          BM9FB
          BM9FC
          BM9FD
          BM9FE
          BM9FF
          BM9FG
          BM9GA
          BM9GB
          BM9GC
          BM9GD
          BM9GE
          BM9GF
          BM9GG
          BM9HA
          BM9HB
          BM9HC
          BM9HD
          BM9HE
          BM9HF
          BM9HG
          BM9IA
          BN1
          BNBOX1
          BNBOX2
          BN2
          BN3N4
          BN4A
          BN5
          BN6
          BN7
          BN8N9
          BN9A
          BN10
          BN11
          BN12
          BN13MO
          BN13YR
          BN14
          BN15
          BN16
          BN17N18
          BN18A
          BN19
          BN20
          BN21
          BN22
          BN23
          BN24
          BN25MO
          BN25YR
          BN26
          BN27
          BN28
          BN29
          BN30
          BN31
          BNBOX3
          BN32
          BN33MO
          BN33YR
          BN33BX
          BN34
          BN35
          BNBOX4
          BN36
          BN37MO
          BN37YR
          BN37BX
          BN38
          BN39MO
          BN39YR
          BN39BX
          BN40
          BN41MO
          BN41YR
          BN42
          BN43
          BP1
          BP2
          BP3
          BP4
          BP5A
          BP5B
          BP5C
          BP5D
          BP5E
          BP5F
          BB32
          BB33
          BB34
          BB35A
          BB35B
          BB361
          BB36A1
          BB36B1
          BBR1
          BBINS1
          BB36D1
          BB36E1
          BBDAYS1
          BB36F1
          BB36G1
          BB362
          BB36A2
          BB36B2
          BBR2
          BBINS2
          BB36D2
          BB36F2
          BB36G2
          BB363
          BB36A3
          BB36B3
          BBR3
          BBINS3
          BB36D3
          BB36F3
          BB36G3
          BB364
          BB36A4
          BB36B4
          BBR4
          BBINS4
          BB36D4
          BB36E4
          BB36DOL
          BB36MAX
          BB365
          BB36A5
          BB36B5
          BBR5
          BBINS5
          BB36D5
          BB36F5
          BB36G5
     ;