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

Package: Kernel

Routine: XQ55


Information

XQ55 ; SEA/AMF,MJM,JLI - SEARCH FOR USERS ACCESS TO AN OPTION;

Source Information

Source file <XQ55.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
OPT
MPAT
LOOP1
TREE
TREE1 ;
SETGLO ;
LOOP2 ;
USERS ;
USERS1 ; 080115 code added to handle options on the COMMON (XUCOMMAND) menu
EACHU ;
KEYCHECK() ; 080115 extracted common code
; returns 1 if user has access to the option, 0 if the user does not have access
SETU ;
LOOP3 ;
DQ ;Entry point for queued job
NEWPG ;
CON ;
HDR ;
PRTU ;
MENUPAT ;
MUS
OUT ;
KILL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"If you answer 'YES', the listing will include the menu path(s) each user has",!,"to access the specified option."
  • Line Location: MPAT+0
Function Call: WRITE
  • Prompt: !,"***"
  • Line Location: USERS1+5
Function Call: WRITE
  • Prompt: !,"*** This option is available from the 'SYSTEM COMMAND OPTIONS' ***"
  • Line Location: USERS1+6
Function Call: WRITE
  • Prompt: !,"*** (XUCOMMAND) menu available to all active users unless ***"
  • Line Location: USERS1+7
Function Call: WRITE
  • Prompt: !,"*** protected by a KEY - DO YOU REALLY WANT THE ENTIRE LIST ***"
  • Line Location: USERS1+8
Function Call: WRITE
  • Prompt: !,"*** OF THESE USERS??? ***",!
  • Line Location: USERS1+9
Function Call: WRITE
  • Prompt: !!,"** NO USERS CAN ACCESS THIS OPTION **"
  • Line Location: LOOP3+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Page ",XQPG,?62,XQDT,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?XQTAB,XQHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"USER NAME",?27,"LAST ON",?37,"PRIMARY MENU"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?63,"PATH(S)"
  • Condition for execution: XQMP
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$E(XQDSH,1,25),?27,$E(XQDSH,1,8),?37,$E(XQDSH,1,$S(XQMP:24,1:40))
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?63,$E(XQDSH,1,14)
  • Condition for execution: XQMP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$E($P(XQU,U,1),1,27),?27,K
  • Line Location: PRTU+2
Function Call: WRITE
  • Prompt: ?37,$E($P(^(0),U,1),1,24)
  • Line Location: PRTU+3
Function Call: WRITE
  • Prompt: ","
  • Line Location: PRTU+7
Function Call: WRITE
  • Prompt: " (Secondary menu)"
  • Line Location: PRTU+10
Function Call: WRITE
  • Prompt: !!,$E(XQDSH,1,27)," MENU PATH(S) ",$E(XQDSH,1,29),!
  • Line Location: MENUPAT+1
Function Call: WRITE
  • Prompt: " ... "
  • Condition for execution: N>1
  • Line Location: MENUPAT+2
Function Call: WRITE
  • Prompt: $P(^DIC(19,$P(K,",",N),0),U,1)
  • Line Location: MENUPAT+2
Function Call: WRITE
  • Prompt: !,"(S) - secondary menu pathway"
  • Line Location: MENUPAT+3
Function Call: WRITE
  • Prompt: !,"(C) - SYSTEM COMMAND OPTIONS (XUCOMMAND) menu pathway"
  • Line Location: MENUPAT+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MUS+0
Function Call: WRITE
  • Prompt: !!,"Press return when finished viewing "
  • Line Location: MUS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MUS+0
Info |  Source |  Entry Points |  Interaction Calls