CSUN#22092
svn path=/Customer/trunk/; revision=15078
This commit is contained in:
Arthur Egberink
313
CSUN/CSUN.sql
Normal file
313
CSUN/CSUN.sql
Normal file
@@ -0,0 +1,313 @@
|
||||
-- Script containing customer specific configuration sql statements for CSUN: CSU National Accounts
|
||||
-- (c) 2011 SG|facilitor
|
||||
-- $Revision: 1 $
|
||||
-- $Modtime: 26-12-11 23:56 $
|
||||
--
|
||||
-- Support: +31 53 4800710
|
||||
|
||||
|
||||
|
||||
SPOOL xCSUN.LST
|
||||
SET ECHO ON
|
||||
--------------
|
||||
|
||||
|
||||
CREATE OR REPLACE PACKAGE CSUN_RAP
|
||||
AS
|
||||
-- PACKAGES voor de Connexxion specifieke rapportages
|
||||
TYPE t_cursor IS REF CURSOR;
|
||||
|
||||
PROCEDURE district_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2,
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor);
|
||||
PROCEDURE regio_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2,
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor);
|
||||
PROCEDURE client_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2,
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PACKAGE BODY CSUN_RAP
|
||||
AS
|
||||
--
|
||||
--Rapportages
|
||||
--
|
||||
PROCEDURE district_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2, -- Let wel: formaat '13-05-2005'
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor)
|
||||
AS
|
||||
v_datum_van DATE;
|
||||
v_datum_tot DATE;
|
||||
v_alg_level_read NUMBER;
|
||||
BEGIN
|
||||
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
|
||||
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy')+1;
|
||||
|
||||
OPEN p_cursor FOR
|
||||
SELECT district,
|
||||
COUNT (mld_key) aantal_meldingen,
|
||||
SUM (acceptoptijd) acceptoptijd,
|
||||
SUM (uitvoeringoptijd) uitvoeringoptijd
|
||||
FROM (
|
||||
SELECT DISTINCT
|
||||
m.mld_melding_key mld_key,
|
||||
di.alg_district_upper district,
|
||||
l.alg_locatie_code locatie,
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
fac.gettrackingdate ('MLDNEW', m.mld_melding_key),
|
||||
std.mld_stdmelding_urgentie,
|
||||
'UREN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDACP', m.mld_melding_key), SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
acceptoptijd,
|
||||
CASE
|
||||
WHEN fac.gettrackingdate ('MLDREJ', m.mld_melding_key) IS NULL
|
||||
THEN
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
m.mld_melding_datum,
|
||||
m.mld_melding_uitvoertijd,
|
||||
'DAGEN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key), SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
ELSE 1
|
||||
END
|
||||
uitvoeringoptijd
|
||||
FROM mld_melding m,
|
||||
mld_discipline md,
|
||||
alg_locatie l,
|
||||
alg_district di,
|
||||
prs_perslid p,
|
||||
mld_stdmelding std
|
||||
WHERE m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND l.alg_district_key = di.alg_district_key
|
||||
AND m.prs_perslid_key = p.prs_perslid_key
|
||||
AND md.ins_discipline_key = std.mld_ins_discipline_key
|
||||
AND std.mld_stdmelding_key = m.mld_stdmelding_key
|
||||
AND m.mld_melding_datum BETWEEN v_datum_van AND v_datum_tot
|
||||
)
|
||||
GROUP BY district;
|
||||
END;
|
||||
|
||||
PROCEDURE regio_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2, -- Let wel: formaat '13-05-2005'
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor)
|
||||
AS
|
||||
v_datum_van DATE;
|
||||
v_datum_tot DATE;
|
||||
v_alg_level_read NUMBER;
|
||||
BEGIN
|
||||
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
|
||||
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy')+1;
|
||||
|
||||
OPEN p_cursor FOR
|
||||
SELECT regio,
|
||||
COUNT (mld_key) aantal_meldingen,
|
||||
SUM (acceptoptijd) acceptoptijd,
|
||||
SUM (uitvoeringoptijd) uitvoeringoptijd
|
||||
FROM (
|
||||
SELECT DISTINCT
|
||||
m.mld_melding_key mld_key,
|
||||
di.alg_district_upper district,
|
||||
l.alg_locatie_code locatie,
|
||||
r.alg_regio_omschrijving regio,
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
fac.gettrackingdate ('MLDNEW', m.mld_melding_key),
|
||||
std.mld_stdmelding_urgentie,
|
||||
'UREN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDACP', m.mld_melding_key), SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
acceptoptijd,
|
||||
CASE
|
||||
WHEN fac.gettrackingdate ('MLDREJ', m.mld_melding_key) IS NULL
|
||||
THEN
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
m.mld_melding_datum,
|
||||
m.mld_melding_uitvoertijd,
|
||||
'DAGEN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key), SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
ELSE 1
|
||||
END
|
||||
uitvoeringoptijd
|
||||
FROM mld_melding m,
|
||||
mld_discipline md,
|
||||
alg_regio r,
|
||||
alg_locatie l,
|
||||
alg_district di,
|
||||
prs_perslid p,
|
||||
mld_stdmelding std
|
||||
WHERE m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND l.alg_district_key = di.alg_district_key
|
||||
AND di.alg_regio_key = r.alg_regio_key
|
||||
AND m.prs_perslid_key = p.prs_perslid_key
|
||||
AND md.ins_discipline_key = std.mld_ins_discipline_key
|
||||
AND std.mld_stdmelding_key = m.mld_stdmelding_key
|
||||
AND m.mld_melding_datum BETWEEN v_datum_van AND v_datum_tot
|
||||
)
|
||||
GROUP BY regio;
|
||||
END;
|
||||
|
||||
PROCEDURE client_periode (user_key IN NUMBER,
|
||||
p_datum_van IN VARCHAR2, -- Let wel: formaat '13-05-2005'
|
||||
p_datum_tot IN VARCHAR2,
|
||||
p_cursor OUT t_cursor)
|
||||
AS
|
||||
v_datum_van DATE;
|
||||
v_datum_tot DATE;
|
||||
v_alg_level_read NUMBER;
|
||||
BEGIN
|
||||
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
|
||||
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy')+1;
|
||||
|
||||
OPEN p_cursor FOR
|
||||
SELECT fac_usrdata_omschr client,
|
||||
COUNT (mld_key) aantal_meldingen,
|
||||
SUM (acceptoptijd) acceptoptijd,
|
||||
SUM (uitvoeringoptijd) uitvoeringoptijd
|
||||
FROM (
|
||||
SELECT DISTINCT
|
||||
m.mld_melding_key mld_key,
|
||||
fac_usrdata_omschr ,
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
fac.gettrackingdate ('MLDNEW', m.mld_melding_key),
|
||||
std.mld_stdmelding_urgentie,
|
||||
'UREN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDACP', m.mld_melding_key),
|
||||
SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
acceptoptijd,
|
||||
CASE
|
||||
WHEN fac.gettrackingdate ('MLDREJ', m.mld_melding_key) IS NULL
|
||||
THEN
|
||||
CASE SIGN(fac.datumtijdplusuitvoertijd (
|
||||
m.mld_melding_datum,
|
||||
m.mld_melding_uitvoertijd,
|
||||
'DAGEN')
|
||||
- COALESCE (fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
|
||||
COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
|
||||
SYSDATE)))
|
||||
WHEN -1 THEN 0
|
||||
ELSE 1
|
||||
END
|
||||
ELSE 1
|
||||
END
|
||||
uitvoeringoptijd
|
||||
FROM mld_melding m,
|
||||
alg_onrgoedkenmerk ogk,
|
||||
mld_stdmelding std,
|
||||
fac_usrdata ud
|
||||
WHERE m.mld_alg_locatie_key = ogk.alg_onrgoed_key
|
||||
AND ogk.alg_onrgoed_niveau = 'L'
|
||||
AND ogk.alg_kenmerk_key = 1000
|
||||
AND fac.safe_to_number(ogk.alg_onrgoedkenmerk_waarde) = fac_usrdata_key
|
||||
AND m.mld_stdmelding_key = std.mld_stdmelding_key
|
||||
AND m.mld_melding_datum BETWEEN v_datum_van AND v_datum_tot
|
||||
)
|
||||
GROUP BY fac_usrdata_omschr;
|
||||
END;
|
||||
|
||||
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE csun_export_mailnoti (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_filedir IN VARCHAR2,
|
||||
p_filename IN VARCHAR2
|
||||
)
|
||||
AS
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT m.mld_melding_key, p.prs_perslid_email
|
||||
FROM prs_perslid p,
|
||||
mld_melding m,
|
||||
alg_locatie l,
|
||||
alg_locatie l2,
|
||||
prs_v_perslidwerkplek_gegevens pwpg
|
||||
WHERE m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND pwpg.alg_locatie_key = l2.alg_locatie_key
|
||||
AND l.alg_district_key = l2.alg_district_key
|
||||
AND pwpg.prs_perslid_key = p.prs_perslid_key
|
||||
AND p.prs_srtperslid_key = 32 -- BBer
|
||||
AND p.prs_perslid_email IS NOT NULL
|
||||
AND NOT EXISTS
|
||||
(SELECT fac_tracking_key
|
||||
FROM fac_tracking t
|
||||
WHERE fac_tracking_oms LIKE 'Gemaild naar BBer:%'
|
||||
AND t.fac_tracking_refkey = mld_melding_key);
|
||||
|
||||
v_dummy VARCHAR2 (128);
|
||||
BEGIN
|
||||
-- stuur de notificatie ook naar het emailadres kenmerk.
|
||||
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
|
||||
fac_notificatie_status,
|
||||
fac_notificatie_receiver_email,
|
||||
fac_notificatie_oms,
|
||||
fac_notificatie_refkey,
|
||||
fac_notificatie_prioriteit,
|
||||
fac_notificatie_sender_email,
|
||||
fac_notificatie_lang,
|
||||
prs_perslid_key_sender)
|
||||
SELECT n.fac_srtnotificatie_key,
|
||||
fac_notificatie_status,
|
||||
mld_kenmerkmelding_waarde,
|
||||
fac_notificatie_oms,
|
||||
fac_notificatie_refkey,
|
||||
fac_notificatie_prioriteit,
|
||||
fac_notificatie_sender_email,
|
||||
fac_notificatie_lang,
|
||||
prs_perslid_key_sender
|
||||
FROM fac_notificatie n,
|
||||
fac_srtnotificatie sn,
|
||||
mld_kenmerkmelding km,
|
||||
mld_kenmerk k
|
||||
WHERE n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
|
||||
AND ( sn.fac_srtnotificatie_code = 'MLDAFM'
|
||||
OR sn.fac_srtnotificatie_code = 'MLDUPD'
|
||||
OR sn.fac_srtnotificatie_code = 'MLD_REJ')
|
||||
AND n.fac_notificatie_refkey = km.mld_melding_key
|
||||
AND km.mld_kenmerk_key = k.mld_kenmerk_key
|
||||
AND k.mld_srtkenmerk_key = 1; -- email notificatie
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
BEGIN
|
||||
fac.putnotificationsrtprio(null, null, 'MLDMAI', rec.mld_melding_key, 'Melding ' || rec.mld_melding_key || ' is aan u in behandeling gegeven', 2, rec.prs_perslid_email, null, null, 2, null);
|
||||
fac.trackaction('MLDMAI', rec.mld_melding_key, 4, NULL, 'Gemaild naar BBer: ' || rec.prs_perslid_email);
|
||||
END;
|
||||
END LOOP;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
BEGIN fac.registercustversion('CSUN', 1); END;
|
||||
/
|
||||
|
||||
|
||||
COMMIT;
|
||||
|
||||
spool off
|
||||
|
||||
Reference in New Issue
Block a user