DIZP1ENV.m

DIZP1ENV ;IHS/OIRM/DSD/AEF - PATCH DI*22.0*1001 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:23 AM ]

 ;;22.0;VA FileMan;**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 "22.0"'=$$VERSION^XPDUTL("VA FILEMAN") D

 . S XPDQUIT=1

 . D BMES^XPDUTL("CURRENT VERSION IS NOT 22.0, 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

DIZP1ENV  ;IHS/OIRM/DSD/AEF - PATCH DI*22.0*1001 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:23 AM ]

 +1       ;;22.0;VA FileMan;**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 "22.0"'=$$VERSION^XPDUTL("VA FILEMAN")

               Begin DoDot:1

 +3                SET XPDQUIT=1

 +4                DO BMES^XPDUTL("CURRENT VERSION IS NOT 22.0, 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