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

RANMUSE1.m

Go to the documentation of this file.
  1. RANMUSE1 ;HISC/SWM-Nuclear Medicine Usage reports ;9/3/97 14:37
  1. ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
  1. EN1 ;
  1. N RADIVNAM,RAIMGNAM,RADIOPH,RAXMDTM,RAPRCNAM,RAPATNAM,RACN,DFN,I
  1. N P02,P03,S3,S4,VA,VAERR
  1. D KIL
  1. S RATITLE="Radiopharmaceutical "_RATITLE,RAPG=0
  1. S X="NOW",%DT="T" D ^%DT K %DT D D^RAUTL S RATDY=Y,$P(RALN,"-",133)=""
  1. K DIR
  1. ;****W @IOF,!?3,RATITLE,!?3,$E(RALN,1,$L(RATITLE)),!
  1. 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."
  1. D ^DIR K DIR I $D(DIRUT) G OUT
  1. S RASUM=+Y ; =1 summary rpt only
  1. K DIROUT,DIRUT,DTOUT,DUOUT
  1. I $O(RACCESS(DUZ,""))="" D SETVARS^RAPSET1(0)
  1. N X S X=$$SETUPDI^RAUTL7() Q:X
  1. D SELDIV^RAUTL7 ; <-------------- Select Rad division(s)
  1. I '$D(^TMP($J,"RA D-TYPE"))!(RAQUIT) D G OUT
  1. . K RACCESS(DUZ,"DIV-IMG"),^TMP($J,"DIV-IMG")
  1. . Q
  1. ; selection of img type should be based on
  1. ; (1) loc access and/or RA ALLOC key
  1. ; (2) img type must have RADIOPHARMS USED = Y
  1. D SELIMG^RANMUTL1 ; <-------------- Select Imaging type
  1. I '$D(^TMP($J,"RA I-TYPE"))!(RAQUIT) D G OUT
  1. . K RACCESS(DUZ,"DIV-IMG"),^TMP($J,"DIV-IMG")
  1. . Q
  1. I RATITLE["Usage" D SELRADIO^RANMUTL1 Q:RAINPUT="" ; <-------------- Select Radiopharm(s)
  1. I RATITLE["Admin" D SELADMIN^RANMUTL1 Q:RAINPUT="" ; <-------------- Select Dose Administerer
  1. G:RAQUIT OUT
  1. I RAINPUT=0,'$D(^TMP($J,"RA EITHER")) G OUT
  1. D SELDATES^RANMUTL1 ; <-------------- Select date range
  1. G:RAPOP OUT
  1. D SELSORT^RANMUTL1 ; <-------------- Select sort order
  1. G:RAPOP OUT
  1. ; ^tmp($j,"ra",
  1. ; subscr 3 - div's numerical sort order
  1. ; subscr 4 - img typ's numerical sort order
  1. ;
  1. ; 3rd & 4th sorts are interchangeable, depending on user's choice
  1. ; If user chooses to sort by exam date/time later :
  1. ; subscr 5 - radiopharm name OR who admin dose
  1. ; subscr 6 - exam date/time
  1. ;
  1. ; If user chooses to sort by exam date/time earlier :
  1. ; subscr 5 - exam date/time
  1. ; subscr 6 - radiopharm name OR who admin dose
  1. ;
  1. ; subscr 7 - patient name
  1. ; subscr 8 - case number
  1. ; subscr 9 - radiopharm (would be a repeat for Usage rpt)
  1. ;
  1. S ZTRTN="START^RANMUSE1"
  1. S ZTSAVE("^TMP($J,""RA"",")=""
  1. S ZTSAVE("^TMP($J,""RA D-TYPE"",")=""
  1. S ZTSAVE("^TMP($J,""RA I-TYPE"",")=""
  1. S ZTSAVE("^TMP($J,""RA EITHER"",")=""
  1. F I="RACCESS*","RAINPUT","RADTBEG*","RADTEND*","RALN","RASORT","RASUM","RAPG","RATDY","RATITLE" S ZTSAVE(I)=""
  1. W !!?5,"***",?57,"***",!?5,"*** This report requires a 132 column output device ***",!?5,"***",?57,"***"
  1. W ! D ZIS^RAUTL
  1. I RAPOP G OUT
  1. START ;
  1. K RATDRAWN,RATDOSE,RATRADIO,RATOUTSD,RATUNIQ,RAHDTYP
  1. ; RATDRAWN() total dose drawn
  1. ; RATADMIN() total dose administered
  1. ; RATRADIO() total cases using this radiopharm
  1. ; RATOUTSD() total cases where admin dose fell outside of dosage range
  1. D SET^RANMUSE2
  1. D ZERO^RANMUSE3
  1. U IO
  1. D:'RASUM WRT^RANMUSE2 G:$G(RAXIT) OUT
  1. D SUM^RANMUSE3
  1. OUT ;
  1. S:$D(ZTQUEUED) ZTREQ="@"
  1. D CLOSE^RAUTL
  1. D KIL
  1. Q
  1. KIL ;
  1. K ^TMP($J,"RA"),^("RASUM"),^("RATUNIQ"),^("RA D-TYPE"),^("RA I-TYPE"),^("RA EITHER"),^("DIV-IMG")
  1. K ^TMP($J,"RATOUTSD"),^("RATDRAWN"),^("RATDOSE"),^("RATRADIO")
  1. K RA0,RA1,RA2,RASTERSK,RASORT,RADTBEG,RADTEND,RASUM,RAPG,RAUNIQ,RAFIRST
  1. K RADFN,RADTI,RACNI,RAN0,RANUC,RALONGCN,RATDY,RALN,RAINPUT
  1. K RAXIT,RAWHO,RAXMDTM,RASSN,RASEQD,RAPRC0,RASEQI,RAQUIT,RAPOP
  1. K RANUMI,RANUMD,RANUC1,RALOW,RAHIGH,RAHDTYP,RADRAWN,RADOSE,RAMES
  1. K RAEITHER,DIR,I
  1. Q
  1. RADUSE ; Entry point for Radiopharm usage report
  1. N ZTDESC S ZTDESC="Rad/Nuc Med Radiopharmaceutical Usage Report"
  1. N RATITLE S RATITLE="Usage" G EN1
  1. Q
  1. RADADM ; Entry point for Radiopharm administerer report
  1. N ZTDESC S ZTDESC="Rad/Nuc Med Radiopharmaceutical Administerer Report"
  1. N RATITLE S RATITLE="Administration" G EN1
  1. Q