/* SHORT TITLE:  Patient Characteristics - Screener   */
PROC FORMAT
;
VALUE $ASSTATF
  'S' = 'COMPLETE, SELECT'
  'N' = 'COMPLETE, NOT SE'
;
VALUE $SEX___F
  '1' = 'MALE            '
  '2' = 'FEMALE          '
  '9' = 'NOT ASCERTAINED '
;
VALUE $RACE__F
  '01' = 'WHITE (NOT HISPA'
  '02' = 'BLACK (NOT HISPA'
  '03' = 'HISPANIC        '
  '04' = 'OTHER           '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $EXPROUF
  '01' = 'IV DRUG USER    '
  '02' = 'HOMOSEXUAL/BISEX'
  '03' = 'BOTH CODES 01 & '
  '04' = 'HETEROSEXUAL CON'
  '05' = 'BLOOD TRANSFUSIO'
  '08' = 'OTHER           '
  '10' = 'BOTH CODES 01 & '
  '11' = 'BOTH CODES 02 & '
  '12' = 'BOTH CODES 03 & '
  '13' = 'BOTH CODES 02 & '
  '14' = 'BOTH CODES 01 & '
  '15' = 'BOTH CODES 04 & '
  '99' = 'NOT ASCERTAINED '
;
VALUE $AGE___F
  '19' = '15-19 YEARS     '
  '60' = '60-78 YEARS     '
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $AS3___F
  '1' = 'YES             '
;
VALUE $AS4MO_F
  '97' = 'REFUSED         '
  '98' = 'DK              '
  '99' = 'NOT ASCERTAINED '
;
VALUE $AS8A__F
  '1' = 'CHECKED         '
  '2' = 'NOT CHECKED     '
  '9' = 'NOT ASCERTAINED '
;
VALUE $AS9X__F
  '1' = 'WRITTEN IN MARGI'
  '2' = 'NOT WRITTEN IN M'
  '9' = 'NOT ASCERTAINED '
;
VALUE $T1_STAF
  'CO' = 'COMPLETE        '
  'PR' = 'PROXY COMPLETE  '
  'DD' = 'DECEASED, COMPLE'
  'IN' = 'TEMPORARILY INEL'
  'ND' = 'DECEASED, NO INT'
  'RB' = 'REFUSAL/BREAKOFF'
  'TI' = 'TOO ILL/MENTALLY'
  'UL' = 'FINAL UNLOCATABL'
  'ON' = 'OTHER NONRESPONS'
;
VALUE $ILLSTAF
  'UNKN' = 'UNKNOWN         '
  'ASYM' = 'ASYMPTOMATIC    '
  'HIV' = 'HIV ILL (NOT AID'
  'AIDS' = 'AIDS            '
;
VALUE $VITSTAF
  '1' = 'LIVE            '
  '2' = 'DECEASED        '
  '9' = 'UNKNOWN         '
;
VALUE $DODSOUF
  '1' = 'DEATH CERTIFICAT'
  '2' = 'MEDICAL RECORDS '
  '3' = 'PROXY REPORTED  '
;
VALUE  TOBSDAF
   999  = 'NOT ASCERTAINED '
;
VALUE  ADMTOTF
   00  = 'NONE            '
;
VALUE  IPNGTTF
   000  = 'NONE            '
