Routine: RMPFDM

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Remote Order Entry System	2	^RMPFDM (,MENU)^RMPFUTL
VA FileMan	1	DD^%DT

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
Remote Order Entry System	1	RMPFDM

Entry Points

Name	Comments	DBIA/ICR reference
RMPFSET
S1
S2
R3
END
WRITE
QUE
QUEE
READ

External References

Name	Field # of Occurrence
DD^%DT	WRITE
^%ZIS	QUE, QUE+2
HOME^%ZIS	QUE+5
^%ZTLOAD	QUE+4
^RMPFDM	QUE+1, QUE+2
^RMPFUTL	RMPFSET+1
MENU^RMPFUTL	RMPFSET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"* A MENU SELECTION MUST BE MADE *" Line Location: RMPFSET+0
Function Call: WRITE	Prompt: @IOF,!?24,"REMOTE ORDER/ENTRY SYSTEM STATUS" Line Location: RMPFSET+2
Function Call: WRITE	Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT,! Line Location: RMPFSET+3
Function Call: WRITE	Prompt: "-" Line Location: RMPFSET+4
Function Call: WRITE	Prompt: !!,?31,"Current",?60,"Messages" Line Location: RMPFSET+5
Function Call: WRITE	Prompt: !?6,"Order Status",?31,"Number",?43,"Oldest Date",?60,"To Read" Line Location: RMPFSET+6
Function Call: WRITE	Prompt: !,"-------------------------",?30,"--------",?43,"------------",?60,"--------",! Line Location: RMPFSET+7
Function Call: WRITE	Prompt: @IOF Line Location: R3+0
Function Call: WRITE	Prompt: ! Line Location: R3+1
Function Call: WRITE	Prompt: !,"Enter <P>rint or <RETURN> to continue." Line Location: R3+2
Function Call: WRITE	Prompt: ! Line Location: QUE+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	%ZIS Line Location: QUE QUE+2
Routine Call	%ZIS Line Location: QUE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810 - [#791810]	S1, S2, S2+1, S2+3, S2+5
^RMPF(791810.2 - [#791810.2]	S1+1
^RMPF(791810.5 - [#791810.5]	S2+2

Label References

Name	Line Occurrences
END	R3, R3+2, QUE
QUE	R3+3
QUEE	QUE+1
R3	S1
READ	R3+2, READ+1
S1	S2
S2	S2+1, S2+2, S2+3, S2+6
WRITE	S2

Naked Globals

Name	Field # of Occurrence
^(	S2+5
^(0	S1+1, S2+1, S2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%T	QUEE!
%ZIS	QUE, QUE+2, QUEE!
CT	S1, S2+3, END!, WRITE, WRITE+1
D	S2+4*, END!
DTIME	READ+1
DX	S1, S2+4, END!, WRITE
I	RMPFSET+4, S2+5, R3+1*, END!
IO	QUE+1
IO("S"	QUE+1, QUE+2
IO(0	QUE+1
IOF	RMPFSET+2, R3
ION	QUE+2, QUE+4
>> IOP	QUE+2*
IOST	R3
J	S2+5*, END+1!
LD	END!, WRITE*, WRITE+1
MG	END!
NM	END!
POP	QUE, QUEE!
PT	END!
>> RMPFDAT	RMPFSET+1, RMPFSET+3
>> RMPFMENU	RMPFSET, S2+2
RMPFMGG	S1, S2+5, END+1!, WRITE+1
RMPFOUT	END!, QUE+5, READ!, READ+2
RMPFQUT	END!, READ!, READ+3*
RMPFS	END!
>> RMPFSTAN	RMPFSET+1
>> RMPFSTAP	RMPFSET+3, S2+3
>> RMPFSYS	RMPFSET+1
RMPFX	S1, S2, S2+1, S2+3, S2+5, END!
>> S0	S2+1*, S2+2, S2+4
SP	S1+1*, END!, WRITE+1
ST	RMPFSET+8, S1, S1+1, S2, END!
U	S1+1, S2+2, S2+3, S2+5, READ+1
US	END!
X	S2+2, S2+5, END!
Y	S2+5, R3+2, R3+3, END!, WRITE, READ+1, READ+2, READ+3
ZTIO	QUE+4*, QUEE!
ZTRTN	QUE+3*, QUEE!
ZTSAVE	QUEE!
ZTSAVE("RMPF*"	QUE+3*
ZTSK	QUE+6, QUEE!

Customize PDF page

Package: Remote Order Entry System

Routine: RMPFDM

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: