XU8P524.m

XU8P524 ;ISF/RWF - Patch XU*8*524 ;06/10/09  15:57

 ;;8.0;KERNEL;**524**;Jul 10, 1995;Build 15

 Q

 ;

POST ;POST-INIT

 D PATCH^ZTMGRSET(524)

 Q

XU8P524   ;ISF/RWF - Patch XU*8*524 ;06/10/09  15:57

 +1       ;;8.0;KERNEL;**524**;Jul 10, 1995;Build 15

 +2        QUIT 

 +3       ;

POST      ;POST-INIT

 +1        DO PATCH^ZTMGRSET(524)

 +2        QUIT