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

Package: Auto Replenishment Ward Stock

Routine: PSGWPL


Information

PSGWPL ;BHAM ISC/MPH,CML-Print AOU Inventory Pick List ; 29 Dec 93 / 2:30 PM

Source Information

Source file <PSGWPL.m>

Entry Points

Name Comments DBIA/ICR reference
DIC
EN1 ; PSGWIDA = DA of inventory being edited
RD
RD2
DEV
HELP1
HELP2
EN2 ;Print Pick List Headings

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may not run the Pick List because you have the",!,?5,"""Merge Inventory Sheet and Pick List"" site parameter set to ""YES""."
  • Line Location: PSGWPL+3
Function Call: WRITE
  • Prompt: !!,"Pick List can't be run for inventory # ",PSGWIDA,!,"You must first print the inventory sheet",!,"using the Inventory Sheet Print Option.",!
  • Line Location: DIC+1
Function Call: READ
  • Formatting: !
  • Prompt: "Print total for each item on pharmacy pick list? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Print sub-total for each item by AOU? Y// "
  • Variable: X1
  • Timeout: DTIME
  • Line Location: RD2+0
Function Call: WRITE
  • Prompt: !,"Right margin for this printout is 132!",!!
  • Line Location: RD2+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: RD2+1
Function Call: WRITE
  • Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print total for each item on pharmacy pick list will give totals",!,"without showing sub-total breakdown for each area of use.",!
  • Line Location: HELP1+0
Function Call: WRITE
  • Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print sub-total for each item by AOU will give a total to dispense,",!,"as well as a sub-total for each AOU requesting that item.",!
  • Line Location: HELP2+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"WARD STOCK PICK LIST FOR "
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: ?26,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"AOU INVENTORY GROUP MISSING"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"GROUP: "
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,?83,"INVENTORIED BY ____________________________",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,?10,"ITEM",?51,"STOCK",?58,"QUICK",?71,"ON",?91,"BACKORDERED",?106,"TO BE",?115,"ACT DISPENSED"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,?51,"LEVEL",?58,"CODE",?71,"HAND",?105,"DISPENSED",?115,"IF < TO BE",!
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: EN2+9

FileMan Files Accessed Via FileMan Db Call

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