XU8P572.m

XU8P572 ;ISF/CJM- Patch XU-572 Post init ;06/06/2011

 ;;8.0;KERNEL;**572**;;Build 10

 ;

POST ;

 D PATCH^ZTMGRSET(572)

 Q

XU8P572   ;ISF/CJM- Patch XU-572 Post init ;06/06/2011

 +1       ;;8.0;KERNEL;**572**;;Build 10

 +2       ;

POST      ;

 +1        DO PATCH^ZTMGRSET(572)

 +2        QUIT