HLZP4ENV.m

HLZP4ENV ;IHS/OIRM/DSD/AEF - PATCH HL*1.6*1004 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:37 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;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 "1.6"'=$$VERSION^XPDUTL("HEALTH LEVEL SEVEN") D

 . S XPDQUIT=1

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

 Q

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

 ;

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

 S XPDDIQ("XPDZ2")=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

HLZP4ENV  ;IHS/OIRM/DSD/AEF - PATCH HL*1.6*1004 ENVIRONMENT CHECK ROUTINE [ 04/02/2003   8:37 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;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 "1.6"'=$$VERSION^XPDUTL("HEALTH LEVEL SEVEN")

               Begin DoDot:1

 +3                SET XPDQUIT=1

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

               End DoDot:1

 +5        QUIT 

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

 +1       ;

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

           SET XPDDIQ("XPDZ1")=0

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

           SET XPDDIQ("XPDZ2")=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