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

Package: Kernel

Routine: XQSMD1


Information

XQSMD1 ; SEA/MJM - Secure MenuMan Delegation (cont.); 5/18/88 2:16 PM ;9/13/96 09:23

Source Information

Source file <XQSMD1.m>

Entry Points

Name Comments DBIA/ICR reference
GETOP ;Get options to add to (or remove from XQDOP) users.
ASK
FIND ;Find first routine in wildcard list
FINDR
GET ;Get the options selected and put them in ^UTILITY.
NEXT
DELET
REMOV
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: !!,"Enter options you wish to ",$S(XQDOP:"REMOVE FROM",1:"DELEGATE TO")," these users"
  • Line Location: GETOP+1
Function Call: READ
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter an option name, an option preceded by a minus, '^' to quit, or '??' for help."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !," All options removed. Start again or '^' to quit. "
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !," ??",*7
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !?10,"Do mean the options from ",$P(XQ,"-")," to ",$P(XQ,"-",2)
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !," ??",*7
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: !,*7,"This option is not delegable."
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !," No such options."
  • Line Location: FIND+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Remove all options previously delegated to all users in your list? "
  • Variable: XQ
  • Timeout: DTIME
  • Line Location: REMOV+0
Function Call: WRITE
  • Prompt: !!,"OK, you may continue building a list of options to remove."
  • Line Location: REMOV+0
Function Call: WRITE
  • Prompt: !!,"Please answer 'Y' or 'N'"
  • Line Location: REMOV+1
Function Call: WRITE
  • Prompt: !!,"Your request has been queued, task # ",ZTSK
  • Line Location: REMOV+3
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