Routine: RMPV0RMPRPAT

Package	Total	Call Graph
Prosthetics	7	2319^RMPOBIL2 DU^RMPRAINQ STAR^RMPRPAT ^RMPRPAT0 (,ASK1,HELP)^RMPRPAT1 ^RMPRPAT2 (,DISP,NPC)^RMPRPAT5
Prosthetics Vision 4 Sight II	6	EN^RMPV0RMPRDIS DIS^RMPV0RMPRPAT5 GETPAT^RMPV0RMPRUTIL %DIR^RMPVFM (READ,READCTL,READPMT,WRITE,WRITECTL,WRITEIND)^RMPVIO HOMEZIS^RMPVRT
Registration	1	(ADD,DEM,ELIG,KVAR,MB,OAD,SVC)^VADPT
VA FileMan	1	%XY^%RCR

Package

Total

Call Graph

2319^RMPOBIL2 DU^RMPRAINQ STAR^RMPRPAT ^RMPRPAT0 (,ASK1,HELP)^RMPRPAT1 ^RMPRPAT2 (,DISP,NPC)^RMPRPAT5

EN^RMPV0RMPRDIS DIS^RMPV0RMPRPAT5 GETPAT^RMPV0RMPRUTIL %DIR^RMPVFM (READ,READCTL,READPMT,WRITE,WRITECTL,WRITEIND)^RMPVIO HOMEZIS^RMPVRT

Registration

(ADD,DEM,ELIG,KVAR,MB,OAD,SVC)^VADPT

VA FileMan

%XY^%RCR

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

Package	Total	Caller Graph
Prosthetics Vision 4 Sight II	3	RMPV0RMPRDIS RMPV0RMPRPAT5 RMPV0RMPRPIYI

Package

Total

Caller Graph

Prosthetics Vision 4 Sight II

RMPV0RMPRDIS RMPV0RMPRPAT5 RMPV0RMPRPIYI

Entry Points

Name	Comments	DBIA/ICR reference
RMPRPAT	;PHX/RFM/JLT-DISPLAY 2319 FIRST PAGE ;8/29/1994
ASK	;Set common variables
ASK1	;CALL ROUTINE TO DISPLAY SCREEN SELECTI0N
ASK2	;ASK TO CONTINUE AFTER SCREEN DISPLAY
HELP
STAR	;DISPLAY ADDRESS INFO
STARD
END
WRI
QUES	;ASK WHAT PAGE OF A PATIENT'S 10-2319
QUES1
QUE
EXIT	;EXIT FOR DISPLAY OF A PATIENT'S 10-2319
QUEST1
QUEST2	;PUT MAS DISABILITY CODES ON NEXT PAGE IF THEY WILL NOT ALL FIT ON THIS

