Routine: RMPFDT10

Information

RMPFDT10 ;DDC/KAW-LINE ITEM EXTENDED INFORMATION [ 06/16/95 3:06 PM ]

Call Graph

Call Graph Total: 7

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

Package	Total	Caller Graph
Remote Order Entry System	2	RMPFDT10 RMPFDT9

Entry Points

Name	Comments	DBIA/ICR reference
SHOW
END
SET	;; input: RMPFX,RMPFY
DISP	;; input: AU,AD,AR,AM,CR,DR,SD,CU,CD,RC,RD,IU,UC,OD
DI1
DI2
DI3
SEL
S1
S2
HEAD
CONT
QUE
QUEE
READ

External References

Name	Field # of Occurrence
DD^%DT	SET+4, SET+6, SET+8, SET+10, SET+12
^%ZIS	QUE, QUE+2
HOME^%ZIS	QUE+5
^%ZISC	SHOW+3
^%ZTLOAD	QUE+4
SHOW^RMPFDT10	QUE+1, QUE+2
^RMPFDT2	SEL+5
ARRAY^RMPFDT2	SEL
PAT^RMPFUTL	RMPFDT10+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SHOW+2
Function Call: WRITE	Prompt: !!,"User Making Last Adjustment: ",AU Line Location: DISP+3
Function Call: WRITE	Prompt: !?4,"Date of Last Adjustment: ",AD Line Location: DISP+4
Function Call: WRITE	Prompt: !?6,"Reason for Adjustment: ",AR Line Location: DISP+5
Function Call: WRITE	Prompt: !?9,"Adjustment Message: ",AM Line Location: DISP+6
Function Call: WRITE	Prompt: !!?16,"Canceled By: ",UC Line Location: DI1+0
Function Call: WRITE	Prompt: !!?15,"Certified By: ",CU Line Location: DI2+3
Function Call: WRITE	Prompt: !?9,"Certification Date: ",CD Line Location: DI2+4
Function Call: WRITE	Prompt: !?12,"Re-certified By: ",RC Line Location: DI2+5
Function Call: WRITE	Prompt: !?6,"Re-certification Date: ",RD Line Location: DI2+6
Function Call: WRITE	Prompt: !!?9,"* NO ADDITIONAL INFORMATION AVAILABLE FOR THIS LINE ITEM *" Line Location: DI3+3
Function Call: WRITE	Prompt: @IOF,!?33,"ITEMS ORDERED" Line Location: SEL+4
Function Call: WRITE	Prompt: ! Line Location: S1+0
Function Call: WRITE	Prompt: !,"Select number of a line item or <RETURN> to continue: " Line Location: S1+1
Function Call: WRITE	Prompt: !!,"Select a number from the left of the display to choose a line item or",!,"<RETURN> to exit from the display." Line Location: S2+0
Function Call: WRITE	Prompt: !?22,"ROES LINE ITEM 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: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: !,"Type <RETURN> to continue, <P>rint or <^> to exit: " 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

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810 - [#791810]	RMPFDT10+4, SET+2, SET+16, SEL+2
^RMPF(791810.1 - [#791810.1]	SEL+3
^RMPF(791810.6 - [#791810.6]	SET+14
^VA(200 - [#200]	SET+3, SET+7, SET+9, SET+11, SET+13

Label References

Name	Line Occurrences
@(	SEL+4
CONT	SHOW+1, CONT+2
DI1	DISP+2
DI2	DI1
DI3	DI2+2
DISP	SHOW
END	RMPFDT10+4, RMPFDT10+5, QUE
HEAD	SHOW
QUE	CONT+3
QUEE	QUE+1
READ	S1+1, CONT+1, READ+1
RMPFDT10	SHOW+1
S1	S2
S2	S2+1
SEL	RMPFDT10+5
SET	SHOW

Naked Globals

Name	Field # of Occurrence
^(0	SET+3, SET+7, SET+9, SET+11, SET+13, SET+14, SEL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%T	QUEE!
%XX	END!
%YY	END!
%ZIS	QUE, QUE+2, QUEE!
AD	SET+4*, DISP+4, DI3+4!
AM	SET+5*, DISP+6, DI3+4!
AR	SET+5*, DISP+5, DI3+4!
AU	SET+3*, DISP+2, DISP+3, DI3+4!
CD	SET+10*, DI2+4, DI3+4!
CR	SET+6*, DI1, DI1+1, DI3+4!
CT	END+1!
CU	SET+9*, DI2+2, DI2+3, DI3+4!
CX	END+1!
DFN	RMPFDT10+4*, END!
DR	SET+6*, DI2, DI3+4!
DTIME	READ+1
I	END!, HEAD+2, CONT
IO	QUE+1
IO("S"	SHOW+3, QUE+1, QUE+2
IO(0	QUE+1
IOF	SHOW+2, SEL+4, HEAD
ION	QUE+2, QUE+4
>> IOP	QUE+2*
IOST	SHOW+1, SHOW+2
IU	SET+13*, DI3, DI3+4!
OD	SET+14, SET+15, DI3+1, DI3+4!
POP	QUE, QUEE!
RC	SET+11*, DI2+5, DI3+4!
RD	SET+12*, DI2+6, DI3+4!
RMPFCT	SHOW+1, END+1!, SEL*, SEL+1
>> RMPFDAT	HEAD+1
RMPFDOB	END!
RMPFDOD	END!
RMPFHAT	END+1!, SEL+2, SEL+3
RMPFMD	END+1!
RMPFMD(	S2+1, S2+2
RMPFNAM	END!, HEAD+1
RMPFO	END+1!
RMPFO(	SEL
RMPFOUT	RMPFDT10+5, END!, S1+2, CONT+2, QUE+5, READ!, READ+2
RMPFQUT	END!, S2, S2+1, CONT+2, READ!, READ+3
RMPFSSN	END!, HEAD+1
RMPFTYP	END+1!, SEL+2*, SEL+3
>> RMPFX	RMPFDT10+4, SET+2, SET+16, SEL+2
RMPFY	RMPFDT10+4!, RMPFDT10+5, END+1!, SET+2, SET+16, SEL, S2+2
RR	END+1!, SET+16*, DI3+2
SD	SET+8*, DI2+1, DI3+4!
SX	SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+13, SET+14, SET+15, SET+16, SET+17!
U	RMPFDT10+4, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+13, SET+14, SET+15, SET+16, SEL+2, SEL+3, READ+1
UC	SET+7*, DI1, DI3+4!
X	END!, SEL*
XX	END+1!, DISP+2*, DI3+3, DI3+4!
Y	END!, SET+4, SET+6, SET+8, SET+10, SET+12, S2+1, S2+2, CONT+3, READ+1 , READ+2, READ+3
ZTIO	QUE+4*, QUEE!
ZTRTN	QUE+3*, QUEE!
ZTSAVE	QUEE!
ZTSAVE("DFN"	QUE+3*
ZTSAVE("RMPF*"	QUE+3*
ZTSK	END+1!, HEAD, QUE+6, QUEE!, READ+5!

Customize PDF page

Package: Remote Order Entry System