| [613] | 1 | MAGQE4 ;WOIFO/RMP - Support for MAG Enterprise ; 05/06/2004 06:32
|
|---|
| 2 | ;;3.0;IMAGING;**27,29,30,78**;May 9, 2006
|
|---|
| 3 | ;; +---------------------------------------------------------------+
|
|---|
| 4 | ;; | Property of the US Government. |
|
|---|
| 5 | ;; | No permission to copy or redistribute this software is given. |
|
|---|
| 6 | ;; | Use of unreleased versions of this software requires the user |
|
|---|
| 7 | ;; | to execute a written test agreement with the VistA Imaging |
|
|---|
| 8 | ;; | Development Office of the Department of Veterans Affairs, |
|
|---|
| 9 | ;; | telephone (301) 734-0100. |
|
|---|
| 10 | ;; | |
|
|---|
| 11 | ;; | The Food and Drug Administration classifies this software as |
|
|---|
| 12 | ;; | a medical device. As such, it may not be changed in any way. |
|
|---|
| 13 | ;; | Modifications to this software may result in an adulterated |
|
|---|
| 14 | ;; | medical device under 21CFR820, the use of which is considered |
|
|---|
| 15 | ;; | to be a violation of US Federal Statutes. |
|
|---|
| 16 | ;; +---------------------------------------------------------------+
|
|---|
| 17 | ;;
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | TASK ;Re-task the job
|
|---|
| 21 | N DA,DIE,DR,I,MAGTSK,X,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
|
|---|
| 22 | ; First clean up any entries that might already be there
|
|---|
| 23 | D RTN^%ZTLOAD("ISU^MAGQE2","MAGTSK")
|
|---|
| 24 | ; EdM: Note: The above procedure only returns tasks submitted
|
|---|
| 25 | ; with the DUZ of the current requestor, unless...:
|
|---|
| 26 | ; When $D(^XUSEC("ZTMQ",DUZ))>0,
|
|---|
| 27 | ; tasks with other DUZs are reported as well.
|
|---|
| 28 | S I=0 F S I=$O(MAGTSK(I)) Q:'I D
|
|---|
| 29 | . N ZTSK
|
|---|
| 30 | . S ZTSK=I D KILL^%ZTLOAD
|
|---|
| 31 | . Q
|
|---|
| 32 | ; Then queue up the next report for 2nd day of the next month
|
|---|
| 33 | S ZTDTH=$$NOW^XLFDT()\100+1 S:(ZTDTH#100)>12 ZTDTH=ZTDTH+88
|
|---|
| 34 | S ZTDTH=ZTDTH_"01.040101"
|
|---|
| 35 | S ZTRTN="ISU^MAGQE2",ZTDESC="Site Imaging Utilization report",ZTIO=""
|
|---|
| 36 | S:$D(MAGDUZ) ZTSAVE("MAGDUZ")=MAGDUZ
|
|---|
| 37 | D ^%ZTLOAD
|
|---|
| 38 | ; Record the task number in the Site Parameter Table
|
|---|
| 39 | S DA=$S($T(PLACE^MAGBAPI)'="":$$PLACE^MAGBAPI($$MAGDUZ2^MAGQE5()),1:1)
|
|---|
| 40 | S DIE="^MAG(2006.1,",DR="10///^S X=ZTSK" D ^DIE
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | STTASK ; Start the Imaging task report
|
|---|
| 44 | N DAYS,MAGDUZ,MCON,REC,TASK,ZTSK
|
|---|
| 45 | S REC=$$PLACE^MAGQE5($$MAGDUZ2^MAGQE5()) Q:'$D(^MAG(2006.1,REC))
|
|---|
| 46 | S TASK=$P($G(^MAG(2006.1,REC,1)),"^",7)
|
|---|
| 47 | I TASK'="" D Q:TASK'=""
|
|---|
| 48 | . S ZTSK=TASK D STAT^%ZTLOAD
|
|---|
| 49 | . I ZTSK(0)=0 S TASK=""
|
|---|
| 50 | . E W:$G(XQY0)["MAG" !,"Task is already running"
|
|---|
| 51 | . Q
|
|---|
| 52 | S MCON="",MAGDUZ=DUZ,DAYS=1
|
|---|
| 53 | D RESTASK ; Also called from elsewhere
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | RESTASK ; Restart the Imaging task report
|
|---|
| 57 | N DA,DIC,DIE,DR,ZTDESC,ZTIO,ZTRTN,ZTSAVE
|
|---|
| 58 | S ZTRTN="ISU^MAGQE2",ZTDESC="Site Imaging Utilization report",ZTIO=""
|
|---|
| 59 | S:$D(MAGDUZ) ZTSAVE("MAGDUZ")=MAGDUZ
|
|---|
| 60 | S ZTDTH=$$NOW^XLFDT()\100+1 S:(ZTDTH#100)>12 ZTDTH=ZTDTH+88
|
|---|
| 61 | S ZTDTH=ZTDTH_"01.040101"
|
|---|
| 62 | D ^%ZTLOAD
|
|---|
| 63 | S DIE="^MAG(2006.1,",DA=$$PLACE^MAGQE5($$MAGDUZ2^MAGQE5()),DR="10///^S X=ZTSK" D ^DIE
|
|---|
| 64 | W:$G(XQY0)["MAG" !,"Task is started. To remove task execute option MAGREPSTOP"
|
|---|
| 65 | K MCDUZ
|
|---|
| 66 | Q
|
|---|
| 67 | ;
|
|---|
| 68 | REMTASK ;Remove the Imaging Task Report
|
|---|
| 69 | N DA,DIE,DR,FIND,REC,TASK,ZTSK
|
|---|
| 70 | S REC=$$PLACE^MAGQE5($$MAGDUZ2^MAGQE5())
|
|---|
| 71 | S TASK=$P($G(^MAG(2006.1,REC,1)),"^",7)
|
|---|
| 72 | I TASK D Q
|
|---|
| 73 | . S DIE="^MAG(2006.1,",DA=REC,DR="10///@" D ^DIE
|
|---|
| 74 | . S ZTSK=TASK D KILL^%ZTLOAD
|
|---|
| 75 | . Q:$G(XQY0)'["MAG"
|
|---|
| 76 | . I ZTSK(0)=1 W !,"Task is removed. To restart execute option MAGREPSTART"
|
|---|
| 77 | . E W !,"Could not stop task or task was no longer active."
|
|---|
| 78 | . Q
|
|---|
| 79 | I $G(XQY0)["MAG" W !,"No task to stop."
|
|---|
| 80 | Q
|
|---|
| 81 | ;
|
|---|
| 82 | UPPER(X) ;
|
|---|
| 83 | Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 84 | ;
|
|---|
