Routine: XQT3

Package	Total	Call Graph
Kernel	3	$$UP^XLFSTR EN^XQH EN^XQT2
VA Fileman	3	FILE^DICN ^DIE ^DIK

Package	Total	Caller Graph
Kernel	1	XQT2

Entry Points

Name	Comments	DBIA/ICR reference
RPT	;Set the default for repeating the template
STORE	;See if this is what the User wants and if so store it
NAM	;Get a legitimate name for this template and file it.
FIL	;File this template in the New Person File
O1
OUT	;Clean up, restore XQY and quit

External References

Name	Field # of Occurrence
FILE^DICN	FIL+5
^DIE	FIL+8
^DIK	FIL+4
$$UP^XLFSTR	NAM+7
EN^XQH	NAM+2, RPT+3
EN^XQT2	STORE+4, STORE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"You have chosen the following options in this order:",!! Line Location: STORE+1
Function Call: WRITE	Prompt: !,$P(XQLIST(XQN),U,4)," (",$P(XQLIST(XQN),U,3),")" Line Location: STORE+2
Function Call: READ	Timeout: DTIME Variable: % Line Location: STORE+3
Function Call: WRITE	Prompt: !!,"Are we in agreement so far? [Y/N] Y// " Line Location: STORE+3
Function Call: WRITE	Prompt: !!,"Please answer 'Y' or 'N'",*7 Line Location: STORE+3
Function Call: WRITE	Prompt: !!,"OK, lets take it from the top...." Line Location: STORE+4
Function Call: WRITE	Prompt: @IOF,!!,"Fine. Since all menu-type options will be processed in the background",!," you will only be asked to respond to the following:",!! Line Location: STORE+5
Function Call: WRITE	Prompt: !,$P(XQLIST(XQN),U,4)," (",$P(XQLIST(XQN),U,3),")" Line Location: STORE+6
Function Call: READ	Timeout: DTIME Variable: % Line Location: STORE+7
Function Call: WRITE	Prompt: !!,"Are these the functions you want when you invoke this template? [Y/N] Y// " Line Location: STORE+7
Function Call: WRITE	Prompt: !!,*7,"Please answer 'Y' or 'N'" Line Location: STORE+7
Function Call: WRITE	Prompt: !!,"OK, lets take it from the top...." Line Location: STORE+8
Function Call: READ	Timeout: DTIME Variable: XQUR Line Location: NAM+1
Function Call: READ	Timeout: DTIME Variable: XQUR Line Location: NAM+3
Function Call: WRITE	Prompt: *7," ??" Line Location: NAM+4
Function Call: WRITE	Prompt: *7,!!,"Six (6) characters or less, please." Line Location: NAM+5
Function Call: WRITE	Prompt: !!,"A six character (or less) name like 'LAB', or 'E1',",!," something you will remember." Line Location: NAM+6
Function Call: WRITE	Prompt: !!,"'",XQUR,"' it is. In the future you will start this template by typing '[",XQUR,"'" Line Location: NAM+9
Function Call: READ	Timeout: DTIME Variable: % Line Location: RPT+1
Function Call: WRITE	Prompt: !!,?5,"Please answer Yes or No." Line Location: RPT+2
Function Call: READ	Timeout: 30 Variable: % Line Location: FIL+4
Function Call: WRITE	Prompt: !,"You already have a template called ",X,". Do you want to replace it? N// " Line Location: FIL+4
Routine Call	DIE Line Location: FIL+8

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	FIL+3, FIL+4, FIL+5, FIL+6
^XUTL("XQ"	OUT+3

Name	Field # of Occurrence
^(	FIL+4, OUT+3
^(0	FIL+3*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	STORE+3, STORE+4, STORE+7, STORE+8, RPT+1, RPT+2, RPT+3, RPT+4, FIL+4, O1!
D0	O1!
DA	FIL+1!, FIL+2, FIL+4, FIL+6*, O1!
DA(1	FIL+2*
DI	O1!
DIC	FIL+1!, FIL+2*, FIL+4, FIL+7, O1!
DIC(0	FIL+2*
DIE	FIL+1!, FIL+7*
>> DIK	FIL+4*
DQ	O1!
DR	FIL+1!, FIL+8*, O1!
DTIME	STORE+3, STORE+7, NAM+1, NAM+3, RPT+1
DUZ	FIL+2, FIL+3, FIL+4, FIL+5, FIL+6
IOF	STORE+1, STORE+5
U	STORE+2, STORE+3, STORE+6, STORE+7, NAM+1, NAM+3, RPT+1, RPT+8, RPT+9, FIL+2* , FIL+4, OUT+2, OUT+3
>> X	FIL+2, FIL+4, FIL+5, FIL+6
XQA	O1!
XQAA	O1!
>> XQDIC	OUT+2, OUT+3
XQDR	O1!
XQDR(	RPT+9*, FIL+8
XQDR(0	RPT+8*
XQFLAG	O1+1!
XQFLG	O1+1!
XQH	NAM+2, RPT+3, O1!
XQH1	O1!
XQH2	O1!
XQI	STORE+2, STORE+6, RPT+9, FIL+8, O1!
XQJ	RPT+8, RPT+9, FIL+8, O1!
XQK	O1!
XQL	O1+1!
XQLIST	O1!
XQLIST(	STORE+2, STORE+6, RPT+9
XQLK	O1!
XQLN	O1+1!
XQN	STORE+2, STORE+6, O1!
XQNM	O1!
XQOO	O1!
XQOPN	RPT+9, O1!
XQRD	O1!
XQRL	O1!
XQSAV	O1!
XQSAVE	O1+1!
XQSN	O1!
XQT	O1+1!
XQT1	O1+1!
XQTF	O1!
XQTF1	O1!
XQTM	O1!
XQTRPT	RPT+4*, RPT+8, O1!
XQTSAV	O1+1!
XQTSV	OUT+2, OUT+3, OUT+4!
XQTT	O1!
XQTXT	O1!
XQUP	NAM+7*, NAM+8, O1+1!
XQUR	NAM+1, NAM+2, NAM+3, NAM+4, NAM+5, NAM+6, NAM+7, NAM+8*, NAM+9, RPT+1 , FIL+2, FIL+4, O1!
XQX	O1+1!
>> XQY	OUT+2, OUT+3
>> XQY0	OUT+2, OUT+3

Customize PDF page

Package: Kernel

Routine: XQT3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
NAM	NAM+2, NAM+3, NAM+4, NAM+5, NAM+6, FIL+4
O1	STORE+4, STORE+8
OUT	STORE+3, STORE+7, NAM+1, NAM+3, RPT+1, FIL+4
RPT	RPT+3
STORE	STORE+3, STORE+7