Routine: XQALDOIT

Package	Total	Call Graph
Kernel	6	^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT ^XQ74 DELETEA^XQALERT
MailMan	1	^XMD
VA Fileman	1	EN^DDIOL

Package	Total	Caller Graph
Kernel	2	XQALERT XQALERT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
MORP
ACTION(ALERTID)	;
ENDACT	;
EN1	;
PRINT	;
MAIL	;
DOOPT(OPTION)	;
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	PRINT+1
^%ZISC	DQ+3
^%ZTLOAD	PRINT+1
EN^DDIOL	EN1+12
$$NOW^XLFDT	EN1+5, PRINT+1
^XMD	MAIL+1
^XQ74	ENDACT+1
DELETEA^XQALERT	ENDACT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Processed Alert Number ",XQX2,!?4,$P(XQX,U,3),! Line Location: EN1+11
Function Call: WRITE	Prompt: @IOF,!!?10,"PENDING ALERTS "_$P(^VA(200,+^XTV(8992,DUZ,0),0),U)_" "_$E(XQIJ,4,5)_"/"_$E(XQIJ,6,7)_"/"_$E(XQIJ,2,3)_" "_$E($P(XQIJ,".",2)_"00",1,2)_":"_$E($P(XQIJ,".",2)_"0000",3,4),!! Line Location: DQ+1
Function Call: WRITE	Prompt: !,^(XQIJ,0) Line Location: DQ+2
Function Call: WRITE	Prompt: !!,"Message will be delivered as NEW mail to YOU.",!! Line Location: MAIL+1
Routine Call	%ZIS Line Location: PRINT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	EN1+14, ENDACT+4, ENDACT+5
^TMP("XQ"	EN+2, DQ+2, MORP!*
^VA(200 - [#200]	DQ+1
^XTV(8992 - [#8992]	EN1+3!, EN1+12, EN1+14!, ACTION+2, ACTION+4, ACTION+5, DQ+1
^XTV(8992.1 - [#8992.1]	EN1+5, EN1+6*

Label References

Name	Line Occurrences
@(	EN1+8, EN1+9, EN1+11
EN1	ACTION+8, ACTION+9
ENDACT	DOOPT+3

Naked Globals

Name	Field # of Occurrence
^(	EN+2, DQ+2, MORP
^(2	EN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN1+15!, PRINT+1*
ALERTID	ACTION~, ACTION+2
DUZ	EN1+3, EN1+6, EN1+12, EN1+14, ACTION+2, ACTION+4, ACTION+5, DQ+1, MAIL+1
IO	DQ+1
IO("Q"	PRINT+1!
IOF	DQ+1
ION	PRINT+1
OPTION	DOOPT~, DOOPT+2
>> POP	PRINT+1
U	EN1+1, EN1+3, EN1+6, EN1+11, EN1+14, ACTION+8, ENDACT+4, ENDACT+5, DQ+1, MORP
X	ENDACT+3~, ENDACT+4, ENDACT+5
XMDUZ	MAIL+1*!
XMSUB	MAIL+1*!
XMTEXT	MAIL+1*!
XMY	MAIL+1!
XMY(	MAIL+1*
XQ1	EN1+15!
XQA1	EN1+1*, EN1+3, EN1+14, EN1+15!
XQACNT	EN1+15!
>> XQADAT	EN1+5*, EN1+6
XQADATA	EN1+1*, ENDACT+8!, DOOPT+1~
>> XQAEXIT	EN+1, EN1+8, EN1+11, ACTION+7
>> XQAGETAC	ACTION+6
XQAID	EN1+1*, EN1+4, EN1+5, ENDACT+8!, DOOPT+1~
XQAKILL	EN1+3*, ENDACT+7, ENDACT+8!, DOOPT+1~
XQALEXIT	ENDACT+1*!
XQALMENU	ENDACT+1!, ENDACT+2!, ENDACT+4, ENDACT+5
XQAREV	EN1+15!
XQAROU	EN1+2, EN1+3, EN1+8, EN1+9, EN1+11, ENDACT+8!, DOOPT+1~
XQAROUX	EN1+8, EN1+9~, EN1+11, EN1+14*
XQAUSER	ACTION+1~, ACTION+4*
XQI	EN+2, EN1+3, EN1+12, EN1+14, EN1+15!, ACTION+2, ACTION+3, ACTION+4, ACTION+5, ACTION+7
XQII	EN1+15!
XQIJ	PRINT+1, DQ+1, DQ+2, DQ+3!, MORP*, MORP+1!
XQIK	MORP*, MORP+1!
XQIX	MORP*, MORP+1!
XQJ	EN1+15!
XQK	EN1+1*, EN1+15!
XQMM	DOOPT+1~
XQMM("J"	EN1+14, ENDACT+1, ENDACT+3, DOOPT+2*
>> XQRB	EN1+14*
XQX	EN+2, EN1+1, EN1+3, EN1+11, EN1+14, EN1+15!, ACTION+4, ACTION+8
XQX1	EN+2, EN1+1, ACTION+7, ENDACT+6!, DOOPT+1~
XQX1(	EN1+1!
XQX1(0	EN1+1
XQX2	EN1+1*, EN1+3, EN1+11, EN1+14, EN1+15!
XQXOUT	EN1+15!
XQXX	EN1+5*, EN1+6, EN1+7!
XQXY	EN1+5, EN1+6, EN1+7!
>> XQY	EN1+14
>> XQZ	EN+2, EN1+1, ACTION+5
ZTIO	PRINT+1*!
>> ZTQUEUED	DQ+3
ZTRTN	PRINT+1*!
ZTSAVE	PRINT+1!
ZTSAVE("XQIJ"	PRINT+1*
ZTSAVE("^TMP(""XQ"",$J,""XQA2"","	PRINT+1*
ZTSK	PRINT+1!

Customize PDF page

Package: Kernel

Routine: XQALDOIT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: