/* SHORT TITLE: Medical Record Abstract - HIV Checklist */
PROC FORMAT
;
VALUE UREC03F
03 = 'RECORD NUMBER '
;
VALUE UCCDXMF
99 = 'NOT ASCERTAINED '
;
VALUE $UCCR2MF
'99' = 'NOT ASCERTAINED '
;
DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;
/*****************************************************************************/
/* */
/* GENSAS run of 06/27/1994 at 22:17:16 */
/* */
/*****************************************************************************/
INPUT CRDTYP 015-016 @;
IF CRDTYP = 03 THEN
DO ;
LINK CRD03;
OUTPUT;
END ;
ELSE
DO ;
PUT 'INVALID CRDTYP : ' CRDTYP = ;
INPUT ; /* Release input line */
END ;
RETURN;
FORMAT
UREC03 UREC03F.
UCCDXMO UCCDXMF.
UCCDXDY UCCDXMF.
UCCDXYR UCCDXMF.
UCCR1MO UCCDXMF.
UCCR1DY UCCDXMF.
UCCR2MO $UCCR2MF.
UCCR2DY $UCCR2MF.
UCCR3MO $UCCR2MF.
UCCR3DY $UCCR2MF.
UCCR4MO $UCCR2MF.
UCCR4DY $UCCR2MF.
UCCR5MO $UCCR2MF.
UCCR5DY $UCCR2MF.
UCCR6MO $UCCR2MF.
UCCR6DY $UCCR2MF.
UCCR7MO $UCCR2MF.
UCCR7DY $UCCR2MF.
UCCR8MO $UCCR2MF.
UCCR8DY $UCCR2MF.
;
LABEL
/*****************************************************************************/
/* */
/* Begin Labels for Card 03 */
/* */
/*****************************************************************************/
UBAT03 = '~ALWAYS BLANK'
UPID03 = '~PATIENT ID NUMBER'
UREC03 = '~RECORD NUMBER'
USREC03 = '~SUBRECORD NUMBER'
UFIL103 = '~FIRST FILLER ON RECORD 03'
U9ACODE = '~CHECK LIST CONDITION\'
UCCDXMO = '~DATE OF DIAGNOSIS OR ONSET OF CONDITION'
UCCDXDY = '~DATE OF DIAGNOSIS OR ONSET OF CONDITION'
UCCDXYR = '~DATE OF DIAGNOSIS OR ONSET OF CONDITION'
UCCR1MO = '~FIRST REPORT DATE - MONTH'
UCCR1DY = '~FIRST REPORT DATE - DAY'
UCCR1YR = '~FIRST REPORT DATE - YEAR'
UCCR2MO = '~SECOND REPORT DATE - MONTH'
UCCR2DY = '~SECOND REPORT DATE - DAY'
UCCR2YR = '~SECOND REPORT DATE - YEAR'
UCCR3MO = '~THIRD REPORT DATE - MONTH'
UCCR3DY = '~THIRD REPORT DATE - DAY'
UCCR3YR = '~THIRD REPORT DATE - YEAR'
UCCR4MO = '~FOURTH REPORT DATE - MONTH'
UCCR4DY = '~FOURTH REPORT DATE - DAY'
UCCR4YR = '~FOURTH REPORT DATE - YEAR'
UCCR5MO = '~FIFTH REPORT DATE - MONTH'
UCCR5DY = '~FIFTH REPORT DATE - DAY'
UCCR5YR = '~FIFTH REPORT DATE - YEAR'
UCCR6MO = '~SIXTH REPORT DATE - MONTH'
UCCR6DY = '~SIXTH REPORT DATE - DAY'
UCCR6YR = '~SIXTH REPORT DATE - YEAR'
UCCR7MO = '~SEVENTH REPORT DATE - MONTH'
UCCR7DY = '~SEVENTH REPORT DATE - DAY'
UCCR7YR = '~SEVENTH REPORT DATE - YEAR'
UCCR8MO = '~EIGHTH REPORT DATE - MONTH'
UCCR8DY = '~EIGHTH REPORT DATE - DAY'
UCCR8YR = '~EIGHTH REPORT DATE - YEAR'
UFIL203 = '~SECOND FILLER ON RECORD 03'
USCID03 = '~USUAL SOURCE OF CARE PROVIDER ID'
UFIL303 = '~THIRD FILLER ON RECORD 03'
;
RETURN;
/*****************************************************************************/
/* */
/* Input statement for Card 03 */
/* */
/*****************************************************************************/
CRD03 :
INPUT
UBAT03 $ 001-005
UPID03 006-014
UREC03 015-016
USREC03 017-018
UFIL103 019
U9ACODE $ 020-024
UCCDXMO 025-026
UCCDXDY 027-028
UCCDXYR 029-030
UCCR1MO 031-032
UCCR1DY 033-034
UCCR1YR 035-036
UCCR2MO $ 037-038
UCCR2DY $ 039-040
UCCR2YR $ 041-042
UCCR3MO $ 043-044
UCCR3DY $ 045-046
UCCR3YR $ 047-048
UCCR4MO $ 049-050
UCCR4DY $ 051-052
UCCR4YR $ 053-054
UCCR5MO $ 055-056
UCCR5DY $ 057-058
UCCR5YR $ 059-060
UCCR6MO $ 061-062
UCCR6DY $ 063-064
UCCR6YR $ 065-066
UCCR7MO $ 067-068
UCCR7DY $ 069-070
UCCR7YR $ 071-072
UCCR8MO $ 073-074
UCCR8DY $ 075-076
UCCR8YR $ 077-078
UFIL203 $ 079-124
USCID03 125-131
UFIL303 $ 132
;
RETURN;
;
PROC FREQ ; TABLES
UBAT03
UPID03
UREC03
USREC03
UFIL103
U9ACODE
UCCDXMO
UCCDXDY
UCCDXYR
UCCR1MO
UCCR1DY
UCCR1YR
UCCR2MO
UCCR2DY
UCCR2YR
UCCR3MO
UCCR3DY
UCCR3YR
UCCR4MO
UCCR4DY
UCCR4YR
UCCR5MO
UCCR5DY
UCCR5YR
UCCR6MO
UCCR6DY
UCCR6YR
UCCR7MO
UCCR7DY
UCCR7YR
UCCR8MO
UCCR8DY
UCCR8YR
UFIL203
USCID03
UFIL303
;