BHL13ENV.m

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

 ;;3.01;BHL IHS Interfaces with GIS;**14,15,16**;AUG 01, 2004

 ;

 ;

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

 ;and patch 13 reference lab 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

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

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

 . S XPDQUIT=1

 Q

 ;

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

 +1       ;;3.01;BHL IHS Interfaces with GIS;**14,15,16**;AUG 01, 2004

 +2       ;

 +3       ;

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

 +5       ;and patch 13 reference lab patch

 +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       IF '$ORDER(^DIC(9.4,BHLGI,22,BHLVI,"PAH","B",13,0))

               Begin DoDot:1

 +17               WRITE !!,"You need GIS patch 13 to continue",!

 +18               SET XPDQUIT=1

               End DoDot:1

 +19       QUIT 

 +20      ;