/* SHORT TITLE:  Medical Record Abstract - T Cell Counts   */
PROC FORMAT
;
VALUE  UREC04F
   04  = 'RECORD NUMBER   '
;
VALUE  U10MO_F
   99  = 'NOT ASCERTAINED '
;
VALUE $U4CT__F
  '9999' = 'NOT ASCERTAINED '
;
     DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;

 /*****************************************************************************/
 /*                                                                           */
 /*                   GENSAS run of 06/27/1994 at 22:22:23                    */
 /*                                                                           */
 /*****************************************************************************/

          INPUT CRDTYP     015-016  @;

          IF CRDTYP = 04 THEN
          DO ;
               LINK CRD04;
               OUTPUT;
          END ;
          ELSE
          DO ;
               PUT 'INVALID CRDTYP : ' CRDTYP  = ;
               INPUT ; /* Release input line */
          END ;

     RETURN;


FORMAT
UREC04    UREC04F.
U10MO     U10MO_F.
U10DY     U10MO_F.
U10YR     U10MO_F.
U4CT     $U4CT__F.
U8CT     $U4CT__F.
;
     LABEL

 /*****************************************************************************/
 /*                                                                           */
 /*                         Begin Labels for Card 04                          */
 /*                                                                           */
 /*****************************************************************************/

          UBAT04   = '~ALWAYS BLANK'
          UPID04   = '~PATIENT ID NUMBER'
          UREC04   = '~RECORD NUMBER'
          USREC04  = '~SUBRECORD NUMBER'
          UFIL104  = '~FIRST FILLER ON RECORD 04'
          U10MO    = '~T - CELL COUNT REPORT DATE - MONTH'
          U10DY    = '~T - CELL COUNT REPORT DATE - DAY'
          U10YR    = '~T - CELL COUNT REPORT DATE - YEAR'
          U4CT     = '~CD4+/T4 - ABSOLUTE COUNT'
          U4PC     = '~CD4+/T4 - PERCENT OF TOTAL NUMBER OF'
          U8CT     = '~CD8+/T8 - ABSOLUTE COUNT'
          U8PC     = '~CD8+/T8 - PERCENT OF TOTAL NUMBER OF'
          UFIL204  = '~SECOND FILLER ON RECORD 04'
          USCID04  = '~USUAL SOURCE OF CARE PROVIDER ID'
          UFIL304  = '~THIRD FILLER ON RECORD 04'
     ;
     RETURN;

 /*****************************************************************************/
 /*                                                                           */
 /*                        Input statement for Card 04                        */
 /*                                                                           */
 /*****************************************************************************/

     CRD04 :
     INPUT
               UBAT04       $     001-005
               UPID04             006-014
               UREC04             015-016
               USREC04            017-018
               UFIL104            019
               U10MO              020-021
               U10DY              022-023
               U10YR              024-025
               U4CT         $     026-029
               U4PC         $     030-031
               U8CT         $     032-035
               U8PC         $     036-037
               UFIL204      $     038-124
               USCID04            125-131
               UFIL304      $     132
     ;
     RETURN;
     ;
     PROC FREQ ;  TABLES
          UBAT04
          UPID04
          UREC04
          USREC04
          UFIL104
          U10MO
          U10DY
          U10YR
          U4CT
          U4PC
          U8CT
          U8PC
          UFIL204
          USCID04
          UFIL304
     ;