Routine: RMPFDT7

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

Package	Total	Caller Graph
Remote Order Entry System	5	RMPFDT RMPFDT7 RMPFEA RMPFET0 RMPFET8

Entry Points

Name	Comments	DBIA/ICR reference
A1
A2
A3
NO
SUB
B1
BE
EXIT
END
WRITE
HEAD
READ
CONT
CONT1
SPACE
QUE
QUEE

External References

Name	Field # of Occurrence
DD^%DT	NO+17
^%ZIS	QUE, QUE+2
HOME^%ZIS	QUE+5
^%ZISC	EXIT+3
^%ZTLOAD	QUE+4
^RMPFDT7	QUE+1, QUE+2
PAT^RMPFUTL	RMPFDT7+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"(cont.)" Line Location: NO+8
Function Call: WRITE	Prompt: !,RD,?12,RMPFTOE Line Location: NO+9
Function Call: WRITE	Prompt: ?33,CM,?52,$J(TT,7,2),?62,RMPFLR,?66,$E(US,1,14) Line Location: NO+11
Function Call: WRITE	Prompt: !,$P(CM(X),U,1),?12,$P(CM(X),U,2),?33,$E($P(CM(X),U,3),1,18),?52,$J(T,7,2),?66,$E($P(CM(X),U,5),1,14) Line Location: NO+13
Function Call: WRITE	Prompt: !,"(cont.)" Line Location: EXIT+0
Function Call: WRITE	Prompt: ?53,"======",!,"Total Price:",?52,"$",$J(RMPFTOT,6,2) Line Location: EXIT+1
Function Call: WRITE	Prompt: !,"cont.)" Line Location: WRITE+0
Function Call: WRITE	Prompt: !?53,"------",!?52,"$",$J(MT,6,2),! Line Location: WRITE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: IOST?1"C-".E Line Location: HEAD+0
Function Call: WRITE	Prompt: !?33,"ORDER HISTORY" Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?40,"SSN: ",RMPFSSN,?62,"DOB: ",RMPFDOB Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: "-" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,?3,"Order",?12,"Type of",?70,"Order" Line Location: HEAD+4
Function Call: WRITE	Prompt: !?3,"Date",?13,"Entry",?24,"Model",?36,"Component(s)",?53,"Price",?61,"Ear",?68,"Entered By" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"----------",?12,"-------",?21,"-----------",?33,"------------------",?53,"------",?61,"---",?66,"--------------" Line Location: HEAD+6
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1
Function Call: WRITE	Prompt: !,"Type <RETURN> to continue or <^> to exit: " Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: CONT1+0
Function Call: WRITE	Prompt: !,"Type <RETURN> to continue or <P>rint: " Line Location: CONT1+1
Function Call: WRITE	Prompt: ! Line Location: SPACE+0
Function Call: WRITE	Prompt: ! Line Location: QUE+0
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]	RMPFDT7+5, A1, A2, A2+1, A2+2, A2+3, NO+15, B1, B1+1
^RMPF(791810.1 - [#791810.1]	RMPFDT7+6
^RMPF(791811 - [#791811]	NO+1
^RMPF(791811.2 - [#791811.2]	B1+4
^VA(200 - [#200]	A3, NO+16, B1+9

Label References

Name	Line Occurrences
A1	A2
A2	A2+1, NO+12, NO+20
A3	A2+3
B1	B1+1, B1+7, B1+12
BE	B1
CONT	NO+8, EXIT, WRITE, CONT+2
CONT1	EXIT+2, CONT1+2
END	A2, EXIT, QUE
EXIT	A1
HEAD	RMPFDT7+4, NO+8, EXIT, WRITE
NO	A2+4
QUE	CONT1+3
QUEE	QUE+1
READ	READ+1, CONT+1, CONT1+1
SPACE	CONT, CONT1
SUB	NO+7
WRITE	A2

Naked Globals

Name	Field # of Occurrence
^(0	RMPFDT7+5, RMPFDT7+6, A2+1, A2+3, A3, NO+1, NO+16, B1+1, B1+4, B1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%T	QUEE!
%XX	END+2!
%YY	END+2!
%ZIS	QUE, QUE+2, QUEE!
C	B1+2, B1+4, B1+7, B1+11, BE!
CM	NO+11, NO+12, SUB!, B1+7, END+2!
CM(	NO+7, NO+13, B1+11*
CN	A2+1, NO+4, NO+13, NO+14, B1+3, END+2!
CT	NO+7*, NO+8, END+2!
>> DFN	RMPFDT7+4
DTIME	READ+1
F1	RMPFDT7+4, A1, A2, END+2!
F2	A1, A2, A2+1, A2+2, NO+15, B1, B1+1, END!
F3	SUB, B1, B1+1, B1+11, END!
I	NO+7, NO+13, END+2!, HEAD+3*
IO	QUE+1
IO("S"	EXIT+3, QUE+1, QUE+2
IO(0	QUE+1
IOF	EXIT+2, HEAD
ION	QUE+2, QUE+4
>> IOP	QUE+2*
IOST	NO+8, EXIT, EXIT+2, WRITE, HEAD
L	B1+2*, BE!
MT	A1, NO+6, B1+6*, END!, WRITE+1
P	B1+2, B1+5, B1+7, B1+11, BE!
POP	QUE, QUEE!
R	NO+17, NO+19, B1+8, B1+10*, B1+11, BE!, END+2!
RD	A2+2, A2+3, A2+4, A3+1, NO+9, END!
RE	A2+2, A3+2, END!
RMPFCS	NO+3, NO+4, NO+5*, NO+6, END!
>> RMPFDAT	HEAD+1
RMPFDOB	END+1!, HEAD+2
RMPFDOD	END+1!
>> RMPFHAT	RMPFDT7+5, RMPFDT7+6, NO+3, NO+10
RMPFIT	NO*, NO+1, END!
RMPFITP	NO, NO+1, NO+10, END!
RMPFLR	NO+3*, NO+11, END+1!
RMPFNAM	END+1!, HEAD+2
RMPFOUT	A2, NO+8, EXIT, END+1!, WRITE, READ!, READ+2, CONT1+2, QUE+5
RMPFQUT	END+1!, READ!, READ+3*, CONT+2, CONT1+2
RMPFSSN	END+1!, HEAD+2
>> RMPFSTAP	HEAD+1
RMPFTOE	NO+2*, NO+9, B1+7, END!
RMPFTOT	RMPFDT7+4, NO+6, B1+6*, EXIT+1, END!
>> RMPFTYP	RMPFDT7+5*, RMPFDT7+6
>> RMPFX	RMPFDT7+5, A1, A2, A2+1, A2+2, A2+3, NO+15, B1, B1+1
S	B1+8, B1+9, B1+11, BE!
S0	RMPFDT7+5, A2+1, A2+3, NO, NO+2, NO+3, NO+4, NO+5, NO+17, END!
S2	B1+1*, B1+2, B1+8, END!
S3	NO+15*, NO+16, NO+17, END+2!
S9	A2+2*, A2+4, A3+2, END!
T	NO+13, B1+2, B1+3, B1+5, B1+6, B1+7, B1+11, BE!, END+1!
TT	A2+1, NO+6, NO+11, B1+7*, END+2!
U	RMPFDT7+5, RMPFDT7+6, A2+3, A2+4, A3, A3+2, NO, NO+1, NO+2, NO+3 , NO+4, NO+5, NO+13, NO+16, NO+17, B1+2, B1+4, B1+8, B1+9, B1+11 , READ+1
US	A2+2, A2+3, A2+4, A3, NO+11, END!
X	NO+7, NO+13, NO+16*, NO+18, END+2!
Y	NO+17, NO+18, END+2!, READ+1, READ+2, READ+3, CONT1+2*, CONT1+3
ZTIO	QUE+4*, QUEE!
ZTRTN	QUE+3*, QUEE!
ZTSAVE	QUEE!
ZTSAVE("DFN"	QUE+3*
ZTSAVE("RMPF*"	QUE+3*
ZTSK	QUE+6, QUEE!

Customize PDF page

Package: Remote Order Entry System

Routine: RMPFDT7

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: