| 1 | TIUEN96 ; SLC/JER - Environment Check for TIU*1*96 ; 3-MAY-2000 16:34:23
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997
|
|---|
| 3 | MAIN ; -- Control Unit
|
|---|
| 4 | ; If ^TIU(8925 isn't populated, but PN or DS is populated, quit
|
|---|
| 5 | I (+$O(^TIU(8925,0))'>0),($S(+$O(^GMR(121,0)):1,+$O(^GMR(128,0)):1,1:0)) D Q
|
|---|
| 6 | . D BMES^XPDUTL("** TIU IS NOT YET IN USE...ABORTING INSTALL **")
|
|---|
| 7 | . S XPDQUIT=2
|
|---|
| 8 | ; If ^GMR(121 has data, but no evidence of conversion, quit
|
|---|
| 9 | I +$O(^GMR(121,0)) D Q:+$G(XPDQUIT)
|
|---|
| 10 | . N TIUMSG
|
|---|
| 11 | . I +$O(^GMR(121,"CNV",0))'>0 S XPDQUIT=2
|
|---|
| 12 | . I +$P($G(^TIU(8925.97,1,0)),U,2)'>0 S XPDQUIT=2
|
|---|
| 13 | . Q:'+$G(XPDQUIT)
|
|---|
| 14 | . S TIUMSG="** PROGRESS NOTE CONVERSION APPEARS NOT TO HAVE BEEN RUN: "
|
|---|
| 15 | . S TIUMSG=TIUMSG_"ABORTING **"
|
|---|
| 16 | . D BMES^XPDUTL(TIUMSG)
|
|---|
| 17 | ; If ^GMR(128 has data, but no evidence of conversion, quit
|
|---|
| 18 | I +$O(^GMR(128,0)) D
|
|---|
| 19 | . N TIUMSG
|
|---|
| 20 | . I $O(^GMR(128,"CNV",""))']"" S XPDQUIT=2
|
|---|
| 21 | . I +$G(^GMR(128,"CNV","T1"))'>0 S XPDQUIT=2
|
|---|
| 22 | . Q:'+$G(XPDQUIT)
|
|---|
| 23 | . S TIUMSG="** DISCHARGE SUMMARY CONVERSION APPEARS NOT TO HAVE RUN "
|
|---|
| 24 | . S TIUMSG=TIUMSG_"TO COMPLETION: ABORTING **"
|
|---|
| 25 | . D BMES^XPDUTL(TIUMSG)
|
|---|
| 26 | Q
|
|---|
