- AQACQRI2 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR IHS QA INPATIENT REGISTER-PART 3 ; [ 11/22/87 6:00 PM ] ; 11/7/89 9:31 AM
- ;;IHS QA/UR Version 2.04;11/7/89
- R11 ;
- S DHD="[AQACILINJHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSINJ]",L=0,BY="'DISCHARGE DATE,'(CODE>799&(CODE<996)),@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- R12 ;
- S DHD="[AQACILSRGHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSSRG]",L=0,BY="'DISCHARGE DATE,SERVICE=""SURGERY"",@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- R13 ;
- S DHD="[AQACILPEDHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- R14 ;
- S DHD="[AQACILPSYHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- R15 ;
- S DHD="[AQACIINJHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACIINJANALYSIS]",L=0
- S BY="'DISCHARGE DATE,(CODE>799&(CODE<996)),+NAME: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^AQACQRI
- Q
- R16 ;
- S DHD="[AQACIMSHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACIMATSTAT]",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^AQACQRI
- Q
- R17 ;
- S DHD="[AQACINBHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACINBSTAT]",L=0,BY="'DISCHARGE DATE,SERVICE=""OB"",NBN ICD-9'=""""",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- AQACQRI2 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR IHS QA INPATIENT REGISTER-PART 3 ; [ 11/22/87 6:00 PM ] ; 11/7/89 9:31 AM
- +1 ;;IHS QA/UR Version 2.04;11/7/89
- R11 ;
- +1 SET DHD="[AQACILINJHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSINJ]"
- SET L=0
- SET BY="'DISCHARGE DATE,'(CODE>799&(CODE<996)),@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R12 ;
- +1 SET DHD="[AQACILSRGHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSSRG]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""SURGERY"",@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R13 ;
- +1 SET DHD="[AQACILPEDHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSPED]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R14 ;
- +1 SET DHD="[AQACILPSYHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSPED]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R15 ;
- +1 SET DHD="[AQACIINJHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACIINJANALYSIS]"
- SET L=0
- +3 SET BY="'DISCHARGE DATE,(CODE>799&(CODE<996)),+NAME: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^AQACQRI
- +5 QUIT
- R16 ;
- +1 SET DHD="[AQACIMSHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACIMATSTAT]"
- 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^AQACQRI
- +4 QUIT
- R17 ;
- +1 SET DHD="[AQACINBHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACINBSTAT]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""OB"",NBN ICD-9'="""""
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
