TIUEN96 ; SLC/JER - Environment Check for TIU*1*96 ; 3-MAY-2000 16:34:23
;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997
MAIN ; -- Control Unit
; If ^TIU(8925 isn't populated, but PN or DS is populated, quit
I (+$O(^TIU(8925,0))'>0),($S(+$O(^GMR(121,0)):1,+$O(^GMR(128,0)):1,1:0)) D Q
. D BMES^XPDUTL("** TIU IS NOT YET IN USE...ABORTING INSTALL **")
. S XPDQUIT=2
; If ^GMR(121 has data, but no evidence of conversion, quit
I +$O(^GMR(121,0)) D Q:+$G(XPDQUIT)
. N TIUMSG
. I +$O(^GMR(121,"CNV",0))'>0 S XPDQUIT=2
. I +$P($G(^TIU(8925.97,1,0)),U,2)'>0 S XPDQUIT=2
. Q:'+$G(XPDQUIT)
. S TIUMSG="** PROGRESS NOTE CONVERSION APPEARS NOT TO HAVE BEEN RUN: "
. S TIUMSG=TIUMSG_"ABORTING **"
. D BMES^XPDUTL(TIUMSG)
; If ^GMR(128 has data, but no evidence of conversion, quit
I +$O(^GMR(128,0)) D
. N TIUMSG
. I $O(^GMR(128,"CNV",""))']"" S XPDQUIT=2
. I +$G(^GMR(128,"CNV","T1"))'>0 S XPDQUIT=2
. Q:'+$G(XPDQUIT)
. S TIUMSG="** DISCHARGE SUMMARY CONVERSION APPEARS NOT TO HAVE RUN "
. S TIUMSG=TIUMSG_"TO COMPLETION: ABORTING **"
. D BMES^XPDUTL(TIUMSG)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEN96 1108 printed Nov 22, 2024@17:50:14 Page 2
TIUEN96 ; SLC/JER - Environment Check for TIU*1*96 ; 3-MAY-2000 16:34:23
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**96**;Jun 20, 1997
MAIN ; -- Control Unit
+1 ; If ^TIU(8925 isn't populated, but PN or DS is populated, quit
+2 IF (+$ORDER(^TIU(8925,0))'>0)
IF ($SELECT(+$ORDER(^GMR(121,0)):1,+$ORDER(^GMR(128,0)):1,1:0))
Begin DoDot:1
+3 DO BMES^XPDUTL("** TIU IS NOT YET IN USE...ABORTING INSTALL **")
+4 SET XPDQUIT=2
End DoDot:1
QUIT
+5 ; If ^GMR(121 has data, but no evidence of conversion, quit
+6 IF +$ORDER(^GMR(121,0))
Begin DoDot:1
+7 NEW TIUMSG
+8 IF +$ORDER(^GMR(121,"CNV",0))'>0
SET XPDQUIT=2
+9 IF +$PIECE($GET(^TIU(8925.97,1,0)),U,2)'>0
SET XPDQUIT=2
+10 if '+$GET(XPDQUIT)
QUIT
+11 SET TIUMSG="** PROGRESS NOTE CONVERSION APPEARS NOT TO HAVE BEEN RUN: "
+12 SET TIUMSG=TIUMSG_"ABORTING **"
+13 DO BMES^XPDUTL(TIUMSG)
End DoDot:1
if +$GET(XPDQUIT)
QUIT
+14 ; If ^GMR(128 has data, but no evidence of conversion, quit
+15 IF +$ORDER(^GMR(128,0))
Begin DoDot:1
+16 NEW TIUMSG
+17 IF $ORDER(^GMR(128,"CNV",""))']""
SET XPDQUIT=2
+18 IF +$GET(^GMR(128,"CNV","T1"))'>0
SET XPDQUIT=2
+19 if '+$GET(XPDQUIT)
QUIT
+20 SET TIUMSG="** DISCHARGE SUMMARY CONVERSION APPEARS NOT TO HAVE RUN "
+21 SET TIUMSG=TIUMSG_"TO COMPLETION: ABORTING **"
+22 DO BMES^XPDUTL(TIUMSG)
End DoDot:1
+23 QUIT
