Routine: XQ12

Package	Total	Call Graph
Kernel	13	HOME^%ZIS GETENV^%ZOSV $$HDIFF^XLFDT ASK^XQ PAUSE^XQ6 (,MES,SET)^XQCHK ^XQDATE EN^XQOR PM^XQUIT $$DTIME^XUP $$PROD^XUPROD (,H)^XUS ^XUSCLEAN
VA FileMan	2	YN^DICN ^DIE
MailMan	1	CHK^XM
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Kernel	12	XQ XQ1 XQ75 XQLOCK XQOR1 XQT1 XUCONTINUE XUHALT XUS5 XUSRB XUSRB5 ^DIC(19
Toolkit	1	XURELOG

Entry Points

Name	Comments	DBIA/ICR reference
DVARS	;Set up (or reset) necessary variables. From ^XQ1 and ^XQT1.
INIT	;Entry for new logon, called from the top of ^XQ and ^XQ1
UI	;Entry for TaskMan (DUZ may = 0), from ZTSK^XQ1
ABT	;WARNING: XQXFLG is also used by OERR test sites.	ICR #860 Status: Retired Usage: Private
CMP
MERGE	;Merge in the menu trees that this user needs, start with Primary Menu
MGPXU	;Check for XUCOMMAND
MGSEC	;Now the Secondary Menu trees
OLDF(X)	;See if this flag is au current, if not KILL it
LOGOPT	;Option audit
XPRMP
CON	;Continue option logic. Enter from ASK^XQ on timeout.
HALT	;
REST
SS	;Search Secondaries for a particular option.
ABLOG
ABLOG1
STARTUP()	; P593 Run XU USER START-UP option
SAMPLE	; P593 sample start-up option

External References

Name	Field # of Occurrence
HOME^%ZIS	INIT+9
GETENV^%ZOSV	LOGOPT+6
YN^DICN	SAMPLE+9
^DIE	SAMPLE+5
$$HDIFF^XLFDT	OLDF+6
CHK^XM	XPRMP
$$GET^XPAR	DVARS+9
ASK^XQ	XPRMP+1, CON+3
PAUSE^XQ6	UI+7
^XQCHK	UI+5
MES^XQCHK	UI+7
SET^XQCHK	INIT+19
^XQDATE	DVARS+3, UI+1
EN^XQOR	STARTUP+4
PM^XQUIT	UI+11
$$DTIME^XUP	DVARS+6
$$PROD^XUPROD	DVARS+8
^XUS	REST
H^XUS	HALT+1
^XUSCLEAN	UI+11, REST

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: 10 Line Location: XPRMP+0
Function Call: WRITE	Prompt: ! Line Location: XPRMP+1
Function Call: READ	Variable: XQUR Timeout: 20 Line Location: CON+1
Function Call: WRITE	Prompt: !!," If you enter 'Y' or 'RETURN' you will halt and continue here next time",!," you logon to the computer.",!," If you enter 'N' you will resume processing where you were." Line Location: CON+2
Function Call: WRITE	Prompt: ! Line Location: CON+3
Function Call: WRITE	Prompt: !!,$P("HMM^OK^ALL RIGHT^WELL CERTAINLY^FINE","^",$R(5)+1),"... ",$P("SEE YOU LATER^I'LL BE READY WHEN YOU ARE.^HURRY BACK!^HAVE A GOOD LUNCH BREAK!","^",$R(3)+X+1) Line Location: CON+6
Function Call: WRITE	Prompt: !!," Sample: Testing XU USER START-UP option for patch XU8.0593" Line Location: SAMPLE+3
Function Call: WRITE	Prompt: !!," Sample: Prompt to edit fields in NEW PERSON file (#200)",! Line Location: SAMPLE+4
Function Call: WRITE	Prompt: !!," Sample: Yes(Y) or No(N) prompt." Line Location: SAMPLE+6
Function Call: WRITE	Prompt: !," Entering Y will set the variable XUSQUIT to 1 and end your session." Line Location: SAMPLE+7
Function Call: WRITE	Prompt: !," Entering anything else (including ^ or <CR>) will continue." Line Location: SAMPLE+8
Function Call: WRITE	Prompt: !," Do you want to end your session now" Line Location: SAMPLE+9
Function Call: WRITE	Prompt: !!," Sample: End of sample script." Line Location: SAMPLE+10
Routine Call	%ZIS Line Location: INIT+9
Routine Call	DIE Line Location: SAMPLE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DVARS+7, INIT+10
^DIC(19 - [#19]	UI+4, UI+10, MERGE+1, MERGE+9, MGPXU+1, MGPXU+9, MGSEC+4, MGSEC+11, OLDF+2
^DISV(	STARTUP+3, STARTUP+5*
^VA(200 - [#200]	DVARS+2, DVARS+7, INIT+1, INIT+3, INIT+8, INIT+12, INIT+31, MGSEC+2, CON+4*, SS+1 , SS+2
^XTV(8989.3 - [#8989.3]	DVARS+4, DVARS+7, ABT+2, CMP, ABLOG, ABLOG1, ABLOG1+1
^XUSEC(19 - [#19.081]	LOGOPT+3, LOGOPT+5, LOGOPT+6
^XUTL("XQ"	DVARS+1, DVARS+5, INIT+8, INIT+20, UI+1, UI+4, XPRMP+1, CON+3, CON+4
^XUTL("XQO"	MERGE+2, MERGE+3, MERGE+5, MERGE+6, MERGE+8!, MERGE+9, MERGE+11, MERGE+12!, MGPXU+2, MGPXU+3 , MGPXU+5, MGPXU+6, MGPXU+8!, MGPXU+9, MGPXU+11, MGPXU+12!, MGSEC+4, MGSEC+5, MGSEC+6, MGSEC+7* , MGSEC+8, MGSEC+9, MGSEC+10!, MGSEC+11*, MGSEC+13, MGSEC+14!, OLDF+5, OLDF+7!, CON+4, SS+2

Label References

Name	Line Occurrences
$$STARTUP	INIT+24
ABLOG1	ABLOG
CON	CON+2
DVARS	UI+1
HALT	INIT+24, XPRMP+2
OLDF	MERGE+2, MGPXU+2, MGSEC+5
REST	XPRMP+2
SS	CON+4

Naked Globals

Name	Field # of Occurrence
^(	XPRMP+1, CON+3, SS+2, ABLOG, ABLOG1, ABLOG1+1
^("DUZ"	UI+4*
^("IOS"	DVARS+5
^("T"	INIT+20, XPRMP+1
^("XQM"	UI+4*, CON+4
^("XQW"	INIT+8*
^("XUCP"	CMP
^("XUS"	DVARS+7
^(0	DVARS+2, DVARS+4, INIT+3, LOGOPT+5, ABLOG1+1
^(20	UI+10
^(200	DVARS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DVARS+3, INIT+8, INIT+10, INIT+12, INIT+13, UI+1, CMP+1!, MGSEC+1~, MGSEC+2, MGSEC+3 , LOGOPT+2, LOGOPT+3, LOGOPT+5, SS+2, ABLOG, ABLOG+1!, ABLOG1, SAMPLE+9
%1	MGSEC+1~, MGSEC+3, MGSEC+4, MGSEC+5, MGSEC+6, MGSEC+7, MGSEC+8, MGSEC+9, MGSEC+10, MGSEC+11 , MGSEC+13, MGSEC+14, ABLOG, ABLOG+1!, ABLOG1*
%2	ABLOG, ABLOG+1!, ABLOG1, ABLOG1+1
%3	ABLOG*, ABLOG+1!
%4	ABLOG+1!, ABLOG1, ABLOG1+1
%Y	UI+1, CMP+1!
DA	SAMPLE+1~, SAMPLE+2, SAMPLE+5
DIC	INIT+1!, STARTUP+2*, STARTUP+6!
>> DIE	SAMPLE+5*
>> DILOCKTM	MERGE+5, MGPXU+5, MGSEC+8
>> DR	SAMPLE+5*
DT	DVARS+3*, INIT+35, LOGOPT+2
DTIME	DVARS+6*
DUZ	DVARS+1*, DVARS+2, DVARS+6, DVARS+7, INIT+1, INIT+3, INIT+8, INIT+12, INIT+31, UI+4 , MGSEC+2, LOGOPT+6, CON+4, SS+1, SS+2, STARTUP+3, STARTUP+5, SAMPLE+2, SAMPLE+5
DUZ("AG"	DVARS+4*
DUZ("AUTO"	DVARS+7*
DUZ("TEST"	DVARS+8, DVARS+9, DVARS+10, XPRMP+1, CON+3
DUZ(0	DVARS+2*
>> I	DVARS+7, LOGOPT+4, LOGOPT+5
IO	INIT+9, INIT+10
>> IOS	DVARS+5*, DVARS+6
IOST	INIT+24
>> J	LOGOPT+4*
K1	LOGOPT+4*, LOGOPT+7!
K2	LOGOPT+4*, LOGOPT+7!
PGM	CMP+1!
U	DVARS+1, DVARS+2, DVARS+4, DVARS+7, INIT+3, INIT+13, INIT+33, UI+1, UI+10, ABT+1 , ABT+2, CMP, LOGOPT+3, LOGOPT+4, LOGOPT+5, LOGOPT+6, XPRMP+1, CON+3, SS+1, ABLOG , ABLOG1, ABLOG1+1
X	CMP+1!, OLDF~, OLDF+5, OLDF+7, XPRMP, XPRMP+1, CON+4, CON+5, CON+6, SS+2 , STARTUP+2, STARTUP+6!
>> XQAA	XPRMP+1, CON+3
>> XQAUDIT	LOGOPT+4
XQCY	UI+5*, CMP+1!
>> XQDIC	INIT+21, UI+2, XPRMP+1, CON+3
>> XQI	SS+2*
>> XQJS	INIT+35*, UI+4
>> XQL	UI+6*
XQLAST	INIT+33*, INIT+34, INIT+35, INIT+36!
>> XQLTL	LOGOPT+1, LOGOPT+3, LOGOPT+5*, LOGOPT+6
>> XQM	CON+4*
>> XQM3	UI+10*
>> XQNOHALT	REST*
XQPM	INIT+13*, INIT+14, INIT+15, CMP+1!
>> XQPRMN	UI+6*
>> XQPSM	INIT+21, UI+3, UI+4, MERGE+1, MERGE+2, MERGE+3, MERGE+5, MERGE+6, MERGE+8, MERGE+9 , MERGE+11, MERGE+12, XPRMP+1, CON+3, CON+4, SS+2*
XQPW	INIT+13*, INIT+14, INIT+16, CMP+1!
XQPXU	CMP+1!, OLDF+2, OLDF+3, OLDF+6
XQSD	INIT+13*, INIT+15, CMP+1!
>> XQUIT	UI+11
>> XQUR	INIT+35, XPRMP, XPRMP+2, CON+1, CON+2, CON+3*
>> XQUSER	INIT+3*
>> XQXFLG	ABT+2, CMP
>> XQXFLG("LLOG"	INIT+32, INIT+33, INIT+38!
>> XQY	INIT+7, INIT+10, INIT+11, INIT+14, INIT+15, INIT+16, INIT+20, INIT+21, UI+2, UI+3 , UI+4, UI+5, UI+8, UI+10, UI+11, LOGOPT+4, LOGOPT+6, XPRMP+1, CON+3*, ABLOG1+1
>> XQY0	INIT+20, UI+4, UI+10, LOGOPT+4, XPRMP+1, CON+3*, ABLOG, ABLOG1
XUDISV	STARTUP+1~, STARTUP+3*, STARTUP+5
XUSER	STARTUP+1~
XUSQUIT	INIT+24, STARTUP+1~, STARTUP+2, STARTUP+7, SAMPLE+9*
>> XUVOL	LOGOPT+6*
Y	INIT+1!, OLDF+4~, OLDF+5, OLDF+6, LOGOPT+6, XPRMP+1, CON+3, CON+4, SS+2*
Z	OLDF+4~, OLDF+6*, OLDF+7
>> ZTQUEUED	UI+4, UI+7, UI+11

Customize PDF page

Package: Kernel

Routine: XQ12

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: