XUP569.m

XUP569 ;ALB/CJM - post-install for XU*8*569 ;05/09/2011

 ;;8.0;KERNEL;**569**;Jul 10, 1995;Build 4

 ;

REBUILD ;rebuild all secondary menus

 N DUZ,XQDIC

 S DUZ=0

 F  S DUZ=$O(^VA(200,DUZ)) Q:'DUZ  D

 .S XQDIC="U"_DUZ

 .L +^XUTL("XQO",XQDIC):5

 .D SET^XQSET

 .L -^XUTL("XQO",XQDIC)

 Q

XUP569    ;ALB/CJM - post-install for XU*8*569 ;05/09/2011

 +1       ;;8.0;KERNEL;**569**;Jul 10, 1995;Build 4

 +2       ;

REBUILD   ;rebuild all secondary menus

 +1        NEW DUZ,XQDIC

 +2        SET DUZ=0

 +3        FOR 

               SET DUZ=$ORDER(^VA(200,DUZ))

               IF 'DUZ

                   QUIT 

               Begin DoDot:1

 +4                SET XQDIC="U"_DUZ

 +5                LOCK +^XUTL("XQO",XQDIC):5

 +6                DO SET^XQSET

 +7                LOCK -^XUTL("XQO",XQDIC)

               End DoDot:1

 +8        QUIT