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

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

    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
    Info |  Source |  Entry Points |  Interaction Calls