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
Print Page as PDF
Routine: PSGWBO1

Package: Auto Replenishment Ward Stock

Routine: PSGWBO1


Information

PSGWBO1 ;BHAM ISC/CML-Enter/Edit Actual Dispensed/Backorder Values - CONTINUED ; 09/27/89 13:57

Source Information

Source file <PSGWBO1.m>

Entry Points

Name Comments DBIA/ICR reference
CHKQTY ;Check Qty. Dispensed for reasonable amount (2 X Stock Level)
ASK
GETVAL
ALIGN ;Align on this item
TYP
LOC ;Build item address

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This quantity seems too high! The normal Stock Level for this item is ",STKLEV
  • Line Location: CHKQTY+3
Function Call: WRITE
  • Prompt: !?5,"Are you sure of this amount "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Enter 'YES' or 'NO'"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: *7,"??",!!,"You may only 'up-arrow' to Items from this AOU",!,"that are included in this Inventory Date/Time!!",!!,"ITEM: ",TEMPDR
  • Line Location: TYP+0
Info |  Source |  Entry Points |  Interaction Calls