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

Package: Auto Replenishment Ward Stock

Routine: PSGWBOS


Information

PSGWBOS ;BHAM ISC/CML-Print Backorder Report by AOU ; 27 Dec 93 / 12:59 PM

Source Information

Source file <PSGWBOS.m>

Entry Points

Name Comments DBIA/ICR reference
START ;ENTRY
DIC
DEV
ENQ ;ENTRY POINT WHEN QUEUED
BUILD ;BUILD DATA ELEMENTS
SETGL ;
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRT1 ;
DONE ;
QUIT ;
PRT2
DATA ;DATA LINES
DNMCHK ;
HDR ;HEADER
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print a list of Current Backorders for selected AOU(s).",!!,"You will only be allowed to choose AOUs that have Backorder entries (current",!,"or non-current) in the Pharmacy Backorder file (#58.3).",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!!
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?17,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: !!,"=> ",ANM
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: " INACTIVE ***"
  • Condition for execution: ANM["***"
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !?5,DNM,?52,Y,?73,$J(CURBO,5),!?17,LOC
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: ?46,"<NO CURRENT BACKORDERS>"
  • Line Location: DNMCHK+1
Function Call: WRITE
  • Prompt: ?46,"<NO CURRENT BACKORDERS>"
  • Line Location: DNMCHK+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?27,"PHARMACY AOU BACKORDER LIST",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","AOU",!?12,"ITEM",?54,"DATE/TIME FOR",?72,"CURRENT",!?19,"LOCATION",?56,"BACKORDER",?71,"BACKORDER",!,LN
  • Line Location: HDR+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1

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