Routine: PSGWHV0

Package	Total	Call Graph
Auto Replenishment Ward Stock	1	(EN1,END)^PSGWHV1
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

(EN1,END)^PSGWHV1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWHV

Package

Total

Caller Graph

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	CHKDTA+1, CHKDTA+3, HIGH
^PSI(58.1 - [#58.1]	AOU, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
^PSI(58.19 - [#58.19]	ENQ+2
^TMP("PSGWHV"	ENQ+1!, ENQ+2, INVLP+1, SETGL, DRUGLP, AOULP, HIGH*, PRTQUE+2!

Name	Field # of Occurrence
^("PSG"	CHKDTA+3
^(660	CHKDTA+1

Name	Field # of Occurrence
>> ALL	AOU, DRGLP
>> AOU	AOU*, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1, SETGL
>> AOUN	DRUGLP, AOULP
>> BDT	ENQ+2, ODLP+1, RETLP+1
>> CF	HIGH*
>> CST	AOULP*
>> CUT	HIGH
>> DRGCST	COST, COST+1, SETGL
>> DRGDA	DRUG+1, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
>> DRGNM	DRGLP*, CHKDTA+1, CHKDTA+3, SETGL
>> DRGQD	AR+1, INVLP+1, ODLP+1, RETLP+1, CHKDTA+1, COST, SETGL
>> DRN	HIGH*
>> DRUG	CONV, DRUGLP, AOULP, HIGH
>> EDT	ENQ+2, ODLP+1, RETLP+1
>> G	PRTQUE+1*
>> INC	CHKDTA+1, CHKDTA+2, CHKDTA+4, CHKDTA+5, CHKDTA+6*, COST
>> INVDA	AR+1, INVLP, INVLP+1
>> INVDT	ENQ+2*
>> INVN	ENQ+1, ENQ+2
>> J	ENQ+2*
>> LOC1	CHKDTA+1*, CHKDTA+5, COST
>> LOC2	CHKDTA+3*, CHKDTA+6
>> LOCN	AOULP*
>> ODA	OD+1, ODLP, ODLP+1
>> ODT	ODLP*, ODLP+1
>> PSGWIO	PRTQUE+1
>> QD	INVLP+1, ODLP+1, RETLP+1*
>> QUAN	AOULP*
>> RETDT	RET+1, RETLP, RETLP+1
>> TOTCST	DRUGLP, AOULP, HIGH
>> TOTQD	DRUGLP, AOULP, HIGH
>> ZTDESC	PRTQUE+1*
>> ZTDTH	PRTQUE+1*
ZTIO	PRTQUE+1!*
>> ZTQUEUED	DRUGLP
>> ZTRTN	PRTQUE+1*
ZTSAVE	PRTQUE+1!
ZTSAVE(	PRTQUE+1*
ZTSAVE("^TMP(""PSGWHV"",$J,"	PRTQUE+1*

Information

Name	Comments	DBIA/ICR reference
DRUGLP
AOULP
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
DRGLP
CONV
CHKDTA	;DETERMINE TOTAL COST FOR SELECTED DRUG
ODLP
COST
OD	;ON DEMAND REQUESTS
DRUG	;LOOP THROUGH DRUGS FOR AOU
INVLP
ENQ	;ENTRY POINT WHEN QUEUED
AOU
AR	;AUTO REPLENISH INVENTORIES
RETLP
RET	;RETURNS
HIGH
SETGL