Routine: XQSMD3

Package	Total	Call Graph
Kernel	3	^%ZIS EN^XQH ^XQSMD31
VA Fileman	2	^%DT ^DIC

Entry Points

Name	Comments	DBIA/ICR reference
USER2	;Get the name of the person to whom these options will be transfered
USER1	;Find the user who's delegated options will be transfered.
INIT
ASK	;See if we all understand eachother.
RPLC
OUT

External References

Name	Field # of Occurrence
^%DT	INIT+3
^%ZIS	INIT+1
^DIC	INIT+4, USER1+2, USER1+4, USER2+2, USER2+4
EN^XQH	USER1+3, RPLC+1, USER2+3, ASK+3
^XQSMD31	ASK+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* DEVICE ERROR *",!,?5,"-exiting-" Line Location: INIT+1
Function Call: READ	Prompt: !! Timeout: ",XQ:DTIME Variable: "Please enter the user currently holding the options Line Location: USER1+1
Function Call: WRITE	Prompt: !!,"Enter delegate's name,'^' to quit,'??' for User list, or '???' for help.",! Line Location: USER1+1
Function Call: WRITE	Prompt: !!,"Not a know user. Try again or enter a '^' to quit." Line Location: USER1+4
Function Call: WRITE	Prompt: !!,Y(0,0)," has not been delegated any menu options to transfer." Line Location: USER1+5
Function Call: WRITE	Prompt: !!,"You may not, in this case, remove the options of ",XQU1 Line Location: USER1+7
Function Call: READ	Timeout: DTIME Variable: XQ Line Location: RPLC+0
Function Call: WRITE	Prompt: !!,"Should ALL delegated options be removed from ",XQU1,!," after they have been transferred? N// " Line Location: RPLC+0
Function Call: WRITE	Prompt: !!,"Please enter 'Y' or 'N', '^' to quit, or '??' for help.",! Line Location: RPLC+0
Function Call: WRITE	Prompt: !,"Please answer 'Y' or 'N' " Line Location: RPLC+2
Function Call: READ	Timeout: DTIME Variable: XQ Line Location: USER2+1
Function Call: WRITE	Prompt: !!,"Please enter the user who will get the same options as ",XQU1,!," now has: " Line Location: USER2+1
Function Call: WRITE	Prompt: !!,"Enter User's name,'^' to quit,'??' for User list, or '???'for help.",! Line Location: USER2+1
Function Call: WRITE	Prompt: !!,"Sorry, this person is not in the User File. Try again or enter '^' to quit." Line Location: USER2+4
Function Call: WRITE	Prompt: !!,"Sorry, this person is not a current user. Try again or enter '^' to quit." Line Location: USER2+5
Function Call: WRITE	Prompt: !!,"Sorry, this is illogical: it's the same person!" Line Location: USER2+7
Function Call: WRITE	Prompt: !!,"Sorry, you can't be your own delegate." Line Location: USER2+8
Function Call: WRITE	Prompt: !!!,"You want to assign the options currently held by ",XQU1,!,?5,"to ",XQU2 Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: XQ Line Location: ASK+3
Function Call: WRITE	Prompt: !!,*7,"Please answer 'Y' or 'N'." Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Request to remove delegated options from ",XQU1," will be queued. " Line Location: ASK+5
Routine Call	DIC Line Location: INIT+4 USER1+2 USER1+4 USER2+2 USER2+4
Routine Call	%ZIS Line Location: INIT+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INIT+3
^TMP($J	OUT!
^VA(200 - [#200]	INIT+5, USER1+5, USER1+7, USER2+5
^XUSEC("XUMGR"	INIT

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OUT!
%DT	INIT+3*!
C	OUT!
DA	OUT!
DIC	INIT+4!, USER1+2!, USER1+4, USER2+2!, USER2+4*, OUT!
DIC(0	INIT+4, USER1+2, USER1+4, USER2+2, USER2+4*
DIK	OUT!
DINUM	OUT!
DISYS	OUT!
DTIME	INIT+2*, USER1+1, RPLC, USER2+1, ASK+3
DUZ	INIT, INIT+4, INIT+5, USER2+8
DUZ(0	INIT
IO	INIT+1
IOF	INIT+1
IOM	INIT+1
>> IOP	INIT+1*
IOSL	INIT+1
POP	INIT+1, OUT!
U	INIT*, INIT+5, USER1+1, USER1+7, RPLC, USER2+1, USER2+5, ASK+3
X	INIT+3, INIT+4, USER1+2, USER1+4, USER2+2, USER2+4, OUT!
XQ	USER1+1, USER1+2, USER1+3, USER1+4, RPLC, RPLC+1, RPLC+2, RPLC+3, USER2+1, USER2+2 , USER2+3, USER2+4, ASK+3, ASK+4, OUT!
XQAL	OUT!
XQD	OUT!
XQDATE	INIT+3*, OUT!
XQDEL	INIT, USER1+7, RPLC+3*, ASK+2, ASK+5, OUT!
XQDOP	INIT*, OUT!
XQDT	INIT+3*, OUT!
XQDUZ	OUT!
XQEND	OUT!
XQH	USER1+3, RPLC+1, USER2+3, ASK+3, OUT!
XQHOLD	OUT!
XQHOLD(	USER2+6*
XQI	OUT!
XQJ	OUT!
XQK	OUT!
XQKEY	OUT!
XQL	OUT!
XQLEV	INIT, INIT+5, USER1+7, OUT!
XQLK	OUT!
XQM	OUT!
XQMG	OUT!
XQMGR	INIT+4*, OUT!
XQN	OUT!
XQNAM	OUT!
XQNGO	INIT*, OUT!
XQON	OUT!
XQON0	OUT!
>> XQPERX	USER1+6*
XQPRO	INIT*, INIT+5, OUT!
XQSTART	OUT!
XQT	OUT!
>> XQU1	USER1+6*, USER1+7, RPLC, USER2+1, ASK+1, ASK+2, ASK+5
>> XQU1L	USER1+7*
>> XQU1Y	USER1+6*, USER1+7, USER2+7
>> XQU2	USER2+6*, ASK+1
XQUF	OUT!
XY	OUT!
Y	INIT+3, INIT+4, USER1+4, USER1+5, USER1+6, USER2+4, USER2+5, USER2+6, USER2+7, USER2+8 , OUT!
Y(0	INIT+4, USER1+5, USER1+6, USER2+6

Customize PDF page

Package: Kernel

Routine: XQSMD3

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ASK	ASK+3, ASK+4
INIT	ASK+3
OUT	INIT+1, INIT+4, INIT+5, USER1+1, RPLC, USER2+1, USER2+8, ASK+3
RPLC	RPLC, RPLC+1, RPLC+2
USER1	USER1+1, USER1+2, USER1+3, USER1+4, USER1+5
USER2	USER1+7, USER2+1, USER2+2, USER2+3, USER2+4, USER2+5, USER2+7