Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call