AQACQR2.m

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