Routine: PRCPUCC

Package	Total	Call Graph
IFCAP	3	^PRCPUSEL $$INVNAME^PRCPUX1 ESIG^PRCUESIG
VA FileMan	3	DD^%DT ^DIC ^DIE

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: 8

Package	Total	Caller Graph
IFCAP	8	PRCP DIST COST EDIT PRCPOPPP PRCPPOL1 PRCPRINQ PRCPUUIP PRCPUUIW PRCPWPL4 PRCPWPP3

Entry Points

Name	Comments	DBIA/ICR reference
COSTCNTR(TOINVPT,FROMINPT,COSTCNTR,COST)	; add/update distribution cost (446) ; toinvpt=primary and frominpt=whse and costcntr=primary ; toinvpt=secondary and frominpt=primary and costcntr=primary ; secondaries do not have costcenters -------------------^	ICR #6578 Status: Active Usage: Private
EDIT	; edit distribution costs
SELCOSTS(INVPT)

Name

Comments

DBIA/ICR reference

COSTCNTR(TOINVPT,FROMINPT,COSTCNTR,COST)

; add/update distribution cost (446)
; toinvpt=primary and frominpt=whse and costcntr=primary
; toinvpt=secondary and frominpt=primary and costcntr=primary
; secondaries do not have costcenters -------------------^

ICR #6578

Status: Active

Usage: Private

EDIT

; edit distribution costs

SELCOSTS(INVPT)

External References

Name	Field # of Occurrence
DD^%DT	EDIT+7
^DIC	COSTCNTR+9, EDIT+6, SELCOSTS+3
^DIE	COSTCNTR+12, EDIT+9
^PRCPUSEL	EDIT+1
$$INVNAME^PRCPUX1	EDIT+8
ESIG^PRCUESIG	EDIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS OPTION CAN ONLY BE USED BY WAREHOUSE AND PRIMARY INVENTORY POINTS." Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+6
Function Call: WRITE	Prompt: !!?5,"Distribution TO : ",$$INVNAME^PRCPUX1(+$P(D,"^")),!?5,"Distribution DATE: ",Y,!?5,"Distribution CC : ",$E($P(D,"^",4),1,55),!?24,$E($P(D,"^",4),56,100) Line Location: EDIT+8
Routine Call	DIC Line Location: COSTCNTR+9 EDIT+6 SELCOSTS+3
Routine Call	DIE Line Location: COSTCNTR+12 EDIT+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCP(446 - [#446]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	COSTCNTR+4, COSTCNTR+9
^PRCP(446 - [#446]	COSTCNTR+6, COSTCNTR+10, COSTCNTR+13*, COSTCNTR+14, EDIT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	COSTCNTR+5~, EDIT+3~, SELCOSTS+1~
%DT	EDIT+3~
%H	COSTCNTR+5~
%I	COSTCNTR+5~
COST	COSTCNTR~, COSTCNTR+4, COSTCNTR+13
COSTCNTR	COSTCNTR~, COSTCNTR+4, COSTCNTR+8, COSTCNTR+12
D	COSTCNTR+5~, EDIT+7*, EDIT+8
D0	COSTCNTR+5~, EDIT+3~
DA	COSTCNTR+5~, COSTCNTR+11, COSTCNTR+13, EDIT+3~, EDIT+7
DI	COSTCNTR+5~, EDIT+3~
DIC	COSTCNTR+5~, COSTCNTR+7, EDIT+6!, SELCOSTS+1~, SELCOSTS+2*
DIC("A"	EDIT+6*
DIC("DR"	EDIT+6*
DIC("S"	COSTCNTR+8, EDIT+6, SELCOSTS+2*
DIC(0	COSTCNTR+7, EDIT+6, SELCOSTS+2*
DIE	COSTCNTR+5~, COSTCNTR+12, EDIT+3~, EDIT+9
DISYS	COSTCNTR+5~
DLAYGO	COSTCNTR+5~, COSTCNTR+7, EDIT+3~, EDIT+6
DQ	COSTCNTR+5~, EDIT+3~
DR	COSTCNTR+5~, COSTCNTR+12, EDIT+3~, EDIT+9
DT	COSTCNTR+12
DUZ	EDIT+4
FROMINPT	COSTCNTR~, COSTCNTR+4, COSTCNTR+8, COSTCNTR+12
I	COSTCNTR+5~, EDIT+3~, SELCOSTS+1~
INVPT	SELCOSTS~, SELCOSTS+2
>> PRCP("DPTYPE"	EDIT+2
>> PRCP("I"	EDIT+1, EDIT+6
PRCPFLAG	EDIT+3~, EDIT+5, EDIT+6*
PRCPPRIV	COSTCNTR+9!, EDIT+6!, SELCOSTS+1~, SELCOSTS+2*
TOINVPT	COSTCNTR~, COSTCNTR+4, COSTCNTR+9
X	COSTCNTR+5~, COSTCNTR+9, EDIT+3~, EDIT+4, SELCOSTS+1~
Y	COSTCNTR+5~, COSTCNTR+10, COSTCNTR+11, COSTCNTR+12, EDIT+3~, EDIT+6, EDIT+7*, EDIT+8, SELCOSTS+1~, SELCOSTS+4

Customize PDF page

Package: IFCAP