DIZ22ENV.m

DIZ22ENV ;IHS/OIRM/DSD/AEF - ENVIRONMENT CHECK ROUTINE [ 04/02/2003  8:23 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;

EN ;----- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D NOQUE

 D VERSION

 D PKG

 D DUPES

 D OK

 Q

NOQUE ;----- PREVENT QUEUEING OF INSTALL

 ;

 S XPDNOQUE=1

 Q

DUPES ;----- CHECK FOR DUPLICATE ENTRIES IN THE PACKAGE FILE

 ;

 N PKG,X

 ;

 S PKG("VA FILEMAN")=0

 S PKG("KERNEL")=0

 S PKG("TOOLKIT")=0

 S PKG("HEALTH LEVEL SEVEN")=0

 S PKG("CAPACITY MANAGEMENT - RUM")=0

 S PKG("RPC BROKER")=0

 S PKG("NEW PERSON")=0

 ;

 S PKG=""

 F  S PKG=$O(PKG(PKG)) Q:PKG']""  D

 . S X=0 

 . F  S X=$O(^DIC(9.4,"B",PKG,X)) Q:'X  D

 . . S PKG(PKG)=PKG(PKG)+1

 ;

 S PKG=""

 F  S PKG=$O(PKG(PKG)) Q:PKG']""  D

 . I PKG(PKG)>1 D

 . . S XPDQUIT=1

 . . S X="IT APPEARS THAT YOU HAVE DUPLICATE "_PKG_" PACKAGE ENTRIES"

 . . D BMES^XPDUTL(X)

 I $G(XPDQUIT) D

 . D BMES^XPDUTL("YOU MUST CLEAN UP THE PACKAGE FILE BEFORE CONTINUING")

 Q

VERSION ;

 ;----- CHECK VERSION NUMBER

 ;

 ;I "21.0"'=$$VERSION^XPDUTL("VA FILEMAN") D

 . S XPDQUIT=1

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

 I 8'=+$$VERSION^XPDUTL("KERNEL") D

 . S XPDQUIT=1

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

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

 . S XPDQUIT=1

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

 I "1.6"'=$$VERSION^XPDUTL("HEALTH LEVEL SEVEN") D

 . S XPDQUIT=1

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

 Q

PKG ;----- MAKE SURE THERE ARE PKG ENTRY/VERSION FOR SAGG,RUM,RPC,A4A7

 ;

 N DA,DIE,DIC,DLAYGO,DR,DTOUT,DUOUT,PKG,VER,X,Y

 ;

 S PKG("SAGG PROJECT")=1.8

 S PKG("CAPACITY MANAGEMENT - RUM")="1.0"

 S PKG("RPC BROKER")=1.1

 S PKG("NEW PERSON")=1.01

 ;

 S PKG=""

 F  S PKG=$O(PKG(PKG)) Q:PKG']""  D

 . S VER=PKG(PKG)

 . S DIC="^DIC(9.4,"

 . S DIC(0)="L"

 . S DLAYGO=9.4

 . S X=PKG

 . D ^DIC

 . Q:Y'>0!($D(DTOUT))!($D(DUOUT))

 . S DA=+Y

 . S DIE=DIC

 . S DR="13///^S X=VER"

 . D ^DIE

 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

DIZ22ENV  ;IHS/OIRM/DSD/AEF - ENVIRONMENT CHECK ROUTINE [ 04/02/2003  8:23 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;

EN        ;----- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO NOQUE

 +4        DO VERSION

 +5        DO PKG

 +6        DO DUPES

 +7        DO OK

 +8        QUIT 

NOQUE     ;----- PREVENT QUEUEING OF INSTALL

 +1       ;

 +2        SET XPDNOQUE=1

 +3        QUIT 

DUPES     ;----- CHECK FOR DUPLICATE ENTRIES IN THE PACKAGE FILE

 +1       ;

 +2        NEW PKG,X

 +3       ;

 +4        SET PKG("VA FILEMAN")=0

 +5        SET PKG("KERNEL")=0

 +6        SET PKG("TOOLKIT")=0

 +7        SET PKG("HEALTH LEVEL SEVEN")=0

 +8        SET PKG("CAPACITY MANAGEMENT - RUM")=0

 +9        SET PKG("RPC BROKER")=0

 +10       SET PKG("NEW PERSON")=0

 +11      ;

 +12       SET PKG=""

 +13       FOR 

               SET PKG=$ORDER(PKG(PKG))

               IF PKG']""

                   QUIT 

               Begin DoDot:1

 +14               SET X=0

 +15               FOR 

                       SET X=$ORDER(^DIC(9.4,"B",PKG,X))

                       IF 'X

                           QUIT 

                       Begin DoDot:2

 +16                       SET PKG(PKG)=PKG(PKG)+1

                       End DoDot:2

               End DoDot:1

 +17      ;

 +18       SET PKG=""

 +19       FOR 

               SET PKG=$ORDER(PKG(PKG))

               IF PKG']""

                   QUIT 

               Begin DoDot:1

 +20               IF PKG(PKG)>1

                       Begin DoDot:2

 +21                       SET XPDQUIT=1

 +22                       SET X="IT APPEARS THAT YOU HAVE DUPLICATE "_PKG_" PACKAGE ENTRIES"

 +23                       DO BMES^XPDUTL(X)

                       End DoDot:2

               End DoDot:1

 +24       IF $GET(XPDQUIT)

               Begin DoDot:1

 +25               DO BMES^XPDUTL("YOU MUST CLEAN UP THE PACKAGE FILE BEFORE CONTINUING")

               End DoDot:1

 +26       QUIT 

VERSION   ;

 +1       ;----- CHECK VERSION NUMBER

 +2       ;

 +3       ;I "21.0"'=$$VERSION^XPDUTL("VA FILEMAN") D

 +4 

*** ERROR ***

 +5 

*** ERROR ***

 +6        IF 8'=+$$VERSION^XPDUTL("KERNEL")

               Begin DoDot:1

 +7                SET XPDQUIT=1

 +8                DO BMES^XPDUTL("CURRENT VERSION OF KERNEL IS NOT 8.0, CANNOT CONTINUE WITH INSTALL")

               End DoDot:1

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

               Begin DoDot:1

 +10               SET XPDQUIT=1

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

               End DoDot:1

 +12       IF "1.6"'=$$VERSION^XPDUTL("HEALTH LEVEL SEVEN")

               Begin DoDot:1

 +13               SET XPDQUIT=1

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

               End DoDot:1

 +15       QUIT 

PKG       ;----- MAKE SURE THERE ARE PKG ENTRY/VERSION FOR SAGG,RUM,RPC,A4A7

 +1       ;

 +2        NEW DA,DIE,DIC,DLAYGO,DR,DTOUT,DUOUT,PKG,VER,X,Y

 +3       ;

 +4        SET PKG("SAGG PROJECT")=1.8

 +5        SET PKG("CAPACITY MANAGEMENT - RUM")="1.0"

 +6        SET PKG("RPC BROKER")=1.1

 +7        SET PKG("NEW PERSON")=1.01

 +8       ;

 +9        SET PKG=""

 +10       FOR 

               SET PKG=$ORDER(PKG(PKG))

               IF PKG']""

                   QUIT 

               Begin DoDot:1

 +11               SET VER=PKG(PKG)

 +12               SET DIC="^DIC(9.4,"

 +13               SET DIC(0)="L"

 +14               SET DLAYGO=9.4

 +15               SET X=PKG

 +16               DO ^DIC

 +17               IF Y'>0!($DATA(DTOUT))!($DATA(DUOUT))

                       QUIT 

 +18               SET DA=+Y

 +19               SET DIE=DIC

 +20               SET DR="13///^S X=VER"

 +21               DO ^DIE

               End DoDot:1

 +22       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