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

Entry Points

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

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
  • Variable: XQ
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls