Routine: XQT1

Information

XQT1 ;SEA/MJM - Menu Template Processor ;04/07/99 12:13 [ 04/02/2003 8:29 AM ]

Source file <XQT1.m>

Package	Total	Call Graph
Kernel	5	NOFIND^XQ DVARS^XQ12 EN^XQH XQ^XQOR T^XQUIT
VA Fileman	5	^DDS (,IX)^DIC ^DIE EN1^DIP N^DIP1
Toolkit	1	DO^%XUCI

Package	Total	Caller Graph
Kernel	1	XQT

Name	Comments	DBIA/ICR reference
HELP	;Call the help screen
DIC	;Get FileMan parameters from Option File and do look up
KILL
SET
I1
I2	;
ASK
E1
OUT	;End of the line for this puppy: return to regular menu system
A	;ACTION type option entry point
NXT	;Process the next option, entry/exit actions,start list over, or quit
C	;SCREEN type option entry point
B	;Broker type option. Not allowed in templates.
E	;EDIT type option entry point
I	;INQUIRE type option entry point
L	;OE/RR Limited Option type
O	;OE/RR Protocol (orderables) type option entry point
Q	;OE/RR Protocol Menu type option entry point
P	;PRINT type option entry point
R	;RUN ROUTINE type option entry point
X	;OE/RR Extended Action type option (Subset of Protocol type)
D1

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: % Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Again? Y// " Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Please type 'Y' or 'N', '^' to quit, or '??' for help." Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"XQUIT encountered at option ",$P(XQY0,U,2),!,?5,"template ",XQPT," halted by this encounter. Sorry." Line Location: ASK+3
Function Call: WRITE	Prompt: !?5,"Executing: ",$P(XQY0,U,2) Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"XQUIT encountered at option ",$P(XQY0,U,2),!,?5,"template ",XQPT," halted by this encounter. Sorry." Line Location: A+2
Function Call: WRITE	Prompt: ! Line Location: I2+1
Function Call: WRITE	Prompt: ! Line Location: DIC+1
Routine Call	DIE Line Location: E1+2
Routine Call	DDS Line Location: C+6
Routine Call	DIC Line Location: DIC+2
Routine Call	DIC Line Location: DIC+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	A+1, A+3, C+2, C+3, P+2, P+4, I1+1, I1+3, E1+1, SET , R+1
^UTILITY($J	I2+1!
^XUTL("XQ"	OUT+5
^XUTL("XQT"	XQT1+5*, NXT+1, NXT+3, ASK, ASK+1, ASK+2, ASK+3, OUT+4!
^XWB("SESSION"	OUT+1

Name	Field # of Occurrence
^(	XQT1+5*, NXT+1, ASK, ASK+1, ASK+2, ASK+3, OUT+4!, I2+1!, SET
^("E"	ASK+3
^("H"	ASK+2
^("RPT"	ASK
^("T"	NXT+3, ASK
^("X"	NXT+1
^($J	I2+1*
^(20	A+1
^(25	R+1
^(26	A+3
^(53	E1+1
^(63	I1+1
^(69	P+2

Name	Field # of Occurrence
>> %	ASK, ASK+1, OUT+5, E1+1
>> C	I2+1*
D	KILL!, DIC+2, DIC+3*
D0	KILL!, OUT+6!
D1	KILL!, OUT+6!
DA	KILL!, OUT+6!, C+1, I1, I2+1, E1, DIC+4*
DDSFILE	C+4*, C+6!
DDSFILE(1	C+5*
DDSPAGE	C+2*!
DDSPARM	C+3*!
>> DI	I1*, I2+1
>> DIASKHD	P+4*
DIC	KILL!, OUT+6!, I1, E1!, DIC+1!, D1
DIC("A"	SET+1*
DIE	KILL!, OUT+6!, E1!, E1+2*
DIE("NO^"	E1+1*
DIOBERG	P+5!
>> DIPCRIT	P+4*
DIR	KILL!
DIS	KILL!, P+5!
DIS(	P+2*
DIS(0	P+2
>> DISUPNO	P+4*
DP	P+5!
>> DPP	I2+1*
>> DPP(1	I2+1*
DR	KILL!, OUT+6!
DT	NXT+2
DTIME	NXT+2, ASK
DUZ	NXT+2
DUZ(0	NXT+2
>> FLDS	I1+1, I1+2
IOP	P+3, P+5!, I1+3
J	SET+2!
>> L	I2+1*
>> Q	I2+1*
U	ASK, ASK+1, ASK+3, ASK+4, ASK+5, OUT+5, A+2, A+3, C+2, C+3 , C+4, C+5, P+4, I2+1, E1+2, D1, R+1
>> XQDIC	ASK+1, OUT+5
>> XQH	HELP+1*
XQI	KILL!, OUT+6!, P+2, P+4, SET*, SET+2!
>> XQIOP	P+3
XQOR	Q+1*!
XQOR(1	Q+1*
XQPT	XQT1+5, NXT+1, NXT+3, ASK, ASK+1*, ASK+2, ASK+3, OUT+4!, A+2
>> XQT	ASK+5, OUT+5, Q+1
XQUIT	ASK+3!, OUT+6!, A+2!
>> XQUR	XQT1+5
XQV	KILL!, OUT+6!, SET*
XQW	KILL!, OUT+6!, C+1, P+1, I1, I2+1, E1, DIC+1, SET
>> XQXFLG("ZEBRA"	OUT+1
>> XQY	ASK+1, OUT+5, A+1, A+3, C+2, C+3, P+2, P+4, I1+1, I1+3 , I2+1, E1+1, E1+2, DIC+4, SET, R+1, Q+1
>> XQY0	ASK+1, ASK+3, ASK+4, ASK+5, OUT+5, A+2, A+3
XQZ	KILL!, OUT+6!, C+1, P+1, I1, I2+1, E1, DIC+1, SET, R+1* , R+2
>> Y	I2+1, E1+2, DIC+4*