XU8P499.m

XU8P499 ;ISF/RWF - Patch XU*8*499 Post-init ;09/15/08  12:14

 ;;8.0;KERNEL;**499**;Jul 10, 1995;Build 24

 Q

 ;

POST ;

 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

XU8P499   ;ISF/RWF - Patch XU*8*499 Post-init ;09/15/08  12:14

 +1       ;;8.0;KERNEL;**499**;Jul 10, 1995;Build 24

 +2        QUIT 

 +3       ;

POST      ;

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

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

 +2        XECUTE ^%ZOSF("EON")

 +3        WRITE !

           DO RELOAD^ZTMGRSET

           WRITE !

 +4        XECUTE ^%ZOSF("EOFF")

 +5        QUIT