Routine: RARTUVR

Call Graph Total: 12

Package	Total	Call Graph
Radiology Nuclear Medicine	9	132^RAMAINP SETVARS^RAPSET1 (BTG,DIVSUM)^RARTUVR1 PRINT^RARTUVR2 EN1^RARTUVR3 (CLOSE,D,DATE,ZIS)^RAUTL RASET^RAUTL2 ($$DIVLOC,$$SETUPDI)^RAUTL7 STOPCHK^RAUTL9
VA Fileman	2	^%DT ^DIR
Kernel	1	$$UP^XLFSTR

Package

Total

Call Graph

132^RAMAINP SETVARS^RAPSET1 (BTG,DIVSUM)^RARTUVR1 PRINT^RARTUVR2 EN1^RARTUVR3 (CLOSE,D,DATE,ZIS)^RAUTL RASET^RAUTL2 ($$DIVLOC,$$SETUPDI)^RAUTL7
STOPCHK^RAUTL9

VA Fileman

^%DT ^DIR

Kernel

$$UP^XLFSTR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA DAIUVR

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA DAIUVR

Name	Comments	DBIA/ICR reference
EN	; unverified reports report
START	; start processing
ASKTHRU
IT	; imaging type
DEVICE	; select device
KILL	; kill variables & close device
ASKBD
DIV	; walk through tmp global, start with 'division'
ASKCUT

External References

Name	Field # of Occurrence
^%DT	DIV+2
^DIR	ASKBD+6, ASKCUT+4, ASKCUT+6
132^RAMAINP	ASKBD+9
SETVARS^RAPSET1	EN+5
BTG^RARTUVR1	START+29
DIVSUM^RARTUVR1	DIV+4
PRINT^RARTUVR2	IT+2
EN1^RARTUVR3	START+2
CLOSE^RAUTL	KILL+5
D^RAUTL	DIV+2
DATE^RAUTL	ASKTHRU+1
ZIS^RAUTL	DEVICE+2
RASET^RAUTL2	START+21
$$DIVLOC^RAUTL7	EN+7
$$SETUPDI^RAUTL7	EN+6
STOPCHK^RAUTL9	START+20
$$UP^XLFSTR	ASKBD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,?5,"There are no Unverified Reports." Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: ! Line Location: ASKBD+9
Function Call: WRITE	Prompt: !!,"(The date range refers to DATE "_RAFILE_")" Line Location: ASKTHRU+0
Function Call: WRITE	Prompt: !!,"Default cut-off limits (in hours) for aging of reports are :" Line Location: ASKCUT+1
Function Call: WRITE	Prompt: !!?35 Line Location: ASKCUT+2
Function Call: WRITE	Prompt: RACUT(RA1)," " Line Location: ASKCUT+2
Function Call: WRITE	Prompt: ! Line Location: ASKCUT+4
Function Call: WRITE	Prompt: !!,"Try again " Line Location: ASKCUT+7
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Routine Call	DIR Line Location: ASKBD+6 ASKCUT+4 ASKCUT+6

