; 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
SNDNACTV(XQAID)
; Determine if we go ahead and send alerts addressed only to inactive users to backup reviewers
CHEKUSER(XQAUSER)
; .SR Returns 0 if no valid user or surrogate, otherwise returns IEN of user or surrogate
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.
SETIEN(XQA1,XQI)
; determine unique XQAID value for alert
WRAP
;
LOOP2
; RE-ENTRY FOR FORWARDING IF ALL RECIPIENTS ARE UNDELIVERABLE