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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWBO  

Entry Points

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

External References

Name Field # of Occurrence
^DIC GETVAL+3
YN^DICN ASK

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
Routine Call
  • DIC
  • Line Location:
    • GETVAL+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] LOC+2
^PSI(58.1 - [#58.1] CHKQTY+1, ALIGN+1
^PSI(58.19 - [#58.19] TYP, TYP+2

Label References

Name Line Occurrences
ALIGN GETVAL+3
ASK ASK+1
LOC ALIGN+1
TYP TYP+3

Naked Globals

Name Field # of Occurrence
^(0 CHKQTY+1, ALIGN+1, LOC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+1
>> DA GETVAL+3*, TYP*
DIC GETVAL+3*!
DIC("W" GETVAL*
DIC(0 GETVAL+1*, GETVAL+2*
>> I LOC+1*
>> K ALIGN+1*, LOC+1, LOC+2
>> K1 LOC+1*
>> PSG1 TYP+1*, TYP+2
>> PSG2 TYP+1*, TYP+2
>> PSG3 TYP+1*, TYP+2
>> PSGDDA CHKQTY+1
>> PSGDR TYP*, TYP+2*, LOC+2*
>> PSGTYP TYP+2*
>> PSGWDA CHKQTY+1, GETVAL+3, ALIGN+1, TYP, TYP+2
>> PSGWIDA TYP, TYP+2
QTYFLG CHKQTY+1!, ASK+2*
STKLEV CHKQTY+1*!, CHKQTY+2!, CHKQTY+3, ASK!, ASK+2!
>> TEMPDR TYP
>> TPSG1 TYP, TYP+1
>> TPSG2 TYP, TYP+1
>> TPSG3 TYP, TYP+1
>> TYP ALIGN+1*, TYP*, TYP+2
>> X CHKQTY+2, GETVAL+1*
>> Y GETVAL+3, ALIGN+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All