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

Package: Kernel

Routine: XQSMD1


Information

XQSMD1 ; SEA/MJM - Secure MenuMan Delegation (cont.); 5/18/88 2:16 PM ;05/08/96 10:45 [ 04/02/2003 8:29 AM ]

Source Information

Source file <XQSMD1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZTLOAD  EN^XQH  ^XQSMD2  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XQSMD  

Entry Points

Name Comments DBIA/ICR reference
GET ;Get the options selected and put them in ^UTILITY.
LSTFIL ;Show USER, OPTION, or user's delegated options in ^VA(200,DUZ,19.5)
GETOP ;Get options to add to (or remove from XQDOP) users.
REMOV
LIST ;List users and options selected so far.
NEXT
DELET
ASK
OUT
FINDR
FIND ;Find first routine in wildcard list
WAIT ;Skip to the head of the next page

External References

Name Field # of Occurrence
^%ZTLOAD REMOV+2
^DIC ASK+10, ASK+14, ASK+16, LSTFIL+1
^DIR ASK+11
EN^XQH ASK+1
^XQSMD2 ASK

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
  • Timeout: DTIME
  • Variable: XQ
  • 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
  • Prompt: "Remove all options previously delegated to all users in your list? "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: XQ
  • 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
Routine Call
  • DIC
  • Line Location:
    • ASK+10
    • ASK+14
    • ASK+16
    • LSTFIL+1
Routine Call
  • DIR
  • Line Location:
    • ASK+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] FIND+1, FINDR, NEXT, DELET
^TMP($J ASK+5!, ASK+18!, ASK+19*, GET+1*, NEXT*, DELET!, LIST+5, LIST+6, OUT!

Label References

Name Line Occurrences
ASK ASK, ASK+1, ASK+4, ASK+5, ASK+6, ASK+9, ASK+14, ASK+16, ASK+17, ASK+18
, ASK+19, FIND+2, REMOV
DELET FINDR+1
FIND ASK+4, ASK+6, ASK+11
LIST ASK+1, LSTFIL+1
LSTFIL ASK+1
OUT ASK, REMOV, REMOV+3
REMOV ASK+3, REMOV+1
WAIT LIST+6

Naked Globals

Name Field # of Occurrence
^( LIST+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OUT!
DIC ASK+10*, ASK+14*, ASK+16*, GET+1*, LSTFIL+1*!, OUT!
DIC(0 ASK+10*, ASK+14*, ASK+16*, GET+1*, LSTFIL+1*, OUT!
>> DIR("A" ASK+11*
>> DIR("B" ASK+11*
>> DIR(0 ASK+11*
DTIME ASK, REMOV, WAIT+1
IOF LIST+1, WAIT+1
IOSL LIST+6
IOST WAIT+1
POP OUT!
U ASK, ASK+10, ASK+14, ASK+16, ASK+17, ASK+19, GET+1, NEXT, REMOV, LIST+6
, WAIT+1
X ASK+10*, ASK+14*, ASK+16*, LSTFIL+1*, OUT!
XQ ASK*, ASK+1, ASK+2*, ASK+3, ASK+4, ASK+5, ASK+6, ASK+9, ASK+10*, ASK+11
, ASK+14*, ASK+16*, ASK+18, ASK+19, REMOV*, REMOV+1, LIST+6, WAIT+1*, OUT!
XQAL OUT!
XQD OUT!
XQDATE LIST+7, OUT!
XQDEL ASK+2*, ASK+4, ASK+5, ASK+17, ASK+18, FINDR+1, DELET*, OUT!
>> XQDOP GETOP+1, ASK, ASK+3, LIST+4, LIST+7
XQDT OUT!
XQDUZ OUT!
XQEND ASK+4*, ASK+6*, ASK+11*, NEXT, DELET, OUT!
XQH ASK+1*, OUT!
XQHOLD OUT!
XQHOLD( LIST+1, LIST+3
XQI FIND+1*, NEXT*, DELET*, LIST+3*, LIST+6*, OUT!
XQJ OUT!
XQK XQSMD1+4*, GET+1*, NEXT*, DELET, OUT!
XQKEY OUT!
XQL OUT!
XQLEV OUT!
XQLK OUT!
XQM LIST+1*, LIST+3*, OUT!
XQMG OUT!
XQMGR LIST+7, OUT!
XQN ASK+11*, FIND+1*, FIND+2, FINDR, GET+1*, NEXT*, DELET*, LIST+5*, LIST+6*, OUT!
XQNAM OUT!
XQNM OUT!
XQON FINDR*, GET+1, NEXT*, DELET*, OUT!
XQON0 FINDR*, GET+1, NEXT*, OUT!
XQPRO LSTFIL+1, OUT!
XQRNG ASK+9*, ASK+10*, OUT!
XQSTART ASK+4*, ASK+6*, ASK+11*, FIND+1, FINDR*, GET+1, DELET, OUT!
XQT LIST+1*, LIST+3*, LIST+5*, OUT!
XQUF LSTFIL+1, OUT!
>> XQX DELET*
XY OUT!
Y ASK+10, ASK+11, ASK+14, ASK+16, ASK+18, ASK+19, OUT!
Y(0 ASK+17, ASK+19
>> ZTDESC REMOV+2*
>> ZTDTH REMOV+2*
>> ZTIO REMOV+2*
>> ZTRTN REMOV+2*
>> ZTSAVE("XQHOLD(" REMOV+2*
ZTSK REMOV+3, OUT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All