XM71ENV.m

XM71ENV ;IHS/ITSC/DMJ - ENVIRONMENT CHECK ROUTINE [ 06/25/2004  2:56 PM ]

 ;;7.1;MailMan;**1004**;

START ;start

 F X="XMUTERM1","XMUTERM2" D

 .X ^%ZOSF("TEST")

 .Q:'$T

 .S XPDQUIT=1

 .D MES^XPDUTL("ROUTINE "_X_" ALREADY LOADED.")

 Q:$G(XPDQUIT)

 D MES^XPDUTL("ENVIRONMENT OK.")

 Q

XM71ENV   ;IHS/ITSC/DMJ - ENVIRONMENT CHECK ROUTINE [ 06/25/2004  2:56 PM ]

 +1       ;;7.1;MailMan;**1004**;

START     ;start

 +1        FOR X="XMUTERM1","XMUTERM2"

               Begin DoDot:1

 +2                XECUTE ^%ZOSF("TEST")

 +3                IF '$TEST

                       QUIT 

 +4                SET XPDQUIT=1

 +5                DO MES^XPDUTL("ROUTINE "_X_" ALREADY LOADED.")

               End DoDot:1

 +6        IF $GET(XPDQUIT)

               QUIT 

 +7        DO MES^XPDUTL("ENVIRONMENT OK.")

 +8        QUIT