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

Package: Auto Replenishment Ward Stock

Routine: PSGWBO


Information

PSGWBO ;BHAM ISC/MPH,CML-Enter/Edit Actual Dispensed/Backorder Values ; 09 Dec 93 / 3:10 PM

Source Information

Source file <PSGWBO.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; PSGWIDA = DA of inventory being edited
WLOOP
END
WENT
PSG1
PSG2
PSG3
PSGTYP
PSGDR
DIS
EXP
RESET ; Reset Sort key if AOUs taken out of order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S(X<101:"INVENTORY SHEET MUST BE PRINTED BEFORE ON-HAND AMOUNTS MAY BE ENTERED",1:"INVENTORY OVER 100 DAYS OLD CANNOT BE EDITED")
  • Line Location: PSGWBO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"ITEM: ",PSGDR
  • Line Location: PSGDR+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: *7,!,"Enter number between 0 and 9999 which is the quantity dispensed."
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!,"ITEM: ",PSGDR
  • Line Location: DIS+2

FileMan Files Accessed Via FileMan Db Call

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