Routine: PSGWNU

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE ^DIK
Auto Replenishment Ward Stock	2	(,END)^PSGWNU1 SEL^PSGWUTL1
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

Package

Total

Call Graph

^%DT ^DIC ^DIE ^DIK

(,END)^PSGWNU1 SEL^PSGWUTL1

(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW ZERO USAGE

Package

Total

Caller Graph

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZTLOAD	DEV+2, PRTQUE+2
^DIC	ASKAOU
^DIE	INVLP+1
^DIK	DRGLP+1
^PSGWNU1	AOU
END^PSGWNU1	BDT, EDT, EDT+1, ASKAOU+1, EN, DEV, DEV+2, PRTQUE+2
SEL^PSGWUTL1	EDT+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: EN+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIE Line Location: INVLP+1
Routine Call	DIC Line Location: ASKAOU
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PSI(58.1 - [#58.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DRGLP+1, DRGLP+2
^PSI(58.1 - [#58.1]	EDT+1, ASKAOU+2, DRGLP, INACT, INACT+1, INVLP, INVLP+2, ODLP, ODLP+1, RETLP , RETLP+1
^PSI(58.19 - [#58.19]	INVLP, INVLP+1
^TMP("PSGWNU"	ENQ+1!, SETGL*, PRTQUE+2!

Name	Field # of Occurrence
^("I"	EDT+1, ASKAOU+2
^(0	INACT*, INVLP

Name	Field # of Occurrence
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%ZIS	DEV!*
%ZIS("B"	DEV*
>> AOU	ASKAOU+2, ENQ+1, AOU*, DRGLP, DRGLP+1, INACT, INACT+1, INVLP, INVLP+1, INVLP+2 , ODLP, ODLP+1, RETLP, RETLP+1, SETGL
>> AOULP	ASKAOU+1, EN, DEV+1
>> AOULP(	EDT+1!, ASKAOU, ASKAOU+2, AOU
>> AR	AR+1, INVLP+2, SETGL
>> ARDT	INVLP*, INVLP+1, INVLP+2, INVLP+3
>> BDT	BDT*, EDT, INVLP+3, ODLP+2, RETLP+1
>> DA	DRGLP+1, INVLP+1
>> DA(1	DRGLP+1, INVLP+1
>> DA(2	INVLP+1*
DIC	ASKAOU*!
DIC("S"	ASKAOU*
DIC(0	ASKAOU*
DIE	INVLP+1*!
DIK	DRGLP+1*!
>> DR	INVLP+1*
>> DRGDA	DRUG+1, DRGLP, DRGLP+1, INACT, INACT+1, INVLP, INVLP+1, INVLP+2, ODLP, ODLP+1 , RETLP, RETLP+1
>> DRGNAME	DRGLP+2*, SETGL
>> DRGNM	DRGLP*, DRGLP+1, DRGLP+2, SETGL
>> DRGQD	AR+1, INVLP+3, ODLP+2, RETLP+1, SETGL
DT	EDT+1, ASKAOU+2
>> EDT	EDT*, INVLP+3, ODLP+2, RETLP+1
>> G	DEV+1, PRTQUE+1
>> INVDA	AR+1, INVLP, INVLP+1, INVLP+2
IO	DEV+3
IO("Q"	DEV+1!
ION	DEV+1
IOP	DEV!
>> JJ	EDT+1, ASKAOU
>> OD	OD+1, ODLP+1, SETGL
>> ODA	OD+1, ODLP, ODLP+1
>> ODT	ODLP*, ODLP+1, ODLP+2
>> POP	DEV
>> PSGWIO	DEV+1*, PRTQUE+1
>> QD	INVLP+2, INVLP+3, ODLP+1, ODLP+2, RETLP+1*
>> RETDT	RET+1, RETLP, RETLP+1
>> RFLG	RET+1, RETLP+1, SETGL
>> SEL	EDT+1, EDT+2
>> X	ASKAOU+1, ASKAOU+2
>> Y	BDT, EDT, ASKAOU
>> 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(	DEV+1, PRTQUE+1
ZTSAVE("AOULP("	DEV+1*
ZTSAVE("^TMP(""PSGWNU"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!

Information

Name	Comments	DBIA/ICR reference
DRUG	;LOOP THROUGH DRUGS FOR AOU
EN
DRGLP
ENQ	;ENTRY POINT WHEN QUEUED
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
RET	;RETURNS
OD	;ON DEMAND REQUESTS
ODLP
DEV
INVLP
BDT
AOU
AR	;AUTOMATIC REPLENISHMENT INVENTORIES
RETLP
ASKAOU
EDT
INACT
SETGL