BHL11ENV.m

BHL11ENV ;cmi/anchorage/maw - BHL Patch 11 Environment Check

 ;;3.01;BHL IHS Interfaces with GIS;**11,12,13**;AUG 01, 2004

 ;

 ;

 ;this routine will check for the existence of patch 11, a GIS core patch

 ;

 ;

ELEVEN ;-- check for patch 11

 K XPDQUIT

 S BHLGI=$O(^DIC(9.4,"B","GENERIC INTERFACE SYSTEM",0))

 I '$G(BHLGI) D  Q

 . S XPDQUIT=1

 . W !!,"You need the Generic Interface System version 3.01, aborting",!

 S BHLVI=$O(^DIC(9.4,BHLGI,22,"B",3.01,0))

 I '$G(BHLVI) D  Q

 . S XPDQUIT=1

 . W !!,"You need the Generic Interface System version 3.01, aborting",!

 I '$O(^DIC(9.4,BHLGI,22,BHLVI,"PAH","B",2,0)) D

 . W !!,"You need all GIS patches through patch 2 to continue",!

 . S XPDQUIT=1

 I '$O(^DIC(9.4,BHLGI,22,BHLVI,"PAH","B",11,0)) D

 . W !!,"You need GIS patch 11 to continue",!

 . S XPDQUIT=1

 Q

 ;

BHL11ENV  ;cmi/anchorage/maw - BHL Patch 11 Environment Check

 +1       ;;3.01;BHL IHS Interfaces with GIS;**11,12,13**;AUG 01, 2004

 +2       ;

 +3       ;

 +4       ;this routine will check for the existence of patch 11, a GIS core patch

 +5       ;

 +6       ;

ELEVEN    ;-- check for patch 11

 +1        KILL XPDQUIT

 +2        SET BHLGI=$ORDER(^DIC(9.4,"B","GENERIC INTERFACE SYSTEM",0))

 +3        IF '$GET(BHLGI)

               Begin DoDot:1

 +4                SET XPDQUIT=1

 +5                WRITE !!,"You need the Generic Interface System version 3.01, aborting",!

               End DoDot:1

               QUIT 

 +6        SET BHLVI=$ORDER(^DIC(9.4,BHLGI,22,"B",3.01,0))

 +7        IF '$GET(BHLVI)

               Begin DoDot:1

 +8                SET XPDQUIT=1

 +9                WRITE !!,"You need the Generic Interface System version 3.01, aborting",!

               End DoDot:1

               QUIT 

 +10       IF '$ORDER(^DIC(9.4,BHLGI,22,BHLVI,"PAH","B",2,0))

               Begin DoDot:1

 +11               WRITE !!,"You need all GIS patches through patch 2 to continue",!

 +12               SET XPDQUIT=1

               End DoDot:1

 +13       IF '$ORDER(^DIC(9.4,BHLGI,22,BHLVI,"PAH","B",11,0))

               Begin DoDot:1

 +14               WRITE !!,"You need GIS patch 11 to continue",!

 +15               SET XPDQUIT=1

               End DoDot:1

 +16       QUIT 

 +17      ;