GMTS125A.m

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 ---GMTS125A   758     printed  Apr 23, 2025@18:11:20                                                                                                                                                                                                     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