XU8P755P.m

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)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P755P   337     printed  Apr 09, 2024@21:16:12                                                                                                                                                                                                     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