Routine: PSGWCPA

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

Package

Total

Call Graph

(EN1,END)^PSGWCPA1 SEL^PSGWUTL1

(,HOME)^%ZIS ^%ZTLOAD

^%DT ^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW COST PER AOU

Package

Total

Caller Graph

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZTLOAD	DEV+2, PRTQUE+2
^DIC	ASKAOU
EN1^PSGWCPA1	AOU
END^PSGWCPA1	BDT, EDT, EDT+1, ASKAOU+1, AOUCNT, ASKPRT, DEV, DEV+2, PRTQUE+2
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: PSGWCPA+2
Function Call: WRITE	Prompt: !!,"Do you want to print:",!?5,"(1) A complete report",!?5,"(2) Totals and Summaries only" Line Location: AOUCNT+1
Function Call: READ	Prompt: "Enter '1' or '2': " Formatting: !! Timeout: DTIME Variable: FLG Line Location: ASKPRT+0
Function Call: WRITE	Prompt: *7,!!,"Enter '1' to print a complete report including all items in the AOU.",!,"Enter '2' to print only the totals for the AOU(s) and Cost Summaries." Line Location: ASKPRT+1
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: ASKPRT+2
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
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, CHKDTA+1, CHKDTA+3
^PSI(58.1 - [#58.1]	ASKAOU+2, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
^PSI(58.19 - [#58.19]	ENQ+3
^TMP("PSGWCPA"	ENQ+2!, ENQ+3, INVLP+1, SETGL, PRTQUE+2!

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*, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1 , SETGL
>> AOUCNT	AOUCNT*
>> AOULP	ASKAOU+1, AOUCNT, DEV+1
>> AOULP(	ASKAOU, ASKAOU+2, AOUCNT, AOU
>> BDT	BDT*, EDT, ENQ+3, ODLP+1, RETLP+1
DIC	ASKAOU*!
DIC(0	ASKAOU*
>> DRGCST	COST, COST+1, SETGL
>> DRGDA	DRUG+1, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
>> DRGNAME	DRGLP*, SETGL
>> DRGNM	DRGLP*, CHKDTA+1, CHKDTA+3
>> DRGQD	AR+1, INVLP+1, ODLP+1, RETLP+1, CHKDTA+1, COST, SETGL
DTIME	ASKPRT
>> EDT	EDT*, ENQ+3, ODLP+1, RETLP+1
>> FLG	ASKPRT*, ASKPRT+1
>> G	DEV+1, PRTQUE+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!
ION	DEV+1
IOP	DEV!
>> J	ENQ+3*
>> JJ	ASKAOU, AOUCNT
>> LOC1	CHKDTA+1*, CHKDTA+5, COST
>> LOC2	CHKDTA+3*, CHKDTA+6
>> ODA	OD+1, ODLP, ODLP+1
>> ODT	ODLP*, ODLP+1
>> POP	DEV
>> PSGWIO	DEV+1*, PRTQUE+1
>> QD	INVLP+1, ODLP+1, RETLP+1*
>> RETDT	RET+1, RETLP, RETLP+1
>> SEL	EDT+1
>> 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(""PSGWCPA"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!

Information

Name	Comments	DBIA/ICR reference
DRUG	;LOOP THROUGH DRUGS FOR AOU
ASKPRT
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
DRGLP
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
SETGL
COST