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