(required) Array of alerts to be forwarded, each identified by its full alert identifier (the value of the ALERT ID [#8992.01,.02] field in the ALERT DATE/TIME [#8992.01,.01] Multiple field of the current user’s entry in the ALERT [#8992] file). Use the USER^XQALERT(): Get Alerts for a User API to obtain alert identifiers for a user's current open alerts.

If only a single alert is to be forwarded, only the top node must be set (set it to the alert identifier of the alert to forward, and pass by value). If there are multiple alerts to forward, the value of each entry in the array should be one of the desired alert identifier. For example:

    A6AALRT(1)="NO-ID;92;2941215.100432"
    A6AALRT(2)="NO-ID;161;2941220.111907"
    A6AALRT(3)="NO-ID;161;2941220.132401"

If using an array, the array must be passed by reference in the parameter list.

(required) Users to forward alert to. For forwarding as an alert or as a mail message (when the type parameter is A or M), the input parameter can specify one or more users, and/or mail groups. For users, specify by IEN (in the NEW PERSON [#200] file). You do not need to precede the user's IEN with a grave accent (`). For mail groups, specify in format G.MAILGROUP.

If there is only a single user or mail group, just set the top node of the array to that value, and pass it by value. If there are multiple values to be passed, pass them as the values of numerically subscripted array nodes (and pass the array by reference). For example:

    A6AUSER(1)="G.MAS CLERKS"
    A6AUSER(2)="G.MAS OVERNIGHT"

For forwarding to a printer (when the type parameter is P), there should be only a single value specifying the desired entry in the DEVICE (#3.5) file. You can specify the device either by name or by Internal Entry Number (IEN). If specifying by IEN, precede the IEN with an accent grave (e.g., `202).

(required) Indicates the method of forwarding desired. The options are the single characters:

• A—Forward as an Alert.
  
  
• M—Forward as a Mail Message.
  
  
• P—Print a copy of the alert.

If the value passed is not A, M, or P, then no action is taken.

(optional) A character string to use as a comment to accompany the alert when it is forwarded.

; get open alerts for current user
K A6AALRT D USER^XQALERT("A6AALRT")
;
I +A6AALRT D  ; if any current alerts...
.; loop through A6AALRT array, parse alert id for each open alert
.K A6AALRT1 S A6ASUB="",A6AI=0
.F  S A6ASUB=$O(A6AALRT(A6ASUB)) Q:'$L(A6ASUB)  D
..S A6AI=A6AI+1,A6AALRT1(A6AI)=$P(A6AALRT(A6ASUB),"^",2)
.;
.;forward open alerts of current user to MAS CLERKS mail group
.K A6AUSER S A6AUSER="G.MAS CLERKS"
.D FORWARD^XQALFWD(.A6AALRT1,A6AUSER,"A","Forwarded Alert")
Q