Routine: RMPV0RMPRUTIL

Information

RMPV0RMPRUTIL ; OIT/JDA - Adapted from RMPRUTIL; Dec 01, 2024@21:44:43

Package	Total	Call Graph
Prosthetics Vision 4 Sight II	2	(%DIC,%DIE,%DIR)^RMPVFM (READ,WRITE,WRITECTL)^RMPVIO
Prosthetics	1	^RMPRSIT
Registration	1	(ADD,DEM,ELIG,KVAR)^VADPT
VA FileMan	1	IX^DIK

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

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

Entry Points

Name	Comments	DBIA/ICR reference
RMPRUTIL	;PHX/JLT,DLG,HPL,RVD-UTILITY PROGRAMS FOR PROSTHETICS ;10/19/1993
GETPAT	;MAIN ENTRY POINT FOR PATIENT LOOKUPS
COMP	;LOOKUP FOR ADDRESS ON PATIENT 10-2319
EDT	;ENTER/EDIT 2421 AND NO-FORM
FILE
ENT
NFRM	;S DR=DR_"16;8TYPE OF TRANSACTION;9PATIENT CATEGORY;S RMPRDIS=+$P(^RMPR(664,DA(1),1,DA,0),U,10);S Y=$S(RMPRDIS=4:""@1"",1:""@2"");@2;3QTY;2;4UNIT OF ISSUE;11////C;"
TMC	;GET HOURS AND MINUTES BETWEEN START AND CLOSE DATES
TXT
CHK	;ASK TO ADD DUPLICATE TO 2421 AND NO FORM
LKP	;DISPLAY DUPLICATE AND SINGLE ITEMS ON 2421 AND NO FORM
STA()	;CONVERTS RMPR("STA") INTO EXTERNAL FORMAT
ROU(RMPRSITE)	;Return mail routing code for a site
ROUX
STATN(RSTA)	;CONVERT POINTER TO STATION TO NAME OF STATION
DIC660	;REVERSE DIC LOOK UP FOR 660.
REV	; Added for reverse look-up..
LST
PROC
EXIT
WRI	;WRITE REVERSE LISTING
DIS
KILLG	;kill & set 'G' cross reference in 660.
121	;set 121 as the mail routing symbol.

External References

