Routine: XQSMD

Information

XQSMD ; SEA/MJM - Secure MenuMan Delegation ;7/3/91 08:39 ;6/4/92 12:53 PM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	6	^%ZIS ^XQDATE EN^XQH ^XQSMD1 $$DTIME^XUP H^XUS
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: 5

Package	Total	Caller Graph
Kernel	3	XQSMD ADD XQSMD REMOVE XQSMD2
Electronic Health Modernization	2	EHM-00806 EHM-00815

Entry Points

Name	Comments	DBIA/ICR reference
EN1
EN2
INIT	;
MGR	;Find out who's delegating here.
USER	;Get the duz of the user being delegated to.
NAME
DONE
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
^%ZIS	INIT+3
^DIC	NAME+3, LSTFIL+1
^XQDATE	INIT+2
EN^XQH	NAME+1
^XQSMD1	DONE+2
$$DTIME^XUP	INIT+4
H^XUS	MGR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* DEVICE ERROR *",!,"-delegation software exiting-" Line Location: INIT+3
Function Call: WRITE	Prompt: !,"You have not been given the authority to delegate options. See your Site Manager." Line Location: MGR+4
Function Call: WRITE	Prompt: !!,"Enter the name(s) of your delegate(s), one at a time" Line Location: USER+2
Function Call: READ	Variable: XQ Timeout: DTIME Line Location: NAME+0
Function Call: WRITE	Prompt: !!,"Enter a name, a name preceded by a minus, a '^' to quit, or '??' for help." Line Location: NAME+0
Function Call: WRITE	Prompt: !!," No such person in the User File " Line Location: NAME+3
Function Call: WRITE	Prompt: !,"It is illogical to delegate to oneself." Line Location: NAME+4
Function Call: WRITE	Prompt: !,"Sorry, this person has no verify code node in the user file." Line Location: NAME+5
Function Call: WRITE	Prompt: !,"Sorry, this person is not an active user." Line Location: NAME+6
Function Call: WRITE	Prompt: !,"Delegation level error. You can not modify the options of ",$P(Y,U,2) Line Location: NAME+8
Function Call: WRITE	Prompt: !!,"Enter a delegate's name or '^' to quit." Line Location: DONE+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	%ZIS Line Location: INIT+3
Routine Call	DIC Line Location: NAME+3 LSTFIL+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	INIT+1!*, USER+1!, LIST+5, LIST+6, OUT!
^VA(200 - [#200]	MGR+2, MGR+4, NAME+5, NAME+6, NAME+8
^XUSEC("XUMGR"	MGR+3
^XUTL("XQ"	MGR+1

Label References

Name	Line Occurrences
DONE	NAME
INIT	EN1
LIST	NAME+1, LSTFIL+1
LSTFIL	NAME+1
NAME	NAME, NAME+1, NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, NAME+8, NAME+9, DONE
OUT	INIT+3, MGR+4, NAME
WAIT	LIST+6

Naked Globals

Name	Field # of Occurrence
^(	LIST+6
^("ZN"	USER+1!
^(19	MGR+4, NAME+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT!
>> %Y	INIT+2
DIC	NAME+3, LSTFIL+1!, OUT!
DIC(0	NAME+3, LSTFIL+1, OUT!
DTIME	INIT+4*, NAME, WAIT+1
DUZ	INIT+4, MGR+1, MGR+2, MGR+3, MGR+4, NAME+4
DUZ(0	MGR+3
IOF	INIT+3, LIST+1, WAIT+1
IOM	INIT+3
>> IOP	INIT+3*
>> IOS	INIT+4
IOSL	INIT+3, LIST+6
IOST	WAIT+1
POP	INIT+3, OUT!
U	INIT+1*, MGR+2, MGR+5, NAME, NAME+6, NAME+8, NAME+9, LIST+6, WAIT+1
X	NAME+3, LSTFIL+1, OUT!
XQ	NAME, NAME+1, NAME+2, NAME+3, LIST+6, WAIT+1*, OUT!
XQAL	OUT!
XQD	OUT!
XQDATE	INIT+2*, LIST+7, OUT!
XQDEL	INIT+1, NAME+2, NAME+7*, OUT!
>> XQDOP	EN1, EN2, LIST+4, LIST+7
XQDT	OUT!
XQDUZ	MGR+1*, OUT!
XQEND	OUT!
XQH	NAME+1*, OUT!
XQHOLD	USER+1!, OUT!
XQHOLD(	NAME+7!, NAME+9*, DONE, LIST+1, LIST+3
XQHOLD(0	INIT+1, USER+1
XQI	LIST+3, LIST+6, OUT!
XQJ	OUT!
XQK	USER+1*, OUT!
XQKEY	USER+1!, OUT!
XQKEY(0	USER+1*
XQL	OUT!
XQLEV	MGR+3, MGR+5, NAME+8, OUT!
XQLK	USER+1!, OUT!
XQLVL	NAME+8*, OUT!
XQM	LIST+1, LIST+3, OUT!
XQMG	OUT!
XQMGR	MGR+2*, LIST+7, OUT!
XQN	DONE, LIST+5, LIST+6*, OUT!
XQNAM	NAME+9*, OUT!
XQNM	OUT!
XQON	OUT!
XQON0	MGR+4*, MGR+5, OUT!
XQPRO	INIT+1, MGR+3, MGR+4, MGR+5, NAME+8, LSTFIL+1, OUT!
XQSTART	OUT!
XQT	INIT+1, USER+1, NAME+9, LIST+1, LIST+3, LIST+5, OUT!
XQUF	INIT+1, NAME, DONE*, LSTFIL+1, OUT!
XY	OUT!
Y	NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, NAME+8, NAME+9, OUT!

Customize PDF page

Package: Kernel