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

RAXSTAT.m

Go to the documentation of this file.
  1. RAXSTAT ;HIRMFO/GJC-Examination Status List (Print) ;7/24/97 15:18
  1. ;;5.0;Radiology/Nuclear Medicine;**31**;Mar 16, 1998
  1. EN1 ; Display Exam Status data by I-Type
  1. K RAVRAD
  1. VEN1 K RADIC,RAQUIT,RAUTIL
  1. S RADIC="^RA(79.2,",RADIC(0)="QEAMZ"
  1. S RADIC("A")="Select Imaging Type: ",RAUTIL="RA XAM STAT"
  1. K ^TMP($J,RAUTIL),^TMP($J,"RA ASK"),^TMP($J,"RA REQ")
  1. D EN1^RASELCT(.RADIC,RAUTIL,"","")
  1. K RADIC,RAUTIL I RAQUIT K RAQUIT,I,POP Q
  1. K RAQUIT
  1. DEV ; Device selection
  1. W ! S %ZIS="QM",%ZIS("A")="Select Device: "
  1. D ^%ZIS I POP K DTOUT,DUOUT,POP Q
  1. I $D(IO("Q")) D Q
  1. . S ZTRTN="START^RAXSTAT"
  1. . S ZTDESC="Rad/Nuc Med Display Examination Status List."
  1. . S ZTSAVE("^TMP($J,""RA XAM STAT"",")=""
  1. . I $D(RAVRAD)#2 S ZTRTN="STARTV^RAXSTAT",ZTDESC="Rad/Nuc Med Display VistaRad Category List.",ZTSAVE("RAVRAD")=""
  1. . D ^%ZTLOAD
  1. . I +$G(ZTSK("D"))>0 W !?5,"Request Queued, Task #: ",$G(ZTSK)
  1. . D HOME^%ZIS K %X,%XX,%Y,%YY,IO("Q"),X,Y,ZTSK
  1. . D EXIT
  1. . Q
  1. I $D(RAVRAD)#2 D STARTV Q ; VistaRad Category only
  1. D START,EXIT
  1. Q
  1. START ; Display output
  1. N I,J,K,RA1,RA72,RAFF,RAFLD,RAFLG,RAHD1,RAHD2,RAIEN,RAIT,RALINE,RANODE
  1. N RAORD,RAPCE,RAPG,RAR,RAREQ,RAREQL,RASK,RASKL,RAST,RAWORK,RAWORKL
  1. N RAXIT S (RAFLG,RAPG,RAXIT)=0
  1. S:$D(ZTQUEUED) ZTREQ="@" U IO S RAHD1="Examination Statuses"
  1. S RAHD2="Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT(),"1P")
  1. S RASK="ASK ON STATUS TRACKING:",$P(RASKL,"-",($L(RASK)+1))=""
  1. S RAREQ="REQUIRED FOR CHANGE TO THIS STATUS:"
  1. S $P(RAREQL,"-",($L(RAREQ)+1))=""
  1. S RAWORK="WORKLOAD REPORTS THAT USE THIS STATUS IN ITS COMPLETION:"
  1. S $P(RAWORKL,"-",($L(RAWORK)+1))=""
  1. S $P(RALINE,"-",(IOM+1))="" S (RA1,RAIT)=""
  1. F S RAIT=$O(^TMP($J,"RA XAM STAT",RAIT)) Q:RAIT']"" D Q:RAXIT
  1. . S RA1=1,RAORD="" S:RAFLG RAXIT=$$EOS^RAUTL5() Q:RAXIT
  1. . D HDR ; Form feed for every I-Type encountered
  1. . F S RAORD=$O(^RA(72,"AA",RAIT,RAORD)) Q:RAORD']"" D Q:RAXIT
  1. .. S RAIEN=0
  1. .. F S RAIEN=+$O(^RA(72,"AA",RAIT,RAORD,RAIEN)) Q:RAIEN'>0 D Q:RAXIT
  1. ... D FORMAT
  1. ... Q
  1. .. Q
  1. . Q
  1. Q:RAXIT
  1. I 'RAFLG D HDR W !!,$$CJ^XLFSTR("*** No records to print! ***",IOM)
  1. Q
  1. EXIT ; Kill variables
  1. W ! D ^%ZISC K ^TMP($J,"RA XAM STAT")
  1. K %XX,%YY,Y,POP,I,DISYS,RAVRAD
  1. S X=$$EOS^RAUTL5() K X
  1. Q
  1. FORMAT ; Format the output
  1. S RAFF=0,RAFLG=1
  1. S RA72(0)=$G(^RA(72,RAIEN,0)),RA72(.1)=$G(^RA(72,RAIEN,.1))
  1. S RA72(.2)=$G(^RA(72,RAIEN,.2)),RA72(.3)=$G(^RA(72,RAIEN,.3))
  1. S RA72(.5)=$G(^RA(72,RAIEN,.5)),RA72(.6)=$G(^RA(72,RAIEN,.6))
  1. K ^TMP($J,"RA ASK"),^TMP($J,"RA REQ")
  1. D SET(.RA72) ; set TMP globals to display parameters 'Ask On Status
  1. ; Tracking' & 'Required For Change To This Status' in a column format
  1. ; (side by side)
  1. I RA1 W !?10,"Type Of Imaging: ",RAIT S RA1=0
  1. W !!,"Status: ***",$P(RA72(0),"^")_"***",?54,"Order: ",RAORD
  1. W !,"Default Next Status: ",$$GET1^DIQ(72,+$P(RA72(0),"^",2)_",",.01)
  1. W ?54,"User Key Needed: ",$$GET1^DIQ(72,RAIEN_",",4)
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !,"Generate Examined HL7 Message: ",$$GET1^DIQ(72,RAIEN_",",8)
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !,"Generate Exam Alert: ",$$GET1^DIQ(72,RAIEN_",",1)
  1. W ?54,"Allow Cancelling?: ",$$GET1^DIQ(72,RAIEN_",",6)
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !,"Appear On Status Tracking?: ",$$GET1^DIQ(72,RAIEN_",",5)
  1. W ?54,"Print Dosage Ticket: ",$$GET1^DIQ(72,RAIEN_",",.611)
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !,"VistaRad Category: ",$$GET1^DIQ(72,RAIEN_",",9),!
  1. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !,RASK,?39,RAREQ,!,RASKL,?39,RAREQL,!
  1. S (RAST,RAR)=.001
  1. F D Q:'RAST&('RAR) Q:RAXIT
  1. . I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D
  1. .. S RAFF=0 D HDR W !,RASK,?39,RAREQ,!,RASKL,?39,RAREQL,!
  1. .. Q
  1. . W:RAFF ! D ASK:RAST,REQ:RAR S RAFF=1
  1. . Q
  1. Q:RAXIT W !?9,RAWORK,!?9,RAWORKL
  1. F K=.31,.32,.33,.34,.35,.36,.37,.38,.39,.311,.312,.313,.314,.315 D Q:RAXIT
  1. . S RAFLD=$P($G(^DD(72,K,0)),"^") Q:RAFLD=""
  1. . S RANODE=$E(K,1,2),RAPCE=$E(K,3,999999)
  1. . I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D
  1. .. D HDR W !?9,RAWORK,!?9,RAWORKL
  1. .. Q
  1. . I $$UP^XLFSTR($P(RA72(RANODE),"^",RAPCE))="Y" D
  1. .. W !?14,$P(RAFLD," REPORT?")
  1. .. Q
  1. . Q
  1. W ! K ^TMP($J,"RA ASK"),^TMP($J,"RA REQ")
  1. Q
  1. ASK ; Display 'Ask on Status Tracking' parameters (if any)
  1. S RAST=$O(^TMP($J,"RA ASK",RAST)) Q:RAST'>0
  1. W ?4,$G(^TMP($J,"RA ASK",RAST))
  1. Q
  1. HDR ; Header
  1. D:'$D(IOF) HOME^%ZIS W:$Y @IOF
  1. S RAPG=RAPG+1 W !?(IOM-$L(RAHD1)\2),RAHD1
  1. W ?$S(IOM=132:120,1:68),"Page: ",RAPG
  1. W !,$$CJ^XLFSTR(RAHD2,IOM),!,RALINE
  1. I $D(ZTQUEUED) D STOPCHK^RAUTL9 S:$G(ZTSTOP)=1 RAXIT=1
  1. Q
  1. REQ ; Display 'Required For Change To This Status' parameters (if any)
  1. S RAR=$O(^TMP($J,"RA REQ",RAR)) Q:RAR'>0
  1. W ?44,$G(^TMP($J,"RA REQ",RAR))
  1. Q
  1. SET(RA72) ; set TMP globals so we can display parameters 'Ask On Status
  1. ; Tracking' & 'Required For Change To This Status' in a column format
  1. ; (side by side)
  1. ; Input Variable: 'Y' ien of file 72
  1. F I=.21,.22,.23,.24,.25,.26,.27,.28,.211,.213,.214,.61,.63,.64,.65,.67,.68,.69 D
  1. . S RAFLD=$P($G(^DD(72,I,0)),"^") Q:RAFLD=""
  1. . S RANODE=$E(I,1,2),RAPCE=$E(I,3,999999)
  1. . I $$UP^XLFSTR($P(RA72(RANODE),"^",RAPCE))="Y" D
  1. .. S:RAFLD["ASK FOR " RAFLD=$P(RAFLD,"ASK FOR ",2)
  1. .. S:RAFLD["ASK " RAFLD=$P(RAFLD,"ASK ",2)
  1. .. S ^TMP($J,"RA ASK",I)=$P(RAFLD,"?")
  1. .. Q
  1. . Q
  1. F J=.11,.12,.13,.14,.15,.16,.111,.112,.116,.113,.114,.51,.53,.54,.55,.57,.58,.59 D
  1. . S RAFLD=$P($G(^DD(72,J,0)),"^") Q:RAFLD=""
  1. . S RANODE=$E(J,1,2),RAPCE=$E(J,3,999999)
  1. . I $$UP^XLFSTR($P(RA72(RANODE),"^",RAPCE))="Y" D
  1. .. S:RAFLD[" REQUIRED?" RAFLD=$P(RAFLD," REQUIRED?")
  1. .. S ^TMP($J,"RA REQ",J)=RAFLD
  1. .. Q
  1. . Q
  1. Q
  1. STARTV ;Display VistaRad Category only
  1. N RA1,RA72,RAFLG,RAHD1,RAHD2,RAIEN,RAIT,RAORD,RAPG,RALINE
  1. N RAXIT S (RAFLG,RAPG,RAXIT)=0
  1. S:$D(ZTQUEUED) ZTREQ="@" U IO S RAHD1="VistaRad Categories"
  1. S RAHD2="Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT(),"1P")
  1. S $P(RALINE,"-",(IOM+1))="" S (RA1,RAIT)=""
  1. F S RAIT=$O(^TMP($J,"RA XAM STAT",RAIT)) Q:RAIT']"" D Q:RAXIT
  1. . S RA1=1,RAORD=""
  1. . D:'RAPG HDR ; Form feed 1st page
  1. . F S RAORD=$O(^RA(72,"AA",RAIT,RAORD)) Q:RAORD']"" D Q:RAXIT
  1. .. S RAIEN=0
  1. .. F S RAIEN=+$O(^RA(72,"AA",RAIT,RAORD,RAIEN)) Q:RAIEN'>0 D Q:RAXIT
  1. ... S RAFLG=1
  1. ... S RA72(0)=$G(^RA(72,RAIEN,0))
  1. ... I RA1 D HDR3 S RA1=0 Q:RAXIT
  1. ... I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. ... W !,$P(RA72(0),"^"),?30,RAORD,?35,$$GET1^DIQ(72,RAIEN_",",9)
  1. .. Q
  1. . Q
  1. D EXIT
  1. Q
  1. VRADP I '$$IMAGE^RARIC1() W !!,"Current system is not running Vista Imaging -- nothing done.",! Q
  1. S RAVRAD=1 G VEN1
  1. HDR3 I $Y>(IOSL-10) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDR
  1. W !!?10,"Type Of Imaging: ",RAIT,!,"Status",?27,"Order",?35,"VistaRad Category",!
  1. Q