Routine: RMPRD1

Information

RMPRD1 ;PHX/HNB-DISPLAY LOOKUP ;10/19/1993 [ 06/28/94 3:17 PM ]<<= NOT VERIFIED >

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL ^DIC EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Prosthetics	2	($$ITM,$$STAN)^RMPR31U DIV4^RMPRSIT

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
Prosthetics	2	RMPR 1358 INQ ^RMPR(664
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
EN	;DISPLAY DATE,PATIENT,ITEM,COST FROM 660
EN1	;DISPLAY DATE,REFERENCE,PATIENT FROM 664
EN2	;DISPLAY NAME
EN3	;DISPLAY LAB ORDER
EN4	;DISPLAY 2529-3 REQUEST
EN5	;Inquire to 1358 transaction
EN6
EXIT	;EXIT FROM EN5/EN6

External References

Name	Field # of Occurrence
^%ZIS	EN5+10
^%ZISC	EXIT+2
^%ZTLOAD	EN5+15
EN^DDIOL	EN6+47
^DIC	EN5+8
EN^DIQ1	EN6+2, EN6+7
^DIR	EN6+52
$$ITM^RMPR31U	EN3+4, EN4+3
$$STAN^RMPR31U	EN4+2
DIV4^RMPRSIT	EN5+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?36,$E(RMPRIT,1,23),?70,RMPRCST Line Location: EN+6
Function Call: WRITE	Prompt: ?40,$P(^(0),U) Line Location: EN1+5
Function Call: WRITE	Prompt: ! Line Location: EN1+15
Function Call: WRITE	Prompt: ?64,"PICKUP/DELIVERY",! Line Location: EN1+16
Function Call: WRITE	Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15) Line Location: EN2+1
Function Call: WRITE	Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15),?40,$P(^RMPR(664.1,+Y,0),U,13),?57,$P(^(0),U,17) Line Location: EN3+3
Function Call: WRITE	Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15) Line Location: EN3+4
Function Call: WRITE	Prompt: ! Line Location: EN3+4
Function Call: WRITE	Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15) Line Location: EN4+3
Function Call: WRITE	Prompt: ! Line Location: EN4+3
Function Call: WRITE	Prompt: @IOF Line Location: EN6+10
Function Call: WRITE	Prompt: "Patient: ",RPO(664,RMPRDA,1),?40,"Vendor:",RPO(664,RMPRDA,4) Line Location: EN6+11
Function Call: WRITE	Prompt: !,"Request Date: ",RPO(664,RMPRDA,.01),?33,"Date Required: ",RPO(664,RMPRDA,20),?69,"Days: ",RPO(664,RMPRDA,21) Line Location: EN6+12
Function Call: WRITE	Prompt: !,"Form: ",RPO(664,RMPRDA,15),?33,"Initiator: ",$E(RPO(664,RMPRDA,10),1,12),?60,"Sta.: ",$E(RPO(664,RMPRDA,18),1,11) Line Location: EN6+13
Function Call: WRITE	Prompt: !!,"Obligation #:",RPO(664,RMPRDA,.5) Line Location: EN6+25
Function Call: WRITE	Prompt: ?35,"C.P.:",RPO(664,RMPRDA,6) Line Location: EN6+26
Function Call: WRITE	Prompt: !,"Reference: ",RPO(664,RMPRDA,7) Line Location: EN6+27
Function Call: WRITE	Prompt: ?35,"% Discount: ",RPO(664,RMPRDA,17) Line Location: EN6+28
Function Call: WRITE	Prompt: ?60,"PSC Category: ",RPO(664,RMPRDA,16) Line Location: EN6+29
Routine Call	%ZIS Line Location: EN5+10
Routine Call	DIC Line Location: EN5+8
Routine Call	DIR Line Location: EN6+52

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(664 - [#664]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(664.1	EN4+2
^DPT - [#2]	EN2+1, EN3+3, EN4+2
^PRC(441 - [#441]	EN+3, EN1+13
^RMPR(660 - [#660]	EN+1, EN+4
^RMPR(661 - [#661]	EN+3, EN1+12
^RMPR(664 - [#664]	EN1+2, EN1+6, EN1+10, EN1+11, EN1+15, EN1+16, EN2+1, EN6+5, EN6+31
^RMPR(664.1 - [#664.1]	EN3+1, EN3+2, EN3+3, EN3+4, EN4+1, EN4+2, EN4+3
^RMPR(664.2 - [#664.2]	EN1+5

Label References

Name	Line Occurrences
EN1	EN2+1
EN4	EN3+1
EN6	EN5+6
EXIT	EN5+10, EN5+11

Naked Globals

Name	Field # of Occurrence
^(	EN3+4, EN4+3
^(0	EN1+5, EN3+3, EN3+4, EN4+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN5+10*
DA	EN6+1*, EN6+5, EN6+31, EXIT+1!
DA(	EN6+6*
DIC	EN1+2, EN2+1, EN5+2~, EN5+4*
DIC("S"	EN5+7*
DIC(0	EN5+4*
>> DIQ	EN6+1*
DIR	EN6+51~
DIR(0	EN6+52*
DR	EN6!, EN6+1*
DR(	EN6+3*
IO	EN6+9
IO("Q"	EN5+11, EN6+52, EXIT+1!
IOF	EN6+10
ION	EN5+14
IOP	EN5+6!
IOST	EN5+6
>> POP	EN5+10
>> RD1	EN6+31*, EN6+32, EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40
>> RMPR	EN5+1
RMPRCST	EN+5*, EN+6, EN+7!
RMPRDA	EN5+9, EN6+1, EN6+11, EN6+12, EN6+13, EN6+14, EN6+15, EN6+16, EN6+17, EN6+18 , EN6+19, EN6+20, EN6+21, EN6+22, EN6+23, EN6+24, EN6+25, EN6+26, EN6+27, EN6+28 , EN6+29, EXIT+1!
RMPRDFN	EN+7!
>> RMPRI	EN1+7, EN1+10, EN1+11, EN1+15, EN3+4, EN4+3
>> RMPRI1	EN1+11*, EN1+12
RMPRIT	EN+2, EN+3, EN+4, EN+6, EN+7!, EN1+12, EN1+13
>> RMPRN	EN1+13*, EN1+14
RMPRNAM	EN+7!
RMPRQT	EN1+1, EN5+3*, EXIT+1!
>> RMPRSC	EN4+2*
RPO	EN6~, EXIT+1!
RPO(	EN6+32, EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40, EN6+43 , EN6+44, EN6+46
RPO(664	EN6+11, EN6+12, EN6+13, EN6+14, EN6+15, EN6+16, EN6+17, EN6+18, EN6+19, EN6+20 , EN6+21, EN6+22, EN6+23, EN6+24, EN6+25, EN6+26, EN6+27, EN6+28, EN6+29
RPO1	EN6~, EN6+4, EN6+5, EN6+6, EN6+42, EN6+43, EN6+44, EN6+46
RPOD	EN6+46*, EN6+47, EN6+48!
U	EN+2, EN+3, EN+4, EN+5, EN1+2, EN1+3, EN1+5, EN1+11, EN1+12, EN1+13 , EN1+16, EN2+1, EN3+1, EN3+2, EN3+3, EN3+4, EN4+2, EN4+3
>> X	EN5+1
>> Y	EN+1, EN+4, EN1+2, EN1+6, EN1+10, EN1+11, EN1+15, EN1+16, EN2+1, EN3+1 , EN3+2, EN3+3, EN3+4, EN4+1, EN4+2, EN4+3, EN5+8, EN5+9
Z	EN+1, EN+2, EN+5, EN+7!, EN1+2, EN1+3, EN1+5, EN2+1, EN3+2, EN3+3 , EN4+1*, EN4+2
>> ZA	EN3+4, EN4+2, EN4+3*
ZTDESC	EN5+14*, EN5+15!
ZTIO	EN5+14*, EN5+15!
ZTRTN	EN5+14*, EN5+15!
ZTSAVE	EN5+15!
ZTSAVE("DATE("	EN5+13*
ZTSAVE("RMPR("	EN5+12*
ZTSAVE("RMPRDA"	EN5+12*
ZTSAVE("RMPRSITE"	EN5+13*
ZZ	EN1+2*, EN1+4, EN1+5, EN1+17!

Customize PDF page

Package: Prosthetics