ORY215A ;SLC/DAN Environment check for patch OR*3*215 ;3/13/06 08:12
;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
;
N TASK,RUNNING
S RUNNING=0,TASK=0 F S TASK=$O(^%ZTSCH("TASK",TASK)) Q:'+TASK!(RUNNING) I $P($G(^%ZTSCH("TASK",TASK)),U,6)="GMRA UPDATE RESOURCE" S RUNNING=1
I $O(^%ZTSCH("IO","GMRA UPDATE RESOURCE",0))!(RUNNING) D
.W !,"An allergy terminology update is currently running and it"
.W !,"uses routines that are also contained within this patch."
.W !!,"In order to avoid potential allergy update errors, you must"
.W !,"wait until the allergy update has finished before you can install this"
.W !,"patch."
.W !!,"Once the GMRA UPDATE RESOURCE device is no longer being used you'll"
.W !,"be able to install this build. Use option XUTM ZTMON to check and see"
.W !,"if the GMRA UPDATE RESOURCE device is on the IO list."
.W !,"Once it's off the list you may proceed with this installation.",!
.S XPDABORT=2 ;stop all installations within this build and leave them in ^XTMP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY215A 1036 printed Nov 22, 2024@17:49:10 Page 2
ORY215A ;SLC/DAN Environment check for patch OR*3*215 ;3/13/06 08:12
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
+2 ;
+3 NEW TASK,RUNNING
+4 SET RUNNING=0
SET TASK=0
FOR
SET TASK=$ORDER(^%ZTSCH("TASK",TASK))
if '+TASK!(RUNNING)
QUIT
IF $PIECE($GET(^%ZTSCH("TASK",TASK)),U,6)="GMRA UPDATE RESOURCE"
SET RUNNING=1
+5 IF $ORDER(^%ZTSCH("IO","GMRA UPDATE RESOURCE",0))!(RUNNING)
Begin DoDot:1
+6 WRITE !,"An allergy terminology update is currently running and it"
+7 WRITE !,"uses routines that are also contained within this patch."
+8 WRITE !!,"In order to avoid potential allergy update errors, you must"
+9 WRITE !,"wait until the allergy update has finished before you can install this"
+10 WRITE !,"patch."
+11 WRITE !!,"Once the GMRA UPDATE RESOURCE device is no longer being used you'll"
+12 WRITE !,"be able to install this build. Use option XUTM ZTMON to check and see"
+13 WRITE !,"if the GMRA UPDATE RESOURCE device is on the IO list."
+14 WRITE !,"Once it's off the list you may proceed with this installation.",!
+15 ;stop all installations within this build and leave them in ^XTMP
SET XPDABORT=2
End DoDot:1
+16 QUIT
