source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQAL285P.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1XQAL285P ;OAKLAND-OIFO.SEA/JLI - POST-INIT FOR PATCH XU*8*285 ;7/28/03 15:37
2 ;;8.0;KERNEL;**285**;Jul 10, 1995
3ENTRY ;
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
Note: See TracBrowser for help on using the repository browser.