Name	Line Occurrences (* Changed, ! Killed)
^RARPT - [#74]	START+17, START+18
^RARPT("ASTAT"	EN+2, START+12, START+14
^TMP($J	EN+1!, EN+9, EN+11, START+4, START+5, START+6, START+7, DIV+4, KILL+1!, IT+2

Name	Line Occurrences
ASKCUT	ASKCUT+7
DEVICE	ASKTHRU+4, ASKCUT+4
IT	DIV+4
KILL	EN+7, ASKBD+6, ASKTHRU+2, ASKCUT+4, DEVICE+2, START+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DIV+2*!
BEGDATE	ASKTHRU+2, START+19, KILL+4!
DIR	ASKBD!, ASKBD+7!, ASKCUT+3!, ASKCUT+4!, ASKCUT+7!, KILL+4!
DIR("?"	ASKBD+1, ASKBD+2, ASKBD+3, ASKBD+4, ASKCUT+3, ASKCUT+5
DIR("??"	ASKCUT+3*
DIR("A"	ASKCUT+3, ASKCUT+6
DIR("B"	ASKBD, ASKCUT+3
DIR(0	ASKBD+5, ASKCUT+3, ASKCUT+6*
DIROUT	ASKBD+7!
DIRUT	ASKBD+6, ASKBD+7!, KILL+4!
DTOUT	ASKBD+7!
DUOUT	ASKBD+7!, KILL+4!
DUZ	EN+5, EN+8, EN+10
ENDDATE	ASKTHRU+2, ASKTHRU+3*, START+19, KILL+4!
I	KILL+4!
IO	START+1
IOM	DIV+3
POP	KILL+1!
RA1	ASKCUT+2, ASKCUT+6, KILL+2!
RA2	KILL+2!
RA3	KILL+2!
RA4	KILL+2!
RABD	ASKBD+7*, ASKBD+8, ASKTHRU+4, START+2, KILL+2!
RACCESS	KILL+3!
RACCESS(	EN+5, EN+8, EN+10
RACN	KILL+1!
RACNI	KILL+1!
RACNT	EN+8, EN+11, KILL+1!
RACNT(0	DIV+1*
RACUT	KILL+2!
RACUT(	ASKCUT+2, ASKCUT+6*
RACUT(1	ASKCUT*
RACUT(2	ASKCUT*
RACUT(3	ASKCUT*
RAD	KILL+1!
RADASH	DIV+3*, KILL+2!
RADATE	KILL+1!
RADFN	KILL+1!
RADIVNME	START+3, START+4, START+5, START+6, START+7, DIV+1, DIV+4, KILL+1!, IT+2
RADIVNUM	KILL+1!
RADTE	KILL+1!
RADTI	KILL+1!
RAEQUAL	DIV+3*, KILL+2!
RAFILE	ASKBD+9, ASKBD+11, ASKTHRU, ASKTHRU+1!
RAFL	KILL+1!
RAFLG	KILL+1!
RAHOURS	KILL+2!
RAIP	START+25, START+26, START+27, START+28, KILL+1!
RAIPNAME	KILL+1!
RAITNAME	START+4, START+5, START+6, START+7, KILL+1!, IT+1, IT+2*
RAITNUM	KILL+1!
RAMES	KILL+4!
RAOUT	START+11, START+12, START+13, START+14, START+20, DIV+1, DIV+4, KILL+1!, IT+2
RAPAGE	DIV+1*, KILL+1!
RAPOP	DEVICE+2, KILL+1!
RAPRES	START+22, START+24, START+26, KILL+1!
RAPSTF	START+22*, START+24, START+27, KILL+1!
RAPSTX	EN+5*, KILL+3!
RAQUIT	KILL+1!
RARAD	KILL+1!
RARE	KILL+1!
RARPT	START+13, START+14, START+17, START+18, START+21, KILL+1!
RARPTENT	START+18*, START+19, KILL+2!
RARS	KILL+1!
RARUNDAT	DIV+2*, KILL+2!
RASKTIME	ASKTHRU*, ASKTHRU+1!
RASSN	KILL+2!
RASTATUS	START+11, START+12, START+14, KILL+1!
RASTRING	KILL+1!
RAX	START+21*, START+22, KILL+1!
RAXIT	EN+6*!, KILL+1!
U	START+17, START+18
X	EN+7, EN+8, EN+9, EN+10, EN+11, ASKTHRU+2, ASKCUT+4, DIV+2*, KILL+1!
Y	EN+9, EN+10, EN+11, ASKBD+7, ASKCUT+4, ASKCUT+6, ASKCUT+7, START+21*, DIV+2, KILL+1!
ZTDESC	KILL+4!
ZTQUEUED	START+1, START+20, KILL+1!
>> ZTREQ	START+1*
ZTRTN	DEVICE+1*, KILL+4!
ZTSAVE	KILL+4!
ZTSAVE("BEGDATE"	DEVICE+1*
ZTSAVE("ENDDATE"	DEVICE+1*
ZTSAVE("RABD"	DEVICE+1*
ZTSAVE("RACNT"	DEVICE+1*
ZTSAVE("RACUT*"	DEVICE+1*
ZTSAVE("^TMP(	$J, ""RA D-TYPE"", " , DEVICE+1, $J, ""RA I-TYPE"", " , DEVICE+1
ZTSAVE("^TMP($J,""RAUVR"","	DEVICE+1*
ZTSTOP	START+20, KILL+1!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTUVR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: