ATX51P2.m

ATX51P2 ; IHS/OHPRD/TMJ - PATCH 2 [ 03/13/01  8:59 PM ]

 ;;5.1;TAXONOMY;**2**;FEB 04, 1997

 ;

ENV ;EP - environment check

 ; The following line prevents the "Disable Options..." and "Move

 ; Routines..." questions from being asked during the install.

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 ;

 Q

ATX51P2   ; IHS/OHPRD/TMJ - PATCH 2 [ 03/13/01  8:59 PM ]

 +1       ;;5.1;TAXONOMY;**2**;FEB 04, 1997

 +2       ;

ENV       ;EP - environment check

 +1       ; The following line prevents the "Disable Options..." and "Move

 +2       ; Routines..." questions from being asked during the install.

 +3        IF $GET(XPDENV)=1

               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +4       ;

 +5        QUIT