Routine: PSGWHC

Information

PSGWHC ;BHAM ISC/PTD,CML-High Cost for Selected Date Range (Single AOU or Cumulative) ; 19 Mar 93 / 8:29 AM

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

Entry Points

Name	Comments	DBIA/ICR reference
BDT
EDT
ASKAOU
CUTOFF
ASK1
ASK2
DEV

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	Formatting: ! Prompt: "Select CUT OFF amount: " Variable: CUT Timeout: DTIME 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	Formatting: !! Prompt: "Select SORT ORDER for report (enter 1 or 2): " Variable: SORT Timeout: DTIME 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	DIC Line Location: ASKAOU
Routine Call	%ZIS Line Location: DEV
Routine Call	%ZIS Line Location: DEV+2

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name	Line Occurrences
ASK1	ASK1+2
ASK2	ASK2+1

Local Variables

Legend:

>>	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