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

Package: Auto Replenishment Ward Stock

Routine: PSGWCPA


Information

PSGWCPA ;BHAM ISC/PTD,CML-Cost Per AOU for Selected Date Range ; 03 Sep 93 / 12:07 PM

Source Information

Source file <PSGWCPA.m>

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
ASKAOU
AOUCNT
ASKPRT
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOU
DRUG ;LOOP THROUGH DRUGS FOR AOU
DRGLP
AR ;AUTOMATIC REPLENISHMENT INVENTORIES
INVLP
OD ;ON DEMAND REQUESTS
ODLP
RET ;RETURNS
RETLP
CHKDTA ;DETERMINE TOTAL COST FOR DRGQD OF SELECTED DRUG
COST
SETGL
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT

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: PSGWCPA+2
Function Call: WRITE
  • Prompt: !!,"Do you want to print:",!?5,"(1) A complete report",!?5,"(2) Totals and Summaries only"
  • Line Location: AOUCNT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter '1' or '2': "
  • Variable: FLG
  • Timeout: DTIME
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter '1' to print a complete report including all items in the AOU.",!,"Enter '2' to print only the totals for the AOU(s) and Cost Summaries."
  • Line Location: ASKPRT+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: ASKPRT+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