Routine: PSGWADP

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

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZTLOAD

NOW^%DTC ^DIK

(END,PRINT)^PSGWADP1

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

Package

Total

Caller Graph

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

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!

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!

Information

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