Routine: RARTUVR1

Package	Total	Call Graph
Radiology Nuclear Medicine	2	HOURAGE^RARTUVR2 $$EOS^RAUTL5
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RARTUVR RARTUVR2

Entry Points

External References

Name	Field # of Occurrence
$$GET1^DIQ	INC+5, PHYS+2, PHYS+3, PHYS+4, PHYS2
HOURAGE^RARTUVR2	DIVSUM+10
$$EOS^RAUTL5	DIVSUM+3, DIVSUM+20
$$FMDIFF^XLFDT	INC+15
$$FMTE^XLFDT	DIVSUM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RASTR,"; " Line Location: PHYS11+2
Function Call: WRITE	Prompt: !,RASTR,"; " Line Location: PHYS2+2
Function Call: WRITE	Prompt: !,RASTR Line Location: PHYS20+0
Function Call: WRITE	Prompt: !,RASTR,"; " Line Location: PHYS21+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: DIVSUM+4
Function Call: WRITE	Prompt: !?$S(IOM<81:20,1:IOM-90),">>>>> Unverified Reports (",$S(RABD="B":"brief",1:"detailed"),") <<<<<" Line Location: DIVSUM+4
Function Call: WRITE	Prompt: ?$S(IOM<81:70,1:IOM-10),"Page: ",RAPAGE Line Location: DIVSUM+4
Function Call: WRITE	Prompt: !,"Division: ",?10,RADIVNME,?$S(IOM<81:43,1:IOM-37),"Report Date Range:",?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(BEGDATE),!?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(ENDDATE) Line Location: DIVSUM+5
Function Call: WRITE	Prompt: !,"Imaging Type(s): " Line Location: DIVSUM+6
Function Call: WRITE	Prompt: !?17 Condition for execution: ($L(RA1)+3+$X)>IOM Line Location: DIVSUM+7
Function Call: WRITE	Prompt: RA1," " Line Location: DIVSUM+7
Function Call: WRITE	Prompt: !!,"Run Date: ",RARUNDAT Line Location: DIVSUM+8
Function Call: WRITE	Prompt: !!!?26,"Division Summary",!?26,$E(RADASH,1,16) Line Location: DIVSUM+9
Function Call: WRITE	Prompt: !!,"Total Unverified Reports: " Line Location: DIVSUM+15
Function Call: WRITE	Prompt: ?29,$S($G(RA2ND(1)):$J(RA2ND(1),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?39,$S($G(RA2ND(2)):$J(RA2ND(2),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))) Line Location: DIVSUM+16
Function Call: WRITE	Prompt: ?49,$S($G(RA2ND(3)):$J(RA2ND(3),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?59,$S($G(RA2ND(4)):$J(RA2ND(4),$L(RACUT(3))+2),1:$J(0,$L(RACUT(3))+2)) Line Location: DIVSUM+17
Function Call: WRITE	Prompt: !!,"Division Total: ",RA1,!! Line Location: DIVSUM+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	BTG+3
^RA(79.2 - [#79.2]	BTG+6
^RADPT - [#70]	BTG+2, PHYS+2, PHYS+3
^TMP($J	BTG+4, BTG+7, BTG+10, BTG+15, INC+9, INC+10, INC+11, INC+13, INC+17, INC+18 , DIVSUM+1, DIVSUM+7, DIVSUM+11, DIVSUM+12, DIVSUM+13

Label References

Name	Line Occurrences
INC	BTG+12, BTG+13, BTG+14
PHYS11	PHYS11+1, PHYS11+3
PHYS2	PHYS1, PHYS11
PHYS20	PHYS2+1
PHYS21	PHYS21+1, PHYS21+3
PHYS29	PHYS21

Naked Globals

Name	Field # of Occurrence
^(	PHYS+2, PHYS+3
^(0	PHYS+2, PHYS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEGDATE	DIVSUM+5
DT	INC+15
>> ENDDATE	DIVSUM+5
IOF	DIVSUM+4
IOM	PHYS11+2, PHYS2+2, PHYS21+2, DIVSUM+4, DIVSUM+5, DIVSUM+7
R1	PHYS+1~, PHYS+2, PHYS+3, PHYS+4, PHYS+6, PHYS1+1, PHYS11, PHYS11+1, PHYS11+2, PHYS11+3 , PHYS2, PHYS2+1, PHYS2+2, PHYS2+3, PHYS20+1, PHYS21, PHYS21+1, PHYS21+2, PHYS21+3
R2	PHYS+1~, PHYS+2, PHYS+3
RA1	INC+2~, INC+12, INC+13, DIVSUM+7, DIVSUM+11, DIVSUM+12, DIVSUM+13, DIVSUM+18, DIVSUM+19
>> RA2	DIVSUM+12*, DIVSUM+13, DIVSUM+14
RA2ND	PHYS+1~, DIVSUM+2~
RA2ND(	DIVSUM+14*, DIVSUM+18
RA2ND("SRR"	PHYS+2*, PHYS20, PHYS21, PHYS21+1, PHYS21+2, PHYS21+3
RA2ND("SSR"	PHYS+3*, PHYS1, PHYS11, PHYS11+1, PHYS11+2, PHYS11+3
RA2ND(1	DIVSUM+16
RA2ND(2	DIVSUM+16
RA2ND(3	DIVSUM+17
RA2ND(4	DIVSUM+17
>> RA3	DIVSUM+13*
>> RA4	DIVSUM+18*
>> RABD	DIVSUM+4
>> RACNI	INC+10, PHYS+2, PHYS+3
>> RACNT	DIVSUM+3
>> RACNT(0	DIVSUM+3
>> RACUT(1	INC+16
>> RACUT(2	INC+16
>> RACUT(3	INC+16, DIVSUM+16, DIVSUM+17
>> RADASH	DIVSUM+9
>> RADFN	BTG+2, INC+10, PHYS+2, PHYS+3
>> RADIVNME	BTG+3, BTG+4, BTG+5, BTG+10, BTG+15, INC+9, INC+10, INC+11, INC+13, INC+17 , INC+18, DIVSUM+1, DIVSUM+5, DIVSUM+7, DIVSUM+11, DIVSUM+12, DIVSUM+13
>> RADIVNUM	BTG+3*
>> RADTI	BTG+2, INC+10, PHYS+2, PHYS+3
>> RAHOURS	INC+15, INC+16, INC+17, INC+18
>> RAIP	BTG+12, BTG+13, BTG+14
>> RAIPNAME	INC+4, INC+5, INC+6*, INC+9, INC+10, INC+11, INC+17, PHYS+6, PHYS11+1, PHYS2+1 , PHYS21+1
>> RAITNAME	BTG+6, BTG+7, BTG+8, BTG+10, BTG+15, INC+9, INC+10, INC+11, INC+13, INC+17 , INC+18
>> RAITNUM	BTG+6*
>> RAOUT	DIVSUM+3, DIVSUM+20
>> RAPAGE	DIVSUM+4*
>> RAPRES	INC+4
>> RAPSTF	INC+4
RAQT	BTG+1~, BTG+11, BTG+12, BTG+13, BTG+14, INC+9
>> RARE(0	BTG+2*, BTG+3, BTG+6, BTG+9!
>> RARPT	INC+9, INC+10, INC+18
>> RARPTENT	INC+14, INC+15
>> RARUNDAT	DIVSUM+8
RASTR	PHYS+1~, PHYS+5, PHYS+6, PHYS11+2, PHYS11+3, PHYS2+2, PHYS2+3, PHYS20, PHYS21+2, PHYS21+3 , PHYS29
RATYP	INC~, INC+3*, INC+4, INC+9, INC+10, INC+11, INC+12, INC+17
U	BTG+3, BTG+6, INC+10
>> Y(0	PHYS+4, PHYS2

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTUVR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PHYS20
PHYS21
PHYS11
PHYS29
BTG	; build tmp global
PHYS1
PHYS2
PHYS	;print other staff and residents
DIVSUM	;division summary -- skip if only one imaging type chosen for this div
INC(RATYP)	; Increment count for Resident, Staff or Unknown