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

LBRN#73284 -- Rappeltermijn voor uiterlijke datum contractverlenging

Browse Source 
svn path=/Customer/trunk/; revision=60192
This commit is contained in:
Norbert Wassink
2023-04-25 14:00:58 +00:00
parent d5ccf60690
commit 5d6d5092df
1 changed files with 288 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

288
LBRN/LBRN.sql
View File

@@ -28,6 +28,161 @@ SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE PACKAGE LBRN
AS
PROCEDURE anonimiseer_bezoeker;
END;
/
CREATE OR REPLACE PACKAGE BODY LBRN
AS
PROCEDURE anonimiseer_bezoeker
AS
anonymize_period NUMBER := 42;
bez_generic_visitor VARCHAR2 (2001)
:= lcl.l ('lcl_bez_generic_visitor');
v_count NUMBER;
CURSOR c_afspraak IS
SELECT a.bez_afspraak_key
FROM bez_afspraak a,
(SELECT datum_van
FROM (SELECT TRUNC (MIN (bez_afspraak_datum)) datum_van
FROM bez_afspraak a
WHERE bez_afspraak_datum <
(SYSDATE - anonymize_period)
AND NOT EXISTS
(SELECT ft.fac_tracking_key
FROM fac_tracking ft
WHERE ft.fac_tracking_refkey =
bez_afspraak_key
AND ft.fac_srtnotificatie_key =
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_code =
'BEZANO'))))
van,
(SELECT TRUNC (SYSDATE - anonymize_period) --- 6 weken dus 6*7
datum_tot
FROM DUAL) tot
WHERE a.bez_afspraak_datum BETWEEN van.datum_van
AND tot.datum_tot
AND NOT EXISTS
(SELECT ft.fac_tracking_key
FROM fac_tracking ft
WHERE ft.fac_tracking_refkey =
a.bez_afspraak_key
AND ft.fac_srtnotificatie_key =
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_code =
'BEZANO'))
ORDER BY a.bez_afspraak_key;
BEGIN
FOR rec IN c_afspraak
LOOP
-- Verwijder alle kenmerkwaarden van bezoekers van de afspraak waarvan het ampersand 8 (BITAND) bit van het bez_kenmerk.bez_kenmerk_systeem veld is gezet.
DELETE FROM bez_kenmerkwaarde bkw
WHERE bkw.bez_bezoekers_key IN
(SELECT b.bez_bezoekers_key
FROM bez_bezoekers b
WHERE b.bez_afspraak_key =
rec.bez_afspraak_key)
AND bkw.bez_kenmerk_key IN
(SELECT bk.bez_kenmerk_key
FROM bez_kenmerk bk
WHERE bk.bez_kenmerk_key =
bkw.bez_kenmerk_key
AND BITAND (bk.bez_kenmerk_systeem,
8) =
8);
-- Anonimiseer alle bezoekers.
UPDATE bez_bezoekers
SET bez_afspraak_naam = bez_generic_visitor,
bez_afspraak_bedrijf = NULL,
bez_afspraak_opmerking = NULL,
bez_bezoekers_telefoon = NULL,
bez_bezoekers_email = NULL,
bez_bezoekers_kenteken = NULL
WHERE bez_afspraak_key = rec.bez_afspraak_key;
-- Anonimiseer alle afspraken.
-- Door de trigger in de update wordt automatische de naam van de host in de gastheer geplakt.
-- Daardoor wordt de lcl "Ganonimiseerd" in vele gevallen niet blijvend in de gasheer gezet.
-- De persoon (prs record) moet daarom eerst aangepast worden.
-- Tijdens het anonimiseren van de persoon wordt daarom de bez_afspraak_gastheer ook geanonimiseerd.
-- In de gevallen dat er geen host wordt gebruikt en alleen tekst voor de persoon (gastheer) wordt ingevuld wordt het veld wel blijvend gezet.
UPDATE bez_afspraak
SET bez_afspraak_gastheer = bez_generic_visitor,
bez_afspraak_telefoonnr = NULL,
bez_afspraak_opmerking = NULL
WHERE bez_afspraak_key = rec.bez_afspraak_key;
-- Alle BEZ tracking anonimiseren m.b.t. de afspraak.
UPDATE fac_tracking
SET fac_tracking_oms = NULL
WHERE fac_srtnotificatie_key IN
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_xmlnode =
'afspraak'
AND fac_srtnotificatie_code != 'BEZANO')
AND fac_tracking_refkey = rec.bez_afspraak_key
AND fac_tracking_oms IS NOT NULL;
-- Alle BEZ tracking anonimiseren m.b.t. de bezoekers van de afspraak.
UPDATE fac_tracking
SET fac_tracking_oms = NULL
WHERE fac_srtnotificatie_key IN
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_xmlnode = 'bezoeker')
AND fac_tracking_refkey IN
(SELECT bb.bez_bezoekers_key
FROM bez_bezoekers bb
WHERE bb.bez_afspraak_key = rec.bez_afspraak_key)
AND fac_tracking_oms IS NOT NULL;
-- Anonimiseren van de afspraak tracken.
fac.trackaction ('BEZANO',
rec.bez_afspraak_key,
NULL,
NULL,
NULL);
IF v_count >= 1000
THEN
COMMIT;
v_count := 0;
ELSE
v_count := v_count + 1;
END IF;
END LOOP;
END;
END;
/
CREATE OR REPLACE PROCEDURE lbrn_daily
AS
BEGIN
-- inactiveren personen die 12 maanden niet hebben ingelogd
-- lbrn.inactivate_prs ();
-- anonimiseer bezoekers
lbrn.anonimiseer_bezoeker ();
END;
/
CREATE OR REPLACE PROCEDURE lbrn_import_contactpersoon(p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
@@ -139,6 +294,139 @@ END lbrn_update_contactpersoon;
/
CREATE OR REPLACE VIEW lbrn_v_noti_bez_aanmaak
AS
SELECT NULL sender,
NULL receiver,
'Uw bezoek aan Laborijn op '
|| TO_CHAR (bez_afspraak_datum, 'DD-MM-YYYY')
|| ' , '
|| TO_CHAR (bez_afspraak_datum, 'HH24:MI') text,
'CUST01' code,
a.bez_afspraak_key key,
bez_bezoekers_key xkey,
bez_bezoekers_email xemail,
NULL xmobile,
a.bez_afspraak_datum
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND TRUNC(a.bez_afspraak_datum) = TRUNC(SYSDATE)
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 405
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST01%');
CREATE OR REPLACE VIEW lbrn_v_noti_bezoeker
AS
SELECT NULL sender,
NULL receiver,
'Uw bezoek aan Laborijn op '
|| TO_CHAR (bez_afspraak_datum, 'DD-MM-YYYY')
|| ' , '
|| TO_CHAR (bez_afspraak_datum, 'HH24:MI') text,
'CUST02' code,
a.bez_afspraak_key key,
bez_bezoekers_key xkey,
bez_bezoekers_email xemail,
NULL xmobile
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND TRUNC(a.bez_afspraak_datum) = TRUNC(SYSDATE)
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 405
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST02%');
CREATE OR REPLACE VIEW lbrn_v_noti_res
AS
SELECT NULL sender,
NULL receiver,
'Herinnering : Uw reservering op '
|| TO_CHAR (rrr.res_rsv_ruimte_van, 'DD-MM-YYYY')
|| ' om '
|| TO_CHAR (rrr.res_rsv_ruimte_van, 'HH24:MI')
|| ' voor ruimte '||rr.res_ruimte_nr
|| ' in '|| al.alg_locatie_omschrijving text,
'CUST03' code,
rrr.res_reservering_key key,
null xkey,
p.prs_perslid_email xemail,
NULL xmobile
FROM res_rsv_ruimte rrr,
res_ruimte_opstelling rro,
res_ruimte rr,
res_alg_ruimte rar,
Alg_V_Allonrgoed_Gegevens alg,
alg_locatie al,
prs_perslid p
WHERE TRUNC(rrr.res_rsv_ruimte_van) = TRUNC(SYSDATE+1)
AND p.Prs_Perslid_Key = rrr.res_rsv_ruimte_host_key
AND p.prs_perslid_email IS NOT NULL
AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
AND rr.res_ruimte_key = rro.res_ruimte_key
AND rar.res_ruimte_key = rr.res_ruimte_key
AND alg.alg_ruimte_key = rar.alg_ruimte_key
AND al.alg_locatie_key = alg.alg_locatie_key
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 421
AND t.fac_tracking_refkey = rrr.res_reservering_key
AND t.fac_tracking_oms LIKE '%CUST03%');
CREATE OR REPLACE VIEW lbrn_v_cnt_verleng_rap
AS
SELECT NULL sender,
NULL receiver,
'Rappel verlengingstermijn van contract '
|| cnt_contract_key
|| ' is verlopen. Verlengdatum is: '|| To_CHAR(verleng_datum,'DD-MM-YYYY') text,
cnt_contract_key key,
p.prs_perslid_email xemail ,
'CUST04' code
FROM (
SELECT x.* ,
cnt.cnt_getTermijndatum(contract_looptijd_tot,verleng_termijn_key,-1) verleng_datum,
cnt.cnt_getTermijndatum(cnt.cnt_getTermijndatum(contract_looptijd_tot,verleng_termijn_key,-1),rappel_termijn_key,-1) rappel_datum
FROM (SELECT c.cnt_contract_key,
c.prs_perslid_key_beh,
c.cnt_contract_looptijd_tot contract_looptijd_tot,
FAC.SAFE_TO_NUMBER(ck.cnt_kenmerkcontract_waarde) verleng_termijn_key,
(SELECT cnt_kenmerkcontract_waarde
FROM cnt_kenmerkcontract ck,
cnt_kenmerk ckk1
WHERE ck.cnt_contract_key=c.cnt_contract_key
AND ck.cnt_kenmerk_key=ckk1.CNT_KENMERK_KEY
AND UPPER(ckk1.CNT_KENMERK_OMSCHRIJVING)='RAPPEL VERLENGINGSTERMIJN') rappel_termijn_key
FROM cnt_contract c,
cnt_kenmerkcontract ck,
cnt_kenmerk ckk
WHERE ck.cnt_contract_key=c.cnt_contract_key
AND ck.cnt_kenmerk_key=ckk.CNT_KENMERK_KEY
AND UPPER(ckk.CNT_KENMERK_OMSCHRIJVING)='UITERLIJKE VERLENGINGSTERMIJN'
) x
),
prs_perslid p
WHERE TRUNC(rappel_datum) = TRUNC(SYSDATE)
AND p.prs_perslid_key = prs_perslid_key_beh
AND NOT EXISTS (SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND t.fac_tracking_refkey = cnt_contract_key
AND fac_srtnotificatie_code = 'CUST04'
AND SYSDATE > fac_tracking_datum);
------ payload end ------
SET DEFINE OFF