diff --git a/BAUS/baus.sql b/BAUS/baus.sql index bb701b0c1..5ed265ae8 100644 --- a/BAUS/baus.sql +++ b/BAUS/baus.sql @@ -356,92 +356,7 @@ AS WHERE ctr.ins_deel_key = last_insp.ins_deel_key(+) AND TRUNC (ctr.ins_deelsrtcontrole_datum) < TRUNC (SYSDATE + 42); -CREATE OR REPLACE PACKAGE BAUS -AS - PROCEDURE baus_noti_per_controle; -END; -/ -CREATE OR REPLACE PACKAGE BODY BAUS -AS - PROCEDURE baus_noti_per_controle - AS - p_applname VARCHAR2 (50) := 'NOTIFICATIE_PERIODIEKE_TAAK'; - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2 (200); - v_errorhint VARCHAR2 (100); - v_aanduiding VARCHAR2 (100); - BEGIN - v_errorhint := 'init'; - v_aanduiding := 'Maandelijkse notificatie periodieke taken'; - - INSERT INTO fac_notificatie (fac_srtnotificatie_key, - fac_notificatie_status, - prs_perslid_key_receiver, - fac_notificatie_receiver_email, - fac_notificatie_oms, - fac_notificatie_refkey, - prs_perslid_key_sender, - fac_notificatie_prioriteit, - fac_notificatie_lang) - SELECT fac_srtnotificatie_key, - 2, - 101, - 'Iwan.Broekhuis@bausch.com', - 'Taken voor de maand ' - || LOWER (TO_CHAR (SYSDATE, 'Month')), - (SELECT fac_usrrap_key - FROM fac_usrrap - WHERE UPPER (fac_usrrap_view_name) = 'BAUS_V_RAP_TAKEN'), ---- refkey: is het rapport - 4, - 2, - 'NL' - FROM fac_srtnotificatie sn - WHERE fac_srtnotificatie_code = 'CUST01'; - - fac.writelog (p_applname, - 'I', - 'Mail naar Iwan Broekhuis', - 'Maandelijkse notificatie periodieke taken'); - EXCEPTION - WHEN OTHERS - THEN - v_errorhint := 'Maandelijkse notificatie periodieke taken'; - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 100); - fac.writelog ( - p_applname, - 'E', - 'Error ' || oracle_err_num || '/' || oracle_err_mes, - v_errorhint); - END baus_noti_per_controle; -END; -/ - -CREATE OR REPLACE PROCEDURE baus_monthly -AS - v_errormsg VARCHAR2 (1000); - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2 (200); -BEGIN - baus.baus_noti_per_controle; -EXCEPTION - WHEN OTHERS - THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 200); - v_errormsg := - 'ORACLE (error ' - || oracle_err_num - || '/' - || oracle_err_mes - || ')'; - fac.writelog ('Monthly', - 'E', - 'Proces afgebroken!', - v_errormsg); -END baus_monthly; -/ ------ payload end ------