Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO INVENTORY  

Entry Points

Name Comments DBIA/ICR reference
A
B
U
Q
EX

External References

Name Field # of Occurrence
^DIC A
^DIE A+2
^DIR PSOSUINV+3

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
Routine Call
  • DIC
  • Line Location:
    • A
Routine Call
  • DIE
  • Line Location:
    • A+2
Routine Call
  • DIR
  • Line Location:
    • PSOSUINV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] A+2, B, U+1*

Label References

Name Line Occurrences
A A, A+2, B, U+1
B U+1, Q+2
EX PSOSUINV+3, A
Q B, U
U B

Naked Globals

Name Field # of Occurrence
^(660.1 A+2, U+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 EX!
DA A+1*, A+2, B, U+1, EX!
DI EX!
DIC A*, A+1!, EX!
DIC("W" A*
DIC(0 A*
DIE A*, EX!
DIR PSOSUINV+3!, EX!
DIR("A" PSOSUINV+2*, PSOSUINV+3*
DIR(0 PSOSUINV+3*
>> DIROUT PSOSUINV+3
DIRUT PSOSUINV+3, EX!
DR A+1*, EX!
DTIME B, U+1
DTOUT EX!
DUOUT PSOSUINV+3, EX!
F PSOSUINV+3*, U+1, EX!
X A, B*, U*, U+1, EX!
Y PSOSUINV+3, A, A+1, A+2, U+1*, EX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All