Routine: PSGWPL0

Package	Total	Call Graph
Auto Replenishment Ward Stock	2	EN2^PSGWPL ^PSGWPL1
Kernel	1	^%ZISC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWPL

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	END+1
EN2^PSGWPL	PNT
^PSGWPL1	WLOOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !,?17,PSG1 Line Location: PNT+1
Function Call: WRITE	Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3) Condition for execution: EXP>0 Line Location: PNT+1
Function Call: WRITE	Prompt: !,?10,PSGDR,?51,$J($P(^PSI(58.19,"AINV",PSGWIDA,PSGDA,PSG1,PSG2,PSG3,PSGTYP,PSGDR),"^",3),3) Line Location: PNT+4
Function Call: WRITE	Prompt: ?58,$E($P(^(0),"^"),1,10) Line Location: QCODE+0
Function Call: WRITE	Prompt: ?71,$J($P(^PSI(58.1,PSGDA,1,PSGDDA,1,PSGWIDA,0),"^",6),3),?91,$J(PSGBOT,3),?105,$J($P(^(0),"^",5),3),?115,"_________" Line Location: QCODE+1
Function Call: WRITE	Prompt: !,$S(MSGFLG:"Pick List cannot continue printing.",1:"Pick List cannot be printed."),!,"On-hand quantity or quantity dispensed not entered.",!,"Use Input AOU Inventory OR Enter/Edit Quantity Dispensed." Line Location: MSG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	QCODE, CSUB, LOC+2
^PSI(58.1 - [#58.1]	PSGDR+3, QCODE+1, LOC+3, LOC+4, LOC+5
^PSI(58.17 - [#58.17]	PSG1, PNT+1
^PSI(58.19 - [#58.19]	ENQ+2, ENQ+3, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2 , PNT+4, CHKDISP+1, LOC+1
^PSI(58.3 - [#58.3]	BACKOD, BACKOD+1
^TMP("PSGWDL"	END+1!, LOC+3, LOC+4, LOC+5*

Label References

Name	Line Occurrences
CHKDISP	PSGDR
LOC	PSGDR+2
MSG	CHKDISP+1
PNT	BACKOD
PSG1	PSG2
PSG2	PSG3
PSG3	PSGTYP
PSGDR	PSGDR+1, CSUB+1
PSGTYP	PSGDR
WENT	WLOOP

Naked Globals

Name	Field # of Occurrence
^(	BACKOD+1, QCODE, LOC+1, LOC+3
^("PSG"	LOC+2
^(0	BACKOD+1, QCODE, QCODE+1, CSUB

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AOUFLG	END+1!, WENT+1*, PNT!
DISPFL	ENQ+3, WLOOP+1, END+1!, PSGDR+2
EXP	END+1!, PSG1*, PNT+1
G	END!
GRP	END+1!
I	END+1!, LOC+2*
IO("Q"	END+1!
IOF	DONE
IOSL	PNT
IOST	DONE
J	ENQ+2, END+1!, BACKOD+1, LOC+1*, LOC+3, LOC+4, LOC+5
K	END+1!, LOC+1*, LOC+2
K1	END+1!, LOC+2*
L	END+1!
LL	END+1!, PNT+3*
LP	END+1!
MSGFLG	ENQ+1, END+1!, PNT+4, MSG+1
NOPRT	WLOOP, WLOOP+1, END+1!, PSGDR, CHKDISP+1*
PC	END+1!
PSG1	END!, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+1 , PNT+4, CHKDISP+1, LOC+1
PSG1FLG	END!, PSG1*, PNT+1!
PSG2	END!, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+2, PNT+4 , CHKDISP+1, LOC+1
PSG3	END!, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+2, PNT+4, CHKDISP+1 , LOC+1
PSG3FLG	END!, PSG3*, PNT+2!
PSGBON	END!, BACKOD*, BACKOD+1
PSGBOT	END!, BACKOD, BACKOD+1, QCODE+1
PSGCS	END!, CSUB*
PSGDA	WLOOP*, END!, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2 , PSGDR+3, BACKOD+1, PNT+4, QCODE+1, CHKDISP+1, LOC+1, LOC+3, LOC+4, LOC+5
PSGDDA	END!, PSGDR*, PSGDR+3, QCODE+1
PSGDL1	END+1!, LOC+3, LOC+4, LOC+5
PSGDL2	END+1!, LOC+3, LOC+4, LOC+5
PSGDL3	END+1!, LOC+3, LOC+4, LOC+5
PSGDN	END!, PSGDR+3*, BACKOD, QCODE, CSUB
PSGDR	END!, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+4, CHKDISP+1, LOC+1, LOC+3, LOC+4 , LOC+5
PSGPAGE	END!
PSGSORTK	WLOOP*, END!
PSGST	END!
PSGTODAY	END!
PSGTYFLG	END!, PSGTYP*, PNT+3!
PSGTYP	END!, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+3, PNT+4, CHKDISP+1, LOC+1
>> PSGW("PO"	ENQ+2*, WLOOP, END!
PSGWFLG	END+2!
PSGWGRP	END!
PSGWIDA	ENQ+2, ENQ+3, END!, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1 , PSGDR+2, PNT+4, QCODE+1, CHKDISP+1, LOC+1, LOC+3, LOC+4, LOC+5
PSGWIN	ENQ+3*, END!, BACKOD+1
PSGWLP	END!
PSGWPC	END!
PSGWSITE	END+2!
SK	ENQ+2*, END+1!
SY	END+1!, QCODE*
X	END+1!
X1	END+1!
Y	END+1!, BACKOD*
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTSK	END+1!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWPL0

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOC	;Build item address
CHKDISP	;Has quantity dispensed been entered for inventory?
END
QCODE
WLOOP
PNT
PSGDR
ENQ	;ENTRY POINT WHEN QUEUED
DONE
CSUB
MSG	;Warning msg for no quantities
WENT	;Sort the ward item list to determine content of Pick List
PSGTYP
PSG2
PSG3
BACKOD
PSG1