/* SHORT TITLE: Medical Record Abstract - Inpatient Stay */ PROC FORMAT ; VALUE UREC02F 02 = 'RECORD NUMBER ' ; VALUE UIPSAMF 99 = 'NOT ASCERTAINED ' ; VALUE $U8ACD1F '99999' = 'NOT ASCERTAINED/' ; VALUE $UIPSFLF '1' = 'CONTAINS ADDITIO' ; DATA SYSUT2 ; INFILE SYSUT1 END = EOF ; /*****************************************************************************/ /* */ /* GENSAS run of 06/27/1994 at 22:14:01 */ /* */ /*****************************************************************************/ INPUT CRDTYP 015-016 @; IF CRDTYP = 02 THEN DO ; LINK CRD02; OUTPUT; END ; ELSE DO ; PUT 'INVALID CRDTYP : ' CRDTYP = ; INPUT ; /* Release input line */ END ; RETURN; FORMAT UREC02 UREC02F. UIPSAMO UIPSAMF. UIPSADY UIPSAMF. UIPSAYR UIPSAMF. U8ACD1 $U8ACD1F. UIPSDMO UIPSAMF. UIPSDDY UIPSAMF. UIPSDYR UIPSAMF. U8BCD1 $U8ACD1F. UIPSFLG $UIPSFLF. ; LABEL /*****************************************************************************/ /* */ /* Begin Labels for Card 02 */ /* */ /*****************************************************************************/ UBAT02 = '~ALWAYS BLANK' UPID02 = '~PATIENT ID NUMBER' UREC02 = '~RECORD NUMBER' USREC02 = '~SUBRECORD NUMBER' UFIL102 = '~FIRST FILLER ON RECORD 02' UIPSAMO = '~INPATIENT STAY ADMISSION - MONTH' UIPSADY = '~INPATIENT STAY ADMISSION - DAY' UIPSAYR = '~INPATIENT STAY ADMISSION - YEAR' U8ACD1 = '~ADMISSION DIAGNOSIS FIRST LISTED' U8ACD2 = '~ADMISSION DIAGNOSIS SECOND LISTED' U8ACD3 = '~ADMISSION DIAGNOSIS THIRD LISTED' UFIL202 = '~SECOND FILLER ON RECORD 02' UIPSDMO = '~INPATIENT STAY DISCHARGE DATE - MONTH' UIPSDDY = '~INPATIENT STAY DISCHARGE DATE - DAY' UIPSDYR = '~INPATIENT STAY DISCHARGE DATE - YEAR' U8BCD1 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD2 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD3 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD4 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD5 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD6 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD7 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD8 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD9 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' U8BCD0 = '~DISCHARGE DIAGNOSIS OR CHECKLIST' UFIL302 = '~THIRD FILLER ON RECORD 02' USCID02 = '~USUAL SOURCE OF CARE PROVIDER ID NUMBER' UIPSFLG = '~INPATIENT STAY FLAG - RECORD CONTAINS' ; RETURN; /*****************************************************************************/ /* */ /* Input statement for Card 02 */ /* */ /*****************************************************************************/ CRD02 : INPUT UBAT02 $ 001-005 UPID02 006-014 UREC02 015-016 USREC02 017-018 UFIL102 019 UIPSAMO 020-021 UIPSADY 022-023 UIPSAYR 024-025 U8ACD1 $ 026-030 U8ACD2 $ 031-035 U8ACD3 $ 036-040 UFIL202 $ 041 UIPSDMO 042-043 UIPSDDY 044-045 UIPSDYR 046-047 U8BCD1 $ 048-052 U8BCD2 $ 053-057 U8BCD3 $ 058-062 U8BCD4 $ 063-067 U8BCD5 $ 068-072 U8BCD6 $ 073-077 U8BCD7 $ 078-082 U8BCD8 $ 083-087 U8BCD9 $ 088-092 U8BCD0 $ 093-097 UFIL302 $ 098-124 USCID02 125-131 UIPSFLG $ 132 ; RETURN; ; PROC FREQ ; TABLES UBAT02 UPID02 UREC02 USREC02 UFIL102 UIPSAMO UIPSADY UIPSAYR U8ACD1 U8ACD2 U8ACD3 UFIL202 UIPSDMO UIPSDDY UIPSDYR U8BCD1 U8BCD2 U8BCD3 U8BCD4 U8BCD5 U8BCD6 U8BCD7 U8BCD8 U8BCD9 U8BCD0 UFIL302 USCID02 UIPSFLG ;