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

XU8P499.m

Go to the documentation of this file.

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

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P499   259     printed  Dec 13, 2024@02:07:56                                                                                                                                                                                                      Page 2

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

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

 +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