Routine: RMPFET6

Package	Total	Call Graph
Remote Order Entry System	5	(,ARRAY)^RMPFDT2 (,CLEAR,PRIOR)^RMPFET61 ^RMPFET62 ^RMPFET9 PAT^RMPFUTL
VA FileMan	5	^%DT ^DIC FILE^DICN ^DIE ^DIK

Package	Total	Caller Graph
Remote Order Entry System	2	RMPFET5 RMPFET81

Entry Points

Name	Comments	DBIA/ICR reference
START
ST1
END
ADD	;;Add a new line item
ADD1
ADDE
EDIT	;;Edit information for a line item
ED1
EDITE
SELECT	;;Select a line item from 791811
SE0
SE1
SELECTE
DELETE	;;Delete a line item
DEL1
DELETEE
READ

External References

Name	Field # of Occurrence
^%DT	ADD1+1
^DIC	SE0+1
FILE^DICN	ADD1+5
^DIE	ADD1+14, ED1+7, DEL1+3
^DIK	ADD1+11
^RMPFDT2	START+5
ARRAY^RMPFDT2	START
^RMPFET61	ED1+8, ED1+11
CLEAR^RMPFET61	EDIT+6
PRIOR^RMPFET61	EDIT+7, ED1+10
^RMPFET62	START+6
^RMPFET9	ED1+10
PAT^RMPFUTL	START+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?33,"ITEMS ORDERED" Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: START+5
Function Call: WRITE	Prompt: !!,"* UNABLE TO ADD LINE ITEM *" Line Location: ADD1+6
Function Call: WRITE	Prompt: !!,$C(7),"* THIS LINE ITEM IS IN A STATUS THAT IS UNEDITABLE *" Line Location: EDIT+5
Function Call: WRITE	Prompt: ! Line Location: SE0+0
Function Call: WRITE	Prompt: !!,"* THIS LINE ITEM HAS BEEN INACTIVATED FOR NEW ORDERS *" Line Location: SE0+2
Function Call: WRITE	Prompt: !!,"Are you sure you want to delete this item? NO// " Line Location: DELETE+3
Function Call: WRITE	Prompt: !!,"If you enter a <Y> the item will be permanently deleted from this order.",!,"If you enter a <N> or <RETURN> the item will be retained on the order." Line Location: DEL1+0
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1
Routine Call	DIC Line Location: SE0+1
Routine Call	DIE Line Location: ADD1+14 ED1+7 DEL1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810 - [#791810]	RMPFET6+4, ADD1*, ADD1+9, EDIT+4, EDIT+8, ED1+6!
^RMPF(791810.1 - [#791810.1]	ED1+1, SELECT+3, SELECT+6
^RMPF(791810.2 - [#791810.2]	EDIT+5
^RMPF(791811 - [#791811]	EDIT+8, ED1, ED1+2, SELECT+4, SE0+2
^RMPF(791811.1 - [#791811.1]	ED1

Label References

Name	Line Occurrences
@(	START+4
ADD	ST1
ADDE	ADD+4, ADD1+6, ADD1+7, ADD1+12
DEL1	DEL1+1
DELETE	START+7, DEL1
DELETEE	DELETE+4, DEL1+2
ED1	EDIT+7, EDIT+9
EDIT	ST1+1
EDITE	EDIT+5, EDIT+6, EDIT+10
END	START+6, START+7, ST1, ST1+1
READ	DELETE+3, READ+1
SE0	SELECT+5, SELECT+6
SELECT	ADD+4, EDIT+10, SE0+2
SELECTE	SELECT+4, SE0+1
ST1	START+2
START	ST1+1

Naked Globals

Name	Field # of Occurrence
^("I"	SE0+2
^(0	EDIT+8, ED1, ED1+2
^(2	ADD1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADDE!, EDITE+1!, SELECTE!, DELETEE!
%DT	ADD1+1*, ADDE!
%Y	EDITE!, SELECTE!
CX	END!, EDITE+1!
D	ADDE!, EDITE+1!, DELETEE!
D0	ADDE!, EDITE!, DELETEE!
D1	EDITE+1!
DA	ADD1+2, ADD1+10, ADD1+13, ADDE!, ED1+7, EDITE+1!, DEL1+2*, DELETEE!
DA(1	ADD1+2, ADD1+10, ADD1+13, ED1+7, DEL1+3*
DD	ADD1+5!, ADDE!
DI	ADDE!, EDITE!, DELETEE!
DIC	ADD1+2, ADDE!, EDITE+1!, SE0, SE0+1!, SELECTE!, DELETEE!
DIC("A"	SE0*
DIC("B"	EDIT+8*
DIC("DR"	ADD1+3, ADD1+4
DIC("S"	SELECT+5, SELECT+7, SELECT+8, SELECT+9
DIC(0	ADD1+3, SE0
DIE	ADD1+13, ADDE!, ED1+7, EDITE!, DEL1+2*, DELETEE!
DIK	ADD1+10*, ADDE!
DISYS	EDITE+1!, SELECTE!
DLAYGO	ADD1+3*, EDITE+1!
DO	ADD1+5!
DQ	ADDE!, EDITE!, DELETEE!
DR	ADD1+14, ADDE!, ED1+1, ED1+3, ED1+5, EDITE!, DEL1+3*, DELETEE!
DTIME	READ+1
I	ADD1+15*, ADDE!, EDITE+1!
IOF	START+4
RMPF	ADD1+15!, ADDE!
RMPF(	ADD1+15*
RMPFDOB	END!
RMPFDOD	END!
>> RMPFHAT	ADD1+8, EDIT+9, ED1+9, SE0+2
RMPFIT	ADD+3!, ADD+4, ADD1+2, ADD1+4, ADD1+7, EDIT+9, EDIT+10, ED1, ED1+2, ED1+4 , ED1+5, ED1+6, EDITE!, SELECT+4, SE0+1*, SE0+2!
RMPFITP	EDITE!, SELECT+4, SE1
RMPFMC	START+1*, START+2, END!
RMPFMD	START!, END!
RMPFNAM	END!
RMPFO	END!, EDITE!
RMPFO(	START+1
RMPFOUT	START+6, ST1, ST1+1, ADD+4, EDIT+10, SE0+1, DELETE+4, READ!, READ+2
RMPFPGP	ED1*, EDITE!
RMPFQUT	DEL1, DEL1+1, READ!, READ+3
RMPFRE	EDITE!
RMPFSSN	END!
>> RMPFST	SE0+2
RMPFSTO	EDIT+4*, EDIT+5, EDIT+6, EDITE+1!
RMPFSTR0	END+1!, EDITE+1!
RMPFSTR2	END+1!, EDITE+1!
RMPFSTR3	END+1!, EDITE+1!
RMPFTF	EDITE!
>> RMPFTP	START+3, START+4
>> RMPFTYP	ED1+1, ED1+2, SELECT+3, SELECT+6, SELECT+7, SELECT+8
>> RMPFX	RMPFET6+4, ADD1, ADD1+2, ADD1+9, ADD1+10, ADD1+13, EDIT+3, EDIT+4, EDIT+8, ED1+6 , ED1+7, DEL1+2, DEL1+3
RMPFY	START!, START+5!, START+7, ST1, ADD1+7, ADD1+9, ADD1+10, ADD1+11!, ADD1+12, ADD1+13 , ADD1+14, EDIT+3, EDIT+4, EDIT+8, ED1+6, ED1+7, ED1+10, ED1+11*, DEL1+2, DELETEE!
>> RMPFY1	ED1+11
SL	SELECT+3*, SELECT+4, SELECT+5, SELECTE!
ST	ED1+4*, ED1+5, EDITE+1!
SX	END!
U	ADD1+9, EDIT+4, EDIT+5, EDIT+8, ED1, ED1+1, ED1+6, SELECT+3, SELECT+4, SE0+1 , SE0+2, SE1, READ+1
X	RMPFET6+4, START+1, ADD1+1, ADD1+2, ADDE!, EDIT+8*, EDITE!, SE0+1, SELECTE!, DELETEE!
Y	ADD1+3, ADD1+6, ADD1+7, ADDE!, EDITE!, SE0+1, SE1, SELECTE!, DEL1+1, DEL1+2 , DELETEE!, READ+1, READ+2, READ+3
Y1	START+2*, START+6, START+7, ST1, END!, EDIT+7, EDITE!
Z1	SELECTE!
ZY	ADDE!
ZZ	ADDE!

Customize PDF page

Package: Remote Order Entry System

Routine: RMPFET6

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: