- XQAL285P ;OAKLAND-OIFO.SEA/JLI - POST-INIT FOR PATCH XU*8*285 ;7/28/03 15:37
- ;;8.0;KERNEL;**285**;Jul 10, 1995
- ENTRY ;
- ; Check and remove any TEAM or TEAM (OERR) entities added for the XQAL BACKUP REVIEWER parameter
- N XQAPARAM,XQAENT,XQAINST,XQALIST,XQAIEN,XQAFILE,XQAFNUM,XQALFDA,XQAX
- S XQAPARAM=$$FIND1^DIC(8989.51,"","","XQAL BACKUP REVIEWER")
- 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,"")))=""
- 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
- . I $S(XQAFNUM=4:1,XQAFNUM=4.2:1,XQAFNUM=49:1,XQAFNUM=200:1,1:0) Q
- . S XQALFDA=$NA(^TMP($J,"XQALDEL")) K @XQALFDA
- . S @XQALFDA@(8989.5,XQAIEN_",",.01)="@"
- . D UPDATE^DIE("",XQALFDA)
- . K @XQALFDA
- . Q
- ;
- ; Setup and start population of the XQAL UNPROCESSED ALERTS mail group
- I DUZ<1 W !,"INVALID DUZ, COULD NOT ADD TO 'XQAL UNPROCESSED ALERTS' MAIL GROUP" Q
- N XQALIEN,XQALFDA
- S XQALIEN=$$FIND1^DIC(3.8,"","","XQAL UNPROCESSED ALERTS")
- I XQALIEN'>0 W !,"COULD NOT FIND 'XQAL UNPROCESSED ALERTS' MAIL GROUP" Q
- I $$FIND1^DIC(3.81,","_XQALIEN_",","",DUZ)'>0 D ; Need to enter
- . S XQALFDA=$NA(^TMP($J,"XQALP285")) K @XQALFDA
- . S @XQALFDA@(3.81,"+1,"_XQALIEN_",",.01)=DUZ
- . D UPDATE^DIE("",XQALFDA)
- . K @XQALFDA
- . Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQAL285P 1467 printed Feb 18, 2025@23:31:43 Page 2
- XQAL285P ;OAKLAND-OIFO.SEA/JLI - POST-INIT FOR PATCH XU*8*285 ;7/28/03 15:37
- +1 ;;8.0;KERNEL;**285**;Jul 10, 1995
- ENTRY ;
- +1 ; Check and remove any TEAM or TEAM (OERR) entities added for the XQAL BACKUP REVIEWER parameter
- +2 NEW XQAPARAM,XQAENT,XQAINST,XQALIST,XQAIEN,XQAFILE,XQAFNUM,XQALFDA,XQAX
- +3 SET XQAPARAM=$$FIND1^DIC(8989.51,"","","XQAL BACKUP REVIEWER")
- +4 SET XQAENT=""
- FOR
- SET XQAENT=$ORDER(^XTV(8989.5,"AC",XQAPARAM,XQAENT))
- if XQAENT=""
- QUIT
- FOR XQAINST=0:0
- SET XQAINST=$ORDER(^XTV(8989.5,"AC",XQAPARAM,XQAENT,XQAINST))
- if XQAINST'>0
- QUIT
- SET XQALIST($ORDER(^(XQAINST,"")))=""
- +5 FOR XQAIEN=0:0
- SET XQAIEN=$ORDER(XQALIST(XQAIEN))
- if XQAIEN'>0
- QUIT
- SET XQAX=$PIECE($GET(^XTV(8989.5,XQAIEN,0)),U)
- SET XQAFILE=$PIECE(XQAX,";",2)
- SET XQAFNUM=+$PIECE(@(U_XQAFILE_"0)"),U,2)
- IF XQAFNUM>0
- Begin DoDot:1
- +6 IF $SELECT(XQAFNUM=4:1,XQAFNUM=4.2:1,XQAFNUM=49:1,XQAFNUM=200:1,1:0)
- QUIT
- +7 SET XQALFDA=$NAME(^TMP($JOB,"XQALDEL"))
- KILL @XQALFDA
- +8 SET @XQALFDA@(8989.5,XQAIEN_",",.01)="@"
- +9 DO UPDATE^DIE("",XQALFDA)
- +10 KILL @XQALFDA
- +11 QUIT
- End DoDot:1
- +12 ;
- +13 ; Setup and start population of the XQAL UNPROCESSED ALERTS mail group
- +14 IF DUZ<1
- WRITE !,"INVALID DUZ, COULD NOT ADD TO 'XQAL UNPROCESSED ALERTS' MAIL GROUP"
- QUIT
- +15 NEW XQALIEN,XQALFDA
- +16 SET XQALIEN=$$FIND1^DIC(3.8,"","","XQAL UNPROCESSED ALERTS")
- +17 IF XQALIEN'>0
- WRITE !,"COULD NOT FIND 'XQAL UNPROCESSED ALERTS' MAIL GROUP"
- QUIT
- +18 ; Need to enter
- IF $$FIND1^DIC(3.81,","_XQALIEN_",","",DUZ)'>0
- Begin DoDot:1
- +19 SET XQALFDA=$NAME(^TMP($JOB,"XQALP285"))
- KILL @XQALFDA
- +20 SET @XQALFDA@(3.81,"+1,"_XQALIEN_",",.01)=DUZ
- +21 DO UPDATE^DIE("",XQALFDA)
- +22 KILL @XQALFDA
- +23 QUIT
- End DoDot:1
- +24 QUIT
