BHL2ENV.m

BHL2ENV ; cmi/anchorage/maw - BHL Generic Environment Check ; 

 ;;3.01;BHL IHS Interfaces with GIS;**3,4,5,6,7,8,9,11**;AUG 01, 2004

 ;

 ;        

 ;

 ;this routine will serve as a generic kids environment check

 ;it will look for the appropriate patches to be installed

 ;

CHK ;-- check the following patch(s) to make sure they are there

 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

 Q

 ;

BHL2ENV   ; cmi/anchorage/maw - BHL Generic Environment Check ; 

 +1       ;;3.01;BHL IHS Interfaces with GIS;**3,4,5,6,7,8,9,11**;AUG 01, 2004

 +2       ;

 +3       ;        

 +4       ;

 +5       ;this routine will serve as a generic kids environment check

 +6       ;it will look for the appropriate patches to be installed

 +7       ;

CHK       ;-- check the following patch(s) to make sure they are there

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

 +14      ;