RANMUSE1 ;HISC/SWM-Nuclear Medicine Usage reports ;9/3/97 14:37
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ;
N RADIVNAM,RAIMGNAM,RADIOPH,RAXMDTM,RAPRCNAM,RAPATNAM,RACN,DFN,I
N P02,P03,S3,S4,VA,VAERR
D KIL
S RATITLE="Radiopharmaceutical "_RATITLE,RAPG=0
S X="NOW",%DT="T" D ^%DT K %DT D D^RAUTL S RATDY=Y,$P(RALN,"-",133)=""
K DIR
;****W @IOF,!?3,RATITLE,!?3,$E(RALN,1,$L(RATITLE)),!
S DIR(0)="YA",DIR("A")="Do you wish only the summary report? ",DIR("B")="No",DIR("?")="Enter 'Yes' for a summary report, or 'No' for a detailed report."
D ^DIR K DIR I $D(DIRUT) G OUT
S RASUM=+Y ; =1 summary rpt only
K DIROUT,DIRUT,DTOUT,DUOUT
I $O(RACCESS(DUZ,""))="" D SETVARS^RAPSET1(0)
N X S X=$$SETUPDI^RAUTL7() Q:X
D SELDIV^RAUTL7 ; <-------------- Select Rad division(s)
I '$D(^TMP($J,"RA D-TYPE"))!(RAQUIT) D G OUT
. K RACCESS(DUZ,"DIV-IMG"),^TMP($J,"DIV-IMG")
. Q
; selection of img type should be based on
; (1) loc access and/or RA ALLOC key
; (2) img type must have RADIOPHARMS USED = Y
D SELIMG^RANMUTL1 ; <-------------- Select Imaging type
I '$D(^TMP($J,"RA I-TYPE"))!(RAQUIT) D G OUT
. K RACCESS(DUZ,"DIV-IMG"),^TMP($J,"DIV-IMG")
. Q
I RATITLE["Usage" D SELRADIO^RANMUTL1 Q:RAINPUT="" ; <-------------- Select Radiopharm(s)
I RATITLE["Admin" D SELADMIN^RANMUTL1 Q:RAINPUT="" ; <-------------- Select Dose Administerer
G:RAQUIT OUT
I RAINPUT=0,'$D(^TMP($J,"RA EITHER")) G OUT
D SELDATES^RANMUTL1 ; <-------------- Select date range
G:RAPOP OUT
D SELSORT^RANMUTL1 ; <-------------- Select sort order
G:RAPOP OUT
; ^tmp($j,"ra",
; subscr 3 - div's numerical sort order
; subscr 4 - img typ's numerical sort order
;
; 3rd & 4th sorts are interchangeable, depending on user's choice
; If user chooses to sort by exam date/time later :
; subscr 5 - radiopharm name OR who admin dose
; subscr 6 - exam date/time
;
; If user chooses to sort by exam date/time earlier :
; subscr 5 - exam date/time
; subscr 6 - radiopharm name OR who admin dose
;
; subscr 7 - patient name
; subscr 8 - case number
; subscr 9 - radiopharm (would be a repeat for Usage rpt)
;
S ZTRTN="START^RANMUSE1"
S ZTSAVE("^TMP($J,""RA"",")=""
S ZTSAVE("^TMP($J,""RA D-TYPE"",")=""
S ZTSAVE("^TMP($J,""RA I-TYPE"",")=""
S ZTSAVE("^TMP($J,""RA EITHER"",")=""
F I="RACCESS*","RAINPUT","RADTBEG*","RADTEND*","RALN","RASORT","RASUM","RAPG","RATDY","RATITLE" S ZTSAVE(I)=""
W !!?5,"***",?57,"***",!?5,"*** This report requires a 132 column output device ***",!?5,"***",?57,"***"
W ! D ZIS^RAUTL
I RAPOP G OUT
START ;
K RATDRAWN,RATDOSE,RATRADIO,RATOUTSD,RATUNIQ,RAHDTYP
; RATDRAWN() total dose drawn
; RATADMIN() total dose administered
; RATRADIO() total cases using this radiopharm
; RATOUTSD() total cases where admin dose fell outside of dosage range
D SET^RANMUSE2
D ZERO^RANMUSE3
U IO
D:'RASUM WRT^RANMUSE2 G:$G(RAXIT) OUT
D SUM^RANMUSE3
OUT ;
S:$D(ZTQUEUED) ZTREQ="@"
D CLOSE^RAUTL
D KIL
Q
KIL ;
K ^TMP($J,"RA"),^("RASUM"),^("RATUNIQ"),^("RA D-TYPE"),^("RA I-TYPE"),^("RA EITHER"),^("DIV-IMG")
K ^TMP($J,"RATOUTSD"),^("RATDRAWN"),^("RATDOSE"),^("RATRADIO")
K RA0,RA1,RA2,RASTERSK,RASORT,RADTBEG,RADTEND,RASUM,RAPG,RAUNIQ,RAFIRST
K RADFN,RADTI,RACNI,RAN0,RANUC,RALONGCN,RATDY,RALN,RAINPUT
K RAXIT,RAWHO,RAXMDTM,RASSN,RASEQD,RAPRC0,RASEQI,RAQUIT,RAPOP
K RANUMI,RANUMD,RANUC1,RALOW,RAHIGH,RAHDTYP,RADRAWN,RADOSE,RAMES
K RAEITHER,DIR,I
Q
RADUSE ; Entry point for Radiopharm usage report
N ZTDESC S ZTDESC="Rad/Nuc Med Radiopharmaceutical Usage Report"
N RATITLE S RATITLE="Usage" G EN1
Q
RADADM ; Entry point for Radiopharm administerer report
N ZTDESC S ZTDESC="Rad/Nuc Med Radiopharmaceutical Administerer Report"
N RATITLE S RATITLE="Administration" G EN1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRANMUSE1 3931 printed Dec 13, 2024@02:37:30 Page 2
RANMUSE1 ;HISC/SWM-Nuclear Medicine Usage reports ;9/3/97 14:37
+1 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ;
+1 NEW RADIVNAM,RAIMGNAM,RADIOPH,RAXMDTM,RAPRCNAM,RAPATNAM,RACN,DFN,I
+2 NEW P02,P03,S3,S4,VA,VAERR
+3 DO KIL
+4 SET RATITLE="Radiopharmaceutical "_RATITLE
SET RAPG=0
+5 SET X="NOW"
SET %DT="T"
DO ^%DT
KILL %DT
DO D^RAUTL
SET RATDY=Y
SET $PIECE(RALN,"-",133)=""
+6 KILL DIR
+7 ;****W @IOF,!?3,RATITLE,!?3,$E(RALN,1,$L(RATITLE)),!
+8 SET DIR(0)="YA"
SET DIR("A")="Do you wish only the summary report? "
SET DIR("B")="No"
SET DIR("?")="Enter 'Yes' for a summary report, or 'No' for a detailed report."
+9 DO ^DIR
KILL DIR
IF $DATA(DIRUT)
GOTO OUT
+10 ; =1 summary rpt only
SET RASUM=+Y
+11 KILL DIROUT,DIRUT,DTOUT,DUOUT
+12 IF $ORDER(RACCESS(DUZ,""))=""
DO SETVARS^RAPSET1(0)
+13 NEW X
SET X=$$SETUPDI^RAUTL7()
if X
QUIT
+14 ; <-------------- Select Rad division(s)
DO SELDIV^RAUTL7
+15 IF '$DATA(^TMP($JOB,"RA D-TYPE"))!(RAQUIT)
Begin DoDot:1
+16 KILL RACCESS(DUZ,"DIV-IMG"),^TMP($JOB,"DIV-IMG")
+17 QUIT
End DoDot:1
GOTO OUT
+18 ; selection of img type should be based on
+19 ; (1) loc access and/or RA ALLOC key
+20 ; (2) img type must have RADIOPHARMS USED = Y
+21 ; <-------------- Select Imaging type
DO SELIMG^RANMUTL1
+22 IF '$DATA(^TMP($JOB,"RA I-TYPE"))!(RAQUIT)
Begin DoDot:1
+23 KILL RACCESS(DUZ,"DIV-IMG"),^TMP($JOB,"DIV-IMG")
+24 QUIT
End DoDot:1
GOTO OUT
+25 ; <-------------- Select Radiopharm(s)
IF RATITLE["Usage"
DO SELRADIO^RANMUTL1
if RAINPUT=""
QUIT
+26 ; <-------------- Select Dose Administerer
IF RATITLE["Admin"
DO SELADMIN^RANMUTL1
if RAINPUT=""
QUIT
+27 if RAQUIT
GOTO OUT
+28 IF RAINPUT=0
IF '$DATA(^TMP($JOB,"RA EITHER"))
GOTO OUT
+29 ; <-------------- Select date range
DO SELDATES^RANMUTL1
+30 if RAPOP
GOTO OUT
+31 ; <-------------- Select sort order
DO SELSORT^RANMUTL1
+32 if RAPOP
GOTO OUT
+33 ; ^tmp($j,"ra",
+34 ; subscr 3 - div's numerical sort order
+35 ; subscr 4 - img typ's numerical sort order
+36 ;
+37 ; 3rd & 4th sorts are interchangeable, depending on user's choice
+38 ; If user chooses to sort by exam date/time later :
+39 ; subscr 5 - radiopharm name OR who admin dose
+40 ; subscr 6 - exam date/time
+41 ;
+42 ; If user chooses to sort by exam date/time earlier :
+43 ; subscr 5 - exam date/time
+44 ; subscr 6 - radiopharm name OR who admin dose
+45 ;
+46 ; subscr 7 - patient name
+47 ; subscr 8 - case number
+48 ; subscr 9 - radiopharm (would be a repeat for Usage rpt)
+49 ;
+50 SET ZTRTN="START^RANMUSE1"
+51 SET ZTSAVE("^TMP($J,""RA"",")=""
+52 SET ZTSAVE("^TMP($J,""RA D-TYPE"",")=""
+53 SET ZTSAVE("^TMP($J,""RA I-TYPE"",")=""
+54 SET ZTSAVE("^TMP($J,""RA EITHER"",")=""
+55 FOR I="RACCESS*","RAINPUT","RADTBEG*","RADTEND*","RALN","RASORT","RASUM","RAPG","RATDY","RATITLE"
SET ZTSAVE(I)=""
+56 WRITE !!?5,"***",?57,"***",!?5,"*** This report requires a 132 column output device ***",!?5,"***",?57,"***"
+57 WRITE !
DO ZIS^RAUTL
+58 IF RAPOP
GOTO OUT
START ;
+1 KILL RATDRAWN,RATDOSE,RATRADIO,RATOUTSD,RATUNIQ,RAHDTYP
+2 ; RATDRAWN() total dose drawn
+3 ; RATADMIN() total dose administered
+4 ; RATRADIO() total cases using this radiopharm
+5 ; RATOUTSD() total cases where admin dose fell outside of dosage range
+6 DO SET^RANMUSE2
+7 DO ZERO^RANMUSE3
+8 USE IO
+9 if 'RASUM
DO WRT^RANMUSE2
if $GET(RAXIT)
GOTO OUT
+10 DO SUM^RANMUSE3
OUT ;
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 DO CLOSE^RAUTL
+3 DO KIL
+4 QUIT
KIL ;
+1 KILL ^TMP($JOB,"RA"),^("RASUM"),^("RATUNIQ"),^("RA D-TYPE"),^("RA I-TYPE"),^("RA EITHER"),^("DIV-IMG")
+2 KILL ^TMP($JOB,"RATOUTSD"),^("RATDRAWN"),^("RATDOSE"),^("RATRADIO")
+3 KILL RA0,RA1,RA2,RASTERSK,RASORT,RADTBEG,RADTEND,RASUM,RAPG,RAUNIQ,RAFIRST
+4 KILL RADFN,RADTI,RACNI,RAN0,RANUC,RALONGCN,RATDY,RALN,RAINPUT
+5 KILL RAXIT,RAWHO,RAXMDTM,RASSN,RASEQD,RAPRC0,RASEQI,RAQUIT,RAPOP
+6 KILL RANUMI,RANUMD,RANUC1,RALOW,RAHIGH,RAHDTYP,RADRAWN,RADOSE,RAMES
+7 KILL RAEITHER,DIR,I
+8 QUIT
RADUSE ; Entry point for Radiopharm usage report
+1 NEW ZTDESC
SET ZTDESC="Rad/Nuc Med Radiopharmaceutical Usage Report"
+2 NEW RATITLE
SET RATITLE="Usage"
GOTO EN1
+3 QUIT
RADADM ; Entry point for Radiopharm administerer report
+1 NEW ZTDESC
SET ZTDESC="Rad/Nuc Med Radiopharmaceutical Administerer Report"
+2 NEW RATITLE
SET RATITLE="Administration"
GOTO EN1
+3 QUIT
