Routine: PRCPRPKG

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PRCPRPKG ;WISC/RFJ-packaging discrepancy report ;04 Oct 91

Source Information

Source file <PRCPRPKG.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IFCAP	4	PROCESS^PRCPRPK1 PRINT^PRCPRPK2 ITEMSEL^PRCPURS4 ^PRCPUSEL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

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
IFCAP	1	PRCP PACKAGING DISCREP PRINT

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; queue comes here ; find errors
Q

External References

Name	Field # of Occurrence
^%ZIS	PRCPRPKG+10
^%ZISC	Q
^%ZTLOAD	PRCPRPKG+10
PROCESS^PRCPRPK1	DQ+2
PRINT^PRCPRPK2	DQ+4
ITEMSEL^PRCPURS4	PRCPRPKG+8
^PRCPUSEL	PRCPRPKG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS PROGRAM CAN ONLY BE USED BY THE WAREHOUSE OR PRIMARY INVENTORY POINTS." Line Location: PRCPRPKG+4
Function Call: WRITE	Prompt: !!,"YOU DO NOT HAVE A VENDOR (FILE #440) ENTERED AS A SUPPLY WAREHOUSE.",! Line Location: PRCPRPKG+6
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRPKG+13
Routine Call	%ZIS Line Location: PRCPRPKG+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	PRCPRPKG+6
^TMP($J	PRCPRPKG+9, Q!

Label References

Name	Line Occurrences
Q	PRCPRPKG+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRCPRPKG+10*
IO("Q"	PRCPRPKG+10!
>> POP	PRCPRPKG+10
>> PRCP("DPTYPE"	PRCPRPKG+4
>> PRCP("I"	PRCPRPKG+3
>> PRCPALLI	PRCPRPKG+9
WHSESRCE	PRCPRPKG+5~, PRCPRPKG+6*
X	PRCPRPKG+5~
Y	PRCPRPKG+5~
>> ZTDESC	PRCPRPKG+11*
>> ZTRTN	PRCPRPKG+11*
>> ZTSAVE("PRCP*"	PRCPRPKG+12*
>> ZTSAVE("WHSESRCE"	PRCPRPKG+12*
>> ZTSAVE("ZTREQ"	PRCPRPKG+12*
>> ZTSAVE("^TMP($J,""PRCPURS4"","	PRCPRPKG+12*
ZTSK	PRCPRPKG+10!