XU8P584.m

XU8P584 ;ISF/RD - Patch XU*8*584 ;

 ;;8.0;KERNEL;**584**;Jul 10, 1995;Build 7

 Q

 ;

POST ;POST-INIT

 D PATCH^ZTMGRSET(584)

 Q

XU8P584   ;ISF/RD - Patch XU*8*584 ;

 +1       ;;8.0;KERNEL;**584**;Jul 10, 1995;Build 7

 +2        QUIT 

 +3       ;

POST      ;POST-INIT

 +1        DO PATCH^ZTMGRSET(584)

 +2        QUIT