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

XU8P755P.m

Go to the documentation of this file.

XU8P755P ;OAK/RSD - Post Install routine for patch XU*8*755

 ;;8.0;KERNEL;**755**;Jul 10, 2021;Build 6

 ;Re-index the 2 new cross references

 N DIK

 S DIK="^XPD(9.6,",DIK(1)=".01^D" D ENALL^DIK

 S DIK="^XPD(9.7,",DIK(1)=".01^C" D ENALL^DIK

 ;resave ZISHONT to %ZISH.  This was missed in patch XU*8*738

 D PATCH^ZTMGRSET(738)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P755P   337     printed  Apr 23, 2025@18:23:14                                                                                                                                                                                                     Page 2

XU8P755P  ;OAK/RSD - Post Install routine for patch XU*8*755

 +1       ;;8.0;KERNEL;**755**;Jul 10, 2021;Build 6

 +2       ;Re-index the 2 new cross references

 +3        NEW DIK

 +4        SET DIK="^XPD(9.6,"

           SET DIK(1)=".01^D"

           DO ENALL^DIK

 +5        SET DIK="^XPD(9.7,"

           SET DIK(1)=".01^C"

           DO ENALL^DIK

 +6       ;resave ZISHONT to %ZISH.  This was missed in patch XU*8*738

 +7        DO PATCH^ZTMGRSET(738)

 +8        QUIT