Routine: PSGWTOT

Information

PSGWTOT ;BHAM ISC/PTD,CML-Usage Report for an Item ; 19 Mar 93 / 8:35 AM

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT (,IX)^DIC ^DIK
Auto Replenishment Ward Stock	2	ENQ^PSGWTOT1 ENQ^PSGWTOT2

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW USAGE REPORT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Usage Report may be printed for:",!?15,"a single item for one AOU,",!?15,"a single item for ALL AOUs,",!?15,"ALL items for one AOU, or",!?15,"ALL items for ALL AOUs.",!! Line Location: PSGWTOT+2
Function Call: WRITE	Prompt: !,"To select all AOUs, enter ""^ALL"" at the",!,"""Select PHARMACY AOU STOCK AREA OF USE (AOU):"" prompt.",!,"To select all items, enter ""^ALL"" at the ""Select ITEM:"" prompt.",!! Line Location: PSGWTOT+3
Function Call: WRITE	Prompt: " ??",7,7 Line Location: ASKITEM+3
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+6
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
Routine Call	DIC Line Location: ASKITEM+2

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

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	ASKITEM+3, ASKITEM+4

Name	Line Occurrences
ASKITEM	ASKITEM+3
END	BDT, EDT, ASKAOU, ASKITEM, ASKITEM+2, DEV, DEV+2

Name	Field # of Occurrence
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%ZIS	DEV!*
%ZIS("B"	DEV*
AOU	ASKAOU+1, ASKAOU+2, ASKITEM+3, END!
AOUFL	ASKAOU+1, ASKAOU+2, ASKITEM, ASKITEM+2, ASKITEM+3, ASKITEM+4, END!
BDT	BDT*, EDT, END!
>> D	ASKITEM+2*
DA	ASKITEM+3*, END!
DA(1	ASKITEM+3*
DIC	ASKAOU!, ASKITEM!, ASKITEM+2*!
DIC("A"	ASKITEM*
DIC("S"	ASKITEM*
DIC(0	ASKAOU, ASKITEM, ASKITEM+2*
DIK	ASKITEM+3*!
DRGNM	ASKITEM, ASKITEM+2, ASKITEM+3, ASKITEM+4, END!
EDT	EDT*, END!
G	DEV+1*, END!
IO	DEV+3
IO("Q"	DEV+1!, END!
ION	DEV+1
IOP	DEV!
ITMFL	ASKITEM, ASKITEM+2, ASKITEM+5*, DEV+1, DEV+3, END!
ITNAM	ASKITEM, ASKITEM+4, ASKITEM+5*, END!
>> POP	DEV
PSGWIO	DEV+1*, END!
X	ASKAOU, ASKAOU+1, ASKITEM, ASKITEM+2, ASKITEM+3, ASKITEM+4, ASKITEM+5, END!
Y	BDT, EDT, ASKAOU, ASKAOU+1, ASKITEM, ASKITEM+2, ASKITEM+3, END!
>> ZTDESC	DEV+1*
ZTDTH	DEV+1!
ZTIO	DEV+1*, END!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEV+1*
ZTSAVE	DEV+1!
ZTSAVE(	DEV+1*
ZTSK	DEV+1!, DEV+2!, END!