Routine: XQSMD31

Information

XQSMD31 ;SEA/MJM - Secure Menu Delegation (Cont.) ;01/19/2006

Source file <XQSMD31.m>

Package	Total	Call Graph
VA Fileman	5	%XY^%RCR ^DIC FILE^DICN ^DIE ^DIK
Kernel	2	^%ZTLOAD BUILD^XQSMD2

Package	Total	Caller Graph
Kernel	1	XQSMD3

Name	Comments	DBIA/ICR reference
DELM	;Taskman entry for deleting option sets from multiple users.
CHCK	;See if this person has this option before delegating it.
DOIT	;Set up the parameters for a calls to %XY^%RCR and XQSMD2
ADD	;Add options that have been delegated to this user.
GIVOPT	; GIVE USER MENU SO HE CAN USE THE DELEGATED CAPABILITY
DEL	;Taskman entry for killing off delegated option sets
REM	;Remove delegated options from this delegate.
ZTSK	;Taskman entry for adding and deleting delegated options (XQSMD2)
KILL	;Delete the delegated options of XQU1 and clean up.
OUT

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	DOIT+3, CHCK+1
^TMP($J	DOIT+2!, DOIT+3*!, ADD+2, REM+1, OUT!
^VA(200 - [#200]	DEL+2, DELM+1, ZTSK+2, ADD+1, ADD+2, REM+1, CHCK+1

Name	Field # of Occurrence
%	OUT!
%X	DOIT+1*, KILL+2!
%Y	DOIT+2*, KILL+2!
C	OUT!
DA	KILL+1, DEL+1, DEL+2, DEL+3!, DELM+1, ZTSK+2, ZTSK+4!, REM+1, OUT!
DA(1	KILL+1, DEL+1, DEL+2, DELM+1, ADD+1, ADD+2, REM+1, GIVOPT+3*
DIC	DOIT+2, KILL+2!, ADD+1, GIVOPT+2, GIVOPT+3, OUT!
DIC(0	DOIT+2, ADD+1, GIVOPT+2, GIVOPT+3
DIE	ZTSK+1*, ZTSK+4!
DIK	DEL+1, DEL+3!, DELM+1, REM+1*, OUT!
DINUM	ADD+2*, OUT!
DISYS	OUT!
>> DLAYGO	ADD+1, GIVOPT+3
DR	ZTSK+1*, ZTSK+4!
DUZ	ZTSK+1, CHCK+1
>> I	GIVOPT+3*
>> P	GIVOPT+3*
POP	OUT!
U	DOIT+3, GIVOPT+3
X	DOIT+3, ADD+2, GIVOPT+2, GIVOPT+3, OUT!
XQ	OUT!
XQAL	OUT!
XQD	OUT!
XQDATE	OUT!
XQDEL	KILL+1*, OUT!
XQDOP	ZTSK+2, ZTSK+4!
XQDT	OUT!
XQEND	OUT!
XQH	OUT!
XQHOLD	ZTSK+4!, OUT!
XQHOLD(	DELM+1, ZTSK+2, GIVOPT+3
XQI	DOIT+3, DEL+2, DELM+1*, OUT!
XQJ	DELM+1, ZTSK+2, ZTSK+4!, OUT!
XQK	ZTSK+4!, ADD+2*, OUT!
XQKEY	OUT!
XQL	REM+1*, OUT!
XQLEV	ZTSK+1*, ZTSK+4!, OUT!
XQLK	OUT!
XQM	ZTSK+1, ZTSK+2, ZTSK+4!, ADD+1, REM+1, OUT!
XQMG	OUT!
XQMGR	OUT!
XQN	DOIT+3, ZTSK+4!, ADD+1, ADD+2, REM+1, CHCK+1, OUT!
XQNAM	OUT!
XQNGO	OUT!
XQON	CHCK+1*, OUT!
XQON0	OUT!
XQPERX	DOIT+1, KILL+2!
XQPRO	ZTSK+4!, ADD+2, REM+1, OUT!
XQSMDX	GIVOPT+3*, GIVOPT+4!
XQSTART	OUT!
XQT	OUT!
XQU1	KILL+1, KILL+2!
XQU1L	OUT!
XQU1Y	KILL+1, KILL+2!
XQU2	KILL+2!
XQUF	ZTSK+4!, ADD+1, ADD+2, REM+1, CHCK+1, OUT!
XY	OUT!
Y	DOIT+3, GIVOPT+2, GIVOPT+3, OUT!
>> ZTDESC	KILL+1*
>> ZTDTH	KILL+1*
>> ZTIO	KILL+1*
>> ZTRTN	KILL+1*
>> ZTSAVE("DA("	KILL+1*
ZTSK	KILL+2!, ZTSK+4!