XQALSET ;ISC-SF.SEA/JLI - SETUP ALERTS ;4/10/07 14:06
Source file <XQALSET.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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
|
|
| LOOP1 | ||
| NOW | ||
| REENT() | ; Entry for forwarding, etc.
|
|
| REP | ||
| LOOP | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | WRAP+19, WRAP+22, WRAP+33 |
| FILE^DIE | SETTRACK+23 |
| UPDATE^DIE | LOOP+11, WRAP+23, WRAP+34, WRAP+39, SETTRACK+8 |
| WP^DIE | REP+2, SETTRACK+24 |
| $$GET1^DIQ | SNDNACTV+2 |
| $$FMADD^XLFDT | SETTRACK+14 |
| $$FMDIFF^XLFDT | SNDNACTV+2 |
| $$NOW^XLFDT | NOW, REENT+3 |
| GETBKUP^XQALDEL | WRAP+4 |
| $$CHEKUSER^XQALSET1 | CHEKUSER+1 |
| CHEKACTV^XQALSET1 | WRAP+5 |
| GROUP^XQALSET1 | LOOP1, WRAP+6, WRAP+7, WRAP+8 |
| $$ACTVSURO^XQALSURO | LOOP2+4 |
| $$ACTIVE^XUSER | LOOP+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | LOOP+7, LOOP+8!, SETTRACK+5, SETTRACK+6! |
| ^TMP("XQAGROUP" | REENT+2!, WRAP+45! |
| ^TMP($J | LOOP+9, WRAP+20, WRAP+23, WRAP+34, SETTRACK+7 |
| ^XTV(8992 - [#8992] | LOOP+5, LOOP+14, REP, REP+1*, REP+3, REP+4*, WRAP+44!, SETIEN+2, SETIEN+3, SETIEN+4* |
| ^XTV(8992.1 - [#8992.1] | WRAP+16 |
| Name | Line Occurrences |
|---|---|
| $$REENT | NOW+3 |
| $$SETIEN | NOW+2 |
| $$SETUP1 | SETUP+1 |
| $$SNDNACTV | WRAP+2 |
| LOOP | LOOP+3, REP+6 |
| LOOP1 | LOOP1 |
| LOOP2 | WRAP+3 |
| REP | REP |
| SETTRACK | WRAP+14 |
| WRAP | LOOP+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SETTRACK+13* |
| ^(0 | LOOP+5*, LOOP+14*, REP+1* |
| ^(1 | REP+1* |
| ^(1.01 | SETTRACK+13* |
| ^(2 | REP+1* |
| ^(3 | REP+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SETUP1+5~, SETTRACK+12* |
| DIERR | LOOP+7, LOOP+8!, SETTRACK+2~, SETTRACK+5, SETTRACK+6!, SETTRACK+11 |
| DT | SNDNACTV+2, SETTRACK+14 |
| DUZ | SETIEN+2, SETTRACK+13 |
| FDA | LOOP+6~, LOOP+9*, LOOP+11, WRAP+20*, WRAP+25, WRAP+27, WRAP+29, WRAP+30, WRAP+36, WRAP+37 , WRAP+39, SETTRACK+2~, SETTRACK+7*, SETTRACK+8, SETTRACK+9, SETTRACK+13, SETTRACK+14, SETTRACK+15, SETTRACK+16, SETTRACK+17 , SETTRACK+18, SETTRACK+19, SETTRACK+20, SETTRACK+21, SETTRACK+22, SETTRACK+23 |
| FDA1 | WRAP+23~*, WRAP+34~* |
| I | SETUP+1~*, LOOP2+1* |
| IENROOT | WRAP+23~, WRAP+34~ |
| IENROOT(1 | WRAP+23, WRAP+34 |
| IENS | LOOP+6~, SETTRACK+2~, SETTRACK+13*, SETTRACK+14, SETTRACK+15, SETTRACK+16, SETTRACK+17, SETTRACK+18, SETTRACK+19, SETTRACK+20 , SETTRACK+21, SETTRACK+22, SETTRACK+24 |
| IENS(1 | LOOP+10*, SETTRACK+12, SETTRACK+13 |
| IENSTR | WRAP+39~ |
| IENVAL | WRAP+18~, WRAP+19*, WRAP+20, WRAP+21*, WRAP+25, WRAP+27, WRAP+29, WRAP+30, WRAP+36, WRAP+37 |
| KCNT | WRAP+18~, WRAP+19*, WRAP+20*, WRAP+21 |
| NCOUNT | WRAP+18~, WRAP+21*, WRAP+25*, WRAP+27, WRAP+29, WRAP+30*, WRAP+36*, WRAP+37 |
| RETVAL | REENT+1~*, WRAP+2*, WRAP+9*, WRAP+14, WRAP+16, WRAP+43*, WRAP+47 |
| SUBSCRPN | WRAP+18~, WRAP+22*, WRAP+23*, WRAP+25, WRAP+33*, WRAP+34*, WRAP+36 |
| SUBSCRPT | WRAP+18~, WRAP+21*, WRAP+22, WRAP+23, WRAP+32*, WRAP+33, WRAP+34 |
| U | SETUP1+7, REENT+4, REENT+5, REENT+6, REP+1, WRAP+43, SETTRACK+18 |
| X | SETUP1+5~, LOOP2+4~*, LOOP2+5, LOOP2+6, LOOP2+7, LOOP2+8, SETTRACK+14* |
| XQA | LOOP2+1, WRAP+3, WRAP+5, WRAP+6, WRAP+7, WRAP+8, WRAP+9, WRAP+46! |
| XQA( | LOOP1!, LOOP2+3, LOOP2+5*!, LOOP+1, LOOP+3!, REP+4!, WRAP+4* |
| XQA(" " | LOOP1 |
| XQA(0 | SETUP1+3 |
| XQA1 | NOW+1*, NOW+2, REP+4, WRAP+46!, SETIEN~, SETIEN+2*, SETTRACK+4, SETTRACK+15 |
| XQA2 | SETTRACK+2~, SETTRACK+4*, SETTRACK+13 |
| XQAA | WRAP+4~ |
| XQAA( | WRAP+4 |
| XQAARCH | WRAP+46!, SETTRACK+14 |
| XQACNDEL | REENT+5, WRAP+46! |
| XQACOMNT | SETUP1+5~, REP+1, WRAP+3*, WRAP+36 |
| XQACTMSG | REENT+4, WRAP+46!, SETTRACK+19 |
| XQADA | SETUP1+5~, NOW+2*, WRAP+14, WRAP+16, WRAP+19, WRAP+43, SETTRACK+3*, SETTRACK+12* |
| XQADATA | REENT+7, WRAP+46!, SETTRACK+20 |
| XQADATIM | REENT+3~*, WRAP+25, WRAP+30, WRAP+36 |
| >> XQADFN | REP+1, SETTRACK+22 |
| XQAFLG | WRAP+46! |
| >> XQAGUID | REP+1, SETTRACK+21 |
| XQAID | NOW+1*, NOW+2*, REENT+4, REP+4, WRAP+2, WRAP+14, WRAP+43, WRAP+44, WRAP+46!, SNDNACTV~ , SNDNACTV+2, SETIEN+1~, SETIEN+2*, SETIEN+3, SETIEN+4, SETIEN+6, SETTRACK+8 |
| XQALERR | SETUP+1!, SETUP1+2!, SETUP1+3*, SETUP1+4*, WRAP+2*, WRAP+9* |
| XQALIN | REENT+6*, REP+1, WRAP+46! |
| XQALIN1 | REENT+4*, REENT+5*, REENT+6, REENT+7!*, REP+1, WRAP+46! |
| XQALIST | REENT+3~, LOOP2+1*, WRAP+1, WRAP+3! |
| XQALIST( | LOOP2+1*, LOOP2+6*, LOOP2+7*, LOOP2+8*, LOOP+3!*, WRAP+4 |
| XQALIST1 | REENT+3~, WRAP+1* |
| XQALIST1( | WRAP+17, WRAP+21, WRAP+27, WRAP+28, WRAP+30, WRAP+32 |
| XQALTYPE | SETUP1+5~, SETUP1+6*, LOOP2+1, WRAP+4*, WRAP+6*, WRAP+7*, WRAP+8* |
| XQAMSG | SETUP1+4, REENT+4, WRAP+46!, SETTRACK+13 |
| XQAOPT | SETUP1+7, WRAP+46!, SETTRACK+17 |
| XQAOPT1 | SETUP1+7*, REENT+4, WRAP+46! |
| XQARESET | SETUP1+5~, REP+1, WRAP+3* |
| XQAREVUE | REENT+5, WRAP+46! |
| XQAROU | SETUP1+7, WRAP+46!, SETTRACK+18 |
| XQASUPV | REENT+5, WRAP+46! |
| XQASURO | REENT+5, WRAP+46! |
| XQATEXT | REP+2, WRAP+46!, SETTRACK+24 |
| XQATEXT( | REP+2* |
| XQAUSER | LOOP2+1~*, REP+1, WRAP+37, CHEKUSER~, CHEKUSER+1 |
| XQAXX | SETTRACK+18~* |
| XQI | SETUP1+5~, NOW+1*, WRAP+4*, WRAP+46!, SETIEN~, SETIEN+2*, SETIEN+4* |
| XQJ | SETUP1+5~, REENT+6*, LOOP1*, LOOP2+3*, LOOP2+4, LOOP2+5, LOOP2+6, LOOP2+7, LOOP2+8, LOOP2+12* , LOOP+1*, LOOP+3, LOOP+5, LOOP+9, LOOP+10, LOOP+14, REP, REP+1, REP+2, REP+3 , REP+4, WRAP+4~*, WRAP+6*, WRAP+7*, WRAP+8*, WRAP+17*, WRAP+19, WRAP+20, WRAP+21, WRAP+27 , WRAP+28, WRAP+30, WRAP+32, WRAP+46! |
| XQK | SETUP1+5~, WRAP+30~*, WRAP+46! |
| XQNRECIP | REENT+3~*, REP+5*, WRAP+2, WRAP+3* |
| XQX | SETUP1+5~, NOW*, NOW+1, NOW+2, REENT+6, LOOP+14, REP+1, WRAP+46!, SETTRACK+13 |
| XQXI | LOOP+14*, REP*, REP+1, REP+2, REP+4, WRAP+46! |
| XVAL | SNDNACTV+1~, SNDNACTV+2* |
| XX | LOOP+3~* |
| >> ZTQUEUED | SETTRACK+16 |