Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XQ81

Package: Kernel

Routine: XQ81


Information

XQ81 ;SEA/AMF/LUKE,SF/RWF,ISD/HGW - Build menu trees ;03/19/13 09:21

Source Information

Source file <XQ81.m>

Entry Points

Name Comments DBIA/ICR reference
BUILD ;
RD2
KIDS ;Entry from KIDS
DQ ;Entry from taskman Write if $D(XQFG)
SEC
VER
RD3 ;Update counter an rebuild it if necessary
SET
SET1
QUE ;Entry point for the option XQBUILDTREEQUE, and XQBUILDALL
BLDEND ;File a report, cleanup, and quit.
MERGET ;Merge ^TMP("XQO",$J) into ^DIC(19,"AXQ")
CLEAN ;Clean out unused menu trees from ^DIC(19,"AXQ")
MERGEX ;Merge ^DIC(19,"AXQ") into ^XUTL("XQO")
STATUS()
MICRO ;Turn off micro surgery
ERR ;Come here on error
BLDEND1 ;Quit and clean

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Some one else is rebuilding menus. Sorry."
  • Line Location: RD2+1
Function Call: WRITE
  • Prompt: !!,"This option will build menu trees for each primary and secondary menu.",!,"You may build all the trees, or build them selectively, using 'verify'.",!,"Note that the 'compiled menus' will only be built into ^XUTL on this CPU.",!
  • Line Location: RD2+6
Function Call: WRITE
  • Prompt: !!,"Task #: ",ZTSK,!
  • Line Location: RD2+15
Function Call: WRITE
  • Prompt: !!," Some one else is building menus. Sorry."
  • Line Location: KIDS+1
Function Call: WRITE
  • Prompt: !!,"Starting Menu Rebuild: ",XQSTART
  • Line Location: KIDS+21
Function Call: WRITE
  • Prompt: !!,"Collecting primary menus in the New Person file..."
  • Line Location: KIDS+22
Function Call: WRITE
  • Prompt: !!,"Building secondary menu trees...."
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: ?71,$E(XQK,4,5),"/",$E(XQK,6,7),"/",$E(XQK,2,3)
  • Line Location: VER+11
Function Call: WRITE
  • Prompt: !!,"Menu Rebuild Complete: ",$$HTE^XLFDT($H)
  • Line Location: BLDEND+28
Function Call: WRITE
  • Prompt: !!,"Merging...."
  • Line Location: MERGET+2
Function Call: WRITE
  • Prompt: " done."
  • Line Location: MERGEX+21
Info |  Source |  Entry Points |  Interaction Calls