GMTS125A ; CIO/SLC - Environmental Check GMTS*2.7*125 ;Feb 18, 2019@18:40:12
;;2.7;Health Summary;**125**;Oct 20, 1995;Build 15
Q
ENV ; Environmental Check
N A,XPDABORT
I '$D(^GMT(142.1,269)),'$D(^GMT(142.1,270)) Q
S A=$G(^GMT(142.1,269,0)) I $P(A,"^")'="Meds OP/Drug Class" S XPDABORT=1 D ERROR Q
I $P(A,"^",3)'="RXDC" S XPDABORT=1 D ERROR Q
S A=$G(^GMT(142.1,270,0)) I $P(A,"^")'="Meds OP/Rx Ord Item" S XPDABORT=1 D ERROR Q
I $P(A,"^",3)'="RXOI" S XPDABORT=1 D ERROR
Q
ERROR ;
D MES^XPDUTL("Health Summary Component Conflict - one or more components already exist on your")
D MES^XPDUTL("system. Please log a ServiceNow ticket to have the conflict reviewed and ")
D MES^XPDUTL("resolved then install GMTS*2.7*125.") H 10
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTS125A 758 printed Dec 13, 2024@01:56:53 Page 2
GMTS125A ; CIO/SLC - Environmental Check GMTS*2.7*125 ;Feb 18, 2019@18:40:12
+1 ;;2.7;Health Summary;**125**;Oct 20, 1995;Build 15
+2 QUIT
ENV ; Environmental Check
+1 NEW A,XPDABORT
+2 IF '$DATA(^GMT(142.1,269))
IF '$DATA(^GMT(142.1,270))
QUIT
+3 SET A=$GET(^GMT(142.1,269,0))
IF $PIECE(A,"^")'="Meds OP/Drug Class"
SET XPDABORT=1
DO ERROR
QUIT
+4 IF $PIECE(A,"^",3)'="RXDC"
SET XPDABORT=1
DO ERROR
QUIT
+5 SET A=$GET(^GMT(142.1,270,0))
IF $PIECE(A,"^")'="Meds OP/Rx Ord Item"
SET XPDABORT=1
DO ERROR
QUIT
+6 IF $PIECE(A,"^",3)'="RXOI"
SET XPDABORT=1
DO ERROR
+7 QUIT
ERROR ;
+1 DO MES^XPDUTL("Health Summary Component Conflict - one or more components already exist on your")
+2 DO MES^XPDUTL("system. Please log a ServiceNow ticket to have the conflict reviewed and ")
+3 DO MES^XPDUTL("resolved then install GMTS*2.7*125.")
HANG 10
+4 QUIT
