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: RANMUSE3

Package: Radiology Nuclear Medicine

Routine: RANMUSE3


Information

RANMUSE3 ;HISC/SWM-Nuclear Medicine Usage reports ;10/20/97 11:09

Source Information

Source file <RANMUSE3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Radiology Nuclear Medicine 2 $$USESSAN^RAHLRU1  $$EOS^RAUTL5  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RANMUSE1  RANMUSE2  

Entry Points

Name Comments DBIA/ICR reference
COLHDS ; Column Header for summary report
PGHD ; Page Header
DV1
SUM
SM3
SM2
FOOTIMG ; footnotes img type
SM0
ZERO ; zero out total for imaging type(s) and associated division(s) w/o data
COLHD ; Column Header for detailed report
FOOT
FOOTDIV ; footnotes division
DIVSUM ;
; skip div summary page if div has only 1 img typ
Z1
Z2

External References

Name Field # of Occurrence
$$USESSAN^RAHLRU1 COLHD+1, COLHD+2
$$EOS^RAUTL5 SUM, SM3, SM3+7, DV1+1, DV1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?35,">>> "_RATITLE_" Report <<<",?90,"Run Date: ",RATDY
  • Line Location: PGHD+3
Function Call: WRITE
  • Prompt: ?121,"Page: ",RAPG
  • Line Location: PGHD+4
Function Call: WRITE
  • Prompt: !?50,$S($G(RAHDTYP)="D":"(Division",$G(RAHDTYP)="I":"(Imaging",1:"")
  • Line Location: PGHD+5
Function Call: WRITE
  • Prompt: " Summary)"
  • Condition for execution: $G(RAHDTYP)]""
  • Line Location: PGHD+5
Function Call: WRITE
  • Prompt: ?85,"For: ",RADTBEG("X")," - ",RADTEND("X")
  • Line Location: PGHD+6
Function Call: WRITE
  • Prompt: !!,"Long-Case@Time",?22,"Patient Name",?38,"SSN",?50,"Radiopharm",?65,"Act.Drawn",?75,"Dose Adm'd",?88,"Low",?98,"High",?105,"Procedure",?121,"Who Adm'd"
  • Line Location: COLHD+1
Function Call: WRITE
  • Prompt: !!,"Long-Case@Time",?16,"Patient Name",?35,"SSN",?44,"Radiopharm",?59,"Act.Drawn",?69,"Dose Adm'd",?83,"Low",?93,"High",?100,"Procedure",?116,"Who Adm'd"
  • Line Location: COLHD+2
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: COLHD+3
Function Call: WRITE
  • Prompt: !!,$S(RATITLE["Usage":"Radiopharm",1:"Who Admin Dose"),?35,"Total Drawn",?50,"Total Adm'd",?64,"No. cases",?79,"(%)",?90,"No. outside range"
  • Line Location: COLHDS+1
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: COLHDS+2
Function Call: WRITE
  • Prompt: !,$E(RA2,1,30)
  • Line Location: SM3+1
Function Call: WRITE
  • Prompt: ?30,$J($G(^TMP($J,"RATDRAWN",RA0,RA1,RA2)),15,4)
  • Line Location: SM3+2
Function Call: WRITE
  • Prompt: ?45,$J($G(^TMP($J,"RATDOSE",RA0,RA1,RA2)),15,4)
  • Line Location: SM3+3
Function Call: WRITE
  • Prompt: ?64,$J($G(^TMP($J,"RATUNIQ",RA0,RA1,RA2)),7)
  • Line Location: SM3+4
Function Call: WRITE
  • Prompt: ?78,$J(100*$S(+$G(^TMP($J,"RATUNIQ",RA0,RA1))=0:0,1:$G(^TMP($J,"RATUNIQ",RA0,RA1,RA2))/^TMP($J,"RATUNIQ",RA0,RA1)),5,2)
  • Line Location: SM3+5
Function Call: WRITE
  • Prompt: ?90,$J($G(^TMP($J,"RATOUTSD",RA0,RA1,RA2)),7)
  • Line Location: SM3+6
Function Call: WRITE
  • Prompt: !,$E(RA2,1,30)
  • Line Location: DV1+2
Function Call: WRITE
  • Prompt: ?30,$J($G(^TMP($J,"RATDRAWN",RA0,RA2)),15,4)
  • Line Location: DV1+3
Function Call: WRITE
  • Prompt: ?45,$J($G(^TMP($J,"RATDOSE",RA0,RA2)),15,4)
  • Line Location: DV1+4
Function Call: WRITE
  • Prompt: ?64,$J($G(^TMP($J,"RATUNIQ",RA0,RA2)),7)
  • Line Location: DV1+5
Function Call: WRITE
  • Prompt: ?78,$J(100*$S(+$G(^TMP($J,"RATUNIQ",RA0))=0:0,1:$G(^TMP($J,"RATUNIQ",RA0,RA2))/^TMP($J,"RATUNIQ",RA0)),5,2)
  • Line Location: DV1+6
Function Call: WRITE
  • Prompt: ?90,$J($G(^TMP($J,"RATOUTSD",RA0,RA2)),7)
  • Line Location: DV1+7
Function Call: WRITE
  • Prompt: !!,RANUMD(RASEQD),"'s Total number of unique cases: ",^TMP($J,"RATUNIQ",RA0)
  • Line Location: FOOTDIV+1
Function Call: WRITE
  • Prompt: !!,RANUMI(RASEQI),"'s Total number of unique cases: ",^TMP($J,"RATUNIQ",RA0,RA1)
  • Line Location: FOOTIMG+1
Function Call: WRITE
  • Prompt: !!,"Notes: A case may have more than 1 radiopharm, so total no. unique cases may be less than total no. radiopharms listed."
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: !," * denotes administered dosage outside of normal range."
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !!,$S(RATITLE["Usage":"Radiopharm",1:"Dose administerers")," selected for this report :"
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !?6
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !?6
  • Condition for execution: $X+$L(RA2)>(IOM+2)
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: RA2
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(^(RA2))]""
  • Line Location: FOOT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J SM0, SM2, SM3, SM3+2, SM3+3, SM3+4, SM3+5, SM3+6, DIVSUM+2, DV1
, DV1+3, DV1+4, DV1+5, DV1+6, DV1+7, FOOTDIV+1, FOOTIMG+1, FOOT+4, Z1, Z2+1
, Z2+2*, Z2+3*

Label References

Name Line Occurrences
COLHDS SM2+4, SM3+7, DIVSUM+4, DV1+8
DIVSUM SM2
DV1 DV1+9
FOOT FOOTDIV+2, FOOTIMG+2
FOOTDIV DV1+1
FOOTIMG SM3
PGHD SM2+4, SM3+7, DIVSUM+4, DV1+8
SM0 SM2
SM2 SM3
SM3 SM3+8
Z1 Z2
Z2 Z2+1, Z2+4

Naked Globals

Name Field # of Occurrence
^( FOOT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ Z2
IOF PGHD+1
IOM FOOT+4
IOSL SM3+7, DV1+8
IOST PGHD+1
>> RA0 SUM+1*, SM0*, SM2, SM2+3, SM3, SM3+2, SM3+3, SM3+4, SM3+5, SM3+6
, DIVSUM+2, DV1, DV1+3, DV1+4, DV1+5, DV1+6, DV1+7, FOOTDIV+1, FOOTIMG+1, ZERO+1*
, Z1*, Z2, Z2+2, Z2+3
>> RA1 SM0*, SM2*, SM2+3, SM3, SM3+2, SM3+3, SM3+4, SM3+5, SM3+6, FOOTIMG+1
, Z1*, Z2*, Z2+1, Z2+2
>> RA2 SM3*, SM3+1, SM3+2, SM3+3, SM3+4, SM3+5, SM3+6, DIVSUM+3*, DV1*, DV1+1
, DV1+2, DV1+3, DV1+4, DV1+5, DV1+6, DV1+7, FOOT+4*
>> RACCESS( Z2
>> RADTBEG("X" PGHD+6
>> RADTEND("X" PGHD+6
>> RAHDTYP PGHD+5, PGHD+7, SM2+4*, DIVSUM+3*
>> RAINPUT FOOT+2
>> RALN COLHD+3, COLHDS+2
>> RANUMD( PGHD+7, FOOTDIV+1
>> RANUMI( PGHD+7, FOOTIMG+1
>> RAPG PGHD+1, PGHD+2*, PGHD+4, SM3+7, DV1+8
>> RASEQD PGHD+7, SM2+3*, FOOTDIV+1
>> RASEQD( Z2+2, Z2+3
>> RASEQI PGHD+7, SM2+3*, FOOTIMG+1
>> RASEQI( Z2+2
>> RATDY PGHD+3
>> RATITLE PGHD+3, COLHDS+1, FOOT+3
>> RAXIT SUM*, SM2, SM3*, SM3+7*, DV1+1*, DV1+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All