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 ---[H[J[2J[HGMTS2712 494 printed Dec 13, 2024@01:56:56 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
