Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AQACQR2

AQACQR2.m

Go to the documentation of this file.
  1. 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
  1. R11 ;
  1. S DHD="[AQACLINJHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACLOSINJ]",L=0,BY="'DISCHARGE DATE,'(CODE>799&(CODE<996)),+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
  1. D PRT^AQACQR
  1. Q
  1. R12 ;
  1. S DHD="[AQACLSRGHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACLOSSRG]",L=0,BY="'DISCHARGE DATE,SERVICE=""SURGERY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
  1. D PRT^AQACQR
  1. Q
  1. R13 ;
  1. S DHD="[AQACLPEDHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACLOSPED]",L=0,BY="'DISCHARGE DATE,SERVICE=""PEDIATRICS"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
  1. D PRT^AQACQR
  1. Q
  1. R14 ;
  1. S DHD="[AQACLPSYHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACLOSPSY]",L=0,BY="'DISCHARGE DATE,SERVICE=""PSYCHIATRY"",+CONTRACT FACILITY;C1;S,"" "";"" "",@(+ICD-9CM)",FR=AQASD_",,,,",TO=AQAFD_",,,,"
  1. D PRT^AQACQR
  1. Q
  1. R15 ;
  1. S DHD="[AQACINJHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACINJANALYSIS]",L=0
  1. 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_",,,,,"
  1. D PRT^AQACQR
  1. Q
  1. R16 ;
  1. S DHD="[AQACMSHDR]"
  1. 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_",,,,"
  1. D PRT^AQACQR
  1. Q
  1. R17 ;
  1. S DHD="[AQACNBHDR]"
  1. S DIC="^AQACHSAD(",FLDS="[AQACNBSTATS]",L=0,BY="'DISCHARGE DATE,SERVICE=""OB"",NBN ICD-9'="""",+CONTRACT FACILITY;C1;S,"" "";"" """,FR=AQASD_",,,,",TO=AQAFD_",,,,"
  1. D PRT^AQACQR
  1. Q