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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XQ12

Package: Kernel

Routine: XQ12


Information

XQ12 ;SEA/LUKE,ISD/HGW - MENU MANAGER UTILITIES ;01/10/13 15:09

Source Information

Source file <XQ12.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 13 HOME^%ZIS  GETENV^%ZOSV  $$HDIFF^XLFDT  ASK^XQ  PAUSE^XQ6  (,MES,SET)^XQCHK  ^XQDATE  EN^XQOR  
PM^XQUIT  $$DTIME^XUP  $$PROD^XUPROD  (,H)^XUS  ^XUSCLEAN  
VA FileMan 2 YN^DICN  ^DIE  
MailMan 1 CHK^XM  
Toolkit 1 $$GET^XPAR  

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: 13

Package Total Caller Graph
Kernel 12 XQ  XQ1  XQ75  XQLOCK  XQOR1  XQT1  XUCONTINUE  XUHALT  
XUS5  XUSRB  XUSRB5  ^DIC(19  
Toolkit 1 XURELOG  

Entry Points

Name Comments DBIA/ICR reference
DVARS ;Set up (or reset) necessary variables. From ^XQ1 and ^XQT1.
INIT ;Entry for new logon, called from the top of ^XQ and ^XQ1
UI ;Entry for TaskMan (DUZ may = 0), from ZTSK^XQ1
ABT ;WARNING: XQXFLG is also used by OERR test sites.
  • ICR #860
    • Status: Retired
    • Usage: Private
    CMP
    MERGE ;Merge in the menu trees that this user needs, start with Primary Menu
    MGPXU ;Check for XUCOMMAND
    MGSEC ;Now the Secondary Menu trees
    OLDF(X) ;See if this flag is au current, if not KILL it
    LOGOPT ;Option audit
    XPRMP
    CON ;Continue option logic. Enter from ASK^XQ on timeout.
    HALT ;
    REST
    SS ;Search Secondaries for a particular option.
    ABLOG
    ABLOG1
    STARTUP() ; P593 Run XU USER START-UP option
    SAMPLE ; P593 sample start-up option

    External References

    Name Field # of Occurrence
    HOME^%ZIS INIT+9
    GETENV^%ZOSV LOGOPT+6
    YN^DICN SAMPLE+9
    ^DIE SAMPLE+5
    $$HDIFF^XLFDT OLDF+6
    CHK^XM XPRMP
    $$GET^XPAR DVARS+9
    ASK^XQ XPRMP+1, CON+3
    PAUSE^XQ6 UI+7
    ^XQCHK UI+5
    MES^XQCHK UI+7
    SET^XQCHK INIT+19
    ^XQDATE DVARS+3, UI+1
    EN^XQOR STARTUP+4
    PM^XQUIT UI+11
    $$DTIME^XUP DVARS+6
    $$PROD^XUPROD DVARS+8
    ^XUS REST
    H^XUS HALT+1
    ^XUSCLEAN UI+11, REST

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: 10
    • Line Location: XPRMP+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: XPRMP+1
    Function Call: READ
    • Variable: XQUR
    • Timeout: 20
    • Line Location: CON+1
    Function Call: WRITE
    • Prompt: !!," If you enter 'Y' or 'RETURN' you will halt and continue here next time",!," you logon to the computer.",!," If you enter 'N' you will resume processing where you were."
    • Line Location: CON+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: CON+3
    Function Call: WRITE
    • Prompt: !!,$P("HMM^OK^ALL RIGHT^WELL CERTAINLY^FINE","^",$R(5)+1),"... ",$P("SEE YOU LATER^I'LL BE READY WHEN YOU ARE.^HURRY BACK!^HAVE A GOOD LUNCH BREAK!","^",$R(3)+X+1)
    • Line Location: CON+6
    Function Call: WRITE
    • Prompt: !!," Sample: Testing XU USER START-UP option for patch XU*8.0*593"
    • Line Location: SAMPLE+3
    Function Call: WRITE
    • Prompt: !!," Sample: Prompt to edit fields in NEW PERSON file (#200)",!
    • Line Location: SAMPLE+4
    Function Call: WRITE
    • Prompt: !!," Sample: Yes(Y) or No(N) prompt."
    • Line Location: SAMPLE+6
    Function Call: WRITE
    • Prompt: !," Entering Y will set the variable XUSQUIT to 1 and end your session."
    • Line Location: SAMPLE+7
    Function Call: WRITE
    • Prompt: !," Entering anything else (including ^ or <CR>) will continue."
    • Line Location: SAMPLE+8
    Function Call: WRITE
    • Prompt: !," Do you want to end your session now"
    • Line Location: SAMPLE+9
    Function Call: WRITE
    • Prompt: !!," Sample: End of sample script."
    • Line Location: SAMPLE+10
    Routine Call
    • %ZIS
    • Line Location:
      • INIT+9
    Routine Call
    • DIE
    • Line Location:
      • SAMPLE+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] DVARS+7, INIT+10
    ^DIC(19 - [#19] UI+4, UI+10, MERGE+1, MERGE+9, MGPXU+1, MGPXU+9, MGSEC+4, MGSEC+11, OLDF+2
    ^DISV( STARTUP+3, STARTUP+5*
    ^VA(200 - [#200] DVARS+2, DVARS+7, INIT+1, INIT+3, INIT+8, INIT+12, INIT+31, MGSEC+2, CON+4*, SS+1
    SS+2
    ^XTV(8989.3 - [#8989.3] DVARS+4, DVARS+7, ABT+2, CMPABLOGABLOG1ABLOG1+1
    ^XUSEC(19 - [#19.081] LOGOPT+3*, LOGOPT+5, LOGOPT+6*
    ^XUTL("XQ" DVARS+1, DVARS+5, INIT+8*, INIT+20*, UI+1*, UI+4*, XPRMP+1, CON+3, CON+4
    ^XUTL("XQO" MERGE+2, MERGE+3, MERGE+5, MERGE+6*, MERGE+8!, MERGE+9*, MERGE+11, MERGE+12!, MGPXU+2, MGPXU+3
    MGPXU+5, MGPXU+6*, MGPXU+8!, MGPXU+9*, MGPXU+11, MGPXU+12!, MGSEC+4, MGSEC+5, MGSEC+6, MGSEC+7*
    MGSEC+8, MGSEC+9, MGSEC+10!, MGSEC+11*, MGSEC+13, MGSEC+14!, OLDF+5, OLDF+7!, CON+4, SS+2

    Label References

    Name Line Occurrences
    $$STARTUP INIT+24
    ABLOG1 ABLOG
    CON CON+2
    DVARS UI+1
    HALT INIT+24, XPRMP+2
    OLDF MERGE+2, MGPXU+2, MGSEC+5
    REST XPRMP+2
    SS CON+4

    Naked Globals

    Name Field # of Occurrence
    ^( XPRMP+1, CON+3, SS+2, ABLOGABLOG1ABLOG1+1
    ^("DUZ" UI+4*
    ^("IOS" DVARS+5
    ^("T" INIT+20*, XPRMP+1*
    ^("XQM" UI+4*, CON+4
    ^("XQW" INIT+8*
    ^("XUCP" CMP
    ^("XUS" DVARS+7
    ^(0 DVARS+2, DVARS+4, INIT+3, LOGOPT+5*, ABLOG1+1*
    ^(20 UI+10
    ^(200 DVARS+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DVARS+3, INIT+8*, INIT+10*, INIT+12*, INIT+13, UI+1, CMP+1!, MGSEC+1~, MGSEC+2*, MGSEC+3
    LOGOPT+2*, LOGOPT+3, LOGOPT+5*, SS+2*, ABLOG*, ABLOG+1!, ABLOG1SAMPLE+9
    %1 MGSEC+1~, MGSEC+3*, MGSEC+4, MGSEC+5, MGSEC+6, MGSEC+7, MGSEC+8, MGSEC+9, MGSEC+10, MGSEC+11
    MGSEC+13, MGSEC+14, ABLOG*, ABLOG+1!, ABLOG1*
    %2 ABLOG*, ABLOG+1!, ABLOG1ABLOG1+1*
    %3 ABLOG*, ABLOG+1!
    %4 ABLOG+1!, ABLOG1*, ABLOG1+1*
    %Y UI+1, CMP+1!
    DA SAMPLE+1~, SAMPLE+2*, SAMPLE+5*
    DIC INIT+1!, STARTUP+2*, STARTUP+6!
    >> DIE SAMPLE+5*
    >> DILOCKTM MERGE+5, MGPXU+5, MGSEC+8
    >> DR SAMPLE+5*
    DT DVARS+3*, INIT+35, LOGOPT+2
    DTIME DVARS+6*
    DUZ DVARS+1*, DVARS+2, DVARS+6, DVARS+7, INIT+1, INIT+3, INIT+8, INIT+12, INIT+31, UI+4
    MGSEC+2, LOGOPT+6, CON+4, SS+1, SS+2, STARTUP+3, STARTUP+5, SAMPLE+2, SAMPLE+5
    DUZ("AG" DVARS+4*
    DUZ("AUTO" DVARS+7*
    DUZ("TEST" DVARS+8, DVARS+9*, DVARS+10*, XPRMP+1, CON+3
    DUZ(0 DVARS+2*
    >> I DVARS+7*, LOGOPT+4*, LOGOPT+5
    IO INIT+9, INIT+10
    >> IOS DVARS+5*, DVARS+6
    IOST INIT+24
    >> J LOGOPT+4*
    K1 LOGOPT+4*, LOGOPT+7!
    K2 LOGOPT+4*, LOGOPT+7!
    PGM CMP+1!
    U DVARS+1*, DVARS+2, DVARS+4, DVARS+7, INIT+3, INIT+13, INIT+33, UI+1, UI+10, ABT+1*
    ABT+2, CMPLOGOPT+3, LOGOPT+4, LOGOPT+5, LOGOPT+6, XPRMP+1, CON+3, SS+1, ABLOG
    ABLOG1ABLOG1+1
    X CMP+1!, OLDF~, OLDF+5, OLDF+7, XPRMP*, XPRMP+1, CON+4*, CON+5*, CON+6, SS+2
    , STARTUP+2*, STARTUP+6!
    >> XQAA XPRMP+1*, CON+3*
    >> XQAUDIT LOGOPT+4
    XQCY UI+5*, CMP+1!
    >> XQDIC INIT+21*, UI+2*, XPRMP+1*, CON+3*
    >> XQI SS+2*
    >> XQJS INIT+35*, UI+4
    >> XQL UI+6*
    XQLAST INIT+33*, INIT+34, INIT+35, INIT+36!
    >> XQLTL LOGOPT+1*, LOGOPT+3*, LOGOPT+5*, LOGOPT+6
    >> XQM CON+4*
    >> XQM3 UI+10*
    >> XQNOHALT REST*
    XQPM INIT+13*, INIT+14, INIT+15, CMP+1!
    >> XQPRMN UI+6*
    >> XQPSM INIT+21*, UI+3*, UI+4*, MERGE+1, MERGE+2, MERGE+3, MERGE+5, MERGE+6, MERGE+8, MERGE+9
    MERGE+11, MERGE+12, XPRMP+1*, CON+3*, CON+4*, SS+2*
    XQPW INIT+13*, INIT+14, INIT+16, CMP+1!
    XQPXU CMP+1!, OLDF+2*, OLDF+3*, OLDF+6
    XQSD INIT+13*, INIT+15, CMP+1!
    >> XQUIT UI+11
    >> XQUR INIT+35*, XPRMPXPRMP+2, CON+1*, CON+2, CON+3*
    >> XQUSER INIT+3*
    >> XQXFLG ABT+2*, CMP*
    >> XQXFLG("LLOG" INIT+32, INIT+33, INIT+38!
    >> XQY INIT+7*, INIT+10*, INIT+11, INIT+14*, INIT+15*, INIT+16*, INIT+20, INIT+21, UI+2, UI+3
    UI+4, UI+5, UI+8*, UI+10, UI+11*, LOGOPT+4, LOGOPT+6, XPRMP+1*, CON+3*, ABLOG1+1
    >> XQY0 INIT+20, UI+4*, UI+10, LOGOPT+4, XPRMP+1*, CON+3*, ABLOGABLOG1
    XUDISV STARTUP+1~, STARTUP+3*, STARTUP+5
    XUSER STARTUP+1~
    XUSQUIT INIT+24*, STARTUP+1~, STARTUP+2*, STARTUP+7, SAMPLE+9*
    >> XUVOL LOGOPT+6*
    Y INIT+1!, OLDF+4~, OLDF+5*, OLDF+6, LOGOPT+6, XPRMP+1*, CON+3*, CON+4*, SS+2*
    Z OLDF+4~, OLDF+6*, OLDF+7
    >> ZTQUEUED UI+4, UI+7, UI+11
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All