Routine: PSGWBO

Package	Total	Call Graph
Auto Replenishment Ward Stock	3	(CHKQTY,GETVAL)^PSGWBO1 ^PSGWFLBO ^PSGWSET
VA Fileman	3	^%DTC ^DIC ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW INVENTORY DISPENSE

Entry Points

External References

Name	Field # of Occurrence
^%DTC	PSGWBO+3
^DIC	PSGWBO+3, WENT+1, DIS+8
^DIE	EXP
CHKQTY^PSGWBO1	DIS+2
GETVAL^PSGWBO1	DIS
^PSGWFLBO	DIS+8
^PSGWSET	PSGWBO+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(X<101:"INVENTORY SHEET MUST BE PRINTED BEFORE ON-HAND AMOUNTS MAY BE ENTERED",1:"INVENTORY OVER 100 DAYS OLD CANNOT BE EDITED") Line Location: PSGWBO+4
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!,"ITEM: ",PSGDR Line Location: PSGDR+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIS+0
Function Call: WRITE	Prompt: *7,!,"Enter number between 0 and 9999 which is the quantity dispensed." Line Location: DIS+1
Function Call: WRITE	Prompt: !!,"ITEM: ",PSGDR Line Location: DIS+2
Routine Call	DIE Line Location: EXP
Routine Call	DIC Line Location: PSGWBO+3 WENT+1 DIS+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSI(58.1 - [#58.1]	Classic Fileman Calls
^PSI(58.19 - [#58.19]	Classic Fileman Calls
^PSI(58.3 - [#58.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSI(58.1 - [#58.1]	WENT, WENT+1, PSGDR+4, PSGDR+5, DIS+3*, EXP
^PSI(58.19 - [#58.19]	PSGWBO+4, EN1+2, EN1+3, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2 , DIS+5
^PSI(58.5 - [#58.5]	DIS+4*

Label References

Name	Line Occurrences
DIS	DIS, DIS+1, DIS+2
END	PSGWBO+4
EXP	DIS
PSG1	PSG2
PSG2	PSG3
PSG3	PSGTYP
PSGDR	PSGDR+1, PSGDR+4, DIS, EXP+1
PSGTYP	PSGDR
RESET	WLOOP
WENT	WLOOP

Naked Globals

Name	Field # of Occurrence
^(	PSGDR+1, PSGDR+2, DIS+5*
^(0	WENT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%Y	END!
A	END!, PSGDR+5*
AMISFL	EN1+3, WLOOP, END!, WENT+1*, DIS+4
DA	END!, WENT+1, DIS, EXP
DA(1	EXP*
DIC	PSGWBO+3!, END+1!, WENT+1!, DIS+8*, EXP!
DIC("A"	PSGWBO+3, WENT
DIC("B"	WENT*
DIC("S"	WENT*
DIC(0	PSGWBO+3, WENT+1, DIS+6, DIS+7
DIE	END+1!, EXP*!
DLAYGO	END!, DIS+7*
DR	END+1!, EXP*
DT	PSGWBO+3
DTIME	DIS
FLG	EN1+3, WLOOP, END!, WENT+1, DIS*
I	END!
J	EN1+2, END!, RESET+1
K	END!
K1	END!
KEY	END!
LP	END!
PC	END!
PSG1	END!, WENT+2, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, DIS+5
PSG2	END!, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, DIS+5
PSG3	END!, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, DIS+5
PSGDA	WLOOP*, END!, WENT
PSGDDA	END!, PSGDR+2*, PSGDR+4, PSGDR+5, DIS+3, EXP
PSGDR	END!, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PSGDR+3, DIS+2, DIS+5
PSGSORTK	WLOOP, END!, RESET+1
PSGTYP	END!, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, DIS+5
>> PSGW("PO"	EN1+1!, EN1+2*, WLOOP, END!, RESET+1
PSGWACT	END!, DIS+3*
PSGWADT	EN1+3*, END!, DIS+4
PSGWAOU	END!, WENT+1*, DIS+4, RESET+1
PSGWAOUN	END!, WENT+1*
PSGWCAT	EN1+3*, END!, DIS+4
PSGWDA	END!, WENT+1*, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PSGDR+4 , PSGDR+5, DIS+3, DIS+5, EXP
PSGWDIN	END!, DIS+8*
PSGWDN	END!, PSGDR+2*, DIS+4, DIS+8
PSGWFLG	PSGWBO+2*, END+1!
PSGWIDA	PSGWBO+3*, PSGWBO+4, EN1+2, EN1+3, END!, PSG1, PSG2, PSG3, PSGTYP, PSGDR , PSGDR+1, PSGDR+2, PSGDR+4, PSGDR+5, DIS+3, DIS+5
PSGWIN	EN1+3*, END!
PSGWN	END!, WENT*
PSGWOD	END!, PSGDR+5*, DIS+4
PSGWQD	END!, DIS+4*
PSGWSITE	PSGWBO+2, END+1!, WENT+1, DIS+6
PSGWV	EN1+1*, END!
PSGX	END!
PSGX(5	PSGDR+5, DIS, DIS+3, DIS+4, DIS+5
QTYFLG	DIS+2!
SK	EN1+2*, END!
TEMPDR	END+1!, PSGDR+3*
TPSG1	END+1!
TPSG2	END+1!
TPSG3	END+1!
TYP	END+1!
X	PSGWBO+4, END!, DIS, DIS+1, DIS+2, DIS+3, DIS+8
>> X1	PSGWBO+3*
>> X2	PSGWBO+3*
Y	PSGWBO+3, END!, WENT+1, DIS+8

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWBO

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RESET	; Reset Sort key if AOUs taken out of order
END
WLOOP
PSGDR
EN1	; PSGWIDA = DA of inventory being edited
DIS
EXP
WENT
PSGTYP
PSG2
PSG3
PSG1