Routine: XQALFWD

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZTLOAD $$NOW^XLFDT $$DAT8^XQALERT DOIT^XQALERT1 LOOP1^XQALMAKE $$REENT^XQALSET
VA Fileman	2	(,$$FIND1)^DIC ^DIR
MailMan	1	^XMD

Package	Total	Caller Graph
Kernel	4	XQALDEL XQALERT1 XQALGUI XQALSUR1
IHS Electronic Health Record	1	BEHOXQ
Order Entry Results Reporting	1	ORB31

Package

Total

Caller Graph

Kernel

XQALDEL XQALERT1 XQALGUI XQALSUR1

IHS Electronic Health Record

BEHOXQ

Order Entry Results Reporting

ORB31

Entry Points

Name	Comments	DBIA/ICR reference
PRNT1	; ; ZEXCEPT: IOF,X,XQACOMNT,XQAUSER
MAIL1	; ; ZEXCEPT: X,XQALST,XQAUSER
PRNT	; ; ZEXCEPT: X,XQALST,XQAUSER
SETXQA	; ; ZEXCEPT: J,XQARECIP,XQAVALS
FORWARD1(XQAID,XQARECIP,XQATYPE,XQACOMNT,XQALTYPE)	;
FWDONE
SETXMY	; ; ZEXCEPT: J,XMY,XQARECIP
RESETUP(XQAIDVAL,XQA,XQACOMNT)	; ; ZEXCEPT: XQALTYPE,XQAUSER
FORWARD(XQALST,XQARECIP,XQATYPE,XQACOMNT)	; SR. ICR #3009 (Supported)	ICR #3009 Status: Active Usage: Supported
EXIT
FWRD	; ENTRY POINT FOR SELECTION FROM 'VIEW ALERTS' SCREEN ; USER NEEDS TO SELECT ALERT(S) FOR FORWARDING ; TYPE (ALERT, MAIL MESSAGE, OR PRINT) ; AND RECIPIENT(S) OR DEVICE ; AND COMMENT IF ANY TO BE DISPLAYED WITH ALERT
MAIL	; ; ZEXCEPT: X,XMSUB,XMTEXT,XQACOMNT,XQAUSER

External References

Name	Field # of Occurrence
^%ZIS	FORWARD+19
HOME^%ZIS	FORWARD+21
^%ZTLOAD	FORWARD+21
^DIC	FWDONE+2
$$FIND1^DIC	FORWARD+17
^DIR	FWDONE, FWDONE+4
$$NOW^XLFDT	RESETUP+11
^XMD	MAIL+4
$$DAT8^XQALERT	MAIL+3, PRNT1+3
DOIT^XQALERT1	FWRD+9
LOOP1^XQALMAKE	FWDONE+1
$$REENT^XQALSET	RESETUP+12

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: FWRD+7
Function Call: WRITE	Prompt: @IOF,!,"You may now Select the alert or alerts that you want forwarded:",! Line Location: FWRD+7
Function Call: WRITE	Prompt: !!,"You will now return to PROCESSING ALERTS, enter RETURN to continue:" Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: PRNT1+2
Function Call: WRITE	Prompt: !!,"ALERT: "_$P(X,U,3),!!," Forwarded by: ",$P(^VA(200,XQAUSER,0),U)," Generated on: ",$$DAT8^XQALERT($P($P(X,U,2),";",3)),!!,$G(XQACOMNT) Line Location: PRNT1+3
Routine Call	%ZIS Line Location: FORWARD+21
Routine Call	DIC Line Location: FORWARD+17
Routine Call	DIC Line Location: FWDONE+2
Routine Call	DIR Line Location: FWDONE FWDONE+4
Routine Call	%ZIS Line Location: FORWARD+19

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	FORWARD+18
^TMP("XQ"	FWRD+12
^TMP($J	MAIL+2!, MAIL+3*
^VA(200 - [#200]	MAIL+3, PRNT1+3
^XTV(8992 - [#8992]	MAIL1+3, MAIL1+4, PRNT+2, PRNT+3, RESETUP+5, RESETUP+6
^XTV(8992.1 - [#8992.1]	RESETUP+8

Name	Line Occurrences
EXIT	FWRD+13, FWDONE, FWDONE+1, FWDONE+2, FWDONE+4
FORWARD	FWDONE+6, FORWARD1+1
MAIL	MAIL1+3, MAIL1+4
MAIL1	FORWARD+15
PRNT1	PRNT+2, PRNT+3
RESETUP	FORWARD+12, FORWARD+13
SETXMY	MAIL1+3, MAIL1+4
SETXQA	FORWARD+12, FORWARD+13

Name	Field # of Occurrence
^(1	RESETUP+6
^(3	RESETUP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	FORWARD+8~, FORWARD+19*
DA	RESETUP+2~
DIC	FWDONE+2*!
DIC("A"	FWDONE+2*
DIC(0	FWDONE+2*
DIR	FWRD+8~, FWDONE!, FWDONE+5!
DIR("?"	FWDONE+3*
DIR("A"	FWDONE, FWDONE+3
DIR("B"	FWDONE*
DIR(0	FWDONE, FWDONE+3
>> DIROUT	FWDONE+4
DIRUT	FWDONE, EXIT+1!
DTIME	FWRD+7, EXIT
>> DTOUT	FWDONE+4
>> DUOUT	FWDONE+4
DUZ	RESETUP+3
I	FORWARD+8~, MAIL1+2~
IO	PRNT1+2
IO("Q"	FORWARD+21!
IOF	FWRD+7, PRNT1+2
>> IOP	FORWARD+18*
>> J	SETXQA+3, SETXMY+3
>> POP	FORWARD+19
RETVAL	RESETUP+2~, RESETUP+12*
U	FWRD+12, FORWARD+18, MAIL+2, MAIL+3, PRNT1+3, RESETUP+8, RESETUP+9, RESETUP+10
X	FWRD+7, FWDONE+4, EXIT, MAIL1+3, MAIL1+4, MAIL+2, MAIL+3, PRNT+2, PRNT+3, PRNT1+3 , RESETUP+2~, RESETUP+6*, RESETUP+7, RESETUP+8, RESETUP+9, RESETUP+10
X1	RESETUP+2~, RESETUP+6*, RESETUP+10
X3	RESETUP+2~, RESETUP+6*, RESETUP+10
XMSUB	MAIL1+2~, MAIL+2*
XMTEXT	MAIL1+2~, MAIL+2*
XMY	MAIL1+2~
XMY(	SETXMY+2, SETXMY+3
XQA	FWDONE+1, RESETUP~
XQA(	FWDONE+1!
XQA1	RESETUP+2~, RESETUP+8*
XQAARR	FWDONE+2*, FWDONE+6, EXIT+1!
XQAARR(	FWDONE+1*
XQACNT	FWRD+8~
XQACOMNT	FWDONE+4*, FWDONE+6, EXIT+1!, FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+12, FORWARD+13, MAIL+3, PRNT1+3 , RESETUP~
XQACTMSG	RESETUP+2~, RESETUP+9*
XQADA	RESETUP+2~, RESETUP+8*
XQADATA	RESETUP+2~, RESETUP+10*
XQADFN	RESETUP+2~, RESETUP+10*
XQAGUID	RESETUP+2~, RESETUP+10*
XQAI	FWDONE+1~, FORWARD+12~, MAIL1+3~, PRNT+3~
XQAID	FORWARD1~, FORWARD1+1, RESETUP+2~, RESETUP+8*
XQAIDVAL	RESETUP~, RESETUP+5
XQAIEN	RESETUP+2~, RESETUP+5*, RESETUP+6
XQALFWD	FWRD+9*, FWDONE+5!, EXIT+1!
XQALFWDL	FWRD+10!, FWRD+13, FWDONE+6, EXIT+1!
XQALFWDL(	FWRD+12*
XQALST	FORWARD~, FORWARD+7, FORWARD+13, MAIL1+4, PRNT+2
XQALST(	FORWARD+12, MAIL1+3, PRNT+3
XQALST(""	FORWARD+13
XQALTYPE	FORWARD1~, FORWARD+8~, FORWARD+9, RESETUP+4
XQAMSG	RESETUP+2~, RESETUP+9*
XQAOPT1	RESETUP+2~, RESETUP+9*
XQAPRNT	FORWARD+8~, FORWARD+17*, FORWARD+18
XQARECIP	FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+7, FORWARD+17, SETXQA+2, SETXMY+2
XQARECIP(	SETXQA+3, SETXMY+3
XQARESET	RESETUP+2~, RESETUP+4*
XQAREV	FWRD+8~
XQATYP	FWDONE*, FWDONE+1, FWDONE+2, FWDONE+6, EXIT+1!
XQATYPE	FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+10*, FORWARD+11, FORWARD+14, FORWARD+16
>> XQAUSER	MAIL1+3, MAIL1+4, MAIL+3, PRNT+2, PRNT+3, PRNT1+3, RESETUP+3*, RESETUP+5, RESETUP+6
XQAVALS	FORWARD+8~, FORWARD+12, FORWARD+13
XQAVALS(	SETXQA+2, SETXQA+3
XQI	FWRD+8~, RESETUP+2~
XQJ	RESETUP+2~
XQK	FWRD+8~, RESETUP+2~
XQX	RESETUP+2~, RESETUP+11*
>> XQX1	FWRD+9, FWRD+11, FWRD+12, EXIT
>> XQXOUT	FWRD+11*
>> Y	FWDONE, FWDONE+2
ZTDESC	FORWARD+8~, FORWARD+20*
ZTDTH	FORWARD+8~, FORWARD+20*
ZTRTN	FORWARD+8~, FORWARD+20*
ZTSAVE	FORWARD+8~
ZTSAVE("XQA*"	FORWARD+20*

Customize PDF page

Package: Kernel

Routine: XQALFWD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: