Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN
Prosthetics	3	($$CODE,$$STAN,BLD)^RMPR31U ^RMPR71 DIV4^RMPRSIT
VA FileMan	2	^%DT ^DIC

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"ENDING DATE RANGE IS LESS THAN BEGINNING DATE RANGE",! Line Location: DATE+3
Routine Call	DIC Line Location: DATE+5
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	FIND+3, FIND+4, FIND+9
^RMPR(661 - [#661]	FIND+6, FIND+7, FIND+11, FIND+12
^RMPR(664.2 - [#664.2]	FIND+7, FIND+12
^TMP($J	FIND+1!, FIND+13, EXIT!, BLG, BLG+3, BLG+4, COM, COM+1, COM+2, COM+8* , COM+9, COM+10

Name	Field # of Occurrence
>> %DT	DATE, DATE+2
>> %DT("A"	DATE, DATE+2
>> %ZIS	DEV*
>> BLG	FIND+3, FIND+5, FIND+6, FIND+7, FIND+9, FIND+10, FIND+11, FIND+12, BLG+1, BLG+2 , COM+2, COM+3, COM+7, COM+10
>> CODE	FIND+6, FIND+7, FIND+11, FIND+12, BLG, BLG+3, BLG+4, COM, COM+1, COM+2 , COM+8, COM+9, COM+10
>> DATE(1	DATE+1*, DATE+3, FIND+2, FIND+8
>> DATE(2	DATE+2*, DATE+3, FIND+3, FIND+5, FIND+9
DIC	DATE+4*, DATE+5!
DIC("A"	DATE+4*
DIC("S"	DATE+4*
DIC(0	DATE+4*
>> DTOUT	DATE, DATE+2, DATE+5
>> INF	FIND+4, FIND+6, FIND+7, FIND+9, FIND+11, FIND+12, BLG+2, COM+4
IO	FIND+1
IO("Q"	DEV+1
ION	DEV+2
IOP	DEV!
IOST	DEV
>> PDZ	FIND+6, FIND+7, FIND+11, FIND+12
>> POP	DEV
RDATA	BLG, BLG+1, BLG+2, BLG+3, BLG+4, BLG+5!, COM, COM+1, COM+2, COM+3* , COM+4, COM+5, COM+6, COM+7, COM+8, COM+9, COM+10, COM+11!
RMPR	EXIT~
RMPR("STA"	FIND+5, FIND+10
>> RMPRAM	FIND+4, FIND+9, COM+5, COM+6
>> RMPRBL	FIND+3, FIND+4, FIND+9
>> RMPRDT	FIND+2, FIND+3, FIND+8, FIND+9, BLG, BLG+3, COM, COM+8
RMPRE	DATE+4!, DATE+5*
>> RMPRGEC	FIND+2, FIND+6, FIND+7, FIND+11, FIND+12, FIND+13, EXIT, BLG, BLG+3, BLG+4 , COM, COM+1, COM+2, COM+5, COM+6, COM+8, COM+9, COM+10
RMPRSITE	EXIT~
>> RMPRWO	FIND+7, FIND+12, BLG, BLG+3, COM, COM+8
U	DATE, DATE+2, FIND+5, FIND+6, FIND+7, FIND+10, FIND+11, FIND+12, BLG+1, BLG+2 , COM+1, COM+2, COM+3, COM+4, COM+5, COM+6, COM+7, COM+9, COM+10
>> X	RMPR7+2, DATE, DATE+2, DATE+5
>> Y	DATE+1, DATE+2, DATE+5
ZTDESC	DEV+2*!
ZTIO	DEV+2*!
ZTRTN	DEV+2*!
ZTSAVE	DEV+2!
ZTSAVE("DATE("	DEV+2*
ZTSAVE("RMPR("	DEV+2*
ZTSAVE("RMPRSITE"	DEV+2*

Name	Comments	DBIA/ICR reference
DATE
DEV
FIND	;Entry Point to calculate Amis
EXIT
BLG
COM

Routine: RMPR7