admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#86882: Blokbehandelteam notificaties bij acceptatie en wijzigingen.

Browse Source 
svn path=/Database/trunk/; revision=67837
This commit is contained in:
Maykel Geerdink
2025-02-04 11:49:27 +00:00
parent 5b3dd3ad56
commit a9afe4acb9
1 changed files with 34 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
MLD/MLD_PAC.SRC
View File

@@ -20,7 +20,7 @@ CREATE OR REPLACE PACKAGE mld AS
puserkey IN NUMBER,
popdr_note_key IN NUMBER DEFAULT NULL,
pnotificeren IN NUMBER DEFAULT 1);
PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2, pdisc_level IN NUMBER DEFAULT 1);
PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2, pdisc_level IN NUMBER DEFAULT 1, pdisckey IN NUMBER DEFAULT NULL);
PROCEDURE notifybehandelaar (pto IN NUMBER, pcode IN VARCHAR2, pmeldingkey IN NUMBER);
PROCEDURE notifyprio (pmeldingkey IN NUMBER, prio IN NUMBER, pperslid_key IN NUMBER, pdisc_level IN NUMBER DEFAULT 1);
PROCEDURE notifyopdrgoedkeurders (popdrkey IN NUMBER);
@@ -605,11 +605,20 @@ CREATE OR REPLACE PACKAGE BODY mld AS
END IF;
END;
-- Stuur alle mogelijke backofficemedewerkers een bericht als de
-- melding NIEUW (niet-concept) is of geaccepteerd wordt door MLDBO3.
-- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties
-- (zoals bij de lijst van BO-behandelaars in suggest/persoonfilter.inc)
PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2, pdisc_level IN NUMBER DEFAULT 1)
-- Stuur alle mogelijke backofficemedewerkers een bericht als de
-- melding NIEUW (niet-concept) is of geaccepteerd wordt door MLDBO3.
-- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties
-- (zoals bij de lijst van BO-behandelaars in suggest/persoonfilter.inc)
-- pdisc_level: (1) Notificatie MLD2BO || MLD2B3.
-- Afhankelijk van notificatie, status en mld_disc_params_bonotify.
-- Discipline gelijk aan die van de standaard melding (mld_stdmelding.mld_ins_discipline_key).
-- (2) Notificatie MLDBHG HOOFD behandelteam/behandelaar.
-- Als de status Nieuw/Ingevoerd(2) of Geaccepteerd(4) is.
-- Discipline gelijk aan die van de melding (mld_melding.mld_ins_discipline_key).
-- (3) Notificatie MLDBHG BLOK behandelteam/behandelaar.
-- Als de status Geaccepteerd(4) of Uitgegeven(7) is.
-- Discipline gelijk aan de meegegeven discipline.
PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2, pdisc_level IN NUMBER DEFAULT 1, pdisckey IN NUMBER DEFAULT NULL)
AS
lloc_key mld_melding.mld_alg_locatie_key%TYPE;
lonrg_key mld_melding.mld_alg_onroerendgoed_keys%TYPE;
@@ -664,6 +673,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
CASE
WHEN pdisc_level = 1 THEN stdm.mld_ins_discipline_key
WHEN pdisc_level = 2 THEN m.mld_ins_discipline_key
WHEN pdisc_level = 3 THEN pdisckey
END,
m.mld_melding_spoed,
mdp.mld_disc_params_bonotify,
@@ -697,19 +707,20 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Tweede notificatie: Melding is net geaccepteerd (4).
-- Naar BOF de MLD2BO notificatie: Alleen als bonotify = 3.
--
AND ( (pdisc_level = 1 -- -- -- -- -- -- -- -- --
AND ((mld_melding_status = 2 OR mld_melding_status IS NULL) -- --
AND pcode != 'MLDACP' -- --
AND mdp.mld_disc_params_bonotify > 0) -- > MLD2BO || MLD2B3 --
OR (mld_melding_status = 4 -- --
AND pcode = 'MLDACP' -- --
AND mdp.mld_disc_params_bonotify = 3)) -- -- -- -- -- -- -- -- --
OR (pdisc_level = 2 -- --
AND (mld_melding_status = 2 OR mld_melding_status = 4) -- > MLDBHG --
AND mdp.mld_disc_params_bhgnotify > 0) -- --
OR mld_melding_spoed <= 2) -- -- -- -- -- -- -- -- --
AND ( (pdisc_level = 1 -- -- -- -- -- -- -- -- --
AND ((mld_melding_status = 2 OR mld_melding_status IS NULL) -- --
AND pcode != 'MLDACP' -- --
AND mdp.mld_disc_params_bonotify > 0) -- > MLD2BO || MLD2B3 --
OR (mld_melding_status = 4 -- --
AND pcode = 'MLDACP' -- --
AND mdp.mld_disc_params_bonotify = 3)) -- -- -- -- -- -- -- -- --
OR (( (pdisc_level = 2 AND (mld_melding_status = 2 OR mld_melding_status = 4)) -- --
OR (pdisc_level = 3 AND (mld_melding_status = 4 OR mld_melding_status = 7))) -- > MLDBHG --
AND mdp.mld_disc_params_bhgnotify > 0) -- --
OR mld_melding_spoed <= 2) -- -- -- -- -- -- -- -- --
AND ( (pdisc_level = 1 AND stdm.mld_ins_discipline_key = mdp.mld_ins_discipline_key)
OR (pdisc_level = 2 AND m.mld_ins_discipline_key = mdp.mld_ins_discipline_key))
OR (pdisc_level = 2 AND m.mld_ins_discipline_key = mdp.mld_ins_discipline_key)
OR (pdisc_level = 3 AND pdisckey = mdp.mld_ins_discipline_key))
AND m.mld_alg_onroerendgoed_keys = onrg.alg_onroerendgoed_keys(+)
AND mld_melding_key = pmeldingkey; -- op dit moment nog alleen voor NIEUWE meldingen
@@ -789,7 +800,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
END IF;
-- Deze gaat alleen naar de prio mail van het behandelteam en valt dus buiten de aankomende if/else tak die naar alle BO'ers stuurt
IF pdisc_level = 2 AND pcode = 'MLDBHG' AND BITAND(lbhgnotify, 2) = 2
IF pdisc_level IN (2, 3) AND pcode = 'MLDBHG' AND BITAND(lbhgnotify, 2) = 2
THEN
mld.notifyprio (pmeldingkey, lspoed, NULL, 2);
END IF;
@@ -797,7 +808,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
-- Met alle varianten op mode 0 (dat is hier niet ongebruikelijk) zijn deze notificaties
-- feitelijk uitgeschakeld en hoef ik dus ook niet duur te bepalen naar wie een notificatie niet gestuurd hoeft
-- Sturing notificatie MLDBHG, MLD2BO of MLD2B3 (evt aangevuld met MLD2BP)
IF (lbhtmode > 0 OR l2bpmode > 0) AND pcode = 'MLDBHG' AND BITAND(lbhgnotify, 1) = 1 AND (lstatus = 2 OR lstatus = 4)
IF (lbhtmode > 0 OR l2bpmode > 0) AND
pcode = 'MLDBHG' AND
BITAND(lbhgnotify, 1) = 1 AND
((pdisc_level = 2 AND lstatus IN (2, 4)) OR (pdisc_level = 3 AND lstatus IN (4, 7)))
THEN
lfunctiecode := 'WEB_MLDBOF';
lsrtnoticode := 'MLDBHG';