Name | Value | |||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
NUMBER | 3009 | |||||||||||||||||||||
IA # | 3009 | |||||||||||||||||||||
DATE CREATED | 1999/12/08 | |||||||||||||||||||||
CUSTODIAL PACKAGE | KERNEL | |||||||||||||||||||||
CUSTODIAL ISC | San Francisco | |||||||||||||||||||||
USAGE | Supported | |||||||||||||||||||||
TYPE | Routine | |||||||||||||||||||||
DBIC APPROVAL STATUS | APPROVED | |||||||||||||||||||||
ROUTINE | XQALFWD | |||||||||||||||||||||
NAME | XQALFWD | |||||||||||||||||||||
GENERAL DESCRIPTION | This entry point can be used to forward alerts (in most cases, for the current user only). It is a silent (no screen input or output) entry point, and so can be used for windowed applications. Example ; 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(A6ASUB,"^",2) .; .;forward open alerts of current user to MAS CLERKS mailgroup .K A6AUSER S A6AUSER="G.MAS CLERKS" .D FORWARD^XQALFWD(.A6AALRT1,A6AUSER,"A","Forwarded Alert") Q |
|||||||||||||||||||||
STATUS | Active | |||||||||||||||||||||
ID | XQALFWD | |||||||||||||||||||||
COMPONENT/ENTRY POINT |
|