|
Last change
on this file since 949 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.
