| 1 | XQAL285P ;OAKLAND-OIFO.SEA/JLI - POST-INIT FOR PATCH XU*8*285 ;7/28/03 15:37
|
---|
| 2 | ;;8.0;KERNEL;**285**;Jul 10, 1995
|
---|
| 3 | ENTRY ;
|
---|
| 4 | ; Check and remove any TEAM or TEAM (OERR) entities added for the XQAL BACKUP REVIEWER parameter
|
---|
| 5 | N XQAPARAM,XQAENT,XQAINST,XQALIST,XQAIEN,XQAFILE,XQAFNUM,XQALFDA,XQAX
|
---|
| 6 | S XQAPARAM=$$FIND1^DIC(8989.51,"","","XQAL BACKUP REVIEWER")
|
---|
| 7 | S XQAENT="" F S XQAENT=$O(^XTV(8989.5,"AC",XQAPARAM,XQAENT)) Q:XQAENT="" F XQAINST=0:0 S XQAINST=$O(^XTV(8989.5,"AC",XQAPARAM,XQAENT,XQAINST)) Q:XQAINST'>0 S XQALIST($O(^(XQAINST,"")))=""
|
---|
| 8 | F XQAIEN=0:0 S XQAIEN=$O(XQALIST(XQAIEN)) Q:XQAIEN'>0 S XQAX=$P($G(^XTV(8989.5,XQAIEN,0)),U),XQAFILE=$P(XQAX,";",2),XQAFNUM=+$P(@(U_XQAFILE_"0)"),U,2) I XQAFNUM>0 D
|
---|
| 9 | . I $S(XQAFNUM=4:1,XQAFNUM=4.2:1,XQAFNUM=49:1,XQAFNUM=200:1,1:0) Q
|
---|
| 10 | . S XQALFDA=$NA(^TMP($J,"XQALDEL")) K @XQALFDA
|
---|
| 11 | . S @XQALFDA@(8989.5,XQAIEN_",",.01)="@"
|
---|
| 12 | . D UPDATE^DIE("",XQALFDA)
|
---|
| 13 | . K @XQALFDA
|
---|
| 14 | . Q
|
---|
| 15 | ;
|
---|
| 16 | ; Setup and start population of the XQAL UNPROCESSED ALERTS mail group
|
---|
| 17 | I DUZ<1 W !,"INVALID DUZ, COULD NOT ADD TO 'XQAL UNPROCESSED ALERTS' MAIL GROUP" Q
|
---|
| 18 | N XQALIEN,XQALFDA
|
---|
| 19 | S XQALIEN=$$FIND1^DIC(3.8,"","","XQAL UNPROCESSED ALERTS")
|
---|
| 20 | I XQALIEN'>0 W !,"COULD NOT FIND 'XQAL UNPROCESSED ALERTS' MAIL GROUP" Q
|
---|
| 21 | I $$FIND1^DIC(3.81,","_XQALIEN_",","",DUZ)'>0 D ; Need to enter
|
---|
| 22 | . S XQALFDA=$NA(^TMP($J,"XQALP285")) K @XQALFDA
|
---|
| 23 | . S @XQALFDA@(3.81,"+1,"_XQALIEN_",",.01)=DUZ
|
---|
| 24 | . D UPDATE^DIE("",XQALFDA)
|
---|
| 25 | . K @XQALFDA
|
---|
| 26 | . Q
|
---|
| 27 | Q
|
---|