Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls