XQALSET ;ISC-SF.SEA/JLI - SETUP ALERTS ;10/19/18 14:06
Source file <XQALSET.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETUP | ;
|
|
| SETUP1() | ; .SR Returns a string beginning with 1 if successful, 0 if not successful, the second piece is the IEN in the Alert Tracking File and the third piece is the value of XQAID.
; If not successful XQALERR is defined and contains reason for failure. |
|
| NOW | ||
| REENT() | ; Entry for forwarding, etc.
|
|
| LOOP1 | ||
| LOOP2 | ; RE-ENTRY FOR FORWARDING IF ALL RECIPIENTS ARE UNDELIVERABLE
|
|
| LOOP | ;
|
|
| REP | ||
| WRAP | ;
|
|
| SNDNACTV(XQAID) | ; Determine if we go ahead and send alerts addressed only to inactive users to backup reviewers
|
|
| SETIEN(XQA1,XQI) | ; determine unique XQAID value for alert
|
|
| SETTRACK | ; Setup entry in Alert Tracking file
; Note: if there are error messages or we can't create an entry for some reason, it simply returns and continues |
|
| CHEKUSER(XQAUSER) | ; .SR Returns 0 if no valid user or surrogate, otherwise returns IEN of user or surrogate
|
