XTZP1ENV.m

XTZP1ENV ;IHS/OIRM/DSD/AEF - PATCH XT*7.3*1001 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D NOQUE

 D VERSION

 D NOASK

 D OK

 Q

NOQUE ;----- PREVENT QUEUEING OF INSTALL

 ;

 S XPDNOQUE=1

 Q

VERSION ;----- CHECK VERSION

 ;

 I "7.3"'=$$VERSION^XPDUTL("TOOLKIT") D

 . S XPDQUIT=1

 . D BMES^XPDUTL("CURRENT VERSION IS NOT 7.3, CANNOT CONTINUE WITH INSTALL")

 Q

NOASK ;----- SUPPRESS ASK 'DISABLE OPTS','MOVE ROUTINES' PROMPTS

 ;

 S XPDDIQ("XPZ1")=0 ;'DISABLE OPTIONS' SET DEFAULT TO 'NO' & NOT ASK

 S XPDDIQ("XPZ2")=0 ;'MOVE ROUTINES' SET DEFAULT TO 'NO' & NOT ASK

 Q

OK ;----- OK TO INSTALL?

 ;

 I $G(XPDQUIT) D

 . D BMES^XPDUTL("INSTALL ABORTED!")

 I '$G(XPDQUIT) D

 . D BMES^XPDUTL("EVERYTHING LOOKS OK")

 Q

XTZP1ENV  ;IHS/OIRM/DSD/AEF - PATCH XT*7.3*1001 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO NOQUE

 +4        DO VERSION

 +5        DO NOASK

 +6        DO OK

 +7        QUIT 

NOQUE     ;----- PREVENT QUEUEING OF INSTALL

 +1       ;

 +2        SET XPDNOQUE=1

 +3        QUIT 

VERSION   ;----- CHECK VERSION

 +1       ;

 +2        IF "7.3"'=$$VERSION^XPDUTL("TOOLKIT")

               Begin DoDot:1

 +3                SET XPDQUIT=1

 +4                DO BMES^XPDUTL("CURRENT VERSION IS NOT 7.3, CANNOT CONTINUE WITH INSTALL")

               End DoDot:1

 +5        QUIT 

NOASK     ;----- SUPPRESS ASK 'DISABLE OPTS','MOVE ROUTINES' PROMPTS

 +1       ;

 +2       ;'DISABLE OPTIONS' SET DEFAULT TO 'NO' & NOT ASK

           SET XPDDIQ("XPZ1")=0

 +3       ;'MOVE ROUTINES' SET DEFAULT TO 'NO' & NOT ASK

           SET XPDDIQ("XPZ2")=0

 +4        QUIT 

OK        ;----- OK TO INSTALL?

 +1       ;

 +2        IF $GET(XPDQUIT)

               Begin DoDot:1

 +3                DO BMES^XPDUTL("INSTALL ABORTED!")

               End DoDot:1

 +4        IF '$GET(XPDQUIT)

               Begin DoDot:1

 +5                DO BMES^XPDUTL("EVERYTHING LOOKS OK")

               End DoDot:1

 +6        QUIT