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

Package: Outpatient Pharmacy

Routine: PSOSUINV


Information

PSOSUINV ;BHAM ISC/SAB-UPDATE OR INITIALIZE INVENTORY ; 04/02/93 9:55

Source Information

Source file <PSOSUINV.m>

Entry Points

Name Comments DBIA/ICR reference
A
B
U
Q
EX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOSUINV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "UNITS RECEIVED: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: U+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: U+1
Function Call: WRITE
  • Prompt: !,$S(F:"SET INVENTORY TO ",1:"UPDATE INVENTORY BY "),X," UNITS? YES//"
  • Line Location: U+1
Function Call: WRITE
  • Prompt: ?45,"NEW INVENTORY: ",^(660.1)
  • Line Location: U+1
Function Call: WRITE
  • Prompt: !!?5,"ENTER THE NUMBER OF ORDER UNITS (CASES, BOXES, BOTTLES, ETC.) RECEIVED."
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !?5,"IF YOU WISH TO UPDATE THE INVENTORY BY DISPENSING UNITS, TYPE THE NUMBER"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !?5,"OF UNITS FOLLOWED BY THE LETTER 'D'.",!
  • Line Location: Q+2

FileMan Files Accessed Via FileMan Db Call

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