XU8P638.m

XU8P638 ;ISD/HGW - Patch XU*8*638 Post-init ;02/05/15  14:27

 ;;8.0;KERNEL;**638**;May 30, 2014;Build 16

 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")

 D PATCH^ZTMGRSET(638)

 Q

XU8P638   ;ISD/HGW - Patch XU*8*638 Post-init ;02/05/15  14:27

 +1       ;;8.0;KERNEL;**638**;May 30, 2014;Build 16

 +2        QUIT 

POST      ;

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

 +2       ;X ^%ZOSF("EON")

 +3       ;W ! D RELOAD^ZTMGRSET W !

 +4       ;X ^%ZOSF("EOFF")

 +5        DO PATCH^ZTMGRSET(638)

 +6        QUIT