Routine: RARTR2

Package	Total	Call Graph
Radiology Nuclear Medicine	5	PRT^RAFLH HD^RARTR D^RAUTL RASET^RAUTL2 $$INCR^RAUTL4
VA Fileman	4	^%DT ^DIR ^DIWP ^DIWW

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RART1 RARTR RARTR0 RARTR1 RARTUTL

Entry Points

Name	Comments	DBIA/ICR reference
SET	; Set up our TMP global for mailman
AMENRPT()	; Pass the text, '* THIS IS AN AMENDED REPORT *'.
HANG	; end-of-page prompt
WRITE	; Write out Report Text, Impression Text, Clinical History and ; Additional Clinical History on report.
FOOT	; footer
BANNER	;Report Batch Header/Trailer Page
SETDIV	;get division params

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FOOT+2
Function Call: WRITE	Prompt: !!!!! Line Location: FOOT+3
Function Call: WRITE	Prompt: ! Line Location: FOOT+5
Function Call: WRITE	Prompt: !,"SF 519B RADIOLOGY/NUCLEAR MEDICINE REPORT" Line Location: FOOT+7
Function Call: WRITE	Prompt: @RAFFLF Line Location: BANNER+1
Function Call: WRITE	Prompt: !,F1," ",RARTMES," ",F2 Line Location: BANNER+2
Function Call: WRITE	Prompt: !!?((IOM-30)/2),"Printed at " Line Location: BANNER+3
Function Call: WRITE	Prompt: Y Line Location: BANNER+3
Function Call: WRITE	Prompt: ! Line Location: BANNER+4
Function Call: WRITE	Prompt: !,F1," ",RARTMES," ",F2 Line Location: BANNER+5
Function Call: WRITE	Prompt: ! Line Location: HANG+2
Function Call: WRITE	Prompt: @RAFFLF Line Location: HANG+2
Routine Call	DIR Line Location: HANG+2

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	SETDIV+4, SETDIV+5
^RADPT - [#70]	SETDIV+2, WRITE+10, SET+12, SET+13
^RARPT - [#74]	WRITE+7, SET+7, SET+8
^TMP($J	SET+17, SET+19
^UTILITY($J	SET+2!, SET+15, SET+16

Name	Line Occurrences
HANG	WRITE+7, WRITE+10

Name	Field # of Occurrence
^(	SETDIV+5, WRITE+7, WRITE+10

Name	Field # of Occurrence
>> %DT	BANNER+3*
DIR	HANG+2!
DIR(0	HANG+2*
>> DIRUT	HANG+2
>> DIV	SETDIV+4*, SETDIV+5
DIWF	SET+1~, SET+2*
DIWL	SET+1~, SET+2*, SET+15, SET+16
DIWR	SET+1~, SET+2*
F1	BANNER+1*, BANNER+2, BANNER+5, BANNER+6!
F2	BANNER+1*, BANNER+2, BANNER+5, BANNER+6!
>> I	SETDIV+5, FOOT+2, FOOT+5, BANNER+2, BANNER+4, BANNER+5
IO	BANNER+1
IOM	BANNER+1, BANNER+3
IOSL	WRITE+7, WRITE+10, FOOT+2, FOOT+5, BANNER+4, BANNER+5
IOST	FOOT+2, FOOT+3, FOOT+5, HANG+2
>> LOC	SETDIV+2*, SETDIV+3, SETDIV+4
>> RAACNT	SET+17, SET+19
RACN	SETDIV+1~
RACNI	SETDIV+1~, WRITE+10, SET+12, SET+13
RADATE	SETDIV+1~
RADFN	SETDIV+1~, SETDIV+2, WRITE+10, SET+12, SET+13
RADTE	SETDIV+1~
RADTI	SETDIV+1~, SETDIV+2, WRITE+10, SET+12, SET+13
>> RAFFLF	FOOT+4, BANNER+1, HANG+2
>> RAFMT	FOOT+4*
>> RAFOOT	WRITE+7, WRITE+10, FOOT+2, FOOT+4
>> RAFTFM	FOOT+4
>> RAIOF	FOOT+4*
>> RAMDIV	SETDIV+5*
>> RAMDV	SETDIV+1, SETDIV+5
>> RAOOUT	WRITE+7, WRITE+10, HANG+2*
>> RAP	WRITE+5, WRITE+6, WRITE+9, SET+5, SET+6, SET+11
RAPX	SET+1~, SET+6*, SET+7, SET+8
>> RARPT	SETDIV+2, WRITE+7, SET+7, SET+8
>> RARTMES	BANNER+1, BANNER+2, BANNER+5
>> RAUTOE	FOOT+1, BANNER+1, HANG+1
>> RAV	WRITE+2, WRITE+7, WRITE+10*
RAX	SET+1~, SET+7, SET+8, SET+12, SET+13, SET+15, SET+16
RAXX	WRITE+2!, WRITE+7, WRITE+10, WRITE+11
U	SETDIV+2
X	WRITE+7, WRITE+10, BANNER+3, SET+1~, SET+8, SET+13, SET+16, SET+17
Y	SETDIV+1~, SETDIV+2, SETDIV+5, BANNER+3
>> ZRAP	WRITE+6*, WRITE+7