Routine: PRCHDIS

Customize PDF page

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

Information

PRCHDIS ;ID/RSD-X-REF OF DISCOUNT FIELD IN FILE 442 ;3/2/95 10:29 AM

Source Information

Source file <PRCHDIS.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: 2

Package	Total	Caller Graph
IFCAP	2	DISCOUNT PROMPT PAYMENT TERMS

Entry Points

Name	Comments	DBIA/ICR reference
DIS
1
2
3
DIS1
DIS2
DIS21
DIS221
DIS22
ER
ER1
TERM

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??",$C(7),!," ITEM ",PRCHD," IS NOT A VALID LINE ITEM OR IS IN ANOTHER DISCOUNT" Line Location: DIS1+0
Function Call: WRITE	Prompt: $C(7),!," ITEM ",PRCHD," IS NOT ASSOCIATED WITH ",$S(PRCHD("CN")=".OM":"PURCHASE ORDER",1:"CONTRACT "_PRCHD("CN"))," " Line Location: ER+0
Function Call: WRITE	Prompt: !," ERROR WITH LINE ITEM ",I,"",$C(7) Line Location: ER1+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	DIS+1, 2, DIS1, TERM
^TMP($J	DIS!, DIS+2!, DIS1!, DIS1+1*, DIS2, ER!, ER1!

Label References

Name	Line Occurrences
1	DIS+2
2	DIS+2
3	DIS+2
DIS1	1, 3
DIS2	1, 3
DIS21	DIS2
DIS221	DIS21
ER	DIS2
ER1	DIS21

Naked Globals

Name	Field # of Occurrence
^(	DIS+1
^(2	TERM

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	DIS+1, 2, DIS1
>> DA(1	TERM
>> I	DIS+1, 1, ER1
>> J	DIS21*
>> K	DIS+1*
>> PRCH("AM"	DIS21, DIS221
PRCHD	DIS, DIS+1, DIS+2!, 1, 3, DIS1!, DIS1+1, DIS2, ER!, ER1! , TERM*
PRCHD("*"	TERM*
PRCHD("AC"	DIS, DIS1+1
PRCHD("CN"	DIS21*, DIS221, ER
PRCHD("CN3"	DIS221*, DIS22
PRCHD("DS"	DIS+1*
PRCHD("LI"	DIS!, DIS2, DIS21, DIS221, DIS22*
U	DIS+1, 2, DIS1, DIS221, TERM
X	DIS, DIS+2!, 1, 2, 2+1, 3, DIS1!, ER!, ER1!, TERM!