Routine: RMPFDT9

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Remote Order Entry System	3	^RMPFDT10 ^RMPFDT9 PAT^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: 3

Package	Total	Caller Graph
Remote Order Entry System	3	RMPFDT RMPFDT9 RMPFET0

Entry Points

Name	Comments	DBIA/ICR reference
END
SET	;; input: RMPFX
DISP	;; input: EC,ED,EE,ET,EU,SE
HEAD
CONT
C1
QUE
QUEE
READ

External References

Name	Field # of Occurrence
DD^%DT	SET+5, SET+8
^%ZIS	QUE, QUE+2
HOME^%ZIS	QUE+5
^%ZISC	DISP+10
^%ZTLOAD	QUE+4
^RMPFDT10	C1+6
^RMPFDT9	QUE+1, QUE+2
PAT^RMPFUTL	RMPFDT9+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Eligibility Entered By: ",EU Line Location: DISP+2
Function Call: WRITE	Prompt: !!,"Eligibility Entered On: ",ED Line Location: DISP+3
Function Call: WRITE	Prompt: @IOF Line Location: DISP+9
Function Call: WRITE	Prompt: !?24,"ROES ORDER EXTENDED INFORMATION" Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?35,"SSN: ",RMPFSSN,?68,RMPFDAT Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: "-" Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: !,"Type <RETURN> to continue" Line Location: CONT+1
Function Call: WRITE	Prompt: ", <L>ine Item View" Condition for execution: RMPFMENU=0 Line Location: CONT+1
Function Call: WRITE	Prompt: " or <P>rint: " Line Location: CONT+1
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]	RMPFDT9+4, SET+2, SET+9
^RMPF(791810.4 - [#791810.4]	SET+6
^VA(200 - [#200]	SET+4, SET+7

Label References

Name	Line Occurrences
CONT	RMPFDT9+5, C1, C1+4
DISP	RMPFDT9+5
END	RMPFDT9+4, QUE
HEAD	RMPFDT9+5
QUE	C1+5
QUEE	QUE+1
READ	CONT+1, READ+1
SET	RMPFDT9+5

Naked Globals

Name	Field # of Occurrence
^(0	SET+4, SET+6, SET+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%T	QUEE!
%XX	END!
%YY	END!
%ZIS	QUE, QUE+2, QUEE!
DFN	RMPFDT9+4*, END!
DTIME	READ+1
EB	SET+3*, SET+10!
EC	SET+9*, DISP+4, DISP+11!
ED	SET+5*, DISP+3, DISP+11!
EE	SET+7*, DISP+7, DISP+11!
ET	SET+8*, DISP+8, DISP+11!
EU	SET+3, SET+4, DISP+2, DISP+11!
I	END!, HEAD+2, CONT
IO	QUE+1
IO("S"	DISP+10, QUE+1, QUE+2
IO(0	QUE+1
IOF	DISP+9, HEAD
ION	QUE+2, QUE+4
>> IOP	QUE+2*
IOST	DISP+9
POP	QUE, QUEE!
>> RMPFDAT	HEAD+1
RMPFDOB	END!
RMPFDOD	END!
>> RMPFMENU	CONT+1, C1+2, C1+6
RMPFNAM	END!, HEAD+1
RMPFOUT	END!, CONT+2, QUE+5, READ!, READ+2
RMPFQUT	END!, C1, C1+4, READ!, READ+3
RMPFSSN	END!, HEAD+1
>> RMPFX	RMPFDT9+4, SET+2, SET+9
SE	SET+6*, DISP+5, DISP+6, DISP+11!
SS	SET+2*, SET+3, SET+10!
SX	SET+2, SET+3, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10!
U	RMPFDT9+4, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, READ+1
X	END!
Y	END!, SET+5, SET+8, C1+4, C1+5, C1+6, READ+1, READ+2, READ+3
ZTIO	QUE+4*, QUEE!
ZTRTN	QUE+3*, QUEE!
ZTSAVE	QUEE!
ZTSAVE("RMPF*"	QUE+3*
ZTSK	RMPFDT9+5, END+1!, HEAD, QUE+6, QUEE!

Customize PDF page

Package: Remote Order Entry System

Routine: RMPFDT9

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: