Routine: RACDR1

Package	Total	Call Graph
Radiology Nuclear Medicine	2	$$EOS^RAUTL5 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RACDR

Entry Points

Name	Comments	DBIA/ICR reference
DIVTOT	;
ITSUM	; imaging type summary
IMGTOT	;
HED	; header
W
DIVSUM	; division summary
DIVNME	;

External References

Name	Field # of Occurrence
$$EOS^RAUTL5	RACDR1+9, W+6, ITSUM+6, ITSUM+16, DIVSUM+6, DIVSUM+16, DIVSUM+20, DIVSUM+22
STOPCHK^RAUTL9	HED+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(RAPROCN,1,38),?41 Line Location: RACDR1+10
Function Call: WRITE	Prompt: ?($X+1),$J($P(RAX,"^",RAJ),5) Line Location: RACDR1+10
Function Call: WRITE	Prompt: ?74,$J(Y,5,1) Line Location: RACDR1+11
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: !!?32,"Total",?41 Line Location: W+0
Function Call: WRITE	Prompt: ?68,$J(RATP,4) Line Location: W+5
Function Call: WRITE	Prompt: ?74,$J(Y,5,1),!?30,"Percent",?41 Line Location: W+5
Function Call: WRITE	Prompt: ?74,$J(Y,5,1),!?30,"Percent",?41 Line Location: W+5
Function Call: WRITE	Prompt: !?10,"(Imaging Type Summary)" Line Location: ITSUM+2
Function Call: WRITE	Prompt: !?2,$S(RACDR>0:RACDR,1:"")," ",$P(RAT,"^",5),?41 Line Location: ITSUM+3
Function Call: WRITE	Prompt: ?($X+1),$J($P(RAT,"^",RAJ),5) Line Location: ITSUM+4
Function Call: WRITE	Prompt: ?74,$J(Y,5,1) Line Location: ITSUM+5
Function Call: WRITE	Prompt: !!?32,"Total",?41 Line Location: ITSUM+10
Function Call: WRITE	Prompt: ?($X+1),$J($P(RAIMGNDE,"^",RAJ),5) Line Location: ITSUM+11
Function Call: WRITE	Prompt: ?68,$J(RAIMGTOT,4) Line Location: ITSUM+12
Function Call: WRITE	Prompt: ?74,$J(Y,5,1),!?30,"Percent",?41 Line Location: ITSUM+13
Function Call: WRITE	Prompt: ?$X,$J($S(RAIMGTOT=0:0,1:($P(RAIMGNDE,"^",RAJ)/RAIMGTOT*100)),6,1) Line Location: ITSUM+14
Function Call: WRITE	Prompt: !?20,">>>>> COST DISTRIBUTION REPORT <<<<<" Line Location: HED+2
Function Call: WRITE	Prompt: ?71,"Page: ",RAPG Line Location: HED+3
Function Call: WRITE	Prompt: !!,?4,"Division: ",RADIVNME Line Location: HED+4
Function Call: WRITE	Prompt: ?52,"For Period: ",?64,RABDT," to",!?4,"Run Date: ",RARDT,?64,RAEDT Line Location: HED+6
Function Call: WRITE	Prompt: !?10,"(Division Summary)" Line Location: DIVSUM+2
Function Call: WRITE	Prompt: !?2,$S(RACDR]"":RACDR,1:"")," ",$P(RAT,"^",5),?41 Line Location: DIVSUM+3
Function Call: WRITE	Prompt: ?($X+1),$J($P(RAT,"^",RAJ),5) Line Location: DIVSUM+4
Function Call: WRITE	Prompt: ?74,$J(Y,5,1) Line Location: DIVSUM+5
Function Call: WRITE	Prompt: !!?32,"Total",?41 Line Location: DIVSUM+10
Function Call: WRITE	Prompt: ?($X+1),$J($P(RADIVNDE,"^",RAJ),5) Line Location: DIVSUM+11
Function Call: WRITE	Prompt: ?68,$J(RADIVTOT,4) Line Location: DIVSUM+12
Function Call: WRITE	Prompt: ?74,$J(Y,5,1),!?30,"Percent",?41 Line Location: DIVSUM+13
Function Call: WRITE	Prompt: ?$X,$J($S(RADIVTOT=0:0,1:($P(RADIVNDE,"^",RAJ)/RADIVTOT*100)),6,1) Line Location: DIVSUM+14
Function Call: WRITE	Prompt: !!?2,"Imaging Type(s): " Line Location: DIVSUM+17
Function Call: WRITE	Prompt: !?19 Line Location: DIVSUM+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIVNME+1
^RA(79.2 - [#79.2]	HED+5, DIVSUM+21
^TMP($J	RACDR1+4, RACDR1+5, RACDR1+6, RACDR1+7, RACDR1+8, RACDR1+12, ITSUM+3, ITSUM+15, DIVSUM+3, DIVSUM+19 , DIVSUM+22, DIVTOT+1, IMGTOT+1

Label References

Name	Line Occurrences
DIVNME	RACDR1+4
DIVSUM	RACDR1+4
DIVTOT	RACDR1+4
HED	RACDR1+6, RACDR1+9, ITSUM+1, ITSUM+6, DIVSUM+1, DIVSUM+6, DIVSUM+16, DIVSUM+20
IMGTOT	RACDR1+5
ITSUM	RACDR1+5
W	RACDR1+12

Naked Globals

Name	Field # of Occurrence
^(	RACDR1+8, ITSUM+3, DIVSUM+3
^(0	HED+5, DIVSUM+21, DIVNME+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
IOF	HED+1
IOSL	RACDR1+9, ITSUM+6, DIVSUM+6, DIVSUM+16, DIVSUM+20
>> RABDT	HED+6
>> RACDR	RACDR1+6, RACDR1+7, RACDR1+8, RACDR1+12, ITSUM+3, HED+8, DIVSUM+3*
>> RADIV	RACDR1+3, RACDR1+4, RACDR1+5, RACDR1+6, RACDR1+7, RACDR1+8, RACDR1+12, ITSUM+3, ITSUM+15, DIVSUM+3 , DIVSUM+16, DIVSUM+19, DIVSUM+22, DIVNME+1, DIVTOT+1, IMGTOT+1
>> RADIVNDE	DIVSUM+11, DIVSUM+14, DIVTOT+1*, DIVTOT+2
>> RADIVNME	HED+4, DIVNME+1*
RADIVSUM	RACDR1+4!, HED+5, DIVSUM+1*
>> RADIVTOT	DIVSUM+5, DIVSUM+12, DIVSUM+14, DIVTOT+1, DIVTOT+2
>> RADIVTOT(0	DIVSUM+9, DIVSUM+11, DIVSUM+12
>> RAEDT	HED+6
>> RAEOS	RACDR1+4, RACDR1+5, RACDR1+6, RACDR1+7, RACDR1+8, RACDR1+9, W+6, ITSUM+1, ITSUM+3, ITSUM+6* , ITSUM+8, ITSUM+16, HED+9, DIVSUM+1, DIVSUM+3, DIVSUM+6, DIVSUM+8, DIVSUM+16, DIVSUM+19, DIVSUM+20* , DIVSUM+22*
RAFLG	RACDR1+4!, RACDR1+5!, ITSUM+1, HED+7, HED+8, DIVSUM+1
>> RAIMAGE	RACDR1+5*, RACDR1+6, RACDR1+7, RACDR1+8, RACDR1+12, ITSUM+3, HED+5, IMGTOT+1
>> RAIMGNDE	ITSUM+11, ITSUM+14, IMGTOT+1*, IMGTOT+2
>> RAIMGTOT	ITSUM+5, ITSUM+12, ITSUM+14, IMGTOT+1, IMGTOT+2
>> RAIMGTOT(0	ITSUM+9, ITSUM+11, ITSUM+12
>> RAITCNT(	RACDR1+4, ITSUM+15, DIVSUM+16
>> RAITHLD	DIVSUM+18, DIVSUM+19, DIVSUM+21
>> RAJ	RACDR1+10, W+1, W+2, W+3, W+5, ITSUM+4, ITSUM+11, ITSUM+14, DIVSUM+4, DIVSUM+11 , DIVSUM+14, DIVTOT+2, IMGTOT+2*
>> RAPG	HED+1*, HED+3
>> RAPROC	RACDR1+8*
>> RAPROCN	RACDR1+7*, RACDR1+8, RACDR1+10, RACDR1+12
>> RAQ	HED+7
>> RARDT	HED+6
>> RAT	RACDR1+6, W+2, W+3, W+5, ITSUM+3, ITSUM+4, HED+8, DIVSUM+3*, DIVSUM+4
>> RATA	RACDR1+6*, RACDR1+11, W+5
>> RATP	RACDR1+10, RACDR1+11, W, W+3, W+5, ITSUM+3, ITSUM+4, ITSUM+5, DIVSUM+3, DIVSUM+4* , DIVSUM+5
>> RAX	RACDR1+8*, RACDR1+10
U	ITSUM+11, HED+5, DIVSUM+11, DIVSUM+21, DIVTOT+2, IMGTOT+2
>> X	RACDR1+3*
>> Y	RACDR1+11, W+5, ITSUM+5, ITSUM+12, ITSUM+13, DIVSUM+5, DIVSUM+12, DIVSUM+13
>> ZTQUEUED	HED+9
>> ZTSTOP	HED+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACDR1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: