diff --git a/VOLK/volk.sql b/VOLK/volk.sql index ea345a89b..cc9ecdc3c 100644 --- a/VOLK/volk.sql +++ b/VOLK/volk.sql @@ -1042,6 +1042,8 @@ AS CREATE OR REPLACE PACKAGE VOLK AS PROCEDURE mld_after_insert (p_melding_key IN NUMBER); + + PROCEDURE opschonen_registraties_fb; END; / @@ -1075,6 +1077,35 @@ AS WHERE m.mld_melding_key = rec.mld_melding_key; END LOOP; END; + + + PROCEDURE opschonen_registraties_fb + AS + oracle_err_num NUMBER; + oracle_err_mes VARCHAR2 (200); + v_errormsg VARCHAR2 (200); + BEGIN + DELETE volk_registraties_firmbase fb + WHERE fb.bez_einddatum < TRUNC (SYSDATE - 7); + + COMMIT; + EXCEPTION + WHEN OTHERS + THEN + oracle_err_num := SQLCODE; + oracle_err_mes := SUBSTR (SQLERRM, 1, 100); + v_errormsg := + 'OTHERS (error ' + || oracle_err_num + || '/' + || oracle_err_mes + || ')'; + fac.writelog ('Opschonen registraties Firmbase', + 'E', + v_errormsg, + ''); + END; + END; / @@ -1203,43 +1234,6 @@ AS AND afs.bez_afspraak_host_key = bez_voor.prs_perslid_key ORDER BY afs.bez_afspraak_datum; -CREATE OR REPLACE PACKAGE VOLK -AS - PROCEDURE opschonen_registraties_fb; -END; -/ - -CREATE OR REPLACE PACKAGE BODY VOLK -AS - PROCEDURE opschonen_registraties_fb - AS - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2 (200); - v_errormsg VARCHAR2 (200); - BEGIN - DELETE volk_registraties_firmbase fb - WHERE fb.bez_einddatum < TRUNC (SYSDATE - 7); - - COMMIT; - EXCEPTION - WHEN OTHERS - THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 100); - v_errormsg := - 'OTHERS (error ' - || oracle_err_num - || '/' - || oracle_err_mes - || ')'; - fac.writelog ('Opschonen registraties Firmbase', - 'E', - v_errormsg, - ''); - END; -END; -/ - CREATE OR REPLACE PROCEDURE VOLK_DAILY AS BEGIN