source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY215A.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1019 bytes
Line 
1ORY215A ;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.