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

FCLT#88173 Spoed-indicatie Facilitor naar Mareon standaardiseren

Browse Source 
svn path=/Mareon/trunk/; revision=68874
This commit is contained in:
Marcel Bourseau
2025-04-28 15:11:18 +00:00
parent 4ce85e86b8
commit 6c88aa2d8c
1 changed files with 43 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
sql/mareon.sql
View File

@@ -229,6 +229,22 @@ SET DEFINE OFF
END;
/
-- FCLT#88173 Spoed-indicatie Facilitor naar Mareon standaardiseren
CREATE OR REPLACE FUNCTION marx_spoed_nr_to_text (p_mld_melding_spoed In NUMBER)
RETURN VARCHAR2
AS
v_result VARCHAR2 (4000);
BEGIN
SELECT DECODE(p_mld_melding_spoed, 1, LCL.L('lcl_mld_urg_kritiek'), 2, LCL.L('lcl_mld_urg_hoog'), 3, LCL.L('lcl_mld_urg_normaal'), 4, LCL.L('lcl_mld_urg_laag'), LCL.L('lcl_mld_urg_normaal'))
INTO v_result
FROM dual;
RETURN v_result;
END;
/
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------
@@ -2690,6 +2706,9 @@ SET DEFINE OFF
v_mld_melding_key NUMBER (10);
v_mld_melding_spoed VARCHAR2 (1000);
v_mld_melding_spoed_text_oud VARCHAR2 (1000);
v_mld_melding_spoed_text_new VARCHAR2 (1000);
l_spoed_opm VARCHAR2 (1000);
v_mld_melding_huurder VARCHAR2 (1000);
v_mld_melding_imp_huurder VARCHAR2 (1000);
@@ -3424,10 +3443,13 @@ SET DEFINE OFF
|| '('
|| v_mld_opdr_id
|| ')';
v_mld_melding_spoed_text_oud := marx_spoed_nr_to_text(v_mld_melding_spoed);
v_mld_melding_spoed_text_new := marx_spoed_nr_to_text(fac.safe_to_number(rec_vervolg_ax.mld_opdr_typering));
v_count_differences :=
v_count_differences
+ mar_diff_varchar (v_mld_melding_spoed,
COALESCE(rec_vervolg_ax.mld_opdr_typering,3),
+ mar_diff_varchar (v_mld_melding_spoed_text_oud,
v_mld_melding_spoed_text_new,
p_mld_opdr_key,
v_prs_perslid_key,
'Spoedindicatie');
@@ -3440,9 +3462,10 @@ SET DEFINE OFF
WHERE mld_melding_key = v_mld_melding_key;
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2')
THEN --mbmb
THEN
l_spoed_opm := LCL.L('lcl_mld_spoed') || '(' || v_mld_melding_spoed_text_new || '): ';
UPDATE mld_opdr
SET mld_opdr_omschrijving = safe_concat(safe_concat(LCL.L('lcl_mld_spoed'),':'), mld_opdr_omschrijving)
SET mld_opdr_omschrijving = safe_concat(l_spoed_opm, mld_opdr_omschrijving)
WHERE mld_opdr_key = p_mld_opdr_key;
END IF;
END IF;
@@ -5293,7 +5316,13 @@ SET DEFINE OFF
-- Kennelijk is er een situatie waarbij T365 niet altijd ORG doorgeeft
-- Maar daarnaast ontbreekt dit gegeven ook bij opdrachten vanuit Facilitor en Rems.
-- Bij aanmaak vult Mareon bij ontbreken van een expliciete typering deze op met (default) ORG.
v_mld_opdr_typering := 'ORG';
-- FCLT#88173 Spoed-indicatie, alleen in regel/execcode 1 zetten we een lege waarde op ORG, in andere gevallen gewoon leeg laten.
IF (v_mld_opdr_execcode=1)
THEN
v_mld_opdr_typering := 'ORG';
END IF;
END IF;
--
@@ -6057,6 +6086,10 @@ SET DEFINE OFF
v_mld_melding_key NUMBER (10);
v_mld_melding_status NUMBER (10);
v_mld_melding_spoed_text_new VARCHAR2 (1000);
l_spoed_opm VARCHAR2 (1000);
v_mld_opdr_key NUMBER (10);
v_mld_stdmelding_key NUMBER (10);
v_prs_perslid_key NUMBER (10);
@@ -6659,6 +6692,7 @@ SET DEFINE OFF
--FCLT#88173 Spoed-indicatie
-- 1= Kritiek, 2=Hoog, 3=Normaal, 4=Laag
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2' OR rec_vervolg_ax.mld_opdr_typering = '3' OR rec_vervolg_ax.mld_opdr_typering = '4')
THEN
-- We maken de melding evt. spoed, d.w.z. we nemen rec_vervolg_ax.mld_opdr_typering over, en zetten voor de opdrachtomschrijving het woord volgens Label 'lcl_mld_spoed' als dat het geval is.
@@ -6667,9 +6701,11 @@ SET DEFINE OFF
WHERE mld_melding_key = v_mld_melding_key;
IF (rec_vervolg_ax.mld_opdr_typering = '1' OR rec_vervolg_ax.mld_opdr_typering = '2')
THEN --mbmb
THEN
v_mld_melding_spoed_text_new := marx_spoed_nr_to_text(fac.safe_to_number(rec_vervolg_ax.mld_opdr_typering));
l_spoed_opm := LCL.L('lcl_mld_spoed') || '(' || v_mld_melding_spoed_text_new || '): ';
UPDATE mld_opdr
SET mld_opdr_omschrijving = safe_concat(safe_concat(LCL.L('lcl_mld_spoed'),':'), mld_opdr_omschrijving)
SET mld_opdr_omschrijving = safe_concat(l_spoed_opm, mld_opdr_omschrijving)
WHERE mld_opdr_key = v_mld_opdr_key;
END IF;
END IF;