Routine: RMPRS

Package	Total	Call Graph
Prosthetics	6	EN^RMPREO VIEWCP^RMPREO23 EN^RMPREOL $$STATUS^RMPREOU DIV4^RMPRSIT $$DAT1^RMPRUTL1
VA FileMan	5	^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
Kernel	2	HOME^%ZIS KILL^XUSCLEAN
List Manager	1	FULL^VALM1
Registration	1	DEM^VADPT

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: 20

Package	Total	Caller Graph
Prosthetics	19	RMPR INQ SUSPENSE RMPR21 RMPR29 RMPR29LE RMPR29LI RMPR37 RMPR421 RMPR4C21 RMPRAUT RMPRAVR RMPRAVR1 RMPRC21 RMPRDP RMPRE21 RMPRPCE1 RMPRPCEL RMPRPIYI RMPRSTI RMPRSTK
Prosthetics Vision 4 Sight II	1	RMPV0RMPRPIYI

Entry Points

Name	Comments	DBIA/ICR reference
EN	;ADD SUSPENSE RECORD ; VSR (RN) patch RMPR3.0200 change four slashes to three slashes for validation before filing adding back tic to station
EX
CL	;CLOSE OUT SUSPENSE RECORD
EX1
EXIT
EN2	;EDIT SUSPENSE RECORD
REV	;reverse look-up.--HNC--change to $O(^RMPR(668,"C",ien,n),-1)
ENT	;sort/display
PROC	;
INQ	;Inquire to Suspense entry point
EXT
ACT
LINK	;CLOSE OUT SUSPENSE ENTRY FOR SELECTED PATIENT
SUSP
WRI	;write
DIS	;continue
DICDPT	;ask patient from file #2
SMESS	;print message for mandatory suspense entry.

External References

