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

XU8P638.m

Go to the documentation of this file.

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

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

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P638   284     printed  Apr 23, 2025@18:22:57                                                                                                                                                                                                      Page 2

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

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

 +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