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

Package: Auto Replenishment Ward Stock

Routine: PSGWEDI


Information

PSGWEDI ;BHAM ISC/GRK,CML-Enter/Edit of AOU Inventory Values ; 17 Jun 93 / 10:35 AM

Source Information

Source file <PSGWEDI.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; PSGWIDA = DA of inventory being edited
WLOOP
END
WENT
PSG1
PSG2
PSG3
PSGTYP
PSGDR
ONH
DUMP
CHKGLOB ;Set piece 4 of global to 0 if null.
AOU
P1
P2
P3
TYP
DRUG
DISP ;CALCULATE DISPENSE AMT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"You may not enter on-hand amounts because you have the ""Merge",!?5,"Inventory Sheet and Pick List"" site parameter set to ""YES""."
  • Line Location: PSGWEDI+3
Function Call: WRITE
  • Prompt: !!," ITEM: ",PSGDR
  • Line Location: PSGDR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ONH+0
Function Call: WRITE
  • Prompt: PSGX(2)
  • Condition for execution: PSGX(6)=""&(X="")
  • Line Location: ONH+0
Function Call: WRITE
  • Prompt: *7,!,"Enter quantity presently on-hand in the ward at the time of inventory.",!,"Must be a number between 0 and 9999."
  • Line Location: ONH+1

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