/* SHORT TITLE: Patient Quest-Time 1 Specific Data */
PROC FORMAT
;
VALUE AREC01F
01 = 'NUMBER '
;
VALUE ASREC0F
00 = 'NOT A REPEATING '
;
VALUE $AITYPEF
'A' = 'TIME 1 QUESTIONN'
;
VALUE ARTYPEF
1 = 'STUDY SUBJECT '
2 = 'PROXY '
;
VALUE ALANG_F
1 = 'ENGLISH '
2 = 'SPANISH '
;
VALUE $T1_STAF
'CO' = 'COMPLETE, WITH R'
'PR' = 'COMPLETE, WITH P'
'DD' = 'COMPLETE, WITH P'
;
VALUE OBSDAYF
999 = 'NOT ASCERTAINED '
;
VALUE $GAP1FLF
'1' = 'YES TIME GAP '
;
VALUE ADM1__F
00 = 'NONE '
;
VALUE IPNGT1F
000 = 'NONE '
;
VALUE AA1___F
01 = 'NIGHT SWEATS '
02 = 'SHORTNESS OF BRE'
03 = 'DIARRHEA '
04 = 'WEIGHT LOSS '
05 = 'CHILLS SO BAD TH'
06 = 'FEVER 4 DAYS PLU'
07 = 'WEAK/NUMB LIMBS '
08 = 'A SEIZURE '
09 = 'MEMORY LOSS '
10 = 'NONE '
97 = 'REFUSED '
98 = 'DK '
99 = 'NOT ASCERTAINED '
;
VALUE $AA2MO_F
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE AA3___F
01 = 'HOSPITAL '
02 = 'CLINIC '
03 = 'DOCTOR''S OFFICE'
04 = 'PRISON/JAIL/HALF'
05 = 'DRUG PROGRAM/REH'
06 = 'RED CROSS/DONATI'
07 = 'BOARD OF HEALTH/'
08 = 'COMMUNITY HEALTH'
10 = 'ARMED SERVICES E'
11 = 'MEDICAL SETTING '
91 = 'OTHER SPECIFIED '
97 = 'REFUSED '
98 = 'DK '
99 = 'NOT ASCERTAINED '
;
VALUE AA4___F
00 = 'NO FORMAL SCHOOL'
01 = 'ONE YEAR ELEMENT'
02 = 'TWO YEARS ELEMEN'
03 = 'THREE YEARS ELEM'
04 = 'FOUR YEARS ELEME'
05 = 'FIVE YEARS ELEME'
06 = 'SIX YEARS ELEMEN'
07 = 'SEVEN YEARS ELEM'
08 = 'EIGHT YEARS ELEM'
09 = 'ONE YEAR HIGH SC'
10 = 'TWO YEARS HIGH S'
11 = 'THREE YEARS HIGH'
12 = 'FOUR YEARS HIGH '
13 = 'ONE YEAR COLLEGE'
14 = 'TWO YEARS COLLEG'
15 = 'THREE YEARS COLL'
16 = 'FOUR YEARS COLLE'
17 = 'FIVE YEARS COLLE'
18 = 'SIX OR MORE YEAR'
97 = 'REFUSED '
98 = 'DK '
99 = 'NOT ASCERTAINED '
;
VALUE AA5___F
1 = 'MARRIED '
2 = 'WIDOWED '
3 = 'DIVORCED '
4 = 'SEPARATED '
5 = 'NEVER MARRIED '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $AA6___F
'1' = 'YES '
'2' = 'NO '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE AA8___F
1 = 'YES '
2 = 'NO '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $AB2___F
'1' = 'INDIVIDUAL PLAN '
'2' = 'FAMILY PLAN '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $AB3___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 $AB8___F
'1' = 'THE WHOLE TIME '
'2' = 'PART OF THE TIME'
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $AB9A__F
'1' = 'CIRCLED '
'2' = 'NOT CIRCLED '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $AB13__F
'1' = 'YES '
'2' = 'NO/ NO DECISION '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $AB17__F
'70' = 'DRUG ASSISTANCE '
'71' = 'ASSISTANCE FROM '
'72' = 'CITY FUNDED PROG'
'73' = 'COUNTY FUNDED PR'
'74' = 'STATE FUNDED PRO'
'75' = 'FEDERALLY FUNDED'
'76' = 'GOVERNMENT FUNDE'
'77' = 'COMMUNITY PROGRA'
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $AB21A_F
'91' = 'OTHER CODE RESER'
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $AB21B_F
'1' = 'DAYS '
'2' = 'WEEKS '
'3' = 'MONTHS '
'4' = 'YEARS '
;
VALUE AC04CTF
00 = 'NONE LISTED '
;
VALUE AF1SGAF
1 = 'CIRCLED '
2 = 'NOT CIRCLED '
;
VALUE $AF1SGEF
'02' = 'ACOA '
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE AH3A__F
1 = 'YES '
2 = 'NO '
3 = 'NO CHILDREN '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE AI3CT_F
00 = 'NONE CODED 2, 7,'
;
VALUE AJ3CT_F
00 = 'NO DRUGS LISTED '
;
VALUE $AJ4A__F
'991' = 'OTHER SPECIFIED '
'997' = 'REFUSED '
'998' = 'DK '
'999' = 'NOT ASCERTAINED '
;
VALUE $AJ5___F
'000000' = 'NOTHING '
'999997' = 'REFUSED '
'999998' = 'DK '
'999999' = 'NOT ASCERTAINED '
;
VALUE $AK2___F
'1' = 'FULL-TIME '
'2' = 'PART-TIME '
'3' = 'NOT WORKING '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $AK3___F
'997' = 'REFUSED '
'998' = 'DK '
'999' = 'NOT ASCERTAINED '
;
VALUE $AK45OCF
'9994' = 'UNCODEABLE '
'9997' = 'REFUSED '
'9998' = 'DK '
'9999' = 'NOT ASCERTAINED '
;
VALUE $AKBOX1F
'1' = 'WORKING FULL-TIM'
'2' = 'PART TIME '
;
VALUE $AK9___F
'01' = 'LEAVE OF ABSENCE'
'02' = 'QUIT '
'03' = 'LAID OFF '
'04' = 'FIRED '
'05' = 'JOB ENDED/BUSINE'
'06' = 'PREGNANCY '
'07' = 'ARRESTED/PRISON '
'08' = 'RETIRED '
'09' = 'KEPT SAME JOB, C'
'10' = 'MOVED, LEFT AREA'
'11' = 'MEDICAL REASONS '
'12' = 'SCHOOL '
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $AK13__F
'01' = 'STOPPED/QUIT WOR'
'02' = 'CANT DO WHAT I U'
'03' = 'CHANGED TYPE/AMO'
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE AK14__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 AK15__F
1 = 'LESS THAN $5,000'
2 = '$5,000 - $9,999 '
3 = '$10,000 - $19,99'
4 = '$20,000 - $39,99'
5 = '$40,000 OR MORE '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $AK21__F
'1' = 'YES '
'2' = 'NO/NO DECISION Y'
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE AKBOX2F
1 = 'NO CHILDREN LIVI'
2 = '1 OR MORE CHILDR'
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $AK27__F
'999997' = 'REFUSED '
'999998' = 'DK '
'999999' = 'NOT ASCERTAINED '
;
DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;
/*****************************************************************************/
/* */
/* GENSAS run of 06/27/1994 at 21:54:11 */
/* */
/*****************************************************************************/
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
AREC01 AREC01F.
ASREC01 ASREC0F.
AITYPE $AITYPEF.
ARTYPE ARTYPEF.
ALANG ALANG_F.
T1_STAT $T1_STAF.
OBSDAYS1 OBSDAYF.
GAP1FLAG $GAP1FLF.
ADM1 ADM1__F.
IPNGT1 IPNGT1F.
AMBVS1 IPNGT1F.
ERVS1 IPNGT1F.
HCVS1 IPNGT1F.
OCVS1 IPNGT1F.
MDVS1 IPNGT1F.
AA1 AA1___F.
AA2MO $AA2MO_F.
AA2YR $AA2MO_F.
AA3 AA3___F.
AA4 AA4___F.
AA5 AA5___F.
AA6 $AA6___F.
AA7 $AA6___F.
AA8 AA8___F.
AA9 $AA2MO_F.
AA10 $AA6___F.
AA11 $AA6___F.
AA12 $AA2MO_F.
AB1 AA8___F.
AB2 $AB2___F.
AB3 $AB3___F.
AB4 $AA6___F.
AB5 $AA6___F.
AB6MO $AA2MO_F.
AB6YR $AA2MO_F.
AB7 AA8___F.
AB8 $AB8___F.
AB9A $AB9A__F.
AB9B $AB9A__F.
AB9C $AB9A__F.
AB9D $AB9A__F.
AB9E $AB9A__F.
AB9F $AB9A__F.
AB9G $AB9A__F.
AB9H $AB9A__F.
AB9I $AB9A__F.
AB9J $AB9A__F.
AB9K $AB9A__F.
AB9L $AB9A__F.
AB11MO $AA2MO_F.
AB11YR $AA2MO_F.
AB12 $AA6___F.
AB13 $AB13__F.
AB14 AA8___F.
AB16 AA8___F.
AB17 $AB17__F.
AB18 AA8___F.
AB19 AA8___F.
AB21A $AB21A_F.
AB21B $AB21B_F.
AC1 AA8___F.
AC2 $AA2MO_F.
AC04CT AC04CTF.
AD1 AA8___F.
AD2 $AA2MO_F.
AD06CT AC04CTF.
AE1A AA8___F.
AE1B $AA2MO_F.
AE1BCT AC04CTF.
AE2A AA8___F.
AE2B $AA2MO_F.
AE2BCT AC04CTF.
AE3A AA8___F.
AE3B $AA2MO_F.
AE3BCT AC04CTF.
AE4A AA8___F.
AE4B $AA2MO_F.
AE4BCT AC04CTF.
AF1A AA8___F.
AF1B $AA2MO_F.
AF1BCT AC04CTF.
AF1SGA AF1SGAF.
AF1SGB AF1SGAF.
AF1SGC AF1SGAF.
AF1SGD AF1SGAF.
AF1SGE AF1SGAF.
AF1SGEOS $AF1SGEF.
AF2A AA8___F.
AF2B $AA2MO_F.
AF2BCT AC04CTF.
AF3A AA8___F.
AF3B $AA2MO_F.
AF3BCT AC04CTF.
AF4A AA8___F.
AF4BCT AC04CTF.
AG1 AA8___F.
AG2 AA8___F.
AGACT AC04CTF.
AH1A AA8___F.
AH1ACT ADM1__F.
AH2A AA8___F.
AH2ACT ADM1__F.
AH3A AH3A__F.
AH3ACT ADM1__F.
AH4A AA8___F.
AH4ACT ADM1__F.
AH5A AA8___F.
AH5ACT ADM1__F.
AH6A AA8___F.
AH6ACT ADM1__F.
AH7A AA8___F.
AH7ACT ADM1__F.
AH8A AA8___F.
AH8ACT ADM1__F.
AI1 AA8___F.
AI3CT AI3CT_F.
AJ1 AA8___F.
AJ2 AA8___F.
AJACT AC04CTF.
AJ3 AA8___F.
AJ3CT AJ3CT_F.
AJ4A $AJ4A__F.
AJ4B $AJ4A__F.
AJ4C $AJ4A__F.
AJ4D $AJ4A__F.
AJ4E $AJ4A__F.
AJ4F $AJ4A__F.
AJ4G $AJ4A__F.
AJ4H $AJ4A__F.
AJ4I $AJ4A__F.
AJ4J $AJ4A__F.
AJ4K $AJ4A__F.
AJ4L $AJ4A__F.
AJ4M $AJ4A__F.
AJ4N $AJ4A__F.
AJ4O $AJ4A__F.
AJ4P $AJ4A__F.
AJ4Q $AJ4A__F.
AJ4R $AJ4A__F.
AJ4S $AJ4A__F.
AJ4T $AJ4A__F.
AJ4U $AJ4A__F.
AJ4V $AJ4A__F.
AJ4W $AJ4A__F.
AJ4X $AJ4A__F.
AJ5 $AJ5___F.
AK1 AA8___F.
AK2 $AK2___F.
AK3 $AK3___F.
AK45OCC $AK45OCF.
AKBOX1 $AKBOX1F.
AK6 $AA6___F.
AK78OCC $AK45OCF.
AK9 $AK9___F.
AK10 $AA6___F.
AK11MO $AA2MO_F.
AK11YR $AA2MO_F.
AK12 $AA6___F.
AK13 $AK13__F.
AK14 AK14__F.
AK15 AK15__F.
AK16 AK15__F.
AK17 AK15__F.
AK18 AA8___F.
AK19MO $AA2MO_F.
AK19YR $AA2MO_F.
AK20 $AA6___F.
AK21 $AK21__F.
AKBOX2 AKBOX2F.
AK22 $AA6___F.
AK23MO $AA2MO_F.
AK23YR $AA2MO_F.
AK24 AA8___F.
AK25MO $AA2MO_F.
AK25YR $AA2MO_F.
AK26 $AA6___F.
AK27 $AK27__F.
;
LABEL
/*****************************************************************************/
/* */
/* Begin Labels for Card 01 */
/* */
/*****************************************************************************/
APID01 = '~PATIENT ID NUMBER'
AREC01 = '~RECORD NUMBER'
ASREC01 = '~SUBRECORD NUMBER'
AITYPE = '~WHAT IS THE INSTRUMENT TYPE?'
ARTYPE = '~RESPONDENT TYPE'
ALANG = '~QUESTIONNAIRE LANGUAGE VERSION'
AREFMO = '~REFERENCE BEGIN MONTH'
AREFDY = '~REFERENCE BEGIN DAY'
AREFYR = '~REFERENCE BEGIN YEAR'
AENDMO = '~REFERENCE END MONTH'
AENDDY = '~REFERENCE END DAY'
AENDYR = '~REFERENCE END YEAR'
T1_STAT = '~QUESTIONNAIRE STATUS'
OBSDAYS1 = '~OBSERVATION DAYS WITHIN REFERENCE'
GAP1FLAG = '~PATIENT HAD TIME GAP DURING REFERENCE'
ADM1 = '~NUMBER OF INPATIENT ADMISSIONS'
IPNGT1 = '~NUMBER OF INPATIENT NIGHTS'
AMBVS1 = '~NUMBER OF AMBULATORY VISITS, INCLUDES'
ERVS1 = '~NUMBER OF EMERGENCY ROOM VISITS'
HCVS1 = '~NUMBER OF HOSPITAL CLINIC VISITS'
OCVS1 = '~NUMBER OF OTHER CLINIC VISITS'
MDVS1 = '~NUMBER OF PRIVATE MD VISITS'
AA1 = '~1ST SIGN OF HIV ILLNESS YOU EXPERIENCED'
AA2MO = '~MONTH OF FIRST EXPERIENCE'
AA2YR = '~YEAR OF FIRST EXPERIENCE'
AA3 = '~PLACE WHERE 1ST TOLD OF AIDS INFECTION'
AA4 = '~HIGHEST GRADE/YEAR OF SCHOOL COMPLETED'
AA5 = '~CURRENT MARITAL STATUS'
AA6 = '~INVOLVED IN COMMITED RELATIONSHIP NOW'
AA7 = '~SPOUSE/PARTNER DIAGNOSED HIV POSITIVE'
AA8 = '~DO YOU HAVE ANY LIVING CHILDREN?'
AA9 = '~HOW MANY LIVING CHILDREN?'
AA10 = '~ANY CHILDREN CURRENTLY LIVING WITH YOU'
AA11 = '~ANY CHILDREN DIAGNOSED AS HIV POSITIVE'
AA12 = '~HOW MANY CHILDREN ARE POSITIVE?'
AB1 = '~COVERED BY PRIVATE HEALTH INS PLAN,HMO'
AB2 = '~IS THIS INDIVIDUAL OR FAMILY COVERAGE'
AB3 = '~HOW DO YOU GET HEALTH INSURANCE/PLAN'
AB4 = '~IS PLAN A HEALTH MAINTENANCE ORG./HMO'
AB5 = '~EVER HAD ANY PRIVATE HEALTH INSURANCE'
AB6MO = '~LAST MO COVERED BY PRIVATE HEALTH INS'
AB6YR = '~LAST YR COVERED BY PRIVATE HEALTH INS'
AB7 = '~COVERED BY MEDICAID/MEDICAID STATE NAME'
AB8 = '~COVERED WHOLE TIME OR PT TIME TILL NOW'
AB9A = '~JANUARY'
AB9B = '~FEBRUARY'
AB9C = '~MARCH'
AB9D = '~APRIL'
AB9E = '~MAY'
AB9F = '~JUNE'
AB9G = '~JULY'
AB9H = '~AUGUST'
AB9I = '~SEPTEMBER'
AB9J = '~OCTOBER'
AB9K = '~NOVEMBER'
AB9L = '~DECEMBER'
AB11MO = '~MONTH FIRST COVERED BY MEDICAID'
AB11YR = '~YEAR FIRST COVERED BY MEDICAID'
AB12 = '~HAVE YOU APPLIED FOR MEDICAID?'
AB13 = '~HAVE YOU BEEN TURNED DOWN FOR MEDICAID?'
AB14 = '~SINCE (REF. DATE) HAVE YOU BEEN COVERED'
AB16 = '~COVERED BY OTHER PUBLIC ASSIST PROGRAM'
AB17 = '~WHAT IS THE NAME OF THAT PROGRAM?'
AB18 = '~ARE YOU COVERED BY CHAMPUS OR CHAMPVA'
AB19 = '~IN CLINICAL TRIALS FOR ANY MEDICATIONS'
AB21A = '~LENGTH OF TIME'
AB21B = '~UNIT OF TIME'
AC1 = '~PATIENT IN HOSPITAL OVERNIGHT OR LONGER'
AC2 = '~HOW MANY TIMES IN HOSP OVERNIGHT/LONGER'
AC04CT = '~NUMBER OF INPATIENT STAY RECORDS'
AD1 = '~IN RES CARE,NURS HOME,HOSPICE OVERNIGHT'
AD2 = '~# TIMES IN RES CARE,NURS HOME,HOSPICE'
AD06CT = '~NUMBER OF NURSING HOME/RESIDENTIAL CARE'
AE1A = '~GO TO HOSP EMERGENCY ROOM FOR MED CARE'
AE1B = '~HOW MANY DIFF EMERGENCY ROOMS VISITED'
AE1BCT = '~NUMBER OF EMERGENCY ROOM RECORDS'
AE2A = '~GO TO HOSP CLINIC,HOSP OUT-PATIENT DEPT'
AE2B = '~HOW MANY DIFF HOSPITAL CLINICS VISITED'
AE2BCT = '~NUMBER OF HOSPITAL CLINIC RECORDS'
AE3A = '~GO TO ANY OTHER MEDICAL CLINIC'
AE3B = '~HOW MANY DIFF MEDICAL CLINICS VISITED'
AE3BCT = '~NUMBER OF MEDICAL CLINIC RECORDS'
AE4A = '~GO TO A PRIVATE DOCTOR''S OFFICE'
AE4B = '~# OF DIFF PRIVATE DR OFFICES VISITED'
AE4BCT = '~NUMBER OF PRIVATE DOCTOR OFFICE RECORDS'
AF1A = '~GO TO SUPPORT GROUP,PSYCH COUNSEL/THER'
AF1B = '~HOW MANY DIFF SUPPORT GROUPS VISITED'
AF1BCT = '~NUMBER OF MENTAL HEALTH PROVIDER'
AF1SGA = '~AA (ALCOHOLICS ANONYMOUS)'
AF1SGB = '~HIV-ANONYMOUS'
AF1SGC = '~NA (NARCOTICS ANONYMOUS)'
AF1SGD = '~CDA'
AF1SGE = '~OTHER'
AF1SGEOS = '~OTHER SPECIFIED'
AF2A = '~GO TO ANY MEDICAL PRACTITIONERS'
AF2B = '~HOW MANY DIFF MED PRACTITIONERS VISITED'
AF2BCT = '~NUMBER OF MEDICAL PRACTITIONER RECORDS'
AF3A = '~GO TO ANY ALTERNATIVE THERAPIST'
AF3B = '~HOW MANY DIFF ALTER THERAPIST VISITED'
AF3BCT = '~NUMBER OF ALTERNATIVE THERAPIST RECORDS'
AF4A = '~BUY/REPLACE SPECIAL MEDICAL EQUIPMENT'
AF4BCT = '~NUMBER OF MEDICAL EQUIPMENT PROVIDER'
AG1 = '~HAVE ANY PEOPLE HELPED YOU AT HOME'
AG2 = '~BEEN HELPED AT HOME BY ANY OTHER PEOPLE'
AGACT = '~NUMBER OF HOME HEALTH PROVIDER RECORDS'
AH1A = '~GOT HELP FINDING/KEEPING PLACE TO LIVE'
AH1ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH2A = '~RECEIVED HELP WITH LEGAL SERVICES'
AH2ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH3A = '~RECEIVED HELP WITH CHILD CARE'
AH3ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH4A = '~RECEIVED HELP WITH TRANSPORTATION'
AH4ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH5A = '~RECEIVED HELP WITH OBTAINING FOOD'
AH5ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH6A = '~RECEIVED HELP WITH FINANCIAL ASSISTANCE'
AH6ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH7A = '~GOT HELP OBTAINING CLOTHING/HOUSE ITEMS'
AH7ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AH8A = '~RCVD HELP KICKING DRUG/ALCOHOL HABIT'
AH8ACT = '~NUMBER OF DIFFERENT PROVIDERS USED'
AI1 = '~SEEN DENTIST,ORAL SURN,DNTL CARE PROV'
AI2 = '~# OF TIMES SEEN DENTIST,ORAL SURG,ETC'
AI3CT = '~NUMBER OF DENTAL VISIT RECORDS'
AJ1 = '~TAKEN ANY MEDICINES OR DRUGS LISTED'
AJ2 = '~TAKEN OTHER PRESCRIPTION MEDICINE/DRUG'
AJACT = '~NUMBER OF PRESCRIPTION DRUG RECORDS'
AJ3 = '~TAKEN NON-PRESCRIPTION MEDICINES/DRUGS'
AJ3CT = '~# OF NON-PRESCRIPTION DRUGS LISTED'
AJ4A = '~NON-PRESCRIPTION DRUG 1'
AJ4B = '~NON-PRESCRIPTION DRUG 2'
AJ4C = '~NON-PRESCRIPTION DRUG 3'
AJ4D = '~NON-PRESCRIPTION DRUG 4'
AJ4E = '~NON-PRESCRIPTION DRUG 5'
AJ4F = '~NON-PRESCRIPTION DRUG 6'
AJ4G = '~NON-PRESCRIPTION DRUG 7'
AJ4H = '~NON-PRESCRIPTION DRUG 8'
AJ4I = '~NON-PRESCRIPTION DRUG 9'
AJ4J = '~NON-PRESCRIPTION DRUG 10'
AJ4K = '~NON-PRESCRIPTION DRUG 11'
AJ4L = '~NON-PRESCRIPTION DRUG 12'
AJ4M = '~NON-PRESCRIPTION DRUG 13'
AJ4N = '~NON-PRESCRIPTION DRUG 14'
AJ4O = '~NON-PRESCRIPTION DRUG 15'
AJ4P = '~NON-PRESCRIPTION DRUG 16'
AJ4Q = '~NON-PRESCRIPTION DRUG 17'
AJ4R = '~NON-PRESCRIPTION DRUG 18'
AJ4S = '~NON-PRESCRIPTION DRUG 19'
AJ4T = '~NON-PRESCRIPTION DRUG 20'
AJ4U = '~NON-PRESCRIPTION DRUG 21'
AJ4V = '~NON-PRESCRIPTION DRUG 22'
AJ4W = '~NON-PRESCRIPTION DRUG 23'
AJ4X = '~NON-PRESCRIPTION DRUG 24'
AJ5 = '~TOTAL AMOUNT PAID FOR NON-PRESCRIP MEDS'
AK1 = '~WORKED FULL TIME JOB MORE THAN 2 WEEKS'
AK2 = '~WORK FULL TIME, PART TIME, NOT WORKING'
AK3 = '~# OF HOURS WORKING NOW IN AVERAGE WEEK'
AK45OCC = '~CURRENT OCCUPATION,IMPORTANT ACTIVITIES'
AKBOX1 = '~WORK FULLTIME(=>35HRS) PARTTIME(<35HRS)'
AK6 = '~ACTIVELY LOOKING FOR (FULL TIME) WORK'
AK78OCC = '~OCCUPATION AT MOST RECENT FULL TIME JOB'
AK9 = '~REASON LEFT WORK AT LAST FULL TIME JOB'
AK10 = '~THIS HAPPENED BECAUSE OF HIV INFECTION'
AK11MO = '~IN WHAT MONTH DID YOU LEAVE THAT JOB'
AK11YR = '~IN WHAT YEAR DID YOU LEAVE THAT JOB'
AK12 = '~CHANGE TYPE/AMOUNT OF WORK BECAUSE ILL'
AK13 = '~WHAT TYPE OF CHANGE DID YOU MAKE?'
AK14 = '~TOTAL INCOME BEFORE TAXES FOR PAST MO.'
AK15 = '~TOTAL INCOME BEFORE TAXES FOR 1990'
AK16 = '~TOTAL INCOME BEFORE TAXES FOR 1989'
AK17 = '~AND HOW ABOUT YOUR INCOME FOR 1988?'
AK18 = '~RECEIVING SOCIAL SECUR DISABIL PAYMENT'
AK19MO = '~MO RECEIVED 1ST SOC SEC DISABIL PAYMENT'
AK19YR = '~YR RECEIVED 1ST SOC SEC DISABIL PAYMENT'
AK20 = '~APPLIED FOR SOC SEC DISABIL PAYMENT'
AK21 = '~TURNED DOWN FOR SOC SEC DISABIL PAYMENT'
AKBOX2 = '~R HAS:NO/1 OR MORE CHLDRN LIVING WITH'
AK22 = '~RECEIVING ASSISTANCE THROUGH AFDC/ADC'
AK23MO = '~MONTH RECEIVED 1ST AFDC PAYMENT'
AK23YR = '~YEAR RECEIVED 1ST AFDC PAYMENT'
AK24 = '~RECEIVING SUPPLEMENTAL SECURITY INCOME'
AK25MO = '~MONTH RECEIVED 1ST SSI PAYMENT'
AK25YR = '~YEAR RECEIVED 1ST SSI PAYMENT'
AK26 = '~RCVD $ FROM PARENTS, FRIENDS, FAMILY'
AK27 = '~HOW MUCH MONEY HAVE YOU RECEIVED'
;
RETURN;
/*****************************************************************************/
/* */
/* Input statement for Card 01 */
/* */
/*****************************************************************************/
CRD01 :
INPUT
APID01 001-009
AREC01 010-011
ASREC01 012-013
AITYPE $ 014
ARTYPE 015
ALANG 016
AREFMO $ 017-018
AREFDY $ 019-020
AREFYR $ 021-022
AENDMO $ 023-024
AENDDY $ 025-026
AENDYR $ 027-028
T1_STAT $ 029-030
OBSDAYS1 031-033
GAP1FLAG $ 034
ADM1 035-036
IPNGT1 037-039
AMBVS1 040-042
ERVS1 043-045
HCVS1 046-048
OCVS1 049-051
MDVS1 052-054
AA1 055-056
AA2MO $ 057-058
AA2YR $ 059-060
AA3 061-062
AA4 063-064
AA5 065
AA6 $ 066
AA7 $ 067
AA8 068
AA9 $ 069-070
AA10 $ 071
AA11 $ 072
AA12 $ 073-074
AB1 075
AB2 $ 076
AB3 $ 077-078
AB4 $ 079
AB5 $ 080
AB6MO $ 081-082
AB6YR $ 083-084
AB7 085
AB8 $ 086
AB9A $ 087
AB9B $ 088
AB9C $ 089
AB9D $ 090
AB9E $ 091
AB9F $ 092
AB9G $ 093
AB9H $ 094
AB9I $ 095
AB9J $ 096
AB9K $ 097
AB9L $ 098
AB11MO $ 099-100
AB11YR $ 101-102
AB12 $ 103
AB13 $ 104
AB14 105
AB16 106
AB17 $ 107-108
AB18 109
AB19 110
AB21A $ 111-112
AB21B $ 113
AC1 114
AC2 $ 115-116
AC04CT 117-118
AD1 119
AD2 $ 120-121
AD06CT 122-123
AE1A 124
AE1B $ 125-126
AE1BCT 127-128
AE2A 129
AE2B $ 130-131
AE2BCT 132-133
AE3A 134
AE3B $ 135-136
AE3BCT 137-138
AE4A 139
AE4B $ 140-141
AE4BCT 142-143
AF1A 144
AF1B $ 145-146
AF1BCT 147-148
AF1SGA 149
AF1SGB 150
AF1SGC 151
AF1SGD 152
AF1SGE 153
AF1SGEOS $ 154-155
AF2A 156
AF2B $ 157-158
AF2BCT 159-160
AF3A 161
AF3B $ 162-163
AF3BCT 164-165
AF4A 166
AF4BCT 167-168
AG1 169
AG2 170
AGACT 171-172
AH1A 173
AH1ACT 174-175
AH2A 176
AH2ACT 177-178
AH3A 179
AH3ACT 180-181
AH4A 182
AH4ACT 183-184
AH5A 185
AH5ACT 186-187
AH6A 188
AH6ACT 189-190
AH7A 191
AH7ACT 192-193
AH8A 194
AH8ACT 195-196
AI1 197
AI2 $ 198-199
AI3CT 200-201
AJ1 202
AJ2 203
AJACT 204-205
AJ3 206
AJ3CT 207-208
AJ4A $ 209-211
AJ4B $ 212-214
AJ4C $ 215-217
AJ4D $ 218-220
AJ4E $ 221-223
AJ4F $ 224-226
AJ4G $ 227-229
AJ4H $ 230-232
AJ4I $ 233-235
AJ4J $ 236-238
AJ4K $ 239-241
AJ4L $ 242-244
AJ4M $ 245-247
AJ4N $ 248-250
AJ4O $ 251-253
AJ4P $ 254-256
AJ4Q $ 257-259
AJ4R $ 260-262
AJ4S $ 263-265
AJ4T $ 266-268
AJ4U $ 269-271
AJ4V $ 272-274
AJ4W $ 275-277
AJ4X $ 278-280
AJ5 $ 281-286
AK1 287
AK2 $ 288
AK3 $ 289-291
AK45OCC $ 292-295
AKBOX1 $ 296
AK6 $ 297
AK78OCC $ 298-301
AK9 $ 302-303
AK10 $ 304
AK11MO $ 305-306
AK11YR $ 307-308
AK12 $ 309
AK13 $ 310-311
AK14 312-313
AK15 314
AK16 315
AK17 316
AK18 317
AK19MO $ 318-319
AK19YR $ 320-321
AK20 $ 322
AK21 $ 323
AKBOX2 324
AK22 $ 325
AK23MO $ 326-327
AK23YR $ 328-329
AK24 330
AK25MO $ 331-332
AK25YR $ 333-334
AK26 $ 335
AK27 $ 336-341
;
RETURN;
;
PROC FREQ ; TABLES
APID01
AREC01
ASREC01
AITYPE
ARTYPE
ALANG
AREFMO
AREFDY
AREFYR
AENDMO
AENDDY
AENDYR
T1_STAT
OBSDAYS1
GAP1FLAG
ADM1
IPNGT1
AMBVS1
ERVS1
HCVS1
OCVS1
MDVS1
AA1
AA2MO
AA2YR
AA3
AA4
AA5
AA6
AA7
AA8
AA9
AA10
AA11
AA12
AB1
AB2
AB3
AB4
AB5
AB6MO
AB6YR
AB7
AB8
AB9A
AB9B
AB9C
AB9D
AB9E
AB9F
AB9G
AB9H
AB9I
AB9J
AB9K
AB9L
AB11MO
AB11YR
AB12
AB13
AB14
AB16
AB17
AB18
AB19
AB21A
AB21B
AC1
AC2
AC04CT
AD1
AD2
AD06CT
AE1A
AE1B
AE1BCT
AE2A
AE2B
AE2BCT
AE3A
AE3B
AE3BCT
AE4A
AE4B
AE4BCT
AF1A
AF1B
AF1BCT
AF1SGA
AF1SGB
AF1SGC
AF1SGD
AF1SGE
AF1SGEOS
AF2A
AF2B
AF2BCT
AF3A
AF3B
AF3BCT
AF4A
AF4BCT
AG1
AG2
AGACT
AH1A
AH1ACT
AH2A
AH2ACT
AH3A
AH3ACT
AH4A
AH4ACT
AH5A
AH5ACT
AH6A
AH6ACT
AH7A
AH7ACT
AH8A
AH8ACT
AI1
AI2
AI3CT
AJ1
AJ2
AJACT
AJ3
AJ3CT
AJ4A
AJ4B
AJ4C
AJ4D
AJ4E
AJ4F
AJ4G
AJ4H
AJ4I
AJ4J
AJ4K
AJ4L
AJ4M
AJ4N
AJ4O
AJ4P
AJ4Q
AJ4R
AJ4S
AJ4T
AJ4U
AJ4V
AJ4W
AJ4X
AJ5
AK1
AK2
AK3
AK45OCC
AKBOX1
AK6
AK78OCC
AK9
AK10
AK11MO
AK11YR
AK12
AK13
AK14
AK15
AK16
AK17
AK18
AK19MO
AK19YR
AK20
AK21
AKBOX2
AK22
AK23MO
AK23YR
AK24
AK25MO
AK25YR
AK26
AK27
;