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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWBO

Entry Points

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

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

Customize PDF page

Package: Auto Replenishment Ward Stock