Name	Field # of Occurrence
IX^DIK	KILLG+4
^RMPRSIT	STA+1
%DIC^RMPVFM	GETPAT+2, DIC660+2
%DIE^RMPVFM	ENT+5, NFRM+4, 121+3
%DIR^RMPVFM	GETPAT+12, CHK+1, LKP+6
READ^RMPVIO	LST+4, DIS
WRITE^RMPVIO	GETPAT+11, LKP+1, LKP+4, LST, LST+2, LST+3, LST+4, LST+5, LST+6, PROC+1 , WRI+2, WRI+3, WRI+4, WRI+5, DIS, DIS+2
WRITECTL^RMPVIO	GETPAT+11, LKP+4, DIC660+1, LST, LST+2, LST+3, LST+4, LST+5, LST+6, WRI+2 , WRI+3, WRI+4, WRI+5, DIS, DIS+2
ADD^VADPT	COMP+1, COMP+5
DEM^VADPT	GETPAT+4
ELIG^VADPT	GETPAT+4
KVAR^VADPT	GETPAT+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PROC, WRI+1
^DIC(4 - [#4]	STA+2, STATN+5
^DPT - [#2]	PROC+1, WRI+2
^PRC(441 - [#441]	LKP+4, WRI+4
^RMPR(660 - [#660]	REV+1, PROC, WRI+1, KILLG+1, KILLG+2!, KILLG+3*
^RMPR(661 - [#661]	LKP+4, WRI+1
^RMPR(661.1 - [#661.1]	KILLG+3
^RMPR(664 - [#664]	EDT+1, EDT+2, FILE, CHK+2, LKP+3, LKP+4
^RMPR(669.9 - [#669.9]	ROU+4, 121+3
^RMPR(699.9	121+3
^TMP($J	DIC660+1!, REV+1, LST+1, LST+6, LST+7, EXIT!, DIS+2, DIS+3

Label References

Name	Line Occurrences
CHK	EDT+2
DIS	LST+1
ENT	LKP+7
EXIT	DIC660+2, LST+2, LST+3, LST+4, LST+5
FILE	EDT+1, CHK+1
LKP	LKP+1
LST	LST+2, LST+6
NFRM	ENT
PROC	LST+2
ROUX	ROU+3
TXT	TMC+2
WRI	LST+1

Naked Globals

Name	Field # of Occurrence
^(0	FILE*, REV+1, PROC, WRI+1
^(99	STA+2, STATN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
DA	EDT+2, FILE, ENT+5!, NFRM+4!, LKP+6, KILLG+1, KILLG+2, KILLG+3, 121+3
DA(1	ENT*
>> DFN	GETPAT+4, COMP+1, COMP+5*
DIC	GETPAT+2~!, DIC660+1, EXIT!
DIC("A"	GETPAT+2, DIC660+1
DIC(0	GETPAT+2, DIC660+1
DIE	ENT, EXIT!, KILLG+4, 121+1~, 121+2
>> DIK	KILLG+4*
>> DIK(1	KILLG+4*
DIR	GETPAT+12!, CHK+1!, LKP+6!, EXIT!
DIR("A"	GETPAT+12, CHK+1
DIR("B"	GETPAT+12, CHK+1
DIR(0	GETPAT+12, CHK+1, LKP+6*
>> DIRUT	CHK+1, LKP+1
DLAYGO	GETPAT+2~*!
DQ	ENT!
DR	ENT!, ENT+1, ENT+2, ENT+5!, NFRM+2, NFRM+3, NFRM+4!, 121+2
>> DTOUT	ENT+5, CHK+1, LKP+1, DIC660+2
>> HY	EDT+1*, FILE, CHK+2, LKP+3
>> I	COMP+2, COMP+6, REV+1, LST, LST+1*
>> J	COMP+2, COMP+3, COMP+4, LST+1*, WRI+1
>> J1	COMP+6, COMP+7, COMP+8
NEW	FILE*, ENT!, ENT+5!, NFRM+4!
NUM	FILE*, ENT+5!, NFRM+4!
>> RA	TMC+1*, TMC+2
>> RB	TMC+1*, TMC+2
>> RC	TMC+2, TMC+3, TXT*
>> RD	CHK+2*, LKP+1
>> RD(	LKP+1, LKP+4*
>> RDA	CHK+2, LKP+3, LKP+4
>> RH	TMC+3*
>> RM	TMC+3*
RMDFN	PROC, PROC+1, EXIT!, WRI+1, WRI+2
RMI	LST, LST+1, LST+2, LST+4, EXIT!, WRI+2, DIS
RMIEN	DIC660+1!, LST, LST+1, LST+2, LST+7, PROC, DIS+3*
RMII	121+1~, 121+3*
RMIIDAT	121+1~, 121+3*
RMIT	EXIT!, WRI+1*, WRI+4
>> RMPR	STA+1
>> RMPR("STA"	STA+2
>> RMPRA	EDT+1, EDT+2, FILE, ENT, CHK+2, LKP+3, LKP+4
RMPRBE	KILLG+1*, KILLG+2, KILLG+4!
>> RMPRCD	TMC+1
>> RMPRCNUM	GETPAT+10*
RMPRDA	KILLG+4!
>> RMPRDATE	TMC+1
RMPRDFN	GETPAT+1!, GETPAT+4*, GETPAT+12!, COMP+1, COMP+5
RMPRDOB	GETPAT+1!, GETPAT+9*
RMPRDOD	GETPAT+11*, GETPAT+12, GETPAT+13!
>> RMPRDR	ENT
>> RMPRGEC	TXT
>> RMPRNAM	GETPAT+8*
RMPRSITE	STA+1, ROU~, ROU+3, ROU+4
RMPRSSN	GETPAT+1!, GETPAT+8*
RMPRSSNE	GETPAT+1!, GETPAT+9*
RMPRSYM	ROU+1~, ROU+2, ROU+4, ROUX
RMPRX	KILLG+3*, KILLG+4!
RMQUIT	LST, LST+1, LST+3, EXIT!, DIS, DIS+1*
RMSEL	LST, LST+1, LST+2, EXIT!, DIS+2
RO	PROC, PROC+1, EXIT!, WRI+1, WRI+3, WRI+5
RSTA	STATN~, STATN+3, STATN+5
RSTATION	STATN+4~, STATN+5*, STATN+6
STAE	STA+1~, STA+2*, STA+3
U	GETPAT+8, GETPAT+9, GETPAT+11, COMP+3, COMP+7, FILE, LKP+4, STA+2, STATN+5, REV+1 , LST+7, PROC, PROC+1, WRI+1, WRI+2, WRI+3, WRI+4, WRI+5, DIS+3, KILLG+1 , KILLG+3
>> VA("PID"	GETPAT+9
>> VADM(1	GETPAT+8
>> VADM(2	GETPAT+8
>> VADM(3	GETPAT+9
>> VADM(6	GETPAT+11
>> VAEL(7	GETPAT+10
VAHOW	GETPAT+2~
VAPA	COMP+5!
VAPA(	COMP+2, COMP+6
VAPA("P"	COMP+1*
VAPA(4	COMP+3, COMP+7
VAPA(5	COMP+3, COMP+7
VAPA(6	COMP+3, COMP+7
X	CHK+1, LST+4, LST+5, LST+6, LST+7, EXIT!, DIS, DIS+1, DIS+2, DIS+3 , KILLG+3, KILLG+4*
>> X1(	COMP+6, COMP+7, COMP+8*
>> X1(1	COMP+8
>> XP(	COMP+2, COMP+3, COMP+4*
>> XP(1	COMP+4
Y	GETPAT+2~, GETPAT+3, GETPAT+4, GETPAT+12, EDT+1, EDT+2, FILE, ENT+5!, NFRM+4!, CHK+1! , LKP+1, LKP+6!, DIC660+2, REV+1, PROC, PROC+1, EXIT!, WRI+1*, WRI+2

Customize PDF page

Package: Prosthetics Vision 4 Sight II