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

Package: Radiology Nuclear Medicine

Routine: RANMUSE3


Information

RANMUSE3 ;HISC/SWM-Nuclear Medicine Usage reports ; Aug 20, 2020@07:23:45

Source Information

Source file <RANMUSE3.m>

Entry Points

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

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