AQACQR1.m

AQACQR1 ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR CHS INPATIENT REGISTER-PART 2; [ 11/07/87  4:50 PM ] ; 11/7/89  9:16 AM

 ;;CHS QA/UR Version 2.04;11/7/89

R2 ;

 S DHD="[AQACCGMHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSGM]",L=0,BY="'DISCHARGE DATE,SERVICE=""GEN MED"",+(CODE:QA GMS CLASS:RANGE);""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"

 D PRT^AQACQR

 Q

R3 ;

 S DHD="[AQACCGYNHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSGYN]",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^AQACQR

 Q

R4 ;

 S DHD="[AQACCINJHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSINJ]",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^AQACQR

 Q

R5 ;

 S DHD="[AQACCSRGHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSSRG]",L=0,BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"

 D PRT^AQACQR

 Q

R6 ;

 S DHD="[AQACCPEDHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"

 D PRT^AQACQR

 Q

R7 ;

 S DHD="[AQACCPSYHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACCLASSPSY]",L=0,BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CODE:QA GMS CLASS:RANGE;""ICD-9-CM CLASSIFICATION: "";S,"" "";"" """,FR=AQASD_",,,",TO=AQAFD_",,,"

 D PRT^AQACQR

 Q

R8 ;

 S DHD="[AQACLALLHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACLOSALL]",L=0,BY="'DISCHARGE DATE,+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,",TO=AQAFD_",,,"

 D PRT^AQACQR

 Q

R9 ;

 S DHD="[AQACLGMHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACLOSGM]",L=0,BY="'DISCHARGE DATE,SERVICE=""GEN MED"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"

 D PRT^AQACQR

 Q

R10 ;

 S DHD="[AQACLGYNHDR]"

 S DIC="^AQACHSAD(",FLDS="[AQACLOSGYN]",L=0,BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),+CONTRACT FACILITY;S;C1,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"

 D PRT^AQACQR

 Q

AQACQR1   ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR CHS INPATIENT REGISTER-PART 2; [ 11/07/87  4:50 PM ] ; 11/7/89  9:16 AM

 +1       ;;CHS QA/UR Version 2.04;11/7/89

R2        ;

 +1        SET DHD="[AQACCGMHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSGM]"

           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^AQACQR

 +4        QUIT 

R3        ;

 +1        SET DHD="[AQACCGYNHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSGYN]"

           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^AQACQR

 +4        QUIT 

R4        ;

 +1        SET DHD="[AQACCINJHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSINJ]"

           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^AQACQR

 +4        QUIT 

R5        ;

 +1        SET DHD="[AQACCSRGHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSSRG]"

           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^AQACQR

 +4        QUIT 

R6        ;

 +1        SET DHD="[AQACCPEDHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSPED]"

           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^AQACQR

 +4        QUIT 

R7        ;

 +1        SET DHD="[AQACCPSYHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACCLASSPSY]"

           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^AQACQR

 +4        QUIT 

R8        ;

 +1        SET DHD="[AQACLALLHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACLOSALL]"

           SET L=0

           SET BY="'DISCHARGE DATE,+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"

           SET FR=AQASD_",,,"

           SET TO=AQAFD_",,,"

 +3        DO PRT^AQACQR

 +4        QUIT 

R9        ;

 +1        SET DHD="[AQACLGMHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACLOSGM]"

           SET L=0

           SET BY="'DISCHARGE DATE,SERVICE=""GEN MED"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)"

           SET FR=AQASD_",,,,"

           SET TO=AQAFD_",,,,"

 +3        DO PRT^AQACQR

 +4        QUIT 

R10       ;

 +1        SET DHD="[AQACLGYNHDR]"

 +2        SET DIC="^AQACHSAD("

           SET FLDS="[AQACLOSGYN]"

           SET L=0

           SET BY="'DISCHARGE DATE,'(CODE=174!((CODE>178&(CODE<185)))!((CODE>609&(CODE<630)))),+CONTRACT FACILITY;S;C1,"" "";"" "",@(+ICD-9CM)"

           SET FR=AQASD_",,,,"

           SET TO=AQAFD_",,,,"

 +3        DO PRT^AQACQR

 +4        QUIT