Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1019 bytes
|
Line | |
---|
1 | ORY215A ;SLC/DAN Environment check for patch OR*3*215 ;3/13/06 08:12
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | N TASK,RUNNING
|
---|
5 | 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
|
---|
6 | I $O(^%ZTSCH("IO","GMRA UPDATE RESOURCE",0))!(RUNNING) D
|
---|
7 | .W !,"An allergy terminology update is currently running and it"
|
---|
8 | .W !,"uses routines that are also contained within this patch."
|
---|
9 | .W !!,"In order to avoid potential allergy update errors, you must"
|
---|
10 | .W !,"wait until the allergy update has finished before you can install this"
|
---|
11 | .W !,"patch."
|
---|
12 | .W !!,"Once the GMRA UPDATE RESOURCE device is no longer being used you'll"
|
---|
13 | .W !,"be able to install this build. Use option XUTM ZTMON to check and see"
|
---|
14 | .W !,"if the GMRA UPDATE RESOURCE device is on the IO list."
|
---|
15 | .W !,"Once it's off the list you may proceed with this installation.",!
|
---|
16 | .S XPDABORT=2 ;stop all installations within this build and leave them in ^XTMP
|
---|
17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.