XU8P599.m

XU8P599 ;ISD/HGW - Patch XU*8*599 Post-init ;05/17/12  08:22

 ;;8.0;KERNEL;**599**;May 17, 2012;Build 9

 Q

POST  ;

 ;Load changes into ^%Z* routines

 I '$D(^XTV(8989.3,1,"PEER")) S ^XTV(8989.3,1,"PEER")="127.0.0.1"

 X ^%ZOSF("EON")

 W ! D RELOAD^ZTMGRSET W !

 X ^%ZOSF("EOFF")

 Q

XU8P599   ;ISD/HGW - Patch XU*8*599 Post-init ;05/17/12  08:22

 +1       ;;8.0;KERNEL;**599**;May 17, 2012;Build 9

 +2        QUIT 

POST      ;

 +1       ;Load changes into ^%Z* routines

 +2        IF '$DATA(^XTV(8989.3,1,"PEER"))

               SET ^XTV(8989.3,1,"PEER")="127.0.0.1"

 +3        XECUTE ^%ZOSF("EON")

 +4        WRITE !

           DO RELOAD^ZTMGRSET

           WRITE !

 +5        XECUTE ^%ZOSF("EOFF")

 +6        QUIT