TIUEN96.m

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 ---TIUEN96   1108     printed  Apr 09, 2024@21:45:09                                                                                                                                                                                                     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