Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSGWHC

Package: Auto Replenishment Ward Stock

Routine: PSGWHC


Information

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

Source Information

Source file <PSGWHC.m>

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

Caller Graph Total: 1

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

Entry Points

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

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

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All