Routine: PSGWPAW

Information

PSGWPAW ;BHAM ISC/PTD,CML-Print AMIS Data Worksheet for All Drugs in All AOUs ; 19 Mar 93 / 8:32 AM

Source Information

Source file <PSGWPAW.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)^PSGWPAW1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW PRINT AMIS WORKSHEET

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!! Line Location: PSGWPAW+2
Function Call: WRITE	Prompt: !,"You MUST create AOUs before running this report!" Line Location: PSGWPAW+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Routine Call	%ZIS Line Location: DEV
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SETGL, SETGL+1
^PSI(58.1 - [#58.1]	PSGWPAW+3, AOU, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3
^TMP("PSGWPAW"	AOU!, BUILD+3, SETGL+1, PRTQUE+2!

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	BUILD*, BUILD+1, SETGL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%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+1
>> POP	DEV
>> PSGWAOU	AOU*, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWDR	XREF*, SETGL, SETGL+1
>> PSGWDT	PSGWPAW+2*, BUILD+1
>> PSGWIO	DEV+1*, PRTQUE+1
>> PSGWITM	XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWNM	BUILD+3, SETGL+1*
>> PSGWTY	BUILD+3*
>> X	PSGWPAW+2
>> 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(""PSGWPAW"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!

Customize PDF page

Package: Auto Replenishment Ward Stock