Routine: PSGWSC

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

Package

Total

Call Graph

(,DONE,END)^PSGWSC1 SEL^PSGWUTL1

(,HOME)^%ZIS ^%ZTLOAD

^%DT ^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW SINGLE ITEM COST

Package

Total

Caller Graph

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZTLOAD	DEV+2
^DIC	ASKAOU, ASKITEM
^PSGWSC1	AOU
DONE^PSGWSC1	DEV+2
END^PSGWSC1	BDT, EDT, EDT+1, ASKAOU+1, AOUCNT, ASKITEM, DEV
SEL^PSGWUTL1	EDT+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Before printing this report, be sure accurate data exists for drug cost.",!?5,"Use ""Prepare AMIS Data"": ""Enter AMIS Data for All Drugs/All AOUs"".",!! Line Location: PSGWSC+2
Function Call: WRITE	Prompt: ! Line Location: ASKITEM+0
Function Call: WRITE	Prompt: !!,*7,"This ITEM is not defined in the "_$S(AOUCNT>1:"AOUs",1:"AOU")_" you have selected!" Line Location: ASKITEM+2
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: ASKITEM+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: ASKAOU ASKITEM
Routine Call	%ZIS Line Location: DEV

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	CHKDTA+1, CHKDTA+3
^PSI(58.1 - [#58.1]	ASKAOU+2, ASKITEM+1, DRUG, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1, RET+1 , RETLP, RETLP+1
^PSI(58.19 - [#58.19]	ENQ+3
^TMP("PSGWINV"	ENQ+2!, ENQ+3*, INVLP+1
^TMP("PSGWSC"	ENQ+2!, SETGL*

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

Name	Field # of Occurrence
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%ZIS	DEV!*
%ZIS("B"	DEV*
>> AOU	ASKAOU+2, ENQ+2, AOU*, DRUG, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1 , RET+1, RETLP, RETLP+1, SETGL
>> AOUCNT	AOUCNT*, ASKITEM+2
>> AOULP	ASKAOU+1, AOUCNT, DEV+1
>> AOULP(	ASKAOU, ASKAOU+2, AOUCNT, ASKITEM+1, AOU
>> BDT	BDT*, EDT, ENQ+3, ODLP+1, RETLP+1
>> CHK	ASKITEM+1*, ASKITEM+2
DIC	ASKAOU!, ASKITEM!
DIC("A"	ASKITEM*
DIC("S"	ASKITEM*
DIC(0	ASKAOU, ASKITEM
>> DRGCST	COST, COST+1, SETGL
>> DRGDA	DRUG*, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1, RET+1, RETLP, RETLP+1
>> DRGNM	ASKITEM*, ASKITEM+1, DRUG, CHKDTA+1, CHKDTA+3
>> DRGQD	AR+1, INVLP+1, ODLP+1, RETLP+1, CHKDTA+1, COST, SETGL
>> EDT	EDT*, ENQ+3, ODLP+1, RETLP+1
>> G	DEV+1*
>> INC	CHKDTA+1, CHKDTA+2, CHKDTA+4, CHKDTA+5, CHKDTA+6*, COST
>> INVDA	AR+1, INVLP, INVLP+1
>> INVDT	ENQ+3*
>> INVN	ENQ+2, ENQ+3
IO	DEV+3
IO("Q"	DEV+1!
IOP	DEV!
>> ITNAM	ASKITEM*
>> J	ENQ+3*
>> JJ	ASKAOU, AOUCNT, ASKITEM+1*
>> LOC1	CHKDTA+1*, CHKDTA+5, COST
>> LOC2	CHKDTA+3*, CHKDTA+6
>> ODA	OD+1, ODLP, ODLP+1
>> ODT	ODLP*, ODLP+1
>> POP	DEV
>> QD	INVLP+1, ODLP+1, RETLP+1*
>> QFLG	DEV+2*
>> RETDT	RET+1, RETLP, RETLP+1
>> SEL	EDT+1
>> X	ASKAOU+1, ASKAOU+2
>> Y	BDT, EDT, ASKAOU, ASKITEM
>> ZTDESC	DEV+1*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
>> ZTSAVE("AOULP("	DEV+1*
ZTSK	DEV+2!

Information

Name	Comments	DBIA/ICR reference
DRUG
COST
CHKDTA	;DETERMINE TOTAL COST FOR DRGQD OF SELECTED DRUG
ENQ	;ENTRY POINT WHEN QUEUED
AOUCNT
RET	;RETURNS
OD	;ON DEMAND REQUESTS
ODLP
DEV
INVLP
BDT
AOU
AR	;AUTOMATIC REPLENISHMENT INVENTORIES
RETLP
ASKAOU
EDT
ASKITEM
SETGL