AQACQRI2.m

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