Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XUP569

XUP569.m

Go to the documentation of this file.

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

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

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUP569   295     printed  Nov 22, 2024@17:21:35                                                                                                                                                                                                       Page 2

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

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

 +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