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>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	7	$$EC^%ZOSV (,$$NEWERR,UNWIND)^%ZTER ^%ZTLOAD $$HTE^XLFDT (EXIT,INIT,TITLE,UPDATE)^XPDID (CHK,PM2)^XQ8 REPORT^XQ84
VA FileMan	3	YMD^%DTC %XY^%RCR ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Kernel	6	XPDIJ XQ8 XQ83 XQ84 XQBUILDTREE XQBUILDTREEQUE

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

External References

Name	Field # of Occurrence
YMD^%DTC	VER+11
%XY^%RCR	MERGET+9, MERGEX+8
$$EC^%ZOSV	ERR+2
^%ZTER	ERR+3
$$NEWERR^%ZTER	KIDS+8
UNWIND^%ZTER	ERR+5
^%ZTLOAD	RD2+14
^DIR	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9
$$HTE^XLFDT	RD2+5, KIDS+20, DQ+2, QUE+3, BLDEND+28
EXIT^XPDID	BLDEND+34, ERR+4
INIT^XPDID	KIDS+12
TITLE^XPDID	KIDS+15
UPDATE^XPDID	KIDS+17, RD3+5, BLDEND+26, BLDEND+27
CHK^XQ8	RD3+8
PM2^XQ8	RD3+10
REPORT^XQ84	BLDEND+21

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
Routine Call	DIR Line Location: RD2+7 RD2+8 RD2+10 RD2+21 RD3+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	KIDS+9
^DIC(19 - [#19]	RD2+18!, RD2+19, KIDS+1, KIDS+2, KIDS+3, DQ+6, DQ+7, DQ+24, VER+11, SET+3 , SET1, BLDEND+14!, BLDEND+16!, BLDEND+17!, BLDEND+18, MERGET+4, MERGET+7!, MERGET+10, MERGET+17, CLEAN+2 , CLEAN+5!, MERGEX+2, MERGEX+16, STATUS+2, STATUS+3, STATUS+4, MICRO+1, MICRO+2*, MICRO+3!
^TMP("XQO"	DQ+10, DQ+11, DQ+12, DQ+14!, DQ+27, SEC, SEC+1, BLDEND+10!, MERGET+3
^TMP($J	DQ+17!, DQ+19, DQ+20, DQ+24, DQ+26, VER+2, VER+8, SET+2, SET+3, SET1 , BLDEND+10!, CLEAN+5
^VA(200 - [#200]	DQ+17, SET, SET+1, SET1
^XUTL("XQO"	BLDEND+13!, BLDEND+15*, CLEAN+5!, MERGEX+3, MERGEX+6!, MERGEX+9

Label References

Name	Line Occurrences
$$STATUS	RD2, KIDS+1
BLDEND	RD2+18, DQ+28
BLDEND1	RD2+7, RD2+8, RD2+10, RD2+21
CLEAN	BLDEND+7
DQ	QUE+4
MERGET	BLDEND+6
MERGEX	BLDEND+8
MICRO	RD2+3, KIDS+2
RD2	RD2+21
RD3	SEC, SEC+2
SEC	DQ+26
SET	DQ+17
SET1	SET
VER	DQ+24

Naked Globals

Name	Field # of Occurrence
^(	DQ+27*, SET1
^("P0"	STATUS+4!
^(0	DQ+10, DQ+11, DQ+12, VER+11, SET+3, SET1
^(1.1	SET+1
^(201	SET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+19, DQ+20, RD3+2~, RD3+4, RD3+5, BLDEND+2!, BLDEND+20, BLDEND+21, BLDEND+26, BLDEND+39! , MERGET+15~, MERGET+17, MERGET+18, MERGEX+14~, MERGEX+16, MERGEX+17, STATUS+1~, STATUS+2, BLDEND1+1!
%H	VER+11*, BLDEND+2!, BLDEND1+1!
%TG	BLDEND+2!, BLDEND1+1!
%X	MERGET+5, MERGET+11!, MERGEX+4, MERGEX+10!
%Y	MERGET+6, MERGET+11!, MERGEX+5, MERGEX+10!
C	BLDEND+2!, BLDEND1+1!
D	BLDEND+2!, BLDEND1+1!
DIC	BLDEND+2!, BLDEND1+1!
>> DILOCKTM	RD2+19, KIDS+3
DIR	RD2+7!, RD2+10!, RD2+21!, BLDEND+2!, BLDEND1+1!
DIR("??"	RD2+7, RD2+8
DIR("A"	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9*
DIR("B"	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9*
DIR(0	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9*
>> DIRUT	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9
I	BLDEND+2!, BLDEND1+1!
J	BLDEND+2!, BLDEND1+1!
K	BLDEND+2!, BLDEND1+1!
L	BLDEND+2!, BLDEND1+1!
Q	MERGET+1~, MERGET+5, MERGET+6, MERGEX+1~, MERGEX+4, MERGEX+5
U	DQ+10, DQ+11, DQ+17, DQ+24, VER+2, VER+4, VER+5, VER+6, SET+1, SET+2 , SET+3, SET1
UU	BLDEND+2!, BLDEND1+1!
V	BLDEND+2!, BLDEND1+1!
VALMCOFF	BLDEND+39!
VALMCON	BLDEND+39!
VALMIOXY	BLDEND+39!
VALMSGR	BLDEND+39!
VALMWD	BLDEND+39!
X	KIDS+9, KIDS+15, DQ+24, DQ+26, VER+11, BLDEND+2!, MERGET+1~, MERGET+3, MERGET+4, MERGET+5 , MERGET+6, MERGET+7, MERGET+10, MERGET+16, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5, MERGEX+1~* , MERGEX+2*, MERGEX+3, MERGEX+4, MERGEX+5, MERGEX+6, MERGEX+9, MERGEX+15, BLDEND1+1!
XPDIDTOT	KIDS+14, KIDS+16, RD3+4, BLDEND+26, BLDEND+27, BLDEND+35!, BLDEND+38
XPDIDVT	KIDS+13, RD3+1, BLDEND+24, BLDEND+26, BLDEND+27, BLDEND+35!
>> XPDNM	KIDS+12, BLDEND+20, BLDEND+33
XQ81T	DQ+9, DQ+12, DQ+13, VER+11, BLDEND+2!, BLDEND1+1!
XQ8FLG	DQ+3~, DQ+4*
XQALLDON	RD2+18*, BLDEND+4!
XQBLD	DQ+24, DQ+26, DQ+27*, SEC, SEC+1, VER+2, VER+8, VER+11, RD3+8, BLDEND+2! , BLDEND1+1!
XQBSEC	RD2+8, KIDS+4, DQ+25, DQ+26, SET1, QUE+2*, BLDEND+2!, BLDEND1+1!
XQDATE	BLDEND+2!, BLDEND1+1!
>> XQDIC	RD3+8*
XQERROR	ERR+1~, ERR+2*
XQFG	RD2+6!, KIDS+4, KIDS+22, DQ+22, DQ+23, DQ+25, VER, VER+11, RD3+1, RD3+8 , QUE+2!, BLDEND+24!, BLDEND+26, BLDEND+27, BLDEND+28, BLDEND+39!, MERGET+2, MERGET+14, MERGEX+13, MERGEX+21
>> XQFG1	RD3+10*
XQFLAG	MERGET+1~, MERGET+4, MERGET+14, MERGEX+1~, MERGEX+3, MERGEX+13, MERGEX+21
XQH	DQ+17*, DQ+27, BLDEND+2!, BLDEND1+1!
XQI	DQ+10, DQ+11, DQ+12, DQ+14, DQ+17*, SET, SET+1, SET1, BLDEND+2!, BLDEND1+1!
XQII	BLDEND+2!, BLDEND1+1!
XQJ	DQ+24*, VER+4, VER+5, VER+6, BLDEND+2!, BLDEND1+1!
XQK	DQ+10, DQ+11, DQ+12, DQ+14, DQ+17, DQ+27, VER+2, VER+3, VER+8, VER+11* , SET*, SET+2, SET+3, BLDEND+2!, BLDEND1+1!
XQL	SEC, SEC+1, SEC+2, SET1*, BLDEND+2!, BLDEND1+1!
XQMT	VER+1~, VER+5*, VER+8
XQN	SEC+1, SET1, BLDEND+2!, BLDEND1+1!
XQNDONE	KIDS+5~, RD3+3, RD3+4, BLDEND+26, BLDEND+39!
XQNOW	DQ+3~, DQ+5*, DQ+6, DQ+7
XQNTREE	KIDS+5~, DQ+19, DQ+20*, RD3+4, BLDEND+26, BLDEND+39!
XQOPNM	VER+1~, VER+4*, VER+7
XQP	SET+1, SET+2, SET+3, BLDEND+2!, BLDEND1+1!
XQPX	BLDEND+2!, BLDEND1+1!
XQR	SET+1*, SET+2, BLDEND+2!, BLDEND1+1!
XQRE	RD3+8, BLDEND+2!, BLDEND1+1!
XQSAV	BLDEND+2!, BLDEND1+1!
XQSAVTOT	KIDS+14*, BLDEND+38, BLDEND+39!
XQSEC	DQ+9, DQ+25, RD3+9, BLDEND+2!, BLDEND1+1!
XQSTART	RD2+5, KIDS+20, KIDS+21, DQ+2, QUE+3, BLDEND+22!
XQSTAT	RD2~, RD2+1, KIDS+1!
XQTASK	DQ+3~
XQTHEN	STATUS+1~
XQVE	RD2+7, RD2+10, RD2+15, RD2+21, KIDS+4, DQ+9, DQ+27, RD3+9, QUE+2*, BLDEND+2! , BLDEND1+1!
XQXUF	BLDEND+2!, BLDEND1+1!
Y	RD2+7, RD2+8, RD2+10, RD2+21, RD3+9, BLDEND+2!, MERGET+1~, MERGET+15~, MERGET+16, MERGET+17 , MERGET+18, MERGET+19, CLEAN+1~, CLEAN+4, CLEAN+5, MERGEX+1~, MERGEX+14~, MERGEX+15, MERGEX+16, MERGEX+17* , MERGEX+18, BLDEND1+1!
Z	BLDEND+2!, BLDEND1+1!
>> ZTDESC	RD2+13*
>> ZTIO	RD2+11*
>> ZTQUEUED	RD3+11
ZTREQ	DQ+1!, RD3+11*
>> ZTRTN	RD2+11*
>> ZTSAVE("XQBSEC"	RD2+12*
>> ZTSAVE("XQSTART"	RD2+12*
>> ZTSAVE("XQVE"	RD2+12*
ZTSK	RD2+2!, RD2+15, RD2+18, BLDEND+20, BLDEND+22!

Customize PDF page

Package: Kernel