GMTS2712.m

GMTS2712 ; SLC/JER - Environment check for GMTS*2.7*12

 ;;2.7;Health Summary;**12**;Feb 28, 1996

EN ; main

 W !,"** CHECKING DHCP ENVIRONMENT **",!

 I +$$VERSION^XPDUTL("TIU")'>0 D  Q

 . W !,"You MUST install TIU v1.0 first...Aborting Installation.",!

 . S XPDQUIT=1

 I +$O(^GMR(121,0)),(+$P($G(^TIU(8925.97,1,0)),U,2)'>0),(+$O(^TIU(8925,0))'>0) D  Q

 . W !,"You MUST Convert Progress Notes to TIU first...Aborting Installation.",!

 . S XPDQUIT=1

 W !,"Everything looks fine!",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTS2712   494     printed  Feb 18, 2025@23:23:18                                                                                                                                                                                                     Page 2

GMTS2712  ; SLC/JER - Environment check for GMTS*2.7*12

 +1       ;;2.7;Health Summary;**12**;Feb 28, 1996

EN        ; main

 +1        WRITE !,"** CHECKING DHCP ENVIRONMENT **",!

 +2        IF +$$VERSION^XPDUTL("TIU")'>0

               Begin DoDot:1

 +3                WRITE !,"You MUST install TIU v1.0 first...Aborting Installation.",!

 +4                SET XPDQUIT=1

               End DoDot:1

               QUIT 

 +5        IF +$ORDER(^GMR(121,0))

               IF (+$PIECE($GET(^TIU(8925.97,1,0)),U,2)'>0)

                   IF (+$ORDER(^TIU(8925,0))'>0)

                       Begin DoDot:1

 +6                        WRITE !,"You MUST Convert Progress Notes to TIU first...Aborting Installation.",!

 +7                        SET XPDQUIT=1

                       End DoDot:1

                       QUIT 

 +8        WRITE !,"Everything looks fine!",!

 +9        QUIT