Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XU8P599

XU8P599.m

Go to the documentation of this file.

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

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P599   290     printed  Apr 09, 2024@21:05:23                                                                                                                                                                                                      Page 2

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

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

 +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