source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEN96.m@ 975

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1TIUEN96 ; SLC/JER - Environment Check for TIU*1*96 ; 3-MAY-2000 16:34:23
2 ;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997
3MAIN ; -- 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
Note: See TracBrowser for help on using the repository browser.