AQACQRI1.m

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