- AQACQR2 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR CHS INPATIENT REGISTER-PART 3; [11/07/87 4:59 PM] ; 11/7/89 9:30 AM
- ;;CHS QA/UR Version 2.04;11/7/89
- R11 ;
- S DHD="[AQACLINJHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACLOSINJ]",L=0,BY="'DISCHARGE DATE,'(CODE>799&(CODE<996)),+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- R12 ;
- S DHD="[AQACLSRGHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACLOSSRG]",L=0,BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- R13 ;
- S DHD="[AQACLPEDHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACLOSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- R14 ;
- S DHD="[AQACLPSYHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACLOSPSY]",L=0,BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- R15 ;
- S DHD="[AQACINJHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACINJANALYSIS]",L=0
- S BY="'DISCHARGE DATE,(CODE>799&(CODE<996)),+NAME:SEX;""SEX: "";C1;S2,+AGE RANGE:QA AGE RANGE:RANGE;""AGE RANGE: "";S;C5,DISCHARGE STATUS;""DISCHARGE STATUS: "";S;C10,"" "";"" """,FR=AQASD_",,,,,",TO=AQAFD_",,,,,"
- D PRT^AQACQR
- Q
- R16 ;
- S DHD="[AQACMSHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACMATSTAT]",L=0,BY="'DISCHARGE DATE,(CODE>629&(CODE<677)),+AGE RANGE2:QA AGE RANGE:RANGE;""AGE RANGE: "";S,ICD-9CM,"" "";"" """,FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- R17 ;
- S DHD="[AQACNBHDR]"
- S DIC="^AQACHSAD(",FLDS="[AQACNBSTATS]",L=0,BY="'DISCHARGE DATE,SERVICE=""OB"",NBN ICD-9'="""",+CONTRACT FACILITY;C1;S,"" "";"" """,FR=AQASD_",,,,",TO=AQAFD_",,,,"
- D PRT^AQACQR
- Q
- AQACQR2 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR CHS INPATIENT REGISTER-PART 3; [11/07/87 4:59 PM] ; 11/7/89 9:30 AM
- +1 ;;CHS QA/UR Version 2.04;11/7/89
- R11 ;
- +1 SET DHD="[AQACLINJHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACLOSINJ]"
- SET L=0
- SET BY="'DISCHARGE DATE,'(CODE>799&(CODE<996)),+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT
- R12 ;
- +1 SET DHD="[AQACLSRGHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACLOSSRG]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT
- R13 ;
- +1 SET DHD="[AQACLPEDHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACLOSPED]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT
- R14 ;
- +1 SET DHD="[AQACLPSYHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACLOSPSY]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT
- R15 ;
- +1 SET DHD="[AQACINJHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACINJANALYSIS]"
- SET L=0
- +3 SET BY="'DISCHARGE DATE,(CODE>799&(CODE<996)),+NAME:SEX;""SEX: "";C1;S2,+AGE RANGE:QA AGE RANGE:RANGE;""AGE RANGE: "";S;C5,DISCHARGE STATUS;""DISCHARGE STATUS: "";S;C10,"" "";"" """
- SET FR=AQASD_",,,,,"
- SET TO=AQAFD_",,,,,"
- +4 DO PRT^AQACQR
- +5 QUIT
- R16 ;
- +1 SET DHD="[AQACMSHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACMATSTAT]"
- SET L=0
- SET BY="'DISCHARGE DATE,(CODE>629&(CODE<677)),+AGE RANGE2:QA AGE RANGE:RANGE;""AGE RANGE: "";S,ICD-9CM,"" "";"" """
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT
- R17 ;
- +1 SET DHD="[AQACNBHDR]"
- +2 SET DIC="^AQACHSAD("
- SET FLDS="[AQACNBSTATS]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""OB"",NBN ICD-9'="""",+CONTRACT FACILITY;C1;S,"" "";"" """
- SET FR=AQASD_",,,,"
- SET TO=AQAFD_",,,,"
- +3 DO PRT^AQACQR
- +4 QUIT