Routine: XQSMD1

Information

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

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XQSMD

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

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	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
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+3, 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!

Customize PDF page

Package: Kernel