Routine: RMPRUTIL

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE IX^DIK ^DIR
Prosthetics	1	^RMPRSIT
Registration	1	(ADD,DEM,ELIG,KVAR)^VADPT

Package	Total	Caller Graph
Prosthetics	62	RMPOLET2 RMPOLF0 RMPOLF0A RMPOLZB RMPOPAT RMPOPRT RMPR 2527 HDR RMPR 2527 PHDR RMPR 25293 RMPR21 RMPR21A RMPR22 RMPR29 RMPR29LE RMPR29LI RMPR29W1 RMPR29WO RMPR37 RMPR421 RMPR421B RMPR4C1 RMPR4C2 RMPR4LI RMPR4LOP RMPR4OPN RMPR4P21 RMPR4P22 RMPR4P24 RMPR9DO RMPR9P21 RMPR9P22 RMPR9PU RMPRAINQ RMPRAP RMPRAUT RMPRBIL RMPRDIS RMPRDP RMPREO RMPREO23 RMPREOL RMPRFO RMPRHIS RMPRL9 RMPRLOP RMPROPN RMPRP21 RMPRP24 RMPRP55 RMPRPAT RMPRPAT5 RMPRPCE1 RMPRPIYI RMPRPRT RMPRSE2 RMPRSEA RMPRSP1 RMPRSP2 RMPRSP3 RMPRSTI RMPRSTK RMPRUTL2

Entry Points

Name	Comments	DBIA/ICR reference
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
^DIC	GETPAT+2, DIC660+2
^DIE	ENT+5, NFRM+4, 121+3
IX^DIK	KILLG+4
^DIR	GETPAT+12, CHK+1, LKP+3
^RMPRSIT	STA+1
ADD^VADPT	COMP+1, COMP+5
DEM^VADPT	GETPAT+4
ELIG^VADPT	GETPAT+4
KVAR^VADPT	GETPAT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"PATIENT IS DECEASED. DATE OF DEATH WAS ",$P(VADM(6),U,2) Line Location: GETPAT+11
Function Call: WRITE	Prompt: $C(7) Line Location: LKP+1
Function Call: WRITE	Prompt: !?5,RDA,?10,$P(^PRC(441,$P(^RMPR(661,$P(RD(RDA),U),0),U),0),U,2)," $",$P(RD(RDA),U,3) Line Location: LKP+2
Function Call: WRITE	Prompt: ! Line Location: DIC660+1
Function Call: WRITE	Prompt: !,"CHOOSE FROM:" Line Location: LST+0
Function Call: WRITE	Prompt: !!,"***PATIENT HAS NO 2319 RECORD!!!!" Line Location: LST+2
Function Call: WRITE	Prompt: !!,"***** NO SELECTION MADE!!!" Line Location: LST+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: LST+4
Function Call: WRITE	Prompt: !!,"***** NO SELECTION MADE!!!" Line Location: LST+5
Function Call: WRITE	Prompt: !,$C(7),"****INVALID RESPONSE, Please choose a NUMBER within the range!!!!",! Line Location: LST+6
Function Call: WRITE	Prompt: " ",Y," ",$S(RMDFN:$E($P(^DPT(RMDFN,0),U,1),1,20),1:"")," $",$J($P(RO,U,16),0,2) Line Location: PROC+1
Function Call: WRITE	Prompt: !,$J(RMI,4),"> ",Y,?20,$S(RMDFN:$E($P($G(^DPT(RMDFN,0)),U,1),1,20),1:"") Line Location: WRI+2
Function Call: WRITE	Prompt: ?41,$S($P(RO,U,26)="P":"SHIPPING",$P(RO,U,26)="D":"DELIVERY",1:"SHIPPING") Line Location: WRI+3
Function Call: WRITE	Prompt: ?41,$S(RMIT:$E($P($G(^PRC(441,RMIT,0)),U,2),1,25),1:"") Line Location: WRI+4
Function Call: WRITE	Prompt: ?68,"$",$J($P(RO,U,16),0,2) Line Location: WRI+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: DIS+0
Function Call: WRITE	Prompt: !,$C(7),"*****INVALID RESPONSE, Please choose a NUMBER within the range!!!!" Line Location: DIS+2
Routine Call	DIC Line Location: GETPAT+2 DIC660+2
Routine Call	DIE Line Location: ENT+5 NFRM+4 121+3
Routine Call	DIR Line Location: GETPAT+12 CHK+1 LKP+3

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+2, WRI+4
^RMPR(660 - [#660]	REV+1, PROC, WRI+1, KILLG+1, KILLG+2!, KILLG+3*
^RMPR(661 - [#661]	LKP+2, WRI+1
^RMPR(661.1 - [#661.1]	KILLG+3
^RMPR(664 - [#664]	EDT+1, EDT+2, FILE, CHK+2, LKP+2
^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+4
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+3, 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+3!, EXIT!
DIR("A"	GETPAT+12, CHK+1
DIR("B"	GETPAT+12, CHK+1
DIR(0	GETPAT+12, CHK+1, LKP+3*
>> 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
DTIME	LST+4, DIS
>> DTOUT	ENT+5, CHK+1, LKP+1, DIC660+2
>> HY	EDT+1*, FILE, CHK+2, LKP+2
>> 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+2*
>> RDA	CHK+2, LKP+2
>> 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+2
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+2, 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+3!, DIC660+2, REV+1, PROC, PROC+1, EXIT!, WRI+1*, WRI+2

Customize PDF page

Package: Prosthetics

Routine: RMPRUTIL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 62

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: