/* 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
     ;