Routine: PSGWPSI

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

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZTLOAD

NOW^%DTC ^DIK

(PRINT,QUIT)^PSGWPSI1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW STOCK ITEM DATA

Package

Total

Caller Graph

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"This report shows data stored for AR/WS Stock Items.",!!,"Right margin for this report is 132 columns.",!,"You may queue the report to print at a later time.",!! Line Location: PSGWPSI+3
Function Call: WRITE	Prompt: !,"You MUST create AOUs before running this report!" Line Location: PSGWPSI+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)
^PSDRUG - [#50]	BUILD+2, BUILD+3
^PSI(58.1 - [#58.1]	PSGWPSI+4, AOU, XREF, BUILD+1, BUILD+4*, BUILD+5, BUILD+7, BUILD+8
^TMP("PSGWPSI"	AOU!, BUILD+5, SETGL+1, PRTQUE+2!

Name	Field # of Occurrence
^("I"	BUILD+5
^(0	BUILD+1, BUILD+3

Name	Field # of Occurrence
%	PSGWPSI+2, PSGWPSI+4!
%H	PSGWPSI+4!
%I	PSGWPSI+4!
%ZIS	DEV!*
%ZIS("B"	DEV*
>> AOU	AOU*, XREF, BUILD+1, BUILD+2, BUILD+4, BUILD+5, BUILD+7, BUILD+8, SETGL+1
>> DA	BUILD+2*
>> DA(1	BUILD+2*
DIK	BUILD+2*!
>> DRGDA	XREF*, BUILD+2, BUILD+3
DT	BUILD+1
IO	DEV+3
IO("Q"	DEV+1!
ION	DEV+1
IOP	DEV!
>> ITMDA	XREF*, BUILD+1, BUILD+2, BUILD+4, BUILD+7, BUILD+8
>> ITMNM	BUILD+3*, BUILD+5, SETGL+1
>> LL	BUILD+7, BUILD+8
>> LOC	BUILD+6*, SETGL+1
>> NODE	BUILD+1*, BUILD+4, BUILD+6
>> POP	DEV
PSGWDT	PSGWPSI+2*, PSGWPSI+4!, BUILD+5
>> PSGWIO	DEV+1*, PRTQUE+1
>> STKLEV	BUILD+6*, SETGL+1
>> TYPE	BUILD+7, SETGL+1
>> WARD	BUILD+8, SETGL+1
>> 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(""PSGWPSI"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!

Information