;
     DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;

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

     INPUT
               PATID              001-009
               ASSTAT       $     010
               SEX          $     011
               RACE         $     012-013
               EXPROUTE     $     014-015
               AGE          $     016-017
               AS3          $     018
               AS4MO        $     019-020
               AS4YR        $     021-022
               AS8A         $     023
               AS8B         $     024
               AS8C         $     025
               AS8D         $     026
               AS8E         $     027
               AS9A         $     028
               AS9B         $     029
               AS9C         $     030
               AS9D         $     031
               AS9E         $     032
               AS9F         $     033
               AS9G         $     034
               AS9H         $     035
               AS9I         $     036
               AS9J         $     037
               AS9K         $     038
               AS9L         $     039
               AS9M         $     040
               AS9N         $     041
               AS9O         $     042
               AS9P         $     043
               AS9Q         $     044
               AS9R         $     045
               AS9X         $     046
               T1_STAT      $     047-048
               T2_STAT      $     049-050
               T3_STAT      $     051-052
               T4_STAT      $     053-054
               T5_STAT      $     055-056
               T6_STAT      $     057-058
               ILLSTAGE     $     059-062
               VITSTAT      $     063
               VSLIVEMO     $     064-065
               VSLIVEDY     $     066-067
               VSLIVEYR     $     068-069
               DODMO        $     070-071
               DODDY        $     072-073
               DODYR        $     074-075
               DODSOURC     $     076
               TOBSDAYS           077-079
               ADMTOT             080-081
               IPNGTTOT           082-084
               AMBVSTOT           085-087
               ERVSTOT            088-090
               HCVSTOT            091-093
               OCVSTOT            094-096
               MDVSTOT            097-099
     ;

