Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AQAQPR1

Package: Quality Assurance

Routine: AQAQPR1


Information

AQAQPR1 ;IHS/ANMC/LJF - ADMITS BY PROVIDER(ADT DATA); [ 09/28/92 1:08 PM ]

Source Information

Source file <AQAQPR1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^%DT  C^%DTC  ^DIC  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Quality Assurance 2 ^AQAQPR11  END^AQAQPR12  
Uncategorized 1 ^%ET  

Entry Points

Name Comments DBIA/ICR reference
DATE2
END
ERR ;EP;***> entry point if error occurs
DEV
PRV
QUE
DATE

External References

Name Field # of Occurrence
^%DT DATE, DATE2
C^%DTC DATE2+3
^%ET ERR+5
^%ZIS DEV
HOME^%ZIS END
^%ZISC QUE+2, ERR+4
^%ZTLOAD QUE+2
^AQAQPR11 DEV
END^AQAQPR12 ERR+6
^DIC PRV+6
^DIR PRV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?25,"ADMISSIONS BY PROVIDER",!!
  • Line Location: AQAQPR1+3
Function Call: WRITE
  • Prompt: !,"This report gives you a listing (with subcounts) of admissions "
  • Line Location: AQAQPR1+4
Function Call: WRITE
  • Prompt: !,"grouped by admitting provider for the date range specified."
  • Line Location: AQAQPR1+5
Function Call: WRITE
  • Prompt: !,"ICU admissions will be listed and counted separately. This"
  • Line Location: AQAQPR1+6
Function Call: WRITE
  • Prompt: !,"data is entered by the ADT package. You must be running ADT to"
  • Line Location: AQAQPR1+7
Function Call: WRITE
  • Prompt: !,"run this report.",!!
  • Line Location: AQAQPR1+8
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+2
Function Call: WRITE
  • Prompt: *7,!!?30,"Interrupt Acknowledged",!!
  • Line Location: ERR+4
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIC
  • Line Location:
    • PRV+6
Routine Call
  • DIR
  • Line Location:
    • PRV+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("NBRK" ERR+1
^%ZOSF("OS" ERR+4

Label References

Name Line Occurrences
DATE DATE2+1
DATE2 DATE2+2, PRV+4
DEV PRV+5
END DATE+1, PRV+4, DEV
PRV PRV+6
QUE DEV

Naked Globals

Name Field # of Occurrence
^("OS" ERR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*, DATE2*
>> %DT("A" DATE*, DATE2*
>> %ZIS DEV*
AQAQBDT DATE+1*, DATE2+2, END!
AQAQEDT DATE2+1*, DATE2+2, DATE2+3*, END!
AQAQI QUE+1*, END!
AQAQPROV PRV+5*, PRV+6*, END!
AQAQTYP PRV+4*, PRV+5, PRV+6, END!
>> DIC PRV+6*
>> DIC(0 PRV+6*
DIR PRV!
DIR("A" PRV*, PRV+1*, PRV+2*, PRV+3*
DIR(0 PRV*
>> DIRUT PRV+4
DT DATE2+3
IO DEV
IO("Q" DEV, QUE!
IOF AQAQPR1+3
>> POP DEV
U ERR+4
>> X DATE*, DATE2*, DATE2+3, PRV+4
>> X1 DATE2+3*
>> X2 DATE2+3*
Y DATE+1, DATE2+1, PRV+4, PRV+6, END!
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All