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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWADP

Package: Auto Replenishment Ward Stock

Routine: PSGWADP


Information

PSGWADP ;BHAM ISC/PTD,CML-Print Data for AMIS Stats ; 06 Aug 93 / 2:20 PM

Source Information

Source file <PSGWADP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  ^DIK  
Auto Replenishment Ward Stock 1 (END,PRINT)^PSGWADP1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW PRINT DATA FOR AMIS STATS  

Entry Points

Name Comments DBIA/ICR reference
XREF
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOU
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
BUILD
SETGL
ODUNIT

External References

Name Field # of Occurrence
NOW^%DTC PSGWADP+2
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZTLOAD DEV+2, PRTQUE+2
^DIK SETGL
END^PSGWADP1 DEV, DEV+2, PRTQUE+2
PRINT^PSGWADP1 AOU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This report shows data stored for AR/WS AMIS statistics.",!,"Use Enter/Edit AMIS Data (Single Drug) to make corrections.",!!,"Right margin for this report is 132 columns.",!,"You may queue the report to print at a later time.",!!
  • Line Location: PSGWADP+3
Function Call: WRITE
  • Prompt: !,"You MUST create AOUs before running this report!"
  • Line Location: PSGWADP+4
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] ODUNIT
^PSDRUG - [#50] SETGL, SETGL+1, SETGL+2, SETGL+3
^PSI(58.1 - [#58.1] PSGWADP+4, AOU, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3
^TMP("PSGWADP" AOU!, BUILD+3*, SETGL+4*, SETGL+5*, SETGL+6*, SETGL+7*, PRTQUE+2!

Label References

Name Line Occurrences
BUILD XREF
ODUNIT SETGL+4, SETGL+5
PRTQUE AOU
SETGL BUILD+2, BUILD+3
XREF AOU

Naked Globals

Name Field # of Occurrence
^("PSG" SETGL+3
^(0 BUILD*, BUILD+1, SETGL+1
^(660 SETGL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSGWADP+2, PSGWADP+4!
%H PSGWADP+4!
%I PSGWADP+4!
%ZIS DEV!*
%ZIS("B" DEV*
>> DA SETGL*
>> DA(1 SETGL*
DIK SETGL*!
IO DEV+3
IO("Q" DEV+1!
ION DEV+1
IOP DEV!
>> K BUILD+2*, BUILD+3*, SETGL+4, SETGL+5, SETGL+6, SETGL+7
LOC1 SETGL+2*, SETGL+4, SETGL+5, SETGL+6, SETGL+7, SETGL+8!, ODUNIT*
LOC2 SETGL+3*, SETGL+4, SETGL+5, SETGL+6, SETGL+7, SETGL+8!
>> OUNIT ODUNIT*
>> OUPTR ODUNIT*
>> POP DEV
>> PSGWAOU AOU*, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWDR XREF*, SETGL, SETGL+1, SETGL+2, SETGL+3
PSGWDT PSGWADP+2*, PSGWADP+4!, BUILD+1
>> PSGWIO DEV+1*, PRTQUE+1
>> PSGWITM XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWNM BUILD+3, SETGL+1*, SETGL+4, SETGL+5, SETGL+6, SETGL+7
>> PSGWTY BUILD+3*
>> ZTDESC DEV+1*, PRTQUE+1*
ZTDTH DEV+1!, PRTQUE+1*
ZTIO DEV+1*, PRTQUE+1!*
>> ZTQUEUED AOU
>> ZTRTN DEV+1*, PRTQUE+1*
ZTSAVE DEV+1!, PRTQUE+1!
ZTSAVE("PSGWDT" DEV+1*
ZTSAVE("PSGWIO" DEV+1*
ZTSAVE("^TMP(""PSGWADP"",$J," PRTQUE+1*
ZTSK DEV+1!, DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All