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

Package: Kernel

Routine: XQSMD


Information

XQSMD ; SEA/MJM - Secure MenuMan Delegation ;7/3/91 08:39 ;6/4/92 12:53 PM

Source Information

Source file <XQSMD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 6 ^%ZIS  ^XQDATE  EN^XQH  ^XQSMD1  $$DTIME^XUP  H^XUS  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Kernel 3 XQSMD ADD  XQSMD REMOVE  XQSMD2  

Entry Points

Name Comments DBIA/ICR reference
NAME
MGR ;Find out who's delegating here.
LSTFIL ;Show USER, OPTION, or user's delegated options in ^VA(200,DUZ,19.5)
LIST ;List users and options selected so far.
INIT ;
EN1
EN2
DONE
USER ;Get the duz of the user being delegated to.
OUT
WAIT ;Skip to the head of the next page

External References

Name Field # of Occurrence
^%ZIS INIT+3
^DIC NAME+3, LSTFIL+1
^XQDATE INIT+2
EN^XQH NAME+1
^XQSMD1 DONE+2
$$DTIME^XUP INIT+4
H^XUS MGR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** DEVICE ERROR ***",!,"-delegation software exiting-"
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !,"You have not been given the authority to delegate options. See your Site Manager."
  • Line Location: MGR+4
Function Call: WRITE
  • Prompt: !!,"Enter the name(s) of your delegate(s), one at a time"
  • Line Location: USER+2
Function Call: READ
  • Timeout: DTIME
  • Variable: XQ
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !!,"Enter a name, a name preceded by a minus, a '^' to quit, or '??' for help."
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !!," ** No such person in the User File **"
  • Line Location: NAME+3
Function Call: WRITE
  • Prompt: !,"It is illogical to delegate to oneself."
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: !,"Sorry, this person has no verify code node in the user file."
  • Line Location: NAME+5
Function Call: WRITE
  • Prompt: !,"Sorry, this person is not an active user."
  • Line Location: NAME+6
Function Call: WRITE
  • Prompt: !,"Delegation level error. You can not modify the options of ",$P(Y,U,2)
  • Line Location: NAME+8
Function Call: WRITE
  • Prompt: !!,"Enter a delegate's name or '^' to quit."
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!," No users selected yet."
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"For the following user(s):",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?(XQT#2*35),XQI,". ",XQHOLD(XQM)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !!,"You will ",$S(XQDOP:"remove ",1:"delegate "),"the following options: ",!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"No menu options selected yet"
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,XQN," ",$P(^TMP($J,"ZN",XQN),U,1)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !!,$S(XQDOP:" Removed ",1:" Delegated "),"by ",XQMGR," on ",XQDATE,".",!
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Routine Call
  • DIC
  • Line Location:
    • NAME+3
    • LSTFIL+1
Routine Call
  • %ZIS
  • Line Location:
    • INIT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J INIT+1!*, USER+1!, LIST+5, LIST+6, OUT!
^VA(200 - [#200] MGR+2, MGR+4, NAME+5, NAME+6, NAME+8
^XUSEC("XUMGR" MGR+3
^XUTL("XQ" MGR+1

Label References

Name Line Occurrences
DONE NAME
INIT EN1
LIST NAME+1, LSTFIL+1
LSTFIL NAME+1
NAME NAME, NAME+1, NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, NAME+8, NAME+9, DONE
OUT INIT+3, MGR+4, NAME
WAIT LIST+6

Naked Globals

Name Field # of Occurrence
^( LIST+6
^("ZN" USER+1!
^(19 MGR+4, NAME+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OUT!
>> %Y INIT+2
DIC NAME+3*, LSTFIL+1*!, OUT!
DIC(0 NAME+3*, LSTFIL+1*, OUT!
DTIME INIT+4*, NAME, WAIT+1
DUZ INIT+4, MGR+1, MGR+2, MGR+3, MGR+4, NAME+4
DUZ(0 MGR+3
IOF INIT+3, LIST+1, WAIT+1
IOM INIT+3
>> IOP INIT+3*
>> IOS INIT+4
IOSL INIT+3, LIST+6
IOST WAIT+1
POP INIT+3, OUT!
U INIT+1*, MGR+2, MGR+5, NAME, NAME+6, NAME+8, NAME+9, LIST+6, WAIT+1
X NAME+3*, LSTFIL+1*, OUT!
XQ NAME*, NAME+1, NAME+2*, NAME+3, LIST+6, WAIT+1*, OUT!
XQAL OUT!
XQD OUT!
XQDATE INIT+2*, LIST+7, OUT!
XQDEL INIT+1*, NAME+2*, NAME+7*, OUT!
>> XQDOP EN1*, EN2*, LIST+4, LIST+7
XQDT OUT!
XQDUZ MGR+1*, OUT!
XQEND OUT!
XQH NAME+1*, OUT!
XQHOLD USER+1!, OUT!
XQHOLD( NAME+7!, NAME+9*, DONE, LIST+1, LIST+3
XQHOLD(0 INIT+1*, USER+1*
XQI LIST+3*, LIST+6*, OUT!
XQJ OUT!
XQK USER+1*, OUT!
XQKEY USER+1!, OUT!
XQKEY(0 USER+1*
XQL OUT!
XQLEV MGR+3*, MGR+5*, NAME+8, OUT!
XQLK USER+1!, OUT!
XQLVL NAME+8*, OUT!
XQM LIST+1*, LIST+3*, OUT!
XQMG OUT!
XQMGR MGR+2*, LIST+7, OUT!
XQN DONE*, LIST+5*, LIST+6*, OUT!
XQNAM NAME+9*, OUT!
XQNM OUT!
XQON OUT!
XQON0 MGR+4*, MGR+5, OUT!
XQPRO INIT+1*, MGR+3*, MGR+4, MGR+5, NAME+8, LSTFIL+1, OUT!
XQSTART OUT!
XQT INIT+1*, USER+1*, NAME+9*, LIST+1*, LIST+3*, LIST+5*, OUT!
XQUF INIT+1*, NAME*, DONE*, LSTFIL+1, OUT!
XY OUT!
Y NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, NAME+8, NAME+9, OUT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All