Routine: RMPR29P

Package	Total	Call Graph
Prosthetics	6	(KILL,VIEW)^RMPR21 VIEW^RMPR29 DISP^RMPR29D DISP^RMPR29J 2529^RMPR421 BAL^RMPRPSC
VA FileMan	4	FILE^DICN ^DIE (,IX,IX1)^DIK ^DIR
IFCAP	1	EN1^PRCS58
Kernel	1	HOME^%ZIS
Registration	1	(ALL,KVAR)^VADPT

Package	Total	Caller Graph
Prosthetics	3	RMPR29C RMPR29J RMPR29T

Entry Points

Name	Comments	DBIA/ICR reference
PCH	;initiate purchasing forms from the lab module
JB	;SET FORM TYPE IF NOT TIMED OUT OR UP-ARROW OUT
STR	;INITIATE 2421 PURCHASE
OBL	;Check IFCAP access to fund control point
END	;exit point
2529	;CREATE 2529-3 RECORD ; CALLED BY RMPR29J ; RMPRDA - ien 664.1
DEL(RMPRRDA)	;DELETE 2529-3 REQUEST FOR WORK ORDER ; CALLED FROM RMPR29C,RMPR29T ; RMPRDA - ien FILE 664.1
PST(RMPRRDA)	;Post 2529-3 record to the 2319 patient master record. ; CALLED BYRMPR29T ; RMPRDA - ien FILE 664.1

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STR+8
Function Call: WRITE	Prompt: !!,$C(7),"PATIENT IS DECEASED. DATE OF DEATH WAS ",$P(^UTILITY("VADM",$J,6),U,2) Line Location: OBL+13
Routine Call	%ZIS Line Location: PCH+1
Routine Call	DIE Line Location: PST+5
Routine Call	DIR Line Location: PCH+4 STR+9 OBL+14

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

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	PST+5
^RMPR(664 - [#664]	STR+16*, OBL+9
^RMPR(664.1 - [#664.1]	STR+13, 2529+3, 2529+6*, DEL+3, PST+3, PST+4
^RMPR(664.2 - [#664.2]	DEL+3, DEL+4, PST+7*
^UTILITY("VADM"	OBL+10, OBL+11, OBL+12, OBL+13, OBL+14

Name	Field # of Occurrence
^(	PST+4
^(0	STR+16, PST+3, PST+4, PST+7*

Name	Field # of Occurrence
>> B1	OBL+8*
>> B2	OBL+8*
D0	PST+5!
DA	STR+3!, STR+17, DEL+4, PST+5, PST+7
DA(1	DEL+4, PST+6, PST+7*
DD	PST+5!
>> DFN	STR+13*, STR+16
DIC	STR+3!, STR+14, PST+6, PST+7
DIC("P"	PST+6*
DIC(0	STR+14, PST+6
DIE	STR+3!, PST+5*
>> DIK	STR+17, DEL+4, PST+5, PST+7
DIR	PCH+1!, OBL+14!
DIR("A"	PCH+3, STR+7, OBL+14*
DIR("B"	OBL+14*
DIR(0	PCH+2, STR+6, OBL+14*
>> DIRUT	PCH+5, STR+10
DO	PST+5!
DR	STR+3!, PST+5*
DT	STR+14
>> DUOUT	PCH+5, STR+10
DUZ	STR+16
>> IT	PST+4*, PST+6
>> PRCS("A"	OBL+4*
>> QTY	PST+4*, PST+7
>> R1	OBL+8*
>> RA	DEL+3, PST+4
>> RDA	PST+4*, PST+5, PST+7
>> RMPR("REF"	PST+3*, PST+7
>> RMPR("STA"	STR+16
>> RMPR25	2529+3*
>> RMPRA	STR+15*, STR+16, STR+17, OBL+9, OBL+15
>> RMPRCT	OBL+8*
>> RMPRDA	STR+13, STR+16, 2529+3, PST+3, PST+4
>> RMPRDFN	OBL+9, 2529+3
>> RMPRDOB	OBL+11*
>> RMPRDS	OBL+8*
RMPRF	PCH+5!, JB+1, STR+10!, STR+11, STR+20!, OBL+4, OBL+15, 2529+4!
>> RMPRIS	OBL+8*
>> RMPRK	STR+15*
>> RMPRNAM	OBL+10*
>> RMPROB	OBL+7*
>> RMPRQT	OBL+8*
>> RMPRR	OBL+8*
RMPRRDA	2529+5, 2529+6, 2529+7, DEL~, DEL+3, DEL+4, PST~, PST+7
>> RMPRSSN	OBL+12*
>> RMPRTO	OBL+8*
>> RMPRWO	STR+16, 2529+6, PST+3*, PST+4, PST+6, PST+7
>> RWO	DEL+3*, DEL+4
>> SER	PST+4*, PST+7
U	STR+13, STR+16, OBL+7, OBL+9, OBL+11, OBL+12, OBL+13, OBL+14, 2529+3, 2529+6 , DEL+3, PST+3, PST+4, PST+7
>> UN	PST+4*, PST+7
>> VAHOW	OBL+9*
>> VAPA("P"	OBL+9*
>> X	STR+14, PST+6
Y	PCH+1!, PCH+5, JB+1, STR+10, STR+11, STR+14, STR+15, OBL+5, OBL+7, OBL+14 , PST+6, PST+7