- AQACQRI1 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR IHS QA INPATIENT REGISTER-PART 2; [ 11/22/87 5:59 PM ] ; 11/7/89 9:27 AM
- ;;IHS QA/UR Version 2.04;11/7/89
- ;
- R2 ;
- S DHD="[AQACICGMHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSGM]",L=0,BY="'DISCHARGE DATE,SERVICE=""GEN MED"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R3 ;
- S DHD="[AQACICGYNHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSGYN]",L=0,BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),+CODE:QA GYN CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R4 ;
- S DHD="[AQACICINJHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSINJ]",L=0,BY="'DISCHARGE DATE,CODE>799&(CODE<996),+CODE:QA INJ CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R5 ;
- S DHD="[AQACICSRGHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSSRG]",L=0,BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R6 ;
- S DHD="[AQACICPEDHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R7 ;
- S DHD="[AQACICPSYHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACICLASSPSY]",L=0,BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"
- D PRT^AQACQRI
- Q
- R8 ;
- S DHD="[AQACILALLHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSALL]",L=0,BY="'DISCHARGE DATE,@(+ICD-9CM)",FR=AQASD_",",TO=AQAFD_","
- D PRT^AQACQRI
- Q
- R9 ;
- S DHD="[AQACILGMHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSGM]",L=0,BY="'DISCHARGE DATE,SERVICE=""GEN MED"",@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- R10 ;
- S DHD="[AQACILGYNHDR]"
- S DIC="^AQACIHS(",FLDS="[AQACILOSGYN]",L=0,BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),@(+ICD-9CM)",FR=AQASD_",,",TO=AQAFD_",,"
- D PRT^AQACQRI
- Q
- AQACQRI1 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR IHS QA INPATIENT REGISTER-PART 2; [ 11/22/87 5:59 PM ] ; 11/7/89 9:27 AM
- +1 ;;IHS QA/UR Version 2.04;11/7/89
- +2 ;
- R2 ;
- +1 SET DHD="[AQACICGMHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSGM]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""GEN MED"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R3 ;
- +1 SET DHD="[AQACICGYNHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSGYN]"
- SET L=0
- SET BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),+CODE:QA GYN CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R4 ;
- +1 SET DHD="[AQACICINJHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSINJ]"
- SET L=0
- SET BY="'DISCHARGE DATE,CODE>799&(CODE<996),+CODE:QA INJ CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R5 ;
- +1 SET DHD="[AQACICSRGHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSSRG]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R6 ;
- +1 SET DHD="[AQACICPEDHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSPED]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R7 ;
- +1 SET DHD="[AQACICPSYHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACICLASSPSY]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """
- SET FR=AQASD_",,,"
- SET TO=AQAFD_",,,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R8 ;
- +1 SET DHD="[AQACILALLHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSALL]"
- SET L=0
- SET BY="'DISCHARGE DATE,@(+ICD-9CM)"
- SET FR=AQASD_","
- SET TO=AQAFD_","
- +3 DO PRT^AQACQRI
- +4 QUIT
- R9 ;
- +1 SET DHD="[AQACILGMHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSGM]"
- SET L=0
- SET BY="'DISCHARGE DATE,SERVICE=""GEN MED"",@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
- R10 ;
- +1 SET DHD="[AQACILGYNHDR]"
- +2 SET DIC="^AQACIHS("
- SET FLDS="[AQACILOSGYN]"
- SET L=0
- SET BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),@(+ICD-9CM)"
- SET FR=AQASD_",,"
- SET TO=AQAFD_",,"
- +3 DO PRT^AQACQRI
- +4 QUIT