FORMAT
ASSTAT   $ASSTATF.
SEX      $SEX___F.
RACE     $RACE__F.
EXPROUTE $EXPROUF.
AGE      $AGE___F.
AS3      $AS3___F.
AS4MO    $AS4MO_F.
AS4YR    $AS4MO_F.
AS8A     $AS8A__F.
AS8B     $AS8A__F.
AS8C     $AS8A__F.
AS8D     $AS8A__F.
AS8E     $AS8A__F.
AS9A     $AS8A__F.
AS9B     $AS8A__F.
AS9C     $AS8A__F.
AS9D     $AS8A__F.
AS9E     $AS8A__F.
AS9F     $AS8A__F.
AS9G     $AS8A__F.
AS9H     $AS8A__F.
AS9I     $AS8A__F.
AS9J     $AS8A__F.
AS9K     $AS8A__F.
AS9L     $AS8A__F.
AS9M     $AS8A__F.
AS9N     $AS8A__F.
AS9O     $AS8A__F.
AS9P     $AS8A__F.
AS9Q     $AS8A__F.
AS9R     $AS8A__F.
AS9X     $AS9X__F.
T1_STAT  $T1_STAF.
T2_STAT  $T1_STAF.
T3_STAT  $T1_STAF.
T4_STAT  $T1_STAF.
T5_STAT  $T1_STAF.
T6_STAT  $T1_STAF.
ILLSTAGE $ILLSTAF.
VITSTAT  $VITSTAF.
DODSOURC $DODSOUF.
TOBSDAYS  TOBSDAF.
ADMTOT    ADMTOTF.
IPNGTTOT  IPNGTTF.
AMBVSTOT  IPNGTTF.
ERVSTOT   IPNGTTF.
HCVSTOT   IPNGTTF.
OCVSTOT   IPNGTTF.
MDVSTOT   IPNGTTF.
;
     LABEL

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

          PATID    = '~PATIENT ID NUMBER'
          ASSTAT   = '~SCREENER STATUS CODE'
          SEX      = '~GENDER (DERIVED)'
          RACE     = '~RACE/ETHNICITY (DERIVED)'
          EXPROUTE = '~EXPOSURE ROUTE (DERIVED)'
          AGE      = '~AGE AT START OF STUDY (3/1/91), IN'
          AS3      = '~AT TIME OF SCREENER SUBJECT REPORTED'
          AS4MO    = '~MONTH OF POSITIVE HIV TEST'
          AS4YR    = '~YEAR OF POSITIVE HIV TEST'
          AS8A     = '~SWOLLEN GLANDS (LYMPH NODES)'
          AS8B     = '~PERSISTENT FEVER'
          AS8C     = '~DIARRHEA'
          AS8D     = '~WEIGHT LOSS (NOT INTENTIONAL)'
          AS8E     = '~NONE'
          AS9A     = '~CANDIDIASIS (THRUSH)'
          AS9B     = '~PCP (PNEUMOCYSTIS CARINII PNEUMONIA)'
          AS9C     = '~KAPOSI''S SARCOMA (KS)'
          AS9D     = '~LYMPHOMA'
          AS9E     = '~WASTING SYNDROME'
          AS9F     = '~TB (TUBERCULOSIS)'
          AS9G     = '~CRYPTOCOCCOSIS'
          AS9H     = '~CMV (CYTOMEGALOVIRUS)'
          AS9I     = '~MAI'
          AS9J     = '~CRYPTOSPORIDOSIS'
          AS9K     = '~DEMENTIA'
          AS9L     = '~HERPES SIMPLEX'
          AS9M     = '~HISTOPLASMOSIS'
          AS9N     = '~TOXOPLASMOSIS (TOXO)'
          AS9O     = '~ISOSPORIASIS'
          AS9P     = '~LEUKOENCEPHALOPATHY'
          AS9Q     = '~SALMONELLOSIS'
          AS9R     = '~NONE'
          AS9X     = '~PWA (PATIENT WITH AIDS)'
          T1_STAT  = '~TIME 1 QUEX STATUS'
          T2_STAT  = '~TIME 2 QUEX STATUS'
          T3_STAT  = '~TIME 3 QUEX STATUS'
          T4_STAT  = '~TIME 4 QUEX STATUS'
          T5_STAT  = '~TIME 5 QUEX STATUS'
          T6_STAT  = '~TIME 6 QUEX STATUS'
          ILLSTAGE = '~STAGE OF HIV ILLNESS AT TIME OF'
          VITSTAT  = '~VITAL STATUS AT END OF STUDY PERIOD -'
          VSLIVEMO = '~LAST KNOW LIVE - MONTH'
          VSLIVEDY = '~LAST KNOW LIVE - DAY'
          VSLIVEYR = '~LAST KNOW LIVE - YEAR'
          DODMO    = '~DATE OF DEATH - MONTH'
          DODDY    = '~DATE OF DEATH - DAY'
          DODYR    = '~DATE OF DEATH - YEAR'
          DODSOURC = '~SOURCE OF DATE OF DEATH'
          TOBSDAYS = '~TOTAL OBSERVATION DAYS (DERIVED)'
          ADMTOT   = '~TOTAL PATIENT ADMISSIONS'
          IPNGTTOT = '~TOTAL INPATIENT NIGHTS'
          AMBVSTOT = '~TOTAL AMBULATORY VISITS TO HOSPITAL'
          ERVSTOT  = '~TOTAL EMERGENCY ROOM VISITS'
          HCVSTOT  = '~TOTAL HOSPITAL CLINIC VISITS'
          OCVSTOT  = '~TOTAL OTHER CLINIC VISITS'
          MDVSTOT  = '~TOTAL PRIVATE PHYSICIAN VISITS'
     ;
     RETURN;

     PROC FREQ ;  TABLES
          PATID
          ASSTAT
          SEX
          RACE
          EXPROUTE
          AGE
          AS3
          AS4MO
          AS4YR
          AS8A
          AS8B
          AS8C
          AS8D
          AS8E
          AS9A
          AS9B
          AS9C
          AS9D
          AS9E
          AS9F
          AS9G
          AS9H
          AS9I
          AS9J
          AS9K
          AS9L
          AS9M
          AS9N
          AS9O
          AS9P
          AS9Q
          AS9R
          AS9X
          T1_STAT
          T2_STAT
          T3_STAT
          T4_STAT
          T5_STAT
          T6_STAT
          ILLSTAGE
          VITSTAT
          VSLIVEMO
          VSLIVEDY
          VSLIVEYR
          DODMO
          DODDY
          DODYR
          DODSOURC
          TOBSDAYS
          ADMTOT
          IPNGTTOT
          AMBVSTOT
          ERVSTOT
          HCVSTOT
          OCVSTOT
          MDVSTOT
     ;