Routine: PSGWVW

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Auto Replenishment Ward Stock	1	(HELP,SS)^PSGWUTL1
VA Fileman	1	^DIC

Package

Total

Call Graph

Kernel

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

Auto Replenishment Ward Stock

(HELP,SS)^PSGWUTL1

VA Fileman

^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW LOOKUP ITEM

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW LOOKUP ITEM

Name	Field # of Occurrence
^%ZIS	DIC+1
HOME^%ZIS	DEV+1
^%ZISC	END+1
^%ZTLOAD	DEV+1
^DIC	DIC
HELP^PSGWUTL1	PRTCHK+2
SS^PSGWUTL1	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Using this option, you may look up the wards and/or Areas of Use",!,"which stock the item you select.",!!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: PSGWVW+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DIC+1
Function Call: WRITE	Prompt: !!,$P(^PSDRUG(DRGNUM,0),"^")," is not a Ward Stock/Auto Replenishment item." Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: WD+0
Function Call: WRITE	Prompt: WARD Line Location: WD+1
Function Call: WRITE	Prompt: ?28,$P(AOUN,"^") Line Location: AOU+0
Function Call: WRITE	Prompt: " *" Line Location: AOU+0
Function Call: WRITE	Prompt: ?56,LOCN Line Location: LOC+0
Function Call: WRITE	Prompt: !!!,"* Indicates AOU is currently Inactive" Line Location: MSG+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"WARD/AOU LIST FOR AN ITEM",?60,"DATE: " Line Location: HDR1+2
Function Call: WRITE	Prompt: Y,!,"ITEM NAME",!?70,"STOCK",!?10,"WARD",?35,"AREA OF USE",?56,"LOCATION",?70,"LEVEL",!,LN Line Location: HDR1+2
Function Call: WRITE	Prompt: !!,"==>",DRGNAM,!! Line Location: HDR2+0
Function Call: WRITE	Prompt: !!,"* Indicates AOU is currently Inactive" Line Location: PRTCHK+1
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+2
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: DIC
Routine Call	%ZIS Line Location: DIC+1

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR1+2
^DIC(42 - [#42]	CHKDRG+5
^PSDRUG - [#50]	PRINT+1, LOOP
^PSI(58.1 - [#58.1]	AOULP, DRGLP, CHKDRG, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5
^TMP("PSGWITEM"	ENQ+1!, CHKDRG+4, CHKDRG+5, PRINT+1, LOOP, WD, AOU, LOC, STK, END!

Name	Line Occurrences
AOU	LOC
AOULP	DRGLP+1
CHKDRG	DRGLP
DONE	PRINT+1
END	DIC, DIC+1, DEV+1, LOOP, WD
HDR1	PRINT+1, PRTCHK+3
HDR2	LOOP, PRTCHK+3
LOC	STK
LOOP	WD
MSG	LOOP
PRINT	AOULP
PRTCHK	WD
STK	STK+1
WD	AOU

Name	Field # of Occurrence
^("I"	AOULP
^(0	CHKDRG+1*, CHKDRG+3, CHKDRG+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DIC+1!*
%ZIS("B"	DIC+1*
ANS	END!, PRTCHK+2*
AOU	ENQ+1, AOULP, DRGLP, CHKDRG, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5, END!
AOUN	AOULP, CHKDRG+4, CHKDRG+5, WD, AOU*, LOC, STK, END!
DIC	DIC*!
DIC("A"	DIC*
DIC(0	DIC*
DRG	PRINT+1, LOOP, WD, AOU, LOC, STK, END!
DRGDA	CHKDRG*, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5, END!
DRGNAM	LOOP*, END!, HDR2
DRGNUM	DIC*, DRGLP, CHKDRG, CHKDRG+4, CHKDRG+5, PRINT+1, END!
DT	AOULP, HDR1+2
DTIME	PRTCHK+2
INACT	AOU, MSG, END!, HDR1+1, PRTCHK+1
IO	DEV+2
IO("Q"	DEV!, END!
IOF	DONE, HDR1+2
IOP	DIC+1!
IOSL	WD
IOST	DONE, DONE+1, PRTCHK+2
J	CHKDRG+5*, END!
LN	ENQ+1*, END!, HDR1+2
LOCN	CHKDRG+3, CHKDRG+4, CHKDRG+5, AOU, LOC*, STK, END!
>> POP	DIC+1
QFLG	PRINT+1, LOOP, WD, DONE+1, END!, PRTCHK+2
STLEV	CHKDRG+3, CHKDRG+4, CHKDRG+5, LOC, STK*, END!
WARD	CHKDRG+4, CHKDRG+5, LOOP, WD, WD+1, AOU, LOC, STK, END!
WRD	CHKDRG+5*, END!
Y	DIC, END!, HDR1+2*
>> ZTDESC	DEV*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEV*
>> ZTSAVE("DRGNUM"	DEV*
ZTSK	DEV+1!, END!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWVW

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: