Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XQ84

Package: Kernel

Routine: XQ84


Information

XQ84 ;SEA/LUKE,ISD/HGW - Menu Rebuild Utilities ;06/06/13 12:59

Source Information

Source file <XQ84.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 8 HOME^%ZIS  GETENV^%ZOSV  ^%ZTLOAD  ($$HDIFF,$$HTE)^XLFDT  PM2^XQ8  ($$STATUS,MICRO)^XQ81  NEWSET^XQSET  $$LOOKUP^XUSER  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Kernel 8 XQ75  XQ81  XQ83  XQBUILDUSER  XQRIGHTNOW  XQSHOWBUILDS  XU REBUILD MENU TREE  XUSERNEW  

Entry Points

Name Comments DBIA/ICR reference
SHOW ; Show what's in the global ^XUTL("XQO","REBUILDS")
; ZEXCEPT: DIRUT,DUOUT,IOF,IOSL ; Kernel exemptions
WRITE ;Write an entry unless the screen is full
; ZEXCEPT: IOF,XQB,XQBY,XQE,XQJ,XQNI,XQNL,XQNT,XQT,XQTYPE,XQUCI ; Kernel exemptions
TOP ; Format the top of the page
; ZEXCEPT: XQNL ; Kernel exemption
TITLE ;What is this all about?
; ZEXCEPT: XQNL ; Kernel exemption
WAIT ;That's a screen load hold it here for a minute
; ZEXCEPT: DIR ; Kernel exemption
USER ;Rebuild the menu trees of a specific user
REACT(XUN) ;From XUSERNEW, check trees for reactivated user
; ZEXCEPT: XQQUE,XQUEUED,XWB,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK ; Kernel exemptions
FLAG(XQARRAY,XQNUM1) ;Should we build a particular array of trees
REACTQ ;Queued job to rebuild a reactivated user's menu trees
; can also be run in real time by USER (above)
; ZEXCEPT: D,I,W,X,XQFG1,XQK,XQQUE,XQREACT,XQSTAT,XQXUF,XUN,Y,Z,ZTQUEUED,ZTREQ ; Kernel exemptions
REPORT(XQTYPE) ;Tell us what happened.
; ZEXCEPT: XQSTART,ZTSK ; Kernel exemptions
NOW ;Is there a rebuild of any kind running right now?
REBUILD(RESULT) ; RPC. [XU REBUILD MENU TREE] public (p629)
; input - none (uses DUZ)
; output - 0 if unsuccessful, 1 if successful

External References

Name Field # of Occurrence
HOME^%ZIS SHOW+7
GETENV^%ZOSV REPORT+11
^%ZTLOAD USER+48, REACT+25
^DIR WAIT+3, USER+29, USER+42
$$HDIFF^XLFDT FLAG+15
$$HTE^XLFDT REPORT+5
PM2^XQ8 REACTQ+14
$$STATUS^XQ81 FLAG+7, REACTQ+5
MICRO^XQ81 REACTQ+8
NEWSET^XQSET REACTQ+20
$$LOOKUP^XUSER USER+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Sorry, there is no data in the global ^XUTL(""XQO"",""REBUILDS"") to show you.",!
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: !,XQNI,".",?4,XQB,?28,XQE,?51,XQBY,?60,XQTYPE,?71,XQT,!,XQUCI,XQJ,!
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !,?11,"Start",?35,"End",?53,"By",?59,"Type/Name",?72,"Task #",!
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: ?36,"Recent Menu Rebuilds",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: ?14,$S(%>0:%,1:"No")_" instances of Micro Surgery since last rebuild."
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !!,"No Primary Menu defined for this user."
  • Line Location: USER+10
Function Call: WRITE
  • Prompt: !!," Task number: ",ZTSK
  • Line Location: USER+49
Function Call: WRITE
  • Prompt: !!," Done."
  • Line Location: USER+53
Function Call: WRITE
  • Prompt: !!?6,"There is no menu rebuild activity running on your system right now."
  • Line Location: NOW+15
Routine Call
  • %ZIS
  • Line Location:
    • SHOW+7
Routine Call
  • DIR
  • Line Location:
    • WAIT+3
    • USER+29
    • USER+42

Used in RPC

RPC Name Call Tags
XU REBUILD MENU TREE REBUILD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] USER+14, USER+15, REACT+6, REACT+8, REACT+10, REACT+11, FLAG+8, REACTQ+5, REACTQ+9*, REACTQ+16*
, REACTQ+17, REACTQ+21!, REACTQ+23!, NOW+2, NOW+4, NOW+10, REBUILD+9, REBUILD+10
^TMP("XQO" REACTQ+11!, REACTQ+15, REACTQ+16, REACTQ+21!
^TMP($J REACTQ+11!, REACTQ+21!
^VA(200 - [#200] USER+10, USER+13, USER+47, REACT+5, REACT+9, REACTQ+22, REPORT+7, REBUILD+6, REBUILD+8
^XUTL("XQO" SHOW+2, SHOW+17, SHOW+18, TITLE+3, FLAG+12, FLAG+14, FLAG+16!, FLAG+18, FLAG+19*, REACTQ+17*
, REACTQ+18!, REPORT+3*, REPORT+4*, REPORT+13, REPORT+15, REPORT+16*, REPORT+18*

Label References

Name Line Occurrences
$$FLAG USER+21, REACT+17
REACTQ USER+53, REBUILD+13
REPORT REACTQ+22
TITLE SHOW+13
TOP SHOW+14, WRITE+6
WAIT WRITE+3
WRITE SHOW+23

Naked Globals

Name Field # of Occurrence
^( REPORT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SHOW+4~, SHOW+18*, SHOW+19, SHOW+20, SHOW+21, SHOW+22, TITLE+2~, TITLE+3*, TITLE+6, REACT+16~
, REACT+17*, REACT+18, FLAG+6~, FLAG+7*, FLAG+9*, FLAG+11, FLAG+18, REACTQ+3~*, REPORT+2~, NOW+1~*
, NOW+7*, NOW+9, NOW+12*, NOW+14
D REACTQ+24!
DIR WAIT+3!, USER+23~, USER+51!
DIR("?" USER+28*, USER+41*
DIR("A" USER+25*, USER+26*, USER+27*, USER+40*
DIR("B" USER+40*
DIR(0 WAIT+3*, USER+24*, USER+40*
DIRUT SHOW+17, SHOW+26!, WRITE+3, WRITE+8
DUOUT SHOW+26!
DUZ REACTQ+20~*, REPORT+7, REBUILD+5
I REACTQ+24!
IOF SHOW+7, SHOW+8, WRITE+4
IOSL SHOW+11
RESULT REBUILD~, REBUILD+4*, REBUILD+14*
U SHOW+19, SHOW+20, SHOW+21, SHOW+22, USER+15, USER+47, REACT+8, REACT+11, REACTQ+22, REPORT+7
, REBUILD+10
W REACTQ+24!
X WAIT+2~, FLAG+10~, FLAG+11*, FLAG+12, FLAG+14, FLAG+16, FLAG+18, FLAG+19, REACTQ+24!, REPORT+2~
, REPORT+8*, REPORT+10
XQARRAY FLAG~
XQARRAY( FLAG+9, FLAG+11, FLAG+18!
XQB SHOW+5~, SHOW+20*, WRITE+9
XQBY SHOW+5~, SHOW+19*, WRITE+9
XQCHAT REACT+3~, REACT+4*, REACT+5
XQCNT USER+4~, USER+5*, USER+12*, USER+15*, USER+19, USER+21, USER+32*, REACT+3~, REACT+7*, REACT+8*
, REACT+11*, REACT+14, REACT+17, REACT+20, REACTQ+10~*, REACTQ+12*, REACTQ+13, REACTQ+18, REBUILD+3~, REBUILD+7*
, REBUILD+10*
>> XQCNTS USER+19*, USER+32
XQDIC REACTQ+10~, REACTQ+13*, REACTQ+15, REACTQ+16, REACTQ+17, REACTQ+20*
XQE SHOW+5~, SHOW+20*, WRITE+9
XQEND REPORT+2~, REPORT+5*, REPORT+6, REPORT+7
>> XQFG1 REACTQ+13*
XQFL USER+4~, USER+21*, USER+22, USER+33*, USER+37
XQI SHOW+4~, SHOW+16*, SHOW+17*, SHOW+18, REPORT+2~, REPORT+16*
XQJ SHOW+5~, SHOW+22*, WRITE+9, REPORT+2~, REPORT+14*, REPORT+15*
XQK REACTQ+24!, REPORT+2~, REPORT+14*, REPORT+15*, REPORT+16
XQLINE REPORT+2~, REPORT+7*, REPORT+10*, REPORT+12*, REPORT+18
XQNI SHOW+4~, SHOW+10*, WRITE+9, WRITE+10*
XQNL SHOW+4~, SHOW+9*, WRITE+2, WRITE+5*, WRITE+10*, TOP+3*, TITLE+5*, TITLE+7*
XQNT SHOW+4~, SHOW+11*, WRITE+2
XQNUM FLAG+6~*, FLAG+19*, FLAG+21
XQNUM1 FLAG~, FLAG+21*
XQPRIM USER+4~, USER+10*, USER+12, REACT+3~, REACT+5*, REACT+6, REACT+8, REBUILD+3~, REBUILD+6*, REBUILD+7
XQPXU FLAG+6~, FLAG+8*, FLAG+15
XQQUE REACT+5, REACTQ+24!
XQREACT USER+4~, USER+18, USER+21, USER+31*, REACT+3~, REACT+17, REACTQ+6, REBUILD+3~
XQREACT( USER+12*, USER+15*, REACT+8*, REACT+11*, REACTQ+12, REACTQ+13, REACTQ+18, REBUILD+7*, REBUILD+10*
>> XQREACTS USER+18*, USER+31
XQSEC USER+4~, USER+5*, USER+13*, USER+14, USER+15, REACT+3~, REACT+7*, REACT+9*, REACT+10, REACT+11
, REBUILD+3~, REBUILD+7*, REBUILD+8*, REBUILD+9, REBUILD+10
>> XQSTART REPORT+6*, REPORT+7
>> XQSTAT REACTQ+5*
XQT SHOW+5~, SHOW+20*, WRITE+9
XQTYPE SHOW+5~, SHOW+20*, WRITE+9, REPORT~, REPORT+4, REPORT+8!
XQUCI SHOW+5~, SHOW+21*, WRITE+9
>> XQUEUED REACT+4
XQXUF REACTQ+13*, REACTQ+24!
>> XTMUNIT USER+8, USER+22, USER+39, USER+53
XUN USER+4~, USER+7*, USER+9*, USER+10, USER+13, USER+47, REACT~, REACT+5, REACT+9, REACT+24
, REACTQ+20, REACTQ+22, REBUILD+3~, REBUILD+5*, REBUILD+6, REBUILD+8
>> XWB REACT+4
Y WAIT+2~, USER+30, USER+42, USER+51!, FLAG+13~, FLAG+14*, FLAG+15, REACTQ+24!, REPORT+2~, REPORT+9*
, REPORT+10, REPORT+12
Z FLAG+13~, FLAG+15*, FLAG+16, REACTQ+24!
>> ZTDESC USER+47*, REACT+24*
>> ZTDTH USER+46*, REACT+23*
>> ZTIO USER+46*, REACT+23*
>> ZTQUEUED REACTQ+25
ZTREQ REACTQ+4!, REACTQ+25*
>> ZTRTN USER+43*, REACT+21*
>> ZTSAVE("XQCNT" USER+45*
>> ZTSAVE("XQREACT(" USER+45*, REACT+22*
>> ZTSAVE("XUN" USER+44*, REACT+22*
ZTSK USER+49, USER+53, USER+54!, REACT+26!, REPORT+9
>> ZZ8XUN USER+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All