Routine: XUS3A

Package

Total

Call Graph

$$PROGMODE^%ZOSV C^XUSCLEAN

GO^%XUCI

^DIR

Package	Total	Caller Graph
Kernel	1	XU SWITCH UCI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Switch UCI's option.",! Line Location: SWITCH+1
Function Call: WRITE	Prompt: !,$C(7),"No switching UCI's in Programmer Mode." Line Location: SWITCH+2
Function Call: WRITE	Prompt: !,"Sorry but you do not have any UCI's that you are allowed to" Line Location: SWITCH+4
Function Call: WRITE	Prompt: !,"switch to." Line Location: SWITCH+5
Function Call: WRITE	Prompt: !,"UCI not found!" Line Location: BAD+0
Function Call: WRITE	Prompt: ! Line Location: SHOW+0
Function Call: WRITE	Prompt: !,"Enter ^ to return to your current menu, or select from:" Line Location: SHOW+1
Function Call: WRITE	Prompt: !,?5 Line Location: SHOW+3
Function Call: WRITE	Prompt: I Line Location: SHOW+4
Function Call: WRITE	Prompt: ?10,X Line Location: SHOW+5
Function Call: WRITE	Prompt: " -- Not currently a valid UCI!",$C(7) Line Location: SHOW+5
Routine Call	DIR Line Location: UCI+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF(	PM
^%ZOSF("UCICHECK"	SAME+1, SHOW+5
^TMP($J	NXT+1!
^UTILITY($J	NXT+1!
^VA(200 - [#200]	SWITCH+3, UCI+3, SAME+2, SHOW, SHOW+2, SHOW+3
^XUTL("XQ"	NXT+1!
^XUTL($J	NXT+1!

Name	Field # of Occurrence
>> %	SAME+5*
%UCI	SWITCH+7~, SAME+1*, SAME+3
DA	SAME+2*, NXT+3!
DEF	SWITCH+7~, SWITCH+8*, UCI+5, SAME+4
DIR	SWITCH+7~, UCI+2!
DIR("?"	UCI+1*
DIR("??"	UCI*
DIR("A"	UCI*
DIR(0	UCI*
>> DTOUT	UCI+2
>> DUOUT	UCI+2
DUZ	SWITCH+3, UCI+3, SAME+2, SHOW, SHOW+2, SHOW+3
>> GO	SAME+2, SAME+3, SAME+5
>> I	SHOW, SHOW+2, SHOW+3, SHOW+4
PGM	SWITCH+7~, UCI+4, UCI+5, SAME+5
U	UCI+3, SAME+3, SHOW+3
>> UC	UCI+3, SHOW, SHOW+3*, SHOW+4, SHOW+6
X	SWITCH+7~, UCI+2, UCI+4, SAME, SAME+1, SAME+3, SHOW, SHOW+3, SHOW+5, PM*
>> XUA	SAME+3, SAME+4, SAME+5
Y	SWITCH+7~, UCI+3, UCI+4, SAME+1, SAME+2, SAME+3, SHOW+5

Information

Name	Comments	DBIA/ICR reference
NXT	;Here we go.
SHOW
SWITCH	;Allow users that have the UCI field in there NP file to switch UCI's.
SAME
BAD
UCI
PM