Routine: XTER1A

Name	Comments	DBIA/ICR reference
INTRACT	;
DQPRNT
MESSG	;Global to Message
PRNT	;Send to Printer
T2
T3
WRITER	;Write global
LIST	;
TWO	;Print two of each error
ONE	;Print one of each error
LST
LISTN	;Sort errors
EXIT
T1
MESG	;Send to a Mail message
ADD(STR)	;Add STR to TMP global
MORE

External References

Name	Field # of Occurrence
YMD^%DTC	T1+6
^%ZIS	PRNT+2
HOME^%ZIS	PRNT+2, PRNT+4
^%ZISC	LIST+12, DQPRNT+1
^%ZTLOAD	PRNT+4
^DIR	MORE+4
EN^DIWE	MESG+3
$$HTFM^XLFDT	ONE+2
^XMD	MESSG+3
XTERR^XTER	MESG+7, PRNT+3, DQPRNT+2
WRT^XTER1	LIST+10, MESG+5, PRNT+2, DQPRNT
INT^XTER1A1	ONE+2
INTRACT^XTER1A1	INTRACT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"Enter any comments to precede the error listing:" Line Location: MESG+2
Function Call: WRITE	Prompt: @IOF Line Location: WRITER+2
Function Call: WRITE	Prompt: @IOF Line Location: WRITER+3
Function Call: WRITE	Prompt: !,$E(%1,1,IOM) Line Location: WRITER+4
Function Call: WRITE	Prompt: @IOF Line Location: MORE+6
Function Call: READ	Timeout: 0 Variable: XTQ Line Location: T1+0
Function Call: WRITE	Prompt: !,$E(XTXT,1,79) Line Location: T1+10
Function Call: WRITE	Prompt: !!,$S(XTD-1:XTD-1,1:"No")," screened error",$S(XTD-1>1:"s",1:""),! Line Location: T2+0
Function Call: WRITE	Prompt: !!,?11,"$ZE",?41,"Time",?49,"UCI,VOL",?61,"$J",?69,"$I",! Line Location: T3+0
Routine Call	%ZIS Line Location: PRNT+2 PRNT+4
Routine Call	DIR Line Location: MORE+4
Routine Call	%ZIS Line Location: PRNT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTER(1 - [#3.075]	LISTN+1, T1, T1+4, T1+5, T1+6, T1+8
^TMP($J	ONE+3!, LISTN+2, LISTN+3, LISTN+4, LIST+1!, LIST+3, LIST+4, LIST+8, LIST+9, LIST+11 , LIST+12!, MESG+1!, MESG+4, MESG+6!, PRNT+1!, DQPRNT+1!, WRITER+1, ADD+1*, MORE+1!, T1+1

Name	Line Occurrences
ADD	LIST+4, LIST+5, LIST+10
LIST	ONE+3
LISTN	ONE+3
MESSG	LIST+11, MESG+5
MORE	T1+3, T2+1
T1	T1, T1+1, T1+10
T2	T1
T3	T1+3
WRITER	LIST+11, DQPRNT, MORE+1

Name	Field # of Occurrence
^(	LISTN+1, LISTN+2, LISTN+3, LISTN+4, LIST+9, WRITER+1, T1
^("CNT"	LISTN+4*
^("H"	T1+6
^("I"	T1+8
^("J"	T1+8
^("ZE"	LISTN+1, T1, T1+4, T1+5
^(1	LISTN+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	WRITER+1, WRITER+5!, T1+6, T1+7
%1	WRITER+1, WRITER+2, WRITER+3, WRITER+4, WRITER+5!
>> %H	T1+6*
>> %XTERR	T1+4*
>> %XTERRX	T1+3*
%XTZDAT	EXIT!, LIST+10*, T1, T1+4, T1+5, T1+6, T1+8
>> %XTZE	MESSG+2
%XTZNUM	EXIT!, LIST+10, T1+6, T1+7
>> %ZIS	PRNT+2*
C	EXIT!, LIST+1, LIST+12, MESG+4, MESG+5, MESG+6, PRNT+2, DQPRNT, DQPRNT+1, ADD+1* , MORE+1*
DIC	MESG+1~, MESG+3*
DIR	MORE~, MORE+4!
DIR("A"	MORE+3*
DIR(0	MORE+3*
DIRUT	MORE~
>> DIWESUB	MESG+3*
DTOUT	MORE~, MORE+4
DUOUT	MORE~
DUZ	MESSG+1
DWLW	MESG+1~, MESG+3*
DWPK	MESG+1~, MESG+3*
I	EXIT!, LIST+5, MESG+4
IO	LIST+11, LIST+12, DQPRNT
IO("Q"	PRNT+3, PRNT+4!
IOF	MESG+2, WRITER+1, WRITER+2, WRITER+3, MORE+6
IOM	WRITER+4
IOSL	WRITER+1
IOST	MORE+2
N	EXIT!, LISTN+2, LISTN+3, LISTN+4, LIST+3, LIST+4
N1	EXIT!, LISTN+2*, LISTN+3
>> POP	PRNT+2
STR	ADD~, ADD+1
U	LISTN+3, LISTN+4, LIST+10, MESSG+2, T1+8
X	EXIT!, LISTN+1, LISTN+2, LISTN+3, LIST+4, LIST+5, LIST+9, LIST+10, MORE+3, MORE+4 , LST, T1, T1+3, T1+4, T1+5, T1+6, T1+7, T1+8
XBLNK	LST~*, T1+7, T1+9, T1+10
XMDUZ	MESSG+1*!
XMSUB	MESSG+2*, MESSG+3!
XMTEXT	MESSG+2*, MESSG+3!
XMY	MESSG+1!, MESSG+3!
XMY(	MESSG+1*
>> XTD	T1+1*, T2
XTDV1	EXIT!, LIST+10, MESG+5, PRNT+1!
XTER1AN	EXIT!, LIST+8*, LIST+9
XTER1AN1	EXIT!, LIST+9*
XTER1AX	EXIT!, LIST+8*, LIST+9
XTERN	EXIT!, LISTN+1*, LISTN+3, LISTN+4
XTERX	EXIT!, LISTN+1, LISTN+2, LISTN+3, LISTN+4, LIST+1, LIST+3*, LIST+4
XTMES	EXIT!, LIST+10, MESG+5, MESG+6!, MORE
XTMORE	MORE+3*, MORE+4!
>> XTNDAT1	ONE+2*
>> XTNDAT2	ONE+2*
XTNDATE	ONE+2*, EXIT!, LISTN+1, LISTN+3, LISTN+4
XTNUM	TWO+1, ONE+1, EXIT!, LISTN+4
XTOUT	EXIT!, LIST+1, DQPRNT, MORE+1, MORE+5, T1+3
>> XTP	T1*, T1+1, T1+9, T1+10
XTPRNT	EXIT!, DQPRNT*, DQPRNT+1!, WRITER+1, MORE+2, MORE+6
>> XTQ	LST, T1
>> XTS	T1, T1+1
XTX	MESG+6, PRNT+3, DQPRNT+1!, MORE+1, MORE+4, MORE+5, T1+3
XTXT	LST~, T1+4, T1+5, T1+7, T1+8, T1+9, T1+10
Y	EXIT!, LISTN+4, LIST+5
Z	EXIT!, LIST+4, LIST+5
>> ZTDESC	PRNT+4*
ZTIO	PRNT+1!
>> ZTQUEUED	ONE+2, DQPRNT+1, MESSG+1, MORE+2
>> ZTRTN	PRNT+4*
>> ZTSAVE("%XTZDAT"	PRNT+4*
>> ZTSAVE("%XTZNUM"	PRNT+4*
ZTSK	PRNT+4!

Customize PDF page

Package: Toolkit

Routine: XTER1A

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: