XQAL285P.m

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 ---XQAL285P   1467     printed  Apr 09, 2024@21:13:44                                                                                                                                                                                                    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