Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RANMUSE3

RANMUSE3.m

Go to the documentation of this file.
  1. RANMUSE3 ;HISC/SWM-Nuclear Medicine Usage reports ; Aug 20, 2020@07:23:45
  1. ;;5.0;Radiology/Nuclear Medicine;**65,47,173**;Mar 16, 1998;Build 1
  1. PGHD ; Page Header
  1. I RAPG!($E(IOST,1,2)="C-") W:$Y>0 @IOF
  1. S RAPG=RAPG+1
  1. W !?35,">>> "_RATITLE_" Report <<<",?90,"Run Date: ",RATDY
  1. W ?121,"Page: ",RAPG
  1. W !?50,$S($G(RAHDTYP)="D":"(Division",$G(RAHDTYP)="I":"(Imaging",1:"") W:$G(RAHDTYP)]"" " Summary)"
  1. W ?85,"For: ",RADTBEG("X")," - ",RADTEND("X")
  1. W !,"Division: ",RANUMD(RASEQD) W:$G(RAHDTYP)'="D" ?45,"Imaging Type: ",RANUMI(RASEQI)
  1. Q
  1. COLHD ; Column Header for detailed report
  1. I $$USESSAN^RAHLRU1() W !!,"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"
  1. I '$$USESSAN^RAHLRU1() W !!,"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"
  1. W !,RALN
  1. Q
  1. COLHDS ; Column Header for summary report
  1. W !!,$S(RATITLE["Usage":"Radiopharm",1:"Who Admin Dose"),?35,"Total Drawn",?50,"Total Adm'd",?64,"No. cases",?79,"(%)",?90,"No. outside range"
  1. W !,RALN
  1. Q
  1. SUM S RAXIT=$$EOS^RAUTL5 Q:RAXIT
  1. S RA0=0,RA2="" ;p173 RA2 previously used and has value.
  1. SM0 S RA0=$O(^TMP($J,"RATUNIQ",RA0)) Q:'RA0 S RA1=0
  1. SM2 S RA1=$O(^TMP($J,"RATUNIQ",RA0,RA1)) I RA1'=+RA1 D DIVSUM Q:RAXIT G SM0
  1. ; if RA1 is alpha, then node is for division summary
  1. ; if RA1 is numeric, then node is for imaging summary
  1. S RASEQD=RA0,RASEQI=RA1
  1. S RAHDTYP="I" D PGHD,COLHDS
  1. SM3 S RA2=$O(^TMP($J,"RATUNIQ",RA0,RA1,RA2)) I RA2="" D FOOTIMG S RAXIT=$$EOS^RAUTL5 Q:RAXIT G SM2
  1. W !,$E(RA2,1,30)
  1. W ?30,$J($G(^TMP($J,"RATDRAWN",RA0,RA1,RA2)),15,4)
  1. W ?45,$J($G(^TMP($J,"RATDOSE",RA0,RA1,RA2)),15,4)
  1. W ?64,$J($G(^TMP($J,"RATUNIQ",RA0,RA1,RA2)),7)
  1. W ?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)
  1. W ?90,$J($G(^TMP($J,"RATOUTSD",RA0,RA1,RA2)),7)
  1. I ($Y+4)>IOSL!(RAPG=0) S RAXIT=$$EOS^RAUTL5 Q:RAXIT D PGHD,COLHDS
  1. G SM3
  1. DIVSUM ;
  1. ; skip div summary page if div has only 1 img typ
  1. Q:$O(^TMP($J,"RATUNIQ",RA0,0))=$O(^TMP($J,"RATUNIQ",RA0,"A"),-1)
  1. S RAHDTYP="D",RA2="A"
  1. D PGHD,COLHDS
  1. DV1 S RA2=$O(^TMP($J,"RATUNIQ",RA0,RA2))
  1. I RA2="" D FOOTDIV S RAXIT=$$EOS^RAUTL5 Q
  1. W !,$E(RA2,1,30)
  1. W ?30,$J($G(^TMP($J,"RATDRAWN",RA0,RA2)),15,4)
  1. W ?45,$J($G(^TMP($J,"RATDOSE",RA0,RA2)),15,4)
  1. W ?64,$J($G(^TMP($J,"RATUNIQ",RA0,RA2)),7)
  1. W ?78,$J(100*$S(+$G(^TMP($J,"RATUNIQ",RA0))=0:0,1:$G(^TMP($J,"RATUNIQ",RA0,RA2))/^TMP($J,"RATUNIQ",RA0)),5,2)
  1. W ?90,$J($G(^TMP($J,"RATOUTSD",RA0,RA2)),7)
  1. I ($Y+4)>IOSL!(RAPG=0) S RAXIT=$$EOS^RAUTL5 Q:RAXIT D PGHD,COLHDS
  1. G DV1
  1. FOOTDIV ; footnotes division
  1. W !!,RANUMD(RASEQD),"'s Total number of unique cases: ",^TMP($J,"RATUNIQ",RA0)
  1. D FOOT Q
  1. FOOTIMG ; footnotes img type
  1. W !!,RANUMI(RASEQI),"'s Total number of unique cases: ",^TMP($J,"RATUNIQ",RA0,RA1)
  1. D FOOT Q
  1. W !," * denotes administered dosage outside of normal range."
  1. Q:RAINPUT
  1. W !!,$S(RATITLE["Usage":"Radiopharm",1:"Dose administerers")," selected for this report :" W !?6
  1. S RA2=0 F S RA2=$O(^TMP($J,"RA EITHER",RA2)) Q:RA2="" W:$X+$L(RA2)>(IOM+2) !?6 W RA2 W:$O(^(RA2))]"" ", "
  1. Q
  1. ZERO ; zero out total for imaging type(s) and associated division(s) w/o data
  1. S RA0=""
  1. Z1 S RA0=$O(^TMP($J,"RA D-TYPE",RA0)) Q:RA0']"" S RA1=""
  1. Z2 S RA1=$O(RACCESS(DUZ,"DIV-IMG",RA0,RA1)) G:RA1']"" Z1
  1. G:'$D(^TMP($J,"RA I-TYPE",RA1)) Z2
  1. S:'$D(^TMP($J,"RATUNIQ",RASEQD(RA0),RASEQI(RA1))) ^TMP($J,"RATUNIQ",RASEQD(RA0),RASEQI(RA1))=0
  1. S:'($D(^TMP($J,"RATUNIQ",RASEQD(RA0)))#2) ^TMP($J,"RATUNIQ",RASEQD(RA0))=0
  1. G Z2