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

FCLT#76943 Behandelteams of -groepen?

Browse Source 
svn path=/Database/trunk/; revision=59983
This commit is contained in:
Erik Groener
2023-04-13 07:20:19 +00:00
parent 46f0c0e22f
commit a9a1dcc04a
4 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
MLD/MLD_PAC.SRC
View File

@@ -574,11 +574,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
lnotiprio NUMBER (1);
loms2bo fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
loms2b3 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
lomsbhg fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
lomsbht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
loms2bp fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
l2bomode fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
l2b3mode fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
lbhgmode fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
lbhtmode fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
l2bpmode fac_srtnotificatie.fac_srtnotificatie_mode%TYPE := 0;
lbonotify mld_disc_params.mld_disc_params_bonotify%TYPE;
lbhgnotify mld_disc_params.mld_disc_params_bhgnotify%TYPE;
@@ -656,7 +656,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
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 (mld_melding_status = 2 OR mld_melding_status = 4) -- > MLDBHT --
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)
@@ -695,9 +695,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
SELECT lcl.x ('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
fac_srtnotificatie_mode
INTO lomsbhg, lbhgmode
INTO lomsbht, lbhtmode
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_code = 'MLDBHG';
WHERE fac_srtnotificatie_code = 'MLDBHT';
-- Vertaal melding-spoed (1-4) met 3=normaal naar email-spoed (1-3), waarbij 1=hoog, 2=normaal, 3=laag
IF lspoed <= 2
@@ -734,25 +734,25 @@ 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 = 2 AND pcode = 'MLDBHT' AND BITAND(lbhgnotify, 2) = 2
THEN
mld.notifyprio (pmeldingkey, lspoed, NULL, 2);
END IF;
-- 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 (lbhgmode > 0 OR l2bpmode > 0) AND pcode = 'MLDBHG' AND BITAND(lbhgnotify, 1) = 1 AND (lstatus = 2 OR lstatus = 4)
-- Sturing notificatie MLDBHT, MLD2BO of MLD2B3 (evt aangevuld met MLD2BP)
IF (lbhtmode > 0 OR l2bpmode > 0) AND pcode = 'MLDBHT' AND BITAND(lbhgnotify, 1) = 1 AND (lstatus = 2 OR lstatus = 4)
THEN
lfunctiecode := 'WEB_MLDBOF';
lsrtnoticode := 'MLDBHG';
bericht := mld.mldsprintf (lomsbhg, pmeldingkey); -- de variabelen invullen
ELSIF (l2b3mode > 0 OR l2bpmode > 0) AND lstatus = 2 AND pcode != 'MLDACP' AND pcode != 'MLDBHG' AND (lbonotify = 2 OR lbonotify = 3)
lsrtnoticode := 'MLDBHT';
bericht := mld.mldsprintf (lomsbht, pmeldingkey); -- de variabelen invullen
ELSIF (l2b3mode > 0 OR l2bpmode > 0) AND lstatus = 2 AND pcode != 'MLDACP' AND pcode != 'MLDBHT' AND (lbonotify = 2 OR lbonotify = 3)
THEN
lfunctiecode := 'WEB_MLDBO3';
lsrtnoticode := 'MLD2B3';
bericht := mld.mldsprintf (loms2b3, pmeldingkey); -- de variabelen invullen
ELSIF ((l2bomode > 0 OR l2bpmode > 0) AND (lstatus = 2 AND pcode != 'MLDACP' AND pcode != 'MLDBHG' AND lbonotify = 1)
ELSIF ((l2bomode > 0 OR l2bpmode > 0) AND (lstatus = 2 AND pcode != 'MLDACP' AND pcode != 'MLDBHT' AND lbonotify = 1)
OR (lstatus = 4 AND pcode = 'MLDACP' AND lbonotify = 3))
THEN
lfunctiecode := 'WEB_MLDBOF';
@@ -995,7 +995,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
IF pdisc_level = 2
THEN
lcode := 'MLDBHG';
lcode := 'MLDBHT';
END IF;
SELECT lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
@@ -1398,7 +1398,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
l_prs_kostenplaats_key prs_kostenplaats.prs_kostenplaats_key%TYPE;
l_prs_kostensoort_key prs_kostensoort.prs_kostensoort_key%TYPE;
l_ins_discipline_key mld_stdmelding.mld_ins_discipline_key%TYPE;
l_bhg_discipline_key mld_melding.mld_ins_discipline_key%TYPE;
l_bht_discipline_key mld_melding.mld_ins_discipline_key%TYPE;
l_opdr_discipline_key mld_opdr.mld_opdr_discipline_key%TYPE;
l_mld_melding_einddatum mld_melding.mld_melding_einddatum%TYPE;
l_mld_stdmelding_enddate_empty mld_stdmelding.mld_stdmelding_enddate_empty%TYPE;
@@ -1463,7 +1463,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
, l_prs_kostenplaats_key
, l_prs_kostensoort_key
, l_ins_discipline_key
, l_bhg_discipline_key
, l_bht_discipline_key
, l_mld_melding_einddatum
, l_mld_stdmelding_enddate_empty
, l_mld_melding_omschrijving
@@ -1492,7 +1492,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
THEN
l_opdr_discipline_key := l_ins_discipline_key;
ELSE
l_opdr_discipline_key := COALESCE(l_bhg_discipline_key, l_ins_discipline_key);
l_opdr_discipline_key := COALESCE(l_bht_discipline_key, l_ins_discipline_key);
END IF;
-- Moet er bij deze melding automatisch een opdracht worden aangemaakt?
@@ -2599,9 +2599,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
NULL,
NULL); -- ook mld2bo notificatie
IF r_nextsteps.mld_stdmelding_default_disc IS NOT NULL -- mldbhg notificatie
IF r_nextsteps.mld_stdmelding_default_disc IS NOT NULL -- mldbht notificatie
THEN
mld.notifybackoffice (l_new_melding_key, 'MLDBHG', 2);
mld.notifybackoffice (l_new_melding_key, 'MLDBHT', 2);
END IF;
-- Kopieer nu de objecten mee als je dat wilt