/* SHORT TITLE: Medical Record Abstract - Patient */ PROC FORMAT ; VALUE UREC01F 01 = 'RECORD NUMBER ' ; VALUE USREC0F 00 = 'NOT A REPEATING ' ; VALUE URMOF_F 99 = 'NOT ASCERTAINED ' ; VALUE UHIV__F 0 = 'NO ' 1 = 'YES ' 3 = 'INCONCLUSIVE ' 9 = 'UNKNOWN, RECORD ' ; VALUE $UHDIAGF '99' = 'NOT ASCERTAINED ' ; VALUE UAIDS_F 0 = 'NO, PATIENT DOES' 1 = 'YES, PATIENT HAS' 9 = 'UNKNOWN, RECORD ' ; DATA SYSUT2 ; INFILE SYSUT1 END = EOF ; /*****************************************************************************/ /* */ /* GENSAS run of 06/27/1994 at 22:11:53 */ /* */ /*****************************************************************************/ 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-014 @ ; HOLD_ID = ID ; /*****************************************************************************/ /* */ /* Read in data until ID changes ... */ /* */ /*****************************************************************************/ DO WHILE (ID = HOLD_ID); INPUT CRDTYP 015-016 @; 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-014 @; END; DROP HOLD_ID CRDTYP CRDCTSI CRDC01 - CRDC99 ; OUTPUT ; INPUT @@ ; /* Hold input line */ RETURN; FORMAT UREC01 UREC01F. USREC01 USREC0F. URMOF URMOF_F. URDYF URMOF_F. URYRF URMOF_F. URMOL URMOF_F. URDYL URMOF_F. URYRL URMOF_F. UHIV UHIV__F. UHDIAGMO $UHDIAGF. UHDIAGDY $UHDIAGF. UHDIAGYR $UHDIAGF. UHRDMO $UHDIAGF. UHRDDY $UHDIAGF. UHRDYR $UHDIAGF. UAIDS UAIDS_F. UADIAGMO $UHDIAGF. UADIAGDY $UHDIAGF. UADIAGYR $UHDIAGF. UAIDRDMO $UHDIAGF. UAIDRDDY $UHDIAGF. UAIDRDYR $UHDIAGF. ; LABEL /*****************************************************************************/ /* */ /* Begin Labels for Card 01 */ /* */ /*****************************************************************************/ UBAT01 = '~ALWAYS BLANK' UPID01 = '~PATIENT NUMBER' UREC01 = '~RECORD NUMBER' USREC01 = '~SUBRECORD NUMBER' UFIL101 = '~FIRST FILLER ON RECORD 01' URMOF = '~MONTH OF EARLIEST RECORD REVIEWED' URDYF = '~DAY OF EARLIEST RECORD REVIEWED' URYRF = '~YEAR OF EARLIEST RECORD REVIEWED' URMOL = '~MONTH OF LATEST RECORD REVIEWED' URDYL = '~DAY OF LATEST RECORD REVIEWED (DERIVED)' URYRL = '~YEAR OF LATEST RECORD REVIEWED' UHIV = '~HIV POSITIVE DIAGNOSIS (DERIVED)' UHDIAGMO = '~DATE OF HIV DIAGNOSIS - MONTH (DERIVED)' UHDIAGDY = '~DATE OF HIV DIAGNOSIS - DAY (DERIVED)' UHDIAGYR = '~DATE OF HIV DIAGNOSIS - YEAR (DERIVED)' UHRDMO = '~DATE HIV FIRST REPORTED IN RECORD -' UHRDDY = '~DATE HIV FIRST REPORTED IN RECORD - DAY' UHRDYR = '~DATE HIV FIRST REPORTED IN RECORD -' UAIDS = '~AIDS DIAGNOSIS (DERIVED)' UADIAGMO = '~DATE OF AIDS DIAGNOSIS - MONTH' UADIAGDY = '~DATE OF AIDS DIAGNOSIS - DAY (DERIVED)' UADIAGYR = '~DATE OF AIDS DIAGNOSIS - YEAR (DERIVED)' UAIDRDMO = '~DATE AIDS FIRST REPORTED IN RECORD -' UAIDRDDY = '~DATE AIDS FIRST REPORTED IN RECORD -' UAIDRDYR = '~DATE AIDS FIRST REPORTED IN RECORD -' UFIL201 = '~SECOND FILLER ON RECORD 01' ; RETURN; /*****************************************************************************/ /* */ /* Input statement for Card 01 */ /* */ /*****************************************************************************/ CRD01 : INPUT UBAT01 $ 001-005 UPID01 006-014 UREC01 015-016 USREC01 017-018 UFIL101 019 URMOF 020-021 URDYF 022-023 URYRF 024-025 URMOL 026-027 URDYL 028-029 URYRL 030-031 UHIV 032 UHDIAGMO $ 033-034 UHDIAGDY $ 035-036 UHDIAGYR $ 037-038 UHRDMO $ 039-040 UHRDDY $ 041-042 UHRDYR $ 043-044 UAIDS 045 UADIAGMO $ 046-047 UADIAGDY $ 048-049 UADIAGYR $ 050-051 UAIDRDMO $ 052-053 UAIDRDDY $ 054-055 UAIDRDYR $ 056-057 UFIL201 $ 058-132 ; RETURN; ; PROC FREQ ; TABLES UBAT01 UPID01 UREC01 USREC01 UFIL101 URMOF URDYF URYRF URMOL URDYL URYRL UHIV UHDIAGMO UHDIAGDY UHDIAGYR UHRDMO UHRDDY UHRDYR UAIDS UADIAGMO UADIAGDY UADIAGYR UAIDRDMO UAIDRDDY UAIDRDYR UFIL201 ;