Routine: PRCPRLDO

Package	Total	Call Graph
IFCAP	9	RELEASE^PRCPBAL3 (BUILD,Q)^PRCPOPT DQ^PRCPOPT1 ($$STATUS,$$TYPE,VARIABLE)^PRCPOPU ($$SCRPAUSE,END,P)^PRCPUREP ^PRCPUSEL ($$DESCR,$$INVNAME)^PRCPUX1 DISPLAY^PRCPUX2 $$YN^PRCPUYN
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	DD^%DT NOW^%DTC

Package	Total	Caller Graph
IFCAP	1	PRCP DIST ORDER LIST TO/FROM

Entry Points

Name	Comments	DBIA/ICR reference
DEVICE	;
DQ	; queue starts here
H
PICKTICK	; print orders which have been released but the picking ticket ; has not been printed

Name	Field # of Occurrence
DD^%DT	DQ+4, DQ+9
NOW^%DTC	DQ+4
^%ZIS	DEVICE+1
^%ZISC	DQ+20
^%ZTLOAD	DEVICE+3
RELEASE^PRCPBAL3	PRCPRLDO+15
BUILD^PRCPOPT	PICKTICK+8
Q^PRCPOPT	PICKTICK+10
DQ^PRCPOPT1	PICKTICK+9
$$STATUS^PRCPOPU	DQ+10
$$TYPE^PRCPOPU	DQ+10
VARIABLE^PRCPOPU	PICKTICK+7
$$SCRPAUSE^PRCPUREP	DQ+4
END^PRCPUREP	DQ+19
P^PRCPUREP	DQ+13, DQ+18
^PRCPUSEL	PRCPRLDO+3
$$DESCR^PRCPUX1	DQ+17
$$INVNAME^PRCPUX1	DQ+11, DQ+12
DISPLAY^PRCPUX2	PRCPRLDO+6, PRCPRLDO+8, PRCPRLDO+19, PRCPRLDO+25
$$YN^PRCPUYN	PRCPRLDO+10, PRCPRLDO+21, PRCPRLDO+27

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO ORDERS READY FOR RELEASING." Line Location: PRCPRLDO+14
Function Call: WRITE	Prompt: ! Line Location: PRCPRLDO+19
Function Call: WRITE	Prompt: ! Line Location: PRCPRLDO+25
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"YOU CANNOT SELECT YOUR CURRENT DEVICE FOR PRINTING PICKING TICKETS." Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: DEVICE+6
Function Call: WRITE	Prompt: !,$P(DATA,"^"),?8,$P(Y,"@"),?22,$P($$TYPE^PRCPOPU(ORDERDA),"ORDER"),?32,$$STATUS^PRCPOPU(ORDERDA) Line Location: DQ+10
Function Call: WRITE	Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",3)),1,25) Line Location: DQ+11
Function Call: WRITE	Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",2)),1,25) Line Location: DQ+12
Function Call: WRITE	Prompt: !?10,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,29),?40,ITEMDA,?50,$J(+$P(ITEMDATA,"^",2),15),$J(UNITCOST,15) Line Location: DQ+17
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"LIST DISTRIBUTION ORDER REPORT FOR ",PRCP("IN"),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"ORDER#",?8,"DATE",?22,"TYPE",?32,"STATUS",?54,"DELIVER ",$S(PRCP("DPTYPE")="P":"TO",1:"FROM")," INVENTORY POINT" Line Location: H+2
Function Call: WRITE	Prompt: !?10,"ITEM",?40,"MI#",?50,$J("QUANTITY",15),$J("EST. UNIT COST",15) Line Location: H+3
Function Call: WRITE	Prompt: !,% Line Location: H+4
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	DQ+16
^PRCP(445.3 - [#445.3]	PRCPRLDO+13, DQ+5, DQ+15, PICKTICK+3
^TMP($J	PRCPRLDO+12!, PRCPRLDO+13*, PRCPRLDO+14, PRCPRLDO+16!

Name	Field # of Occurrence
^(	PRCPRLDO+13, DQ+5, DQ+15, PICKTICK+3

Name	Field # of Occurrence
%	PRCPRLDO+4~, PRCPRLDO+10, PRCPRLDO+11, PRCPRLDO+21, PRCPRLDO+22, PRCPRLDO+27, PRCPRLDO+28, DQ+4, H, H+1 , H+4*
>> %ZIS	DEVICE+1*
DATA	PRCPRLDO+13, DQ+3~, DQ+5, DQ+6, DQ+7, DQ+8, DQ+9, DQ+10, DQ+11, DQ+12 , DQ+16, PICKTICK+2~, PICKTICK+3*, PICKTICK+4, PICKTICK+5, PICKTICK+6
IO	DEVICE+2, DQ+4
IO("Q"	DEVICE+3!
IO(0	DEVICE+2
IOF	H
IOSL	DQ+13, DQ+18
ITEMDA	DQ+3~, DQ+15*, DQ+16, DQ+17
ITEMDATA	DQ+3~, DQ+15*, DQ+17
NOW	DQ+3~, DQ+4*, H
ORDERDA	PRCPRLDO+4~, PRCPRLDO+13, DQ+3~, DQ+5, DQ+10, DQ+15, PICKTICK+2~, PICKTICK+3*, PICKTICK+8
PAGE	DQ+3~, DQ+4, H
>> POP	DEVICE+1
>> PRCP("DPTYPE"	PRCPRLDO+7, DQ+7, DQ+8, DQ+11, DQ+12, H+2, PICKTICK+4
>> PRCP("I"	PRCPRLDO+3, PRCPRLDO+13, DQ+7, DQ+8, DQ+17, PICKTICK+4
>> PRCP("IN"	PRCPRLDO+8, PRCPRLDO+18, H+1
PRCPFITM	PRCPRLDO+4~, PRCPRLDO+28*, DQ+14, H+3
PRCPFLAG	PRCPRLDO+4~, PRCPRLDO+7, PRCPRLDO+10, PRCPRLDO+21, DQ+3~, DQ+5, DQ+13, DQ+15, DQ+18
PRCPFPIC	PRCPRLDO+4~, PRCPRLDO+22*, PRCPRLDO+23, DEVICE+2, DQ+1
PRCPORD	PICKTICK+2~
PRCPPAT	PICKTICK+2~
PRCPPRIM	PICKTICK+2~
PRCPSECO	PICKTICK+2~
SCREEN	DQ+3~, DQ+4*, DQ+13, DQ+18, H
UNITCOST	DQ+3~, DQ+16*, DQ+17
X	PRCPRLDO+4~, PRCPRLDO+5!, PRCPRLDO+6, PRCPRLDO+8!, PRCPRLDO+18!, PRCPRLDO+19, PRCPRLDO+25!, DQ+3~
X(1	PRCPRLDO+5, PRCPRLDO+8, PRCPRLDO+18, PRCPRLDO+25
>> XH	PRCPRLDO+9, PRCPRLDO+20, PRCPRLDO+26*
>> XH(1	PRCPRLDO+20, PRCPRLDO+26
>> XP	PRCPRLDO+9, PRCPRLDO+20, PRCPRLDO+26*
Y	DQ+3~, DQ+4, DQ+9, DQ+10
>> ZTDESC	DEVICE+4*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("PRCP*"	DEVICE+5*
>> ZTSAVE("ZTREQ"	DEVICE+5*
ZTSK	DEVICE+3!