Routine: PRCPUTIL

Customize PDF page

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

Information

PRCPUTIL ;(WIRMFO)/DXH,DGL - GIP utilities ; 10.7.99

Source Information

Source file <PRCPUTIL.m>

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	PRCPENE1

Entry Points

Name	Comments	DBIA/ICR reference
QTY	; utility to maintain the quantities for selected Inventory Points ; as they are replenished via receipts against a Purchase Order ; line item which they are sharing with other Inventory Points ; PRC5197 ; da(3)=>p.o. ; da(2)=>item ; da(1)=>date received ; da=>inventory point
DISPIP(FCPDA)	; display inv pts for FCP
DISPFCP(IP)	; display FCP for inv pt

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,$P($G(^PRCP(445,I,0)),U,1) Line Location: DISPIP+4
Function Call: WRITE	Prompt: !!,"To make a change, first select the existing control point and 'unlink' it.",!,"Then select a new one if you want to." Line Location: DISPFCP+4
Function Call: WRITE	Prompt: !!,"Current selection:" Line Location: DISPFCP+5
Function Call: WRITE	Prompt: ! Condition for execution: CNT Line Location: DISPFCP+6
Function Call: WRITE	Prompt: ?20,$P($G(^PRC(420,+PRC("SITE"),1,FCP,0)),U) Line Location: DISPFCP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	DISPIP+1, DISPIP+4, DISPFCP+1, DISPFCP+6
^PRC(442 - [#442]	QTY+9, QTY+10, QTY+11, QTY+12*
^PRCP(445 - [#445]	DISPIP+4

Naked Globals

Name	Field # of Occurrence
^(	QTY+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	DISPFCP+3, DISPFCP+6
>> DA	QTY+9
>> DA(1	QTY+9
>> DA(2	QTY+9, QTY+10, QTY+11, QTY+12
>> DA(3	QTY+9, QTY+10, QTY+11, QTY+12
FCP	DISPFCP+2~, DISPFCP+3, DISPFCP+6
FCPDA	DISPIP~, DISPIP+1, DISPIP+4
I	DISPIP+2~, DISPIP+3, DISPIP+4
IP	DISPFCP~, DISPFCP+1, DISPFCP+6
>> PRC("SITE"	DISPIP+1, DISPIP+4, DISPFCP+1, DISPFCP+6
PRCP	QTY+8~
PRCP("DT"	QTY+10*, QTY+11
PRCP("IP"	QTY+9*, QTY+10, QTY+12
PRCP("LP"	QTY+12*
PRCPDA	QTY+8~, QTY+10*, QTY+11
QTY	QTY+8~, QTY+10, QTY+11, QTY+12
U	QTY+9, QTY+11, QTY+12, DISPIP+4, DISPFCP+6