Routine: PSGWHC

Package	Total	Call Graph
Auto Replenishment Ward Stock	2	^PSGWHC0 END^PSGWHC1
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW HIGH COST

Entry Points

External References

Name	Field # of Occurrence
^%DT	BDT, EDT
^%ZIS	DEV
HOME^%ZIS	DEV+2
^%ZTLOAD	DEV+2
^DIC	ASKAOU
^PSGWHC0	DEV+3
END^PSGWHC1	BDT, EDT, ASKAOU, ASK1, ASK2, DEV, DEV+2

Interaction Calls

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: PSGWHC+2
Function Call: WRITE	Prompt: !!?5,"You may select a single AOU,",!?5,"or enter ""^ALL"" to get cumulative cost for all AOUs.",!?5,"ALL will show only AOUs with ""Count on AMIS"" field set to ""YES"".",!! Line Location: EDT+1
Function Call: WRITE	Prompt: !!,"The High Cost Report will show all drugs with a total cost greater",!,"than a specified cut off amount. It will NOT list costs less than",!,"the amount you specify below.",!! Line Location: CUTOFF+0
Function Call: READ	Prompt: "Select CUT OFF amount: " Formatting: ! Timeout: DTIME Variable: CUT Line Location: ASK1+0
Function Call: WRITE	Prompt: *7,!!,"Enter a whole number between 1 and 9999.",!,"The High Cost Report will NOT show any drug with a total cost less than",!,"the amount entered here. If you enter <return> at the" Line Location: ASK1+1
Function Call: WRITE	Prompt: !,"""Select CUT OFF amount"" prompt, the report will show ALL drugs.",! Line Location: ASK1+2
Function Call: WRITE	Prompt: !!,"You may print by either of these sorting methods:",!?5,"(1) By COST (Highest to Lowest)",!?5,"(2) Alphabetical by ITEM" Line Location: ASK1+3
Function Call: READ	Prompt: "Select SORT ORDER for report (enter 1 or 2): " Formatting: !! Timeout: DTIME Variable: SORT Line Location: ASK2+0
Function Call: WRITE	Prompt: *7,!!,"Enter '1' if you wish to print this report sorted by cost (highest to lowest)",!,"Enter '2' if you wish to print this report sorted alphabetically by Item." Line Location: ASK2+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: ASK2+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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%ZIS	DEV!*
%ZIS("B"	DEV*
>> ALL	ASKAOU+1, ASKAOU+2
>> AOU	ASKAOU+1, ASKAOU+2
>> BDT	BDT*, EDT
>> CUT	ASK1*, ASK1+1
DIC	ASKAOU*!
DIC(0	ASKAOU*
DTIME	ASK1, ASK2
>> EDT	EDT*
>> G	DEV+1*
IO	DEV+3
IO("Q"	DEV+1!
ION	DEV+1
IOP	DEV!
>> POP	DEV
>> PSGWIO	DEV+1*
>> SORT	ASK2*, ASK2+1
>> X	ASKAOU, ASKAOU+1
>> Y	BDT, EDT, ASKAOU, ASKAOU+1
>> ZTDESC	DEV+1*
ZTDTH	DEV+1!
>> ZTIO	DEV+1*
>> ZTRTN	DEV+1*
ZTSAVE	DEV+1!
ZTSAVE(	DEV+1*
ZTSK	DEV+1!, DEV+2!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWHC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: