Routine: XQSMD2

Information

XQSMD2 ; SEA/MJM - Secure MenuMan Delegation (Cont.) ;7/3/91 08:42 ;8/21/92 11:58 AM

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	3	^%ZTLOAD NAME^XQSMD KEYS^XQSMD21
VA FileMan	1	^DIC

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

Package	Total	Caller Graph
Kernel	2	XQSMD1 XQSMD31

Entry Points

Name	Comments	DBIA/ICR reference
BUILD	;Put remaining options into Delgate Options File
ZTLOAD	;Set up Taskman parameters an queue the request
SCAN	;Scan selected options for restrictions and report them
OOO
RTIM	; Identify and display prohibited times for option
RDEV
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	ZTLOAD+3
^DIC	SCAN+4
NAME^XQSMD	BUILD+3
KEYS^XQSMD21	SCAN+6

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: XQ Timeout: DTIME Line Location: BUILD+2
Function Call: WRITE	Prompt: !!!,"Ready to ",$S(XQDOP:"remove these options from",1:"delegate these options to")," these people? Y// " Line Location: BUILD+2
Function Call: WRITE	Prompt: !!,"Fine, you may edit the user or option list, or enter a '^' to quit." Line Location: BUILD+3
Function Call: WRITE	Prompt: !!,"No options found, no action taken.",*7 Line Location: BUILD+4
Function Call: WRITE	Prompt: !!,"Request to ",$S(XQDOP:"remove",1:"add")," delegated options has been queued, task # ",ZTSK,",",!?5,"named: ",XQDESC,"." Line Location: ZTLOAD+4
Function Call: WRITE	Prompt: !,XQN," is out of order with the string: '",$P(XQON0,U,2),"'" Line Location: OOO+0
Function Call: WRITE	Prompt: !,XQN," is PROHIBITED during the times ",$P(^(%XQI,0),U,1),$P(^(0),U,2)," (military time)." Line Location: RTIM+1
Function Call: WRITE	Prompt: !,XQN," is PROHIBITED during the times ",$P(XQON0,U,8)," (military time)." Line Location: RTIM+2
Function Call: WRITE	Prompt: !,XQN," is restricted to run on only certain devices." Line Location: RDEV+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
Routine Call	DIC Line Location: SCAN+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	RTIM+1
^TMP($J	BUILD+4, SCAN+2, LIST+5, LIST+6, OUT!
^VA(200 - [#200]	SCAN+4
^XUSEC("XUMGR"	SCAN+4

Label References

Name	Line Occurrences
BUILD	BUILD+2
LIST	BUILD+1
OOO	SCAN+2
OUT	BUILD+1, BUILD+2, BUILD+4, SCAN+8
RDEV	SCAN+2
RTIM	SCAN+2
WAIT	BUILD+2, SCAN+2, LIST+3, LIST+6

Naked Globals

Name	Field # of Occurrence
^(	SCAN+2, RTIM+1, LIST+6
^(0	RTIM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT!
%A	RTIM+1*!, RTIM+2!
%XQI	RTIM+1*, RTIM+2!
C	OUT+1!
DA	OUT!
DIC	SCAN+3*, OUT!
DIC(0	SCAN+3*
DIK	OUT!
DINUM	OUT!
DISYS	OUT!
DTIME	BUILD+2, WAIT+1
DUZ	XQSMD2+2, SCAN+4
IOF	LIST+1, WAIT+1
IOSL	BUILD+2, SCAN+2, LIST+3, LIST+6
IOST	WAIT+1
POP	OUT!
U	XQSMD2+2*, BUILD+2, SCAN+2, OOO, RTIM+1, RTIM+2, LIST+3, LIST+6, WAIT+1
X	SCAN+4*, OUT!
XQ	BUILD+2, BUILD+3, SCAN+2, LIST+3, LIST+6, LIST+8, WAIT+1*, OUT!
XQAL	OUT!
XQDATE	LIST+7, OUT!
XQDEL	OUT!
XQDESC	ZTLOAD+1*, ZTLOAD+4, OUT!
XQDOP	BUILD+2, ZTLOAD+1, ZTLOAD+4, LIST+4, LIST+7, OUT+1!
XQDT	OUT!
XQDUZ	OUT!
XQEND	OUT!
XQH	OUT!
XQHOLD	OUT!
XQHOLD(	LIST+1, LIST+3
XQI	SCAN+2, SCAN+3, SCAN+4, LIST+3, LIST+6*, OUT!
XQJ	SCAN+4*, OUT!
XQK	OUT!
XQKEY	OUT!
XQKEY(	SCAN+4*
XQKEY(0	SCAN+3*, SCAN+6
XQL	OUT!
XQLEV	OUT!
XQLK	OUT!
XQLK(	SCAN+2*, SCAN+4
XQM	BUILD+1, LIST+1, LIST+3*, OUT!
XQMG	XQSMD2+2*, OUT!
XQMGR	ZTLOAD+1, LIST+7, OUT!
XQN	BUILD+1, SCAN+1, SCAN+2, SCAN+3, SCAN+4, OOO, RTIM+1, RTIM+2, RDEV, LIST+5 , LIST+6*, OUT!
XQNAM	OUT!
XQNGO	XQSMD2+2*, OUT!
>> XQON	RTIM+1*
XQON0	SCAN+2*, OOO, RTIM+2, OUT!
XQPRO	OUT!
XQSTART	OUT!
XQT	LIST+1, LIST+3, LIST+5*, OUT!
XQU1L	OUT+1!
XQUF	OUT!
XY	OUT!
Y	SCAN+4, OUT!
ZTDESC	ZTLOAD+1*, OUT+1!
ZTDTH	ZTLOAD+1*, OUT+1!
ZTIO	ZTLOAD+1*, OUT+1!
ZTRTN	ZTLOAD+1*, OUT+1!
ZTSAVE	OUT+1!
ZTSAVE("XQDOP"	ZTLOAD+2*
ZTSAVE("XQHOLD("	ZTLOAD+2*
ZTSAVE("XQLEV"	ZTLOAD+2*
ZTSAVE("XQPRO"	ZTLOAD+2*
ZTSAVE("^TMP($J,"	ZTLOAD+2*
ZTSK	ZTLOAD+4, OUT!

Customize PDF page

Package: Kernel