Routine: XQ11

Information

XQ11 ;SEA/MJM - Menu Utilities ;1/08/2006

Source file <XQ11.m>

Package	Total	Call Graph
VA Fileman	5	%XY^%RCR ^DIC FILE^DICN ^DIE ^DIR
Kernel	3	$$UP^XLFSTR ^XQ11 EN^XQH

Package	Total	Caller Graph
Kernel	1	XQ11

Name	Comments	DBIA/ICR reference
TXT	;Get the new menu text
REP
ASK
COPY	;Make a copy of a menu-type option
FIL	;Get FileMan to put this all in.
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry. You need to be assigned a valid name space to proceed." Line Location: COPY+3
Function Call: WRITE	Prompt: !!,"WARNING ** Option names must be carefully named to avoid system damage!!",!?5,"Do you want more information? Yes// " Line Location: COPY+7
Function Call: READ	Timeout: DTIME Variable: XQUR Line Location: COPY+8
Function Call: READ	Timeout: DTIME Variable: XQUR Line Location: ASK+0
Function Call: WRITE	Prompt: !!?5,"Sorry. Your new option must begin with: " Line Location: ASK+2
Function Call: WRITE	Prompt: $S(XQI=1:"",1:" or "),% Line Location: ASK+2
Function Call: WRITE	Prompt: !!?5,"Sorry, this option name is already in use." Line Location: ASK+5
Function Call: READ	Timeout: DTIME Variable: % Line Location: REP+0
Function Call: WRITE	Prompt: !!?5,"If you answer 'Y' the existing option will be replaced by the one you're creating." Line Location: REP+0
Function Call: WRITE	Prompt: *7,!!?5,"3 to 30 uppercase characters, please." Line Location: REP+2
Function Call: WRITE	Prompt: !!,"The old menu text is ","""",$P(^DIC(19,+XQYO,0),U,2),"""",! Line Location: TXT+1
Function Call: WRITE	Prompt: !!?5,"Please enter 10 to 50 characters describing what the new option does." Line Location: TXT+4
Routine Call	DIE Line Location: FIL+5
Routine Call	DIC Line Location: COPY+5
Routine Call	DIR Line Location: TXT+3 FIL+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	ASK+5, ASK+6, TXT+1, FIL+5*
^VA(200 - [#200]	COPY+2
^XUSEC("XUMGR"	COPY+1
^XUSEC("XUPROGMODE"	COPY+1

Name	Field # of Occurrence
^(	COPY+2, ASK+5
^(0	COPY+2

Name	Field # of Occurrence
%	COPY+2, ASK+1, ASK+2, REP, OUT!
%1	OUT!
%X	FIL+3*, OUT!
%Y	FIL+3*, OUT!
C	OUT!
D	OUT!
D0	OUT!
DA	FIL+5*, OUT!
DDH	OUT!
DI	OUT!
DIC	COPY+5*, OUT!
DIC("A"	COPY+5*
DIC(0	COPY+5, FIL+2
DIE	FIL+5*, OUT!
DIG	OUT!
DIH	OUT!
DIK	OUT!
DIR	TXT+2!, OUT!
DIR("?"	TXT+2, FIL+1
DIR("A"	TXT+2, FIL+1
DIR("B"	FIL+1*
DIR(0	TXT+2, FIL+1
>> DIRUT	TXT+3, FIL+1
DIU	OUT!
DIV	OUT!
DIW	OUT!
DLAYGO	FIL+2*, OUT!
DQ	OUT!
DR	FIL+5*, OUT!
DTIME	COPY+8, ASK, REP
DUZ	COPY+1, COPY+2, ASK+6, FIL+5
DUZ(0	COPY+1
U	COPY+2, ASK, ASK+6, REP, TXT+1
X	TXT+3, FIL+2*, OUT!
XQA	COPY+1*, COPY+3, ASK+1, OUT!
XQD	COPY+2*, COPY+3, ASK+1, ASK+2, OUT!
XQF	ASK+1, ASK+2, ASK+3, ASK+5, ASK+6, REP, REP+1, FIL+2, OUT!
XQF0	ASK+5, ASK+6, REP, OUT!
XQF1	ASK+5, REP, REP+1, OUT!
XQH	COPY+3, COPY+8, OUT!
XQI	COPY+2, ASK+1, ASK+2*, OUT!
XQUP	TXT+5*, FIL+5, OUT!
XQUR	COPY+8, ASK, ASK+1, ASK+5, REP+2, FIL+2, FIL+5, OUT!
XQUR0	TXT+3*, TXT+5, FIL+5, OUT!
XQYN	ASK+5, ASK+6, FIL+2, FIL+3, FIL+5, OUT!
XQYO	COPY+6*, TXT+1, FIL+3, OUT!
Y	COPY+6, FIL+1, FIL+2, OUT!