Routine: PSGWODP

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC ^DIK
Auto Replenishment Ward Stock	2	PRINT^PSGWODPR (SEL,SS)^PSGWUTL1

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT ^DIC ^DIK

Auto Replenishment Ward Stock

PRINT^PSGWODPR (SEL,SS)^PSGWUTL1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	3	PSGW ON-DEMAND PRINT PSGWODRN PSGWONDM

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW ON-DEMAND PRINT PSGWODRN PSGWONDM

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZISC	END+1
^%ZTLOAD	DEV+2
^DIC	ASKAOU+1, BACKORD+1
^DIK	ODLP+3
PRINT^PSGWODPR	AOU, AOU+1
SEL^PSGWUTL1	EN
SS^PSGWUTL1	DONE+1

Interaction Calls

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: EN2+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: ASKAOU+1 BACKORD+1
Routine Call	%ZIS Line Location: DEV

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	ODLP+3, ODLP+4
^PSI(58.1 - [#58.1]	ASKAOU+3, AOU+1, DRGLP, OD+1, ODLP, ODLP+1
^PSI(58.3 - [#58.3]	BACKORD+1
^TMP("PSGWOD"	ENQ+1!, ODLP+4*, END!

Name	Line Occurrences
AOU	DRGLP
BACKORD	ODLP+2
DONE	AOU, AOU+1
DRGLP	DRGLP
EN2	EN
END	BDT, EDT, EN, ASKAOU+2, EN2, DEV, DEV+2
OD	DRGLP
ODLP	ODLP, ODLP+3, ODLP+4

Name	Field # of Occurrence
^(	ODLP, BACKORD+1
^(0	ODLP+1, BACKORD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	BDT!, EDT!, END+1!
%DT("A"	BDT, EDT
%DT(0	EDT*
%H	END!
%I	END!
%W	END+1!
%ZIS	DEV!*
%ZIS("B"	DEV*
ADT	END!
ALL	END+1!
AMISFL	END!
ANS	END!
AOU	ASKAOU+3, ENQ+1, AOU, AOU+1, DRGLP, OD+1, ODLP, ODLP+1, ODLP+3, ODLP+4 , END!, BACKORD+1
AOULP	ASKAOU+2, EN2, DEV+1, AOU, AOU+1, END!
AOULP(	ASKAOU+1, ASKAOU+3, AOU
BCFLG	END+1!
BDT	BDT*, EDT, ODLP, END!
BO	END+1!, BACKORD+1*
BON	END+1!
BOTOT	ODLP+4, END+1!, BACKORD+1*
C	END+1!
CAT	END!
D	END!
D0	END+1!
D1	END+1!
D2	END+1!
DA	ODLP+3*, END!
DA(1	ODLP+3*
DI	END+1!
DIC	ASKAOU+1!, END+1!, BACKORD+1
DIC(0	ASKAOU+1, BACKORD+1
DIE	END!
DIK	ODLP+3*!
DIYS	END+1!
DLAYGO	END+1!
DQ	END+1!
DRGDA	DRUG+1, DRGLP, OD+1, ODLP, ODLP+1, ODLP+3, ODLP+4, END!
DRGNAME	ODLP+4*, END!
DRGNM	ODLP+1*, ODLP+3, ODLP+4, END!, BACKORD+1
DT	ODLP+1
EDITDT	END!
EDT	EDT*, ODLP, END!
EDUZ	ODLP+1*, ODLP+4, END!
G	DEV+1*, END!
IGDA	END+1!
IO	DEV+3
IO("Q"	DEV+1!, END+1!
IOF	DONE
IOP	DEV!
IOST	DONE, DONE+1
J	END!, BACKORD+1*
JJ	ASKAOU+1*, END!
KEY	END!
LEDT	ODLP+2*, ODLP+4, END!
LEDUZ	ODLP+2*, ODLP+4, END!
LOC	ODLP*, ODLP+1, ODLP+2, END!
NEWI	END+1!
ODA	OD+1, ODLP, END!
ODT	ODLP*, ODLP+4, END!
ODTM	END!
PGCT	END!
>> POP	DEV
PREV	END!
PRTFLG	END+1!
PSGDA	END!
PSGDR	END+1!
PSGWADT	END+1!
PSGWAOU	END!
PSGWCAT	END+1!
PSGWD	END+1!
PSGWDN	END+1!
PSGWDT	END!, END+1!
PSGWDUZ	END+1!
PSGWODT	END!
PSGWV	END+1!
QD	ODLP+1*, ODLP+4, END!
QFLG	DONE+1, END+1!
SEL	EN, END+1!
STAN	ODLP+1*, ODLP+4, END!
TMDT	END!
X	ASKAOU+2, ASKAOU+3, END+1!, BACKORD+1*
Y	BDT, EDT, ASKAOU+1, END+1!, BACKORD+1
>> ZTDESC	DEV+1*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
>> ZTSAVE("AOULP("	DEV+1*
ZTSK	DEV+2!, END!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWODP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DRUG	;LOOP THROUGH DRUGS FOR AOU
EN
DRGLP
ENQ	;ENTRY POINT WHEN QUEUED
BACKORD	;TOTAL ANY BACKORDERS
OD	;ON DEMAND REQUESTS
AOU
DEV
BDT
EN2
ODLP
ASKAOU	;
EDT
DONE
END