Name	Field # of Occurrence
HOME^%ZIS	INQ+4
^DIC	EN+3, DICDPT+4
FILE^DICN	EN+4
YN^DICN	SUSP+10
^DIE	EN+7, CL+6, CL+7, PROC+12, SUSP+12
^DIK	EN+8
^DIR	DIS+1
EN^RMPREO	SUSP+1
VIEWCP^RMPREO23	INQ+12
EN^RMPREOL	SUSP
$$STATUS^RMPREOU	PROC+8, WRI+7
DIV4^RMPRSIT	EN+2, CL+1, EN2+1, INQ+3
$$DAT1^RMPRUTL1	PROC+5, WRI+4
DEM^VADPT	PROC+6, WRI+5
FULL^VALM1	SUSP, SUSP+2
KILL^XUSCLEAN	INQ+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),?5,!,"Someone else is editing this record" Line Location: EN+6
Function Call: WRITE	Prompt: !,$C(7),?5,"Deleted..." Line Location: EN+8
Function Call: WRITE	Prompt: !,?5,$C(7),"Someone else is Editing this entry!" Line Location: CL+5
Function Call: WRITE	Prompt: !!,"SUSPENSE RECORD WAS NOT CLOSED OUT",$C(7) Line Location: EX1+0
Function Call: WRITE	Prompt: ! Line Location: EX1+1
Function Call: WRITE	Prompt: !,"CHOOSE FROM:" Line Location: ENT+2
Function Call: WRITE	Prompt: @IOF Line Location: ENT+9
Function Call: WRITE	Prompt: !!,"***** PATIENT HAS NO SUSPENSE RECORD!!!!" Line Location: ENT+14
Function Call: WRITE	Prompt: !!,"***** NO SELECTION MADE!!!" Line Location: ENT+15
Function Call: READ	Variable: X Timeout: DTIME Line Location: ENT+17
Function Call: WRITE	Prompt: !!,"***** NO SELECTION MADE!!!" Line Location: ENT+18
Function Call: WRITE	Prompt: !,$C(7),"****INVALID RESPONSE, Please choose a NUMBER within the range!!!!" Line Location: ENT+19
Function Call: WRITE	Prompt: !,?5,$C(7),"Someone else is Editing this entry!" Line Location: PROC+1
Function Call: WRITE	Prompt: " ",$$DAT1^RMPRUTL1(Y) Line Location: PROC+5
Function Call: WRITE	Prompt: " ",VADM(1) Line Location: PROC+7
Function Call: WRITE	Prompt: " ",$$STATUS^RMPREOU(+IEN) Line Location: PROC+8
Function Call: WRITE	Prompt: @IOF Line Location: INQ+2
Function Call: WRITE	Prompt: !,^RMPR(668,IEN,2,RO,0) Line Location: EXT+0
Function Call: WRITE	Prompt: !!,"ACTION TAKEN: " Line Location: ACT+0
Function Call: WRITE	Prompt: !,^RMPR(668,IEN,3,RO,0) Line Location: ACT+1
Function Call: WRITE	Prompt: "NONE RECORDED" Line Location: ACT+2
Function Call: WRITE	Prompt: ! Line Location: ACT+3
Function Call: WRITE	Prompt: $C(7),!,"Suspense Records exist on this Patient. Do you wish to View/Edit them" Line Location: SUSP+10
Function Call: WRITE	Prompt: !,"Answer `YES` or `NO`" Line Location: SUSP+10
Function Call: WRITE	Prompt: !,RMI,".",?5,$$DAT1^RMPRUTL1(Y) Line Location: WRI+4
Function Call: WRITE	Prompt: ?16,$E(VADM(1),1,19) Line Location: WRI+6
Function Call: WRITE	Prompt: ?37,$$STATUS^RMPREOU(RMPR668,9) Line Location: WRI+7
Function Call: WRITE	Prompt: ?48,$E(^RMPR(668,RMPR668,2,1,0),1,31) Line Location: WRI+9
Routine Call	%ZIS Line Location: INQ+4
Routine Call	DIC Line Location: EN+3 DICDPT+4
Routine Call	DIE Line Location: EN+7 CL+6 CL+7 PROC+12 SUSP+12
Routine Call	DIR Line Location: DIS+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^RMPR(668 - [#668]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(668 - [#668]	EN+6, EN+7, EN+8, CL+4, CL+5, CL+7, EX1, ENT+4, PROC+1, PROC+4 , PROC+12, PROC+13, EXT, ACT+1, SUSP+6, SUSP+8, SUSP+11, SUSP+12, WRI+3, WRI+9
^TMP("RMSU"	CL+2!, CL+4, EXIT!, ENT+8, SUSP+5!, SUSP+11*, DIS+3, DICDPT+2!
^TMP($J	SUSP, SUSP+1

Label References

Name	Line Occurrences
CL	EX1+1
DICDPT	CL+3, EN2+2, INQ+7
DIS	ENT+9, ENT+16
EN	EX
EN2	PROC+13
ENT	CL+5, ENT+12, SUSP+12
EX	EN+4, EN+6
EX1	CL+6
EXIT	EN+2, EN+3, CL+1, CL+3, CL+5, EN2+1, EN2+2, INQ+3, INQ+7, INQ+9 , SUSP+10, SUSP+12, SUSP+13
LINK	SUSP+10, SUSP+14
PROC	ENT+13
REV	INQ+9
WRI	ENT+10

Naked Globals

Name	Field # of Occurrence
^(0	CL+4, EX1, PROC+4, PROC+12, SUSP+11, SUSP+12*, WRI+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, SUSP+10*
CITN	EXIT!
D0	EN+4!
DA	EN+4, EN+8, CL+2!, CL+6, CL+7, EXIT!, PROC+12, INQ+11~, INQ+12, SUSP+12*
DD	EN+4!
>> DFN	PROC+6, WRI+5
DIC	EN+3, EN+4, EX!, CL+6, EXIT!, PROC+10, PROC+12, DICDPT+2!, DICDPT+3
DIC("A"	DICDPT+4*
DIC("DR"	EN+4*
DIC(0	EN+3, EN+4, DICDPT+3*
DIE	EN+5, EX!, CL+2!, CL+6, EXIT!, PROC+12, SUSP+12
>> DIK	EN+8*
DINUM	EN+4!
DIR	DIS+1!
DIR(0	DIS+1*
DLAYGO	EN+4*!
DO	EN+4!
DR	EN+5, EX!, CL+2!, CL+6, CL+7, EXIT!, PROC+12, SUSP+12*
DT	EN+4
>> DTOUT	CL+3, EN2+2, INQ+7, SUSP+10, SUSP+13
>> DUOUT	SUSP+13, DIS+2
DUZ	SUSP+12
FL1	EXIT!
FLAG	PROC+11, SUSP+5~, SUSP+8*, SUSP+9
I	CL+3, CL+4, EXIT!, SUSP+11*
IEN	CL+5, CL+6, EXIT!, ENT+1, ENT+4, ENT+11, ENT+13, PROC+1, PROC+4, PROC+8 , PROC+9, PROC+13, INQ+9, INQ+12, EXT, ACT+1, SUSP+12, DIS+3
IOF	EXIT, ENT+9, INQ+2
J	EXIT!, SUSP+5~
>> OUT	ENT+1, ENT+4, DIS+2
RB	EXIT!, SUSP+5~
RD	EXIT!, SUSP+5~, SUSP+8*
RDA	EN+4*, EN+6, EN+7, EN+8, EXIT!
RI	SUSP+5~, SUSP+8*
RIE	EXIT!, SUSP+5~
RMDES	EXIT!
RMI	EXIT!, ENT+1, ENT+6, ENT+8, ENT+14, WRI+4, DIS+1
RMIEN	EXIT!
RML	EXIT!, ENT+1*
RMPR668	WRI+2~, WRI+3*, WRI+7, WRI+9
RMPRA	CL+2!, CL+6*, CL+7, EX1
RMPRCLOS	CL+3*, EXIT!, PROC+11
RMPRDFN	EN+3, EX!, ENT+4, ENT+8, PROC+6, INQ+7!, INQ+8, INQ+9!, SUSP+6, SUSP+8 , SUSP+11
RMPREOY	INQ+11~, INQ+12*
RMPRFLAG	EXIT!, PROC+11, INQ+5*
>> RMPRJ	ENT+3, ENT+4, ENT+8, WRI+3
RMQUIT	EXIT!, ENT+1*, ENT+11
RMSEL	EXIT!, ENT+1*, ENT+11, ENT+12
RMTOI	CL+3, CL+4, EXIT!, ENT+1, ENT+5, SUSP+11*
RO	EXIT!, PROC+4, EXT, ACT+1, SUSP+5~, WRI+3, WRI+5
RP	EXIT!
RR	EXIT!, SUSP+5~
RT	EXIT!, SUSP+5~
RX	EXIT!, SUSP+5~
RZ	EXIT!, SUSP+5~, SUSP+7*
U	EN+8, CL+4, EX1, ENT+8, PROC+4, PROC+12, SUSP+8, SUSP+11, SUSP+12, WRI+3 , WRI+5, DIS+3
>> VADM(1	PROC+7, WRI+6
X	EN+2, EN+4*, EX!, CL+1, EN2+1, INQ+3
Y	EN+3, EN+4, EX!, CL+2!, CL+3, CL+4, CL+6, EXIT!, EN2+2, PROC+3* , PROC+4, PROC+5, PROC+9, PROC+12, INQ+7, INQ+8, SUSP+5~, SUSP+11, WRI+3, WRI+4 , DIS+3

Customize PDF page

Package: Prosthetics

Routine: RMPRS

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: