KMPSENV.m

KMPSENV ;SF/KAK - Environment Check Routine ;04 MAR 98 3:29 pm

 ;;1.8;SAGG PROJECT;;Jul 22, 1998

 ;

EN ;

 S:+$G(XPDENV) XPDDIQ("XPZ1","B")="NO"

 Q

 ;      

KMPSENV   ;SF/KAK - Environment Check Routine ;04 MAR 98 3:29 pm

 +1       ;;1.8;SAGG PROJECT;;Jul 22, 1998

 +2       ;

EN        ;

 +1        IF +$GET(XPDENV)

               SET XPDDIQ("XPZ1","B")="NO"

 +2        QUIT 

 +3       ;