BMXUTL7.m

BMXUTL7 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;

 ;;2.0;BMX;;FEB 26, 2007

 ;

 ;

ENV ;EP Environment Check

 I $G(XPDENV)=1 D

 . S XPDDIQ("XPZ1")=0

 . S XPDDIQ("XPZ2")=0

BMXUTL7   ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;

 +1       ;;2.0;BMX;;FEB 26, 2007

 +2       ;

 +3       ;

ENV       ;EP Environment Check

 +1        IF $GET(XPDENV)=1

               Begin DoDot:1

 +2                SET XPDDIQ("XPZ1")=0

 +3                SET XPDDIQ("XPZ2")=0

               End DoDot:1