Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RACDR1

Package: Radiology Nuclear Medicine

Routine: RACDR1


Information

RACDR1 ;HISC/FPT-Continuation of routine RACDR, CDR report ;4/16/96 08:48

Source Information

Source file <RACDR1.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All