Name	Field # of Occurrence
%XY^%RCR	ASK+10
2319^RMPOBIL2	QUE+3
DU^RMPRAINQ	QUE+4
STAR^RMPRPAT	QUE+1
^RMPRPAT0	QUE+1
^RMPRPAT1	QUE+1
ASK1^RMPRPAT1	ASK1+11
HELP^RMPRPAT1	ASK1+11
^RMPRPAT2	QUE+2
^RMPRPAT5	QUE+5
DISP^RMPRPAT5	ASK1+9
NPC^RMPRPAT5	EXIT+5
EN^RMPV0RMPRDIS	QUE+6
DIS^RMPV0RMPRPAT5	EXIT+2, EXIT+3
GETPAT^RMPV0RMPRUTIL	ASK1+22
%DIR^RMPVFM	ASK1+12, QUEST1+1, QUEST2+2
READ^RMPVIO	QUES1
READCTL^RMPVIO	QUES1
READPMT^RMPVIO	QUES1
WRITE^RMPVIO	ASK1+6, ASK1+7, ASK1+8, HELP, STAR+5, STAR+6, STARD, STARD+1, STARD+2, STARD+4 , STARD+5, STARD+6, STARD+7, STARD+8, STARD+9, STARD+11, END+1, END+2, END+3, END+4 , END+5, END+7, END+8, END+9, END+10, END+11, END+12, END+13, END+14, END+15 , END+16, END+17, END+18, END+19, END+21, END+22, END+27, END+30, WRI+2, WRI+3 , WRI+4, QUES1+5, QUE+7
WRITECTL^RMPVIO	ASK1+6, ASK1+7, ASK1+8, ASK1+9, HELP, STAR+5, STAR+6, STARD, STARD+1, STARD+2 , STARD+4, STARD+5, STARD+6, STARD+7, STARD+8, STARD+9, STARD+11, END+1, END+3, END+4 , END+5, END+7, END+9, END+11, END+13, END+15, END+17, END+19, END+21, END+27 , END+30, WRI+2, WRI+3, QUES+1, QUES1+5, QUE+7, QUEST1+1, QUEST1+3, QUEST2+2
WRITEIND^RMPVIO	ASK+9, STAR+4, END+32, QUE, QUEST1+1, QUEST2+2, QUEST2+4
HOMEZIS^RMPVRT	ASK+4
ADD^VADPT	ASK+5, ASK1+3, STAR+3
DEM^VADPT	ASK+5, ASK1+4, STAR+3
ELIG^VADPT	ASK+5, ASK1+2, END
KVAR^VADPT	EXIT+7
MB^VADPT	END+6
OAD^VADPT	ASK+5, ASK1+5, STAR+3
SVC^VADPT	END+30

Name

Field # of Occurrence

ASK+10

QUE+3

QUE+4

QUE+1

QUE+1

QUE+1

ASK1+11

ASK1+11

QUE+2

QUE+5

ASK1+9

EXIT+5

QUE+6

EXIT+2, EXIT+3

ASK1+22

ASK1+12, QUEST1+1, QUEST2+2

ASK1+6, ASK1+7, ASK1+8, HELP, STAR+5, STAR+6, STARD, STARD+1, STARD+2, STARD+4
, STARD+5, STARD+6, STARD+7, STARD+8, STARD+9, STARD+11, END+1, END+2, END+3, END+4
, END+5, END+7, END+8, END+9, END+10, END+11, END+12, END+13, END+14, END+15
, END+16, END+17, END+18, END+19, END+21, END+22, END+27, END+30, WRI+2, WRI+3
, WRI+4, QUES1+5, QUE+7

WRITECTL^RMPVIO

ASK1+6, ASK1+7, ASK1+8, ASK1+9, HELP, STAR+5, STAR+6, STARD, STARD+1, STARD+2
, STARD+4, STARD+5, STARD+6, STARD+7, STARD+8, STARD+9, STARD+11, END+1, END+3, END+4
, END+5, END+7, END+9, END+11, END+13, END+15, END+17, END+19, END+21, END+27
, END+30, WRI+2, WRI+3, QUES+1, QUES1+5, QUE+7, QUEST1+1, QUEST1+3, QUEST2+2

WRITEIND^RMPVIO

ASK+9, STAR+4, END+32, QUE, QUEST1+1, QUEST2+2, QUEST2+4

HOMEZIS^RMPVRT

ASK+4

ADD^VADPT

ASK+5, ASK1+3, STAR+3

DEM^VADPT

ASK+5, ASK1+4, STAR+3

ASK+5, ASK1+2, END

EXIT+7

END+6

ASK+5, ASK1+5, STAR+3

SVC^VADPT

END+30

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	END+26, WRI+2
^DPT - [#2]	END+24, END+26, WRI+2, WRI+3, WRI+4
^RMPR(662 - [#662]	END+22
^RMPR(665 - [#665]	ASK1+6, ASK1+7, ASK1+8, END+19, END+21, EXIT+2, EXIT+3, EXIT+4

Name

Line Occurrences (* Changed, ! Killed)

^DIC(31 - [#31]

END+26, WRI+2

^DPT - [#2]

END+24, END+26, WRI+2, WRI+3, WRI+4

^RMPR(662 - [#662]

END+22

^RMPR(665 - [#665]

ASK1+6, ASK1+7, ASK1+8, END+19, END+21, EXIT+2, EXIT+3, EXIT+4

Name	Line Occurrences
ASK1	ASK1+24, ASK2+1, END+24, END+29, END+32, QUES1+2, QUES1+4
ASK2	HELP
END	STARD+5, STARD+7
EXIT	ASK1+14, ASK1+15, ASK1+23, QUES1+1, QUES1+3, QUE+1
QUE	ASK1+16
QUES	END+31, QUE+7
QUES1	QUES1+5
QUEST1	WRI
QUEST2	END+24
WRI	END+27

Name

Line Occurrences

ASK1

ASK1+24, ASK2+1, END+24, END+29, END+32, QUES1+2, QUES1+4

STARD+5, STARD+7

ASK1+14, ASK1+15, ASK1+23, QUES1+1, QUES1+3, QUE+1

ASK1+16

END+31, QUE+7

QUES1+5

END+24

END+27

Name	Field # of Occurrence
^(	END+21, END+26
^(0	ASK1+8, END+26, EXIT+3, EXIT+4

Name

Field # of Occurrence

END+21, END+26

^(0

ASK1+8, END+26, EXIT+3, EXIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	ASK+10*, EXIT+7!
%Y	ASK+10*, EXIT+7!
AMIS	EXIT+6!
AN	EXIT+7!
ANS	ASK1+9!, ASK1+11!, ASK1+16*, QUES1, QUES1+2, QUES1+3, QUES1+4, QUE, QUE+1, QUE+2 , QUE+3, QUE+4, QUE+5, QUE+6
CST	EXIT+6!
DATE	EXIT+6!
DEL	EXIT+6!
DFN	ASK+4, ASK1+1, STAR+1, END+24, END+26, WRI+2, WRI+3, WRI+4, EXIT+7!
DIC	EXIT+6!
DIE	EXIT+6!
DIR	ASK1+10!, ASK1+13!, EXIT+6!, QUEST1+1~, QUEST2+2~
DIR(0	QUEST1+1, QUEST2+2
>> DTOUT	QUEST1+2, QUEST2+3
>> DUOUT	QUEST1+2, QUEST2+3
FG	END+19, END+21, END+22*, EXIT+6!
FL	EXIT+7!
FLG	EXIT+6!
FRM	EXIT+7!
I	END+26, QUES+1, EXIT+6!
IOSL	END+24, WRI
IOST	STAR+4
J	EXIT+6!
LC	EXIT+6!
MC	EXIT+6!
PAGE	EXIT+7!
QTY	EXIT+6!
R5	EXIT+7!
R660	EXIT+7!
RA	EXIT+6!
RC	EXIT+6!
RCK	EXIT+7!
RCNT	ASK+3~, ASK+4*
RDA	EXIT+7!
REM	EXIT+6!
RFLG	ASK+4*, EXIT+6!
RI	EXIT+6!
RJ	EXIT+7!
RK	EXIT+6!
RL	EXIT+7!
RMNOQUIT	END+24, END+29!, QUEST2+2, QUEST2+3
>> RMPR1APN	ASK1+15, ASK1+22
RMPR2APN	ASK1+22*, ASK1+23, ASK1+24!, EXIT+7!
RMPRBACK	ASK+4, STAR+2, END+31, EXIT+8!
RMPRCCO	EXIT+6!
RMPRCNUM	ASK+10*, EXIT+6!
RMPRCOMB	EXIT+6!
RMPRDFN	ASK+1, ASK+4, ASK+10, ASK1+1, ASK1+6, ASK1+7, ASK1+8, ASK1+22, ASK1+23*, END+19 , END+21, EXIT+2, EXIT+3, EXIT+4, EXIT+8!
>> RMPRDIR7	QUE+6*
RMPRDOB	ASK+8*, EXIT+8!
RMPRDT	EXIT+6!
RMPREND1	ASK1+10!, END+26, END+29, WRI, EXIT+7!, QUEST1+2*
>> RMPRF	EXIT+8
RMPRFG	EXIT+6!
RMPRFLG	QUES+1!
RMPRFRST	ASK+4*, ASK1+11, ASK1+13!
RMPRJOB	EXIT+6!
RMPRKILL	EXIT+4!
RMPRL	ASK1+10!, END+27, WRI+4*, QUES+1!
RMPRNAM	ASK+7*, STAR+5, EXIT+8!
RMPROBL	EXIT+6!
RMPRQ	ASK1+10!, EXIT+7!
RMPRQUES	ASK1+10!, WRI, EXIT+7!, QUEST1*
RMPRSSN	ASK+7*, EXIT+8!
>> RMPRSSNE	ASK+8*
RMPRWO	EXIT+6!
RO	END+19, END+21, END+26*, WRI+2, WRI+3, WRI+4, EXIT+6!
RR	END+21*, END+22, EXIT+6!
RR5	EXIT+7!
>> RSTCK	ASK+4, ASK1+11
RT	EXIT+6!
RTC	EXIT+7!
RTCD	EXIT+7!
RTCH	EXIT+6!
RTHD	EXIT+7!
RTR	EXIT+7!
RW	EXIT+7!
RWP	EXIT+7!
RZ	EXIT+7!
SN	EXIT+6!
STA	EXIT+6!
TLC	EXIT+7!
TMC	EXIT+7!
TRANS	EXIT+6!
TRANS1	EXIT+6!
TYPE	EXIT+6!
U	ASK+7, ASK+8, STAR+5, STAR+6, STARD+4, STARD+5, STARD+6, STARD+7, STARD+8, STARD+11 , END+1, END+2, END+4, END+5, END+8, END+10, END+12, END+14, END+16, END+18 , END+21, END+22, END+24, END+26, END+27, WRI+2, WRI+3, WRI+4
VA	EXIT+7!
VA("PID"	ASK+8
VADM	EXIT+6!
VADM(1	ASK+7, ASK1+4, STAR+3, END+27
VADM(2	ASK+7, STAR+5, END+27
VADM(3	ASK+8, STAR+6
VAEL	EXIT+6!
VAEL(1	END+4
VAEL(2	END+2
VAEL(6	END+1
VAEL(7	ASK+10, ASK1+2, STAR+3, STAR+6
VAEL(8	END+5
VAEL(9	END+4
VAERR	EXIT+7!
VAHOW	STAR+3~
VAMB	EXIT+6!
VAMB(1	END+8
VAMB(2	END+10
VAMB(3	END+12
VAMB(4	END+13, END+14
VAMB(5	END+16
VAMB(7	END+17, END+18
VAOA	EXIT+6!
VAOA(1	ASK1+5, STARD+2
VAOA(10	STARD+5, STARD+7, STARD+9
VAOA(4	STARD+5, STARD+6, STARD+8
VAOA(5	STARD+5, STARD+6, STARD+8
VAOA(6	STARD+5, STARD+6, STARD+8
VAOA(8	STAR+3, STARD
VAPA	EXIT+6!
VAPA(1	ASK1+3, STARD+2
VAPA(2	STARD+4, STARD+6, STARD+8
VAPA(3	STARD+4, STARD+6, STARD+8
VAPA(4	STARD+4, STARD+7, STARD+11
VAPA(5	STARD+4, STARD+7, STARD+11
VAPA(6	STARD+4, STARD+7, STARD+11
VAPA(8	STAR+3, STARD
VASV	EXIT+6!
VASV(4	END+30
VEN	EXIT+7!
Y	ASK1+14, ASK1+15, ASK1+16, ASK1+22, EXIT+6!

Customize PDF page

Package: Prosthetics Vision 4 Sight II

Routine: RMPV0RMPRPAT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: