Routine: RANMUSE3

Information

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

Call Graph

Call Graph Total: 2

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RANMUSE1 RANMUSE2

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

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	SUM+1, 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*

Customize PDF page

Package: Radiology Nuclear Medicine