Customer/BLCC/blcc.sql

--
-- $Id$
--
-- Script containing customer specific db-configuration for BLCC.
DEFINE thisfile = 'BLCC.SQL'
DEFINE dbuser   = '^BLCC'

SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
---------------------------------------
SET DEFINE OFF

------ payload begin ------

-- BLCC#89843: Lijst van alle gebouwen zodat dit als kenmerk kan toegevoegd
--             worden aan de contracten.
CREATE OR REPLACE VIEW BLCC_V_GEBOUWEN
AS
    SELECT alg_gebouw_key,
           TO_CHAR (alg_gebouw_code) || ' ' || alg_gebouw_naam gebouw_naam,
           COALESCE (alg_gebouw_verwijder, alg_gebouw_vervaldatum) alg_gebouw_verwijder
      FROM ALG_GEBOUW
     WHERE alg_gebouw_key != 5941               -- Niet gebruiken (met code=_)
;

-- BLCC#70677: Inrichten BHV organisatie.
CREATE OR REPLACE VIEW BLCC_V_UDR_BHV_ORGANISATIE
AS
      SELECT p.prs_perslid_key,
             p.prs_perslid_email,
             p.prs_perslid_naam,
             p.prs_perslid_tussenvoegsel,
             p.prs_perslid_voorletters,
             p.prs_perslid_voornaam,
                prs_perslid_naam
             || DECODE (p.prs_perslid_voorletters,
                        NULL, '',
                        ', ' || p.prs_perslid_voorletters)
             || DECODE (p.prs_perslid_tussenvoegsel,
                        NULL, '',
                        ' ' || p.prs_perslid_tussenvoegsel)
             || DECODE (p.prs_perslid_voornaam,
                        NULL, '',
                        ' (' || p.prs_perslid_voornaam || ')')
                 prs_perslid_naam_full,
                DECODE (p.prs_perslid_voornaam,
                        NULL, '',
                        p.prs_perslid_voornaam || ' ')
             || DECODE (p.prs_perslid_tussenvoegsel,
                        NULL, '',
                        p.prs_perslid_tussenvoegsel || ' ')
             || prs_perslid_naam
                 prs_perslid_naam_friendly,
             a.prs_afdeling_omschrijving
                 bedrijf,
             r.rayon,
             t.taal,
             COALESCE (pic.picasse, 'Nee')
                 alleen_picasse,
             ehbo_tas.ins_deel_key
                 ehbo_tas_key,
             ehbo_tas.ins_deel_omschrijving
                 ehbo_tas,
             ehbo_tas.coll_huurderspec
                 ehbo_tas_coll_huurderspec,
             bhv_b.ins_deel_key
                 bhv_b_key,
             bhv_b.code_bhv_b,
             bhv_b.registratie_datum_bhv_b,
             bhv_b.code_hh
                 code_hh_bhv_b,
             bhv_b.coll_huurderspec
                 bhv_b_coll_huurderspec,
             last_bhv_t,
             last_bhv_p,
             last_be_aware,
             ehbo_rk.ins_deel_key
                 ehbo_rk_key,
             ehbo_rk.code_ehbo_rk,
             ehbo_rk.registratie_datum_ehbo_rk,
             ehbo_rk.coll_huurderspec
                 ehbo_rk_coll_huurderspec,
             ehbo_rk.last_hh_ehbo,
             pl_b.ins_deel_key
                 pl_b_key,
             pl_b.code_pl_b,
             pl_b.registratie_datum_pl_b,
             pl_b.coll_huurderspec
                 pl_b_coll_huurderspec,
             pl_b.last_hh_pl_b
        FROM prs_perslid    p,
             prs_kenmerklink bl,
             prs_kenmerk    b,
             prs_afdeling   a,
             (SELECT kl.prs_link_key, ud.fac_usrdata_omschr rayon
                FROM prs_kenmerklink kl,
                     prs_kenmerk    k,
                     fac_usrdata    ud,
                     fac_usrtab     ut
               WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                     AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = ut.fac_usrtab_key
                     AND UPPER (ut.fac_usrtab_naam) = 'RAYON'
                     AND k.prs_kenmerk_key IN (1260, 1261, 1262)) r,
             (SELECT tl.prs_link_key, tl.prs_kenmerklink_waarde taal
                FROM prs_kenmerklink tl, prs_kenmerk t
               WHERE     tl.prs_kenmerk_key = t.prs_kenmerk_key
                     AND t.prs_kenmerk_key = 1180) t,
             (SELECT d.ins_deel_key,
                     d.ins_deel_omschrijving,
                     d.prs_perslid_key_beh,
                     c_h.coll_huurderspec
                FROM ins_deel d,
                     (SELECT kd.ins_deel_key,
                             ud.fac_usrdata_omschr     coll_huurderspec
                        FROM ins_kenmerk    k,
                             ins_kenmerkdeel kd,
                             fac_usrdata    ud,
                             fac_usrtab     ut
                       WHERE     k.ins_srtkenmerk_key = 85
                             AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                             AND ud.fac_usrdata_key =
                                 fac.safe_to_number (kd.ins_kenmerkdeel_waarde)
                             AND ut.fac_usrtab_key = ud.fac_usrtab_key
                             AND ut.fac_usrtab_key = 941) c_h
               WHERE     d.ins_srtdeel_key = 241
                     AND d.ins_deel_verwijder IS NULL
                     AND c_h.ins_deel_key(+) = d.ins_deel_key
                     AND (   d.ins_deel_vervaldatum IS NULL
                          OR d.ins_deel_vervaldatum > SYSDATE)) ehbo_tas,
             (  SELECT d.ins_deel_key,
                       d.ins_deel_aanmaak                             registratie_datum_bhv_b,
                       d.ins_deel_omschrijving                        code_bhv_b,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       code_hh.ins_kenmerkdeel_waarde                 code_hh,
                       c_h.coll_huurderspec,
                       TRUNC (MAX (hht.ins_deelsrtcontrole_datum))    last_bhv_t,
                       TRUNC (MAX (hhp.ins_deelsrtcontrole_datum))    last_bhv_p,
                       TRUNC (MAX (bea.ins_deelsrtcontrole_datum))    last_be_aware
                  FROM ins_deel d,
                       ins_srtdeel sd,
                       (SELECT ins_deelsrtcontrole_datum, ins_deel_key
                          FROM ins_deelsrtcontrole
                         WHERE ins_srtcontrole_key = 51) hht, -- bhv hh theorie,
                       (SELECT ins_deelsrtcontrole_datum, ins_deel_key
                          FROM ins_deelsrtcontrole
                         WHERE ins_srtcontrole_key = 50) hhp, -- bhv hh praktijk
                       (SELECT ins_deelsrtcontrole_datum, ins_deel_key
                          FROM ins_deelsrtcontrole
                         WHERE ins_srtcontrole_key = 90) bea, -- be aware be self reliant
                       (SELECT kd.ins_deel_key,
                               ud.fac_usrdata_omschr     coll_huurderspec
                          FROM ins_kenmerk  k,
                               ins_kenmerkdeel kd,
                               fac_usrdata  ud,
                               fac_usrtab   ut
                         WHERE     k.ins_srtkenmerk_key = 85
                               AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                               AND ud.fac_usrdata_key =
                                   fac.safe_to_number (kd.ins_kenmerkdeel_waarde)
                               AND ut.fac_usrtab_key = ud.fac_usrtab_key
                               AND ut.fac_usrtab_key = 941) c_h,
                       (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
                          FROM ins_srtkenmerk sk,
                               ins_kenmerk  k,
                               ins_kenmerkdeel kd
                         WHERE     sk.ins_srtkenmerk_key = 261
                               AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                               AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                               AND kd.ins_kenmerkdeel_verwijder IS NULL) code_hh
                 WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
                       AND sd.ins_srtdeel_key = 281               -- bhv-basis
                       AND code_hh.ins_deel_key(+) = d.ins_deel_key
                       AND c_h.ins_deel_key(+) = d.ins_deel_key
                       AND d.ins_deel_verwijder IS NULL
                       AND hht.ins_deel_key(+) = d.ins_deel_key
                       AND hhp.ins_deel_key(+) = d.ins_deel_key
                       AND bea.ins_deel_key(+) = d.ins_deel_key
                       AND (   d.ins_deel_vervaldatum IS NULL
                            OR d.ins_deel_vervaldatum > SYSDATE)
              GROUP BY d.ins_deel_key,
                       d.ins_deel_aanmaak,
                       d.ins_deel_omschrijving,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       code_hh.ins_kenmerkdeel_waarde,
                       c_h.coll_huurderspec) bhv_b,
             (  SELECT d.ins_deel_key,
                       d.ins_deel_aanmaak                                 registratie_datum_ehbo_rk,
                       d.ins_deel_omschrijving                            code_ehbo_rk,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       c_h.coll_huurderspec,
                       TRUNC (MAX (hh_ehbo.ins_deelsrtcontrole_datum))    last_hh_ehbo
                  FROM ins_deel d,
                       ins_srtdeel sd,
                       (SELECT ins_deelsrtcontrole_datum, ins_deel_key
                          FROM ins_deelsrtcontrole
                         WHERE ins_srtcontrole_key = 53) hh_ehbo, -- herhaling ehbo
                       (SELECT kd.ins_deel_key,
                               ud.fac_usrdata_omschr     coll_huurderspec
                          FROM ins_kenmerk  k,
                               ins_kenmerkdeel kd,
                               fac_usrdata  ud,
                               fac_usrtab   ut
                         WHERE     k.ins_srtkenmerk_key = 85
                               AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                               AND ud.fac_usrdata_key =
                                   fac.safe_to_number (kd.ins_kenmerkdeel_waarde)
                               AND ut.fac_usrtab_key = ud.fac_usrtab_key
                               AND ut.fac_usrtab_key = 941) c_h
                 WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
                       AND sd.ins_srtdeel_key = 287
                       AND d.ins_deel_verwijder IS NULL
                       AND c_h.ins_deel_key(+) = d.ins_deel_key
                       AND hh_ehbo.ins_deel_key(+) = d.ins_deel_key
                       AND (   d.ins_deel_vervaldatum IS NULL
                            OR d.ins_deel_vervaldatum > SYSDATE)
              GROUP BY d.ins_deel_key,
                       d.ins_deel_aanmaak,
                       d.ins_deel_omschrijving,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       c_h.coll_huurderspec) ehbo_rk,
             (  SELECT d.ins_deel_key,
                       d.ins_deel_aanmaak                                 registratie_datum_pl_b,
                       d.ins_deel_omschrijving                            code_pl_b,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       c_h.coll_huurderspec,
                       TRUNC (MAX (hh_pl_b.ins_deelsrtcontrole_datum))    last_hh_pl_b
                  FROM ins_deel d,
                       ins_srtdeel sd,
                       (SELECT ins_deelsrtcontrole_datum, ins_deel_key
                          FROM ins_deelsrtcontrole
                         WHERE ins_srtcontrole_key = 52) hh_pl_b, -- herhaling ploegleider basis
                       (SELECT kd.ins_deel_key,
                               ud.fac_usrdata_omschr     coll_huurderspec
                          FROM ins_kenmerk  k,
                               ins_kenmerkdeel kd,
                               fac_usrdata  ud,
                               fac_usrtab   ut
                         WHERE     k.ins_srtkenmerk_key = 85
                               AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                               AND ud.fac_usrdata_key =
                                   fac.safe_to_number (kd.ins_kenmerkdeel_waarde)
                               AND ut.fac_usrtab_key = ud.fac_usrtab_key
                               AND ut.fac_usrtab_key = 941) c_h
                 WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
                       AND sd.ins_srtdeel_key = 285
                       AND d.ins_deel_verwijder IS NULL
                       AND c_h.ins_deel_key(+) = d.ins_deel_key
                       AND hh_pl_b.ins_deel_key(+) = d.ins_deel_key
                       AND (   d.ins_deel_vervaldatum IS NULL
                            OR d.ins_deel_vervaldatum > SYSDATE)
              GROUP BY d.ins_deel_key,
                       d.ins_deel_aanmaak,
                       d.ins_deel_omschrijving,
                       sd.ins_srtdeel_omschrijving,
                       sd.ins_srtdeel_code,
                       d.prs_perslid_key_beh,
                       c_h.coll_huurderspec) pl_b,
             (SELECT kl.prs_link_key,
                     DECODE (kl.prs_kenmerklink_waarde, 1, 'Ja', NULL)    picasse
                FROM prs_kenmerklink kl, prs_kenmerk k
               WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                     AND k.prs_kenmerk_niveau = 'P'
                     AND k.prs_kenmerk_key = 1280
                     AND kl.prs_kenmerklink_verwijder IS NULL) pic
       WHERE     p.prs_perslid_key = bl.prs_link_key
             AND a.prs_afdeling_key = p.prs_afdeling_key
             AND bl.prs_kenmerk_key = b.prs_kenmerk_key
             AND b.prs_kenmerk_key = 1220                            -- BHV-er
             AND r.prs_link_key(+) = p.prs_perslid_key                -- rayon
             AND t.prs_link_key(+) = p.prs_perslid_key                 -- taal
             AND p.prs_perslid_verwijder IS NULL
             AND (   p.prs_perslid_einddatum IS NULL
                  OR p.prs_perslid_einddatum > SYSDATE)
             AND ehbo_tas.prs_perslid_key_beh(+) = p.prs_perslid_key
             AND bhv_b.prs_perslid_key_beh(+) = p.prs_perslid_key
             AND ehbo_rk.prs_perslid_key_beh(+) = p.prs_perslid_key
             AND pl_b.prs_perslid_key_beh(+) = p.prs_perslid_key
             AND pic.prs_link_key(+) = p.prs_perslid_key
    ORDER BY p.prs_perslid_naam;

CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_LIJST
(
    RAYON,
    PRS_PERSLID_KEY,
    PRS_PERSLID_VOORNAAM,
    PRS_PERSLID_TUSSENVOEGSEL,
    PRS_PERSLID_NAAM,
    PRS_PERSLID_MOBIEL,
    COMPANY,
    ALG_RUIMTE_NR
)
AS
      SELECT rayon.rayon,
             p.prs_perslid_key,
             p.prs_perslid_voornaam,
             p.prs_perslid_tussenvoegsel,
             p.prs_perslid_naam,
             p.prs_perslid_mobiel,
             a.prs_afdeling_omschrijving     company,
             ''                              alg_ruimte_nr
        FROM prs_perslid p,
             (SELECT kl.prs_link_key
                FROM prs_kenmerklink kl, prs_kenmerk k
               WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                     AND k.prs_kenmerk_key = 1220) bhv,
             (SELECT kl.prs_link_key, ud.fac_usrdata_omschr rayon
                FROM prs_kenmerklink kl,
                     prs_kenmerk    k,
                     fac_usrdata    ud,
                     fac_usrtab     ut
               WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                     AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = ut.fac_usrtab_key
                     AND UPPER (ut.fac_usrtab_naam) = 'RAYON'
                     AND k.prs_kenmerk_key IN (1260, 1261, 1262)) rayon,
             prs_afdeling a
       WHERE     p.prs_perslid_key = bhv.prs_link_key
             AND p.prs_perslid_key = rayon.prs_link_key
             AND p.prs_afdeling_key = a.prs_afdeling_key
             AND p.prs_perslid_verwijder IS NULL
    ORDER BY rayon.rayon, prs_perslid_naam;

CREATE OR REPLACE VIEW BLCC_V_RAP_OPLEIDINGSINST
AS
    SELECT bhv.prs_perslid_naam_full,
           bhv.prs_perslid_email,
           r1.rayon_1,
           r2.rayon_2,
           r3.rayon_3,
           bhv.taal,
           bhv.code_bhv_b,
           bhv.code_hh_bhv_b
      FROM blcc_v_udr_bhv_organisatie  bhv,
           (SELECT kl.prs_link_key, ud.fac_usrdata_omschr rayon_1
              FROM prs_kenmerklink  kl,
                   prs_kenmerk      k,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                   AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND UPPER (ut.fac_usrtab_naam) = 'RAYON'
                   AND k.prs_kenmerk_key = 1260) r1,
           (SELECT kl.prs_link_key, ud.fac_usrdata_omschr rayon_2
              FROM prs_kenmerklink  kl,
                   prs_kenmerk      k,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                   AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND UPPER (ut.fac_usrtab_naam) = 'RAYON'
                   AND k.prs_kenmerk_key = 1261) r2,
           (SELECT kl.prs_link_key, ud.fac_usrdata_omschr rayon_3
              FROM prs_kenmerklink  kl,
                   prs_kenmerk      k,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     kl.prs_kenmerk_key = k.prs_kenmerk_key
                   AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND UPPER (ut.fac_usrtab_naam) = 'RAYON'
                   AND k.prs_kenmerk_key = 1262) r3
     WHERE     r1.prs_link_key(+) = bhv.prs_perslid_key
           AND r2.prs_link_key(+) = bhv.prs_perslid_key
           AND r3.prs_link_key(+) = bhv.prs_perslid_key;

CREATE OR REPLACE VIEW blcc_v_bestelling_ehbo_tas
(
    ins_deel_key,
    ehbo_tas,
    eigenaar_key,
    eigenaar,
    controle,
    controle_key,
    datum,
    perslid,
    gebouw,
    bestelling_tas
)
AS
    WITH
        bestelling
        AS
            (SELECT d.ins_deel_key,
                    d.ins_deel_omschrijving
                        ehbo_tas,
                    srt_eigenaar.ins_kenmerkdeel_waarde eigenaar_key,
                    srt_eigenaar.eigenaar,
                    isc.ins_srtcontrole_omschrijving
                        controle,
                    idsc.ins_deelsrtcontrole_key
                        controle_key,
                    idsc.ins_deelsrtcontrole_datum
                        datum,
                    (SELECT prs_perslid_naam_full
                       FROM prs_v_perslid_fullnames_all pf
                      WHERE pf.prs_perslid_key = idsc.prs_perslid_key)
                        perslid,
                    gebouw.alg_gebouw_omschrijving
                        gebouw,
                       REPLACE (
                           REPLACE (bestelling.ins_kenmerk_omschrijving,
                                    ' te bestellen',
                                    ''),
                           '*',
                           '')
                    || ': '
                    || bestelling.ins_kmdeelsrtcontr_waarde
                        bestelling
               FROM ins_deel             d,
                    ins_deelsrtcontrole  idsc,
                    ins_srtcontrole      isc,
                    (SELECT d.ins_deel_key,
                            kd.ins_kenmerkdeel_waarde,
                            ud.fac_usrdata_omschr     eigenaar
                       FROM ins_kenmerkdeel  kd,
                            ins_kenmerk      k,
                            ins_deel         d,
                            ins_srtdeel      sd,
                            ins_srtkenmerk   sk,
                            fac_usrtab       ut,
                            fac_usrdata      ud
                      WHERE     k.ins_kenmerk_key = kd.ins_kenmerk_key
                            AND d.ins_deel_key = kd.ins_deel_key
                            AND sd.ins_srtdeel_key = d.ins_srtdeel_key
                            AND sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
                            AND fac.safe_to_number(kd.ins_kenmerkdeel_waarde) =
                                ud.fac_usrdata_key
                            AND ut.fac_usrtab_key = ud.fac_usrtab_key
                            AND ut.fac_usrtab_key = 941
                            AND UPPER (sd.ins_srtdeel_omschrijving) LIKE
                                    '%EHBO%'
                            AND UPPER (sk.ins_srtkenmerk_omschrijving) LIKE
                                    '%COLLECTIEF/ALGEMEEN/HUURDER%')
                    srt_eigenaar,
                    (SELECT k.ins_kenmerk_omschrijving,
                            kctr.ins_kmdeelsrtcontr_waarde,
                            kctr.ins_deelsrtcontrole_key
                       FROM ins_kmdeelsrtcontr  kctr,
                            ins_kenmerk         k,
                            ins_srtkenmerk      sk
                      WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                            AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                            AND fac.safe_to_number (
                                    kctr.ins_kmdeelsrtcontr_waarde) >
                                0 -- alleen meenemen als er ook besteld moet worden
                            AND sk.ins_srtkenmerk_upper LIKE '%TE BESTELLEN%')
                    bestelling,
                    (SELECT k.ins_kenmerk_omschrijving,
                            g.alg_gebouw_omschrijving,
                            kctr.ins_deelsrtcontrole_key
                       FROM ins_kmdeelsrtcontr  kctr,
                            ins_kenmerk         k,
                            ins_srtkenmerk      sk,
                            alg_gebouw          g
                      WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                            AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                            AND sk.ins_srtkenmerk_upper LIKE '%GEBOUW%'
                            AND fac.safe_to_number (
                                    kctr.ins_kmdeelsrtcontr_waarde) =
                                g.alg_gebouw_key) gebouw
              WHERE     d.ins_deel_key = idsc.ins_deel_key
                    AND isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
                    AND idsc.ins_deelsrtcontrole_status = 6        -- voltooid
                    AND bestelling.ins_deelsrtcontrole_key =
                        idsc.ins_deelsrtcontrole_key
                    AND gebouw.ins_deelsrtcontrole_key(+) =
                        idsc.ins_deelsrtcontrole_key
                    AND srt_eigenaar.ins_deel_key(+) = d.ins_deel_key
                    AND UPPER (isc.ins_srtcontrole_omschrijving) LIKE
                            '%CONTROLE INHOUD EHBO%')
      SELECT ins_deel_key,
             ehbo_tas,
             eigenaar_key,
             eigenaar,
             controle,
             controle_key,
             datum,
             perslid,
             gebouw,
             LISTAGG (bestelling, CHR (10))
                 WITHIN GROUP (ORDER BY controle_key)    bestelling_tas
        FROM bestelling
    GROUP BY ins_deel_key,
             ehbo_tas,
             eigenaar_key,
             eigenaar,
             controle,
             controle_key,
             datum,
             perslid,
             gebouw;

CREATE OR REPLACE VIEW BLCC_V_NOTI_CTR_EHBOTAS
(
    TO_KEY,
    TO_EMAIL,
    TO_OMSCHR,
    TAAK_OMSCHR,
    INS_DEEL_KEY,
    BETREFT
)
AS
 WITH
     taken
        AS
            (SELECT fac.nextcyclusdatedeel (d.ins_deel_key,
                                            d.ins_srtcontrole_key,
                                            1)         volgende_cyclus,
                    p.ins_deelsrtcontrole_plandatum    datum_gepland,
                    COALESCE (
                        p.ins_deelsrtcontrole_plandatum,
                        fac.nextcyclusdatedeel (d.ins_deel_key,
                                                d.ins_srtcontrole_key,
                                                1))    volgende_ctr,
                    d.*,
                    xcp.ins_srtcontroledl_xcp_periode
               FROM (SELECT sc.ins_srtcontrole_key,
                               'First aid bag check '
                            || TO_CHAR (SYSDATE, 'YYYY')
                            || '//EHBO tas controle '
                            || TO_CHAR (SYSDATE, 'YYYY')
                                srtcontrole_omschrijving,
                            d.ins_deel_key,
                            d.ins_deel_omschrijving,
                            sc.ins_srtcontrole_periode,
                            sd.ins_srtdeel_omschrijving,
                            a.prs_kostenplaats_key,
                            p.prs_perslid_key,
                            p.prs_perslid_email,
                            pfa.prs_perslid_naam_full
                       FROM ins_srtcontrole              sc,
                            ins_discipline               di,
                            ins_v_aanwezigsrtgroep       sg,
                            ins_v_aanwezigsrtdeel        sd,
                            ins_v_aanwezigdeel           d,
                            prs_perslid                  p,
                            prs_afdeling                 a,
                            prs_v_perslid_fullnames_all  pfa
                      WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
                            AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
                            AND sc.ins_srtinstallatie_key = sd.ins_srtdeel_key
                            AND di.ins_discipline_key = sg.ins_discipline_key
                            AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >
                                SYSDATE
                            AND p.prs_perslid_key = d.prs_perslid_key_beh
                            AND a.prs_afdeling_key(+) = p.prs_afdeling_key
                            AND pfa.prs_perslid_key = d.prs_perslid_key_beh
                            AND sc.ins_srtcontrole_key = 10  -- controle EHBO tas
                            AND (   sc.ins_srtcontrole_eind IS NULL
                                 OR sc.ins_srtcontrole_eind > SYSDATE)) d,
                    ins_srtcontroledl_xcp  xcp,
                    (SELECT *
                       FROM ins_v_udr_deelinspect ins
                      WHERE     deelsrtcontrole_status = 'Gepland'
                            AND ins_deelsrtcontrole_plandatum IS NOT NULL) p
              WHERE     xcp.ins_deel_key(+) = d.ins_deel_key
                    AND xcp.ins_srtcontrole_key(+) = d.ins_srtcontrole_key
                    AND p.deel_key(+) = d.ins_deel_key
                    AND p.ins_srtcontrole_key(+) = d.ins_srtcontrole_key
                    AND COALESCE (xcp.ins_srtcontroledl_xcp_periode,
                                  d.ins_srtcontrole_periode) >
                        0
                    AND COALESCE (
                            p.ins_deelsrtcontrole_plandatum,
                            fac.nextcyclusdatedeel (d.ins_deel_key,
                                                    d.ins_srtcontrole_key,
                                                    1)) BETWEEN SYSDATE AND ADD_MONTHS (SYSDATE, 1))
    SELECT prs_perslid_key           to_key,
           prs_perslid_email         to_email,
           prs_perslid_naam_full     to_omschr,
           srtcontrole_omschrijving,
           ins_deel_key,
           ins_deel_omschrijving     betreft
     FROM taken;

CREATE OR REPLACE VIEW blcc_v_noti_ctr_ehbo_her
(
    code,
    sender,
    receiver,
    text,
    key,
    xkey
)
AS
    SELECT sn.fac_srtnotificatie_code,
       '',
       ehbo.eigenaar_prs_perslid_key ,
       REPLACE (sn.fac_srtnotificatie_oms, '##EHBO tas##', ehbo.tas),
       ehbo.ins_deel_key,                             -- refkey is de EHBO-tas
       NULL
  FROM blcc_v_rap_cont_ehbo_tas  ehbo,
       ins_deel                  sd,
       ins_srtdeel               srt,
       fac_notificatie_job       nj,
       fac_srtnotificatie        sn
 WHERE     ehbo.ins_deel_key = sd.ins_deel_key
       AND srt.ins_srtdeel_key = sd.ins_srtdeel_key
       AND sn.fac_srtnotificatie_code = 'CUST06'
       AND ehbo.controlejaar = EXTRACT (YEAR FROM SYSDATE)
       AND ehbo.uitvoerdatum IS NULL
       AND UPPER (nj.fac_notificatie_job_view) = 'BLCC_V_NOTI_CTR_EHBO_HER'
       AND TO_CHAR (SYSDATE, 'dd') = '15' -- elke 15e van de maand sturen we een reminder
       AND TO_CHAR (SYSDATE, 'mm') IN ('01',
                                       '02',
                                       '03',
                                       '04',
                                       '05',
                                       '06',
                                       '07',
                                       '08',
                                       '09',
                                       '10',
                                       '11',
                                       '12');

CREATE OR REPLACE VIEW BLCC_V_NOTI_OPHALEN_BES
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
    SELECT NULL                                 sender,
           NULL                                 receiver,
           REPLACE (n.fac_srtnotificatie_oms,
                    '##nr##',
                    d.ins_deel_omschrijving)    text,
           n.fac_srtnotificatie_code            code,
           n.fac_srtnotificatie_key             fac_srtnotificatie_key,
           d.ins_deel_key,
           NULL                                 xkey,
           p.prs_perslid_email                  xemail,
           NULL                                 xmobil
      FROM mld_srtkenmerk      sk,
           mld_kenmerk         k,
           mld_kenmerkopdr     ko,
           ins_deel            d,
           prs_perslid         p,
           mld_opdr            o,
           mld_melding         m,
           fac_tracking        t,
           fac_srtnotificatie  n
     WHERE     sk.mld_srtkenmerk_key = 1401        -- bestelling voor ehbo-tas
           AND d.ins_srtdeel_key = 241                          -- ehbo-tassen
           AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
           AND k.mld_typeopdr_key IS NOT NULL
           AND ko.mld_kenmerk_key = k.mld_kenmerk_key
           AND d.prs_perslid_key_beh = p.prs_perslid_key
           AND o.mld_opdr_key = ko.mld_opdr_key
           AND t.fac_tracking_refkey = o.mld_opdr_key
           AND m.mld_melding_key = o.mld_melding_key
           AND n.fac_srtnotificatie_code = 'CUST08'
           AND m.mld_stdmelding_key IN (1961,
                                        1962,
                                        2041,
                                        2061)
           AND SUBSTR (k.mld_kenmerk_omschrijving, -3, 3) =
               SUBSTR (d.ins_deel_omschrijving, -3, 3)
           AND t.fac_srtnotificatie_key = 58                            -- afm
           AND t.fac_tracking_datum >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_OPHALEN_BES')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_OPHALEN_BES');

CREATE OR REPLACE VIEW blcc_v_onderhoud_aed
(
    ins_deel_key,
    aed,
    controle,
    controle_key,
    datum,
    notitie
)
AS
    SELECT d.ins_deel_key,
           d.ins_deel_omschrijving             aed,
           isc.ins_srtcontrole_omschrijving    controle,
           idsc.ins_deelsrtcontrole_key        controle_key,
           idsc.ins_deelsrtcontrole_datum      datum,
              vast.vaste_kosten
           || CHR (10)
           || COALESCE (pads.kosten_pads, 'Er zijn geen PADS vervangen')
           || CHR (10)
           || COALESCE (batterijen.kosten_batterijen,
                        'Er zijn geen batterijen vervangen')
           || CHR (10)
           || tot_kosten.tot_kosten            AS note
      FROM ins_deel             d,
           ins_deelsrtcontrole  idsc,
           ins_srtcontrole      isc,
           (SELECT idsc.ins_deelsrtcontrole_key,
                      'Er zijn '
                   || aant.aant_pads
                   || ' pads vervangen. Kosten per pad:  '
                   || prijs_ps.prijs_ps
                   || ', totale kosten:  '
                   || prijs_tot.prijs_tot    kosten_pads
              FROM ins_deelsrtcontrole  idsc,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     aant_pads
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'AANTAL VERVANGEN PADS') aant,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     prijs_ps
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'PRIJS PER PAD') prijs_ps,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     prijs_tot
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'TOTAAL PRIJS PADS') prijs_tot
             WHERE     idsc.ins_deelsrtcontrole_key =
                       aant.ins_deelsrtcontrole_key
                   AND idsc.ins_deelsrtcontrole_key =
                       prijs_ps.ins_deelsrtcontrole_key
                   AND idsc.ins_deelsrtcontrole_key =
                       prijs_tot.ins_deelsrtcontrole_key) pads,
           (SELECT idsc.ins_deelsrtcontrole_key,
                      'Er is/zijn '
                   || aant.aant_batterijen
                   || ' batterij(en) vervangen. Kosten per batterij:  '
                   || prijs_ps.prijs_ps
                   || ', totale kosten:  '
                   || prijs_tot.prijs_tot    kosten_batterijen
              FROM ins_deelsrtcontrole  idsc,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     aant_batterijen
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'AANTAL VERVANGEN BATTERIJEN') aant,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     prijs_ps
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'PRIJS PER BATTERIJ') prijs_ps,
                   (SELECT kctr.ins_deelsrtcontrole_key,
                           kctr.ins_kmdeelsrtcontr_waarde     prijs_tot
                      FROM ins_kmdeelsrtcontr  kctr,
                           ins_kenmerk         k,
                           ins_srtkenmerk      sk
                     WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                           AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND UPPER (k.ins_kenmerk_omschrijving) LIKE
                                   'TOTAAL PRIJS BATTERIJEN') prijs_tot
             WHERE     idsc.ins_deelsrtcontrole_key =
                       aant.ins_deelsrtcontrole_key
                   AND idsc.ins_deelsrtcontrole_key =
                       prijs_ps.ins_deelsrtcontrole_key
                   AND idsc.ins_deelsrtcontrole_key =
                       prijs_tot.ins_deelsrtcontrole_key) batterijen,
           (SELECT kctr.ins_deelsrtcontrole_key,
                      'Vaste onderhoudskosten:  '
                   || kctr.ins_kmdeelsrtcontr_waarde    vaste_kosten
              FROM ins_kmdeelsrtcontr kctr, ins_kenmerk k, ins_srtkenmerk sk
             WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_upper = 'VASTE PRIJS ONDERHOUD AED')
           vast,
           (SELECT kctr.ins_deelsrtcontrole_key,
                      'Totale kosten onderhoud AED:  '
                   || kctr.ins_kmdeelsrtcontr_waarde    tot_kosten
              FROM ins_kmdeelsrtcontr kctr, ins_kenmerk k, ins_srtkenmerk sk
             WHERE     kctr.ins_kenmerk_key = k.ins_kenmerk_key
                   AND k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND UPPER (k.ins_kenmerk_omschrijving) =
                       'TOTALE KOSTEN ONDERHOUD AED') tot_kosten
     WHERE     d.ins_deel_key = idsc.ins_deel_key
           AND isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
           AND idsc.ins_deelsrtcontrole_status = 6                 -- voltooid
           AND pads.ins_deelsrtcontrole_key(+) = idsc.ins_deelsrtcontrole_key
           AND batterijen.ins_deelsrtcontrole_key(+) =
               idsc.ins_deelsrtcontrole_key
           AND vast.ins_deelsrtcontrole_key(+) = idsc.ins_deelsrtcontrole_key
           AND tot_kosten.ins_deelsrtcontrole_key(+) =
               idsc.ins_deelsrtcontrole_key
           AND UPPER (isc.ins_srtcontrole_omschrijving) LIKE '%CONTROLE AED%';

CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_OFFBOARDING
AS
      SELECT m.mld_melding_key,
             m.gebruikersovereenkomst,
             m.email_inleveren_bhv_middelen,
             m.gebruikersovk_aftekenen_inscannen,
             m.afmelden_opleidingsinstituut,
             m.persoonsgegevens_facilitor,
             m.opleidingen_facilitor,
             m.EHBO_tas_Facilitor,
             m.BHV_vink_mob_nr_AEOS,
             m.oproepsysteem_BHV,
             m.updaten_BHV_lijsten,
             vv_mld.vervolg_mld,
             vv_mld.onderwerp,
             vv_mld.status
        FROM (SELECT mld.mld_melding_key,
                     COALESCE (DECODE (c1.actie_1, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         gebruikersovereenkomst,
                     COALESCE (DECODE (c2.actie_2, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         email_inleveren_bhv_middelen,
                     COALESCE (DECODE (c3.actie_3, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         gebruikersovk_aftekenen_inscannen,
                     COALESCE (DECODE (c4.actie_4, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         afmelden_opleidingsinstituut,
                     COALESCE (DECODE (c5a.actie_5a, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         persoonsgegevens_facilitor,
                     COALESCE (DECODE (c5b.actie_5b, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         opleidingen_facilitor,
                     COALESCE (DECODE (c5c.actie_5c, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         EHBO_tas_Facilitor,
                     COALESCE (DECODE (c6.actie_6, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         BHV_vink_mob_nr_AEOS,
                     COALESCE (DECODE (c7.actie_7, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         oproepsysteem_BHV,
                     COALESCE (DECODE (c8.actie_8, 1, 'Uitgevoerd'),
                               'Niet uitgevoerd')
                         updaten_BHV_lijsten
                FROM mld_melding mld,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_1
                        FROM mld_kenmerk c1, mld_kenmerkmelding km
                       WHERE     c1.mld_kenmerk_key = 2903
                             AND km.mld_kenmerk_key = c1.mld_kenmerk_key) c1,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_2
                        FROM mld_kenmerk c2, mld_kenmerkmelding km
                       WHERE     c2.mld_kenmerk_key = 2905
                             AND km.mld_kenmerk_key = c2.mld_kenmerk_key) c2,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_3
                        FROM mld_kenmerk c3, mld_kenmerkmelding km
                       WHERE     c3.mld_kenmerk_key = 2916
                             AND km.mld_kenmerk_key = c3.mld_kenmerk_key) c3,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_4
                        FROM mld_kenmerk c4, mld_kenmerkmelding km
                       WHERE     c4.mld_kenmerk_key = 2917
                             AND km.mld_kenmerk_key = c4.mld_kenmerk_key) c4,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_5a
                        FROM mld_kenmerk c5a, mld_kenmerkmelding km
                       WHERE     c5a.mld_kenmerk_key = 2918
                             AND km.mld_kenmerk_key = c5a.mld_kenmerk_key) c5a,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_5b
                        FROM mld_kenmerk c5b, mld_kenmerkmelding km
                       WHERE     c5b.mld_kenmerk_key = 2919
                             AND km.mld_kenmerk_key = c5b.mld_kenmerk_key) c5b,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_5c
                        FROM mld_kenmerk c5c, mld_kenmerkmelding km
                       WHERE     c5c.mld_kenmerk_key = 2920
                             AND km.mld_kenmerk_key = c5c.mld_kenmerk_key) c5c,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_6
                        FROM mld_kenmerk c6, mld_kenmerkmelding km
                       WHERE     c6.mld_kenmerk_key = 2921
                             AND km.mld_kenmerk_key = c6.mld_kenmerk_key) c6,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_7
                        FROM mld_kenmerk c7, mld_kenmerkmelding km
                       WHERE     c7.mld_kenmerk_key = 2922
                             AND km.mld_kenmerk_key = c7.mld_kenmerk_key) c7,
                     (SELECT km.mld_melding_key,
                             km.mld_kenmerkmelding_waarde     actie_8
                        FROM mld_kenmerk c8, mld_kenmerkmelding km
                       WHERE     c8.mld_kenmerk_key = 2923
                             AND km.mld_kenmerk_key = c8.mld_kenmerk_key) c8
               WHERE     mld.mld_stdmelding_key = 2161
                     AND c1.mld_melding_key(+) = mld.mld_melding_key
                     AND c2.mld_melding_key(+) = mld.mld_melding_key
                     AND c3.mld_melding_key(+) = mld.mld_melding_key
                     AND c4.mld_melding_key(+) = mld.mld_melding_key
                     AND c5a.mld_melding_key(+) = mld.mld_melding_key
                     AND c5b.mld_melding_key(+) = mld.mld_melding_key
                     AND c5c.mld_melding_key(+) = mld.mld_melding_key
                     AND c6.mld_melding_key(+) = mld.mld_melding_key
                     AND c7.mld_melding_key(+) = mld.mld_melding_key
                     AND c8.mld_melding_key(+) = mld.mld_melding_key) m,
             (SELECT    m.mld_melding_key vervolg_mld,
                        m.mld_melding_onderwerp onderwerp,
                        s.mld_statuses_omschrijving status,
                        m.mld_melding_start_key
                FROM mld_melding m, mld_statuses s
               WHERE     m.mld_melding_start_key IN
                             (SELECT mld_melding_key
                                FROM mld_melding m
                               WHERE m.mld_stdmelding_key = 2161)
                     AND s.mld_statuses_key = m.mld_melding_status) vv_mld
       WHERE vv_mld.mld_melding_start_key = m.mld_melding_key;

-- BLCC#87296: Push nieuwe contacten naar Dynamics (alleen 0-versie).
CREATE OR REPLACE VIEW BLCC_V_RAP_CNT_DYNAMICS
(
   cnt_contract_key,
   aanmaak,
   --contract,
   extra_key,                                                -- Moet zo heten!
   party_cntsrt
)
AS
   SELECT c.cnt_contract_key,
          c.cnt_contract_aanmaak,
          c.cnt_contract_nummer_intern,
          SUBSTR (b.prs_bedrijf_naam, 1, 28) || ' - ' || SUBSTR (cd.ins_discipline_omschrijving, 1, 28) party_cntsrt
     FROM cnt_v_aanwezigcontract c,
          prs_bedrijf b,
          cnt_discipline cd
    WHERE c.cnt_contract_aanmaak > TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')
          AND c.cnt_contract_versie IS NULL                -- Alleen 0-versie!
          AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
          AND c.ins_discipline_key = cd.ins_discipline_key
          AND cd.ins_discipline_key NOT IN (3761) -- Lease Agreement Prijsopgave
;

-- BLCC#63461: Bron tbv. te verwijderen oude accounts (halfjaar niet ingelogd).
-- BLCC#72389: Aangevinkte personen/accounts niet automatisch schonen.
CREATE OR REPLACE VIEW blcc_v_rap_oude_accounts
(
   prs_perslid_key,
   huurder,
   afd_code,
   afd_omschrijving,
   naam,
   email,
   laatste_login,
   tot_verpl,
   fin_verpl
)
AS
     SELECT x.prs_perslid_key,
            DECODE (ab.prs_bedrijf_key, 22, 'J', 'N') huurder,
            a.prs_afdeling_naam,
            a.prs_afdeling_omschrijving,
            pf.prs_perslid_naam_full,
            x.prs_perslid_email,
            x.prs_perslid_login,
            SUM (x.totaal) totaal,
            SUM (x.financieel) financieel
       FROM (SELECT p.prs_perslid_key,
                    p.prs_afdeling_key,
                    p.prs_perslid_email,
                    p.prs_perslid_login,
                    0 totaal,
                    0 financieel
               FROM prs_v_aanwezigperslid p
              WHERE COALESCE (p.prs_perslid_login, p.prs_perslid_aanmaak) < TRUNC (ADD_MONTHS (SYSDATE, -6)) -- Halfjaar niet ingelogd!
                    AND NOT EXISTS             -- Geen lopende verplichtingen?
                          (SELECT 1
                             FROM prs_v_verplichting_keys
                            WHERE prs_perslid_key = p.prs_perslid_key)
             UNION ALL
               SELECT p.prs_perslid_key,
                      p.prs_afdeling_key,
                      p.prs_perslid_email,
                      p.prs_perslid_login,
                      COUNT ( * ) totaal,
                      0 financieel
                 FROM prs_v_aanwezigperslid p, prs_v_verplichting_keys tv
                WHERE COALESCE (p.prs_perslid_login, p.prs_perslid_aanmaak) < TRUNC (ADD_MONTHS (SYSDATE, -6)) -- Halfjaar niet ingelogd!
                      AND p.prs_perslid_key = tv.prs_perslid_key
             GROUP BY p.prs_perslid_key,
                      p.prs_afdeling_key,
                      p.prs_perslid_email,
                      p.prs_perslid_login
             UNION ALL
               SELECT p.prs_perslid_key,
                      p.prs_afdeling_key,
                      p.prs_perslid_email,
                      p.prs_perslid_login,
                      0 totaal,
                      COUNT ( * ) financieel
                 FROM prs_v_aanwezigperslid p,
                      (SELECT rrr.res_rsv_ruimte_host_key prs_perslid_key, 'V' soort
                         FROM res_rsv_ruimte rrr
                        WHERE rrr.res_activiteit_key != 130 -- Anders dan Evenement
                              AND rrr.res_rsv_ruimte_dirtlevel = 0
                              AND EXISTS
                                    (SELECT 1
                                       FROM res_v_aanwezigrsv_artikel rra
                                      WHERE rra.res_rsv_artikel_verwerkt IS NULL
                                            AND rra.res_rsv_artikel_dirtlevel = 0
                                            AND rra.res_rsv_artikel_levering > TO_DATE ('20210101', 'yyyymmdd') -- Catering uit voorgaande jaren beschouwen als financieel afgehandeld?
                                            AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
                       UNION ALL
                       SELECT rrr.res_rsv_ruimte_host_key prs_perslid_key, 'E' soort
                         FROM res_v_aanwezigrsv_ruimte rrr
                        WHERE rrr.res_activiteit_key = 130        -- Evenement
                              AND rrr.res_status_bo_key != 6             -- AV
                              AND rrr.res_rsv_ruimte_dirtlevel = 0
                              AND rrr.res_rsv_ruimte_van > TO_DATE ('20210101', 'yyyymmdd') -- Evenementen uit voorgaande jaren beschouwen als financieel afgehandeld?
                       UNION ALL
                       SELECT m.prs_perslid_key, 'O' soort
                         FROM mld_opdr o, prs_kostenplaats kp, mld_melding m
                        WHERE o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                              AND o.mld_statusopdr_key NOT IN (1, 2, 7) -- Afgewezen/Niet akkoord/Verwerkt
                              AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key
                              AND SUBSTR (kp.prs_kostenplaats_upper, 1, 5) = '50900'
                              AND o.mld_melding_key = m.mld_melding_key) fv
                WHERE COALESCE (p.prs_perslid_login, p.prs_perslid_aanmaak) < TRUNC (ADD_MONTHS (SYSDATE, -6)) -- Halfjaar niet ingelogd!
                      AND p.prs_perslid_key = fv.prs_perslid_key
             GROUP BY p.prs_perslid_key,
                      p.prs_afdeling_key,
                      p.prs_perslid_email,
                      p.prs_perslid_login) x,
            prs_v_perslid_fullnames pf,
            prs_v_afdeling_boom ab,
            prs_afdeling a
      WHERE x.prs_perslid_key = pf.prs_perslid_key
            AND x.prs_afdeling_key = ab.prs_afdeling_key
            AND ab.prs_afdeling_key = a.prs_afdeling_key
            AND NOT EXISTS     -- Niet uitgesloten voor automatische schoning?
                  (SELECT 1
                     FROM prs_v_aanwezigkenmerklink
                    WHERE prs_kenmerk_key = 1200   -- Niet automatisch schonen
                          AND prs_link_key = x.prs_perslid_key)
            AND NOT EXISTS    -- BLCC#76389: BHV-ers nooit automatisch schonen
                  (SELECT 1
                     FROM prs_v_aanwezigkenmerklink
                    WHERE prs_kenmerklink_niveau = 'P'
                          AND prs_kenmerk_key = 1220                 -- BHV-er
                          AND prs_link_key = x.prs_perslid_key)
   GROUP BY x.prs_perslid_key,
            DECODE (ab.prs_bedrijf_key, 22, 'J', 'N'),
            a.prs_afdeling_naam,
            a.prs_afdeling_omschrijving,
            pf.prs_perslid_naam_full,
            x.prs_perslid_email,
            x.prs_perslid_login;

-- Alle geschoonde personen sinds eenmalige bulk-vewijdering op 08-10-2021!
CREATE OR REPLACE VIEW BLCC_V_RAP_PRS_GESCHOOND
AS
   SELECT pf.prs_perslid_naam_full naam,
          p.prs_perslid_email email,
          p.prs_perslid_aanmaak aanmaakdatum,
          p.prs_perslid_login laatste_login,
          p.prs_perslid_verwijder verwijderdatum
     FROM prs_perslid p, prs_v_perslid_fullnames_all pf
    WHERE p.prs_perslid_verwijder > TO_DATE ('09-10-21', 'dd-mm-yy')
          AND p.prs_perslid_key = pf.prs_perslid_key;

-- BLCC#71247: Maandelijks te bevriezen ruimtegegevens (foto tbv. schoonmaak en huur)!
CREATE OR REPLACE VIEW blcc_v_alg_actual
AS
   SELECT r.alg_ruimte_key alg_ruimte_key,
          l.alg_locatie_code locatiecode,
          g.alg_gebouw_code gebouwcode,
          v.alg_verdieping_code verdiepingcode,
          r.alg_ruimte_nr ruimtenummer,
          sr.alg_srtruimte_omschrijving ruimtefunctie,
          r.alg_ruimte_bruto_vloeropp nvo,
          tekcont.cad_imp_contour_opp nvo_getekend,
          r.alg_ruimte_opp_alt1 vvo,
          tekcont.cad_imp_contour_opp_alt1 vvo_getekend,
          class.waarde lhkotc_class,
          fac.safe_to_number (basic.waarde) basic_tarief,
          fac.safe_to_number (premium.waarde) premium_tarief,
          fac.safe_to_number (excellent.waarde) excellent_tarief,
          TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyy-mm') sch_maand, -- Beter uit deze view halen?
          csch.sch_tariefniveau_lijst sch_tariefniveau,
          csch.sch_cnt_lijst sch_contract,
          csch.sch_mantel_lijst sch_mantel,
          TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy-mm') huur_maand, -- Beter uit deze view halen?
          chuur.huur_cnt_lijst huur_contract,
          g.alg_gebouw_vervaldatum gebouw_vervallen,
          gebouw_strategie.waarde gebouw_strategie,
          vvo_overeenkomst.waarde vvo_overeenkomst,
          in_expl_dat.waarde in_expl_dat,
          uit_expl_dat.waarde uit_expl_dat,
          sg.alg_srtgebouw_omschrijving gebouwfunctie,
          gc.fac_usrdata_code gebouwclustercode,
          gc.fac_usrdata_omschr gebouwclusternaam,
          class.code lhkotc_class_code,
          fac.safe_to_number (basic2.waarde) basic_tarief2,
          fac.safe_to_number (premium2.waarde) premium_tarief2,
          fac.safe_to_number (excellent2.waarde) excellent_tarief2,
          fac.safe_to_number (excelplus2.waarde) excelplus_tarief2,
          csch2.sch_tariefniveau_lijst sch_tariefniveau2,
          csch2.sch_cnt_lijst sch_contract2,
          csch2.sch_mantel_lijst sch_mantel2,
          brink.code lhkotc_brink_code
     FROM alg_v_aanwezigruimte r,
          alg_verdieping v,
          alg_gebouw g,
          alg_locatie l,
          alg_srtruimte sr,
          alg_srtgebouw sg,
          (SELECT tek.alg_verdieping_key, cont.cad_imp_contour_nr, cont.cad_imp_contour_opp, cont.cad_imp_contour_opp_alt1
             FROM cad_tekening tek, cad_imp_contour cont
            WHERE tek.cad_tekening_verwijder IS NULL
                  AND tek.cad_tekening_key = cont.cad_tekening_key
                  AND cont.cad_imp_contour_concept = 0
                  AND cont.prj_scenario_key IS NULL) tekcont,
          (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr waarde, ud.fac_usrdata_code code
             FROM alg_v_aanwezigonrgoedkenmerk ok, fac_v_aanwezigusrdata ud
            WHERE ok.alg_kenmerk_key = 1100            -- LHKOTC Classificatie
                  AND ok.alg_onrgoed_niveau = 'R'
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key) class,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1540         -- Schoonmaaktarief Basic CSU
                  AND alg_onrgoed_niveau = 'R') basic,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1541       -- Schoonmaaktarief Premium CSU
                  AND alg_onrgoed_niveau = 'R') premium,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1542     -- Schoonmaaktarief Excellent CSU
                  AND alg_onrgoed_niveau = 'R') excellent,
          (  SELECT c2r.alg_ruimte_key,
                    LISTAGG (DISTINCT DECODE (c.ins_discipline_key, 2981, 'Basic', 2501, 'Premium', 'Excellent'), ',') WITHIN GROUP (ORDER BY DECODE (c.ins_discipline_key, 2981, 'Basic', 2501, 'Premium', 'Excellent'))
                       sch_tariefniveau_lijst,
                    LISTAGG (DISTINCT TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0') || '|' || cd.ins_discipline_omschrijving || '|' || b.prs_overeenkomst_nr || '|' || b.prs_bedrijf_naam, ',') WITHIN GROUP (ORDER BY TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0') || '|' || cd.ins_discipline_omschrijving || '|' || b.prs_overeenkomst_nr || '|' || b.prs_bedrijf_naam)
                       sch_cnt_lijst,
                    LISTAGG (DISTINCT TO_CHAR (mc.cnt_contract_key) || '=' || mc.cnt_contract_nummer_intern || '.' || COALESCE (mc.cnt_contract_versie, '0') || '|' || mc.cnt_contract_omschrijving, ',') WITHIN GROUP (ORDER BY TO_CHAR (mc.cnt_contract_key) || '=' || mc.cnt_contract_nummer_intern || '.' || COALESCE (mc.cnt_contract_versie, '0') || '|' || mc.cnt_contract_omschrijving)
                       sch_mantel_lijst
               FROM cnt_v_aanwezigcontract c,
                    cnt_discipline cd,
                    prs_bedrijf b,
                    cnt_v_aanwezigcontract mc,
                    (SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'R'
                            AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'V'
                            AND cp.cnt_alg_plaats_key = r.alg_verdieping_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_verdieping v, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'G'
                            AND cp.cnt_alg_plaats_key = v.alg_gebouw_key
                            AND v.alg_verdieping_key = r.alg_verdieping_key) c2r -- Contract2Ruimte
              WHERE c.ins_discipline_key IN (2981, 2501, 2982) -- Soft Services Cleaning Basic/Premium/Excellent CSU
                    AND TRUNC (ADD_MONTHS (SYSDATE, -1), 'mm') >= TRUNC(c.cnt_contract_looptijd_van)
                    AND TRUNC (ADD_MONTHS (SYSDATE, -1), 'mm') < TRUNC(c.cnt_contract_looptijd_tot + 1) -- Voorgaande maand actief (want op 1/4 wordt maart geschoonmaakfactureerd)!
                    AND c.cnt_contract_status = 0                -- Definitief
                    AND c.ins_discipline_key = cd.ins_discipline_key
                    AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                    AND c.cnt_contract_mantel_key = mc.cnt_contract_key(+)
                    AND c.cnt_contract_key = c2r.cnt_contract_key
           GROUP BY c2r.alg_ruimte_key) csch, -- Schoonmaakcontracten per ruimte (via scope gekoppeld)
          (  SELECT c2r.alg_ruimte_key,
                    LISTAGG (DISTINCT TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0'), ',') WITHIN GROUP (ORDER BY TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0'))
                       huur_cnt_lijst
               FROM cnt_v_aanwezigcontract c,
                    (SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_v_aanwezigruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'R'
                            AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_v_aanwezigruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'V'
                            AND cp.cnt_alg_plaats_key = r.alg_verdieping_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_verdieping v, alg_v_aanwezigruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'G'
                            AND cp.cnt_alg_plaats_key = v.alg_gebouw_key
                            AND v.alg_verdieping_key = r.alg_verdieping_key) c2r -- Contract2Ruimte
              WHERE c.ins_discipline_key IN (2122, 2123)          -- LA/LA CRF
                    AND TRUNC (ADD_MONTHS (SYSDATE, 1), 'mm') >= TRUNC(c.cnt_contract_looptijd_van)
                    AND TRUNC (ADD_MONTHS (SYSDATE, 1), 'mm') < TRUNC(c.cnt_contract_looptijd_tot + 1) -- Volgende maand actief (want op 1/4 wordt mei gehuurfactureerd)!
                    AND c.cnt_contract_status = 0                   -- Definitief
                    AND c.cnt_contract_key = c2r.cnt_contract_key
           GROUP BY c2r.alg_ruimte_key) chuur, -- Huurcontracten per ruimte (via scope gekoppeld)
          (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr waarde
             FROM alg_v_aanwezigonrgoedkenmerk ok, fac_v_aanwezigusrdata ud
            WHERE ok.alg_kenmerk_key = 1161                       -- Strategie
                  AND ok.alg_onrgoed_niveau = 'G'
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key) gebouw_strategie,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1720                   -- VVO Overeenkomst
                  AND alg_onrgoed_niveau = 'R') vvo_overeenkomst,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1568               -- Datum in exploitatie
                  AND alg_onrgoed_niveau = 'G') in_expl_dat,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 1569              -- Datum uit exploitatie
                  AND alg_onrgoed_niveau = 'G') uit_expl_dat,
          (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_code, ud.fac_usrdata_omschr
             FROM alg_v_aanwezigonrgoedkenmerk ok, fac_v_aanwezigusrdata ud
            WHERE ok.alg_kenmerk_key = 1940                   -- Gebouwcluster
                  AND ok.alg_onrgoed_niveau = 'G'
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key) gc,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 2540      -- Schoonmaaktarief Basic Vebego
                  AND alg_onrgoed_niveau = 'R') basic2,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 2541    -- Schoonmaaktarief Premium Vebego
                  AND alg_onrgoed_niveau = 'R') premium2,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 2542  -- Schoonmaaktarief Excellent Vebego
                  AND alg_onrgoed_niveau = 'R') excellent2,
          (SELECT alg_onrgoed_key, alg_onrgoedkenmerk_waarde waarde
             FROM alg_v_aanwezigonrgoedkenmerk
            WHERE alg_kenmerk_key = 2543 -- Schoonmaaktarief Excellent Plus Vebego
                  AND alg_onrgoed_niveau = 'R') excelplus2,
          (  SELECT c2r.alg_ruimte_key,
                    LISTAGG (DISTINCT DECODE (c.ins_discipline_key, 3981, 'Basic', 3982, 'Premium', 3983, 'Excellent', 'Excellent Plus'), ',') WITHIN GROUP (ORDER BY DECODE (c.ins_discipline_key, 2981, 'Basic', 2501, 'Premium', 'Excellent'))
                       sch_tariefniveau_lijst,
                    LISTAGG (DISTINCT TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0') || '|' || cd.ins_discipline_omschrijving || '|' || b.prs_overeenkomst_nr || '|' || b.prs_bedrijf_naam, ',') WITHIN GROUP (ORDER BY TO_CHAR (c.cnt_contract_key) || '=' || c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0') || '|' || cd.ins_discipline_omschrijving || '|' || b.prs_overeenkomst_nr || '|' || b.prs_bedrijf_naam)
                       sch_cnt_lijst,
                    LISTAGG (DISTINCT TO_CHAR (mc.cnt_contract_key) || '=' || mc.cnt_contract_nummer_intern || '.' || COALESCE (mc.cnt_contract_versie, '0') || '|' || mc.cnt_contract_omschrijving, ',') WITHIN GROUP (ORDER BY TO_CHAR (mc.cnt_contract_key) || '=' || mc.cnt_contract_nummer_intern || '.' || COALESCE (mc.cnt_contract_versie, '0') || '|' || mc.cnt_contract_omschrijving)
                       sch_mantel_lijst
               FROM cnt_v_aanwezigcontract c,
                    cnt_discipline cd,
                    prs_bedrijf b,
                    cnt_v_aanwezigcontract mc,
                    (SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'R'
                            AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'V'
                            AND cp.cnt_alg_plaats_key = r.alg_verdieping_key
                     UNION
                     SELECT cp.cnt_contract_key, r.alg_ruimte_key
                       FROM cnt_contract_plaats cp, alg_verdieping v, alg_ruimte r
                      WHERE cp.cnt_contract_plaats_verwijder IS NULL
                            AND cp.cnt_alg_plaats_code = 'G'
                            AND cp.cnt_alg_plaats_key = v.alg_gebouw_key
                            AND v.alg_verdieping_key = r.alg_verdieping_key) c2r -- Contract2Ruimte
              WHERE c.ins_discipline_key IN (3981, 3982, 3983, 3984) -- Soft Services Cleaning Basic/Premium/Excellent/Excellent Plus Vebego
                    AND GREATEST (TRUNC (ADD_MONTHS (SYSDATE, -1), 'mm'), fac.safe_to_date ('01-04-2025', 'dd-mm-yyyy')) >= TRUNC(c.cnt_contract_looptijd_van)
                    AND GREATEST (TRUNC (ADD_MONTHS (SYSDATE, -1), 'mm'), fac.safe_to_date ('01-04-2025', 'dd-mm-yyyy')) < TRUNC(c.cnt_contract_looptijd_tot + 1) -- Voorgaande maand actief (want op 1/5 wordt april geschoonmaakfactureerd)!
                    AND c.cnt_contract_status = 0                -- Definitief
                    AND c.ins_discipline_key = cd.ins_discipline_key
                    AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                    AND c.cnt_contract_mantel_key = mc.cnt_contract_key(+)
                    AND c.cnt_contract_key = c2r.cnt_contract_key
           GROUP BY c2r.alg_ruimte_key) csch2, -- Schoonmaakcontracten per ruimte (via scope gekoppeld)
          (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr waarde, ud.fac_usrdata_code code
             FROM alg_v_aanwezigonrgoedkenmerk ok, fac_v_aanwezigusrdata ud
            WHERE ok.alg_kenmerk_key = 2522            -- LHKOTC Classificatie
                  AND ok.alg_onrgoed_niveau = 'R'
                  AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key) brink
    WHERE r.alg_verdieping_key = v.alg_verdieping_key
          AND v.alg_gebouw_key = g.alg_gebouw_key
          AND g.alg_locatie_key = l.alg_locatie_key
          AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
          AND g.alg_srtgebouw_key = sg.alg_srtgebouw_key(+)
          AND r.alg_verdieping_key = tekcont.alg_verdieping_key(+)
          AND r.alg_ruimte_nr = tekcont.cad_imp_contour_nr(+)
          AND r.alg_ruimte_key = class.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = basic.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = premium.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = excellent.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = csch.alg_ruimte_key(+)
          AND r.alg_ruimte_key = chuur.alg_ruimte_key(+)
          AND g.alg_gebouw_key = gebouw_strategie.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = vvo_overeenkomst.alg_onrgoed_key(+)
          AND g.alg_gebouw_key = in_expl_dat.alg_onrgoed_key(+)
          AND g.alg_gebouw_key = uit_expl_dat.alg_onrgoed_key(+)
          AND g.alg_gebouw_key = gc.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = basic2.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = premium2.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = excellent2.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = excelplus2.alg_onrgoed_key(+)
          AND r.alg_ruimte_key = csch2.alg_ruimte_key(+)
          AND r.alg_ruimte_key = brink.alg_onrgoed_key(+);

CREATE OR REPLACE PACKAGE BLCC
IS
   PROCEDURE mld_after_insert (p_melding_key IN NUMBER);

   PROCEDURE klacht_after_insert (p_melding_key IN NUMBER);

   PROCEDURE opdracht_after_insert (p_opdr_key IN NUMBER);

   PROCEDURE blcc_onderhoud_AED;

   PROCEDURE blcc_bestelling_ehbo_tas;

   PROCEDURE blcc_noti_ctr_ehbo_tas;

   PROCEDURE blcc_noti_ctr_ehbo_tas_rem;

   PROCEDURE blcc_facturatie_bhv_basis_t;

   PROCEDURE blcc_noti_acaleph;

   PROCEDURE blcc_verwijder_bhv_b_codes;

   PROCEDURE blcc_noti_reminder_bhv_t;

   PROCEDURE blcc_facturatie_rode_kruis;

   PROCEDURE blcc_facturatie_ploegleider;

   PROCEDURE autorisatie_bhv;

   PROCEDURE blcc_noti_kostengereed;

   PROCEDURE blcc_noti_po_nr_aanvr;

   PROCEDURE blcc_noti_headcount;
   
   PROCEDURE blcc_noti_headcount_rmdr;

   PROCEDURE freezeopdrachten (p_kpn IN VARCHAR2);

   PROCEDURE exp_cnt2dynamics;

   PROCEDURE schonen_accounts;

   PROCEDURE bewaren_alg_foto;

   PROCEDURE bijwerken_legendas;
END;
/

CREATE OR REPLACE PACKAGE BODY BLCC
IS
   -- Procedure om bij aanmaken van de melding te kijken of er al een oudere
   -- melding is met dezelfde externe referentie (zonder volgnummer).
   PROCEDURE mld_after_insert (p_melding_key IN NUMBER)
   AS
      v_melding_key   NUMBER;
   BEGIN
      SELECT (SELECT MIN (m2.mld_melding_key)
                FROM mld_melding m2
               WHERE SUBSTR (m2.mld_melding_externnr,
                             1,
                             INSTR (m2.mld_melding_externnr, '/')) =
                        SUBSTR (m1.mld_melding_externnr,
                                1,
                                INSTR (m1.mld_melding_externnr, '/'))
                     AND m1.mld_melding_key > m2.mld_melding_key)
                refe
        INTO v_melding_key
        FROM mld_melding m1
       WHERE     m1.mld_melding_externnr IS NOT NULL
             AND m1.mld_melding_status = 2
             AND m1.mld_melding_key = p_melding_key;

      IF v_melding_key IS NOT NULL
      THEN
         DBMS_OUTPUT.put_line ('Melding update ' || p_melding_key || '-' || v_melding_key);

         UPDATE mld_melding
            SET mld_melding_omschrijving =
                      'Startmelding met zelfde extern nummer: melding '
                   || v_melding_key
                   || CHR (13)
                   || CHR (10)
                   || SUBSTR (mld_melding_omschrijving, 1, 3920)
          WHERE mld_melding_key = p_melding_key
                AND COALESCE (mld_melding_opmerking, 'QueQeLeQue') NOT LIKE
                      'Startmelding met zelfde extern nummer: melding %'
                AND COALESCE (TO_CHAR(SUBSTR(mld_melding_omschrijving, 1, 4000)), 'QueQeLeQue') NOT LIKE
                      'Startmelding met zelfde extern nummer: melding %';
      END IF;
   EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         RETURN;
   END;

   PROCEDURE klacht_after_insert (p_melding_key IN NUMBER)
   AS
      v_klacht         NUMBER;
      v_behandelteam   VARCHAR2 (49);
   BEGIN
      SELECT m.mld_melding_key, ud.fac_usrdata_omschr2 BT
        INTO v_klacht, v_behandelteam
        FROM mld_melding        m,
             mld_kenmerkmelding km,
             mld_kenmerk        k,
             mld_srtkenmerk     sk,
             fac_usrdata        ud,
             fac_usrtab         ut
       WHERE     m.mld_melding_key = km.mld_melding_key
             AND km.mld_kenmerk_key = k.mld_kenmerk_key
             AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
             AND sk.mld_srtkenmerk_key = 2021
             AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key
             AND ud.fac_usrdata_verwijder IS NULL
             AND ud.fac_usrtab_key = ut.fac_usrtab_key
             AND (ud.fac_usrdata_vervaldatum > TRUNC(sysdate)
                  OR ud.fac_usrdata_vervaldatum IS NULL)
             AND UPPER (ut.fac_usrtab_omschrijving) = 'KLACHTENAFH'
             AND m.mld_melding_key = p_melding_key;

      IF v_klacht IS NOT NULL
      THEN
         DBMS_OUTPUT.put_line ('Update klacht' || v_klacht);

         mld.upsertmeldingkenmerk (1922, v_klacht, to_char(v_behandelteam));
      END IF;
   EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         RETURN;
   END;

   PROCEDURE opdracht_after_insert (p_opdr_key IN NUMBER)
   AS
      v_type_opdr   NUMBER;
   BEGIN
      SELECT m.mld_typeopdr_key
        INTO v_type_opdr
        FROM mld_opdr m
       WHERE m.mld_opdr_key = p_opdr_key;

      IF v_type_opdr = 1722
      THEN
         UPDATE mld_opdr m
            SET m.mld_opdr_handfiat = 1
          WHERE m.mld_typeopdr_key = 1722
                AND m.mld_opdr_key = p_opdr_key;
      END IF;
   END opdracht_after_insert;

    PROCEDURE blcc_onderhoud_AED
    AS
        v_melding_key    NUMBER;
        c_applname       VARCHAR2 (50) := 'BESTELLING_EHBO_TAS';
        v_errorhint      VARCHAR2 (1000);
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- gepleegd onderhoud per AED
        -- we nemen dit op in de daily dus pakken de taken die 'gisteren' zijn uitgevoerd
        CURSOR onderhoud IS
            SELECT ins_deel_key,
                   aed,
                   controle,
                   controle_key,
                   datum,
                   notitie
              FROM blcc_v_onderhoud_aed aed
             WHERE TRUNC (datum) = TRUNC (TRUNC (SYSDATE - 1));
    BEGIN
        FOR REC IN ONDERHOUD
        LOOP
            v_errorhint := 'Fout bij aanmaken melding onderhoud AED';

            -- hier moet eigenlijk ook even juiste object gekoppeld worden
            INSERT INTO mld_melding (mld_melding_module,
                                     mld_meldbron_key,
                                     mld_melding_datum,
                                     mld_alg_locatie_key,
                                     mld_stdmelding_key,
                                     prs_perslid_key,
                                     mld_melding_status,
                                     mld_melding_spoed,
                                     mld_melding_onderwerp,
                                     mld_melding_omschrijving)
                 VALUES ('MLD',
                         6,                                              -- System
                         SYSDATE,
                         1,
                         1981,                                    -- onderhoud AED
                         77021,                                           -- BHV coordinator
                         2,                                               -- Nieuw
                         3,
                         'Periodiek onderhoud ' || rec.aed || ' uitgevoerd',
                         rec.notitie)
              RETURNING mld_melding_key
                   INTO v_melding_key;

            INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                 VALUES (v_melding_key, rec.ins_deel_key);

            fac.writelog (
                c_applname,
                'S',
                'Registratie ' || v_melding_key || ' onderhoud AED aangemaakt',
                '');
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   v_errormsg
                || ' ORACLE (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog (c_applname,
                          'E',
                          v_errormsg,
                          '');
            COMMIT;
    END blcc_onderhoud_AED;

    PROCEDURE blcc_bestelling_ehbo_tas
    AS
        v_telling        NUMBER;
        v_melding_key    NUMBER;
        c_applname       VARCHAR2 (50) := 'BESTELLING_EHBO_TAS';
        v_errorhint      VARCHAR2 (1000);
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- de te bestellen artikelen per tas
        CURSOR bestelregel IS
            SELECT sm.mld_stdmelding_key,
                   k.mld_kenmerk_key,
                   k.mld_kenmerk_omschrijving,
                   tas.ins_deel_key,
                   tas.bestelling_tas,
                   tas.eigenaar
              FROM mld_srtkenmerk              sk,
                   mld_kenmerk                 k,
                   mld_stdmelding              sm,
                   blcc_v_bestelling_ehbo_tas  tas
             WHERE     sk.mld_srtkenmerk_upper = 'BESTELLING'
                   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                   AND sm.mld_stdmelding_key = k.mld_stdmelding_key
                   AND UPPER (sm.mld_stdmelding_omschrijving) =
                       'AANVULLEN EHBO TAS COLLECTIEF'
                   AND SUBSTR (ehbo_tas, -3, 3) =
                       SUBSTR (k.mld_kenmerk_omschrijving, -3, 3)
                   AND TRUNC (datum) >=
                       TRUNC (TRUNC (SYSDATE, 'Month') - 1, 'Month')
                   AND TRUNC (datum) < TRUNC (SYSDATE, 'Month')
                   AND NOT EXISTS
                           (SELECT th.ins_deel_key
                              FROM blcc_v_bestelling_ehbo_tas th
                             WHERE     fac.safe_to_number (th.eigenaar_key) =
                                       1522
                                   AND th.ins_deel_key = tas.ins_deel_key);

        -- de te bestellen artikelen per tas van huurders
        CURSOR bestelregel_huurder IS
            SELECT 1962
                       mld_stdmelding_key,
                   (SELECT k.mld_kenmerk_key
                      FROM mld_srtkenmerk sk, mld_kenmerk k
                     WHERE     sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
                           AND sk.mld_srtkenmerk_upper = 'BESTELLING'
                           AND k.mld_stdmelding_key = 1962 -- Aanvullen EHBO tas voor huurder
                           AND k.mld_kenmerk_verwijder IS NULL)
                       kenmerkkey_bes,
                   (SELECT k.mld_kenmerk_key
                      FROM mld_srtkenmerk sk, mld_kenmerk k
                     WHERE     sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
                           AND sk.mld_srtkenmerk_upper = 'TAS NUMMER'
                           AND k.mld_stdmelding_key = 1962 -- Aanvullen EHBO tas voor huurder
                           AND k.mld_kenmerk_verwijder IS NULL)
                       kenmerkkey_tas,
                   tas.ins_deel_key,
                   tas.ehbo_tas,
                   tas.bestelling_tas,
                   tas.eigenaar
              FROM blcc_v_bestelling_ehbo_tas tas
             WHERE     TRUNC (datum) >=
                       TRUNC (TRUNC (SYSDATE, 'Month') - 1, 'Month')
                   AND TRUNC (datum) < TRUNC (SYSDATE, 'Month')
                   AND EXISTS
                           (SELECT th.ins_deel_key
                              FROM blcc_v_bestelling_ehbo_tas th
                             WHERE     fac.safe_to_number (th.eigenaar_key) =
                                       1522
                                   AND th.ins_deel_key = tas.ins_deel_key);
    BEGIN
        SELECT COUNT (*)
          INTO v_telling
          FROM blcc_v_bestelling_ehbo_tas tas
         WHERE     TRUNC (datum) >= TRUNC (TRUNC (SYSDATE, 'Month') - 1, 'Month')
               AND TRUNC (datum) < TRUNC (SYSDATE, 'Month')
               AND NOT EXISTS
                       (SELECT th.ins_deel_key
                          FROM blcc_v_bestelling_ehbo_tas th
                         WHERE     fac.safe_to_number (th.eigenaar_key) = 1522
                               AND th.ins_deel_key = tas.ins_deel_key);

        v_errorhint := 'Fout bij aanmaken bestelling EHBO tassen';

        -- Er is minimaal 1 tas die bijgevuld moet worden
        -- Dan wordt 1 melding aangemaakt voor de totale bestelling voor deze maand
        IF v_telling > 0
        THEN
            INSERT INTO mld_melding (mld_melding_module,
                                     mld_meldbron_key,
                                     mld_melding_datum,
                                     mld_alg_locatie_key,
                                     mld_stdmelding_key,
                                     prs_perslid_key,
                                     mld_melding_status,
                                     mld_melding_spoed)
                 VALUES ('MLD',
                         6,                                              -- System
                         SYSDATE,
                         1,
                         1961,                               -- Aanvullen EHBO tas collectief
                         77021,                                           -- BHV coordinator
                         2,                                               -- Nieuw
                         3)
              RETURNING mld_melding_key
                   INTO v_melding_key;

            fac.writelog (
                c_applname,
                'S',
                   'Bestelling '
                || v_melding_key
                || ' aanvullen EHBO-tassen aangemaakt',
                '');

            FOR rec IN bestelregel
            LOOP
                BEGIN
                    v_errorhint := 'Fout bij: ' || rec.mld_kenmerk_omschrijving;

                    mld.upsertmeldingkenmerk (rec.mld_kenmerk_key,
                                              v_melding_key,
                                              rec.bestelling_tas);

                    fac.trackaction ('INSTRK',
                                 rec.ins_deel_key,
                                 NULL,
                                 NULL,
                                 rec.mld_kenmerk_omschrijving || ' is besteld via melding: ' || v_melding_key);
                END;
            END LOOP;

            COMMIT;
        END IF;

        -- Voor tassen van huurders wordt een melding per tas aangemaakt
        FOR rec IN bestelregel_huurder
        LOOP
            BEGIN
                INSERT INTO mld_melding (mld_melding_module,
                                         mld_meldbron_key,
                                         mld_melding_datum,
                                         mld_alg_locatie_key,
                                         mld_stdmelding_key,
                                         prs_perslid_key,
                                         mld_melding_status,
                                         mld_melding_spoed)
                     VALUES ('MLD',
                             6,                                          -- System
                             SYSDATE,
                             1,
                             1962,                   -- Aanvullen EHBO tas huurder
                             77021,                                       -- BHV coordinator
                             2,                                           -- Nieuw
                             3)
                  RETURNING mld_melding_key
                       INTO v_melding_key;

                -- om welke tas gaat het
                INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                     VALUES (v_melding_key, rec.ins_deel_key);

                -- de bestelling voor deze tas
                mld.upsertmeldingkenmerk (rec.kenmerkkey_bes,
                                          v_melding_key,
                                          rec.bestelling_tas);

                fac.writelog (
                    c_applname,
                    'S',
                       'Bestelling '
                    || v_melding_key
                    || ' aanvullen EHBO-tassen huurders aangemaakt',
                    '');
            END;
        END LOOP;

        COMMIT;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   v_errormsg
                || ' ORACLE (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog (c_applname,
                          'E',
                          v_errormsg,
                          '');
            COMMIT;
    END blcc_bestelling_ehbo_tas;

    PROCEDURE blcc_noti_ctr_ehbo_tas
    AS
        p_applname      VARCHAR2 (50) := 'NOTIFICATIE_EHBO_TAS';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR c IS SELECT * FROM blcc_v_noti_ctr_ehbotas;
    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding := 'Notificatie eigenaar ' || rec.betreft;

                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,
                           rec.to_key,
                           rec.to_email,
                           'Controle op ' || rec.betreft || ' ' || to_char(sysdate, 'YYYY'),
                           rec.ins_deel_key,  -- node is deel
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie
                     WHERE fac_srtnotificatie_code = 'CUST05';

                 fac.trackaction ('CUST05',
                                 rec.ins_deel_key,
                                 NULL,
                                 NULL,
                                 'Notificatie met verzoek om tas te controleren verstuurd naar: ' || rec.to_email);
            END;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Notificaties controle EHBO-tassen';
            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 blcc_noti_ctr_ehbo_tas;

    PROCEDURE blcc_noti_ctr_ehbo_tas_rem
    AS
        p_applname       VARCHAR2 (50) := 'NOTIFICATIE_EHBO_TAS_REMINDER';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR c IS
            SELECT ehbo.tas,
                   ehbo.eigenaar_prs_perslid_key,
                   ehbo.email_eigenaar,
                   ehbo.ins_deel_key
              FROM blcc_v_rap_cont_ehbo_tas ehbo, ins_deel sd, ins_srtdeel srt
             WHERE     ehbo.ins_deel_key = sd.ins_deel_key
                   AND srt.ins_srtdeel_key = sd.ins_srtdeel_key
                   AND ehbo.controlejaar = EXTRACT (YEAR FROM SYSDATE)
                   AND  UPPER(ehbo.controle_status) NOT LIKE '%VOLTOOID%'
                   AND TO_CHAR (SYSDATE, 'dd') = '15' -- elke 15e van de maand sturen we een reminder, vanaf mei tot einde jaar
                   AND TO_CHAR (SYSDATE, 'mm') IN ( '05',
                                       '06',
                                       '07',
                                       '08',
                                       '09',
                                       '10',
                                       '11',
                                       '12');
    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding := 'Notificatie eigenaar ' || rec.tas;


                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,
                           rec.eigenaar_prs_perslid_key,
                           rec.email_eigenaar,
                           REPLACE (fac_srtnotificatie_oms,
                                    '##EHBO tas##',
                                    rec.tas),
                           rec.ins_deel_key,                       -- node is deel
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie
                     WHERE fac_srtnotificatie_code = 'CUST06';

                fac.trackaction (
                    'CUST06',
                    rec.ins_deel_key,
                    NULL,
                    NULL,
                       'Notificatie met reminder om tas te controleren verstuurd naar: '
                    || rec.email_eigenaar);
            END;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Reminder controle EHBO-tassen';
            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 blcc_noti_ctr_ehbo_tas_rem;

    PROCEDURE blcc_facturatie_bhv_basis_t
    AS
        v_telling        NUMBER;
        v_melding_key    NUMBER;
        c_applname       VARCHAR2 (50)
                             := 'Melding tbv facturatie BHV basis theorie';
        v_errorhint      VARCHAR2 (1000);
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- de huurderspecifieke opleidingen die doorbelast moeten worden
        -- voor elke huurderspecifieke opleiding moet een melding aangemaakt worden
        CURSOR huurderspecifiek IS
            SELECT idsc.ins_deelsrtcontrole_datum,
                   isc.ins_srtcontrole_omschrijving,
                   a.prs_afdeling_omschrijving,
                   o.ins_deel_key,
                   o.prs_perslid_key,
                   o.perslid_naam_friendly,
                   o.code_herhaling_theorie,
                   o.po_nummer
              FROM blcc_v_rap_bhv_herhaling_t  o,
                   ins_deelsrtcontrole         idsc,
                   ins_srtcontrole             isc,
                   prs_perslid                 p,
                   prs_afdeling                a
             WHERE     o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
                   AND UPPER (o.collectief_huurderspec) = 'HUURDERSPECIFIEK'
                   AND o.ins_deel_key = idsc.ins_deel_key
                   AND isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
                   AND isc.ins_srtcontrole_key = 51
                   AND p.prs_perslid_key = o.prs_perslid_key
                   AND a.prs_afdeling_key = p.prs_afdeling_key;
    BEGIN
          -- de totale aantallen codes die voor dit jaar is aangemaakt
          -- deze moeten in een nieuwe melding 'Opleiding collectief' komen te staan

          SELECT COUNT (o.code_herhaling_theorie)     aantal
            INTO v_telling
            FROM blcc_v_rap_bhv_herhaling_t o
           WHERE o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
        GROUP BY o.jaartal_code;

        v_errorhint := 'Fout bij aanmaken facturatie BHV theorie';

        IF v_telling > 0
        THEN
            INSERT INTO mld_melding (mld_melding_module,
                                     mld_meldbron_key,
                                     mld_melding_datum,
                                     mld_melding_omschrijving,
                                     mld_melding_onderwerp,
                                     mld_alg_locatie_key,
                                     mld_stdmelding_key,
                                     prs_perslid_key,
                                     mld_melding_status,
                                     mld_melding_spoed)
                 VALUES (
                     'MLD',
                     6,                                                  -- System
                     SYSDATE,
                        'Er zijn '
                     || v_telling
                     || ' aantal codes uitgegeven voor het theoriegedeelte van de BHV basis training',
                     'Facturatie herhaling BHV basis theorie',
                     1,
                     1514,                                 -- Opleiding collectief
                     77021,                                               -- BHV coordinator
                     2,                                                   -- Nieuw
                     3)
              RETURNING mld_melding_key
                   INTO v_melding_key;

            fac.writelog (
                c_applname,
                'S',
                   'Melding '
                || v_melding_key
                || ' tbv facturatie herhaling BHV basis',
                '');
            COMMIT;
        END IF;

        -- Voor doorbelasting huurderspecifiek wordt een melding per code aangemaakt
        FOR rec IN huurderspecifiek
        LOOP
                INSERT INTO mld_melding (mld_melding_module,
                                         mld_meldbron_key,
                                         mld_melding_datum,
                                         mld_melding_omschrijving,
                                         mld_melding_opmerking,
                                         mld_alg_locatie_key,
                                         mld_stdmelding_key,
                                         prs_perslid_key,
                                         mld_melding_status,
                                         mld_melding_spoed)
                     VALUES (
                         'MLD',
                         6,                                              -- System
                         SYSDATE,
                            'Er is een code uitgegeven voor herhaling BHV basis voor '
                         || rec.perslid_naam_friendly,
                            'Doorbelasting herhaling BHV basis theorie '
                         || rec.prs_afdeling_omschrijving || '. PO nummer: ' || rec.po_nummer ,
                         1,
                         1515,                       -- Opleiding huurderspecifiek
                         rec.prs_perslid_key,                            -- BHV-er
                         2,                                               -- Nieuw
                         3)
                  RETURNING mld_melding_key
                       INTO v_melding_key;

                -- om welke opleiding gaat het
                INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                     VALUES (v_melding_key, rec.ins_deel_key);

                fac.writelog (
                    c_applname,
                    'S',
                       'Melding '
                    || v_melding_key
                    || ' tbv doorbelasting herhaling BHV basis',
                    '');
        END LOOP;

        COMMIT;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   v_errormsg
                || ' ORACLE (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog (c_applname,
                          'E',
                          v_errormsg,
                          '');
            COMMIT;
    END blcc_facturatie_bhv_basis_t;

    PROCEDURE blcc_noti_acaleph
    AS
        p_applname       VARCHAR2 (50) := 'CUST14_NOTIFICATIE_ACALEPH';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);
    BEGIN
        v_errorhint := 'init';

        INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                     fac_notificatie_status,
                                     fac_notificatie_receiver_email,
                                     fac_notificatie_oms,
                                     fac_notificatie_refkey,
                                     prs_perslid_key_sender,
                                     fac_notificatie_prioriteit,
                                     fac_notificatie_lang)
            SELECT sn.fac_srtnotificatie_key,
                   2,
                   'mail@acaleph.nl',
                   'Deelnemers BHV-Basis opleiding Brightlands',
                   1742,           -- BHV-basis: voltooide herhalingen theorie
                   52801,                               -- 52801 Rene Schmeitz
                   2,
                   'NL'
              FROM fac_srtnotificatie sn
             WHERE sn.fac_srtnotificatie_code = 'CUST14';

        fac.writelog (p_applname,
                      'I',
                      'Mail met deelnemers BHV-basis naar Acaleph',
                      '');
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'CUST14 Notificatie Acaleph';
            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 blcc_noti_acaleph;

    PROCEDURE blcc_verwijder_bhv_b_codes
    AS
        p_applname       VARCHAR2 (50) := 'Verwijderen codes BHV-basis';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR codes IS
            SELECT t.ins_deel_key,
                   t.omschrijving,
                   t.code_herhaling_theorie,
                   c.ins_kenmerkdeel_key
              FROM blcc_v_rap_bhv_herhaling_t  t,
                   (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_key
                      FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
                     WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                           AND sk.ins_srtkenmerk_key = 261
                           AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                           AND kd.ins_kenmerkdeel_verwijder IS NULL) c
             WHERE c.ins_deel_key = t.ins_deel_key;
    BEGIN
        v_errorhint := 'init';

        FOR rec IN codes
        LOOP
            BEGIN
                DELETE ins_kenmerkdeel v
                 WHERE v.ins_kenmerkdeel_key = rec.ins_kenmerkdeel_key;

                fac.trackaction ('INSUPD',
                                 rec.ins_deel_key,
                                 NULL,
                                 NULL,
                                 'Code ' || rec.code_herhaling_theorie || 'BHV-basis opleiding verwijderd');
            END;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Verwijderen codes BHV-basis';
            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 blcc_verwijder_bhv_b_codes;

    PROCEDURE blcc_noti_reminder_bhv_t
    AS
        p_applname       VARCHAR2 (50) := 'NOTIFICATIE_REMINDER_BHV_T';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR c IS
            SELECT NULL                                    sender,
                   bhv_t.prs_perslid_email                 to_email,
                   bhv_t.prs_perslid_key                   to_key,
                      bhv_t.ins_srtcontrole_omschrijving
                   || '/ ERO refresher course (theory)'    betreft,
                   bhv_t.ins_deel_key                      refkey,
                   NULL
              FROM (SELECT d.ins_deel_key,
                           d.ins_deel_omschrijving,
                           d.ins_deel_opmerking,
                           sc.ins_srtcontrole_omschrijving,
                           sd.ins_srtdeel_omschrijving,
                           p.prs_perslid_email,
                           p.prs_perslid_key
                      FROM ins_srtcontrole         sc,
                           ins_discipline          di,
                           ins_v_aanwezigsrtgroep  sg,
                           ins_v_aanwezigsrtdeel   sd,
                           ins_v_aanwezigdeel      d,
                           prs_perslid             p
                     WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
                           AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
                           AND sc.ins_srtinstallatie_key = sd.ins_srtdeel_key -- taken op trainingen zijn op srtdeel niveau vastgelegd
                           AND di.ins_discipline_key = sg.ins_discipline_key
                           AND d.prs_perslid_key_beh = p.prs_perslid_key
                           AND (COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
                                OR d.ins_deel_vervaldatum IS NULL)
                           AND d.ins_deel_verwijder IS NULL
                           AND sc.ins_srtcontrole_key = 51) bhv_t
             WHERE NOT EXISTS
                       (SELECT 1
                          FROM blcc_v_rap_bhv_herh_t_voltooid v
                         WHERE v.perslid_key = bhv_t.prs_perslid_key);
    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                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,
                           rec.to_key,
                           rec.to_email,
                           'Reminder: ' || rec.betreft,
                           rec.refkey,           -- node is de training (ins_deel)
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie
                     WHERE fac_srtnotificatie_code = 'CUST15';

            fac.trackaction (
                    'CUST15',
                    rec.refkey,
                    NULL,
                    NULL,
                       'Notificatie met reminder BHV-basis theorie verstuurd naar: '
                    || rec.to_email);
            EXCEPTION
                WHEN OTHERS
                THEN
                    v_errorhint :=
                        'Toevoegen notificatie Reminder ' || rec.betreft;
                    oracle_err_num := SQLCODE;
                    oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                    fac.writelog (
                        p_applname,
                        'E',
                           'Error '
                        || v_aanduiding
                        || oracle_err_num
                        || '/'
                        || oracle_err_mes,
                        v_errorhint);
            END;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Notificaties reminder herhaling BHV-T';
            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 blcc_noti_reminder_bhv_t;

    PROCEDURE blcc_facturatie_rode_kruis
    AS
        v_telling        NUMBER;
        v_current_year   NUMBER;
        v_melding_key    NUMBER;
        c_applname       VARCHAR2 (50)
                             := 'Melding tbv facturatie EHBO Rode Kruis';
        v_errorhint      VARCHAR2 (1000);
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- de opleiding EHBO Rode Kruis is altijd huurderspecifiek en moet dus doorbelast worden
        -- voor elke huurderspecifieke EHBO-RK opleiding moet daarom een melding aangemaakt worden
        CURSOR huurderspecifiek IS
            SELECT rk.ins_deel_key,
               rk.omschrijving,
               rk.opmerking,
               rk.soortdeel_key,
               rk.soort_opleiding,
               rk.collectief_huurderspec,
               rk.po_nummer,
               rk.prs_perslid_key,
               rk.prs_afdeling_omschrijving,
               rk.perslid_email,
               rk.perslid_naam_full,
               rk.perslid_naam_friendly,
               rk.datum_laatste_training,
               COALESCE (geb.alg_gebouw_key, 4521)  gebouw -- indien geen werkplek in een gebouw terugvallen op fictief
          FROM blcc_v_rap_ehbo_rk rk,
               (SELECT pw.prs_perslid_key, g.alg_gebouw_key
                  FROM (  SELECT pw.prs_perslid_key,
                                 MAX (pw.prs_perslidwerkplek_key)     last_wp
                            FROM prs_perslidwerkplek pw
                        GROUP BY pw.prs_perslid_key) pw,
                       prs_werkplek    w,
                       alg_ruimte      r,
                       alg_verdieping  v,
                       alg_gebouw      g
                 WHERE     pw.last_wp = w.prs_werkplek_key
                       AND w.prs_alg_ruimte_key = r.alg_ruimte_key
                       AND r.alg_verdieping_key = v.alg_verdieping_key
                       AND v.alg_gebouw_key = g.alg_gebouw_key) geb
         WHERE geb.prs_perslid_key(+) = rk.prs_perslid_key;

    BEGIN
        SELECT EXTRACT (YEAR FROM SYSDATE) INTO v_current_year FROM DUAL;

        FOR rec IN huurderspecifiek
        LOOP
            INSERT INTO mld_melding (mld_melding_module,
                                     mld_meldbron_key,
                                     mld_melding_datum,
                                     mld_melding_omschrijving,
                                     mld_melding_opmerking,
                                     mld_alg_locatie_key,
                                     mld_alg_onroerendgoed_keys,
                                     mld_stdmelding_key,
                                     prs_perslid_key,
                                     mld_melding_status,
                                     mld_melding_spoed)
                 VALUES (
                     'MLD',
                     6,                                                  -- System
                     SYSDATE,
                        'Opleiding EHBO Rode Kruis voor '
                     || rec.perslid_naam_friendly,
                        'Doorbelasting EHBO Rode Kruis '
                     || rec.prs_afdeling_omschrijving
                     || '. PO nummer: '
                     || rec.po_nummer,
                     1,
                     rec.gebouw,
                     1515,                           -- Opleiding huurderspecifiek
                     rec.prs_perslid_key,                                -- BHV-er
                     2,                                                   -- Nieuw
                     3)
              RETURNING mld_melding_key
                   INTO v_melding_key;

            -- om welke opleiding gaat het
            INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                 VALUES (v_melding_key, rec.ins_deel_key);

            fac.trackaction (
                'INSTRK',
                rec.ins_deel_key,
                NULL,
                NULL,
                   'Melding '
                || v_melding_key
                || ' aangemaakt t.b.v. facturatie '
                || v_current_year);
        END LOOP;

        COMMIT;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   v_errormsg
                || ' ORACLE (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog (c_applname,
                          'E',
                          v_errormsg,
                          '');
            COMMIT;
    END blcc_facturatie_rode_kruis;

    PROCEDURE blcc_facturatie_ploegleider
    AS
        v_telling        NUMBER;
        v_current_year   NUMBER;
        v_melding_key    NUMBER;
        c_applname       VARCHAR2 (50)
                             := 'Melding tbv facturatie Ploegleider';
        v_errorhint      VARCHAR2 (1000);
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- de opleiding ploegleider is altijd huurderspecifiek en moet dus doorbelast worden
        -- voor elke huurderspecifieke ploegleider opleiding moet daarom een melding aangemaakt worden
        CURSOR huurderspecifiek IS
            SELECT ins_deel_key,
                   omschrijving,
                   opmerking,
                   soortdeel_key,
                   soort_opleiding,
                   collectief_huurderspec,
                   po_nummer,
                   prs_perslid_key,
                   prs_afdeling_omschrijving,
                   perslid_email,
                   perslid_naam_full,
                   perslid_naam_friendly,
                   datum_laatste_training
              FROM blcc_v_rap_ploegleider;
    BEGIN
        FOR rec IN huurderspecifiek
        LOOP
            INSERT INTO mld_melding (mld_melding_module,
                                     mld_meldbron_key,
                                     mld_melding_datum,
                                     mld_melding_omschrijving,
                                     mld_melding_opmerking,
                                     mld_alg_locatie_key,
                                     mld_stdmelding_key,
                                     prs_perslid_key,
                                     mld_melding_status,
                                     mld_melding_spoed)
                 VALUES (
                     'MLD',
                     6,                                                  -- System
                     SYSDATE,
                        'Opleiding Ploegleider voor '
                     || rec.perslid_naam_friendly,
                        'Doorbelasting ploegleider '
                     || rec.prs_afdeling_omschrijving
                     || '. PO nummer: '
                     || rec.po_nummer,
                     1,
                     1515,                           -- Opleiding huurderspecifiek
                     rec.prs_perslid_key,                                -- BHV-er
                     2,                                                   -- Nieuw
                     3)
              RETURNING mld_melding_key
                   INTO v_melding_key;

            -- om welke opleiding gaat het
            INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                 VALUES (v_melding_key, rec.ins_deel_key);

            fac.trackaction (
                'INSUPD',
                rec.ins_deel_key,
                NULL,
                NULL,
                   'Melding '
                || v_melding_key
                || ' aangemaakt t.b.v. facturatie '
                || v_current_year);
        END LOOP;

        COMMIT;
    EXCEPTION
        WHEN OTHERS
        THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg :=
                   v_errormsg
                || ' ORACLE (error '
                || oracle_err_num
                || '/'
                || oracle_err_mes
                || ')';
            fac.writelog (c_applname,
                          'E',
                          v_errormsg,
                          '');
            COMMIT;
    END blcc_facturatie_ploegleider;

    PROCEDURE autorisatie_bhv
    AS
        v_errormsg       VARCHAR2 (1000);
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);

        -- actieve BHV-ers die nog niet in de autorisatiegroep BHV-ers zitten
        CURSOR act IS
            SELECT p.prs_perslid_key, p.prs_perslid_naam_full
              FROM prs_kenmerk                  k,
                   prs_kenmerklink              kp,
                   prs_v_perslid_fullnames_all  p
             WHERE     k.prs_kenmerk_niveau = 'P'
                   AND k.prs_kenmerk_key = 1220
                   AND kp.prs_kenmerk_key = k.prs_kenmerk_key
                   AND kp.prs_kenmerklink_verwijder IS NULL
                   AND kp.prs_link_key = p.prs_perslid_key
                   AND p.prs_perslid_verwijder IS NULL
                   AND NOT EXISTS
                           (SELECT gg.prs_perslid_key
                              FROM fac_groep g, fac_gebruikersgroep gg
                             WHERE     g.fac_groep_key = 2981
                                   AND gg.fac_groep_key = g.fac_groep_key
                                   AND gg.prs_perslid_key = p.prs_perslid_key);

        -- Medewerkers in de autorisatiegroep BHV, terwijl zij geen vinkje BHV-er hebben
        CURSOR inact IS
            SELECT gg.prs_perslid_key, p.prs_perslid_naam_full
              FROM fac_groep                    g,
                   fac_gebruikersgroep          gg,
                   prs_v_perslid_fullnames_all  p
             WHERE     g.fac_groep_key = 2981
                   AND gg.fac_groep_key = g.fac_groep_key
                   AND p.prs_perslid_key = gg.prs_perslid_key
                   AND NOT EXISTS
                           (SELECT p.prs_perslid_key
                              FROM prs_kenmerk      k,
                                   prs_kenmerklink  kp,
                                   prs_perslid      p
                             WHERE     k.prs_kenmerk_niveau = 'P'
                                   AND k.prs_kenmerk_key = 1220
                                   AND kp.prs_kenmerk_key = k.prs_kenmerk_key
                                   AND kp.prs_kenmerklink_verwijder IS NULL
                                   AND kp.prs_link_key = p.prs_perslid_key
                                   AND p.prs_perslid_key = gg.prs_perslid_key);
    BEGIN
        FOR rec IN act
        LOOP
            INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
                 VALUES (2981, rec.prs_perslid_key);

            fac.trackaction ('PRSTRK',
                             rec.prs_perslid_key,
                             3,
                             SYSDATE,
                             'Medewerker in autorisatie groep BHV-ers geplaatst');
            COMMIT;
        END LOOP;

        FOR rec IN inact
        LOOP
            DELETE fac_gebruikersgroep gg
             WHERE     gg.fac_groep_key = 2981
                   AND gg.prs_perslid_key = rec.prs_perslid_key;

            fac.trackaction (
                'PRSTRK',
                rec.prs_perslid_key,
                3,
                SYSDATE,
                'Medewerker uit autorisatie groep BHV-ers verwijderd');
            COMMIT;
        END LOOP;
    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 ('Toewijzen BHV autorisatie',
                          'E',
                          v_errormsg,
                          '');
    END autorisatie_bhv;

    PROCEDURE blcc_noti_kostengereed
    AS
        p_applname       VARCHAR2 (50) := 'NOTIFICATIE_KOSTENTECHNISCHGEREED';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR c IS
            SELECT o.mld_opdr_key,
                   cpn.prs_contactpersoon_key,
                   cpn.prs_perslid_email,
                   o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr      opdracht,
                   TRUNC (mld.getopdrachtstatusdate (o.mld_opdr_key, 6)) + 14     te_notificeren
              FROM mld_opdr     o,
                   mld_melding  m,
                   (SELECT prs_contactpersoon_key, prs_perslid_email
                      FROM (SELECT cp.prs_contactpersoon_key,
                                   pf.prs_perslid_naam_full     contact_naam,
                                   p.prs_perslid_email
                              FROM prs_contactpersoon cp, prs_v_perslid_fullnames_all pf, prs_perslid p
                             WHERE     cp.prs_perslid_key = pf.prs_perslid_key
                                   AND p.prs_perslid_key = cp.prs_perslid_key
                            UNION ALL
                            SELECT cp.prs_contactpersoon_key,
                                   cp.prs_contactpersoon_naam,
                                   p.prs_perslid_email
                              FROM prs_contactpersoon cp, prs_v_perslid_fullnames_all pf, prs_perslid p
                             WHERE     cp.prs_perslid_key = pf.prs_perslid_key
                                   AND p.prs_perslid_key = cp.prs_perslid_key
                                   AND cp.prs_perslid_key IS NULL)) cpn
             WHERE     o.mld_melding_key = m.mld_melding_key
                   AND cpn.prs_contactpersoon_key = o.prs_contactpersoon_key
                   AND o.mld_statusopdr_key = 6
                   AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                   AND cpn.prs_perslid_email IS NOT NULL
                   AND TRUNC (mld.getopdrachtstatusdate (o.mld_opdr_key, 6)) + 14 = TRUNC (SYSDATE);
    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding :=
                    'Notificatie reminder kostentechnisch gereedmelden opdracht ' || rec.opdracht;

                INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                             fac_notificatie_status,
                                             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,
                           rec.prs_perslid_email,
                           REPLACE (fac_srtnotificatie_oms, '##opdrnr##', rec.opdracht),
                           rec.mld_opdr_key,                                         -- node is opdracht
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie
                     WHERE fac_srtnotificatie_code = 'CUST18';

                fac.trackaction (
                    'ORDTRK',
                    rec.mld_opdr_key,
                    NULL,
                    NULL,
                       'Notificatie met verzoek om kostentechnisch gereed te melden verzonden naar: '
                    || rec.prs_perslid_email);
            END;
        END LOOP;
    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Reminder kostentechnisch gereedmelden';
            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 blcc_noti_kostengereed;

    PROCEDURE blcc_noti_po_nr_aanvr
    AS
        p_applname       VARCHAR2 (50) := 'Referentie/Purchase ordernummer aanvraag';
        oracle_err_num   NUMBER;
        oracle_err_mes   VARCHAR2 (200);
        v_errorhint      VARCHAR2 (100);
        v_aanduiding     VARCHAR2 (100);

        CURSOR c IS
            SELECT DISTINCT p.prs_bedrijf_key, LISTAGG (p.email, ';') WITHIN GROUP (ORDER BY p.prs_bedrijf_key) email
                FROM (SELECT DISTINCT prs_bedrijf_key, email
                        FROM BLCC_V_RAP_PO_AANVRAAG) p
                GROUP BY p.prs_bedrijf_key;

        CURSOR t IS
            SELECT DISTINCT p.prs_bedrijf_key, p.naam_bedrijf, p.perslid_key
                FROM BLCC_V_RAP_PO_AANVRAAG p;

    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding := 'Notificatie PO aanvraag' ;

                INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                             fac_notificatie_status,
                                             fac_notificatie_receiver_email,
                                             fac_notificatie_oms,
                                             fac_notificatie_refkey,
                                             fac_notificatie_extrakey,
                                             prs_perslid_key_sender,
                                             fac_notificatie_prioriteit,
                                             fac_notificatie_lang)
                    SELECT fac_srtnotificatie_key,
                           2,
                           rec.email,
                           'Referentie / Purchase ordernummer aanvraag',
                           r.fac_usrrap_key,                                             -- node rapport
                           rec.prs_bedrijf_key,                -- alleen resultaat voor je eigen bedrijf
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie, fac_usrrap r
                     WHERE     fac_srtnotificatie_code = 'CUST19'
                           AND UPPER (r.fac_usrrap_view_name) = 'BLCC_V_RAP_PO_AANVRAAG';
            END;
        END LOOP;

        FOR REC IN t
        LOOP

            fac.trackaction (
                    'PRSTRK',
                    rec.perslid_key,
                    NULL,
                    NULL,
                    'Referentie/Purchase ordernummer aanvraag voor '|| rec.naam_bedrijf || ' verstuurd op: ' || sysdate);

        END LOOP;

    END  blcc_noti_po_nr_aanvr;

    PROCEDURE blcc_noti_headcount
    AS
    p_applname       VARCHAR2 (50) := 'Headcount opgave';
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);
    v_errorhint      VARCHAR2 (100);
    v_aanduiding     VARCHAR2 (100);

    CURSOR c IS
            SELECT DISTINCT h.prs_bedrijf_key, LISTAGG (h.perslid_email, ';') WITHIN GROUP (ORDER BY h.prs_bedrijf_key) email
                FROM (SELECT DISTINCT prs_bedrijf_key, perslid_email
                        FROM BLCC_V_RAP_HEADCOUNT) h
                GROUP BY h.prs_bedrijf_key;

    CURSOR t IS
            SELECT DISTINCT h.prs_bedrijf_key, h.prs_bedrijf_naam, h.perslid_key
                FROM BLCC_V_RAP_HEADCOUNT h;

    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding := 'Notificatie headcount';

                INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                             fac_notificatie_status,
                                             fac_notificatie_receiver_email,
                                             fac_notificatie_oms,
                                             fac_notificatie_refkey,
                                             fac_notificatie_extrakey,
                                             prs_perslid_key_sender,
                                             fac_notificatie_prioriteit,
                                             fac_notificatie_lang)
                    SELECT fac_srtnotificatie_key,
                           2,
                           rec.email,
                           'Headcount opgave',
                           r.fac_usrrap_key,                                             -- node rapport
                           rec.prs_bedrijf_key,                                -- alleen voor jezelf een brief
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie, fac_usrrap r
                     WHERE     fac_srtnotificatie_code = 'CUST22'
                           AND UPPER (r.fac_usrrap_omschrijving) = 'NOTIFICATIE HEADCOUNT';

            END;
        END LOOP;

        FOR REC IN t
        LOOP

        fac.trackaction ('PRSTRK',
                                 rec.perslid_key,
                                 NULL,
                                 NULL,
                                 'Headcount opgave voor '|| rec.prs_bedrijf_naam || ' verstuurd op: ' || SYSDATE);

        END LOOP;

    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Headcount opgave';
            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 blcc_noti_headcount;

   PROCEDURE blcc_noti_headcount_rmdr
   AS
    p_applname       VARCHAR2 (50) := 'Headcount opgave';
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);
    v_errorhint      VARCHAR2 (100);
    v_aanduiding     VARCHAR2 (100);

    CURSOR c IS
            SELECT DISTINCT h.prs_bedrijf_key, LISTAGG (h.perslid_email, ';') WITHIN GROUP (ORDER BY h.prs_bedrijf_key) email
                FROM (SELECT DISTINCT prs_bedrijf_key, perslid_email
                        FROM BLCC_V_RAP_HEADCOUNT) h
                GROUP BY h.prs_bedrijf_key;

    CURSOR t IS
            SELECT DISTINCT h.prs_bedrijf_key, h.prs_bedrijf_naam, h.perslid_key
                FROM BLCC_V_RAP_HEADCOUNT h;

    BEGIN
        v_errorhint := 'init';

        FOR rec IN c
        LOOP
            BEGIN
                v_aanduiding := 'Notificatie reminder headcount';

                INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                             fac_notificatie_status,
                                             fac_notificatie_receiver_email,
                                             fac_notificatie_oms,
                                             fac_notificatie_refkey,
                                             fac_notificatie_extrakey,
                                             prs_perslid_key_sender,
                                             fac_notificatie_prioriteit,
                                             fac_notificatie_lang)
                    SELECT fac_srtnotificatie_key,
                           2,
                           rec.email,
                           'Reminder headcount opgave',
                           r.fac_usrrap_key,                                             -- node rapport
                           rec.prs_bedrijf_key,                                -- alleen voor jezelf een brief
                           4,
                           2,
                           'NL'
                      FROM fac_srtnotificatie, fac_usrrap r
                     WHERE     fac_srtnotificatie_code = 'CUST24'
                           AND UPPER (r.fac_usrrap_omschrijving) = 'NOTIFICATIE HEADCOUNT REMINDER';

            END;
        END LOOP;

        FOR REC IN t
        LOOP

        fac.trackaction ('PRSTRK',
                                 rec.perslid_key,
                                 NULL,
                                 NULL,
                                 'Headcount opgave voor '|| rec.prs_bedrijf_naam || ' verstuurd op: ' || SYSDATE);

        END LOOP;

    EXCEPTION
        WHEN OTHERS
        THEN
            v_errorhint := 'Reminder headcount opgave';
            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 blcc_noti_headcount_rmdr;

   PROCEDURE freezeopdrachten (p_kpn IN VARCHAR2)
   AS
      c_applname       VARCHAR2 (50) := 'FREEZE_OPDR';
      v_errormsg       VARCHAR2 (1000);
      oracle_err_num   NUMBER;
      oracle_err_mes   VARCHAR2 (200);
      v_count          NUMBER (10);

      -- Cursor loopt over alle opdrachten op Kostenplaats 'p_kpn' die zijn
      -- afgerond; deze worden verwerkt en vannacht doorgezet naar ProQuro!
      CURSOR c1
      IS
           SELECT mld_opdr_key
             FROM mld_opdr o, prs_kostenplaats kp, prs_kostenplaatsgrp kpg
            WHERE o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                  AND o.mld_statusopdr_key = 9                           -- KV
                  --AND fac.gettrackingdate ('ORDAFR', o.mld_opdr_key) < TRUNC (SYSDATE, 'mm')
                  AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key
                  AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key
                  AND COALESCE (kpg.prs_kostenplaatsgrp_nr, SUBSTR (kp.prs_kostenplaats_nr, 1, 5)) = p_kpn
         ORDER BY 1;
   BEGIN
      v_count := 0;

      -- Opdrachten op Kostenplaats 'p_kpn' verwerken en zodoende markeren om
      -- vannacht door te zetten via PROQURO-export!
      v_errormsg := 'Fout bijwerken opdrachtstatus';
      FOR rec IN c1
      LOOP
         MLD.setopdrachtstatus (rec.mld_opdr_key, 7, 4);
         v_count := v_count + 1;
         COMMIT;
      END LOOP;

      fac.writelog (c_applname, 'S', 'Proces: ' || TO_CHAR (v_count) || ' opdrachten bevroren', '');
      COMMIT;
   EXCEPTION
      WHEN OTHERS
      THEN
         oracle_err_num := SQLCODE;
         oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
         v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
         fac.writelog (c_applname, 'E', v_errormsg, '');
         COMMIT;
   END freezeopdrachten;

   -- Push nieuwe contacten naar Dynamics (alleen 0-versie).
   PROCEDURE exp_cnt2dynamics
   AS
      v_errormsg         VARCHAR2 (1000);
      oracle_err_num     NUMBER;
      oracle_err_mes     VARCHAR2 (200);
      v_count            NUMBER (10);

      CURSOR c1
      IS
           SELECT DISTINCT '[' || extra_key || '|' || party_cntsrt || '] ' aanduiding,
                  extra_key
             FROM blcc_v_rap_cnt_dynamics
            WHERE TRUNC (aanmaak) = TRUNC (SYSDATE - 1) -- Gisteren aangemaakt en dus nog niet doorgezet naar Dynamics!
         ORDER BY extra_key;
   BEGIN
      v_count := 0;

      FOR rec IN c1
      LOOP
         v_errormsg := 'Fout toevoegen CUST23-noti (Dynamics)';
         INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                      fac_notificatie_status,
                                      fac_notificatie_refkey,
                                      fac_notificatie_extrakey,
                                      fac_notificatie_prioriteit,
                                      prs_bedrijfadres_key
                                     )
             VALUES (1001,                                           -- CUST23
                     0,                                          -- Don't care
                     3381,                          -- BLCC_V_RAP_CNT_DYNAMICS
                     fac.safe_to_number (rec.extra_key),
                     2,
                     4841                   -- Dynamics-kanaal voor contracten
                    );
      END LOOP;

      fac.writelog ('CNT2DYNAMICS', 'S', 'Contracten/#doorgezet: ' || TO_CHAR (v_count), '');
   EXCEPTION
      WHEN OTHERS
      THEN
         oracle_err_num := SQLCODE;
         oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
         v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
         fac.writelog ('CNT2DYNAMICS', 'E', v_errormsg, '');
   END exp_cnt2dynamics;

   -- Verwijder en anonimiseer personen die halfjaar niet zijn ingelogd!
   PROCEDURE schonen_accounts
   AS
      c_prs_dummy_key    NUMBER (10) := -1; -- DUMMY tbv overzetten verplichtingen verwijderde personen
      --c_oud_medewerker   VARCHAR2 (100) := 'Geanonimiseerd';
      v_errormsg         VARCHAR2 (1000);
      oracle_err_num     NUMBER;
      oracle_err_mes     VARCHAR2 (200);
      v_count            NUMBER (10);

      CURSOR c1
      IS
           SELECT '[' || TO_CHAR (p.prs_perslid_key) || '|' || p.prs_perslid_email || '|' || pf.prs_perslid_naam_full || '] '
                     aanduiding,
                  p.prs_perslid_key,
                  x.tot_verpl
             FROM blcc_v_rap_oude_accounts x,
                  prs_perslid p,
                  prs_v_perslid_fullnames pf
            WHERE x.huurder = 'J'
                  AND INSTR (UPPER (COALESCE (x.email, 'Quqelequ')), '@BRIGHTLANDS') = 0
                  AND x.tot_verpl = 0
                  AND x.fin_verpl = 0
                  AND x.prs_perslid_key = p.prs_perslid_key
                  --AND p.prs_perslid_verwijder IS NULL -- Zou zo moeten zijn!
                  AND p.prs_perslid_key > 10             -- Voor de zekerheid!
                  AND p.prs_perslid_apikey IS NULL
                  AND BITAND (p.prs_perslid_flags, 32) = 0 -- Bitje 6 is 0, dus verwijderbaar!
                  AND (p.prs_perslid_oslogin IS NULL
                       OR p.prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\') -- ' tbv. opmaak
                  AND p.prs_perslid_key = pf.prs_perslid_key
                  AND NOT EXISTS           -- BLCC#77325: Huisbazen uitsluiten
                        (SELECT 1
                           FROM alg_kenmerk k, alg_v_aanwezigonrgoedkenmerk ok
                          WHERE k.alg_kenmerk_verwijder IS NULL
                                AND k.alg_kenmerk_niveau = 'R'
                                AND k.alg_kenmerk_key IN (1981, 1982, 1983, 1984, 1985)
                                AND k.alg_kenmerk_key = ok.alg_kenmerk_key
                                AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = p.prs_perslid_key)
         ORDER BY 2;
   BEGIN
      v_count := 0;

      FOR rec IN c1
      LOOP
         BEGIN
            IF rec.tot_verpl > 0 -- LET OP: Voorlopig via cursor uitgefilterd!
            THEN
               -- Zet niet-financiele verplichtingen naar afgesproken persoon!
               v_errormsg := 'Fout overzetten verplichtingen';
               FOR pv IN (SELECT *
                            FROM prs_v_verplichting
                           WHERE prs_perslid_key = rec.prs_perslid_key)
               LOOP
                  BEGIN
                     IF pv.xmlnode = 'deel'
                     THEN
                        UPDATE ins_deel
                           SET ins_alg_ruimte_key =
                                  DECODE (
                                     ins_alg_ruimte_type,
                                     'P',
                                     DECODE (ins_alg_ruimte_key,
                                             rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                             ins_alg_ruimte_key),
                                     ins_alg_ruimte_key),
                               ins_alg_ruimte_key_org =
                                  DECODE (
                                     ins_alg_ruimte_type_org,
                                     'P', -- Is d.ins_alg_ruimte_type_org ooit 'P'?
                                     DECODE (ins_alg_ruimte_key_org,
                                             rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                             ins_alg_ruimte_key_org),
                                     ins_alg_ruimte_key_org),
                               prs_perslid_key_beh =
                                  DECODE (prs_perslid_key_beh,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          prs_perslid_key_beh)
                         WHERE ins_deel_key = pv.item_key;
                     --ELSIF CNT-verplichtin           -- Overslaan (financieel)!
                     --THEN
                     ELSIF pv.xmlnode = 'melding' -- Alleen MLD, ORD overslaan (financieel)!
                     THEN
                        UPDATE mld_melding
                           SET prs_perslid_key =
                                  DECODE (prs_perslid_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          prs_perslid_key),
                               prs_perslid_key_voor =
                                  DECODE (prs_perslid_key_voor,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          prs_perslid_key_voor),
                               mld_melding_behandelaar_key =
                                  DECODE (mld_melding_behandelaar_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          mld_melding_behandelaar_key)
                         WHERE mld_melding_key = pv.item_key;
                     --ELSIF BES-verplichting          -- Overslaan (financieel)!
                     --THEN
                     ELSIF pv.xmlnode = 'reservering'
                     THEN
                        UPDATE res_rsv_ruimte
                           SET res_rsv_ruimte_host_key =
                                  DECODE (res_rsv_ruimte_host_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          res_rsv_ruimte_host_key),
                               res_rsv_ruimte_contact_key =
                                  DECODE (res_rsv_ruimte_contact_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          res_rsv_ruimte_contact_key)
                         WHERE res_rsv_ruimte_key = pv.item_key;
                     ELSIF pv.xmlnode = 'afspraak'
                     THEN
                        UPDATE bez_afspraak
                           SET prs_perslid_key =
                                  DECODE (prs_perslid_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          prs_perslid_key),
                               bez_afspraak_host_key =
                                  DECODE (bez_afspraak_host_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          bez_afspraak_host_key),
                               bez_afspraak_contact_key =
                                  DECODE (bez_afspraak_contact_key,
                                          rec.prs_perslid_key, c_prs_dummy_key, -- PSEUDO.VERPLICHTINGEN-user
                                          bez_afspraak_contact_key)
                         WHERE bez_afspraak_key = pv.item_key;
                     ELSE
                        fac.writelog ('BLCC_SCHONEN', 'W', rec.aanduiding || v_errormsg, '');
                     END IF;
                  EXCEPTION
                     WHEN OTHERS
                     THEN
                        oracle_err_num := SQLCODE;
                        oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                        v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
                        fac.writelog ('BLCC_SCHONEN', 'E', rec.aanduiding || v_errormsg, '');
                        COMMIT;
                  END;
               END LOOP;
            END IF;

            v_errormsg := 'Fout schonen collega';
            DELETE FROM prs_collega
                  WHERE prs_perslid_key = rec.prs_perslid_key
                        OR prs_perslid_key_alt = rec.prs_perslid_key;

            v_errormsg := 'Fout schonen perslid';
            --prs.delete_perslid (p_import_key, rec.prs_perslid_key);
            --UPDATE prs_perslid
            --   SET prs_perslid_naam = c_oud_medewerker,
            --       prs_perslid_tussenvoegsel = NULL,
            --       prs_perslid_voorletters = NULL,
            --       prs_perslid_voornaam = NULL,
            --       prs_perslid_initialen = NULL,
            --       prs_perslid_geslacht = NULL,
            --       prs_perslid_nr = NULL,
            --       prs_perslid_telefoonnr = NULL,
            --       prs_perslid_mobiel = NULL,
            --       prs_perslid_email = NULL,
            --       prs_perslid_oslogin = NULL,
            --       prs_perslid_oslogin2 = NULL,
            --       prs_perslid_verwijder = SYSDATE
            -- WHERE prs_perslid_key = rec.prs_perslid_key;
            UPDATE prs_perslid
               SET prs_perslid_verwijder = SYSDATE
             WHERE prs_perslid_key = rec.prs_perslid_key;

            v_count := v_count + 1;
            IF MOD (v_count, 1000) = 0
            THEN
               COMMIT;
            END IF;
         EXCEPTION
            WHEN OTHERS
            THEN
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
               v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
               fac.writelog ('BLCC_ACCOUNTS', 'W', rec.aanduiding || v_errormsg, '');
               COMMIT;
         END;
      END LOOP;

      fac.writelog ('BLCC_ACCOUNTS', 'S', 'Personen/#geschoond: ' || TO_CHAR (v_count), '');
      COMMIT;
   EXCEPTION
      WHEN OTHERS
      THEN
         oracle_err_num := SQLCODE;
         oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
         v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
         fac.writelog ('BLCC_ACCOUNTS', 'E', v_errormsg, '');
         COMMIT;
   END schonen_accounts;

   -- BLCC#71247: Bevries maandelijks op de 1e dag/nacht van de maand de ALG-
   --             ruimtegegevens.
   PROCEDURE bewaren_alg_foto
   AS
      v_errormsg       VARCHAR2 (1000);
      oracle_err_num   NUMBER;
      oracle_err_mes   VARCHAR2 (200);
      v_freeze_datum   DATE;
      v_count          NUMBER (10);

      CURSOR c1
      IS
           SELECT alg_ruimte_key,
                  locatiecode,
                  gebouwcode,
                  verdiepingcode,
                  ruimtenummer,
                  ruimtefunctie,
                  nvo,
                  nvo_getekend,
                  vvo,
                  vvo_getekend,
                  lhkotc_class,
                  basic_tarief,
                  premium_tarief,
                  excellent_tarief,
                  sch_maand,
                  sch_tariefniveau,
                  COALESCE (sch_contract, sch_contract2) sch_contract,
                  COALESCE (sch_mantel, sch_mantel2) sch_mantel,
                  huur_maand,
                  huur_contract,
                  gebouw_vervallen,
                  gebouw_strategie,
                  vvo_overeenkomst,
                  in_expl_dat,
                  uit_expl_dat,
                  gebouwfunctie,
                  gebouwclustercode,
                  gebouwclusternaam,
                  lhkotc_class_code,
                  basic_tarief2,
                  premium_tarief2,
                  excellent_tarief2,
                  excelplus_tarief2,
                  sch_tariefniveau2,
                  lhkotc_brink_code
             FROM blcc_v_alg_actual
         ORDER BY alg_ruimte_key;
   BEGIN
      IF TO_CHAR (SYSDATE, 'dd') = '01'          -- Nacht na 1e dag van maand!
      THEN
         v_freeze_datum := SYSDATE;
         v_count := 0;

         FOR rec IN c1
         LOOP
            INSERT INTO blcc_alg_freeze (freeze_datum,
                                         alg_ruimte_key,
                                         locatiecode,
                                         gebouwcode,
                                         verdiepingcode,
                                         ruimtenummer,
                                         ruimtefunctie,
                                         nvo,
                                         nvo_getekend,
                                         vvo,
                                         vvo_getekend,
                                         lhkotc_class,
                                         basic_tarief,
                                         premium_tarief,
                                         excellent_tarief,
                                         sch_maand,
                                         sch_tariefniveau,
                                         sch_contract,
                                         sch_mantel,
                                         huur_maand,
                                         huur_contract,
                                         gebouw_vervaldatum,
                                         gebouw_strategie,
                                         vvo_overeenkomst,
                                         in_expl_dat,
                                         uit_expl_dat,
                                         gebouwfunctie,
                                         gebouwclustercode,
                                         gebouwclusternaam,
                                         lhkotc_class_code,
                                         basic_tarief2,
                                         premium_tarief2,
                                         excellent_tarief2,
                                         excelplus_tarief2,
                                         sch_tariefniveau2,
                                         lhkotc_brink_code)
                 VALUES (v_freeze_datum,
                         rec.alg_ruimte_key,
                         rec.locatiecode,
                         rec.gebouwcode,
                         rec.verdiepingcode,
                         rec.ruimtenummer,
                         rec.ruimtefunctie,
                         rec.nvo,
                         rec.nvo_getekend,
                         rec.vvo,
                         rec.vvo_getekend,
                         rec.lhkotc_class,
                         rec.basic_tarief,
                         rec.premium_tarief,
                         rec.excellent_tarief,
                         rec.sch_maand,
                         rec.sch_tariefniveau,
                         rec.sch_contract,
                         rec.sch_mantel,
                         rec.huur_maand,
                         rec.huur_contract,
                         rec.gebouw_vervallen,
                         rec.gebouw_strategie,
                         rec.vvo_overeenkomst,
                         fac.safe_to_date (rec.in_expl_dat, 'dd-mm-yyyy'),
                         fac.safe_to_date (rec.uit_expl_dat, 'dd-mm-yyyy'),
                         rec.gebouwfunctie,
                         rec.gebouwclustercode,
                         rec.gebouwclusternaam,
                         rec.lhkotc_class_code,
                         rec.basic_tarief2,
                         rec.premium_tarief2,
                         rec.excellent_tarief2,
                         rec.excelplus_tarief2,
                         rec.sch_tariefniveau2,
                         rec.lhkotc_brink_code);
            v_count := v_count + 1;
         END LOOP;

         fac.writelog ('BLCC_ALG_FOTO', 'S', 'Ruimtegegevens/#bevroren: ' || TO_CHAR (v_count), '');
         COMMIT;
      END IF;
   END bewaren_alg_foto;

   -- BLCC#76479: Automatisch bijwerken legenda's.
   PROCEDURE bijwerken_legendas
   AS
      v_errormsg         VARCHAR2 (1000);
      oracle_err_num     NUMBER;
      oracle_err_mes     VARCHAR2 (200);
   BEGIN
      INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
         SELECT DISTINCT
                21,                                      -- Huurder per ruimte
                DECODE (
                   rh.aantal,
                   NULL,
                   DECODE (lhkotc.fac_usrdata_code,
                           'C', '[Collectieve ruimte]',
                           'A', '[Algemene ruimte]',
                           'N', '[N - Foutief leegstand]',
                           '[Leegstand]'),      -- Ook als [Niet verhuurbaar]!
                   1,
                   DECODE (lhkotc.fac_usrdata_code,
                           'C', '[C - Foutief verhuurd]',
                           'A', '[A - Foutief verhuurd]',
                           rh.prs_bedrijf_naam),
                   '[Dubbel verhuurd]'), -- Ook als C- of A-ruimte (zal nooit voorkomen)!
                TO_CHAR (
                   DBMS_UTILITY.get_hash_value (
                      DECODE (
                         rh.aantal,
                         NULL,
                         DECODE (lhkotc.fac_usrdata_code,
                                 'C', '[Collectieve ruimte]',
                                 'A', '[Algemene ruimte]',
                                 'N', '[N - Foutief leegstand]',
                                 '[Leegstand]'), -- Ook als [Niet verhuurbaar]!
                         1,
                         DECODE (lhkotc.fac_usrdata_code,
                                 'C', '[C - Foutief verhuurd]',
                                 'A', '[A - Foutief verhuurd]',
                                 rh.prs_bedrijf_naam),
                         '[Dubbel verhuurd]'), -- Ook als C- of A-ruimte (zal nooit voorkomen)!
                      0,
                      POWER (2, 24)),
                   '0XXXXX'),
                DECODE (
                   rh.aantal,
                   NULL,
                   DECODE (lhkotc.fac_usrdata_code,
                           'C', '[Collectieve ruimte]',
                           'A', '[Algemene ruimte]',
                           'N', '[N - Foutief leegstand]',
                           '[Leegstand]'),      -- Ook als [Niet verhuurbaar]!
                   1,
                   DECODE (lhkotc.fac_usrdata_code,
                           'C', '[C - Foutief verhuurd]',
                           'A', '[A - Foutief verhuurd]',
                           rh.prs_bedrijf_naam),
                   '[Dubbel verhuurd]') -- Ook als C- of A-ruimte (zal nooit voorkomen)!
           FROM (  SELECT c2rh.alg_ruimte_key,
                          MIN (b.prs_bedrijf_naam) prs_bedrijf_naam,
                          MIN (b.prs_bedrijf_key) prs_bedrijf_key,
                          COUNT (b.prs_bedrijf_key) aantal
                     FROM (SELECT cp.cnt_alg_plaats_key alg_ruimte_key, c.cnt_prs_bedrijf_key
                             FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp
                            WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                  AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                  AND c.cnt_contract_status = 0  -- Definitief
                                  AND c.cnt_contract_key = cp.cnt_contract_key
                                  AND cp.cnt_contract_plaats_verwijder IS NULL
                                  AND cp.cnt_alg_plaats_code = 'R'
                           UNION
                           SELECT r.alg_ruimte_key, c.cnt_prs_bedrijf_key
                             FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp, alg_v_aanwezigruimte r
                            WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                  AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                  AND c.cnt_contract_status = 0  -- Definitief
                                  AND c.cnt_contract_key = cp.cnt_contract_key
                                  AND cp.cnt_contract_plaats_verwijder IS NULL
                                  AND cp.cnt_alg_plaats_code = 'V'
                                  AND cp.cnt_alg_plaats_key = r.alg_verdieping_key
                           UNION
                           SELECT r.alg_ruimte_key, c.cnt_prs_bedrijf_key
                             FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp, alg_v_aanwezigverdieping v, alg_v_aanwezigruimte r
                            WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                  AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                  AND c.cnt_contract_status = 0  -- Definitief
                                  AND c.cnt_contract_key = cp.cnt_contract_key
                                  AND cp.cnt_contract_plaats_verwijder IS NULL
                                  AND cp.cnt_alg_plaats_code = 'G'
                                  AND cp.cnt_alg_plaats_key = v.alg_gebouw_key
                                  AND v.alg_verdieping_key = r.alg_verdieping_key) c2rh,
                          prs_bedrijf b
                    WHERE c2rh.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                          --AND b.prs_bedrijf_contract = 1 AND b.prs_bedrijf_huurder = 1
                          --AND prs_overeenkomst_nr IS NOT NULL
                 GROUP BY c2rh.alg_ruimte_key) rh,
                (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_code
                   FROM alg_v_aanwezigonrgoedkenmerk ok, fac_v_aanwezigusrdata ud
                  WHERE ok.alg_kenmerk_key = 1100      -- LHKOTC Classificatie
                        AND ok.alg_onrgoed_niveau = 'R'
                        AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key) lhkotc
          WHERE rh.alg_ruimte_key = lhkotc.alg_onrgoed_key(+)
                AND NOT EXISTS
                      (SELECT cad_legendawaarde_value
                         FROM cad_legendawaarde
                        WHERE cad_legenda_key = 21
                              AND cad_legendawaarde_value =
                                    DECODE (
                                       rh.aantal,
                                       NULL,
                                       DECODE (lhkotc.fac_usrdata_code,
                                               'C', '[Collectieve ruimte]',
                                               'A', '[Algemene ruimte]',
                                               'N', '[N - Foutief leegstand]',
                                               '[Leegstand]'),
                                       1,
                                       DECODE (lhkotc.fac_usrdata_code,
                                               'C', '[C - Foutief verhuurd]',
                                               'A', '[A - Foutief verhuurd]',
                                               rh.prs_bedrijf_naam),
                                       '[Dubbel verhuurd]'))
         UNION               -- Bedrijven die alleen dubbel ergens aan hangen!
         SELECT 21,                                      -- Huurder per ruimte
                prs_bedrijf_naam,
                TO_CHAR (DBMS_UTILITY.get_hash_value (prs_bedrijf_naam, 0, POWER (2, 24)), '0XXXXX'),
                prs_bedrijf_naam
           FROM (SELECT prs_bedrijf_naam, prs_bedrijf_key
                   FROM prs_v_aanwezigbedrijf
                  WHERE prs_bedrijf_contract = 1 --AND prs_bedrijf_huurder = 1
                        AND prs_overeenkomst_nr IS NOT NULL
                 MINUS
                 SELECT prs_bedrijf_naam, prs_bedrijf_key
                   FROM (  SELECT c2rh.alg_ruimte_key,
                                  MIN (b.prs_bedrijf_naam) prs_bedrijf_naam,
                                  MIN (b.prs_bedrijf_key) prs_bedrijf_key,
                                  COUNT (b.prs_bedrijf_key) aantal
                             FROM (SELECT cp.cnt_alg_plaats_key alg_ruimte_key, c.cnt_prs_bedrijf_key
                                     FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp
                                    WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                          AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                          AND c.cnt_contract_status = 0 -- Definitief
                                          AND c.cnt_contract_key = cp.cnt_contract_key
                                          AND cp.cnt_contract_plaats_verwijder IS NULL
                                          AND cp.cnt_alg_plaats_code = 'R'
                                   UNION
                                   SELECT r.alg_ruimte_key, c.cnt_prs_bedrijf_key
                                     FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp, alg_v_aanwezigruimte r
                                    WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                          AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                          AND c.cnt_contract_status = 0 -- Definitief
                                          AND c.cnt_contract_key = cp.cnt_contract_key
                                          AND cp.cnt_contract_plaats_verwijder IS NULL
                                          AND cp.cnt_alg_plaats_code = 'V'
                                          AND cp.cnt_alg_plaats_key = r.alg_verdieping_key
                                   UNION
                                   SELECT r.alg_ruimte_key, c.cnt_prs_bedrijf_key
                                     FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cp, alg_v_aanwezigverdieping v, alg_v_aanwezigruimte r
                                    WHERE c.ins_discipline_key IN (2122, 2123) -- LA/LA CRF
                                          AND SYSDATE BETWEEN TRUNC(c.cnt_contract_looptijd_van) AND TRUNC(c.cnt_contract_looptijd_tot + 1)
                                          AND c.cnt_contract_status = 0 -- Definitief
                                          AND c.cnt_contract_key = cp.cnt_contract_key
                                          AND cp.cnt_contract_plaats_verwijder IS NULL
                                          AND cp.cnt_alg_plaats_code = 'G'
                                          AND cp.cnt_alg_plaats_key = v.alg_gebouw_key
                                          AND v.alg_verdieping_key = r.alg_verdieping_key) c2rh,
                                  prs_bedrijf b
                            WHERE c2rh.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                                  --AND b.prs_bedrijf_contract = 1 AND b.prs_bedrijf_huurder = 1
                                  --AND prs_overeenkomst_nr IS NOT NULL
                         GROUP BY c2rh.alg_ruimte_key)
                  WHERE aantal = 1) b
          WHERE NOT EXISTS
                   (SELECT cad_legendawaarde_value
                      FROM cad_legendawaarde
                     WHERE cad_legenda_key = 21
                           AND cad_legendawaarde_value = b.prs_bedrijf_naam)
         UNION
         SELECT DISTINCT 42, thv.waarde, TO_CHAR (DBMS_UTILITY.get_hash_value (thv.waarde, 0, POWER (2, 24)), '0XXXXX'), thv.waarde
           FROM BLCC_V_THEMA_SHE_CONT thv
          WHERE thv.waarde IS NOT NULL
                AND NOT EXISTS
                      (SELECT 1
                         FROM cad_legendawaarde
                        WHERE cad_legenda_key = 42
                              AND cad_legendawaarde_value = thv.waarde)
         UNION
         SELECT DISTINCT 61, thv.waarde, TO_CHAR (DBMS_UTILITY.get_hash_value (thv.waarde, 0, POWER (2, 24)), '0XXXXX'), thv.waarde
           FROM BLCC_V_THEMA_OPERATIONS_CNT thv
          WHERE thv.waarde IS NOT NULL
                AND NOT EXISTS
                      (SELECT 1
                         FROM cad_legendawaarde
                        WHERE cad_legenda_key = 61
                              AND cad_legendawaarde_value = thv.waarde)
         UNION
         SELECT DISTINCT 81, thv.waarde, TO_CHAR (DBMS_UTILITY.get_hash_value (thv.waarde, 0, POWER (2, 24)), '0XXXXX'), thv.waarde
           FROM BLCC_V_THEMA_OPERATIONS_CNT thv
          WHERE thv.waarde IS NOT NULL
                AND NOT EXISTS
                      (SELECT 1
                         FROM cad_legendawaarde
                        WHERE cad_legenda_key = 81
                              AND cad_legendawaarde_value = thv.waarde);

      fac.writelog ('BLCC_LEGENDA', 'S', 'Thema''s/#bijgewerkt: 4', '');
      COMMIT;
   EXCEPTION
      WHEN OTHERS
      THEN
         oracle_err_num := SQLCODE;
         oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
         v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
         fac.writelog ('BLCC_LEGENDA', 'E', v_errormsg, '');
         COMMIT;
   END bijwerken_legendas;
END;
/

CREATE OR REPLACE PROCEDURE blcc_daily
AS
   v_errormsg          VARCHAR2 (1000);
   oracle_err_num      NUMBER;
   oracle_err_mes      VARCHAR2 (200);  
      
   
BEGIN 
   blcc.blcc_onderhoud_AED;

   blcc.blcc_noti_ctr_ehbo_tas_rem;

   blcc.autorisatie_bhv;

   blcc.blcc_noti_kostengereed;

   -- De headcount reminder sturen we alleen op 15 juli!
   IF (TO_CHAR (SYSDATE, 'dd') = 15 AND TO_CHAR (SYSDATE, 'mm') = '07')
   THEN
      blcc.blcc_noti_headcount_rmdr;
   END IF; 

   blcc.exp_cnt2dynamics;

   blcc.schonen_accounts;

   blcc.bewaren_alg_foto;

   blcc.bijwerken_legendas;
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 ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
END blcc_daily;
/

CREATE OR REPLACE PROCEDURE blcc_monthly
AS
    v_errormsg       VARCHAR2 (1000);
    v_jan            NUMBER;
    v_feb            NUMBER;
    v_mrt            NUMBER;
    v_apr            NUMBER;
    v_mei            NUMBER;
    v_juni           NUMBER;
    v_juli           NUMBER;
    v_aug            NUMBER;
    v_sept           NUMBER;
    v_nov            NUMBER;
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);

BEGIN
     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '01' THEN 1 ELSE 0 END
      INTO v_jan
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '02' THEN 1 ELSE 0 END
      INTO v_feb
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '03' THEN 1 ELSE 0 END
      INTO v_mrt
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '04' THEN 1 ELSE 0 END
      INTO v_apr
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '05' THEN 1 ELSE 0 END
      INTO v_mei
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '06' THEN 1 ELSE 0 END
      INTO v_juni
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '07' THEN 1 ELSE 0 END
      INTO v_juli
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '08' THEN 1 ELSE 0 END
      INTO v_aug
      FROM DUAL;

     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '09' THEN 1 ELSE 0 END
      INTO v_sept
      FROM DUAL;
      
     SELECT CASE WHEN TO_CHAR (SYSDATE, 'mm') = '11' THEN 1 ELSE 0 END
      INTO v_nov
      FROM DUAL;

    blcc.blcc_bestelling_ehbo_tas;

    blcc.blcc_noti_ctr_ehbo_tas;

    -- deze alleen uitvoeren op 1 januari
    IF v_jan > 0
    THEN
        blcc.blcc_verwijder_bhv_b_codes;
        blcc.blcc_facturatie_rode_kruis;
        blcc.blcc_facturatie_ploegleider;

    END IF;

    -- deze alleen uitvoeren op 1 maart
    -- BLCC#81964 Tijdelijk on hold notificaties en opdrachtberichten BHV
    /*IF v_mrt > 0
    THEN
        blcc.blcc_facturatie_bhv_basis_t;

    END IF;*/

    -- deze  uitvoeren op 1 april, mei, juni, juli en augustus
    -- BLCC#81964 Tijdelijk on hold notificaties en opdrachtberichten BHV
    /*IF (v_apr > 0 OR v_mei > 0 OR v_juni > 0 OR v_juli > 0)
    THEN
        blcc.blcc_noti_reminder_bhv_t;

    END IF;*/
    
    -- deze alleen uitvoeren op 1 juli
    IF v_juli > 0
    THEN
      blcc.blcc_noti_headcount;
    END IF;
     
    -- deze alleen uitvoeren op 1 september
    IF v_sept > 0
    THEN
        blcc.blcc_noti_acaleph;
    END IF;
/* Op verzoek van Suzan op 28-10 uitgecommentarieerd!    
    -- deze alleen uitvoeren op 1 november
    IF v_nov > 0
    THEN
        blcc.blcc_noti_po_nr_aanvr;
    END IF;
*/
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 blcc_monthly;
/

CREATE OR REPLACE VIEW blcc_v_rap_import_log
(
    fclt_f_applicatie,
    datum,
    fclt_f_status,
    omschrijving,
    hint
)
AS
    SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
           TO_CHAR (imp_log_datum, 'dd-mm-yyyy hh24:mi'),
           imp_log_status,
           imp_log_omschrijving,
           imp_log_hint
      FROM imp_log il1, fac_import fi1, fac_import_app fia1
     WHERE     il1.fac_import_key = fi1.fac_import_key(+)
           AND fi1.fac_import_app_key = fia1.fac_import_app_key(+)
           AND NOT EXISTS
                   (SELECT 1
                      FROM imp_log il2, fac_import fi2
                     WHERE     il2.fac_import_key = fi2.fac_import_key
                           AND fi2.fac_import_app_key =
                               fi1.fac_import_app_key
                           AND il2.fac_import_key > il1.fac_import_key);

-- BLCC#38235: Import vanuit Strukton
CREATE OR REPLACE PROCEDURE blcc_import_opdrstat_strukton (
    p_import_key   IN NUMBER)
AS
    c_delim                VARCHAR2 (1) := ';';
    v_newline              VARCHAR2 (4000);                      -- Input line
    v_errormsg             VARCHAR2 (1000);
    oracle_err_num         NUMBER;
    oracle_err_mes         VARCHAR2 (200);
    v_aanduiding           VARCHAR2 (1000) := '';
    header_is_valid        NUMBER := 0;
    v_count_tot            NUMBER (10) := 0;
    v_count_imp            NUMBER (10) := 0;
    v_ongeldig             NUMBER (1) := 0;
    -- De importvelden
    v_mld_opdr_key_tekst   VARCHAR2 (100);
    v_mld_opdr_key         NUMBER (10);
    v_mld_opdr_opmerking   VARCHAR2 (4000);
    v_extern_nummer        VARCHAR2 (100);
    v_status_code          VARCHAR2 (100);
    v_status               NUMBER (10);
    v_datumtijd_tekst      VARCHAR2 (100);
    v_datumtijd            DATE;
    v_status_tekst         VARCHAR2 (100);
    v_opmerking            VARCHAR2 (4000);

    -- Overige velden:
    CURSOR c1 IS
          SELECT *
            FROM fac_imp_file
           WHERE fac_import_key = p_import_key
        ORDER BY fac_imp_file_index;
BEGIN
    -- Eerst opruiming
    DELETE FROM blcc_imp_opdrstat_strukton;

    COMMIT;

    FOR rec1 IN c1
    LOOP
        BEGIN
            v_newline := rec1.fac_imp_file_line;
            v_errormsg := 'Fout opvragen importregel';
            v_aanduiding := '';
            v_ongeldig := 0;

            -- Lees alle veldwaarden
            fac.imp_getfield (v_newline, c_delim, v_mld_opdr_key_tekst);
            fac.imp_getfield (v_newline, c_delim, v_extern_nummer);
            fac.imp_getfield (v_newline, c_delim, v_status_code);    -- typeID
            fac.imp_getfield (v_newline, c_delim, v_datumtijd_tekst);
            fac.imp_getfield (v_newline, c_delim, v_status_tekst);
            fac.imp_getfield (v_newline, c_delim, v_opmerking);
            v_opmerking := SUBSTR (v_opmerking, 1, 1000);
            -- Verwijder de markering voor cr/lf die in stylesheet is toegevoegd.
            v_opmerking := REPLACE (v_opmerking, '@@', CHR (13));
            v_aanduiding :=
                   '['
                || v_mld_opdr_key_tekst
                || '|'
                || v_extern_nummer
                || '|'
                || v_status_code
                || '|'
                || v_datumtijd_tekst
                || '|'
                || v_status_tekst
                || '] ';

            -- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
            -- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
            -- Ik negeer alles totdat ik een geldige header ben gepasseerd.
            IF header_is_valid = 0
            THEN
                IF     UPPER (TRIM (v_mld_opdr_key_tekst)) = 'REFERENCEID'
                   AND UPPER (TRIM (v_extern_nummer)) = 'SERVICEREQUESTID'
                   AND UPPER (TRIM (v_status_code)) = 'TYPEID'
                   AND UPPER (TRIM (v_datumtijd_tekst)) = 'DATETIME'
                   AND UPPER (TRIM (v_opmerking)) = 'REMARKS'
                THEN
                    header_is_valid := 1;
                END IF;
            ELSE
                v_count_tot := v_count_tot + 1;
                -- Controleer alle veldwaarden
                v_errormsg := 'Fout bepalen opdracht';
                v_mld_opdr_key := TRIM (v_mld_opdr_key);

                BEGIN
                    SELECT o.mld_opdr_key, o.mld_opdr_opmerking
                      INTO v_mld_opdr_key, v_mld_opdr_opmerking
                      FROM mld_opdr            o,
                           mld_melding         m,
                           mld_stdmelding      sm,
                           ins_tab_discipline  td,
                           ins_srtdiscipline   sd
                     WHERE     o.mld_melding_key = m.mld_melding_key
                           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                           AND sm.mld_ins_discipline_key =
                               td.ins_discipline_key
                           AND td.ins_srtdiscipline_key =
                               sd.ins_srtdiscipline_key
                           AND    sd.ins_srtdiscipline_prefix
                               || m.mld_melding_key
                               || '/'
                               || o.mld_opdr_bedrijfopdr_volgnr =
                               v_mld_opdr_key_tekst;
                EXCEPTION
                    WHEN OTHERS
                    THEN
                        v_ongeldig := 1;
                        oracle_err_num := SQLCODE;
                        oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                        v_errormsg :=
                               v_errormsg
                            || ' ORACLE (error '
                            || oracle_err_num
                            || '/'
                            || oracle_err_mes
                            || ')';
                        fac.writelog (p_import_key,
                                      'W',
                                      v_aanduiding || v_errormsg,
                                      '');
                END;

                IF v_ongeldig = 0
                THEN
                    v_errormsg := 'Fout bepalen status';

                    CASE
                        WHEN v_status_code = '5'
                        THEN
                            v_status := 5;                       -- uitgegeven
                        WHEN v_status_code = '10'
                        THEN
                            v_status := 8;                     -- geaccepteerd
                        WHEN v_status_code = '20'            -- monteur gereed
                        THEN
                            v_status := 6;                         -- afgemeld
                        WHEN v_status_code = '25'         -- specialist gereed
                        THEN
                            v_status := 6;                         -- afgemeld
                        WHEN v_status_code = '30'          -- technisch gereed
                        THEN
                            v_status := 6;                         -- afgemeld
                        -- For future use
                        --WHEN v_status_code = '40'                     -- uitgeprijst
                        --THEN
                        --   v_status := 6;                                -- afgemeld
                        WHEN v_status_code = '70'
                        THEN
                            v_status := 1;                      -- geannuleerd
                        WHEN v_status_code = '80'
                        THEN
                            v_status := 1;                        -- afgewezen
                        ELSE
                            v_status := NULL;
                            v_ongeldig := 1;                  -- nog te bezien
                    END CASE;
                END IF;

                IF v_ongeldig = 0
                THEN
                    v_errormsg := 'Fout converteren datumtijd';

                    IF INSTR (v_datumtijd_tekst, '.') > 0
                    THEN
                        v_datumtijd :=
                            fac.safe_to_date (
                                REPLACE (
                                    SUBSTR (
                                        v_datumtijd_tekst,
                                        1,
                                        INSTR (v_datumtijd_tekst, '.') - 1),
                                    'T',
                                    ' '),
                                'yyyy-mm-dd hh24:mi:ss');
                    ELSE
                        v_datumtijd :=
                            fac.safe_to_date (v_datumtijd_tekst,
                                              'yyyy-mm-dd hh24:mi:ss');
                    END IF;
                END IF;

                IF v_ongeldig = 0
                THEN
                    v_errormsg := 'Fout aanvullen opmerking';

                    -- controleer of de opmerking niet leeg is en of dezelfde opmerking al bij een eerdere statusovergang
                    -- gemeld is.
                    IF     v_opmerking IS NOT NULL
                       AND INSTR (v_mld_opdr_opmerking, v_opmerking) = 0
                    THEN
                        v_opmerking :=
                               '['
                            || v_datumtijd_tekst
                            || '] - '
                            || v_status_tekst
                            || CHR (13)
                            || CHR (10)
                            || v_opmerking;
                    ELSE
                        v_opmerking :=
                               '['
                            || v_datumtijd_tekst
                            || '] - '
                            || v_status_tekst;
                    END IF;
                END IF;

                -- Insert geformatteerde import record
                IF v_ongeldig = 0
                THEN
                    BEGIN
                        v_errormsg := 'Fout wegschrijven statusbericht';

                        INSERT INTO blcc_imp_opdrstat_strukton (
                                        mld_opdr_key,
                                        extern_nummer,
                                        status,
                                        datumtijd,
                                        opmerking)
                             VALUES (v_mld_opdr_key,
                                     v_extern_nummer,
                                     v_status,
                                     v_datumtijd,
                                     v_opmerking);

                        v_count_imp := v_count_imp + 1;
                    EXCEPTION
                        WHEN OTHERS
                        THEN
                            oracle_err_num := SQLCODE;
                            oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                            v_errormsg :=
                                   v_errormsg
                                || ' ORACLE (error '
                                || oracle_err_num
                                || '/'
                                || oracle_err_mes
                                || ')';
                            fac.imp_writelog (p_import_key,
                                              'E',
                                              v_aanduiding || v_errormsg,
                                              '');
                    END;
                ELSE
                    IF v_status_code <> '40' AND v_status_code <> '45'
                    THEN
                        fac.imp_writelog (p_import_key,
                                          'E',
                                          v_aanduiding || v_errormsg,
                                          '');
                    END IF;
                END IF;
            END IF;
        END;
    END LOOP;

    IF header_is_valid = 0
    THEN
        fac.imp_writelog (p_import_key,
                          'E',
                          'Ongeldig importbestand',
                          'Geen header of header niet volgens specificatie!');
    ELSE
        fac.imp_writelog (
            p_import_key,
            'S',
               'Inleesproces/#ingelezen statusberichten: '
            || TO_CHAR (v_count_tot),
            '');
        fac.imp_writelog (
            p_import_key,
            'S',
               'Inleesproces/#ongeldige niet ingelezen statusberichten: '
            || TO_CHAR (v_count_tot - v_count_imp),
            '');
    END IF;

    COMMIT;
EXCEPTION
    WHEN OTHERS
    THEN
        oracle_err_num := SQLCODE;
        oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
        v_errormsg :=
               v_errormsg
            || ' ORACLE (error '
            || oracle_err_num
            || '/'
            || oracle_err_mes
            || ')';
        fac.imp_writelog (p_import_key,
                          'E',
                          v_aanduiding || v_errormsg,
                          'Inleesproces statusberichten afgebroken!');
END;
/

CREATE OR REPLACE PROCEDURE blcc_update_opdrstat_strukton (
    p_import_key   IN NUMBER)
AS
    -- Cursor loopt - in volgorde! - over alle ingelezen statusberichten.
    CURSOR c1 IS
          SELECT mld_opdr_key,
                 extern_nummer,
                 datumtijd,
                 status,
                 opmerking
            FROM blcc_imp_opdrstat_strukton
        ORDER BY 1, 3;

    c_user_key              NUMBER (10) := 5;                -- _STRUKTON-user
    c_refnr_srtkkey         NUMBER (10) := 261;          -- Refnr. Leverancier
    v_errormsg              VARCHAR2 (1000);
    oracle_err_num          NUMBER;
    oracle_err_mes          VARCHAR2 (200);
    v_aanduiding            VARCHAR2 (200);
    v_count_tot             NUMBER (10) := 0;
    v_count                 NUMBER (10) := 0;
    v_mld_key               NUMBER (10) := 0;
    v_opdr_key              NUMBER (10) := 0;
    v_opdr_status           NUMBER (10) := 0;
    v_mld_typeopdr_key      NUMBER (10);
    v_mld_kenmerk_key       NUMBER (10);
    v_mld_kenmerkopdr_key   NUMBER (10);
BEGIN
    -- Loop over alle ingelezen Strukton-statusberichten.
    FOR rec IN c1
    LOOP
        BEGIN
            v_aanduiding :=
                   '['
                || rec.mld_opdr_key
                || '|'
                || SUBSTR (rec.opmerking, 1, 100)
                || '] ';
            v_count_tot := v_count_tot + 1;

            -- Key van melding/opdracht bepalen en Refnr. bij opdracht opslaan.
            IF rec.mld_opdr_key IS NOT NULL
            THEN
                v_errormsg := 'Fout bepalen opdracht';

                SELECT mld_melding_key,
                       mld_opdr_key,
                       mld_statusopdr_key,
                       mld_typeopdr_key
                  INTO v_mld_key,
                       v_opdr_key,
                       v_opdr_status,
                       v_mld_typeopdr_key
                  FROM mld_opdr
                 WHERE mld_opdr_key = rec.mld_opdr_key;

                v_errormsg := 'Fout bepalen Refnr-kenmerk';

                SELECT k.mld_kenmerk_key
                  INTO v_mld_kenmerk_key
                  FROM mld_kenmerk k
                 WHERE     k.mld_srtkenmerk_key = c_refnr_srtkkey
                       AND k.mld_typeopdr_key = v_mld_typeopdr_key;

                v_errormsg := 'Fout bepalen Refnr-kenmerkopdracht';

                SELECT MAX (ko.mld_kenmerkopdr_key)
                  INTO v_mld_kenmerkopdr_key
                  FROM mld_kenmerkopdr ko
                 WHERE     ko.mld_opdr_key = v_opdr_key
                       AND v_mld_kenmerk_key = ko.mld_kenmerk_key;

                IF v_mld_kenmerkopdr_key IS NULL
                THEN
                    -- Kenmerk toevoegen
                    v_errormsg := 'Fout toevoegen Refnr-kenmerkopdracht';

                    INSERT INTO mld_kenmerkopdr (mld_kenmerk_key,
                                                 mld_opdr_key,
                                                 mld_kenmerkopdr_waarde)
                             VALUES (v_mld_kenmerk_key,
                                     v_opdr_key,
                                     rec.extern_nummer);
                ELSE
                    -- Kenmerk bijwerken
                    v_errormsg := 'Fout bijwerken Refnr-kenmerkopdracht';

                    UPDATE mld_kenmerkopdr
                       SET mld_kenmerkopdr_waarde = rec.extern_nummer
                     WHERE mld_kenmerkopdr_key = v_mld_kenmerkopdr_key;
                END IF;

                v_errormsg := 'Fout bijwerken Opmerking (opdracht)';

                v_count := LENGTH (rec.opmerking) + 5; -- Beetje speling qua lengte!

                UPDATE mld_opdr
                   SET mld_opdr_opmerking =
                           DECODE (
                               mld_opdr_opmerking,
                               NULL, rec.opmerking,
                                  rec.opmerking
                               || CHR (13)
                               || CHR (10)
                               || SUBSTR (mld_opdr_opmerking,
                                          1,
                                          (4000 - v_count)))
                 WHERE mld_opdr_key = v_opdr_key;

                v_errormsg := 'Fout bijwerken Status';

                IF v_opdr_status <> rec.status
                THEN
                    IF rec.status = 8 AND v_opdr_status = 5
                    THEN
                        -- Accepteer opdracht als de opdracht uitgegeven was
                        MLD.setopdrachtstatus (v_opdr_key, 8, c_user_key); -- Strukton
                    ELSIF rec.status = 6 AND v_opdr_status = 5
                    THEN
                        -- Meld de opdracht af als deze uitgegeven was
                        MLD.setopdrachtstatus (v_opdr_key, 8, c_user_key); -- Strukton, eerst accepteren
                        MLD.setopdrachtstatus (v_opdr_key, 6, c_user_key); -- Strukton
                    ELSIF rec.status = 6 AND v_opdr_status = 8
                    THEN
                        -- Meld de opdracht af als deze geaccepteerd was
                        MLD.setopdrachtstatus (v_opdr_key, 6, c_user_key); -- Strukton
                    ELSIF rec.status = 1 AND v_opdr_status IN (5, 8)
                    THEN
                        -- Wijs de opdracht af als deze niet/wel geaccepteerd was
                        MLD.setopdrachtstatus (v_opdr_key, 1, c_user_key); -- Strukton
                        MLD.updatemeldingstatusAV (v_mld_key,
                                                   0,
                                                   c_user_key,
                                                   0);
                    END IF;

                    IF rec.status = 6 AND v_opdr_status <> 6
                    THEN
                        v_errormsg := 'Fout bijwerken Opmerking (melding)';

                        UPDATE mld_melding m
                           SET mld_melding_opmerking =
                                   DECODE (
                                       mld_melding_opmerking,
                                       NULL, rec.opmerking,
                                          rec.opmerking
                                       || CHR (13)
                                       || CHR (10)
                                       || SUBSTR (mld_melding_opmerking,
                                                  1,
                                                  (4000 - v_count)))
                         WHERE     mld_melding_key = v_mld_key
                               AND mld_melding_status IN (4, 7)
                               AND NOT EXISTS
                                       ( -- Afhandeling in melding niet aanpassen voor projecten
                                        SELECT sm.mld_stdmelding_key
                                          FROM mld_stdmelding      sm,
                                               ins_tab_discipline  td,
                                               ins_srtdiscipline   sd
                                         WHERE     sm.mld_stdmelding_key =
                                                   m.mld_stdmelding_key
                                               AND sm.mld_ins_discipline_key =
                                                   td.ins_discipline_key
                                               AND td.ins_srtdiscipline_key =
                                                   sd.ins_srtdiscipline_key
                                               AND sd.ins_srtdiscipline_prefix =
                                                   'QQQ');

                        v_errormsg := 'Fout sluiten melding';

                        SELECT COUNT (*)
                          INTO v_count
                          FROM (SELECT m.mld_melding_key,
                                       (SELECT COUNT (*)
                                          FROM mld_opdr o
                                         WHERE mld_melding_key =
                                               m.mld_melding_key)
                                           aanw_opdr,
                                       (SELECT COUNT (*)
                                          FROM mld_opdr o
                                         WHERE     mld_melding_key =
                                                   m.mld_melding_key
                                               AND o.mld_statusopdr_key NOT IN
                                                       (1,
                                                        2,
                                                        6,
                                                        7,
                                                        9))
                                           open_opdr
                                  FROM mld_melding m
                                 WHERE     m.mld_melding_key = v_mld_key
                                       AND m.mld_melding_status IN (4, 7))
                               niet_opgelost
                         WHERE aanw_opdr > 0 AND open_opdr = 0;

                        -- Sinds AADO#30922 wordt de melding niet meer automatisch afgemeld.
                        MLD.updatemeldingstatusAV (v_mld_key,
                                                   0,
                                                   c_user_key,
                                                   0);
                    END IF;
                END IF;
            END IF;

            COMMIT;
        EXCEPTION
            WHEN OTHERS
            THEN
                oracle_err_num := SQLCODE;
                oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                v_errormsg :=
                       v_errormsg
                    || ' ORACLE (error '
                    || oracle_err_num
                    || '/'
                    || oracle_err_mes
                    || ')';
                fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  'Statusbericht-loop');
        END;
    END LOOP;

    COMMIT;
END;
/

-- BLCC#55646: De Afgemelde Kostenraming-opdrachten <= Mandaat van Leverancier
--             automatisch Afronden=Goedkeuren  n aanmaken Workorder.
CREATE OR REPLACE PROCEDURE blcc_select_raming2wo (p_applname   IN VARCHAR2,
                                                   p_applrun    IN VARCHAR2)
AS
    CURSOR c1 IS
          SELECT    '['
                 || TO_CHAR (o.mld_melding_key)
                 || '|'
                 || TO_CHAR (o.mld_opdr_key)
                 || '] '    aanduiding,
                 o.mld_melding_key,
                 o.mld_opdr_key,
                 o.mld_uitvoerende_keys,
                 o.prs_contactpersoon_key,
                 o.mld_opdr_omschrijving,
                 o.prs_kostenplaats_key,
                 o.mld_opdr_kosten
            FROM mld_opdr o, prs_bedrijf b, prs_v_aanwezigkenmerklink kl
           WHERE     o.mld_typeopdr_key = 1261                 -- Kostenraming
                 AND o.mld_statusopdr_key = 6                      -- Afgemeld
                 AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
                 AND b.prs_bedrijf_key = kl.prs_link_key
                 AND kl.prs_kenmerklink_niveau = 'B'
                 AND kl.prs_kenmerk_key = 1140                      -- Mandaat
                 AND o.mld_opdr_kosten <=
                     fac.safe_to_number (kl.prs_kenmerklink_waarde)
                 AND NOT EXISTS           -- Geen andere lopende Kostenraming!
                         (SELECT 1
                            FROM mld_opdr
                           WHERE     mld_melding_key = o.mld_melding_key
                                 AND mld_opdr_key != o.mld_opdr_key
                                 AND mld_typeopdr_key = 1261   -- Kostenraming
                                 AND mld_statusopdr_key IN (3,
                                                            4,
                                                            5,
                                                            6,
                                                            8,
                                                            10))
        ORDER BY 1;

    v_errormsg           VARCHAR2 (1000);
    oracle_err_num       NUMBER;
    oracle_err_mes       VARCHAR2 (200);
    v_opdr_dagen         NUMBER (3);
    v_kostenplaats_nr    VARCHAR2 (30);
    v_budgethouder_key   NUMBER (10);
    v_opdr_key           NUMBER (10);
    v_srtnoti_oms        VARCHAR2 (4000);
    v_count_tot          NUMBER (10) := 0;
    v_count_upd          NUMBER (10) := 0;
BEGIN
    -- Eerst opruiming
    DELETE FROM imp_log
          WHERE     imp_log_applicatie = p_applname
                AND imp_log_datum < TRUNC (SYSDATE - 7, 'iw');

    FOR rec IN c1
    LOOP
        BEGIN
            v_count_tot := v_count_tot + 1;

            v_errormsg := 'Fout afronden Kostenraming';
            MLD.setopdrachtstatus (rec.mld_opdr_key, 9, 4);        -- Afronden
            MLD.updatemeldingstatus (rec.mld_melding_key, 0, 4);

            v_errormsg := 'Fout bepalen uitvoertijd';

            SELECT sm.mld_stdmelding_t_uitvoertijd.tijdsduur
              INTO v_opdr_dagen
              FROM mld_melding         m,
                   mld_stdmelding      sm,
                   ins_tab_discipline  td,
                   mld_disc_params     dp
             WHERE     m.mld_melding_key = rec.mld_melding_key
                   AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                   AND sm.mld_ins_discipline_key = td.ins_discipline_key
                   AND td.ins_discipline_key = dp.mld_ins_discipline_key;

            v_errormsg := 'Fout bepalen kostenplaats';

            SELECT prs_kostenplaats_nr
              INTO v_kostenplaats_nr
              FROM prs_kostenplaats
             WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key;

            v_errormsg := 'Fout bepalen budgethouder';

            v_budgethouder_key :=
                prs.getkpverantwoordelijke (rec.prs_kostenplaats_key, 2, -1);

            IF (v_budgethouder_key = -1)
            THEN
                fac.writelog (
                    p_applname,
                    'E',
                    rec.aanduiding || 'Budgethouder ongedefinieerd.',
                    '');
                COMMIT;
            END IF;

            --SELECT COUNT(*) cnt FROM prs_bedrijfdienstlocatie bdl WHERE bdl.prs_bdl_t_uitvoertijd.tijdsduur IS NOT NULL
            --SELECT b.prs_bedrijf_t_uitvoertijd.tijdsduur tijdsduur , b.prs_bedrijf_t_uitvoertijd.eenheid eenheid FROM prs_bedrijf b WHERE b.prs_bedrijf_key=192
            --SELECT m.mld_melding_t_uitvoertijd.tijdsduur tijdsduur , m.mld_melding_t_uitvoertijd.eenheid eenheid FROM mld_melding m WHERE m.mld_melding_key=21055

            v_errormsg := 'Fout toevoegen Workorder';

            INSERT INTO mld_opdr (mld_opdr_datumbegin,
                                  mld_opdr_einddatum,
                                  mld_uitvoerende_keys,
                                  prs_contactpersoon_key,
                                  mld_typeopdr_key,
                                  prs_perslid_key,
                                  mld_opdr_omschrijving,
                                  mld_opdr_materiaal,
                                  mld_opdr_uren,
                                  mld_opdr_uurloon,
                                  mld_opdr_kosten,
                                  prs_kostenplaats_key,
                                  mld_melding_key,
                                  mld_opdr_module,
                                  mld_opdr_bedrijfopdr_volgnr,
                                  mld_opdr_teverzenden,
                                  mld_opdr_contactpersoon)
                 VALUES (
                     SYSDATE,
                     FAC.datumtijdplusuitvoertijd (
                         SYSDATE,
                         COALESCE (v_opdr_dagen, 0),
                         'DAGEN'),
                     rec.mld_uitvoerende_keys,
                     rec.prs_contactpersoon_key,
                     101,                                         -- Workorder
                     4,                                           -- Facilitor
                     rec.mld_opdr_omschrijving,
                     rec.mld_opdr_kosten,
                     0,
                     0,
                     rec.mld_opdr_kosten,
                     rec.prs_kostenplaats_key,
                     rec.mld_melding_key,
                     'MLD',
                     MLD.bepaalopdrmeldingvolgnr (rec.mld_melding_key),
                     1,
                     NULL)
              RETURNING mld_opdr_key
                   INTO v_opdr_key;

            v_errormsg := 'Fout kopieren kenmerkvelden';

            -- TODO

            -- Automatisch aangemaakte Workorders (uit Kostenramingen) nooit Ter
            -- goedkeuring (want onder Mandaat van Leverancier), maar direct Ter
            -- fiattering of Toegekend (afhankelijk van 50900-kostenplaats).
            -- TODO:Of toch inbouwen goedkeuring indien noodzakelijk?
            IF v_kostenplaats_nr LIKE '50900%'
            THEN
                -- Ongeacht kosten ALTIJD 'Ter fiattering' (of budgethouder wel of
                -- niet bestaat doet er niet toe)!
                v_errormsg := 'Fout ter fiat Workorder';
                MLD.setopdrachtstatus (v_opdr_key, 3, 4);    -- Ter fiattering

                -- Notificeren als budgethouder bekend!
                IF (v_budgethouder_key != -1)
                THEN
                    v_errormsg := 'Fout bepalen MLDAP1-omschrijving';

                    SELECT lcl.x ('fac_srtnotificatie_oms',
                                  fac_srtnotificatie_key,
                                  fac_srtnotificatie_oms)
                      INTO v_srtnoti_oms
                      FROM fac_srtnotificatie
                     WHERE fac_srtnotificatie_code = 'MLDAP1';

                    fac.putnotificationsrtprio (
                        NULL,
                        v_budgethouder_key,
                        'MLDAP1',
                        v_opdr_key,
                        mld.opdrsprintf (v_srtnoti_oms, v_opdr_key),
                        NULL,
                        NULL,
                        NULL,
                        NULL,
                        2,
                        NULL);
                END IF;
            ELSE
                v_errormsg := 'Fout toekennen Workorder';
                MLD.setopdrachtstatus (v_opdr_key, 5, 4);         -- Toegekend
            END IF;

            v_errormsg := 'Fout bijwerken meldingstatus';
            MLD.updatemeldingstatus (rec.mld_melding_key, 0, 4);  -- Facilitor

            v_count_upd := v_count_upd + 1;
            COMMIT;
        EXCEPTION
            WHEN OTHERS
            THEN
                oracle_err_num := SQLCODE;
                oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                v_errormsg :=
                       v_errormsg
                    || ' ORACLE (error '
                    || oracle_err_num
                    || '/'
                    || oracle_err_mes
                    || ')';
                fac.writelog (p_applname,
                              'E',
                              rec.aanduiding || v_errormsg,
                              'Kostenraming2Workorder');
                COMMIT;
        END;
    END LOOP;

    fac.writelog (
        p_applname,
        'S',
           'Proces: '
        || TO_CHAR (v_count_upd)
        || ' van '
        || TO_CHAR (v_count_tot)
        || ' Workorders uitgegeven',
        '');
EXCEPTION
    WHEN OTHERS
    THEN
        oracle_err_num := SQLCODE;
        oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
        v_errormsg :=
               v_errormsg
            || ' ORACLE (error '
            || oracle_err_num
            || '/'
            || oracle_err_mes
            || ')';
        fac.writelog (p_applname,
                      'E',
                      v_errormsg,
                      'RAMING2WO-export afgebroken!');
END;
/

-- BLCC#39810 View voor cateringrapportage
CREATE OR REPLACE VIEW blcc_v_rap_cateringoverzicht
(
   fclt_f_debiteur,
   fclt_f_organisatie,
   locatie,
   ruimte,
   datumtijd,
   datum,
   tijd_van,
   tijd_tot,
   resnr,
   omschrijving,
   artikelkey,
   artikelnr,
   artikelomschrijving,
   aantal,
   stuksprijs,
   kosten,
   fclt_f_besteller,
   costcenter,
   activiteit
)
AS
   SELECT COALESCE (x.prs_afdeling_naam, '???') deb_nr,
          x.prs_afdeling_omschrijving deb_oms,
          DECODE (
             x.alg_ruimte_key,
             NULL,
             'Onbekend',
                rg.alg_gebouw_upper
             || '-'
             || rg.alg_verdieping_code
             || '-'
             || rg.alg_ruimte_nr)
             afleveradres,
          COALESCE (rr.res_ruimte_nr, rg.alg_ruimte_omschrijving) ruimte,
          x.res_rsv_artikel_levering,
          TO_CHAR (x.res_rsv_artikel_levering, 'DD-MM-YYYY') datum,
          TO_CHAR (x.res_rsv_ruimte_van, 'hh24:mi') tijdvan,
          TO_CHAR (x.res_rsv_ruimte_tot, 'hh24:mi') tijdtot,
          x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
          x.res_rsv_ruimte_omschrijving omschrijving,
          x.res_artikel_key,
          x.res_artikel_nr,
          x.res_artikel_omschrijving,
          x.res_rsv_artikel_aantal,
          ROUND ((x.res_rsv_artikel_prijs / x.res_rsv_artikel_aantal), 5)
             stuksprijs,
          x.res_rsv_artikel_aantal
          * ROUND ((x.res_rsv_artikel_prijs / x.res_rsv_artikel_aantal), 5)
             regeltotaal,
          x.prs_perslid_naam_full,
          (SELECT MAX (kw.res_kenmerkreservering_waarde)
             FROM res_kenmerkwaarde kw, res_kenmerk rk
            WHERE     kw.res_rsv_ruimte_key = x.res_rsv_ruimte_key
                  AND kw.res_kenmerkwaarde_verwijder IS NULL
                  AND kw.res_kenmerk_key = rk.res_kenmerk_key
                  AND rk.res_srtkenmerk_key = 1)
             costcenter,
          x.res_activiteit_omschrijving
     FROM (SELECT rra.res_rsv_artikel_verwerkt,
                  COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key)
                     res_ruimte_key,
                  COALESCE (rar1.alg_ruimte_key,
                            rar2.alg_ruimte_key,
                            rrr.alg_ruimte_key)
                     alg_ruimte_key,
                  rra.res_rsv_artikel_levering,
                  rrr.res_rsv_ruimte_key,
                  rrr.res_reservering_key,
                  rrr.res_rsv_ruimte_volgnr,
                  rrr.res_rsv_ruimte_van,
                  rrr.res_rsv_ruimte_tot,
                  rrr.res_rsv_ruimte_omschrijving,
                  act.res_activiteit_omschrijving,
                  ra.res_artikel_nr,
                  ra.res_artikel_key,
                  ra.res_artikel_omschrijving,
                  rra.res_rsv_artikel_prijs,
                  rra.res_rsv_artikel_aantal,
                  a.prs_afdeling_key,
                  a.prs_afdeling_naam,
                  a.prs_afdeling_omschrijving,
                  pf.prs_perslid_naam_full,
                  k.prs_kostenplaats_nr,
                  k.prs_kostenplaats_omschrijving
             FROM res_rsv_ruimte rrr,
                  res_activiteit act,
                  res_rsv_artikel rra,
                  res_artikel ra,
                  res_ruimte_opstelling rro,
                  (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
                       FROM res_alg_ruimte
                      WHERE res_alg_ruimte_verwijder IS NULL
                   GROUP BY res_ruimte_key) rar1,
                  (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
                       FROM res_alg_ruimte
                      WHERE res_alg_ruimte_verwijder IS NOT NULL
                   GROUP BY res_ruimte_key) rar2,
                  alg_v_allonroerendgoed aog,
                  prs_perslid p,
                  prs_afdeling a,
                  prs_v_perslid_fullnames_all pf,
                  prs_kostenplaats k
            WHERE rrr.res_activiteit_key = act.res_activiteit_key
                  --AND act.res_activiteit_verwijder IS NULL  -- Wat ooit is Verwerkt, altijd opnemen!
                  AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
                  --AND rra.res_rsv_artikel_verwijder IS NULL -- Wat ooit is Verwerkt, altijd opnemen!
                  AND rra.res_status_bo_key = 6                    -- Verwerkt
                  AND rra.res_artikel_key = ra.res_artikel_key
                  AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
                  AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
                  AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
                  AND COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) = aog.alg_ruimte_key
                  AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
                  AND p.prs_afdeling_key = a.prs_afdeling_key
                  AND p.prs_perslid_key = pf.prs_perslid_key
                  AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)) x
          LEFT JOIN res_ruimte rr
             ON x.res_ruimte_key = rr.res_ruimte_key
          LEFT JOIN alg_v_ruimte_gegevens_all rg
             ON x.alg_ruimte_key = rg.alg_ruimte_key
   UNION ALL
   SELECT COALESCE (x.prs_afdeling_naam, '???') deb_nr,
          x.prs_afdeling_omschrijving deb_oms,
          DECODE (
             x.alg_ruimte_key,
             NULL,
             'Onbekend',
                rg.alg_gebouw_upper
             || '-'
             || rg.alg_verdieping_code
             || '-'
             || rg.alg_ruimte_nr)
             afleveradres,
          COALESCE (rr.res_ruimte_nr, rg.alg_ruimte_omschrijving) ruimte,
          x.res_rsv_artikel_levering,
          TO_CHAR (x.res_rsv_artikel_levering, 'DD-MM-YYYY') datum,
          TO_CHAR (x.res_rsv_ruimte_van, 'hh24:mi') tijdvan,
          TO_CHAR (x.res_rsv_ruimte_tot, 'hh24:mi') tijdtot,
          x.res_reservering_key || '/' || x.res_rsv_ruimte_volgnr resnr,
          x.res_rsv_ruimte_omschrijving omschrijving,
          x.res_artikel_key,
          x.res_artikel_nr,
          x.res_artikel_omschrijving,
          x.res_rsv_artikel_aantal,
          ROUND ((x.res_rsv_artikel_prijs / x.res_rsv_artikel_aantal), 5)
             stuksprijs,
          x.res_rsv_artikel_aantal
          * ROUND ((x.res_rsv_artikel_prijs / x.res_rsv_artikel_aantal), 5)
             regeltotaal,
          x.prs_perslid_naam_full,
          (SELECT MAX (kw.res_kenmerkreservering_waarde)
             FROM res_kenmerkwaarde kw, res_kenmerk rk
            WHERE     kw.res_rsv_ruimte_key = x.res_rsv_ruimte_key
                  AND kw.res_kenmerkwaarde_verwijder IS NULL
                  AND kw.res_kenmerk_key = rk.res_kenmerk_key
                  AND rk.res_srtkenmerk_key = 1)
             costcenter,
          x.res_activiteit_omschrijving
     FROM (SELECT rra.res_rsv_artikel_verwerkt,
                  COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key)
                     res_ruimte_key,
                  COALESCE (rar1.alg_ruimte_key,
                            rar2.alg_ruimte_key,
                            rrr.alg_ruimte_key)
                     alg_ruimte_key,
                  rra.res_rsv_artikel_levering,
                  rrr.res_rsv_ruimte_key,
                  rrr.res_reservering_key,
                  rrr.res_rsv_ruimte_volgnr,
                  rrr.res_rsv_ruimte_van,
                  rrr.res_rsv_ruimte_tot,
                  rrr.res_rsv_ruimte_omschrijving,
                  act.res_activiteit_omschrijving,
                  ra.res_artikel_nr,
                  ra.res_artikel_key,
                  ra.res_artikel_omschrijving,
                  rra.res_rsv_artikel_prijs,
                  rra.res_rsv_artikel_aantal,
                  a.prs_afdeling_key,
                  a.prs_afdeling_naam,
                  a.prs_afdeling_omschrijving,
                  pf.prs_perslid_naam_full,
                  k.prs_kostenplaats_nr,
                  k.prs_kostenplaats_omschrijving
             FROM res_rsv_ruimte rrr,
                  res_activiteit act,
                  res_rsv_artikel rra,
                  res_artikel ra,
                  res_ruimte_opstelling rro,
                  (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
                       FROM res_alg_ruimte
                      WHERE res_alg_ruimte_verwijder IS NULL
                   GROUP BY res_ruimte_key) rar1,
                  (  SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
                       FROM res_alg_ruimte
                      WHERE res_alg_ruimte_verwijder IS NOT NULL
                   GROUP BY res_ruimte_key) rar2,
                  alg_v_allonroerendgoed aog,
                  prs_perslid p,
                  prs_afdeling a,
                  prs_v_perslid_fullnames_all pf,
                  prs_kostenplaats k
            WHERE rrr.res_activiteit_key = act.res_activiteit_key
                  AND act.res_activiteit_verwijder IS NULL
                  AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
                  AND rra.res_rsv_artikel_verwijder IS NULL
                  AND rra.res_status_bo_key != 6                   -- Verwerkt
                  AND rra.res_artikel_key = ra.res_artikel_key
                  AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
                  AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
                  AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
                  AND COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) = aog.alg_ruimte_key
                  AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
                  AND p.prs_afdeling_key = a.prs_afdeling_key
                  AND p.prs_perslid_key = pf.prs_perslid_key
                  AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)) x
          LEFT JOIN res_ruimte rr
             ON x.res_ruimte_key = rr.res_ruimte_key
          LEFT JOIN alg_v_ruimte_gegevens_all rg
             ON x.alg_ruimte_key = rg.alg_ruimte_key;

-- BLCC#41477: Onderstaande twee views zijn opnieuw opgebouwd zodat er geen UDR-views gebruikt worden als bron.
CREATE OR REPLACE VIEW blcc_v_rap_meldingen
(
   melding_key,
   prioriteittxt,
   melding_nummer,
   vakgroep,
   meldingsoort,
   melding_datumtijd,
   melding_datum,
   melding_tijd,
   melding_locatiecode,
   melding_gebouwcode,
   melding_verdieping,
   melding_ruimtenr,
   onderwerp,
   omschrijving,
   melder,
   melding_status_key,
   melding_status,
   melding_opmerking,
   behandelaar,
   melding_einddatumtijd,
   melding_einddatum,
   afspraak_sla_uren,
   rating,
   rating_opm,
   melder_key,
   kostenplaats_code,
   kostenplaats_groep,
   kostensoort_code,
   kostensoort_groep,
   vakgroeptype,
   melding_nummer_parent,
   last_change,
   gemeld_via,
   externnr,
   markering,
   refnr_aanvrager,
   raming_lma,                                                   -- BLCC#61062
   alg_onrgoed_key,                                              -- BLCC#62113
   alg_onrgoed_type,                                             -- BLCC#62113
   debiteurnr,          -- BLCC#62113: Debiteurnummer bij afdeling van melder!
   behandelteam,                                 -- BLCC#64393: Allocatiemodel
   actieve_behandelaar,                          -- BLCC#64393: Allocatiemodel
   ramingmens,
   ramingmachine,
   researchabo,
   ext_kosten
)
AS
   SELECT m.mld_melding_key,
          DECODE (m.mld_melding_spoed,
                  3, lcl.l ('lcl_mld_urg_normaal'),
                  1, lcl.l ('lcl_mld_urg_kritiek'),
                  2, lcl.l ('lcl_mld_urg_hoog'),
                  4, lcl.l ('lcl_mld_urg_laag'))
             prio,
          sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) meldingnr,
          md.ins_discipline_omschrijving vakgroep,
          sm.mld_stdmelding_omschrijving soortmelding,
          m.mld_melding_datum,
          TO_CHAR (m.mld_melding_datum, 'DD-MM-YYYY') datum,
          TO_CHAR (m.mld_melding_datum, 'hh24:mi') tijd,
          l.alg_locatie_code locatie,
          aog.alg_gebouw_code gebouw,
          aog.alg_verdieping_code verdieping,
          aog.alg_ruimte_nr ruimte,
          TRIM (m.mld_melding_onderwerp) onderwerp,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (TRIM (m.mld_melding_omschrijving), 1, 20), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') omschrijving,
          (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key = m.prs_perslid_key)
             melder,
          TO_CHAR (m.mld_melding_status) status_key,
          (SELECT mld_statuses_omschrijving FROM mld_statuses WHERE mld_statuses_key = m.mld_melding_status)
             status,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (TRIM (m.mld_melding_opmerking), 1, 20), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') opmerking,
          (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key = m.mld_melding_behandelaar_key)
             behandelaar,
          m.mld_melding_einddatum,
          TO_CHAR (m.mld_melding_einddatum, 'DD-MM-YYYY') einddatum,
          DECODE (mld.getactualuitvoer (m.mld_melding_key).eenheid,
                  'U', ((m.mld_melding_einddatum - COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5), mld.getmeldingstatusdate (m.mld_melding_key, 1), SYSDATE)) * 24) +
                       COALESCE (DECODE (m.mld_melding_t_respijt.eenheid, 'D', m.mld_melding_t_respijt.tijdsduur, NULL), 0),
                  NULL)
             afspraak_sla_uren,
          CASE
             WHEN m.mld_melding_satisfaction =  2 THEN 1
             WHEN m.mld_melding_satisfaction =  4 THEN 2
             WHEN m.mld_melding_satisfaction =  6 THEN 3
             WHEN m.mld_melding_satisfaction =  8 THEN 4
             WHEN m.mld_melding_satisfaction = 10 THEN 5
          END
             rating,
          m.mld_melding_satisfaction_op,
          m.prs_perslid_key,
          kp.prs_kostenplaats_upper,
          DECODE (kpg.prs_kostenplaatsgrp_nr, NULL, '', kpg.prs_kostenplaatsgrp_nr || '-') || kpg.prs_kostenplaatsgrp_oms kpg_oms,
          ks.prs_kostensoort_upper,
          ksg.prs_kostensoortgrp_oms,
          sd.ins_srtdiscipline_omschrijving,
          sd2.ins_srtdiscipline_prefix || TO_CHAR (m2.mld_melding_key) meldingnummer_parent,
          lc.last_change,
          mb.mld_meldbron_omschrijving gemeld_via,
          m.mld_melding_externnr externnr,
          CASE
             WHEN m.mld_melding_flag > 0
             THEN lcl.l ('lcl_mld_flag' || m.mld_melding_flag)
          END
             markering,
          ra.refnr_aanvr,
          rl.raming_lma,
          aog.alg_onroerendgoed_keys,
          aog.alg_type,
          h.prs_overeenkomst_nr debiteurnr,
          bt.ins_discipline_omschrijving behandelteam,
          btb.prs_perslid_naam_full actieve_behandelaar,
          urmens.ramingmens,
          urmach.ramingmachine,
          rabo.researchabo,
          extk.ext_kosten
     FROM mld_melding m,
          mld_stdmelding sm,
          mld_discipline md,
          ins_srtdiscipline sd,
          alg_locatie l,
          alg_v_allonrgoed_gegevens aog,
          prs_perslid p,
          prs_afdeling a,
          (SELECT prs_overeenkomst_nr, COUNT (*) aantal FROM prs_v_aanwezigbedrijf GROUP BY prs_overeenkomst_nr) h,
          prs_kostenplaats kp,
          prs_kostenplaatsgrp kpg,
          prs_kostensoort ks,
          prs_kostensoortgrp ksg,
          mld_melding m2,
          mld_stdmelding sm2,
          mld_discipline md2,
          ins_srtdiscipline sd2,
          (  SELECT t.fac_tracking_refkey, MAX (t.fac_tracking_datum) last_change
               FROM fac_tracking t
              WHERE EXISTS (SELECT 1                            -- Last change
                              FROM fac_srtnotificatie
                             WHERE fac_srtnotificatie_key = t.fac_srtnotificatie_key
                                   AND fac_srtnotificatie_xmlnode = 'melding')
           GROUP BY t.fac_tracking_refkey) lc,
          mld_meldbron mb,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) refnr_aanvr
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1                   -- 281=Refnr. aanvrager
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 281)
           GROUP BY km.mld_melding_key) ra,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) raming_lma
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1                         -- 601=Raming LMA
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 601)
           GROUP BY km.mld_melding_key) rl,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) researchabo
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1             -- 1763=Research abonnementen
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 1763)
           GROUP BY km.mld_melding_key) rabo,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) ramingmens
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1                   -- 1841=Raming mensuren
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 1841)
           GROUP BY km.mld_melding_key) urmens,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) ramingmachine
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1                -- 1842=Raming machineuren
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 1842)
           GROUP BY km.mld_melding_key) urmach,
          (  SELECT km.mld_melding_key, MIN (km.mld_kenmerkmelding_waarde) ext_kosten
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE EXISTS (SELECT 1                    -- 1981=Externe kosten
                              FROM mld_kenmerk
                             WHERE mld_kenmerk_key = km.mld_kenmerk_key
                                   AND mld_srtkenmerk_key = 1981)
           GROUP BY km.mld_melding_key) extk,
          mld_discipline bt,
          prs_v_perslid_fullnames_all btb
    WHERE m.fac_activiteit_key IS NULL
          AND m.mld_stdmelding_key = sm.mld_stdmelding_key
          AND sm.mld_ins_discipline_key = md.ins_discipline_key
          AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
          AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
          AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys(+)
          AND m.prs_perslid_key_voor = p.prs_perslid_key
          AND p.prs_afdeling_key = a.prs_afdeling_key
          AND a.prs_afdeling_naam = h.prs_overeenkomst_nr(+) -- Debiteurnummer/Nieuw
          AND m.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
          AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
          AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)
          AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
          AND m.mld_melding_parentkey = m2.mld_melding_key(+)
          AND m2.mld_stdmelding_key = sm2.mld_stdmelding_key(+)
          AND sm2.mld_ins_discipline_key = md2.ins_discipline_key(+)
          AND md2.ins_srtdiscipline_key = sd2.ins_srtdiscipline_key(+)
          AND m.mld_melding_key = lc.fac_tracking_refkey(+)
          AND m.mld_meldbron_key = mb.mld_meldbron_key(+)
          AND m.mld_melding_key = ra.mld_melding_key(+)
          AND m.mld_melding_key = rl.mld_melding_key(+)
          AND m.mld_melding_key = rabo.mld_melding_key(+)
          AND m.mld_melding_key = urmens.mld_melding_key(+)
          AND m.mld_melding_key = urmach.mld_melding_key(+)
          AND m.mld_melding_key = extk.mld_melding_key(+)
          AND m.mld_ins_discipline_key = bt.ins_discipline_key(+)
          AND m.mld_melding_behandelaar2_key = btb.prs_perslid_key(+);

CREATE OR REPLACE VIEW blcc_v_rap_opdrachten
(
   opdracht_key,
   prioriteittxt,
   opdracht_nummer,
   melding_nummer,
   opdracht_type,
   omschrijving,
   opdracht_datumtijd,
   opdracht_datum,
   opdracht_tijd,
   opdracht_status_key,
   opdracht_status,
   opdracht_einddatumtijd,
   opdracht_einddatum,
   opdracht_eindtijd,
   opdracht_uitvoerende,
   opdracht_uitvoerende_crednr,
   behandelaar,
   kostenplaats_code,
   kostenplaats_groep,
   opdracht_kosten,
   opdracht_uren,
   opdracht_correctie,
   opdracht_materiaal,
   opdracht_uurtarief,
   opdracht_offerte,
   opdracht_goedkeuring,                  -- BLCC#59243: Toevoegen goedkeuring
   opdracht_fiattering,                    -- BLCC#59243: Toevoegen fiattering
   last_change,
   uv_cp,
   --dienst,
   aanvang_datumtijd,
   aanvang_datum,
   aanvang_tijd,
   afhandeling,
   markering,
   --verzoek_fiattering,
   offerte_ref,
   refnr_lev,
   molest,
   datum_pq,
   datum_tf,
   raming_bcc,
   raming_pma,
   raming_cma,
   kostensoort_reg,
   kostensoort_afw
)
AS
   SELECT o.mld_opdr_key,
          DECODE (mld_melding_spoed,
                  3, lcl.l ('lcl_mld_urg_normaal'),
                  1, lcl.l ('lcl_mld_urg_kritiek'),
                  2, lcl.l ('lcl_mld_urg_hoog'),
                  4, lcl.l ('lcl_mld_urg_laag'))
             prio,
          sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || '/'  || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdrachtnr,
          sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) meldingnr,
          ot.mld_typeopdr_omschrijving,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (o.mld_opdr_omschrijving, 1, 20), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') omschrijving,
          o.mld_opdr_datumbegin,
          TO_CHAR (o.mld_opdr_datumbegin, 'DD-MM-YYYY') datum,
          TO_CHAR (o.mld_opdr_datumbegin, 'hh24:mi') tijd,
          TO_CHAR (mld_statusopdr_key) status_key,
          (SELECT mld_statusopdr_omschrijving FROM mld_statusopdr WHERE mld_statusopdr_key = o.mld_statusopdr_key)
             status,
          o.mld_opdr_einddatum,
          TO_CHAR (o.mld_opdr_einddatum, 'DD-MM-YYYY') einddatum,
          TO_CHAR (o.mld_opdr_einddatum, 'hh24:mi') eindtijd,
          (SELECT naam FROM mld_v_uitvoerende WHERE mld_uitvoerende_key = o.mld_uitvoerende_keys)
             opdracht_uitvoerende,
          (SELECT prs_overeenkomst_nr FROM prs_bedrijf WHERE prs_bedrijf_key = o.mld_uitvoerende_keys)
             opdracht_uitvoerende_crednr,
          (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key = o.prs_perslid_key)
             behandelaar,
          kp.prs_kostenplaats_upper kostenplaats_code,
          DECODE (kpg.prs_kostenplaatsgrp_nr, NULL, '', kpg.prs_kostenplaatsgrp_nr || '-') || kpg.prs_kostenplaatsgrp_oms kostenplaats_groep,
          TO_CHAR (o.mld_opdr_kosten, 'fm999999999999999990.00') kosten,
          TO_CHAR (o.mld_opdr_uren, 'fm999999999999999990.00') uren,
          TO_CHAR (o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon), 'fm999999999999999990.00') correctie,
          TO_CHAR (o.mld_opdr_materiaal, 'fm999999999999999990.00') materiaal,
          TO_CHAR (o.mld_opdr_uurloon, 'fm999999999999999990.00') uurtarief,
          sub.opdrachtnummer offerte,
          --DECODE (o.mld_statusopdr_key, 10, o2g.goedkeurders, NULL) opdracht_goedkeuring,
          o2g.goedkeurders opdracht_goedkeuring,
          DECODE (o.mld_statusopdr_key, 3, pfia.prs_perslid_naam_full, NULL) opdracht_fiattering,
          lc.last_change,
          cp.prs_contactpersoon_naam
          || DECODE (cp.prs_contactpersoon_voorletters, NULL, '', ', ' || cp.prs_contactpersoon_voorletters)
          || DECODE (cp.prs_contactpersoon_tussenv, NULL, '', ' ' || cp.prs_contactpersoon_tussenv)
          || DECODE (cp.prs_contactpersoon_voornaam, NULL, '', ' (' || cp.prs_contactpersoon_voornaam || ')')
             uv_cp,
          --NULL dienst,
          o.mld_opdr_plandatum,
          TO_CHAR (o.mld_opdr_plandatum, 'DD-MM-YYYY') plandatum,
          TO_CHAR (o.mld_opdr_plandatum, 'hh24:mi') plantijd,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (o.mld_opdr_opmerking, 1, 20), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') opmerking,
          CASE
             WHEN o.mld_opdr_flag > 0
             THEN lcl.l ('lcl_opdr_flag' || o.mld_opdr_flag)
          END
             markering,
          --o.mld_opdr_handfiat verzoek_fiattering,
          oref.offerte_ref,
          refl.refnr_lev,
          mol.molest,
          dpq.datum_pq,
          dtf.datum_tf,
          rbcc.raming_bcc,
          rpma.raming_pma,
          rcma.raming_cma,
          COALESCE (ksm.prs_kostensoort_oms, ksv.prs_kostensoort_oms) kostensoort_reg,
          kso.prs_kostensoort_oms kostensoort_afw
     FROM mld_opdr o,
          mld_typeopdr ot,
          mld_melding m,
          mld_stdmelding sm,
          mld_discipline md,
          ins_srtdiscipline sd,
          mld_disc_params mdp,
          prs_kostenplaats kp,
          prs_kostenplaatsgrp kpg,
          (SELECT o.mld_opdr_key, sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdrachtnummer
             FROM mld_opdr o,
                  mld_melding m,
                  mld_stdmelding sm,
                  mld_discipline md,
                  ins_srtdiscipline sd
            WHERE o.mld_melding_key = m.mld_melding_key
                  AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                  AND sm.mld_ins_discipline_key = md.ins_discipline_key
                  AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key) sub,
          --(SELECT t.fac_tracking_refkey, SUBSTR (t.fac_tracking_oms, INSTR (t.fac_tracking_oms, 'verstuurd aan ') + 14) goedkeurders -- Bah!
          --   FROM fac_tracking t
          --  WHERE t.fac_srtnotificatie_key = 135                     -- ORDMAI
          --        AND UPPER (t.fac_tracking_oms) LIKE '%UW GOEDKEURING IS VEREIST VOOR OPDRACHT%'
          --        AND NOT EXISTS
          --              (SELECT 1
          --                 FROM fac_tracking
          --                WHERE fac_srtnotificatie_key = 135         -- ORDMAI
          --                      AND UPPER (fac_tracking_oms) LIKE '%UW GOEDKEURING IS VEREIST VOOR OPDRACHT%'
          --                      AND fac_tracking_refkey = t.fac_tracking_refkey
          --                      AND fac_tracking_key > t.fac_tracking_key)) o2g,
          (  SELECT o.mld_opdr_key,
                    LISTAGG (pgoe.prs_perslid_naam_full, ', ') WITHIN GROUP (ORDER BY pgoe.prs_perslid_naam_full)
                       goedkeurders
               FROM mld_opdr o,
                    mld_typeopdr ot,
                    mld_melding m,
                    mld_stdmelding sm,
                    mld_disc_params mdp,
                    alg_v_allonroerendgoed onrg,
                    fac_v_webgebruiker wg,
                    fac_functie f,
                    prs_perslid p,
                    prs_v_perslid_fullnames pgoe
              WHERE o.mld_statusopdr_key = 10
                    AND o.mld_typeopdr_key = ot.mld_typeopdr_key
                    AND o.mld_melding_key = m.mld_melding_key
                    AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                    AND sm.mld_ins_discipline_key = mdp.mld_ins_discipline_key
                    AND m.mld_alg_onroerendgoed_keys = onrg.alg_onroerendgoed_keys(+)
                    AND sm.mld_ins_discipline_key = wg.ins_discipline_key
                    AND wg.fac_functie_key = f.fac_functie_key
                    AND wg.prs_perslid_key = p.prs_perslid_key
                    AND p.prs_perslid_key = pgoe.prs_perslid_key
                    AND p.prs_perslid_key != 4           -- Ignore _FACILITOR!
                    AND (wg.fac_gebruiker_prs_level_write = -1
                         OR (wg.fac_gebruiker_prs_level_write < 9
                             AND p.prs_afdeling_key IN
                                      (SELECT prs_afdeling_key
                                         FROM prs_v_afdeling_familie
                                        WHERE prs_afdeling_elder_key IN
                                                    (SELECT prs_afdeling_elder_key
                                                       FROM prs_v_afdeling_familie
                                                      WHERE prs_afdeling_key = p.prs_afdeling_key
                                                            AND niveau = wg.fac_gebruiker_prs_level_write))))
                    AND (wg.fac_gebruiker_alg_level_write = -1
                         OR (wg.fac_gebruiker_alg_level_write < 9
                             AND (CASE
                                     WHEN m.mld_alg_onroerendgoed_keys IS NULL
                                          AND m.mld_alg_locatie_key IN
                                                   (SELECT alg_locatie_key
                                                      FROM fac_v_my_locations
                                                     WHERE prs_perslid_key = p.prs_perslid_key
                                                           AND niveau = wg.fac_gebruiker_alg_level_write)
                                     THEN
                                        1
                                     WHEN onrg.alg_type = 'G'
                                          AND m.mld_alg_onroerendgoed_keys IN
                                                   (SELECT alg_gebouw_key
                                                      FROM fac_v_my_buildings
                                                     WHERE prs_perslid_key = p.prs_perslid_key
                                                           AND niveau = wg.fac_gebruiker_alg_level_write)
                                     THEN
                                        1
                                     WHEN onrg.alg_type = 'V'
                                          AND m.mld_alg_onroerendgoed_keys IN
                                                   (SELECT alg_verdieping_key
                                                      FROM fac_v_my_floors
                                                     WHERE prs_perslid_key = p.prs_perslid_key
                                                           AND niveau = wg.fac_gebruiker_alg_level_write)
                                     THEN
                                        1
                                     WHEN onrg.alg_type = 'R'
                                          AND m.mld_alg_onroerendgoed_keys IN
                                                   (SELECT alg_ruimte_key
                                                      FROM fac_v_my_rooms
                                                     WHERE prs_perslid_key = p.prs_perslid_key
                                                           AND niveau = wg.fac_gebruiker_alg_level_write)
                                     THEN
                                        1
                                     ELSE
                                        0
                                  END) = 1))
                    AND ((f.fac_functie_code = 'WEB_ORDGOE'
                          AND ((o.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet
                                AND COALESCE (o.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet)
                               OR (o.mld_opdr_kosten >= ot.mld_typeopdr_gvs
                                   AND COALESCE (o.mld_opdr_approved, -1) < 0)))
                         OR (f.fac_functie_code = 'WEB_ORDGO2'
                             AND o.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet2
                             AND COALESCE (o.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet2)
                         OR (f.fac_functie_code = 'WEB_ORDGO3'
                             AND o.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet3
                             AND COALESCE (o.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet3)
                         OR (f.fac_functie_code = 'WEB_ORDGO4'
                             AND o.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet4
                             AND COALESCE (o.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet4)
                         OR (f.fac_functie_code = 'WEB_ORDGO5'
                             AND o.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet5
                             AND COALESCE (o.mld_opdr_approved, 0) >= mdp.mld_disc_params_bestellimiet5))
           GROUP BY o.mld_opdr_key) o2g,
          prs_v_perslid_fullnames_all pfia,
          (  SELECT t.fac_tracking_refkey, MAX (t.fac_tracking_datum) last_change
               FROM fac_tracking t
              WHERE EXISTS (SELECT 1                            -- Last change
                              FROM fac_srtnotificatie
                             WHERE fac_srtnotificatie_key = t.fac_srtnotificatie_key
                                   AND fac_srtnotificatie_xmlnode = 'opdracht')
           GROUP BY t.fac_tracking_refkey) lc,
          prs_contactpersoon cp,
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde offerte_ref
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE EXISTS (SELECT 1                    -- 82=Offerte referentie
                            FROM mld_kenmerk
                           WHERE mld_kenmerk_key = ko.mld_kenmerk_key
                                 AND mld_srtkenmerk_key = 82)) oref,
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde refnr_lev
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE EXISTS (SELECT 1                   -- 261=Refnr. leverancier
                            FROM mld_kenmerk
                           WHERE mld_kenmerk_key = ko.mld_kenmerk_key
                                 AND mld_srtkenmerk_key = 261)) refl,
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde molest
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE mld_kenmerk_key = 621) mol,                    -- 621=Molest
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde datum_pq
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE mld_kenmerk_key = 581) dpq,    -- 581=Doorgezet naar ProQuro
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde datum_tf
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE mld_kenmerk_key = 582) dtf,  -- 582=Doorgezet naar Twinfield
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde raming_bcc
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE EXISTS (SELECT 1                    -- 601=Raming BCC intern
                            FROM mld_kenmerk
                           WHERE mld_kenmerk_key = ko.mld_kenmerk_key
                                 AND mld_srtkenmerk_key = 601)) rbcc,
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde raming_pma
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE EXISTS (SELECT 1                           -- 121=Raming PMA
                            FROM mld_kenmerk
                           WHERE mld_kenmerk_key = ko.mld_kenmerk_key
                                 AND mld_srtkenmerk_key = 121)) rpma,
          (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde raming_cma
             FROM mld_v_aanwezigkenmerkopdr ko
            WHERE EXISTS (SELECT 1                           -- 122=Raming CMA
                            FROM mld_kenmerk
                           WHERE mld_kenmerk_key = ko.mld_kenmerk_key
                                 AND mld_srtkenmerk_key = 122)) rcma,
          prs_kostensoort kso,
          prs_kostensoort ksm,
          prs_kostensoort ksv
    WHERE o.mld_typeopdr_key = ot.mld_typeopdr_key
          AND o.mld_melding_key = m.mld_melding_key
          AND m.mld_stdmelding_key = sm.mld_stdmelding_key
          AND sm.mld_ins_discipline_key = md.ins_discipline_key
          AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
          AND md.ins_discipline_key = mdp.mld_ins_discipline_key
          AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
          AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
          AND o.mld_opdr_parent_key = sub.mld_opdr_key(+)
          --AND o.mld_opdr_key = o2g.fac_tracking_refkey(+)
          AND o.mld_opdr_key = o2g.mld_opdr_key(+)
          --AND prs.getfiatteur (o.prs_kostenplaats_key, -1, o.mld_opdr_kosten, md.ins_discipline_key) = pfia.prs_perslid_key(+)
          AND prs.nextfiatteur (o.mld_opdr_key, 'MLD') = pfia.prs_perslid_key(+)
          AND o.mld_opdr_key = lc.fac_tracking_refkey(+)
          AND o.prs_contactpersoon_key = cp.prs_contactpersoon_key(+)
          AND o.mld_opdr_key = oref.mld_opdr_key(+)
          AND o.mld_opdr_key = refl.mld_opdr_key(+)
          AND o.mld_opdr_key = mol.mld_opdr_key(+)
          AND o.mld_opdr_key = dpq.mld_opdr_key(+)
          AND o.mld_opdr_key = dtf.mld_opdr_key(+)
          AND o.mld_opdr_key = rbcc.mld_opdr_key(+)
          AND o.mld_opdr_key = rpma.mld_opdr_key(+)
          AND o.mld_opdr_key = rcma.mld_opdr_key(+)
          AND o.prs_kostensoort_key = kso.prs_kostensoort_key(+)
          AND sm.prs_kostensoort_key = ksm.prs_kostensoort_key(+)
          AND md.prs_kostensoort_key = ksv.prs_kostensoort_key(+);

-- BLCC#38512
CREATE OR REPLACE VIEW blcc_v_rap_mldtrk
(
   melding,
   aanmaakdatumtijd,
   aanmaakdatum,
   aanmaaktijdstip,
   meldingstatus,
   plan_einddatum,
   sla_einddatum,
   wijzigingsdatumtijd,
   wijzigingsdatum,
   wijzigingstijdstip,
   wijzigingdoor,
   wijzigingcode,
   wijzigingoms
)
AS
   SELECT sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) melding,
          m.mld_melding_datum aanmaakdatumtijd,
          TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy') aanmaakdatum,
          TO_CHAR (m.mld_melding_datum, 'hh24:mi') aanmaaktijdstip,
          ms.mld_statuses_omschrijving meldingstatus,
          TO_CHAR (m.mld_melding_einddatum, 'dd-mm-yyyy') plan_einddatum,
          TO_CHAR (m.mld_melding_einddatum_std, 'dd-mm-yyyy') sla_einddatum,
          t.fac_tracking_datum wijzigingsdatumtijd,
          TO_CHAR (t.fac_tracking_datum, 'dd-mm-yyyy') wijzigingsdatum,
          TO_CHAR (t.fac_tracking_datum, 'hh24:mi') wijzigingstijdstip,
          pf.prs_perslid_naam_full tracking_door,
          sn.fac_srtnotificatie_code tracking_code,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (TRIM (t.fac_tracking_oms), 1, 500), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') tracking_oms
     FROM mld_melding m,
          mld_statuses ms,
          mld_stdmelding sm,
          ins_tab_discipline td,
          ins_srtdiscipline sd,
          fac_tracking t,
          fac_srtnotificatie sn,
          prs_v_perslid_fullnames_all pf
    WHERE m.mld_melding_status = ms.mld_statuses_key
          AND m.mld_stdmelding_key = sm.mld_stdmelding_key
          AND sm.mld_ins_discipline_key = td.ins_discipline_key
          AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
          AND m.mld_melding_key = t.fac_tracking_refkey
          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
          AND sn.fac_srtnotificatie_xmlnode = 'melding'
          AND sn.fac_srtnotificatie_key IN (43, 37, 44, 38, 39, 46, 47, 48, 49) -- MLDNEW, MLDACP, MLDREJ, MLDAFM, MLDAFR, MLDVER, MLDDOO, MLDFWD, MLDBWD
          AND t.prs_perslid_key = pf.prs_perslid_key(+);

CREATE OR REPLACE VIEW blcc_v_rap_ordtrk
(
   opdracht,
   aanmaakdatumtijd,
   aanmaakdatum,
   aanmaaktijdstip,
   opdrachtstatus,
   plan_einddatum,
   wijzigingsdatumtijd,
   wijzigingsdatum,
   wijzigingstijdstip,
   wijzigingdoor,
   wijzigingcode,
   wijzigingoms
)
AS
   SELECT sd.ins_srtdiscipline_prefix || TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdracht,
          o.mld_opdr_datumbegin aanmaakdatumtijd,
          TO_CHAR (o.mld_opdr_datumbegin, 'dd-mm-yyyy') aanmaakdatum,
          TO_CHAR (o.mld_opdr_datumbegin, 'hh24:mi') aanmaaktijdstip,
          os.mld_statusopdr_omschrijving opdrachtstatus,
          TO_CHAR (o.mld_opdr_einddatum, 'dd-mm-yyyy') plan_einddatum, -- Of mld_opdr_plandatum?
          t.fac_tracking_datum wijzigingsdatumtijd,
          TO_CHAR (t.fac_tracking_datum, 'dd-mm-yyyy') wijzigingsdatum,
          TO_CHAR (t.fac_tracking_datum, 'hh24:mi') wijzigingstijdstip,
          pf.prs_perslid_naam_full tracking_door,
          sn.fac_srtnotificatie_code tracking_code,
          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (SUBSTR (TRIM (t.fac_tracking_oms), 1, 500), CHR (10), ' '), CHR (13), ' '), CHR (128), 'EUR'), '"', ''''), ';', '') tracking_oms
     FROM mld_opdr o,
          mld_statusopdr os,
          mld_melding m,
          mld_stdmelding sm,
          ins_tab_discipline td,
          ins_srtdiscipline sd,
          fac_tracking t,
          fac_srtnotificatie sn,
          prs_v_perslid_fullnames_all pf
    WHERE o.mld_statusopdr_key = os.mld_statusopdr_key
          AND o.mld_melding_key = m.mld_melding_key
          AND m.mld_stdmelding_key = sm.mld_stdmelding_key
          AND sm.mld_ins_discipline_key = td.ins_discipline_key
          AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
          AND o.mld_opdr_key = t.fac_tracking_refkey
          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
          AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
          --AND sn.fac_srtnotificatie_key IN (59, 65, 64, 69, 58, 70, 66, 60) -- ORDNEW, ORDACP, ORDREJ, ORDCAN, ORDAFM, ORDAFR, ORDVER, ORDUPD
          --AND sn.fac_srtnotificatie_key NOT IN (56, 57, 68, 135) -- ORDMLI, ORDMLE, ORDSNX, ORDMAI
          AND t.prs_perslid_key = pf.prs_perslid_key(+);

CREATE OR REPLACE VIEW blcc_v_rap_prs_accounts
(
   soort_gebruiker,
   naam,
   email,
   loginnaam,
   afdeling,
   laatste_login,
   key_autorisaties
)
AS
   SELECT DECODE (key_user, 1, 'KEY', 'FE'),
          pf.prs_perslid_naam_full,
          p.prs_perslid_email,
          oslogin,
          a.prs_afdeling_naam || '-' || a.prs_afdeling_omschrijving,
          prs_perslid_login,
          funcodes
     FROM (SELECT *
             FROM (SELECT p.prs_perslid_key prs_key,
                          COALESCE (p.prs_perslid_oslogin, p.prs_perslid_oslogin2) oslogin,
                          1 login,     -- 1=user heeft login + groep + rechten
                          DECODE (
                             SIGN (TRUNC (COALESCE (p.prs_perslid_login + 92, SYSDATE - 1)) - TRUNC (SYSDATE)),
                             -1, 0,
                             1)      -- 1=user heeft laatste 92 dagen ingelogd
                             recent_login
                     FROM prs_v_aanwezigperslid p
                    WHERE EXISTS       -- op basis van login + groep + rechten
                             (SELECT 1
                                FROM fac_v_webgebruiker
                               WHERE prs_perslid_key = p.prs_perslid_key)
                          AND NOT EXISTS -- FSN#36597: WEB_FACFAC-users niet meetellen!
                                (SELECT 1
                                   FROM fac_v_webgebruiker gg, fac_functie f
                                  WHERE gg.prs_perslid_key = p.prs_perslid_key
                                        AND gg.fac_functie_key = f.fac_functie_key
                                        AND f.fac_functie_code = 'WEB_FACFAC')
                   UNION ALL -- FSN#24029: Soms ook personen zonder login meetellen!
                   SELECT prs_perslid_key,
                          NULL oslogin,
                          1 login,  -- 1=user telt mee, want allow_for_others!
                          0 recent_login -- geen login, dus nooit recent ingelogd
                     FROM prs_v_aanwezigperslid
                    WHERE COALESCE (prs_perslid_oslogin, prs_perslid_oslogin2) IS NULL
                          AND (fac.getsetting ('mld_allow_for_others') = 1
                               OR EXISTS
                                    (SELECT 1
                                       FROM bes_disc_params
                                      WHERE bes_disc_params_for_others = 1))
                   UNION ALL -- FSN#27315: En ook eventuele "sensorusers" meetellen!
                   SELECT NULL prs_perslid_key,
                          NULL oslogin,
                          COUNT ( * ) login, -- elke sensoruser telt mee als FE!
                          1 recent_login -- recent actief dus tellen als recent
                     FROM ins_v_aanwezigdeel
                    WHERE ins_deel_statedate > TRUNC (SYSDATE - 30)) x
                  LEFT JOIN   -- 1=user heeft rechten op key-codes=notFE-codes
                            (SELECT DISTINCT gr.fclt_f_login, 1 key_user
                               FROM fac_v_rap_groeprechten gr, fac_functie f
                              WHERE gr.fclt_f_funcode = f.fac_functie_code
                                    AND f.fac_functie_groep IN (1, 2)) a
                     ON x.oslogin = a.fclt_f_login
                  LEFT JOIN     -- FSN#30404: 1=user is cross-domain (xd) user
                            (SELECT p.prs_perslid_key, 1 xd_user
                               FROM prs_v_aanwezigperslid p, prs_v_afdeling_boom ab
                              WHERE p.prs_perslid_apikey IS NOT NULL
                                    AND p.prs_afdeling_key = ab.prs_afdeling_key
                                    AND ab.prs_bedrijf_key = fac.safe_to_number (fac.getsetting ('xd_primary_bedrijfkey'))) b
                     ON x.prs_key = b.prs_perslid_key
                  LEFT JOIN (  SELECT prs_perslid_key,
                                      LISTAGG (fac_functie_code, ', ') WITHIN GROUP (ORDER BY fac_functie_code) AS funcodes
                                 FROM (SELECT DISTINCT gg.prs_perslid_key, SUBSTR (f.fac_functie_code, 5) fac_functie_code
                                         FROM fac_gebruikersgroep gg, fac_groeprechten gr, fac_functie f
                                        WHERE gg.fac_groep_key = gr.fac_groep_key
                                              AND gr.fac_functie_key = f.fac_functie_key
                                              AND f.fac_functie_groep IN (1, 2))
                             GROUP BY prs_perslid_key) c
                     ON x.prs_key = c.prs_perslid_key) st,
          prs_v_aanwezigperslid p,
          prs_afdeling a,
          prs_v_perslid_fullnames pf
    WHERE st.login = 1
          AND st.prs_key = p.prs_perslid_key
          AND p.prs_afdeling_key = a.prs_afdeling_key
          AND p.prs_perslid_key = pf.prs_perslid_key;

-- BLCC#51370: View via API2 ontsloten tbv. Nsecure/Dataclient!
-- BLCC#56618: De default bezoekersactie igv. RES-bezoekers is: 41="Informeer mij niet vooraf en verwijs bezoek direct door."
-- BLCC#67788: Blanco-kenmerkvelden verwijderd en per 2021.1 deprecated (waarna vieze mapping-truc bleek omgevallen te zijn)!
CREATE OR REPLACE VIEW blcc_v_rap_dataclient_bez
(
   afspraak_key,                                             -- appointment_id
   bezoekers_key,                                                -- visitor_id
   afspraak_datum,
   afspraak_oms,
   bez_achternaam,
   bez_voornaam,
   bez_mail,
   bez_bedrijf,
   cp_naam,
   cp_mail,
   cp_tel,
   cp_bedrijf,
   bez_voor,
   bez_actie,
   gebouwcode,
   laatste_mut
)
AS
   SELECT t.fac_tracking_refkey,
          x.bez_bezoekers_key,
          x.bez_afspraak_datum,
          x.bez_afspraak_opmerking,
          x.bez_afspraak_naam,
          voornaam.bez_kenmerkwaarde_waarde,
          email.bez_kenmerkwaarde_waarde,
          x.bez_afspraak_bedrijf,
          x.prs_perslid_naam_full,
          x.prs_perslid_email,
          COALESCE (x.prs_perslid_telefoonnr, x.prs_perslid_mobiel) tel,
          x.prs_afdeling_omschrijving,
          x.bez_afspraak_gastheer,
          --a2o.bez_kenmerk_default,
          DECODE (x.bez_actie_key,
                  1, 'Your host will be notified about your arrival. You may go directly to the meeting location. If you do not know how to find the meeting location, the staff at the Center Court reception will assist you.',
                  21, 'Your host will be notified about your arrival. Once you arrive at the Center Court reception your host will pick you up at the reception desk.',
                  61, 'Your host will not be informed about your arrival. You may go directly to the meeting location. If you do not know how to find the meeting location, the staff at the Center Court reception will assist you.',
                  'You may directly go through to the event or meeting location. If you do not know how to find the location, the staff at the Center Court reception will assist you.') -- Actie met key=41 is de Default!
             bez_actie,
          (SELECT alg_gebouw_code FROM alg_gebouw WHERE alg_gebouw_key = x.alg_gebouw_key)
             gebouwcode,
          t.tracking_datum
     FROM (SELECT a.bez_afspraak_key,
                  b.bez_bezoekers_key,
                  a.bez_afspraak_datum,
                  a.bez_afspraak_opmerking,
                  b.bez_afspraak_naam,
                  b.bez_afspraak_bedrijf,
                  cpf.prs_perslid_naam_full,
                  cp.prs_perslid_email,
                  cp.prs_perslid_telefoonnr,
                  cp.prs_perslid_mobiel,
                  a.prs_afdeling_omschrijving,
                  a.bez_afspraak_gastheer,
                  COALESCE (a.bez_actie_key, 41) bez_actie_key, -- "Informeer mij niet vooraf en verwijs bezoek direct door."
                  aog.alg_gebouw_key
             FROM bez_afspraak a,
                  bez_bezoekers b,
                  prs_perslid cp,
                  prs_v_perslid_fullnames cpf,
                  prs_v_afdeling_boom ab,
                  prs_afdeling a,
                  alg_v_onroerendgoed aog
            WHERE a.bez_afspraak_datum > TRUNC (SYSDATE)
                  AND a.bez_afspraak_key = b.bez_afspraak_key
                  AND a.bez_afspraak_contact_key = cp.prs_perslid_key
                  AND cp.prs_perslid_key = cpf.prs_perslid_key
                  AND cp.prs_afdeling_key = ab.prs_afdeling_key
                  AND ab.prs_afdeling_key1 = a.prs_afdeling_key
                  AND a.alg_onrgoed_keys = aog.alg_onroerendgoed_keys(+)) x
          LEFT JOIN bez_kenmerkwaarde voornaam
             ON x.bez_bezoekers_key = voornaam.bez_bezoekers_key
                AND voornaam.bez_kenmerkwaarde_verwijder IS NULL
                AND voornaam.bez_kenmerk_key = 1080                -- Voornaam
          LEFT JOIN bez_kenmerkwaarde email
             ON x.bez_bezoekers_key = email.bez_bezoekers_key
                AND email.bez_kenmerkwaarde_verwijder IS NULL
                AND email.bez_kenmerk_key = 1000               -- E-mail adres
          LEFT JOIN (  SELECT fac_tracking_refkey, MAX (fac_tracking_datum) tracking_datum
                         FROM fac_tracking
                        WHERE fac_srtnotificatie_key IN (26, 27) -- BEZMUT/BEZUPD
                     GROUP BY fac_tracking_refkey) t
             ON x.bez_afspraak_key = t.fac_tracking_refkey;

-- BLCC#62290: Dashboard-rapportages tbv. Servicedesk!
CREATE OR REPLACE VIEW blcc_v_rap_mld_notes_sd
AS
    SELECT SYSDATE - x.aanmaak
               hide_f_sort,                              -- Recentste bovenaan
           CASE
               WHEN x.aanmaak > SYSDATE - 5 / 24 / 60 THEN 'updated'
               WHEN x.aanmaak > SYSDATE - 1 / 24 THEN 'updated10'
               ELSE ''
           END
               hide_f_rowclass,
           x.mld_melding_key,
           x.aanmaak
               datumtijd,
           --x.aanmaak datum,
           --x.aanmaak tijdstip,
           pn.prs_perslid_naam_friendly
               door,
           REPLACE (
               REPLACE (
                   REPLACE (x.omschrijving,
                            '##KEY##',
                            TO_CHAR (m.mld_melding_key)),
                   '##STDMLD##',
                   sm.mld_stdmelding_omschrijving),
               '##DISC##',
               md.ins_discipline_omschrijving)
               omschrijving,
           sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key)
               nummer,
           md.ins_discipline_omschrijving
               vakgroep,
           sm.mld_stdmelding_omschrijving
               melding,
           pm.prs_perslid_naam_friendly
               aanvrager,
           m.mld_melding_datum
               datum,
           COALESCE (aog.alg_plaatsaanduiding, 'CAMPUS')
               plaats,
           m.mld_melding_onderwerp
               onderwerp,
           m.mld_melding_omschrijving
               melding_omschrijving,
           ms.mld_statuses_omschrijving
               status,
           pb.prs_perslid_naam_friendly
               behandelaar,
           m.mld_melding_einddatum
               einddatum
      FROM (SELECT n.mld_melding_note_aanmaak          aanmaak,
                   n.prs_perslid_key,
                   n.mld_melding_note_omschrijving     omschrijving,
                   n.mld_melding_key
              FROM mld_melding_note n
             WHERE     n.mld_melding_note_aanmaak >
                       TRUNC (ADD_MONTHS (SYSDATE, -6), 'mm')      -- TODO:-3?
                   AND n.prs_perslid_key IS NOT NULL
                   AND NOT EXISTS
                           (SELECT 1
                              FROM fac_gebruikersgroep
                             WHERE     fac_groep_key = 23          -- BCC FOBO
                                   AND prs_perslid_key = n.prs_perslid_key)
            UNION ALL
            SELECT t.fac_tracking_datum                      aanmaak,
                   t.prs_perslid_key,
                   COALESCE (
                       t.fac_tracking_oms,
                       lcl.x ('fac_srtnotificatie_oms',
                              sn.fac_srtnotificatie_key,
                              sn.fac_srtnotificatie_oms))    omschrijving,
                   t.fac_tracking_refkey                     mld_melding_key
              FROM fac_tracking t, fac_srtnotificatie sn
             WHERE     t.fac_tracking_datum >
                       TRUNC (ADD_MONTHS (SYSDATE, -6), 'mm')      -- TODO:-3?
                   AND t.prs_perslid_key IS NOT NULL
                   AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
                   AND sn.fac_srtnotificatie_xmlnode = 'melding'
                   AND NOT EXISTS
                           (SELECT 1
                              FROM fac_gebruikersgroep
                             WHERE     fac_groep_key = 23          -- BCC FOBO
                                   AND prs_perslid_key = t.prs_perslid_key))
           x,
           mld_melding                  m,
           mld_stdmelding               sm,
           mld_discipline               md,
           ins_srtdiscipline            sd,
           prs_v_perslid_fullnames_all  pn,                          -- Noteur
           prs_v_perslid_fullnames_all  pb,                     -- Behandelaar
           prs_v_perslid_fullnames_all  pm,                          -- Melder
           alg_v_allonrgoed_gegevens    aog,
           mld_statuses                 ms
     WHERE     x.mld_melding_key = m.mld_melding_key
           --AND m.fac_activiteit_key IS NULL
           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
           AND sm.mld_ins_discipline_key = md.ins_discipline_key
           AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
           AND sd.ins_srtdiscipline_key != 21      -- Financi le administratie
           AND x.prs_perslid_key = pn.prs_perslid_key
           AND m.mld_melding_behandelaar_key = pb.prs_perslid_key(+)
           AND m.prs_perslid_key = pm.prs_perslid_key
           AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys(+)
           AND m.mld_melding_status = ms.mld_statuses_key
           AND NOT EXISTS
                   (SELECT 1
                      FROM mld_melding_note n, fac_gebruikersgroep gg
                     WHERE     n.prs_perslid_key = gg.prs_perslid_key
                           AND gg.fac_groep_key = 23               -- BCC FOBO
                           AND n.mld_melding_key = x.mld_melding_key
                           AND n.mld_melding_note_aanmaak > x.aanmaak)
           AND NOT EXISTS
                   (SELECT 1
                      FROM fac_tracking t, fac_gebruikersgroep gg
                     WHERE     t.prs_perslid_key = gg.prs_perslid_key
                           AND gg.fac_groep_key = 23               -- BCC FOBO
                           AND t.fac_tracking_refkey = x.mld_melding_key
                           AND t.fac_tracking_datum > x.aanmaak);

-- BLCC#72885 Toevoegen leverancier-kolom (Ja/Nee).
CREATE OR REPLACE VIEW blcc_v_rap_ord_notes_sd
AS
   SELECT SYSDATE - x.aanmaak hide_f_sort,               -- Recentste bovenaan
          CASE
             WHEN x.aanmaak > SYSDATE - 5 / 24 / 60 THEN 'updated'
             WHEN x.aanmaak > SYSDATE - 1 / 24 THEN 'updated10'
             ELSE ''
          END
             hide_f_rowclass,
          x.mld_opdr_key,
          x.aanmaak datumtijd,
          --x.aanmaak datum,
          --x.aanmaak tijdstip,
          pn.prs_perslid_naam_friendly door,
          REPLACE (
             REPLACE (
                REPLACE (
                   REPLACE (
                      REPLACE (x.omschrijving, '##SPOED##', ''),
                      '##OPDRKEY##',
                         TO_CHAR (m.mld_melding_key)
                      || '/'
                      || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr)),
                   '##STDMLD##',
                   sm.mld_stdmelding_omschrijving),
                '##DISC##',
                md.ins_discipline_omschrijving),
             ' aan ##FIATTEUR##',
             '')
             omschrijving,
          sd.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr)
             nummer,
          md.ins_discipline_omschrijving vakgroep,
          sm.mld_stdmelding_omschrijving melding,
          (SELECT mld_typeopdr_omschrijving FROM mld_typeopdr WHERE mld_typeopdr_key = o.mld_typeopdr_key)
             opdrachttype,
          b.prs_bedrijf_naam uitvoerende,
          o.mld_opdr_datumbegin datum,
          COALESCE (aog.alg_plaatsaanduiding, 'CAMPUS') plaats,
          o.mld_opdr_omschrijving opdrachtomschrijving,
          os.mld_statusopdr_omschrijving status,
          pb.prs_perslid_naam_friendly behandelaar,
          o.mld_opdr_einddatum einddatum,
          x.mutatie_notitie,
          x.leverancier
     FROM (SELECT n.mld_opdr_note_aanmaak aanmaak,
                  n.prs_perslid_key,
                  n.mld_opdr_note_omschrijving omschrijving,
                  n.mld_opdr_key,
                  'Notitie' mutatie_notitie,
                  DECODE (ab.prs_bedrijf_key, 23, 'Ja', 'Nee') leverancier
             FROM mld_opdr_note n, prs_perslid p, prs_v_afdeling_boom ab
            WHERE n.mld_opdr_note_aanmaak > TRUNC (ADD_MONTHS (SYSDATE, -6), 'mm') -- TODO:-3?
                  --AND n.prs_perslid_key IS NOT NULL
                  AND n.prs_perslid_key = p.prs_perslid_key
                  AND p.prs_afdeling_key = ab.prs_afdeling_key
                  AND NOT EXISTS
                        (SELECT 1
                           FROM fac_gebruikersgroep
                          WHERE fac_groep_key = 23                 -- BCC FOBO
                                AND prs_perslid_key = n.prs_perslid_key)
           UNION ALL
           SELECT t.fac_tracking_datum aanmaak,
                  t.prs_perslid_key,
                  COALESCE (t.fac_tracking_oms, lcl.x ('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms))
                     omschrijving,
                  t.fac_tracking_refkey mld_opdr_key,
                  'Mutatie' mutatie_notitie,
                  DECODE (ab.prs_bedrijf_key, 23, 'Ja', 'Nee') leverancier
             FROM fac_tracking t, fac_srtnotificatie sn, prs_perslid p, prs_v_afdeling_boom ab
            WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -6), 'mm') -- TODO:-3?
                  --AND t.prs_perslid_key IS NOT NULL
                  AND t.prs_perslid_key = p.prs_perslid_key
                  AND p.prs_afdeling_key = ab.prs_afdeling_key
                  AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
                  AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
                  AND NOT EXISTS
                        (SELECT 1
                           FROM fac_gebruikersgroep
                          WHERE fac_groep_key = 23                 -- BCC FOBO
                                AND prs_perslid_key = t.prs_perslid_key)) x,
          mld_opdr o,
          mld_melding m,
          mld_stdmelding sm,
          mld_discipline md,
          ins_srtdiscipline sd,
          prs_v_perslid_fullnames_all pn,                            -- Noteur
          prs_v_perslid_fullnames_all pb,                       -- Behandelaar
          --prs_v_perslid_fullnames_all pm,                            -- Melder
          prs_bedrijf b,
          alg_v_allonrgoed_gegevens aog,
          mld_statusopdr os
    WHERE x.mld_opdr_key = o.mld_opdr_key
          AND o.mld_melding_key = m.mld_melding_key
          AND m.mld_stdmelding_key = sm.mld_stdmelding_key
          AND sm.mld_ins_discipline_key = md.ins_discipline_key
          AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
          AND x.prs_perslid_key = pn.prs_perslid_key
          AND o.prs_perslid_key = pb.prs_perslid_key(+)
          --AND m.prs_perslid_key = pm.prs_perslid_key
          AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+)
          AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys(+)
          AND o.mld_statusopdr_key = os.mld_statusopdr_key
          AND NOT EXISTS
                (SELECT 1
                   FROM mld_opdr_note n, fac_gebruikersgroep gg
                  WHERE n.prs_perslid_key = gg.prs_perslid_key
                        AND gg.fac_groep_key = 23                  -- BCC FOBO
                        AND n.mld_opdr_key = x.mld_opdr_key
                        AND n.mld_opdr_note_aanmaak > x.aanmaak)
          AND NOT EXISTS
                (SELECT 1
                   FROM fac_tracking t,
                        fac_srtnotificatie sn,
                        fac_gebruikersgroep gg
                  WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
                        AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
                        AND t.prs_perslid_key = gg.prs_perslid_key
                        AND gg.fac_groep_key = 23                  -- BCC FOBO
                        AND t.fac_tracking_refkey = x.mld_opdr_key
                        AND t.fac_tracking_datum > x.aanmaak);

CREATE OR REPLACE VIEW BLCC_V_HUURDERS
(
    PRS_AFDELING_KEY,
    PRS_AFDELING_OMSCHR,
    PRS_AFDELING_VERWIJDER
)
AS
    SELECT a.prs_afdeling_key,
           a.prs_afdeling_omschrijving || ' [' || a.prs_afdeling_upper || ']',
           a.prs_afdeling_verwijder
      FROM prs_bedrijf b, prs_afdeling a
     WHERE b.prs_bedrijf_key = 22 AND a.prs_bedrijf_key = b.prs_bedrijf_key;

-- Persoon >> afdeling met debiteurnummer >> relatie waarbij debiteurnummer = overeenkomstnummer
-- Wanneer deze relatie een contractant is, dan is de persoon een huurder
CREATE OR REPLACE VIEW BLCC_V_HUURDERS_PRS
(
    PRS_PERSLID_KEY,
    PRS_PERSLID_NAAM,
    PRS_PERSLID_VERWIJDER
)
AS
    SELECT p.prs_perslid_key,
              fn.prs_perslid_naam_full
           || ' ['
           || a.prs_afdeling_omschrijving
           || ']',
           p.prs_perslid_verwijder
      FROM prs_perslid                  p,
           prs_afdeling                 a,
           prs_v_perslid_fullnames_all  fn,
           (SELECT kl.prs_kenmerklink_waarde     deb_nr,
                   kl.prs_link_key               afdeling_key
              FROM prs_kenmerk k, prs_kenmerklink kl
             WHERE     k.prs_kenmerk_key = 1001              -- debiteurnummer
                   AND k.prs_kenmerk_niveau = 'A'
                   AND kl.prs_kenmerk_key = k.prs_kenmerk_key
                   AND EXISTS
                           (SELECT 1
                              FROM prs_bedrijf b
                             WHERE     b.prs_bedrijf_contract = 1
                                   AND b.prs_overeenkomst_nr =
                                       kl.prs_kenmerklink_waarde)) huurder
     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
           AND p.prs_perslid_key = fn.prs_perslid_key
           AND huurder.afdeling_key = a.prs_afdeling_key
           AND a.prs_bedrijf_key = 22;

CREATE OR REPLACE VIEW BLCC_V_NOTI_KLANTVERSLAG
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
      SELECT NULL                                               sender,
             NULL                                               receiver,
             REPLACE (n.fac_srtnotificatie_oms,
                      '##datum##',
                      gespr_datum.mld_kenmerkmelding_waarde)    text,
             n.fac_srtnotificatie_code,
             n.fac_srtnotificatie_key,
             m.mld_melding_key,
             NULL                                               xkey,
             LISTAGG (dln.prs_perslid_email, ';')
                 WITHIN GROUP (ORDER BY m.mld_melding_key)      xemail,
             NULL                                               xmobile
        FROM mld_melding       m,
             fac_tracking      t,
             fac_srtnotificatie n,
             (SELECT km.mld_melding_key, p.prs_perslid_email
                FROM mld_kenmerk k, mld_kenmerkmelding km, prs_perslid p
               WHERE     k.mld_srtkenmerk_key = 902
                     AND km.mld_kenmerk_key = k.mld_kenmerk_key
                     AND fac.safe_to_number(km.mld_kenmerkmelding_waarde) = p.prs_perslid_key) dln,
             (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
                FROM mld_kenmerk k, mld_kenmerkmelding km
               WHERE     k.mld_srtkenmerk_key = 741
                     AND km.mld_kenmerk_key = k.mld_kenmerk_key) gespr_datum
       WHERE     m.mld_stdmelding_key = 1401
             AND dln.mld_melding_key = m.mld_melding_key
             AND gespr_datum.mld_melding_key(+) = m.mld_melding_key
             AND t.fac_tracking_refkey = m.mld_melding_key
             AND t.fac_srtnotificatie_key = 38                       -- MLDAFM
             AND n.fac_srtnotificatie_code = 'CUST03'
             AND t.fac_tracking_datum >
                 (SELECT   fac_notificatie_job_nextrun
                         - fac_notificatie_job_interval / 24
                    FROM fac_notificatie_job
                   WHERE UPPER (fac_notificatie_job_view) =
                         'BLCC_V_NOTI_KLANTVERSLAG')
             AND t.fac_tracking_datum <
                 (SELECT fac_notificatie_job_nextrun
                    FROM fac_notificatie_job
                   WHERE UPPER (fac_notificatie_job_view) =
                         'BLCC_V_NOTI_KLANTVERSLAG')
    GROUP BY REPLACE (n.fac_srtnotificatie_oms,
                      '##datum##',
                      gespr_datum.mld_kenmerkmelding_waarde),
             n.fac_srtnotificatie_code,
             n.fac_srtnotificatie_key,
             m.mld_melding_key;

CREATE OR REPLACE VIEW BLCC_V_MELDINGEN
(
    mld_melding_key,
    mld_melding_omschrijving
)
AS
      SELECT m.mld_melding_key,
             DECODE (
                 m.mld_melding_onderwerp,
                 NULL, vgt.ins_srtdiscipline_prefix || m.mld_melding_key,
                    vgt.ins_srtdiscipline_prefix
                 || m.mld_melding_key
                 || ' ('
                 || m.mld_melding_onderwerp
                 || ')')    omschr
        FROM mld_melding       m,
             mld_stdmelding    sm,
             ins_tab_discipline vg,
             ins_srtdiscipline vgt
       WHERE     m.mld_stdmelding_key = sm.mld_stdmelding_key
             AND sm.mld_ins_discipline_key = vg.ins_discipline_key
             AND vg.ins_srtdiscipline_key = vgt.ins_srtdiscipline_key
             AND vgt.ins_srtdiscipline_prefix = 'BCC'
    ORDER BY m.mld_melding_key DESC;

CREATE OR REPLACE VIEW BLCC_V_RAP_VOC
(
    HTML_VOC_REGISTRATIE_NR,
    DATUM_VOC,
    CVD,
    UITVOERENDE,
    OPDRACHTGEVER,
    HTML_BCC_NR,
    GEBOUW,
    SCORE_1,
    TOELICHTING_1,
    SCORE_2,
    TOELICHTING_2,
    SCORE_3,
    TOELICHTING_3,
    SCORE_4,
    TOELICHTING_4,
    SCORE_5,
    TOELICHTING_5,
    SCORE_6,
    TOELICHTING_6,
    SCORE_7,
    TOELICHTING_7,
    SCORE_8,
    TOELICHTING_8,
    SCORE_9,
    TOELICHTING_9,
    SCORE_10,
    TOELICHTING_10,
    SCORE_11,
    TOELICHTING_11,
    SCORE_12,
    TOELICHTING_12,
    SCORE_13,
    TOELICHTING_13,
    SCORE_14,
    TOELICHTING_14,
    SCORE_15,
    TOELICHTING_15,
    SCORE_16,
    TOELICHTING_16,
    TOTAAL_SCORE,
    OBSERVATOR,
    ACTIES_AFSPRAKEN
)
AS
    SELECT    '<a class="details" onclick=''FcltMgr.openDetail("'
           || 'appl/mld/mld_melding.asp?urole=fe&'
           || 'mld_key='
           || m.mld_melding_key
           || '")''>'
           || HTF.escape_sc (m.mld_melding_key)
           || '</a>'
               mld_melding_key,
           fac.safe_to_date (datum_voc.mld_kenmerkmelding_waarde, 'dd-mm-yyyy') datum_voc,
           p.prs_perslid_naam_friendly cvd,
           COALESCE (uitvoerende.prs_bedrijf_naam, uitvoerende_txt.prs_bedrijf_naam)
               uitvoerende,
           COALESCE (opdrachtgever.prs_afdeling_omschrijving, opdrachtgever_txt.prs_afdeling_omschrijving)
               opdrachtgever,
              '<a class="details" onclick=''FcltMgr.openDetail("'
           || 'appl/mld/mld_melding.asp?urole=fe&'
           || 'mld_key='
           || bcc_nr.bcc_nr
           || '")''>'
           || HTF.escape_sc (bcc_nr.bcc_nr)
           || '</a>'
               bcc_nr,
           aog.alg_gebouw_code || '-' || aog.alg_gebouw_naam gebouw,
           score_1.fac_usrdata_code
               score_1,
           toelichting_1.mld_kenmerkmelding_waarde 
               toelichting_1,   
           score_2.fac_usrdata_code
               score_2,
           toelichting_2.mld_kenmerkmelding_waarde 
               toelichting_2,   
           score_3.fac_usrdata_code
               score_3,
           toelichting_3.mld_kenmerkmelding_waarde 
               toelichting_3,   
           score_4.fac_usrdata_code
               score_4,
           toelichting_4.mld_kenmerkmelding_waarde 
               toelichting_4,   
           score_5.fac_usrdata_code
               score_5,
           toelichting_5.mld_kenmerkmelding_waarde 
               toelichting_5,   
           score_6.fac_usrdata_code
               score_6,
           toelichting_6.mld_kenmerkmelding_waarde 
               toelichting_6,   
           score_7.fac_usrdata_code
               score_7,
           toelichting_7.mld_kenmerkmelding_waarde 
               toelichting_7,   
           score_8.fac_usrdata_code
               score_8,
           toelichting_8.mld_kenmerkmelding_waarde 
               toelichting_8,   
           score_9.fac_usrdata_code
               score_9,
           toelichting_9.mld_kenmerkmelding_waarde 
               toelichting_9,   
           score_10.fac_usrdata_code
               score_10,
           toelichting_10.mld_kenmerkmelding_waarde 
               toelichting_10,   
           score_11.fac_usrdata_code
               score_11,
           toelichting_11.mld_kenmerkmelding_waarde 
               toelichting_11,   
           score_12.fac_usrdata_code
               score_12,
           toelichting_12.mld_kenmerkmelding_waarde 
               toelichting_12,   
           score_13.fac_usrdata_code
               score_13,
           toelichting_13.mld_kenmerkmelding_waarde 
               toelichting_13,   
           score_14.fac_usrdata_code
               score_14,
           toelichting_14.mld_kenmerkmelding_waarde 
               toelichting_14,   
           score_15.fac_usrdata_code
               score_15,
           toelichting_15.mld_kenmerkmelding_waarde 
               toelichting_15,   
           score_16.fac_usrdata_code
               score_16,
           toelichting_16.mld_kenmerkmelding_waarde 
               toelichting_16,   
           totaal_score.mld_kenmerkmelding_waarde
               totaal_score,
           obs.prs_perslid_naam observator,
           act.mld_kenmerkmelding_waarde acties_afspraken
      FROM mld_melding                  m,
           prs_v_perslid_fullnames_all  p,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1401
                   AND km.mld_kenmerkmelding_verwijder IS NULL) datum_voc,
           (SELECT km.mld_melding_key, b.prs_bedrijf_naam
              FROM mld_kenmerkmelding km, prs_bedrijf b
             WHERE     km.mld_kenmerk_key = 1241
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = b.prs_bedrijf_key) uitvoerende,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde prs_bedrijf_naam
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1761
                   AND km.mld_kenmerkmelding_verwijder IS NULL) uitvoerende_txt,
           (SELECT km.mld_melding_key, a.prs_afdeling_omschrijving
              FROM mld_kenmerkmelding km, prs_afdeling a
             WHERE     km.mld_kenmerk_key = 1242
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = a.prs_afdeling_key) opdrachtgever,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde prs_afdeling_omschrijving
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1762
                   AND km.mld_kenmerkmelding_verwijder IS NULL) opdrachtgever_txt,
           (SELECT km.mld_melding_key, m.mld_melding_key bcc_nr
              FROM mld_kenmerkmelding km, mld_melding m
             WHERE     km.mld_kenmerk_key = 1581
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = m.mld_melding_key) bcc_nr,
           alg_v_onroerendgoed_gegevens aog,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1177
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_1,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1178
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_2,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1179
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_3,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1180
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_4,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1181
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_5,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1182
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_6,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1183
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_7,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1184
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_8,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1185
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_9,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1186
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_10,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1187
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_11,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1188
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_12,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1189
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_13,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1190
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_14,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1191
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_15,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code,
                   fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 7341
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 761
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) score_16,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1192
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_1,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1193
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_2,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1194
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_3,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1195
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_4,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1196
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_5,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1197
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_6,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1198
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_7,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1199
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_8,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1200
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_9,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1201
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_10,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1202
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_11,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1203
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_12,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1204
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_13,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1205
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_14,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1206
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_15,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 7342
                   AND km.mld_kenmerkmelding_verwijder IS NULL) toelichting_16,            
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1207
                   AND km.mld_kenmerkmelding_verwijder IS NULL) totaal_score,
            (SELECT km.mld_melding_key, p.prs_perslid_naam 
               FROM mld_kenmerkmelding km, blcc_v_chef_v_dienst p
              WHERE     km.mld_kenmerk_key = 1661
                    AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = p.prs_perslid_key) obs,
            (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
               FROM mld_v_aanwezigkenmerkmelding km
              WHERE km.mld_kenmerk_key = 1209) act
     WHERE     m.mld_stdmelding_key = 1402
           AND m.prs_perslid_key_voor = p.prs_perslid_key
           AND datum_voc.mld_melding_key(+) = m.mld_melding_key
           AND uitvoerende.mld_melding_key(+) = m.mld_melding_key
           AND uitvoerende_txt.mld_melding_key(+) = m.mld_melding_key
           AND opdrachtgever.mld_melding_key(+) = m.mld_melding_key
           AND opdrachtgever_txt.mld_melding_key(+) = m.mld_melding_key
           AND bcc_nr.mld_melding_key(+) = m.mld_melding_key
           AND aog.alg_onroerendgoed_keys(+) = m.mld_alg_onroerendgoed_keys
           AND score_1.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_1.mld_melding_key(+) = m.mld_melding_key
           AND score_2.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_2.mld_melding_key(+) = m.mld_melding_key
           AND score_3.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_3.mld_melding_key(+) = m.mld_melding_key
           AND score_4.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_4.mld_melding_key(+) = m.mld_melding_key
           AND score_5.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_5.mld_melding_key(+) = m.mld_melding_key
           AND score_6.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_6.mld_melding_key(+) = m.mld_melding_key
           AND score_7.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_7.mld_melding_key(+) = m.mld_melding_key
           AND score_8.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_8.mld_melding_key(+) = m.mld_melding_key
           AND score_9.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_9.mld_melding_key(+) = m.mld_melding_key
           AND score_10.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_10.mld_melding_key(+) = m.mld_melding_key
           AND score_11.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_11.mld_melding_key(+) = m.mld_melding_key
           AND score_12.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_12.mld_melding_key(+) = m.mld_melding_key
           AND score_13.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_13.mld_melding_key(+) = m.mld_melding_key
           AND score_14.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_14.mld_melding_key(+) = m.mld_melding_key
           AND score_15.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_15.mld_melding_key(+) = m.mld_melding_key
           AND score_16.mld_melding_key(+) = m.mld_melding_key
           AND toelichting_16.mld_melding_key(+) = m.mld_melding_key
           AND totaal_score.mld_melding_key(+) = m.mld_melding_key
           AND obs.mld_melding_key(+) = m.mld_melding_key
           AND act.mld_melding_key(+) = m.mld_melding_key;

CREATE OR REPLACE VIEW BLCC_V_CHEF_V_DIENST
(
    prs_perslid_key,
    prs_perslid_naam,
    prs_perslid_verwijder
)
AS
    SELECT p.prs_perslid_key,
           p.prs_perslid_naam_friendly,
           p.prs_perslid_verwijder
      FROM fac_groep g, fac_gebruikersgroep gg, prs_v_perslid_fullnames_all p
     WHERE     g.fac_groep_key = gg.fac_groep_key
           AND p.prs_perslid_key = gg.prs_perslid_key
           AND g.fac_groep_key = 2462;

CREATE OR REPLACE VIEW BLCC_V_VEILIGHEIDSMELDINGEN
(
    MLD_MELDING_KEY,
    MLD_VEILIGHEIDSMELDING
)
AS
    SELECT m.mld_melding_key,
           m.mld_melding_key || '/' || p.prs_perslid_naam_full
      FROM mld_melding m, prs_v_perslid_fullnames_all p
     WHERE     m.mld_stdmelding_key = 917
           AND m.prs_perslid_key_voor = p.prs_perslid_key;
           
/* Formatted on 8-5-2025 17:06:21 (QP5 v5.336) */
CREATE OR REPLACE VIEW BLCC_V_RAP_ACTPLAN_EVENT_EXTERN
(
    MLD_MELDING_KEY,
    HTML_AANVRAAGNUMMER,
    AANVRAAG_DATUM,
    AANGEVRAAGD_IN_MAAND,
    AANVRAAG_GEACCEPTEERD,
    SOORT_EVENT,
    COMMUNICATIE_ZUIL,
    COMMUNICATIE_MAILING,
    COMMUNICATIE_NARROW,
    COMMUNICATIE_SCREEN,
    RES_RESERVERING_KEY,
    RES_RSV_RUIMTE_VOLGNR,
    HTML_RESERVERING,
    EVENT_IN_MAAND,
    DATUM,
    VAN,
    TOT,
    KOSTENPLAATS,
    OMSCHRIJVING,
    AANTAL,
    RUIMTE_NR,
    CONTACTPERS,
    AANVRAAG_DOOR_EVENTS
)
AS
    SELECT m.mld_melding_key,
              '<a class="details" onclick=''FcltMgr.openDetail("'
           || 'appl/mld/mld_melding.asp?urole=fe&'
           || 'mld_key='
           || m.mld_melding_key
           || '")''>'
           || vgt.ins_srtdiscipline_prefix
           || m.mld_melding_key
           || '</a>'
               meldingnummer,
           TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy')
               aanvraag_datum,
           TO_CHAR (m.mld_melding_datum, 'yyyy') || ' ' || TO_CHAR (m.mld_melding_datum, 'Month')
               aangevraagd_in_maand,
           (SELECT ud.fac_usrdata_omschr
              FROM mld_kenmerkmelding km, fac_usrdata ud, fac_usrtab ut
             WHERE     km.mld_kenmerk_key = 8001
                   AND km.mld_kenmerkmelding_waarde = ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND km.mld_melding_key = m.mld_melding_key)
               aanvr_geaccepteerd,
           (SELECT rt.fac_usrdata_omschr
              FROM mld_kenmerkmelding kenm, fac_usrdata rt
             WHERE     kenm.mld_kenmerkmelding_verwijder IS NULL
                   AND rt.fac_usrdata_key = fac.safe_to_number (kenm.mld_kenmerkmelding_waarde)
                   AND rt.fac_usrtab_key = 1383
                   AND kenm.mld_kenmerk_key = 7968
                   AND kenm.mld_melding_key = m.mld_melding_key)
               soort_event,
           DECODE ((SELECT km.mld_kenmerkmelding_waarde
                      FROM mld_kenmerkmelding km
                     WHERE km.mld_kenmerk_key = 7952 AND km.mld_melding_key = m.mld_melding_key),
                   1, 'Ja',
                   'Nee')
               communicatie_zuil,
           DECODE ((SELECT km.mld_kenmerkmelding_waarde
                      FROM mld_kenmerkmelding km
                     WHERE km.mld_kenmerk_key = 7955 AND km.mld_melding_key = m.mld_melding_key),
                   1, 'Ja',
                   'Nee')
               communicatie_mailing,
           DECODE ((SELECT km.mld_kenmerkmelding_waarde
                      FROM mld_kenmerkmelding km
                     WHERE km.mld_kenmerk_key = 7954 AND km.mld_melding_key = m.mld_melding_key),
                   1, 'Ja',
                   'Nee')
               communicatie_narrow,
           DECODE ((SELECT km.mld_kenmerkmelding_waarde
                      FROM mld_kenmerkmelding km
                     WHERE km.mld_kenmerk_key = 7953 AND km.mld_melding_key = m.mld_melding_key),
                   1, 'Ja',
                   'Nee')
               communicatie_screen,
           res.res_reservering_key,
           res.res_rsv_ruimte_volgnr,
           res.html_reservering,
           res.event_in_maand,
           res.datum,
           res.van,
           res.tot,
           (SELECT k.prs_kostenplaats_omschrijving
              FROM prs_kostenplaats k
             WHERE k.prs_kostenplaats_key = res.prs_kostenplaats_key)
               kostenplaats,
           (SELECT km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 8061 AND km.mld_melding_key = m.mld_melding_key)
               omschrijving,
           (SELECT km.mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7947 AND km.mld_melding_key = m.mld_melding_key)
               aantal,
           res.res_ruimte_nr
               ruimte_nr,
           res.contactpers,
           CASE
               WHEN res.prs_perslid_key IN
                        (SELECT gg.prs_perslid_key
                           FROM fac_groep g, fac_gebruikersgroep gg
                          WHERE g.fac_groep_key = 2464 AND gg.fac_groep_key = g.fac_groep_key)
               THEN
                   'Ja'
               ELSE
                   'Nee'
           END
               aanvraag_door_events
      FROM mld_melding        m,
           mld_stdmelding     sm,
           mld_discipline     vg,
           ins_srtdiscipline  vgt,
           (SELECT rr.mld_melding_key,
                   rrui.res_ruimte_nr,
                   TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy')    datum,
                      TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy')
                   || ' '
                   || TO_CHAR (rrr.res_rsv_ruimte_van, 'Month')      event_in_maand,
                   TO_CHAR (rrr.res_rsv_ruimte_van, 'HH24:MI')       van,
                   TO_CHAR (rrr.res_rsv_ruimte_tot, 'HH24:MI')       tot,
                   rrr.prs_kostenplaats_key,
                   rrr.res_reservering_key,
                   rrr.res_rsv_ruimte_volgnr,
                   rrr.res_rsv_ruimte_key,
                      '<a class="details" onclick=''FcltMgr.openDetail("appl/res/res_reservering.asp?urole=bo&'
                   || 'rsv_ruimte_key='
                   || rrr.res_rsv_ruimte_key
                   || '")''>'
                   || rrr.res_reservering_key
                   || '/'
                   || rrr.res_rsv_ruimte_volgnr
                   || '</a>'                                         html_reservering,
                   p.prs_perslid_key,
                   p.prs_perslid_naam_friendly                       contactpers
              FROM res_reservering              rr,
                   res_rsv_ruimte               rrr,
                   res_ruimte_opstelling        rro,
                   res_ruimte                   rrui,
                   prs_v_perslid_fullnames_all  p
             WHERE     rrr.res_reservering_key = rr.res_reservering_key
                   AND rrui.res_ruimte_key = rro.res_ruimte_key
                   AND rro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
                   AND rr.res_reservering_verwijder IS NULL
                   AND rrr.res_rsv_ruimte_contact_key = p.prs_perslid_key) res
     WHERE     m.mld_stdmelding_key = 2781
           AND res.mld_melding_key(+) = m.mld_melding_key
           AND sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND vg.ins_discipline_key = sm.mld_ins_discipline_key
           AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key;           

-- BLCC#63461: Notificeren oude accounts (halfjaar minus 2 weken niet ingelogd).
-- BLCC#91467: Notificeren oude accounts (halfjaar minus 4 weken niet ingelogd).
CREATE OR REPLACE VIEW blcc_v_noti_oude_accounts
(
   code,
   sender,
   receiver,
   text,
   key,
   xkey,
   xsender,
   xemail,
   xmobile,
   attachments
)
AS                                          -- CUST04 naar te schonen persoon!
   SELECT sn.fac_srtnotificatie_code,
          NULL,
          p.prs_perslid_key,
          sn.fac_srtnotificatie_oms,
          p.prs_perslid_key,
          NULL,
          NULL,
          NULL,
          NULL,
          NULL
     FROM prs_v_aanwezigperslid p,
          prs_v_afdeling_boom ab,
          fac_srtnotificatie sn
    WHERE p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_bedrijf_key = 22                              -- Huurder!
          AND INSTR (UPPER (COALESCE (p.prs_perslid_email, 'Quqelequ')), '@BRIGHTLANDS') = 0
          AND NOT EXISTS                       -- Geen lopende verplichtingen?
                (SELECT 1
                   FROM prs_v_verplichting_keys
                  WHERE prs_perslid_key = p.prs_perslid_key)
          AND NOT EXISTS       -- Niet uitgesloten voor automatische schoning?
                (SELECT 1
                   FROM prs_v_aanwezigkenmerklink
                  WHERE prs_kenmerk_key = 1200     -- Niet automatisch schonen
                        AND prs_link_key = p.prs_perslid_key)
          AND p.prs_perslid_key > 10                     -- Voor de zekerheid!
          AND p.prs_perslid_apikey IS NULL
          AND (p.prs_perslid_oslogin IS NULL
               OR p.prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\') -- ' tbv. opmaak
          AND TRUNC (COALESCE (p.prs_perslid_login, p.prs_perslid_aanmaak)) = TRUNC (ADD_MONTHS (SYSDATE, -6) + 14) -- Halfjaar minus 2 weken niet ingelogd!
          AND sn.fac_srtnotificatie_code = 'CUST04'
   UNION ALL                                -- CUST25 naar te schonen persoon!
   SELECT sn.fac_srtnotificatie_code,
          NULL,
          p.prs_perslid_key,
          sn.fac_srtnotificatie_oms,
          p.prs_perslid_key,
          NULL,
          NULL,
          NULL,
          NULL,
          NULL
     FROM prs_v_aanwezigperslid p,
          prs_v_afdeling_boom ab,
          fac_srtnotificatie sn
    WHERE p.prs_afdeling_key = ab.prs_afdeling_key
          AND ab.prs_bedrijf_key = 22                              -- Huurder!
          AND INSTR (UPPER (COALESCE (p.prs_perslid_email, 'Quqelequ')), '@BRIGHTLANDS') = 0
          AND NOT EXISTS                       -- Geen lopende verplichtingen?
                (SELECT 1
                   FROM prs_v_verplichting_keys
                  WHERE prs_perslid_key = p.prs_perslid_key)
          AND NOT EXISTS       -- Niet uitgesloten voor automatische schoning?
                (SELECT 1
                   FROM prs_v_aanwezigkenmerklink
                  WHERE prs_kenmerk_key = 1200     -- Niet automatisch schonen
                        AND prs_link_key = p.prs_perslid_key)
          AND p.prs_perslid_key > 10                     -- Voor de zekerheid!
          AND p.prs_perslid_apikey IS NULL
          AND (p.prs_perslid_oslogin IS NULL
               OR p.prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\') -- ' tbv. opmaak
          AND TRUNC (COALESCE (p.prs_perslid_login, p.prs_perslid_aanmaak)) = TRUNC (ADD_MONTHS (SYSDATE, -6) + 28) -- Halfjaar minus 4 weken niet ingelogd!
          AND sn.fac_srtnotificatie_code = 'CUST25'
;

-- BLCC#70565: Overzicht uitvoerenden incl. datum+nummer laatste opdracht!
CREATE OR REPLACE VIEW BLCC_V_RAP_UREL_LASTOPDR
(
   hide_f_sortering,
   crediteurnr,
   bedrijfsnaam,
   laatste_opdracht_datum,
   laatste_opdracht_nummer,
   mld_opdr_key
)
AS
   SELECT TO_CHAR (mld_opdr_datumbegin, 'yyyymmddhh24:mi:ss') sortering,
          COALESCE (b.prs_overeenkomst_nr, '-') crediteurnr,
          b.prs_bedrijf_naam,
          o.mld_opdr_datumbegin,
          TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdrachtnr,
          o.mld_opdr_key
     FROM prs_v_aanwezigbedrijf b, mld_opdr o
    WHERE b.prs_bedrijf_uitvoerende = 1
          AND b.prs_bedrijf_key = o.mld_uitvoerende_keys
          AND NOT EXISTS (SELECT 1 FROM mld_opdr WHERE mld_uitvoerende_keys = o.mld_uitvoerende_keys AND mld_opdr_key > o.mld_opdr_key);

CREATE OR REPLACE VIEW BLCC_V_NOTI_OPDR_GEPLAND
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
    SELECT DISTINCT
           NULL                      sender,
           NULL                      receiver,
           REPLACE (t.fac_tracking_oms,
                    'gewijzigd: (leeg) -->',
                    'ingevoerd:')    omschrijving,
           n.fac_srtnotificatie_code,
           n.fac_srtnotificatie_key,
           m.mld_opdr_key,
           NULL                      xkey,
           p.prs_perslid_email       xemail,
           NULL                      xmobile
      FROM fac_tracking        t,
           (SELECT o.mld_opdr_key, m.mld_melding_key, m.prs_perslid_key_voor
              FROM mld_opdr o, mld_typeopdr t, mld_melding m
             WHERE     o.mld_typeopdr_key = t.mld_typeopdr_key
                   AND t.mld_typeopdr_isofferte = 0
                   AND m.mld_melding_key = o.mld_melding_key) m,
           fac_srtnotificatie  n,
           prs_perslid         p
     WHERE     t.fac_tracking_refkey = m.mld_opdr_key
           AND t.fac_srtnotificatie_key = 363                        -- ordpld
           AND n.fac_srtnotificatie_code = 'CUST05' -- opdrachtdatum gewijzigd
           AND m.prs_perslid_key_voor = p.prs_perslid_key
           AND p.prs_perslid_email IS NOT NULL
           AND t.fac_tracking_oms IS NOT NULL
           AND t.fac_tracking_datum >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_OPDR_GEPLAND')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_OPDR_GEPLAND');

CREATE OR REPLACE FORCE VIEW BLCC_V_RAP_KLACHTEN_AFD
(
    MELDINGKEY,
    STATUS,
    ONDERWERP,
    MELDDATUM,
    GEBOUW_CODE,
    GEBOUW_NAAM,
    AFDELING_CODE,
    AFDELING_NAAM,
    BEHANDELTEAM,
    KLACHT_MBT,
    GEGROND
)
AS
SELECT m.mld_melding_key,
       s.mld_statuses_omschrijving                status,
       m.mld_melding_onderwerp                    onderwerp,
       TRUNC (m.mld_melding_datum),
       og.alg_gebouw_code                         gebouw_code,
       og.alg_gebouw_naam                         gebouw_naam,
       mab.afdeling_naam                          afdeling_code,
       mab.afdeling_omschrijving                  afdeling_naam,
       behandelteam.mld_kenmerkmelding_waarde     behandelteam,
       betrekking_op.fac_usrdata_omschr           betrekking_op,
       gegrond.fac_usrdata_omschr                 gegrond
  FROM mld_melding                m,
       mld_stdmelding             sm,
       ins_tab_discipline         vg,
       ins_srtdiscipline          vgt,
       alg_v_allonrgoed_gegevens  og,
       mld_statuses               s,
       (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
          FROM mld_kenmerk k, mld_kenmerkmelding km
         WHERE     k.mld_kenmerk_key = 1922
               AND km.mld_kenmerk_key = k.mld_kenmerk_key) behandelteam,
       (SELECT km.mld_melding_key, ud.fac_usrdata_omschr
          FROM mld_kenmerk k, mld_kenmerkmelding km, fac_usrdata ud
         WHERE     k.mld_kenmerk_key = 1921
               AND km.mld_kenmerk_key = k.mld_kenmerk_key
               AND km.mld_kenmerkmelding_waarde = ud.fac_usrdata_key)
       betrekking_op,
       (SELECT mx.mld_melding_key,
               afd.prs_afdeling_naam             afdeling_naam,
               afd.prs_afdeling_omschrijving     afdeling_omschrijving
          FROM mld_melding          mx,
               prs_perslid          px,
               prs_v_afdeling_boom  ab,
               prs_afdeling         afd,
               prs_afdeling         div
         WHERE     px.prs_perslid_key = mx.prs_perslid_key
               AND ab.prs_afdeling_key =
                   COALESCE (mx.prs_afdeling_key, px.prs_afdeling_key)
               AND ab.prs_afdeling_key = afd.prs_afdeling_key
               AND ab.prs_afdeling_key1 = div.prs_afdeling_key) mab,
       ((SELECT km.mld_melding_key, ud.fac_usrdata_omschr
           FROM mld_kenmerk k, mld_kenmerkmelding km, fac_usrdata ud
          WHERE     k.mld_kenmerk_key = 3041
                AND km.mld_kenmerk_key = k.mld_kenmerk_key
                AND km.mld_kenmerkmelding_waarde = ud.fac_usrdata_key))
       gegrond
 WHERE     m.mld_stdmelding_key = sm.mld_stdmelding_key
       AND vg.ins_discipline_key = sm.mld_ins_discipline_key
       AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
       AND betrekking_op.mld_melding_key(+) = m.mld_melding_key
       AND behandelteam.mld_melding_key(+) = m.mld_melding_key
       -- AND UPPER (vgt.ins_srtdiscipline_omschrijving) = 'BEHANDELTEAMS'
       AND sm.mld_stdmelding_upper LIKE '%KLACHT%'
       AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
       AND m.mld_melding_key = mab.mld_melding_key
       AND m.mld_melding_key = gegrond.mld_melding_key(+)
       AND s.mld_statuses_key = m.mld_melding_status;

CREATE OR REPLACE VIEW BLCC_V_RAP_AANT_KLACHTEN_BT
(
    PERIODE,
    KLIK_FILTER,
    MELDING_DATUM,
    BEHANDELTEAM,
    KLACHT,
    KLACHT_KEY,
    MLD_MELDING_KEY,
    ONDERWERP,
    STATUS,
    TELLING
)
AS
    SELECT    EXTRACT (YEAR FROM m.mld_melding_datum)
           || '/'
           || EXTRACT (MONTH FROM m.mld_melding_datum)         periode,
           fac.safe_to_number (
                  EXTRACT (YEAR FROM m.mld_melding_datum)
               || EXTRACT (MONTH FROM m.mld_melding_datum))    klik_filter,
           m.mld_melding_datum,
           bt.mld_kenmerkmelding_waarde                        behandelteam,
           betrekking_op.fac_usrdata_omschr                    klacht,
           betrekking_op.fac_usrdata_key                       klacht_key,
           m.mld_melding_key,
           m.mld_melding_onderwerp,
           s.mld_statuses_omschrijving                         status,
           1                                                   aant
      FROM mld_melding                m,
           mld_stdmelding             sm,
           ins_tab_discipline         vg,
           ins_srtdiscipline          vgt,
           mld_statuses               s,
           alg_v_allonrgoed_gegevens  og,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
              FROM mld_kenmerk k, mld_kenmerkmelding km
             WHERE     k.mld_kenmerk_key = 1922
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key) bt,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_omschr,
                   ud.fac_usrdata_key
              FROM mld_kenmerk k, mld_kenmerkmelding km, fac_usrdata ud
             WHERE     k.mld_kenmerk_key = 1921
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) betrekking_op,
           (SELECT mx.mld_melding_key,
                   afd.prs_afdeling_naam             afdeling_naam,
                   afd.prs_afdeling_omschrijving     afdeling_omschrijving
              FROM mld_melding          mx,
                   prs_perslid          px,
                   prs_v_afdeling_boom  ab,
                   prs_afdeling         afd,
                   prs_afdeling         div
             WHERE     px.prs_perslid_key = mx.prs_perslid_key
                   AND ab.prs_afdeling_key =
                       COALESCE (mx.prs_afdeling_key, px.prs_afdeling_key)
                   AND ab.prs_afdeling_key = afd.prs_afdeling_key
                   AND ab.prs_afdeling_key1 = div.prs_afdeling_key) mab
     WHERE     m.mld_stdmelding_key = sm.mld_stdmelding_key
           AND vg.ins_discipline_key = sm.mld_ins_discipline_key
           AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
           AND bt.mld_melding_key = m.mld_melding_key
           AND betrekking_op.mld_melding_key = m.mld_melding_key
           AND s.mld_statuses_key = m.mld_melding_status
           AND sm.mld_stdmelding_upper LIKE '%KLACHT%'
           AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
           AND m.mld_melding_key = mab.mld_melding_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_KLACHTEN_BT
(
    DATUM,
    BEHANDELTEAM,
    NUMMER_BT,
    MLD_MELDING_KEY,
    MLD_ONDERWERP,
    MLD_STATUS
)
AS
SELECT TRUNC (m.mld_melding_datum)     datum,
       bt.mld_kenmerkmelding_waarde    behandelteam,
       fac.safe_to_number (
           CASE (bt.mld_kenmerkmelding_waarde)
               WHEN 'Behandelteam Property Management' THEN 1
               WHEN 'Behandelteam Facility' THEN 2
               WHEN 'Behandelteam ICT' THEN 3
               WHEN 'Behandelteam Safety' THEN 4
               WHEN 'Behandelteam Security' THEN 5
               WHEN 'Behandelteam Build' THEN 6
               ELSE 99
           END)                        nr_behandelteam,
       m.mld_melding_key,
       m.mld_melding_onderwerp,
       s.mld_statuses_omschrijving
  FROM mld_melding                m,
       mld_stdmelding             sm,
       ins_tab_discipline         vg,
       ins_srtdiscipline          vgt,
       alg_v_allonrgoed_gegevens  og,
       mld_statuses               s,
       (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde
          FROM mld_kenmerk k, mld_kenmerkmelding km
         WHERE     k.mld_kenmerk_key = 1922
               AND km.mld_kenmerk_key = k.mld_kenmerk_key) bt,
       (SELECT mx.mld_melding_key,
               afd.prs_afdeling_naam             afdeling_naam,
               afd.prs_afdeling_omschrijving     afdeling_omschrijving
          FROM mld_melding          mx,
               prs_perslid          px,
               prs_v_afdeling_boom  ab,
               prs_afdeling         afd,
               prs_afdeling         div
         WHERE     px.prs_perslid_key = mx.prs_perslid_key
               AND ab.prs_afdeling_key =
                   COALESCE (mx.prs_afdeling_key, px.prs_afdeling_key)
               AND ab.prs_afdeling_key = afd.prs_afdeling_key
               AND ab.prs_afdeling_key1 = div.prs_afdeling_key) mab
 WHERE     m.mld_stdmelding_key = sm.mld_stdmelding_key
       AND vg.ins_discipline_key = sm.mld_ins_discipline_key
       AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
       AND bt.mld_melding_key = m.mld_melding_key
       AND sm.mld_stdmelding_upper LIKE '%KLACHT%'
       AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
       AND m.mld_melding_key = mab.mld_melding_key
       AND s.mld_statuses_key = m.mld_melding_status;

CREATE OR REPLACE VIEW BLCC_V_RAP_INCIDENTMELDING
(
    JAAR,
    PERIODE,
    MLD_DATUM,
    HTML_MLD_MELDING_KEY,
    STD_MLDKEY,
    TELLING_MLD,
    DATUM_INCIDENT,
    TIJDSTIP_INCIDENT,
    ONDERWERP,
    OMSCHRIJVING,
    SUBKEUZE_VEILIGHEID,
    VERBETERVOORSTEL,
    ONM_GENOMEN_ACTIES,
    FA,
    MT,
    RWC,
    LWC,
    OMSCHR_TOEDRACHT,
    RAPP_PLICHTIG,
    RAPPORTEUR,
    SUBKEUZE_INCIDENT,
    TOELICHTING_BRANDALARM,
    HUURDER,
    ALARMERING_VIA,
    MILIEUMELDING,
    AARD_MELDING,
    INZET_BLUSPLOEG,
    INZET_GEWONDENVERVOER,
    INCIDENT_MLDFORMULIER,
    TOELICHTING_INCIDENT_MLDFORM,
    DIRECT_GENOMEN_MAATREGELEN,
    BO_INCIDENT
)
AS
    SELECT TO_CHAR (m.mld_melding_datum, 'YYYY')
           AS jaar,
          TO_CHAR (m.mld_melding_datum, 'YYYY')
       || ' / '
       || TO_CHAR (m.mld_melding_datum, 'mm')
           AS periode,
       TRUNC (m.mld_melding_datum)
           mld_datum,
          '<a class="details" onclick=''FcltMgr.openDetail("'
       || 'appl/mld/mld_melding.asp?mld_key='
       || m.mld_melding_key
       || '")''>'
       || HTF.escape_sc (m.mld_melding_key)
       || '</a>'
           mld_melding_key,
       m.mld_stdmelding_key
           std_mldkey,
       1
           telling_mld,
       fac.safe_to_date (datum_incident.mld_kenmerkmelding_waarde,
                         'dd-mm-yyyy')
           datum_incident,
       tijdstip_incident.mld_kenmerkmelding_waarde
           tijdstip_incident,
       m.mld_melding_onderwerp
           onderwerp,
       m.mld_melding_omschrijving
           omschrijving,
       subkeuze_veiligheid.omschrijving
           subkeuze_veiligheid,
       verbetervoorstel.mld_kenmerkmelding_waarde
           verbetervoorstel,
       onmiddelijk_genomen_acties.mld_kenmerkmelding_waarde
           onmiddelijk_genomen_acties,
       FA.FA
           FA,
       MT.MT
           MT,
       RWC.RWC
           RWC,
       LWC.LWC
           LWC,
       omschrijving_toedracht.mld_kenmerkmelding_waarde
           omschr_toedracht,
       rapp_plichting.omschrijving
           rapp_plichtig,
       rapporteur.mld_kenmerkmelding_waarde
           rapporteur,
       subkeuze_incident.omschrijving
           subkeuze_incident,
       toelichting_brandalarm.omschrijving
           toelichting_brandalarm,
       huurder.huurder_naam
           huurder,
       alarmering_via.omschrijving
           alarmering_via,
       milieumelding.omschrijving
           milieumelding,
       aard_melding.omschrijving
           aard_melding,
       inzet_blusploeg.omschrijving
           inzet_blusploeg,
       inzet_gewondenvervoer.omschrijving
           inzet_gewondenvervoer,
       incident_mldformulier.omschrijving
           incident_mldformulier,
       toelichting_incident_mldform.mld_kenmerkmelding_waarde
           toelichting_incident_mldformulier,
       direct_genomen_maatregelen.mld_kenmerkmelding_waarde
           direct_genomen_maatregelen,
       CASE
           WHEN (   omschrijving_toedracht.mld_kenmerkmelding_waarde
                        IS NOT NULL
                 OR rapp_plichting.omschrijving IS NOT NULL
                 OR rapporteur.mld_kenmerkmelding_waarde IS NOT NULL
                 OR subkeuze_incident.omschrijving IS NOT NULL
                 OR toelichting_brandalarm.omschrijving IS NOT NULL
                 OR huurder.huurder_naam IS NOT NULL
                 OR alarmering_via.omschrijving IS NOT NULL
                 OR milieumelding.omschrijving IS NOT NULL
                 OR aard_melding.omschrijving IS NOT NULL
                 OR inzet_blusploeg.omschrijving IS NOT NULL
                 OR inzet_gewondenvervoer.omschrijving IS NOT NULL
                 OR incident_mldformulier.omschrijving IS NOT NULL
                 OR toelichting_incident_mldform.mld_kenmerkmelding_waarde
                        IS NOT NULL
                 OR direct_genomen_maatregelen.mld_kenmerkmelding_waarde
                        IS NOT NULL)
           THEN
               1
           ELSE
               0
       END
           BO_incident
  FROM mld_melding  m,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1821
               AND km.mld_kenmerkmelding_verwijder IS NULL) datum_incident,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1841
               AND km.mld_kenmerkmelding_verwijder IS NULL) tijdstip_incident,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1801
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 45
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) subkeuze_veiligheid,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1842
               AND km.mld_kenmerkmelding_verwijder IS NULL) verbetervoorstel,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1843
               AND km.mld_kenmerkmelding_verwijder IS NULL)
       onmiddelijk_genomen_acties,
       (SELECT mld_melding_key,
               DECODE (mld_kenmerkmelding_waarde, 1, 'Ja', 'Nee')     FA
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1844
               AND km.mld_kenmerkmelding_verwijder IS NULL) FA,
       (SELECT mld_melding_key,
               DECODE (mld_kenmerkmelding_waarde, 1, 'Ja', 'Nee')     MT
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1845
               AND km.mld_kenmerkmelding_verwijder IS NULL) MT,
       (SELECT mld_melding_key,
               DECODE (mld_kenmerkmelding_waarde, 1, 'Ja', 'Nee')     RWC
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1846
               AND km.mld_kenmerkmelding_verwijder IS NULL) RWC,
       (SELECT mld_melding_key,
               DECODE (mld_kenmerkmelding_waarde, 1, 'Ja', 'Nee')     LWC
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1847
               AND km.mld_kenmerkmelding_verwijder IS NULL) LWC,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1901
               AND km.mld_kenmerkmelding_verwijder IS NULL)
       omschrijving_toedracht,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1850
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 681
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) rapp_plichting,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1851
               AND km.mld_kenmerkmelding_verwijder IS NULL) rapporteur,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1861
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 881
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) subkeuze_incident,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1881
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 901
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) toelichting_brandalarm,
       (SELECT mld_melding_key, p.prs_perslid_naam_full huurder_naam
          FROM mld_kenmerkmelding km, prs_v_perslid_fullnames_all p
         WHERE     km.mld_kenmerk_key = 1882
               AND fac.safe_to_number (mld_kenmerkmelding_waarde) =
                   p.prs_perslid_key
               AND km.mld_kenmerkmelding_verwijder IS NULL) huurder,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1883
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 781
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) alarmering_via,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1884
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 341
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) milieumelding,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1885
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 782
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) aard_melding,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1886
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 681
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) inzet_blusploeg,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1887
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 681
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) inzet_gewondenvervoer,
       (SELECT km.mld_melding_key,
               ud.fac_usrdata_code     code,
               fac_usrdata_omschr      omschrijving
          FROM mld_kenmerkmelding km, fac_usrdata ud
         WHERE     km.mld_kenmerk_key = 1888
               AND km.mld_kenmerkmelding_verwijder IS NULL
               AND ud.fac_usrtab_key = 681
               AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                   ud.fac_usrdata_key) incident_mldformulier,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1890
               AND km.mld_kenmerkmelding_verwijder IS NULL)
       toelichting_incident_mldform,
       (SELECT mld_melding_key, mld_kenmerkmelding_waarde
          FROM mld_kenmerkmelding km
         WHERE     km.mld_kenmerk_key = 1891
               AND km.mld_kenmerkmelding_verwijder IS NULL)
       direct_genomen_maatregelen
 WHERE     m.mld_stdmelding_key = 1901
       AND m.mld_melding_start_key IS NULL -- #74835 melding mag geen vervolgmelding zijn
       AND datum_incident.mld_melding_key(+) = m.mld_melding_key
       AND tijdstip_incident.mld_melding_key(+) = m.mld_melding_key
       AND subkeuze_veiligheid.mld_melding_key(+) = m.mld_melding_key
       AND verbetervoorstel.mld_melding_key(+) = m.mld_melding_key
       AND onmiddelijk_genomen_acties.mld_melding_key(+) = m.mld_melding_key
       AND FA.mld_melding_key(+) = m.mld_melding_key
       AND MT.mld_melding_key(+) = m.mld_melding_key
       AND RWC.mld_melding_key(+) = m.mld_melding_key
       AND LWC.mld_melding_key(+) = m.mld_melding_key
       AND omschrijving_toedracht.mld_melding_key(+) = m.mld_melding_key
       AND rapp_plichting.mld_melding_key(+) = m.mld_melding_key
       AND rapporteur.mld_melding_key(+) = m.mld_melding_key
       AND subkeuze_incident.mld_melding_key(+) = m.mld_melding_key
       AND toelichting_brandalarm.mld_melding_key(+) = m.mld_melding_key
       AND huurder.mld_melding_key(+) = m.mld_melding_key
       AND alarmering_via.mld_melding_key(+) = m.mld_melding_key
       AND milieumelding.mld_melding_key(+) = m.mld_melding_key
       AND aard_melding.mld_melding_key(+) = m.mld_melding_key
       AND inzet_blusploeg.mld_melding_key(+) = m.mld_melding_key
       AND inzet_gewondenvervoer.mld_melding_key(+) = m.mld_melding_key
       AND incident_mldformulier.mld_melding_key(+) = m.mld_melding_key
       AND toelichting_incident_mldform.mld_melding_key(+) =
           m.mld_melding_key
       AND direct_genomen_maatregelen.mld_melding_key(+) = m.mld_melding_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_KLACHTEN_BT_NEW
AS
    SELECT l.alg_locatie_code                           locatie,
           l.alg_locatie_omschrijving                   locatie_omschrijving,
           l.alg_locatie_plaats                         locatie_plaats,
           og.alg_gebouw_key                            gebouw_key,
           og.alg_gebouw_code                           gebouw,
           og.alg_gebouw_naam                           gebouw_naam,
           a.prs_afdeling_naam                          huurder_nr,
           a.prs_afdeling_omschrijving                  huurder_naam,
           TO_CHAR (m.mld_melding_datum, 'YYYY')        AS jaar,
              TO_CHAR (m.mld_melding_datum, 'YYYY')
           || ' / '
           || TO_CHAR (m.mld_melding_datum, 'mm')       AS periode,
           TRUNC (m.mld_melding_datum)                  mld_datum,
           m.mld_melding_key                            mld_key,
              '<a class="details" onclick=''FcltMgr.openDetail("'
           || 'appl/mld/mld_melding.asp?urole=fe&'
           || 'mld_key='
           || m.mld_melding_key
           || '")''>'
           || HTF.escape_sc (m.mld_melding_key)
           || '</a>'                                    mld_melding_key,
           m.mld_stdmelding_key                         std_mldkey,
           1                                            telling_mld,
           BCC_melding.mld_kenmerkmelding_waarde        BCC_melding,
           betrekking_op.omschrijving                   betrekking_op,
           doorzetten_naar.mld_kenmerkmelding_waarde    doorzetten_naar
      FROM mld_melding                m,
           alg_locatie                l,
           alg_v_allonrgoed_gegevens  og,
           prs_perslid                p,
           prs_afdeling               a,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1603
                   AND km.mld_kenmerkmelding_verwijder IS NULL) BCC_melding,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE     km.mld_kenmerk_key = 1922
                   AND km.mld_kenmerkmelding_verwijder IS NULL)
           doorzetten_naar,
           (SELECT km.mld_melding_key,
                   ud.fac_usrdata_code     code,
                   fac_usrdata_omschr      omschrijving
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 1921
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 921
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
                       ud.fac_usrdata_key) betrekking_op
     WHERE     m.mld_stdmelding_key = 916
           AND BCC_melding.mld_melding_key(+) = m.mld_melding_key
           AND doorzetten_naar.mld_melding_key(+) = m.mld_melding_key
           AND betrekking_op.mld_melding_key(+) = m.mld_melding_key
           AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
           AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
           AND m.prs_perslid_key_voor = p.prs_perslid_key
           AND p.prs_afdeling_key = a.prs_afdeling_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_CONT_EHBO_TAS
(
    CONTROLEJAAR,
    TAS,
    INS_DEEL_KEY,
    COLLECTIEF_HUURDERSPEC,
    EIGENAAR_PRS_PERSLID_KEY,
    EIGENAAR_TAS,
    EMAIL_EIGENAAR,
    CONTROLE_DATUM,
    AANTAL_REMINDERS,
    CONTROLE_STATUS,
    UITVOERDATUM,
    BESTELLING,
    MELDING_KEY,
    MELDING_OMSCHR,
    STATUS_MELDING,
    DATUM_BESTELOPDR_BIECO,
    STATUS_BESTELOPDR_BIECO,
    DATUM_BESTELLING_AFG
)
AS
      SELECT ctr.jaar                                                     controlejaar,
             d.ins_deel_omschrijving,
             d.ins_deel_key,
             col_hs.fac_usrdata_omschr                                    collectief_huurderspec,
             p.prs_perslid_key,
             p.prs_perslid_naam_full,
             pe.prs_perslid_email,
             ctr.ins_deelsrtcontrole_datum,
             aant_reminders.aant_x                                        aantal_reminders,
             ctr.deelsrtcontrole_status,
             best.datum,
             best.bestelling_tas,
             best.mld_melding_key,
             best.mld_stdmelding_omschrijving,
             best.mld_statuses_omschrijving,
             best.opdr_bieco,
             best.status_opdr_bieco,
             fac.safe_to_date (afgh.bestelling_afgehaald, 'dd-mm-yyy')    datum_afgehaald
        FROM ins_deel                   d,
             prs_v_perslid_fullnames_all p,
             prs_perslid                pe,
             (SELECT kd.ins_deel_key, ud.fac_usrdata_omschr
                FROM ins_kenmerkdeel kd,
                     ins_kenmerk    k,
                     fac_usrdata    ud,
                     fac_usrtab     ut
               WHERE     kd.ins_kenmerk_key = k.ins_kenmerk_key
                     AND k.ins_kenmerk_key = 111
                     AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
                         ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = ut.fac_usrtab_key
                     AND ut.fac_usrtab_key = 941) col_hs,
             ((SELECT TO_CHAR (TRUNC (dc.ins_deelsrtcontrole_datum, 'YEAR'),
                               'YYYY')
                          jaar,
                      ehbo.ins_deel_key,            -- reeds gecontroleerde tassen
                      ins_deel_omschrijving,
                      dc.ins_deelsrtcontrole_datum,
                      (SELECT icm.ins_controlemode_oms
                         FROM ins_controlemode icm
                        WHERE icm.ins_controlemode_key = dc.ins_controlemode_key)
                          controlemode_omschrijving,
                      (SELECT lcl.x ('fc2l.fac_code2label_label',
                                     fc2l.fac_code2label_key,
                                     fc2l.fac_code2label_label)
                         FROM fac_code2label fc2l
                        WHERE     fc2l.fac_code2label_domein = 'controle'
                              AND fc2l.fac_code2label_code =
                                  dc.ins_deelsrtcontrole_status)
                          deelsrtcontrole_status
                 FROM ins_deel ehbo, ins_deelsrtcontrole dc
                WHERE     ehbo.ins_srtdeel_key = 241
                      AND dc.ins_deel_key = ehbo.ins_deel_key
                      AND dc.ins_deelsrtcontrole_status = 6 -- alle voltooide taken
               UNION ALL
               SELECT TO_CHAR (
                          TRUNC (
                              fac.nextcyclusdatedeel (d.ins_deel_key,
                                                      d.ins_srtcontrole_key,
                                                      1),
                              'YEAR'),
                          'YYYY')
                          jaar,
                      d.ins_deel_key,
                      d.ins_deel_omschrijving,
                      fac.nextcyclusdatedeel (d.ins_deel_key,
                                              d.ins_srtcontrole_key,
                                              1),
                      ''
                          AS ctrmode,
                      ''
                          AS status
                 FROM (SELECT sc.ins_srtcontrole_key,
                              d.ins_deel_key,
                              d.ins_deel_omschrijving,
                              d.ins_deel_opmerking,
                              sc.ins_srtcontrole_periode,
                              sd.ins_srtdeel_omschrijving
                         FROM ins_srtcontrole       sc,
                              ins_discipline        di,
                              ins_v_aanwezigsrtgroep sg,
                              ins_v_aanwezigsrtdeel sd,
                              ins_v_aanwezigdeel    d
                        WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
                              AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
                              AND di.ins_discipline_key = sg.ins_discipline_key
                              AND d.ins_srtdeel_key = 241) d
                      LEFT OUTER JOIN ins_srtcontroledl_xcp xcp
                          ON     xcp.ins_deel_key = d.ins_deel_key
                             AND xcp.ins_srtcontrole_key = d.ins_srtcontrole_key
                WHERE     COALESCE (xcp.ins_srtcontroledl_xcp_periode,
                                    d.ins_srtcontrole_periode) >
                          0
                      AND d.ins_deel_key NOT IN -- als een inspectie al is ingepland weegt dat zwaarder dan de oorspronkelijke datum, object komt op de lijst als plandatum komende maand is
                              (SELECT ins_deel_key
                                 FROM ins_v_udr_deelinspect ins, ins_deel ehbo
                                WHERE     ins_deelsrtcontrole_plandatum IS NOT NULL
                                      AND ins_deelsrtcontrole_datum IS NULL
                                      AND ehbo.ins_deel_key = ins.deel_key
                                      AND ehbo.ins_srtdeel_key = 241
                                      AND ehbo.ins_deel_verwijder IS NULL)
               UNION ALL
               SELECT TO_CHAR (TRUNC (ins_deelsrtcontrole_plandatum, 'YEAR'),
                               'YYYY')    jaar,
                      ehbo.ins_deel_key,
                      ehbo.ins_deel_omschrijving,
                      ins_deelsrtcontrole_plandatum,
                      ''                  ctrmode,
                      deelsrtcontrole_status
                 FROM ins_v_udr_deelinspect ins, ins_deel ehbo
                WHERE     ins_deelsrtcontrole_plandatum IS NOT NULL
                      AND ins_deelsrtcontrole_datum IS NULL
                      AND ehbo.ins_deel_key = ins.deel_key
                      AND ehbo.ins_srtdeel_key = 241)) ctr,
             (SELECT *
                FROM (SELECT sm.mld_stdmelding_key,
                             k.mld_kenmerk_key,
                             k.mld_kenmerk_omschrijving,
                             tas.ins_deel_key,
                             tas.bestelling_tas,
                             tas.eigenaar,
                             tas.datum
                        FROM mld_srtkenmerk            sk,
                             mld_kenmerk               k,
                             mld_stdmelding            sm,
                             blcc_v_bestelling_ehbo_tas tas
                       WHERE     sk.mld_srtkenmerk_upper = 'BESTELLING'
                             AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                             AND sm.mld_stdmelding_key = k.mld_stdmelding_key
                             AND sm.mld_stdmelding_key = 1961
                             AND SUBSTR (ehbo_tas, -3, 3) =
                                 SUBSTR (k.mld_kenmerk_omschrijving, -3, 3)
                      UNION ALL
                      SELECT sm.mld_stdmelding_key,
                             k.mld_kenmerk_key,
                             'Bestelling tas ' || SUBSTR (tas.EHBO_TAS, -3, 3)
                                 omschr,
                             tas.ins_deel_key,
                             tas.bestelling_tas,
                             tas.eigenaar,
                             tas.datum
                        FROM mld_stdmelding            sm,
                             mld_melding               m,
                             mld_melding_object        mo,
                             mld_kenmerk               k,
                             blcc_v_bestelling_ehbo_tas tas
                       WHERE     sm.mld_stdmelding_key = 1962
                             AND sm.mld_stdmelding_key = m.mld_stdmelding_key
                             AND m.mld_melding_key = mo.mld_melding_key
                             AND k.mld_kenmerk_key = 2143
                             AND sm.mld_stdmelding_key = k.mld_stdmelding_key
                             AND tas.ins_deel_key = mo.ins_deel_key) b,
                     (SELECT m.mld_melding_key,
                             sm.mld_stdmelding_key,
                             sm.mld_stdmelding_omschrijving,
                             m.mld_melding_datum,
                             st.mld_statuses_omschrijving,
                             bieco.mld_opdr_datumbegin            opdr_bieco,
                             bieco.mld_statusopdr_omschrijving    status_opdr_bieco
                        FROM mld_melding   m,
                             mld_statuses  st,
                             mld_stdmelding sm,
                             (SELECT o.mld_melding_key,
                                     o.mld_opdr_datumbegin,
                                     o.mld_opdr_einddatum,
                                     s.mld_statusopdr_omschrijving
                                FROM mld_opdr o, mld_statusopdr s
                               WHERE     o.mld_uitvoerende_keys = 27361   -- Bieco
                                     AND s.mld_statusopdr_key =
                                         o.mld_statusopdr_key) bieco
                       WHERE     m.mld_stdmelding_key IN (1961, 1962)
                             AND st.mld_statuses_key = m.mld_melding_status
                             AND sm.mld_stdmelding_key = m.mld_stdmelding_key
                             AND m.mld_melding_key = bieco.mld_melding_key(+)) m
               WHERE m.mld_stdmelding_key(+) = b.mld_stdmelding_key) best,
             (  SELECT t.fac_tracking_refkey,
                       EXTRACT (YEAR FROM t.fac_tracking_datum)     jaar,
                       COUNT (t.fac_tracking_datum)                 aant_x
                  FROM fac_tracking t, ins_deel d, fac_srtnotificatie sn
                 WHERE     t.fac_tracking_refkey = d.ins_deel_key
                       AND sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
                       AND d.ins_srtdeel_key = 241
                       AND sn.fac_srtnotificatie_key = 581               -- CUST06
              GROUP BY t.fac_tracking_refkey,
                       EXTRACT (YEAR FROM t.fac_tracking_datum)) aant_reminders,
             (SELECT km.mld_melding_key,
                     k.mld_kenmerk_omschrijving,
                     SUBSTR (k.mld_kenmerk_omschrijving, -3, 3)    tas_nr,
                     km.mld_kenmerkmelding_aanmaak                 bestelling_afgehaald
                FROM mld_kenmerkmelding km, mld_kenmerk k, mld_srtkenmerk sk
               WHERE     km.mld_kenmerk_key = k.mld_kenmerk_key
                     AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                     AND sk.mld_srtkenmerk_key = 1521) afgh
       WHERE     d.ins_srtdeel_key = 241
             AND d.prs_perslid_key_beh = p.prs_perslid_key
             AND pe.prs_perslid_key = p.prs_perslid_key
             AND d.ins_deel_key = ctr.ins_deel_key
             AND ctr.jaar IS NOT NULL
             AND d.ins_deel_key = best.ins_deel_key(+)
             AND TO_CHAR (TRUNC (best.datum(+), 'YEAR'), 'YYYY') = ctr.jaar
             AND TRUNC (best.mld_melding_datum(+)) =
                 TRUNC (LAST_DAY (ctr.ins_deelsrtcontrole_datum) + 1, 'Month') -- de bestellingen worden op de 1e van de volgende maand aangemaakt
             AND aant_reminders.fac_tracking_refkey(+) = d.ins_deel_key
             AND aant_reminders.jaar(+) = ctr.jaar
             AND afgh.mld_melding_key(+) = best.mld_melding_key
             AND afgh.tas_nr(+) = SUBSTR (d.ins_deel_omschrijving, -3, 3)
             AND col_hs.ins_deel_key(+) = d.ins_deel_key
    ORDER BY d.ins_deel_omschrijving;

CREATE OR REPLACE VIEW BLCC_V_NOTI_BHV_T
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY
)
AS
    SELECT NULL                                                         sender,
           prs_perslid_key                                              receiver,
           ins_srtcontrole_omschrijving
           || '/ ERO refresher course (theory)'                         text,
           'CUST07'                                                     code, -- herhaling BHV
           ins_deel_key                                                 refkey,
           NULL
      FROM (SELECT d.ins_deel_key,
                   d.ins_deel_omschrijving,
                   d.ins_deel_opmerking,
                   sc.ins_srtcontrole_omschrijving,
                   sd.ins_srtdeel_omschrijving,
                   p.prs_perslid_email,
                   p.prs_perslid_key
              FROM ins_srtcontrole         sc,
                   ins_discipline          di,
                   ins_v_aanwezigsrtgroep  sg,
                   ins_v_aanwezigsrtdeel   sd,
                   ins_v_aanwezigdeel      d,
                   prs_perslid             p
             WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
                   AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
                   AND sc.ins_srtinstallatie_key = sd.ins_srtdeel_key -- taken op trainingen zijn op srtdeel niveau vastgeleged
                   AND di.ins_discipline_key = sg.ins_discipline_key
                   AND d.prs_perslid_key_beh = p.prs_perslid_key
                   AND (   COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >=
                           SYSDATE
                        OR d.ins_deel_vervaldatum IS NULL)
                   AND d.ins_deel_verwijder IS NULL
                   AND sc.ins_srtcontrole_key = 51) BHV_T
     WHERE     TO_CHAR (SYSDATE, 'dd') = '01'       -- Elk jaar
           AND TO_CHAR (SYSDATE, 'mm') IN ('02');

CREATE OR REPLACE VIEW BLCC_V_WERKPLEK
AS
SELECT r.alg_ruimte_key,
          g.alg_gebouw_code
       || '-'
       || v.alg_verdieping_code
       || '-'
       || r.alg_ruimte_nr    ruimte,
       r.alg_ruimte_verwijder
  FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
 WHERE     r.alg_verdieping_key = v.alg_verdieping_key
       AND v.alg_gebouw_key = g.alg_gebouw_key;

CREATE OR REPLACE VIEW BLCC_V_EHBO_TASSEN
AS
    SELECT d.ins_deel_key, d.ins_deel_omschrijving, d.ins_deel_verwijder
      FROM ins_deel d
     WHERE d.ins_srtdeel_key = 241;

CREATE OR REPLACE VIEW BLCC_V_INS_QRC_ALG
(
    HIDE_F_SORT,
    LOCATIE_CODE,
    FCLT_F_LOCATIE,
    FCLT_F_GEBOUW,
    FCLT_F_PLAATS,
    RUIMTENR,
    NAAM,
    FCLT_F_DISCIPLINE,
    FCLT_F_OBJECTGROEP,
    FCLT_F_OBJECTSOORT,
    FCLT_F_IDENTIFICATIE,
    FCLT_F_BOOKMARK,
    INS_DEEL_KEY,
    INS_SRTDEEL_KEY,
    FCLT_3D_DISCIPLINE_KEY,
    FCLT_3D_LOCATIE_KEY,
    INS_ALG_RUIMTE_TYPE,
    INS_ALG_RUIMTE_KEY,
    BOOKMARK_ID,
    GEKOPPELD_AAN
)
AS
    SELECT i.ins_deel_omschrijving
               hide_f_sort,
           l.alg_locatie_code,
           l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
               fclt_f_locatie,
           o.alg_gebouw_omschrijving
               fclt_f_gebouw,
           SUBSTR (o.alg_plaatsaanduiding, 13)
               fclt_f_plaats,
           o.alg_ruimte_nr,
           NULL
               prs_perslid_naam,
           d.ins_discipline_omschrijving
               fclt_f_discipline,
           g.ins_srtgroep_omschrijving
               fclt_f_objectgroep,
           s.ins_srtdeel_omschrijving
               fclt_f_objectsoort,
           i.ins_deel_omschrijving
               fclt_f_identificatie,
           b.fac_bookmark_naam
               fclt_f_bookmark,
           i.ins_deel_key,
           s.ins_srtdeel_key,
           i.ins_discipline_key
               fclt_3d_discipline_key,
           l.alg_locatie_key
               fclt_3d_locatie_key,
           i.ins_alg_ruimte_type,
           i.ins_alg_ruimte_key,
           b.fac_bookmark_id
               hide_f_bookmark_id,
           'Ruimte'
               Gekoppeld_aan
      FROM ins_deel             i,
           ins_v_alg_overzicht  o,
           ins_srtdeel          s,
           ins_srtgroep         g,
           ins_discipline       d,
           alg_locatie          l,
           fac_bookmark         b
     WHERE     UPPER (b.fac_bookmark_naam) = 'QRC NAAR OBJECT'
           AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
           AND ins_deel_verwijder IS NULL
           AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
           AND i.ins_deel_module = 'INS'
           AND i.ins_deel_parent_key IS NULL
           AND s.ins_srtdeel_key = i.ins_srtdeel_key
           AND g.ins_srtgroep_key = s.ins_srtgroep_key
           AND d.ins_discipline_key = g.ins_discipline_key
           AND o.alg_onroerendgoed_keys =
               COALESCE (i.ins_alg_ruimte_key_org, i.ins_alg_ruimte_key)
           AND o.alg_onroerendgoed_type =
               COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type)
           AND COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type) IN
                   ('T', 'R', 'W')
           AND o.alg_locatie_key = i.ins_alg_locatie_key
           AND l.alg_locatie_key = i.ins_alg_locatie_key
    UNION ALL
    SELECT i.ins_deel_omschrijving           hide_f_sort,
           NULL,
           NULL                              fclt_f_locatie,
           NULL                              fclt_f_gebouw,
           NULL                              fclt_f_plaats,
           NULL,
           p.prs_perslid_naam,
           d.ins_discipline_omschrijving     fclt_f_discipline,
           g.ins_srtgroep_omschrijving       fclt_f_objectgroep,
           s.ins_srtdeel_omschrijving        fclt_f_objectsoort,
           i.ins_deel_omschrijving           fclt_f_identificatie,
           b.fac_bookmark_naam               fclt_f_bookmark,
           i.ins_deel_key,
           s.ins_srtdeel_key,
           i.ins_discipline_key              fclt_3d_discipline_key,
           NULL                              fclt_3d_locatie_key,
           i.ins_alg_ruimte_type,
           i.ins_alg_ruimte_key,
           b.fac_bookmark_id                 hide_f_bookmark_id,
           'Persoon'
      FROM ins_deel        i,
           ins_srtdeel     s,
           ins_srtgroep    g,
           prs_perslid     p,
           ins_discipline  d,
           fac_bookmark    b
     WHERE     UPPER (b.fac_bookmark_naam) = 'QRC NAAR OBJECT'
           AND COALESCE (b.fac_bookmark_expire, SYSDATE + 1) > SYSDATE
           AND ins_deel_verwijder IS NULL
           AND COALESCE (i.ins_deel_vervaldatum, SYSDATE + 1) > SYSDATE
           AND i.ins_deel_module = 'INS'
           AND i.ins_deel_parent_key IS NULL
           AND s.ins_srtdeel_key = i.ins_srtdeel_key
           AND g.ins_srtgroep_key = s.ins_srtgroep_key
           AND d.ins_discipline_key = g.ins_discipline_key
           AND p.prs_perslid_key =
               COALESCE (i.ins_alg_ruimte_key_org, i.ins_alg_ruimte_key)
           AND COALESCE (i.ins_alg_ruimte_type_org, i.ins_alg_ruimte_type) =
               'P';

-- notificatie naar BT SHE om te informeren over het onboarden van een nieuwe BHV-er
-- als Acaleph klaar is met de training van de nieuwe BHV-er (opdr afm) moet een notificatie verstuurd worden
CREATE OR REPLACE VIEW BLCC_V_NOTI_SHE
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
    SELECT DISTINCT
           NULL                      sender,
           NULL                      receiver,
           REPLACE (n.fac_srtnotificatie_oms, '##KEY##', m.mld_melding_key),
           fac_srtnotificatie_code,
           n.fac_srtnotificatie_key,
           o.mld_opdr_key,
           NULL                      xkey,
           she.prs_perslid_email     xemail,
           NULL                      xmobile
      FROM fac_tracking        t,
           mld_melding         m,
           mld_stdmelding      sm,
           mld_opdr            o,
           fac_srtnotificatie  n,
           (SELECT p.prs_perslid_email
              FROM fac_groep g, fac_gebruikersgroep gg, prs_perslid p
             WHERE     g.fac_groep_upper = 'BT BHV' -- BLCC#83333 Notificaties BHV
                   AND gg.fac_groep_key = g.fac_groep_key
                   AND p.prs_perslid_key = gg.prs_perslid_key) she
     WHERE     t.fac_tracking_refkey = o.mld_opdr_key
           AND o.mld_melding_key = m.mld_melding_key
           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
           AND t.fac_srtnotificatie_key = 58                         -- ORDAFM
           AND n.fac_srtnotificatie_code = 'CUST09'
           AND m.mld_stdmelding_key = 2121 -- aanvraag opleiding BHV ivm onboarding
           AND t.fac_tracking_datum >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) = 'BLCC_V_NOTI_SHE')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) = 'BLCC_V_NOTI_SHE');

-- Herhalingen EHBO Rode Kruis
CREATE OR REPLACE VIEW blcc_v_rap_ehbo_rk
(
    ins_deel_key,
    omschrijving,
    opmerking,
    soortdeel_key,
    soort_opleiding,
    collectief_huurderspec,
    po_nummer,
    prs_perslid_key,
    prs_afdeling_omschrijving,
    perslid_email,
    perslid_naam_full,
    perslid_naam_friendly,
    datum_laatste_training
)
AS
    SELECT d.ins_deel_key,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sd.ins_srtdeel_key,
           sd.ins_srtdeel_omschrijving,
           coll_huurderspec.fac_usrdata_code
               coll_hrdspec,
           po.ins_kenmerkdeel_waarde
               po_nummer,
           p.prs_perslid_key,
           a.prs_afdeling_omschrijving,
           p.prs_perslid_email,
              prs_perslid_naam
           || DECODE (p.prs_perslid_voorletters,
                      NULL, '',
                      ', ' || p.prs_perslid_voorletters)
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      ' ' || p.prs_perslid_tussenvoegsel)
           || DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      ' (' || p.prs_perslid_voornaam || ')')
               prs_perslid_naam_full,
              DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      p.prs_perslid_voornaam || ' ')
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      p.prs_perslid_tussenvoegsel || ' ')
           || prs_perslid_naam
               prs_perslid_naam_friendly,
           idsc.ins_deelsrtcontrole_datum
               datum_laatste_training
      FROM ins_discipline          di,
           ins_v_aanwezigsrtgroep  sg,
           ins_v_aanwezigsrtdeel   sd,
           ins_v_aanwezigdeel      d,
           prs_perslid             p,
           prs_afdeling            a,
           (SELECT idsc.ins_deel_key, idsc.ins_deelsrtcontrole_datum
              FROM ins_deelsrtcontrole idsc
             WHERE idsc.ins_srtcontrole_key = 53) idsc,
           (SELECT kd.ins_deel_key, ud.fac_usrdata_code
              FROM ins_kenmerk      k,
                   ins_srtkenmerk   sk,
                   ins_kenmerkdeel  kd,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 85
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL
                   AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND ut.fac_usrtab_key = 941) coll_huurderspec,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
              FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 321
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) po
     WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
           AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
           AND di.ins_discipline_key = sg.ins_discipline_key
           AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
           AND coll_huurderspec.ins_deel_key(+) = d.ins_deel_key
           AND po.ins_deel_key(+) = d.ins_deel_key
           AND a.prs_afdeling_key = p.prs_afdeling_key
           AND sd.ins_srtdeel_key = 287         -- EHBO Rode kruis opleidingen
           AND (   COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
                OR d.ins_deel_vervaldatum IS NULL)
           AND d.ins_deel_verwijder IS NULL
           AND idsc.ins_deel_key(+) = d.ins_deel_key;

-- Herhalingen ploegleider
CREATE OR REPLACE VIEW blcc_v_rap_ploegleider
(
    ins_deel_key,
    omschrijving,
    opmerking,
    soortdeel_key,
    soort_opleiding,
    collectief_huurderspec,
    po_nummer,
    prs_perslid_key,
    prs_afdeling_omschrijving,
    perslid_email,
    perslid_naam_full,
    perslid_naam_friendly,
    datum_laatste_training
)
AS
    SELECT d.ins_deel_key,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sd.ins_srtdeel_key,
           sd.ins_srtdeel_omschrijving,
           coll_huurderspec.fac_usrdata_code
               coll_hrdspec,
           po.ins_kenmerkdeel_waarde
               po_nummer,
           p.prs_perslid_key,
           a.prs_afdeling_omschrijving,
           p.prs_perslid_email,
              prs_perslid_naam
           || DECODE (p.prs_perslid_voorletters,
                      NULL, '',
                      ', ' || p.prs_perslid_voorletters)
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      ' ' || p.prs_perslid_tussenvoegsel)
           || DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      ' (' || p.prs_perslid_voornaam || ')')
               prs_perslid_naam_full,
              DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      p.prs_perslid_voornaam || ' ')
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      p.prs_perslid_tussenvoegsel || ' ')
           || prs_perslid_naam
               prs_perslid_naam_friendly,
           idsc.ins_deelsrtcontrole_datum
               datum_laatste_training
      FROM ins_discipline          di,
           ins_v_aanwezigsrtgroep  sg,
           ins_v_aanwezigsrtdeel   sd,
           ins_v_aanwezigdeel      d,
           prs_perslid             p,
           prs_afdeling            a,
           (SELECT idsc.ins_deel_key, idsc.ins_deelsrtcontrole_datum
              FROM ins_deelsrtcontrole idsc
             WHERE idsc.ins_srtcontrole_key = 52) idsc,
           (SELECT kd.ins_deel_key, ud.fac_usrdata_code
              FROM ins_kenmerk      k,
                   ins_srtkenmerk   sk,
                   ins_kenmerkdeel  kd,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 85
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL
                   AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND ut.fac_usrtab_key = 941) coll_huurderspec,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
              FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 321
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) po
     WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
           AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
           AND di.ins_discipline_key = sg.ins_discipline_key
           AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
           AND coll_huurderspec.ins_deel_key(+) = d.ins_deel_key
           AND po.ins_deel_key(+) = d.ins_deel_key
           AND a.prs_afdeling_key = p.prs_afdeling_key
           AND sd.ins_srtdeel_key = 285                         -- Ploegleider
           AND (   COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
                OR d.ins_deel_vervaldatum IS NULL)
           AND d.ins_deel_verwijder IS NULL
           AND idsc.ins_deel_key(+) = d.ins_deel_key;

-- Herhalingen BHV theorie per jaar
CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_HERHALING_T
(
    INS_DEEL_KEY,
    OMSCHRIJVING,
    OPMERKING,
    SOORTDEEL_KEY,
    SOORT_OPLEIDING,
    COLLECTIEF_HUURDERSPEC,
    PO_NUMMER,
    PRS_PERSLID_KEY,
    PERSLID_EMAIL,
    PERSLID_NAAM_FULL,
    PERSLID_NAAM_FRIENDLY,
    CODE_HERHALING_THEORIE,
    REGISTRATIEDATUM_CODE,
    JAARTAL_CODE
)
AS
    SELECT d.ins_deel_key,
           d.ins_deel_omschrijving,
           d.ins_deel_opmerking,
           sd.ins_srtdeel_key,
           sd.ins_srtdeel_omschrijving,
           coll_huurderspec.fac_usrdata_code
               coll_hrdspec,
           po.ins_kenmerkdeel_waarde
               PO_nummer,
           p.prs_perslid_key,
           p.prs_perslid_email,
              prs_perslid_naam
           || DECODE (p.prs_perslid_voorletters,
                      NULL, '',
                      ', ' || p.prs_perslid_voorletters)
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      ' ' || p.prs_perslid_tussenvoegsel)
           || DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      ' (' || p.prs_perslid_voornaam || ')')
               prs_perslid_naam_full,
              DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      p.prs_perslid_voornaam || ' ')
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      p.prs_perslid_tussenvoegsel || ' ')
           || prs_perslid_naam
               prs_perslid_naam_friendly,
           code.ins_kenmerkdeel_waarde
               code_herh_theorie,
           code.ins_kenmerkdeel_aanmaak,
           EXTRACT (YEAR FROM ins_kenmerkdeel_aanmaak)
               jaar
      FROM ins_discipline          di,
           ins_v_aanwezigsrtgroep  sg,
           ins_v_aanwezigsrtdeel   sd,
           ins_v_aanwezigdeel      d,
           prs_perslid             p,
           (SELECT kd.ins_deel_key,
                   kd.ins_kenmerkdeel_waarde,
                   kd.ins_kenmerkdeel_aanmaak
              FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 261
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) code,
           (SELECT kd.ins_deel_key, ud.fac_usrdata_code
              FROM ins_kenmerk      k,
                   ins_srtkenmerk   sk,
                   ins_kenmerkdeel  kd,
                   fac_usrdata      ud,
                   fac_usrtab       ut
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 85
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL
                   AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND ut.fac_usrtab_key = 941) coll_huurderspec,
           (SELECT kd.ins_deel_key, kd.ins_kenmerkdeel_waarde
              FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
             WHERE     k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
                   AND sk.ins_srtkenmerk_key = 321
                   AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                   AND kd.ins_kenmerkdeel_verwijder IS NULL) PO
     WHERE     sd.ins_srtdeel_key = d.ins_srtdeel_key
           AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
           AND di.ins_discipline_key = sg.ins_discipline_key
           AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
           AND code.ins_deel_key = d.ins_deel_key
           AND coll_huurderspec.ins_deel_key(+) = d.ins_deel_key
           AND po.ins_deel_key(+) = d.ins_deel_key
           AND sd.ins_srtdeel_key = 281               -- BHV basis opleidingen
           AND (   COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
                OR d.ins_deel_vervaldatum IS NULL)
           AND d.ins_deel_verwijder IS NULL;

CREATE OR REPLACE VIEW blcc_v_rap_bhv_herh_t_voltooid
(
    ins_deel_key,
    omschrijving,
    soort_opleiding,
    perslid_key,
    mdw_email,
    mdw_naam,
    code_herh_theorie,
    jaartal_code_uitgegeven,
    datum_theorie_voltooid
)
AS
    SELECT d.ins_deel_key,
           d.omschrijving,
           d.soort_opleiding,
           d.prs_perslid_key,
           d.perslid_email,
           d.perslid_naam_full,
           d.code_herhaling_theorie,
           d.jaartal_code,
           idsc.ins_deelsrtcontrole_datum
      FROM ins_deelsrtcontrole idsc, blcc_v_rap_bhv_herhaling_t d
     WHERE     d.ins_deel_key = idsc.ins_deel_key
           AND idsc.ins_srtcontrole_key = 51
           AND EXTRACT (YEAR FROM idsc.ins_deelsrtcontrole_datum) =
               d.jaartal_code;

CREATE OR REPLACE VIEW BLCC_V_SELECT_BHV
(
    PRS_PERSLID_KEY,
    PRS_PERSLID_OMSCHR,
    PRS_PERSLID_VERWIJDER
)
AS
    SELECT prs_perslid_key,
              p.prs_perslid_naam
           || DECODE (p.prs_perslid_voorletters,
                      NULL, '',
                      ', ' || p.prs_perslid_voorletters)
           || DECODE (p.prs_perslid_tussenvoegsel,
                      NULL, '',
                      ' ' || p.prs_perslid_tussenvoegsel)
           || DECODE (p.prs_perslid_voornaam,
                      NULL, '',
                      ' (' || p.prs_perslid_voornaam || ')') prs_perslid,
           p.prs_perslid_verwijder
      FROM prs_perslid  p,
           (SELECT kl.prs_link_key, kl.prs_kenmerklink_waarde geb_datum
              FROM prs_kenmerk k, prs_kenmerklink kl
             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                   AND k.prs_kenmerk_upper = 'GEBOORTEDATUM') gd
     WHERE p.prs_perslid_key = gd.prs_link_key(+);


-- Notificatie naar nieuwe BHV-er ter info dat zijn aanvraag is ingediend
CREATE OR REPLACE FORCE VIEW blcc_v_noti_bhv_nieuw
(
    sender,
    receiver,
    text,
    code,
    fac_srtnotificatie_key,
    key,
    xkey,
    xemail,
    xmobile
)
AS
    SELECT NULL                                   sender,
           NULL                                   receiver,
              'Aanvraag BHV opleiding geregistreerd onder nummer '
           || m.mld_melding_key                   text,
           sn.fac_srtnotificatie_code,
           sn.fac_srtnotificatie_key,
           m.mld_melding_key,
           NULL                                   xkey,
           COALESCE (new_p.email, old_p.email)    xemail,
           NULL                                   xmobile
      FROM mld_melding         m,
           fac_tracking        t,
           fac_srtnotificatie  sn,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde email
              FROM mld_kenmerkmelding km, mld_kenmerk k, mld_srtkenmerk sk
             WHERE     km.mld_kenmerk_key = k.mld_kenmerk_key
                   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                   AND sk.mld_srtkenmerk_key = 1545) new_p,
           (SELECT km.mld_melding_key, p.prs_perslid_email email
              FROM mld_kenmerkmelding  km,
                   mld_kenmerk         k,
                   mld_srtkenmerk      sk,
                   prs_perslid         p
             WHERE     km.mld_kenmerk_key = k.mld_kenmerk_key
                   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
                   AND p.prs_perslid_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
                   AND sk.mld_srtkenmerk_key = 1661) old_p
     WHERE     m.mld_stdmelding_key = 2121 -- aanvraag opleiding/onboarding nieuwe BHV-er
           AND t.fac_tracking_refkey = m.mld_melding_key
           AND t.fac_srtnotificatie_key = 43                         -- MLDNEW
           AND new_p.mld_melding_key(+) = m.mld_melding_key
           AND old_p.mld_melding_key(+) = m.mld_melding_key
           AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
           AND t.fac_tracking_datum >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_BHV_NEW')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_BHV_NEW');

-- Uitnodiging nieuwe BV-er om voor te bereiden op het interview
CREATE OR REPLACE VIEW BLCC_V_NOTI_BHV_INTERVIEW
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY
)
AS
    SELECT NULL                        sender,
           p.prs_perslid_key           receiver,
           'Instructie onboarding'     text,
           'CUST11'                    code,                  -- herhaling BHV
           d.ins_deel_key              refkey,
           NULL
      FROM ins_deel            d,
           fac_tracking        t,
           prs_perslid         p,
           fac_srtnotificatie  sn
     WHERE     d.ins_srtdeel_key = 281                            -- BHV basis
           AND t.fac_tracking_refkey = d.ins_deel_key
           AND sn.fac_srtnotificatie_key = 96                        -- INSNEW
           AND p.prs_perslid_key = d.prs_perslid_key_beh
           AND sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
           AND t.fac_tracking_datum >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_BHV_INTERVIEW')
           AND t.fac_tracking_datum <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_BHV_INTERVIEW');

-- notificatie naar BT SHE dat het interview gepland kan worden
CREATE OR REPLACE VIEW BLCC_V_NOTI_PLAN_INTERVIEW
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
    SELECT DISTINCT
           NULL                     sender,
           NULL                     receiver,
              'Plan interview onboarding voor '
           || p.prs_perslid_naam_friendly
           || ' ('
           || d.ins_deel_omschrijving
           || ')'                   text,
           sn.fac_srtnotificatie_code,
           sn.fac_srtnotificatie_key,
           d.ins_deel_key,
           NULL                     xkey,
           she.prs_perslid_email    xemail,
           NULL                     xmobile
      FROM ins_srtkenmerk           sk,
           ins_kenmerk              k,
           ins_kenmerkdeel          kd,
           ins_deel                 d,
           fac_srtnotificatie       sn,
           prs_v_perslid_fullnames  p,
           (SELECT p.prs_perslid_email
              FROM fac_groep g, fac_gebruikersgroep gg, prs_perslid p
             WHERE     g.fac_groep_upper = 'BT BHV' -- BLCC#83333 Notificaties BHV
                   AND gg.fac_groep_key = g.fac_groep_key
                   AND p.prs_perslid_key = gg.prs_perslid_key) she
     WHERE     d.ins_srtdeel_key = 281                            -- BHV basis
           AND kd.ins_deel_key = d.ins_deel_key
           AND k.ins_kenmerk_key = kd.ins_kenmerk_key
           AND sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key
           AND sk.ins_srtkenmerk_key = 341 -- vinkje onboarding voltooid is gezet
           AND sn.fac_srtnotificatie_code = 'CUST12'
           AND p.prs_perslid_key = d.prs_perslid_key_beh
           AND kd.ins_kenmerkdeel_aanmaak >
               (SELECT   fac_notificatie_job_nextrun
                       - fac_notificatie_job_interval / 24
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_PLAN_INTERVIEW')
           AND kd.ins_kenmerkdeel_aanmaak <
               (SELECT fac_notificatie_job_nextrun
                  FROM fac_notificatie_job
                 WHERE UPPER (fac_notificatie_job_view) =
                       'BLCC_V_NOTI_PLAN_INTERVIEW');

CREATE OR REPLACE VIEW BLCC_V_NOTI_OPDR_GEPLAND
(
    SENDER,
    RECEIVER,
    XEMAIL,
    XMOBILE,
    TEXT,
    CODE,
    KEY,
    XKEY
)
AS
    SELECT NULL                                                                        sender,
           NULL                                                                        receiver,
           ontvanger                                                                   xemail,
           NULL                                                                        xmobile,
           'Opdracht ' || opdracht || ' is door opdrachtnemer (opnieuw) ingepland'     text,
           'CUST10'                                                                    code,
           mld_opdr_key                                                                refkey,
           NULL
      FROM (  SELECT MAX (t.fac_tracking_datum),
                     o.mld_melding_key,
                     m.prs_perslid_key_voor,
                     p.prs_perslid_email,
                     mail.mailadres                                            extra_ontvanger,
                     CASE
                         WHEN mail.mailadres IS NOT NULL
                         THEN
                             p.prs_perslid_email || ';' || mail.mailadres
                         ELSE
                             p.prs_perslid_email
                     END                                                       ontvanger,
                     o.mld_opdr_key,
                     m.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr    opdracht,
                     o.mld_opdr_plandatum
                FROM mld_opdr    o,
                     fac_tracking t,
                     mld_melding m,
                     prs_perslid p,
                     (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde mailadres
                        FROM mld_kenmerkopdr ko
                       WHERE ko.mld_kenmerk_key IN (7561, 7581)) mail
               WHERE     o.mld_opdr_key = t.fac_tracking_refkey
                     AND t.fac_srtnotificatie_key = 363              -- ORDPLD
                     AND UPPER (t.fac_tracking_oms) NOT LIKE '%(GEWIST)' -- als de datum gewist is notificeren we niet
                     AND m.mld_melding_key = o.mld_melding_key
                     AND p.prs_perslid_key = m.prs_perslid_key
                     AND o.mld_typeopdr_key IN (5, 101, 2741, 3101, 3121) -- Docket?/WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND mail.mld_opdr_key(+) = o.mld_opdr_key
                     AND (t.fac_tracking_datum) >
                         (SELECT fac_notificatie_job_nextrun - fac_notificatie_job_interval / 24
                            FROM fac_notificatie_job
                           WHERE UPPER (fac_notificatie_job_view) = 'BLCC_V_NOTI_OPDR_GEPLAND')
                     AND (t.fac_tracking_datum) <
                         (SELECT fac_notificatie_job_nextrun
                            FROM fac_notificatie_job
                           WHERE UPPER (fac_notificatie_job_view) = 'BLCC_V_NOTI_OPDR_GEPLAND')
            GROUP BY o.mld_melding_key,
                     m.prs_perslid_key_voor,
                     p.prs_perslid_email,
                     mail.mailadres,
                     CASE
                         WHEN mail.mailadres IS NOT NULL
                         THEN
                             p.prs_perslid_email || ';' || mail.mailadres
                         ELSE
                             p.prs_perslid_email
                     END,
                      m.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr ,
                     o.mld_opdr_key,
                     o.mld_opdr_plandatum) opdr;

CREATE OR REPLACE VIEW BLCC_V_RAP_PLANNING_OPDR
(
    NAAM_UITVOERENDE,
    KEY_UITVOERENDE,
    OPDR_KEY,
    OPDRACHT,
    PLANDATUM,
    TIJD,
    EINDDATUM,
    MLD_NUMMER,
    MLD_ONDERWERP,
    KOSTENPLAATS,
    TOEKOMST,
    STATUS,
    ALG_RUIMTE_NR,
    VH_CLASS,
    GEBOUW_KEY,
    GEBOUW_CODE,
    MELDER,
    PRS_AFDELING_KEY,
    PRS_AFDELING_NAAM,
    PRS_AFDELING_OMSCHRIJVING,
    WVG_NODIG,
    WVG_NR
)
AS
    SELECT b.prs_bedrijf_naam
           bedrijf,
       b.prs_bedrijf_key
           bedrijf_key,
       o.mld_opdr_key,
       o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
           opdracht,
       o.mld_opdr_plandatum,
       CASE
           WHEN TO_CHAR (o.mld_opdr_plandatum, 'HH24:mi') <> '00:00'
           THEN
               TO_CHAR (o.mld_opdr_plandatum, 'HH24:mi')
           ELSE
               NULL
       END
           tijd,
       o.mld_opdr_einddatum,
       sd.ins_srtdiscipline_prefix || m.mld_melding_key
           meldingnummer,
       m.mld_melding_onderwerp,
       kp.prs_kostenplaats_nr,
       CASE WHEN o.mld_opdr_plandatum > SYSDATE THEN 1 ELSE 0 END
           toekomst,
       so.mld_statusopdr_omschrijving
           status,
       og.alg_ruimte_nr,
       (SELECT ud.fac_usrdata_code     vh_class
          FROM alg_kenmerk k, alg_onrgoedkenmerk rk, fac_usrdata ud
         WHERE     rk.alg_kenmerk_key = k.alg_kenmerk_key
               AND k.alg_kenmerk_niveau = 'R'
               AND k.alg_kenmerk_key = 1100
               AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
               AND ud.fac_usrtab_key = 241
               AND rk.alg_onrgoed_key = og.alg_ruimte_key
               AND rk.alg_onrgoedkenmerk_verwijder IS NULL)
           vh_class,
       og.alg_gebouw_key,
       og.alg_gebouw_code,
          prs_perslid_naam
       || DECODE (p.prs_perslid_voorletters, NULL, '', ', ' || p.prs_perslid_voorletters)
       || DECODE (p.prs_perslid_tussenvoegsel, NULL, '', ' ' || p.prs_perslid_tussenvoegsel)
       || DECODE (p.prs_perslid_voornaam, NULL, '', ' (' || p.prs_perslid_voornaam || ')')
           melder,
       a.prs_afdeling_key,
       a.prs_afdeling_naam,
       a.prs_afdeling_omschrijving,
       (SELECT ud.fac_usrdata_omschr
          FROM mld_srtkenmerk   sk,
               mld_kenmerk      k,
               mld_kenmerkopdr  ko,
               fac_usrdata      ud
         WHERE     sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
               AND k.mld_kenmerk_key = ko.mld_kenmerk_key
               AND sk.mld_srtkenmerk_key = 2201
               AND fac.safe_to_number (ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key
               AND ud.fac_usrtab_key = 741
               AND ko.mld_opdr_key = o.mld_opdr_key
               AND ko.mld_kenmerkopdr_verwijder IS NULL)
           wvg_nodig,
       (SELECT ko.mld_kenmerkopdr_waarde
          FROM mld_srtkenmerk sk, mld_kenmerk k, mld_kenmerkopdr ko
         WHERE     sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
               AND k.mld_kenmerk_key = ko.mld_kenmerk_key
               AND sk.mld_srtkenmerk_key = 2202
               AND ko.mld_opdr_key = o.mld_opdr_key
               AND ko.mld_kenmerkopdr_verwijder IS NULL)
           wvg_nr
  FROM mld_opdr                   o,
       mld_statusopdr             so,
       mld_melding                m,
       mld_stdmelding             sm,
       mld_discipline             md,
       ins_srtdiscipline          sd,
       prs_bedrijf                b,
       prs_kostenplaats           kp,
       alg_v_allonrgoed_gegevens  og,
       prs_perslid                p,
       prs_afdeling               a
 WHERE     so.mld_statusopdr_key = o.mld_statusopdr_key
       AND m.mld_melding_key = o.mld_melding_key
       AND sm.mld_stdmelding_key = m.mld_stdmelding_key
       AND sm.mld_ins_discipline_key = md.ins_discipline_key
       AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
       AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
       AND p.prs_perslid_key = m.prs_perslid_key_voor
       AND a.prs_afdeling_key = p.prs_afdeling_key
       AND sm.mld_ins_discipline_key NOT IN (781,
                                             2558,
                                             3901,
                                             2584,
                                             3181,
                                             3401)                                     -- BLCC#87082
       AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
       AND kp.prs_kostenplaats_key = o.prs_kostenplaats_key -- 2321 is aanvraag WVG, die nemen we hier niet mee
       AND m.mld_stdmelding_key NOT IN (2321,
                                        2781,
                                        2121,
                                        3161,
                                        2974);
                                        
-------------------------------------------------
--- BLCC#74731: Implementatie Urenregistratie ---
-------------------------------------------------
CREATE OR REPLACE VIEW BLCC_V_RAP_RESEARCH_ABO
AS
   SELECT b.prs_bedrijf_key,
          b.prs_bedrijf_naam,
          c.cnt_contract_key,
          c.cnt_contract_nummer_intern,
          c.cnt_contract_omschrijving,
          c.cnt_contract_status,
          cnt.cnt_contract_status (
             c.cnt_contract_looptijd_van,
             cnt.cnt_getrappeldatum (c.cnt_contract_key),
             cnt.cnt_getopzegdatum (c.cnt_contract_key),
             c.cnt_contract_looptijd_tot)
             fase,
          DECODE (
             cnt.cnt_contract_status (
                c.cnt_contract_looptijd_van,
                cnt.cnt_getrappeldatum (c.cnt_contract_key),
                cnt.cnt_getopzegdatum (c.cnt_contract_key),
                c.cnt_contract_looptijd_tot),
             0, lcl.l ('lcl_cnt_future'),
             1, lcl.l ('lcl_cnt_topical'),
             2, lcl.l ('lcl_cnt_warn'),
             3, lcl.l ('lcl_cnt_cancel'),
             4, lcl.l ('lcl_cnt_past'))
             fase_actief,
          DECODE (
             c.cnt_contract_status,
             0, DECODE (fac.getsetting ('cnt_contract_approval'), 1, lcl.l ('lcl_cnt_active_approval'), lcl.l ('lcl_cnt_active')),
             1, lcl.l ('lcl_cnt_inactive'),
             2, lcl.l ('lcl_cnt_new'),
             3, lcl.l ('lcl_cnt_forapproval'))
             cnt_contract_status2,
          c.cnt_contract_verwijder
     FROM cnt_contract c, ins_tab_discipline ct, prs_bedrijf b
    WHERE c.ins_discipline_key = ct.ins_discipline_key
          AND ct.ins_discipline_key IN (3161) -- Research abonnement
          AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key;

CREATE OR REPLACE VIEW BLCC_V_KEUZE_RSR_ABO
AS
   SELECT c.cnt_contract_key,
          prs_bedrijf_naam || ': ' || cnt_contract_nummer_intern || ' - ' || cnt_contract_omschrijving contract,
          c.cnt_contract_verwijder
     FROM cnt_contract c, ins_tab_discipline ct, prs_bedrijf b
    WHERE c.ins_discipline_key = ct.ins_discipline_key
          AND ct.ins_discipline_key IN (3161, 3441) -- Research abonnement/Research Project
          AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key;

CREATE OR REPLACE VIEW BLCC_V_UDR_RESEARCH_ABO
(
   CNT_CONTRACT_KEY,
   CNT_CONTRACT_NUMMER_INTERN,
   CNT_CONTRACT_LOOPTIJD_TOT,
   CNT_CONTRACT_LOOPTIJD_VAN,
   CNT_CONTRACT_OMSCHRIJVING,
   CNT_CONTRACT_OPMERKING,
   CNT_CONTRACT_VERSIE,
   CNT_OPZEGTERMIJN,
   CNT_RAPPELTERMIJN,
   FASE_ACTIEF,
   CNT_CONTRACT_STATUS,
   PRS_BEDRIJF_NAAM,
   AANTAL_UREN,
   MLD_MELDING_KEY,
   MLD_MELDING_DATUM,
   STATUS,
   AANVRAGER,
   CONTRACT_KEY,
   MLD_OPDR_KEY,
   OPDRACHT,
   MLD_OPDR_DATUMBEGIN,
   PRS_CONTACTPERSOON_KEY,
   RESEARCHER,
   MLD_OPDR_UREN_DATUM,
   MLD_OPDR_UREN_BESTEED,
   STATUS_UREN,
   UITVOERDER
)
AS
   SELECT cnt_contract_key,
          cnt_contract_nummer_intern,
          cnt_contract_looptijd_tot,
          cnt_contract_looptijd_van,
          cnt_contract_omschrijving,
          cnt_contract_opmerking,
          cnt_contract_versie,
          cnt_opzegtermijn,
          cnt_rappeltermijn,
          fase_actief,
          cnt_contract_status,
          prs_bedrijf_naam,
          aantal_uren,
          mld_melding_key,
          mld_melding_datum,
          status,
          aanvrager,
          contract_key,
          mld_opdr_key,
          opdracht,
          mld_opdr_datumbegin,
          prs_contactpersoon_key,
          researcher,
          mld_opdr_uren_datum,
          mld_opdr_uren_besteed,
          status_uren,
          uitvoerder
     FROM (SELECT c.cnt_contract_key,
                  c.cnt_contract_nummer_intern,
                  c.cnt_contract_looptijd_tot,
                  c.cnt_contract_looptijd_van,
                  c.cnt_contract_omschrijving,
                  c.cnt_contract_opmerking,
                  c.cnt_contract_versie,
                  (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
                     FROM cnt_termijn
                    WHERE cnt_termijn_key = c.cnt_contract_opzegtermijn)
                     cnt_opzegtermijn,
                  (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
                     FROM cnt_termijn
                    WHERE cnt_termijn_key = c.cnt_contract_rappeltermijn)
                     cnt_rappeltermijn,
                  DECODE (
                     cnt.cnt_contract_status (
                        c.cnt_contract_looptijd_van,
                        cnt.cnt_getrappeldatum (c.cnt_contract_key),
                        cnt.cnt_getopzegdatum (c.cnt_contract_key),
                        c.cnt_contract_looptijd_tot),
                     0, lcl.l ('lcl_cnt_future'),
                     1, lcl.l ('lcl_cnt_topical'),
                     2, lcl.l ('lcl_cnt_warn'),
                     3, lcl.l ('lcl_cnt_cancel'),
                     4, lcl.l ('lcl_cnt_past'))
                     fase_actief,
                  DECODE (
                     c.cnt_contract_status,
                     0, DECODE (fac.getsetting ('cnt_contract_approval'), 1, lcl.l ('lcl_cnt_active_approval'), lcl.l ('lcl_cnt_active')),
                     1, lcl.l ('lcl_cnt_inactive'),
                     2, lcl.l ('lcl_cnt_new'),
                     3, lcl.l ('lcl_cnt_forapproval'))
                     cnt_contract_status,
                  b.prs_bedrijf_naam,
                  aant_uren.cnt_uren aantal_uren
             FROM cnt_contract c,
                  prs_bedrijf b,
                  (SELECT kc.cnt_contract_key, fac.safe_to_number (kc.cnt_kenmerkcontract_waarde) cnt_uren
                     FROM cnt_kenmerkcontract kc, cnt_kenmerk k
                    WHERE kc.cnt_kenmerkcontract_verwijder IS NULL
                          AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
                          AND k.cnt_srtkenmerk_key = 602) aant_uren
            WHERE c.ins_discipline_key IN (3161) -- Research abonnement
                  AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                  AND c.cnt_contract_verwijder IS NULL
                  AND aant_uren.cnt_contract_key = c.cnt_contract_key) contracten,
          (SELECT m.mld_melding_key,
                  m.mld_melding_datum,
                  s.mld_statuses_omschrijving status,
                  p.prs_perslid_naam
                  || DECODE (p.prs_perslid_voorletters, NULL, '', ', ' || p.prs_perslid_voorletters)
                  || DECODE (p.prs_perslid_tussenvoegsel, NULL, '', ' ' || p.prs_perslid_tussenvoegsel)
                  || DECODE (p.prs_perslid_voornaam, NULL, '', ' (' || p.prs_perslid_voornaam || ')')
                     aanvrager,
                  cnt.contract_key,
                  o.mld_opdr_key,
                  TO_CHAR (o.mld_melding_key) || '/' || o.mld_opdr_bedrijfopdr_volgnr
                     opdracht,
                  o.mld_opdr_datumbegin,
                  o.prs_contactpersoon_key,
                  r.prs_perslid_naam
                  || DECODE (r.prs_perslid_voorletters, NULL, '', ', ' || r.prs_perslid_voorletters)
                  || DECODE (r.prs_perslid_tussenvoegsel, NULL, '', ' ' || r.prs_perslid_tussenvoegsel)
                  || DECODE (r.prs_perslid_voornaam, NULL, '', ' (' || r.prs_perslid_voornaam || ')')
                     researcher,
                  ou.mld_opdr_uren_datum,
                  ou.mld_opdr_uren_besteed,
                  CASE ou.mld_opdr_uren_status
                     WHEN 0 THEN 'Blanco'
                     WHEN 1 THEN 'Ingevoerd'
                     WHEN 2 THEN 'Ter goedkeuring'
                     WHEN 3 THEN 'Goedgekeurd'
                     WHEN 4 THEN 'Verwerkt'
                  END
                     status_uren,                    -- status ingevoerde uren
                  u.prs_perslid_naam
                  || DECODE (u.prs_perslid_voorletters, NULL, '', ', ' || u.prs_perslid_voorletters)
                  || DECODE (u.prs_perslid_tussenvoegsel, NULL, '', ' ' || u.prs_perslid_tussenvoegsel)
                  || DECODE (u.prs_perslid_voornaam, NULL, '', ' (' || u.prs_perslid_voornaam || ')')
                     uitvoerder
             FROM mld_melding m,
                  mld_statuses s,
                  prs_perslid p,             -- de aanvrager van het onderzoek
                  mld_opdr o,
                  prs_contactpersoon cp,
                  prs_perslid r, -- researcher waar de opdracht aan toe gewezen is
                  mld_opdr_uren ou,
                  prs_perslid u,    -- researcher die de uren heeft geschreven
                  (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde contract_key
                     FROM mld_kenmerkmelding km, mld_kenmerk k
                    WHERE km.mld_kenmerk_key = k.mld_kenmerk_key
                          AND k.mld_srtkenmerk_key = 1763) cnt
            WHERE m.mld_stdmelding_key = 2261
                  AND m.mld_melding_status = s.mld_statuses_key
                  AND m.prs_perslid_key_voor = p.prs_perslid_key
                  AND m.mld_melding_key = o.mld_melding_key
                  AND o.prs_contactpersoon_key = cp.prs_contactpersoon_key
                  AND cp.prs_perslid_key = r.prs_perslid_key
                  AND o.mld_opdr_key = ou.mld_opdr_key
                  AND ou.prs_perslid_key = u.prs_perslid_key
                  AND m.mld_melding_key = cnt.mld_melding_key) aanvragen
    WHERE contracten.cnt_contract_key = fac.safe_to_number (aanvragen.contract_key);

CREATE OR REPLACE VIEW BLCC_V_RAP_RESEARCH_REST
AS
     SELECT cnt_contract_key,
            cnt_contract_nummer_intern,
            cnt_contract_looptijd_tot,
            cnt_contract_looptijd_van,
            cnt_contract_omschrijving,
            cnt_contract_opmerking,
            cnt_contract_versie,
            cnt_opzegtermijn,
            cnt_rappeltermijn,
            fase_actief,
            cnt_contract_status,
            prs_bedrijf_naam,
            aantal_uren,
            SUM (mld_opdr_uren_besteed) uren_besteed,
            aantal_uren - SUM (mld_opdr_uren_besteed) restant_uren
       FROM blcc_v_udr_research_abo
   GROUP BY cnt_contract_key,
            cnt_contract_nummer_intern,
            cnt_contract_looptijd_tot,
            cnt_contract_looptijd_van,
            cnt_contract_omschrijving,
            cnt_contract_opmerking,
            cnt_contract_versie,
            cnt_opzegtermijn,
            cnt_rappeltermijn,
            fase_actief,
            cnt_contract_status,
            prs_bedrijf_naam,
            aantal_uren;

CREATE OR REPLACE VIEW BLCC_V_RAP_CONTR_COMM_LIJST
(
    ALG_GEBOUW_KEY,
    ALG_GEBOUW_CODE,
    ALG_GEBOUW_NAAM,
    FILLTERVELD,
    HUURDER,
    OVEREENKOMSTNR,
    HUURDER_KEY,
    RELATIETYPE_KEY,
    RELATIETYPE,
    CB_MEMBER,
    HUURDER_OPMERKING,
    CONTRACT_NUMMER,
    CONTRACT_VERSIE,
    CONTRACT_NUMMER_INTERN,
    OORSPRONKELIJKE_INGANGSDATUM,
    LOOPTIJD_VAN,
    LOOPTIJD_TOT,
    CONTRACT_OMSCHRIJVING,
    CNT_SCOPE,
    HUISBAAS_KEY,
    HUISBAAS_EMAIL,
    HUISBAAS_NAAM_FRIENDLY,
    HUISBAAS_NAAM_FULL,
    HUISBAAS_MOBIEL,
    PV_HUISBAAS_KEY,
    PV_HUISBAAS_NAAM_FRIENDLY,
    PV_HUISBAAS_NAAM_FULL,
    PV_HUISBAAS_EMAIL,
    PV_HUISBAAS_MOBIEL,
    SHE_NAAM_FRIENDLY,
    SHE_NAAM_FULL,
    SHE_EMAIL,
    SHE_MOBIEL,
    OC_NAAM_FRIENDLY,
    OC_NAAM_FULL,
    OC_EMAIL,
    OC_MOBIEL,
    PV_OC_NAAM_FRIENDLY,
    PV_OC_NAAM_FULL,
    PV_OC_EMAIL,
    PV_OC_MOBIEL,
    FINANCIAL_CONTACT,
    SECRETARIAAT,
    DIRECTEUR,
    CEO,
    PV_CEO,
    LOFT_USER_KEY,
    LOFT_USER,
    HTML_MELDING
)
AS
      SELECT DISTINCT
             g.alg_gebouw_key,
             g.alg_gebouw_code,
             g.alg_gebouw_naam,
             CASE
                 WHEN    huisbaas.huisbaas_key = 6601
                      OR huisbaas.huisbaas_key = 43821
                      OR pv_huisbaas.pv_huisbaas_key = 6601
                      OR pv_huisbaas.pv_huisbaas_key = 43821
                      OR she.she_key = 6601
                      OR she.she_key = 43821
                      OR oc.oc_key = 6601
                      OR oc.oc_key = 43821
                      OR pv_oc.pv_oc_key = 6601
                      OR pv_oc.pv_oc_key = 43821
                 THEN
                     'Ja'
                 ELSE
                     'Nee'
             END
                 AS fltr,
             huurder.prs_bedrijf_naam,
             huurder.prs_overeenkomst_nr,
             huurder.prs_bedrijf_key,
             huurder.relatietype_key,
             huurder.relatietype,
             CASE WHEN huurder.cb_member = 1 THEN 'Ja' ELSE 'Nee' END
                 AS CB_member,
             huurder.prs_bedrijf_opmerking,
             huurder.cnt_contract_nummer,
             huurder.cnt_contract_versie,
             huurder.cnt_contract_nummer_intern,
             huurder.oorspronkelijke_ingangsdatum,
             huurder.cnt_contract_looptijd_van,
             huurder.cnt_contract_looptijd_tot,
             huurder.cnt_contract_omschrijving,
             LISTAGG (r.alg_ruimte_nr, CHR (10)) WITHIN GROUP (ORDER BY g.alg_gebouw_key)
                 contractscope,
             huisbaas.huisbaas_key,
             huisbaas.huisbaas_email,
             huisbaas.huisbaas_naam_friendly,
             huisbaas.huisbaas_naam_full,
             huisbaas.huisbaas_mobiel,
             pv_huisbaas.pv_huisbaas_key,
             pv_huisbaas.pv_huisbaas_naam_friendly,
             pv_huisbaas.pv_huisbaas_naam_full,
             pv_huisbaas.pv_huisbaas_email,
             pv_huisbaas.pv_huisbaas_mobiel,
             she.she_naam_friendly,
             she.she_naam_full,
             she.she_email,
             she.she_mobiel,
             oc.oc_naam_friendly,
             oc.oc_naam_full,
             oc.oc_email,
             oc.oc_mobiel,
             pv_oc.pv_oc_naam_friendly,
             pv_oc.pv_oc_naam_full,
             pv_oc.pv_oc_email,
             pv_oc.pv_oc_mobiel,
             huurder.financial_contact,
             huurder.secretariaat,
             huurder.directeur,
             huurder.ceo,
             huurder.pv_ceo,
             huurder.loft_user_key,
             huurder.loft_user,
           '<a class="details" onclick=''FcltMgr.openDetail("'
        || 'appl/mld/mld_melding.asp?urole=fe&loc_key=1&bld_key='
        || g.alg_gebouw_key
        || '&onderwerp=Graag de communicatiegegevens van gebouw '
        || g.alg_gebouw_code
        || ' aanpassen.'
        || '&mld_defaultstdmelding='
        || '2441'
        || '")''>'
        || HTF.escape_sc ('Klik hier om een wijzigingsverzoek in te dienen')
        || '</a>'
        FROM alg_ruimte    r,
             alg_verdieping v,
             alg_gebouw    g,
             (  SELECT DISTINCT g.alg_gebouw_key,
                                r.alg_ruimte_key,
                                b.prs_bedrijf_naam,
                                b.prs_bedrijf_key,
                                b.prs_overeenkomst_nr,
                                rt.prs_relatietype_key relatietype_key,
                                rt.prs_relatietype_omschrijving     relatietype,
                                cb.cb_member,
                                b.prs_bedrijf_opmerking,
                                c.cnt_contract_nummer,
                                c.cnt_contract_versie,
                                c.cnt_contract_nummer_intern,
                                oorspr_dat.oorspronkelijke_ingangsdatum,
                                c.cnt_contract_looptijd_van,
                                c.cnt_contract_looptijd_tot,
                                c.cnt_contract_omschrijving,
                                fc.financial_contact,
                                secr.secretariaat,
                                dir.directeur,
                                ceo.ceo,
                                pv_ceo.pv_ceo,
                                lu.loft_user_key,
                                lu.loft_user
                  FROM cnt_contract_plaats cr,
                       cnt_contract     c,
                       alg_ruimte       r,
                       alg_verdieping   v,
                       alg_gebouw       g,
                       prs_bedrijf      b,
                       prs_relatietype  rt,
                       (SELECT kc.cnt_contract_key,
                               fac.safe_to_date (cnt_kenmerkcontract_waarde, 'dd-mm-yyyy')    oorspronkelijke_ingangsdatum
                          FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
                         WHERE     k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key
                               AND k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                               AND sk.cnt_srtkenmerk_key = 414
                               AND kc.cnt_kenmerkcontract_verwijder IS NULL) oorspr_dat,
                       (SELECT l.prs_kenmerklink_waarde cb_member, l.prs_link_key
                          FROM prs_kenmerklink l
                         WHERE l.prs_kenmerk_key = 1340 AND l.prs_kenmerklink_verwijder IS NULL) cb,
                       (  SELECT b.prs_bedrijf_key,
                                 LISTAGG (
                                        fc.financial_cont_naam_full
                                     || CHR (10)
                                     || fc.financial_cont_mobiel
                                     || CHR (10)
                                     || fc.financial_cont_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, fc.financial_cont_key)    financial_contact
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             financial_cont_key,
                                         p.prs_perslid_email
                                             financial_cont_email,
                                         p.prs_perslid_mobiel
                                             financial_cont_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             financial_cont_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             financial_cont_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_afdeling a,
                                         (SELECT kl.prs_link_key
                                            FROM prs_kenmerk k, prs_kenmerklink kl
                                           WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                                 AND k.prs_kenmerk_key = 1362
                                                 AND k.prs_kenmerk_niveau = 'P') fc
                                   WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                                         AND p.prs_perslid_verwijder IS NULL
                                         AND fc.prs_link_key = p.prs_perslid_key) fc
                           WHERE    fc.prs_afdeling_naam (+) = b.prs_overeenkomst_nr
                                 AND fc.financial_cont_key IS NOT NULL
                                 AND b.prs_bedrijf_verwijder IS NULL
                        GROUP BY b.prs_bedrijf_key) fc,
                       (  SELECT b.prs_bedrijf_key,
                                 LISTAGG (
                                        secr.secretariaat_naam_full
                                     || CHR (10)
                                     || secr.secretariaat_mobiel
                                     || CHR (10)
                                     || secr.secretariaat_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, secr.secretariaat_key)    secretariaat
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             secretariaat_key,
                                         p.prs_perslid_email
                                             secretariaat_email,
                                         p.prs_perslid_mobiel
                                             secretariaat_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             secretariaat_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             secretariaat_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_afdeling a,
                                         (SELECT kl.prs_link_key
                                            FROM prs_kenmerk k, prs_kenmerklink kl
                                           WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                                 AND k.prs_kenmerk_key = 1361
                                                 AND k.prs_kenmerk_niveau = 'P') secr
                                   WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                                         AND secr.prs_link_key = p.prs_perslid_key
                                         AND p.prs_perslid_verwijder IS NULL) secr
                           WHERE     secr.prs_afdeling_naam (+) = b.prs_overeenkomst_nr
                                 AND secr.secretariaat_key IS NOT NULL
                        GROUP BY b.prs_bedrijf_key) secr,
                       (  SELECT b.prs_bedrijf_key,
                                 LISTAGG (
                                        dir.directeur_naam_full
                                     || CHR (10)
                                     || dir.directeur_mobiel
                                     || CHR (10)
                                     || dir.directeur_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, dir.directeur_key)    directeur
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             directeur_key,
                                         p.prs_perslid_email
                                             directeur_email,
                                         p.prs_perslid_mobiel
                                             directeur_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             directeur_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             directeur_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_afdeling a,
                                         (SELECT kl.prs_link_key
                                            FROM prs_kenmerk k, prs_kenmerklink kl
                                           WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                                 AND k.prs_kenmerk_key = 1363
                                                 AND k.prs_kenmerk_niveau = 'P') dir
                                   WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                                         AND dir.prs_link_key = p.prs_perslid_key
                                         AND p.prs_perslid_verwijder IS NULL) dir
                           WHERE     dir.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                                 AND dir.directeur_key IS NOT NULL
                        GROUP BY b.prs_bedrijf_key) dir,
                       (  SELECT b.prs_bedrijf_key,
                                 LISTAGG (
                                        ceo.ceo_naam_full
                                     || CHR (10)
                                     || ceo.ceo_mobiel
                                     || CHR (10)
                                     || ceo.ceo_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, ceo.ceo_key)    ceo
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             ceo_key,
                                         a.prs_afdeling_key,
                                         p.prs_perslid_email
                                             ceo_email,
                                         p.prs_perslid_mobiel
                                             ceo_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             ceo_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             ceo_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_kenmerklink kl,
                                         prs_kenmerk k,
                                         prs_afdeling a
                                   WHERE     p.prs_perslid_key = kl.prs_link_key
                                         AND k.prs_kenmerk_key = kl.prs_kenmerk_key
                                         AND p.prs_afdeling_key = a.prs_afdeling_key
                                         AND p.prs_perslid_verwijder IS NULL
                                         AND k.prs_kenmerk_key = 1363) ceo
                           WHERE     ceo.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                                 AND ceo.ceo_key IS NOT NULL
                        GROUP BY b.prs_bedrijf_key) ceo,
                       (  SELECT b.prs_bedrijf_key,
                                 LISTAGG (
                                        pv_ceo.pv_ceo_naam_full
                                     || CHR (10)
                                     || pv_ceo.pv_ceo_mobiel
                                     || CHR (10)
                                     || pv_ceo.pv_ceo_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, pv_ceo.pv_ceo_key)    pv_ceo
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             pv_ceo_key,
                                         a.prs_afdeling_key,
                                         p.prs_perslid_email
                                             pv_ceo_email,
                                         p.prs_perslid_mobiel
                                             pv_ceo_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             pv_ceo_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             pv_ceo_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_kenmerklink kl,
                                         prs_kenmerk k,
                                         prs_afdeling a
                                   WHERE     p.prs_perslid_key = kl.prs_link_key
                                         AND k.prs_kenmerk_key = kl.prs_kenmerk_key
                                         AND p.prs_afdeling_key = a.prs_afdeling_key
                                         AND p.prs_perslid_verwijder IS NULL
                                         AND k.prs_kenmerk_key = 1400) pv_ceo
                           WHERE     pv_ceo.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                                 AND pv_ceo.pv_ceo_key IS NOT NULL
                        GROUP BY b.prs_bedrijf_key) pv_ceo,
                       (  SELECT b.prs_bedrijf_key,
                                 lu.loft_user_key,
                                 LISTAGG (
                                        lu.loft_user_naam_full
                                     || CHR (10)
                                     || lu.loft_user_mobiel
                                     || CHR (10)
                                     || lu.loft_user_email
                                     || CHR (10),
                                     CHR (10))
                                 WITHIN GROUP (ORDER BY b.prs_bedrijf_key, lu.loft_user_key)    loft_user
                            FROM prs_bedrijf b,
                                 (SELECT p.prs_perslid_key
                                             loft_user_key,
                                         a.prs_afdeling_key,
                                         p.prs_perslid_email
                                             loft_user_email,
                                         p.prs_perslid_mobiel
                                             loft_user_mobiel,
                                            prs_perslid_naam
                                         || DECODE (p.prs_perslid_voorletters,
                                                    NULL, '',
                                                    ', ' || p.prs_perslid_voorletters)
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    ' ' || p.prs_perslid_tussenvoegsel)
                                         || DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    ' (' || p.prs_perslid_voornaam || ')')
                                             loft_user_naam_full,
                                            DECODE (p.prs_perslid_voornaam,
                                                    NULL, '',
                                                    p.prs_perslid_voornaam || ' ')
                                         || DECODE (p.prs_perslid_tussenvoegsel,
                                                    NULL, '',
                                                    p.prs_perslid_tussenvoegsel || ' ')
                                         || prs_perslid_naam
                                             loft_user_naam_friendly,
                                         a.prs_afdeling_omschrijving,
                                         a.prs_afdeling_naam
                                    FROM prs_perslid p,
                                         prs_kenmerklink kl,
                                         prs_kenmerk k,
                                         prs_afdeling a
                                   WHERE     p.prs_perslid_key = kl.prs_link_key
                                         AND k.prs_kenmerk_key = kl.prs_kenmerk_key
                                         AND p.prs_afdeling_key = a.prs_afdeling_key
                                         AND p.prs_perslid_verwijder IS NULL
                                         AND k.prs_kenmerk_key = 1380) lu
                           WHERE     lu.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                                 AND lu.loft_user_key IS NOT NULL
                        GROUP BY b.prs_bedrijf_key, lu.loft_user_key) lu
                 WHERE     cr.cnt_alg_plaats_code = 'R'
                       AND cr.cnt_contract_plaats_verwijder IS NULL
                       AND c.cnt_contract_key = cr.cnt_contract_key
                       AND c.cnt_contract_verwijder IS NULL
                       AND c.cnt_contract_status = 0
                       AND oorspr_dat.cnt_contract_key(+) = c.cnt_contract_key
                       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                       AND r.alg_verdieping_key = v.alg_verdieping_key
                       AND g.alg_gebouw_key = v.alg_gebouw_key
                       AND rt.prs_relatietype_key(+) = b.prs_relatietype_key
                       AND cb.prs_link_key(+) = b.prs_bedrijf_key
                       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                       AND fc.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND secr.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND dir.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND ceo.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND pv_ceo.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND lu.prs_bedrijf_key(+) = b.prs_bedrijf_key
                       AND c.ins_discipline_key IN (2122,
                                                    2123,
                                                    2124,
                                                    2141,
                                                    2142)
                       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
              GROUP BY g.alg_gebouw_key,
                       r.alg_ruimte_key,
                       b.prs_bedrijf_naam,
                       b.prs_overeenkomst_nr,
                       b.prs_bedrijf_key,
                       rt.prs_relatietype_key,
                       rt.prs_relatietype_omschrijving,
                       cb.cb_member,
                       b.prs_bedrijf_opmerking,
                       c.cnt_contract_nummer,
                       c.cnt_contract_versie,
                       oorspr_dat.oorspronkelijke_ingangsdatum,
                       c.cnt_contract_looptijd_van,
                       c.cnt_contract_looptijd_tot,
                       c.cnt_contract_nummer_intern,
                       c.cnt_contract_omschrijving,
                       fc.financial_contact,
                       secr.secretariaat,
                       dir.directeur,
                       ceo.ceo,
                       pv_ceo.pv_ceo,
                       lu.loft_user_key,
                       lu.loft_user) huurder,
             (SELECT ok.alg_onrgoed_key, ok.alg_onrgoedkenmerk_waarde vvo_overeenkomst
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok
               WHERE     k.alg_kenmerk_key = 1720
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vvo,
             (SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr verh_classificatie
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, fac_usrdata ud
               WHERE     k.alg_kenmerk_key = 1100
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 241
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vh_class,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    huisbaas_key,
                     p.prs_perslid_email                                  huisbaas_email,
                     p.prs_perslid_mobiel                                 huisbaas_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    huisbaas_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  huisbaas_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 1981
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) huisbaas,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    pv_huisbaas_key,
                     p.prs_perslid_email                                  pv_huisbaas_email,
                     p.prs_perslid_mobiel                                 pv_huisbaas_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    pv_huisbaas_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  pv_huisbaas_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 1982
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) pv_huisbaas,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    she_key,
                     p.prs_perslid_email                                  she_email,
                     p.prs_perslid_mobiel                                 she_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    she_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  she_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 1983
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) she,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    oc_key,
                     p.prs_perslid_email                                  oc_email,
                     p.prs_perslid_mobiel                                 oc_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    oc_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  oc_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 2040
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) oc,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    pv_oc_key,
                     p.prs_perslid_email                                  pv_oc_email,
                     p.prs_perslid_mobiel                                 pv_oc_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    pv_oc_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  pv_oc_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 2060
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) pv_oc
       WHERE     r.alg_verdieping_key = v.alg_verdieping_key
             AND huurder.alg_ruimte_key(+) = r.alg_ruimte_key
             AND v.alg_gebouw_key = g.alg_gebouw_key
             AND huisbaas.alg_onrgoed_key = r.alg_ruimte_key
             AND vvo.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND vh_class.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND pv_huisbaas.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND she.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND oc.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND pv_oc.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND r.alg_ruimte_verwijder IS NULL
    GROUP BY g.alg_gebouw_key,
             g.alg_gebouw_code,
             g.alg_gebouw_naam,
             CASE
                 WHEN    huisbaas.huisbaas_key = 6601
                      OR huisbaas.huisbaas_key = 43821
                      OR pv_huisbaas.pv_huisbaas_key = 6601
                      OR pv_huisbaas.pv_huisbaas_key = 43821
                      OR she.she_key = 6601
                      OR she.she_key = 43821
                 THEN
                     'Ja'
                 ELSE
                     'Nee'
             END,
             huurder.prs_bedrijf_naam,
             huurder.prs_overeenkomst_nr,
             huurder.prs_bedrijf_key,
             huurder.relatietype_key,
             huurder.relatietype,
             CASE WHEN huurder.cb_member = 1 THEN 'Ja' ELSE 'Nee' END,
             huurder.prs_bedrijf_opmerking,
             huurder.cnt_contract_nummer,
             huurder.cnt_contract_versie,
             huurder.cnt_contract_nummer_intern,
             huurder.oorspronkelijke_ingangsdatum,
             huurder.cnt_contract_looptijd_van,
             huurder.cnt_contract_looptijd_tot,
             huurder.cnt_contract_omschrijving,
             huisbaas.huisbaas_key,
             huisbaas.huisbaas_email,
             huisbaas.huisbaas_key,
             huisbaas.huisbaas_naam_friendly,
             huisbaas.huisbaas_naam_full,
             huisbaas.huisbaas_mobiel,
             pv_huisbaas.pv_huisbaas_key,
             pv_huisbaas.pv_huisbaas_naam_friendly,
             pv_huisbaas.pv_huisbaas_naam_full,
             pv_huisbaas.pv_huisbaas_key,
             pv_huisbaas.pv_huisbaas_email,
             pv_huisbaas.pv_huisbaas_mobiel,
             she.she_naam_friendly,
             she.she_naam_full,
             she.she_key,
             she.she_email,
             she.she_mobiel,
             oc.oc_naam_friendly,
             oc.oc_naam_full,
             oc.oc_key,
             oc.oc_email,
             oc.oc_mobiel,
             pv_oc.pv_oc_naam_friendly,
             pv_oc.pv_oc_naam_full,
             pv_oc.pv_oc_key,
             pv_oc.pv_oc_email,
             pv_oc.pv_oc_mobiel,
             huurder.financial_contact,
             huurder.secretariaat,
             huurder.directeur,
             huurder.ceo,
             huurder.pv_ceo,
             huurder.loft_user_key,
             huurder.loft_user;

CREATE OR REPLACE VIEW BLCC_V_RAP_RELATIETYPE_TELLING
(
    CB_MEMBER,
    HUURDER,
    CONTRACT_NUMMER,
    CONTRACT_VERSIE,
    CONTRACT_NUMMER_INTERN,
    OORSPRONKELIJKE_INGANGSDATUM,
    LOOPTIJD_VAN,
    LOOPTIJD_TOT,
    CONTRACT_OMSCHRIJVING,
    RELATIETYPE
)
AS
    SELECT DISTINCT c.cb_member,
                    c.huurder,
                    c.contract_nummer,
                    c.contract_versie,
                    c.contract_nummer_intern,
                    c.oorspronkelijke_ingangsdatum,
                    c.looptijd_van,
                    c.looptijd_tot,
                    c.contract_omschrijving,
                    c.relatietype
      FROM blcc_v_rap_contr_comm_lijst c
     WHERE UPPER (c.relatietype) NOT IN ('LEVERANCIER');

CREATE OR REPLACE VIEW BLCC_V_RAP_CONTR_HUURDERS
AS
    SELECT DISTINCT she.naam_contactpersoon_she,
           she.alg_gebouw_code,
           she.alg_gebouw_naam,
           huurder.prs_bedrijf_naam
      FROM (SELECT DISTINCT
                   gg_she.she_naam_friendly     naam_contactpersoon_she,
                   g.alg_gebouw_code,
                   g.alg_gebouw_naam,
                   r.alg_ruimte_key,
                   r.alg_ruimte_nr,
                   r.alg_ruimte_omschrijving
              FROM alg_ruimte      r,
                   alg_verdieping  v,
                   alg_gebouw      g,
                   (SELECT ok.alg_onrgoed_key,
                           p.prs_perslid_key
                               she_key,
                           p.prs_perslid_email
                               she_email,
                           p.prs_perslid_mobiel
                               she_mobiel,
                              prs_perslid_naam
                           || DECODE (p.prs_perslid_voorletters,
                                      NULL, '',
                                      ', ' || p.prs_perslid_voorletters)
                           || DECODE (p.prs_perslid_tussenvoegsel,
                                      NULL, '',
                                      ' ' || p.prs_perslid_tussenvoegsel)
                           || DECODE (p.prs_perslid_voornaam,
                                      NULL, '',
                                      ' (' || p.prs_perslid_voornaam || ')')
                               she_naam_full,
                              DECODE (p.prs_perslid_voornaam,
                                      NULL, '',
                                      p.prs_perslid_voornaam || ' ')
                           || DECODE (p.prs_perslid_tussenvoegsel,
                                      NULL, '',
                                      p.prs_perslid_tussenvoegsel || ' ')
                           || prs_perslid_naam
                               she_naam_friendly
                      FROM alg_kenmerk         k,
                           alg_onrgoedkenmerk  ok,
                           prs_perslid         p
                     WHERE     k.alg_kenmerk_key = 1983
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_key =
                               ok.alg_onrgoedkenmerk_waarde) gg_she
             WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                   AND v.alg_gebouw_key = g.alg_gebouw_key
                   AND gg_she.alg_onrgoed_key = r.alg_ruimte_key) SHE,
           (SELECT DISTINCT
                   g.alg_gebouw_key, r.alg_ruimte_key, b.prs_bedrijf_naam
              FROM cnt_contract_plaats  cr,
                   cnt_contract         c,
                   alg_ruimte           r,
                   alg_verdieping       v,
                   alg_gebouw           g,
                   prs_bedrijf          b
             WHERE     cr.cnt_alg_plaats_code = 'R'
                   AND cr.cnt_contract_plaats_verwijder IS NULL
                   AND c.cnt_contract_key = cr.cnt_contract_key
                   AND c.cnt_contract_verwijder IS NULL
                   AND c.cnt_contract_status = 0
                   AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                   AND r.alg_verdieping_key = v.alg_verdieping_key
                   AND g.alg_gebouw_key = v.alg_gebouw_key
                   AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                   AND TRUNC (c.cnt_contract_looptijd_tot) > TRUNC (SYSDATE))
           huurder
     WHERE huurder.alg_ruimte_key = she.alg_ruimte_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_TRANSPORT_RUIMTEN
AS
    SELECT l.alg_locatie_code                locatiecode,
           g.alg_gebouw_code                 gebouwcode,
           v.alg_verdieping_volgnr           bouwlaagvolgnummer,
           sr.alg_srtruimte_omschrijving     ruimtefunctie,
           r.alg_ruimte_nr                   ruimtenummer,
           r.alg_ruimte_omschrijving         ruimteomschrijving,
           ''                                vloeroppervlak,
           ''                                afdelingscode,
           ''                                bezetting,
           ''                                reserveerbareruimte,
           ''                                categorie,
           ''                                expiredagen,
           ''                                prijs,
           ''                                opstelling,
           ''                                aantalbezoekers,
           ''                                naam,
           ''                                omschrijving,
           ''                                kenmerk1,
           ''                                kenmerk2,
           ''                                kenmerk3,
           ''                                kenmerk4,
           ''                                kenmerk5
      FROM alg_locatie     l,
           alg_gebouw      g,
           alg_verdieping  v,
           alg_ruimte      r,
           alg_srtruimte   sr
     WHERE     l.alg_locatie_key = g.alg_locatie_key
           AND g.alg_gebouw_key = v.alg_gebouw_key
           AND v.alg_verdieping_key = r.alg_verdieping_key
           AND r.alg_srtruimte_key = sr.alg_srtruimte_key;

CREATE OR REPLACE VIEW BLCC_V_THEMA_HUISBAAS
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key,
           CASE
               WHEN huisbaas_key IS NOT NULL
               THEN
                   huisbaas_naam_friendly || ' - ' || huisbaas_mobiel
               ELSE
                   'Onbekend'
           END    huisbaas,
           COALESCE (huisbaas_key, 3)
      FROM (SELECT ok.alg_onrgoed_key
                       ruimte_key,
                   p.prs_perslid_key
                       huisbaas_key,
                   p.prs_perslid_email
                       huisbaas_email,
                   COALESCE (p.prs_perslid_mobiel, 'nr onbekend')
                       huisbaas_mobiel,
                      prs_perslid_naam
                   || DECODE (p.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || p.prs_perslid_voorletters)
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || p.prs_perslid_tussenvoegsel)
                   || DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || p.prs_perslid_voornaam || ')')
                       huisbaas_naam_full,
                      DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              p.prs_perslid_voornaam || ' ')
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              p.prs_perslid_tussenvoegsel || ' ')
                   || prs_perslid_naam
                       huisbaas_naam_friendly
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
             WHERE     k.alg_kenmerk_key = 1981
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                   AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) hb,
           alg_ruimte  r
     WHERE r.alg_ruimte_key = hb.ruimte_key(+);

CREATE OR REPLACE VIEW BLCC_V_THEMA_SHE_CONT
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key,
           CASE
               WHEN huisbaas_key IS NOT NULL
               THEN
                   huisbaas_naam_friendly || ' - ' || huisbaas_mobiel
               ELSE
                   'Onbekend'
           END    huisbaas,
           COALESCE (huisbaas_key, 3)
      FROM (SELECT ok.alg_onrgoed_key
                       ruimte_key,
                   p.prs_perslid_key
                       huisbaas_key,
                   p.prs_perslid_email
                       huisbaas_email,
                   COALESCE (p.prs_perslid_mobiel, 'nr onbekend')
                       huisbaas_mobiel,
                      prs_perslid_naam
                   || DECODE (p.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || p.prs_perslid_voorletters)
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || p.prs_perslid_tussenvoegsel)
                   || DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || p.prs_perslid_voornaam || ')')
                       huisbaas_naam_full,
                      DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              p.prs_perslid_voornaam || ' ')
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              p.prs_perslid_tussenvoegsel || ' ')
                   || prs_perslid_naam
                       huisbaas_naam_friendly
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
             WHERE     k.alg_kenmerk_key = 1983
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                   AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) hb,
           alg_ruimte  r
     WHERE r.alg_ruimte_key = hb.ruimte_key(+);

CREATE OR REPLACE VIEW BLCC_V_THEMA_OPERATIONS_CNT
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key,
           CASE
               WHEN oc_key IS NOT NULL
               THEN
                   oc_naam_friendly || ' - ' || oc_mobiel
               ELSE
                   'Onbekend'
           END    oc,
           COALESCE (oc_key, 3)
      FROM (SELECT ok.alg_onrgoed_key
                       ruimte_key,
                   p.prs_perslid_key
                       oc_key,
                   p.prs_perslid_email
                       oc_email,
                   COALESCE (p.prs_perslid_mobiel, 'nr onbekend')
                       oc_mobiel,
                      prs_perslid_naam
                   || DECODE (p.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || p.prs_perslid_voorletters)
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || p.prs_perslid_tussenvoegsel)
                   || DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || p.prs_perslid_voornaam || ')')
                       oc_naam_full,
                      DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              p.prs_perslid_voornaam || ' ')
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              p.prs_perslid_tussenvoegsel || ' ')
                   || prs_perslid_naam
                       oc_naam_friendly
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
             WHERE     k.alg_kenmerk_key = 2040
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                   AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) oc,
           alg_ruimte  r
     WHERE r.alg_ruimte_key = oc.ruimte_key(+);

CREATE OR REPLACE VIEW BLCC_V_THEMA_PV_OPERATIONS_CNT
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key,
           CASE
               WHEN pv_oc_key IS NOT NULL
               THEN
                   pv_oc_naam_friendly || ' - ' || pv_oc_mobiel
               ELSE
                   'Onbekend'
           END    pv_oc,
           COALESCE (pv_oc_key, 3)
      FROM (SELECT ok.alg_onrgoed_key
                       ruimte_key,
                   p.prs_perslid_key
                       pv_oc_key,
                   p.prs_perslid_email
                       pv_oc_email,
                   COALESCE (p.prs_perslid_mobiel, 'nr onbekend')
                       pv_oc_mobiel,
                      prs_perslid_naam
                   || DECODE (p.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || p.prs_perslid_voorletters)
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || p.prs_perslid_tussenvoegsel)
                   || DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || p.prs_perslid_voornaam || ')')
                       pv_oc_naam_full,
                      DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              p.prs_perslid_voornaam || ' ')
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              p.prs_perslid_tussenvoegsel || ' ')
                   || prs_perslid_naam
                       pv_oc_naam_friendly
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
             WHERE     k.alg_kenmerk_key = 2060
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                   AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) oc,
           alg_ruimte  r
     WHERE r.alg_ruimte_key = oc.ruimte_key(+);

-- BLCC#77142: Rapportage voor tijdschrijf inrichting sustainable analytics.
CREATE OR REPLACE VIEW BLCC_V_RAP_SUST_ANALYTICS
AS
   SELECT c.prs_bedrijf_naam debiteur,
          --c.prs_overeenkomst_nr debiteurnr,
          c.ins_discipline_omschrijving contractsoort,
          c.cnt_contract_omschrijving contractbeschrijving,
          --c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0') contractnr,
          DECODE (c.cnt_contract_key, NULL, NULL, c.cnt_contract_nummer_intern || '.' || COALESCE (c.cnt_contract_versie, '0')) contractnr,
          c.cnt_contract_key contractkey,
          --c.cnt_contract_kosten contractwaarde,
          --12 * COALESCE (c.cnt_contract_termijnkosten, 0) contractjaarwaarde,
          DECODE (c.cnt_contract_key, NULL, NULL, 12 * COALESCE (c.cnt_contract_termijnkosten, 0)) contractjaarwaarde,
          utmens.cnt_kenmerkcontract_waarde uurtariefmens,
          utmach.cnt_kenmerkcontract_waarde uurtariefmachine,
          urmens.mld_kenmerkmelding_waarde urenramingmens,
          urmach.mld_kenmerkmelding_waarde urenramingmachine,
          TO_CHAR (m.mld_melding_key) meldingnr,
          m.mld_melding_onderwerp meldingonderwerp,
          TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) opdrachtnr,
          ot.mld_typeopdr_omschrijving opdrachttype,
          o.mld_opdr_omschrijving omschrijving,
          os.mld_statusopdr_omschrijving opdrachtstatus,
          o.mld_opdr_datumbegin opdrachtstart,
          --o.mld_opdr_einddatum opdrachteind,
          o.mld_opdr_plandatum opdrachtgepland,
          fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) opdrachtafgemeld,
          wetenschapper.prs_perslid_naam_full wetenschapper,
          ou.mld_opdr_uren_datum datum,
          ou.mld_opdr_uren_besteed mensurenafgenomen,
          ouk.mld_opdruren_kosten_besteed machineurenafgenomen,
          fac.safe_to_number (extk.mld_kenmerkmelding_waarde) ext_kosten,
          m.mld_melding_key meldingkey,
          o.mld_opdr_key opdrachtkey
     FROM (SELECT *
             FROM mld_melding
            WHERE mld_stdmelding_key IN (2261)            -- Research aanvraag
                  AND (mld_melding_key > 47811 -- BLCC#77790: Uitsluiten test-meldingen <=47811!
                       OR mld_melding_key = 47589)) m -- BLCC#78114: Behalve test-melding 47589!
          LEFT JOIN mld_v_aanwezigkenmerkmelding urmens
             ON m.mld_melding_key = urmens.mld_melding_key
                --AND urmens.mld_kenmerk_key = 6821           -- Raming mensuren
                AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 1841 AND mld_kenmerk_key = urmens.mld_kenmerk_key) -- Raming mensuren
          LEFT JOIN mld_v_aanwezigkenmerkmelding urmach
             ON m.mld_melding_key = urmach.mld_melding_key
                --AND urmach.mld_kenmerk_key = 6822        -- Raming machineuren
                AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 1842 AND mld_kenmerk_key = urmach.mld_kenmerk_key) -- Raming machineuren
          LEFT JOIN mld_opdr o
             ON m.mld_melding_key = o.mld_melding_key
          LEFT JOIN mld_typeopdr ot
             ON o.mld_typeopdr_key = ot.mld_typeopdr_key
          LEFT JOIN mld_statusopdr os
             ON o.mld_statusopdr_key = os.mld_statusopdr_key
          LEFT JOIN mld_opdr_uren ou
             ON o.mld_opdr_key = ou.mld_opdr_key
          LEFT JOIN prs_v_perslid_fullnames_all wetenschapper
             ON ou.prs_perslid_key = wetenschapper.prs_perslid_key
          LEFT JOIN mld_opdruren_kosten ouk
             ON ou.mld_opdr_uren_key = ouk.mld_opdr_uren_key
                AND ouk.mld_kosten_key = 10                    -- Machine uren
          LEFT JOIN mld_kenmerkmelding rabo
             ON m.mld_melding_key = rabo.mld_melding_key
                --AND rabo.mld_kenmerk_key = 3159     -- Research abonnementen
                AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 1763 AND mld_kenmerk_key = rabo.mld_kenmerk_key) -- Research abonnementen
          LEFT JOIN (SELECT b.prs_bedrijf_naam,
                            --b.prs_overeenkomst_nr,
                            cd.ins_discipline_omschrijving,
                            c.cnt_contract_omschrijving,
                            c.cnt_contract_nummer_intern,
                            c.cnt_contract_versie,
                            c.cnt_contract_key,
                            --c.cnt_contract_kosten,
                            c.cnt_contract_termijnkosten        -- MAANDbedrag
                       FROM cnt_v_aanwezigcontract c,
                            cnt_discipline cd,
                            prs_bedrijf b
                      WHERE c.ins_discipline_key = cd.ins_discipline_key
                            AND cd.ins_discipline_key IN (3161, 3441) -- Research abonnement/Research project
                            AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key) c
             ON fac.safe_to_number (rabo.mld_kenmerkmelding_waarde) = c.cnt_contract_key
          LEFT JOIN cnt_kenmerkcontract utmens
             ON c.cnt_contract_key = utmens.cnt_contract_key
                AND utmens.cnt_kenmerk_key = 1081            -- Uurtarief mens
                AND utmens.cnt_kenmerkcontract_verwijder IS NULL
          LEFT JOIN cnt_kenmerkcontract utmach
             ON c.cnt_contract_key = utmach.cnt_contract_key
                AND utmach.cnt_kenmerk_key = 1082         -- Uurtarief machine
                AND utmach.cnt_kenmerkcontract_verwijder IS NULL
          LEFT JOIN mld_v_aanwezigkenmerkmelding extk
             ON m.mld_melding_key = extk.mld_melding_key
                --AND extk.mld_kenmerk_key = 7281            -- Externe kosten
                AND EXISTS (SELECT 1 FROM mld_kenmerk WHERE mld_srtkenmerk_key = 1981 AND mld_kenmerk_key = extk.mld_kenmerk_key) -- Externe kosten
    WHERE o.mld_opdr_key IS NOT NULL;

CREATE OR REPLACE VIEW BLCC_V_KEUZE_WVG_ABO
(
    CNT_CONTRACT_KEY,
    CONTRACT,
    CNT_CONTRACT_VERWIJDER
)
AS
    SELECT c.cnt_contract_key,
              prs_bedrijf_naam
           || ': '
           || cnt_contract_nummer_intern
           || ' - '
           || cnt_contract_omschrijving    contract,
           c.cnt_contract_verwijder
      FROM cnt_contract c, ins_tab_discipline ct, prs_bedrijf b
     WHERE     c.ins_discipline_key = ct.ins_discipline_key
           AND ct.ins_discipline_key IN (2187) -- SLA Operationeel Center
           AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key;

-- Ticket BLCC#77430 Implementatie Security module
CREATE OR REPLACE VIEW BLCC_V_RAP_DIENSTRAPPORT
(
    HIDE_F_DATUM,
    FCLT_D_DATUM,
    DIENSTRAPPORT,
    PERSOON
)
AS
    SELECT TO_CHAR (mld_melding_datum, 'yyyymmddhh24'),
           TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy'),
           m.mld_melding_key,
           (SELECT prs_perslid_naam_full
              FROM prs_v_perslid_fullnames pf
             WHERE pf.prs_perslid_key = m.prs_perslid_key)
      FROM mld_melding m
     WHERE mld_stdmelding_key = 2481
     ORDER BY TO_CHAR (mld_melding_datum, 'yyyymmddhh24');

CREATE OR REPLACE PROCEDURE blcc_processemail (pfrom        IN VARCHAR2,
                                               pto          IN VARCHAR2,
                                               psubject     IN VARCHAR2,
                                               pbody        IN VARCHAR2,
                                               psessionid   IN VARCHAR2,
                                               pemailkey    IN NUMBER)
AS
    v_count             NUMBER;
    sender              prs_perslid.prs_perslid_key%TYPE;
    kostenplaats        prs_afdeling.prs_kostenplaats_key%TYPE;
    locatie             prs_perslid.alg_onroerendgoed_keys%TYPE;
    newkey              mld_melding.mld_melding_key%TYPE;
    defaultstdmelding   fac_setting.fac_setting_default%TYPE;
    subject_regexp      fac_setting.fac_setting_default%TYPE;
    v_mldnum            VARCHAR2 (4000);
    v_mldkey            mld_melding.mld_melding_key%TYPE;
    v_check             NUMBER;
    v_pbody             VARCHAR2 (4000);
    v_folder_kkey       mld_kenmerk.mld_kenmerk_key%TYPE;
    -- kkey                mld_kenmerk.mld_kenmerk_key%TYPE;
    errormsg            fac_result.fac_result_waarde%TYPE;
BEGIN
    -- Valideer de sender in pfrom: kennen we deze?
    SELECT COUNT (*)
      INTO v_count
      FROM prs_perslid p, prs_afdeling d
     WHERE     p.prs_afdeling_key = d.prs_afdeling_key
           AND UPPER (prs_perslid_email) = UPPER (pfrom);

    -- Bekende afzender --> dat is de melder
    IF (v_count = 1)
    THEN
        SELECT p.prs_perslid_key,
               d.prs_kostenplaats_key,
               COALESCE (loc.locatie_key, 1)     locatie
          INTO sender, kostenplaats, locatie
          FROM prs_perslid   p,
               prs_afdeling  d,
               (SELECT p.prs_perslid_key,
                       p.alg_onroerendgoed_keys     locatie_key
                  FROM prs_perslid p
                 WHERE p.alg_onroerendgoed_type = 'L') loc
         WHERE     p.prs_afdeling_key = d.prs_afdeling_key
               AND p.prs_perslid_key = loc.prs_perslid_key(+)
               AND UPPER (prs_perslid_email) = UPPER (pfrom);

        v_pbody := pbody;
    -- Geen bekende afzender --> 'GAST' wordt de afzender
    ELSE
        SELECT prs_perslid_key, d.prs_kostenplaats_key
          INTO sender, kostenplaats
          FROM prs_perslid p, prs_afdeling d
         WHERE     p.prs_afdeling_key = d.prs_afdeling_key
               AND prs_perslid_key = 3;

        -- we nemen het mailadres van de afzender wel op in de tekst
        v_pbody := 'Verstuurd door: ' || pfrom || CHR (10) || pbody;
    END IF;

    IF UPPER (pto) LIKE 'WVG@%'
        THEN
            defaultstdmelding := '2321';

            BEGIN
                INSERT INTO mld_melding (mld_melding_module,
                                         mld_meldbron_key,
                                         mld_melding_datum,
                                         mld_melding_onderwerp,
                                         mld_melding_omschrijving,
                                         mld_melding_status,
                                         mld_stdmelding_key,
                                         mld_alg_locatie_key,
                                         prs_perslid_key,
                                         prs_perslid_key_voor,
                                         prs_kostenplaats_key,
                                         mld_melding_spoed)
                     VALUES (
                         'MLD',
                         4,                                           -- email
                         SYSDATE,
                         SUBSTR (psubject, 1, 60),
                         SUBSTR (
                             REPLACE (
                                 SUBSTR (v_pbody, 1, 4000),
                                 CHR (13) || CHR (10) || CHR (13) || CHR (10),
                                 CHR (13) || CHR (10)),
                             1,
                             4000),            -- verwijder onnodige witregels
                         2,
                         defaultstdmelding,
                         locatie,
                         sender,
                         sender,
                         kostenplaats,
                         3)
                  RETURNING mld_melding_key
                       INTO newkey;

                -- Find the lowest volgnummer of the Folder-flexfield.
                SELECT MIN (k1.mld_kenmerk_key)
                  INTO v_folder_kkey
                  FROM mld_stdmelding      sm1,
                       ins_tab_discipline  td1,
                       mld_kenmerk         k1,
                       mld_srtkenmerk      sk1
                 WHERE     sm1.mld_stdmelding_key = defaultstdmelding
                       AND sm1.mld_ins_discipline_key =
                           td1.ins_discipline_key
                       AND k1.mld_kenmerk_verwijder IS NULL
                       AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
                       AND sk1.mld_srtkenmerk_kenmerktype = 'M'
                       AND (   (    k1.mld_stdmelding_key =
                                    sm1.mld_stdmelding_key
                                AND k1.mld_kenmerk_niveau = 'S')
                            OR (    k1.mld_stdmelding_key =
                                    td1.ins_discipline_key
                                AND k1.mld_kenmerk_niveau = 'D')
                            OR (    k1.mld_stdmelding_key =
                                    td1.ins_srtdiscipline_key
                                AND k1.mld_kenmerk_niveau = 'T')
                            OR (k1.mld_kenmerk_niveau = 'A'))
                       AND NOT EXISTS
                               (SELECT 1
                                  FROM mld_stdmelding      sm2,
                                       ins_tab_discipline  td2,
                                       mld_kenmerk         k2,
                                       mld_srtkenmerk      sk2
                                 WHERE     sm2.mld_stdmelding_key =
                                           defaultstdmelding
                                       AND sm2.mld_ins_discipline_key =
                                           td2.ins_discipline_key
                                       AND k2.mld_kenmerk_verwijder IS NULL
                                       AND k2.mld_srtkenmerk_key =
                                           sk2.mld_srtkenmerk_key
                                       AND sk2.mld_srtkenmerk_kenmerktype =
                                           'M'
                                       AND (   (    k2.mld_stdmelding_key =
                                                    sm2.mld_stdmelding_key
                                                AND k2.mld_kenmerk_niveau =
                                                    'S')
                                            OR (    k2.mld_stdmelding_key =
                                                    td2.ins_discipline_key
                                                AND k2.mld_kenmerk_niveau =
                                                    'D')
                                            OR (    k2.mld_stdmelding_key =
                                                    td2.ins_srtdiscipline_key
                                                AND k2.mld_kenmerk_niveau =
                                                    'T')
                                            OR (k1.mld_kenmerk_niveau = 'A'))
                                       AND k2.mld_kenmerk_volgnummer <
                                           k1.mld_kenmerk_volgnummer);

                IF v_folder_kkey IS NOT NULL
                THEN
                    INSERT INTO fac_result (fac_result_sessionid,
                                            fac_result_naam,
                                            fac_result_waarde)
                             VALUES (
                                 psessionid,
                                 'kenmerkpath',
                                    'MLD\M'
                                 || TO_CHAR (TRUNC (newkey / 1000), 'FM0000')
                                 || '___\M'
                                 || newkey
                                 || '\'
                                 || v_folder_kkey
                                 || '\');
                END IF;

                fac.trackaction ('MLDTRK',
                                 newkey,
                                 NULL,
                                 NULL,
                                 'Melding geregistreerd via Mail2Melding');
            END;

            ELSE
                NULL;


    END IF;
EXCEPTION
    WHEN OTHERS
    THEN
        fac.writelog (
            'PROCESSEMAIL',
            'W',
               'Mail kon niet verwerkt worden afzender: '
            || pfrom
            || '['
            || errormsg
            || ']',
               'OTHERS (error '
            || SQLCODE
            || '/'
            || SUBSTR (SQLERRM, 1, 100)
            || ')');

        INSERT INTO fac_result (fac_result_sessionid,
                                fac_result_naam,
                                fac_result_waarde)
                 VALUES (
                     psessionid,
                     'errormsg',
                     'Database fout - Neem contact op met uw systeembeheerder');
END blcc_processemail;
/

CREATE OR REPLACE VIEW BLCC_V_NOTI_CTR_HUISBAAS
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    KEY,
    XKEY
)
AS
    SELECT DISTINCT 3                                         sender, -- Facilitor
                    hb.huisbaas_key                           receiver,
                    'Controle communicatielijst'              text,
                    sn.fac_srtnotificatie_code                code,
                    2001                                      key,  -- refkey: is het rapport
                    hb.huisbaas_key                           xkey
      FROM blcc_v_rap_contr_comm_lijst  hb,
           fac_notificatie_job          nj,
           fac_srtnotificatie           sn
     WHERE     sn.fac_srtnotificatie_code = 'CUST17'
           AND UPPER (nj.fac_notificatie_job_view) =
               'BLCC_V_NOTI_CTR_HUISBAAS'
      AND TO_CHAR (SYSDATE, 'dd') = '01'
      AND TO_CHAR (SYSDATE, 'mm') IN ('06', '09');

CREATE OR REPLACE VIEW BLCC_V_RAP_MAILING_CEO
(
    GEBOUW,
    AFDELING,
    ROL,
    MAILADRESSEN
)
AS
   SELECT DISTINCT g.alg_gebouw_code,
                ceo.afdeling,
                'CEO',
                ceo.ceo     mailing_adres
     FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       (SELECT b.prs_bedrijf_key,
               b.prs_bedrijf_naam,
               a.prs_afdeling_naam || ' ' || a.prs_afdeling_omschrijving     afdeling,
               p.prs_perslid_email                                           ceo
          FROM prs_bedrijf   b,
               prs_perslid   p,
               prs_afdeling  a,
               (SELECT kl.prs_link_key
                  FROM prs_kenmerk k, prs_kenmerklink kl
                 WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                       AND k.prs_kenmerk_key = 1363
                       AND k.prs_kenmerk_niveau = 'P') ceo
         WHERE     p.prs_afdeling_key = a.prs_afdeling_key
               AND p.prs_perslid_verwijder IS NULL
               AND p.prs_perslid_inactief IS NULL
               AND p.prs_perslid_key NOT IN (76381)
               AND p.prs_perslid_key = ceo.prs_link_key
               AND b.prs_overeenkomst_nr = a.prs_afdeling_naam
               AND b.prs_bedrijf_verwijder IS NULL) ceo
     WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = ceo.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122, 2123, 224)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
    UNION ALL
    SELECT DISTINCT g.alg_gebouw_code,
                pv_ceo.afdeling,
                'Plaatsvervangend CEO',
                pv_ceo.pv_ceo     mailing_adres
     FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       (SELECT b.prs_bedrijf_key,
               b.prs_bedrijf_naam,
               a.prs_afdeling_naam || ' ' || a.prs_afdeling_omschrijving     afdeling,
               p.prs_perslid_email                                           pv_ceo
          FROM prs_bedrijf   b,
               prs_perslid   p,
               prs_afdeling  a,
               (SELECT kl.prs_link_key
                  FROM prs_kenmerk k, prs_kenmerklink kl
                 WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                       AND k.prs_kenmerk_key = 1400
                       AND k.prs_kenmerk_niveau = 'P') pv_ceo
         WHERE     p.prs_afdeling_key = a.prs_afdeling_key
               AND p.prs_perslid_verwijder IS NULL
               AND p.prs_perslid_inactief IS NULL
               AND p.prs_perslid_key NOT IN (76381)
               AND p.prs_perslid_key = pv_ceo.prs_link_key
               AND b.prs_overeenkomst_nr = a.prs_afdeling_naam
               AND b.prs_bedrijf_verwijder IS NULL) pv_ceo
     WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = pv_ceo.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122, 2123, 224)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1);

CREATE OR REPLACE VIEW BLCC_V_RAP_MAILING_LOFTU
(
    UITSLUITEN,
    GEBOUW,
    AFDELING,
    ROL,
    MAILADRESSEN
)
AS
    SELECT DISTINCT 'Nee'           uitsluiten,
                    g.alg_gebouw_code,
                    afdeling,
                    'Start-up Loft User',
                    su.start_up     mailing_adres
      FROM cnt_contract_plaats  cr,
           cnt_contract         c,
           alg_ruimte           r,
           alg_verdieping       v,
           alg_gebouw           g,
           prs_bedrijf          b,
           (SELECT b.prs_bedrijf_key, su.afdeling, su.su_email start_up
              FROM prs_bedrijf  b,
                   (SELECT (SELECT kl.prs_link_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                   AND k.prs_kenmerk_key = 1380
                                   AND kl.prs_link_key = p.prs_perslid_key
                                   AND k.prs_kenmerk_niveau = 'P')
                               su_key,
                           p.prs_perslid_email
                               su_email,
                           deb_nr.debiteurnummer,
                              a.prs_afdeling_naam
                           || ' '
                           || a.prs_afdeling_omschrijving
                               afdeling
                      FROM prs_perslid   p,
                           prs_afdeling  a,
                           (SELECT kl.prs_kenmerklink_waarde
                                       debiteurnummer,
                                   kl.prs_link_key
                                       prs_afdeling_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_niveau = 'A'
                                   AND k.prs_kenmerk_key = 1001
                                   AND kl.prs_kenmerklink_verwijder IS NULL
                                   AND kl.prs_kenmerk_key = k.prs_kenmerk_key)
                           deb_nr
                     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                           AND p.prs_perslid_verwijder IS NULL
                           AND p.prs_perslid_key NOT IN (76381)
                           AND deb_nr.prs_afdeling_key = a.prs_afdeling_key)
                   su
             WHERE     su.debiteurnummer = b.prs_overeenkomst_nr
                   AND su.su_key IS NOT NULL) su
     WHERE     cr.cnt_alg_plaats_code = 'R'
           AND cr.cnt_contract_plaats_verwijder IS NULL
           AND c.cnt_contract_key = cr.cnt_contract_key
           AND c.cnt_contract_verwijder IS NULL
           AND c.cnt_contract_status = 0
           AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
           AND r.alg_verdieping_key = v.alg_verdieping_key
           AND g.alg_gebouw_key = v.alg_gebouw_key
           AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
           AND su.prs_bedrijf_key = b.prs_bedrijf_key
           AND r.alg_ruimte_verwijder IS NULL
           AND c.ins_discipline_key IN (2122,
                                        2123,
                                        2124)
           AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                           AND TRUNC (c.cnt_contract_looptijd_tot + 1)
    UNION ALL
    SELECT DISTINCT 'Ja'            uitsluiten,
                    g.alg_gebouw_code,
                    su.afdeling,
                    'Start-up Loft User',
                    su.start_up     mailing_adres
      FROM cnt_contract_plaats  cr,
           cnt_contract         c,
           alg_ruimte           r,
           alg_verdieping       v,
           alg_gebouw           g,
           prs_bedrijf          b,
           (SELECT b.prs_bedrijf_key, su.afdeling, su.su_email start_up
              FROM prs_bedrijf  b,
                   (SELECT (SELECT kl.prs_link_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                   AND k.prs_kenmerk_key = 1380
                                   AND kl.prs_link_key = p.prs_perslid_key
                                   AND k.prs_kenmerk_niveau = 'P')
                               su_key,
                           p.prs_perslid_email
                               su_email,
                           deb_nr.debiteurnummer,
                              a.prs_afdeling_naam
                           || ' '
                           || a.prs_afdeling_omschrijving
                               afdeling
                      FROM prs_perslid   p,
                           prs_afdeling  a,
                           (SELECT kl.prs_kenmerklink_waarde
                                       debiteurnummer,
                                   kl.prs_link_key
                                       prs_afdeling_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_niveau = 'A'
                                   AND k.prs_kenmerk_key = 1001
                                   AND kl.prs_kenmerklink_verwijder IS NULL
                                   AND kl.prs_kenmerk_key = k.prs_kenmerk_key)
                           deb_nr
                     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                           AND p.prs_perslid_verwijder IS NULL
                           AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                           AND deb_nr.prs_afdeling_key = a.prs_afdeling_key)
                   su
             WHERE     su.debiteurnummer = b.prs_overeenkomst_nr
                   AND su.su_key IS NOT NULL) su
     WHERE     cr.cnt_alg_plaats_code = 'R'
           AND cr.cnt_contract_plaats_verwijder IS NULL
           AND c.cnt_contract_key = cr.cnt_contract_key
           AND c.cnt_contract_verwijder IS NULL
           AND c.cnt_contract_status = 0
           AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
           AND r.alg_verdieping_key = v.alg_verdieping_key
           AND g.alg_gebouw_key = v.alg_gebouw_key
           AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
           AND su.prs_bedrijf_key = b.prs_bedrijf_key
           AND r.alg_ruimte_verwijder IS NULL
           AND c.ins_discipline_key IN (2122,
                                        2123,
                                        2124)
           AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                           AND TRUNC (c.cnt_contract_looptijd_tot + 1);

CREATE OR REPLACE VIEW BLCC_V_RAP_MAILING_CONTACT
(
    UITSLUITEN,
    GEBOUW,
    AFDELING,
    AFDELING_OMSCHR,
    ROL,
    MAILADRESSEN
)
AS
      SELECT 'Nee'                                          uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'Huisbaas'                                     rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code, afdeling)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling, a.prs_afdeling_omschrijving,p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling      a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1981                      -- huisbaas
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND p.prs_afdeling_key = a.prs_afdeling_key
                 AND p.prs_perslid_key NOT in (76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code,afdeling,  prs_afdeling_omschrijving,'Huisbaas'
UNION ALL
  SELECT 'Nee'                                          uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'Plaatsvervangend huisbaas'                    rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving, p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1982     -- plaatsvervangend huisbaas
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND p.prs_afdeling_key = a.prs_afdeling_key
                 AND p.prs_perslid_key NOT IN (76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code, afdeling, prs_afdeling_omschrijving, 'Plaatsvervangend huisbaas'
UNION ALL
  SELECT 'Nee'                                          uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'SHE contactpersoon'                           rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving, p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1983            -- SHE contactpersoon
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND p.prs_afdeling_key = a.prs_afdeling_key
                 AND p.prs_perslid_key NOT IN (76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code, afdeling,prs_afdeling_omschrijving, 'SHE contactpersoon'
UNION ALL
SELECT DISTINCT 'Nee'                    uitsluiten,
                g.alg_gebouw_code,
                fc.afdeling,
                fc.prs_afdeling_omschrijving,
                'Financial contact',
                fc.financial_contact     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key,fc.afdeling, fc.prs_afdeling_omschrijving , fc.financial_cont_email financial_contact
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1362
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           financial_cont_key,
                       p.prs_perslid_email
                           financial_cont_email,
                       a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,
                       a.prs_afdeling_omschrijving,
                       a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_verwijder IS NULL
                       AND p.prs_perslid_key NOT IN (76381)) fc
         WHERE     fc.prs_afdeling_naam = b.prs_overeenkomst_nr
               AND fc.financial_cont_key IS NOT NULL) fc
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND fc.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
UNION ALL
SELECT DISTINCT 'Nee'                 uitsluiten,
                g.alg_gebouw_code,
                secr.afdeling,
                secr.prs_afdeling_omschrijving,
                'Secretariaat',
                secr.secretariaat     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key,secr.afdeling, secr.prs_afdeling_omschrijving,  secr.secretariaat_email secretariaat
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1361
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           secretariaat_key,
                       p.prs_perslid_email
                           secretariaat_email,
                       p.prs_perslid_mobiel
                           secretariaat_mobiel,
                          prs_perslid_naam
                       || DECODE (p.prs_perslid_voorletters,
                                  NULL, '',
                                  ', ' || p.prs_perslid_voorletters)
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  ' ' || p.prs_perslid_tussenvoegsel)
                       || DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  ' (' || p.prs_perslid_voornaam || ')')
                           secretariaat_naam_full,
                          DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  p.prs_perslid_voornaam || ' ')
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  p.prs_perslid_tussenvoegsel || ' ')
                       || prs_perslid_naam
                           secretariaat_naam_friendly,
                        a.prs_afdeling_naam ||' '  ||a.prs_afdeling_omschrijving afdeling,
                        a.prs_afdeling_omschrijving,
                        a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_key NOT IN (76381)
                       AND p.prs_perslid_verwijder IS NULL) secr
         WHERE    secr.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
               AND secr.secretariaat_key IS NOT NULL) secr
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND secr.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
UNION ALL
SELECT DISTINCT 'Nee'                 uitsluiten,
                g.alg_gebouw_code,
                dir.afdeling,
                dir.prs_afdeling_omschrijving,
                'CEO/hoogstverantwoordelijke',
                dir.directeur     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key, dir.afdeling, dir.prs_afdeling_omschrijving, dir.directeur_email directeur
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1363
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           directeur_key,
                       p.prs_perslid_email
                           directeur_email,
                       p.prs_perslid_mobiel
                           directeur_mobiel,
                          prs_perslid_naam
                       || DECODE (p.prs_perslid_voorletters,
                                  NULL, '',
                                  ', ' || p.prs_perslid_voorletters)
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  ' ' || p.prs_perslid_tussenvoegsel)
                       || DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  ' (' || p.prs_perslid_voornaam || ')')
                           directeur_naam_full,
                          DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  p.prs_perslid_voornaam || ' ')
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  p.prs_perslid_tussenvoegsel || ' ')
                       || prs_perslid_naam
                          directeur_naam_friendly,
                       a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,
                       a.prs_afdeling_omschrijving,
                       a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_key NOT IN (76381)
                       AND p.prs_perslid_verwijder IS NULL) dir
         WHERE     dir.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
               AND dir.directeur_key IS NOT NULL) dir
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND dir.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
UNION ALL
      SELECT 'Nee'                                          uitsluiten,
             alg_gebouw_code,
             afdeling,
             prs_afdeling_omschrijving,
             'Operations contact'                           rol,
             LISTAGG (LOWER (prs_perslid_email), ';')
                 WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
        FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling , a.prs_afdeling_omschrijving, p.prs_perslid_email
                FROM alg_kenmerk       k,
                     alg_onrgoedkenmerk rk,
                     alg_ruimte        r,
                     alg_verdieping    v,
                     alg_gebouw        g,
                     prs_perslid       p,
                     prs_afdeling      a
               WHERE     k.alg_kenmerk_niveau = 'R'
                     AND k.alg_kenmerk_key = 2040        -- Operations contact
                     AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                     AND r.alg_ruimte_verwijder IS NULL
                     AND k.alg_kenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                     AND r.alg_ruimte_key = rk.alg_onrgoed_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND a.prs_afdeling_key = p.prs_afdeling_key
                     AND p.prs_perslid_key NOT IN (76381)
                     AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                         p.prs_perslid_key)
    GROUP BY alg_gebouw_code, afdeling,  prs_afdeling_omschrijving, 'Operations contact'
    UNION ALL
      SELECT 'Nee'                                          uitsluiten,
             alg_gebouw_code,
             afdeling,
             prs_afdeling_omschrijving,
             'Plaatsvervangend operations contact'          rol,
             LISTAGG (LOWER (prs_perslid_email), ';')
                 WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
        FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling, a.prs_afdeling_omschrijving, p.prs_perslid_email
                FROM alg_kenmerk       k,
                     alg_onrgoedkenmerk rk,
                     alg_ruimte        r,
                     alg_verdieping    v,
                     alg_gebouw        g,
                     prs_perslid       p,
                     prs_afdeling      a
               WHERE     k.alg_kenmerk_niveau = 'R'
                     AND k.alg_kenmerk_key = 2060 -- Plaatsvervangend operations contact
                     AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                     AND r.alg_ruimte_verwijder = NULL
                     AND k.alg_kenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                     AND r.alg_ruimte_key = rk.alg_onrgoed_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND a.prs_afdeling_key = p.prs_afdeling_key
                     AND p.prs_perslid_key NOT IN (76381)
                     AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                         p.prs_perslid_key)
    GROUP BY alg_gebouw_code, afdeling,   prs_afdeling_omschrijving, 'Plaatsvervangend operations contact'
UNION ALL
  SELECT 'Ja'                                           uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'Huisbaas'                                     rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving, p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling      a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1981                      -- huisbaas
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND a.prs_afdeling_key = p.prs_afdeling_key
                 AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code, afdeling,   prs_afdeling_omschrijving,'Huisbaas'
UNION ALL
  SELECT 'Ja'                                           uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'Plaatsvervangend huisbaas'                    rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving, p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling      a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1982     -- plaatsvervangend huisbaas
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND a.prs_afdeling_key = p.prs_afdeling_key
                 AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code, afdeling, prs_afdeling_omschrijving, 'Plaatsvervangend huisbaas'
UNION ALL
  SELECT 'Ja'                                           uitsluiten,
         alg_gebouw_code,
         afdeling,
         prs_afdeling_omschrijving,
         'SHE contactpersoon'                           rol,
         LISTAGG (LOWER (prs_perslid_email), ';')
             WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
    FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving, p.prs_perslid_email
            FROM alg_kenmerk       k,
                 alg_onrgoedkenmerk rk,
                 alg_ruimte        r,
                 alg_verdieping    v,
                 alg_gebouw        g,
                 prs_perslid       p,
                 prs_afdeling      a
           WHERE     k.alg_kenmerk_niveau = 'R'
                 AND k.alg_kenmerk_key = 1983            -- SHE contactpersoon
                 AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                 AND r.alg_ruimte_verwijder IS NULL
                 AND k.alg_kenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                 AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                 AND r.alg_ruimte_key = rk.alg_onrgoed_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
                 AND g.alg_gebouw_key = v.alg_gebouw_key
                 AND a.prs_afdeling_key = p.prs_afdeling_key
                 AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                 AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                     p.prs_perslid_key)
GROUP BY alg_gebouw_code, afdeling, prs_afdeling_omschrijving, 'SHE contactpersoon'
UNION ALL
SELECT DISTINCT 'Ja'                     uitsluiten,
                g.alg_gebouw_code,
                fc.afdeling,
                fc.prs_afdeling_omschrijving,
                'Financial contact',
                fc.financial_contact     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key, fc.afdeling, fc.prs_afdeling_omschrijving, fc.financial_cont_email financial_contact
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1362
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           financial_cont_key,
                       p.prs_perslid_email
                           financial_cont_email,
                       a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,
                       a.prs_afdeling_omschrijving,
                       a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_verwijder IS NULL
                       AND p.prs_perslid_key NOT IN (6601, 43821, 76381) ) fc
         WHERE     fc.prs_afdeling_naam = b.prs_overeenkomst_nr
               AND fc.financial_cont_key IS NOT NULL) fc
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND fc.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
UNION ALL
SELECT DISTINCT 'Ja'                  uitsluiten,
                g.alg_gebouw_code,
                secr.afdeling,
                secr.prs_afdeling_omschrijving,
                'Secretariaat',
                secr.secretariaat     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key, secr.afdeling, secr.prs_afdeling_omschrijving, secr.secretariaat_email secretariaat
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1361
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           secretariaat_key,
                       p.prs_perslid_email
                           secretariaat_email,
                       p.prs_perslid_mobiel
                           secretariaat_mobiel,
                          prs_perslid_naam
                       || DECODE (p.prs_perslid_voorletters,
                                  NULL, '',
                                  ', ' || p.prs_perslid_voorletters)
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  ' ' || p.prs_perslid_tussenvoegsel)
                       || DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  ' (' || p.prs_perslid_voornaam || ')')
                           secretariaat_naam_full,
                          DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  p.prs_perslid_voornaam || ' ')
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  p.prs_perslid_tussenvoegsel || ' ')
                       || prs_perslid_naam
                           secretariaat_naam_friendly,
                       a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,
                       a.prs_afdeling_omschrijving,
                       a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                       AND p.prs_perslid_verwijder IS NULL) secr
         WHERE     secr.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
               AND secr.secretariaat_key IS NOT NULL) secr
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND secr.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
UNION ALL
SELECT DISTINCT 'Ja'                 uitsluiten,
                g.alg_gebouw_code,
                dir.afdeling,
                dir.prs_afdeling_omschrijving,
                'CEO/hoogstverantwoordelijke',
                dir.directeur     mailing_ad
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b,
       (SELECT b.prs_bedrijf_key, dir.afdeling, dir.prs_afdeling_omschrijving, dir.directeur_email directeur
          FROM prs_bedrijf  b,
               (SELECT (SELECT kl.prs_link_key
                          FROM prs_kenmerk k, prs_kenmerklink kl
                         WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                               AND k.prs_kenmerk_key = 1363
                               AND kl.prs_link_key = p.prs_perslid_key
                               AND k.prs_kenmerk_niveau = 'P')
                           directeur_key,
                       p.prs_perslid_email
                           directeur_email,
                       p.prs_perslid_mobiel
                           directeur_mobiel,
                          prs_perslid_naam
                       || DECODE (p.prs_perslid_voorletters,
                                  NULL, '',
                                  ', ' || p.prs_perslid_voorletters)
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  ' ' || p.prs_perslid_tussenvoegsel)
                       || DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  ' (' || p.prs_perslid_voornaam || ')')
                           directeur_naam_full,
                          DECODE (p.prs_perslid_voornaam,
                                  NULL, '',
                                  p.prs_perslid_voornaam || ' ')
                       || DECODE (p.prs_perslid_tussenvoegsel,
                                  NULL, '',
                                  p.prs_perslid_tussenvoegsel || ' ')
                       || prs_perslid_naam
                          directeur_naam_friendly,
                       a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling,
                       a.prs_afdeling_omschrijving,
                       a.prs_afdeling_naam
                  FROM prs_perslid   p,
                       prs_afdeling  a
                 WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                       AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                       AND p.prs_perslid_verwijder IS NULL) dir
         WHERE    dir.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
               AND dir.directeur_key IS NOT NULL) dir
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND c.cnt_contract_status = 0
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND dir.prs_bedrijf_key = b.prs_bedrijf_key
       AND r.alg_ruimte_verwijder IS NULL
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124)
       AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                       AND TRUNC (c.cnt_contract_looptijd_tot + 1)
 UNION ALL
      SELECT 'Ja'                                           uitsluiten,
             alg_gebouw_code,
             afdeling,
             prs_afdeling_omschrijving,
             'Operations contact'                           rol,
             LISTAGG (LOWER (prs_perslid_email), ';')
                 WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
        FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' ' ||a.prs_afdeling_omschrijving afdeling,a.prs_afdeling_omschrijving,  p.prs_perslid_email
                FROM alg_kenmerk       k,
                     alg_onrgoedkenmerk rk,
                     alg_ruimte        r,
                     alg_verdieping    v,
                     alg_gebouw        g,
                     prs_perslid       p,
                     prs_afdeling      a
               WHERE     k.alg_kenmerk_niveau = 'R'
                     AND k.alg_kenmerk_key = 2040        -- Operations contact
                     AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                     AND r.alg_ruimte_verwijder IS NULL
                     AND k.alg_kenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                     AND r.alg_ruimte_key = rk.alg_onrgoed_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND a.prs_afdeling_key = p.prs_afdeling_key
                     AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                     AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                         p.prs_perslid_key)
    GROUP BY alg_gebouw_code, afdeling, prs_afdeling_omschrijving, 'Operations contact'
    UNION ALL
      SELECT 'Ja'                                           uitsluiten,
             alg_gebouw_code,
             afdeling,
             prs_afdeling_omschrijving,
             'Plaatsvervangend operations contact'          rol,
             LISTAGG (LOWER (prs_perslid_email), ';')
                 WITHIN GROUP (ORDER BY alg_gebouw_code)    mailing_ad
        FROM (SELECT DISTINCT g.alg_gebouw_code, a.prs_afdeling_naam ||' '||a.prs_afdeling_omschrijving afdeling, prs_afdeling_omschrijving, p.prs_perslid_email
                FROM alg_kenmerk       k,
                     alg_onrgoedkenmerk rk,
                     alg_ruimte        r,
                     alg_verdieping    v,
                     alg_gebouw        g,
                     prs_perslid       p,
                     prs_afdeling      a
               WHERE     k.alg_kenmerk_niveau = 'R'
                     AND k.alg_kenmerk_key = 2060 -- Plaatsvervangend operations contact
                     AND rk.alg_kenmerk_key = k.alg_kenmerk_key
                     AND r.alg_ruimte_verwijder IS NULL
                     AND k.alg_kenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_verwijder IS NULL
                     AND rk.alg_onrgoedkenmerk_waarde IS NOT NULL
                     AND r.alg_ruimte_key = rk.alg_onrgoed_key
                     AND v.alg_verdieping_key = r.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND a.prs_afdeling_key = p.prs_afdeling_key
                     AND p.prs_perslid_key NOT IN (6601, 43821, 76381)
                     AND fac.safe_to_number (rk.alg_onrgoedkenmerk_waarde) =
                         p.prs_perslid_key)
    GROUP BY alg_gebouw_code, afdeling, prs_afdeling_omschrijving, 'Plaatsvervangend operations contact';

CREATE OR REPLACE VIEW BLCC_V_MEDEWERKERS
(
    PRS_PERSLID_KEY,
    PRS_PERSLID_NAAM,
    PRS_PERSLID_VERWIJDER
)
AS
    SELECT p.prs_perslid_key,
           fn.prs_perslid_naam_full,
           p.prs_perslid_verwijder
      FROM prs_perslid p, prs_v_perslid_fullnames_all fn
     WHERE     fn.prs_perslid_key = p.prs_perslid_key
           AND p.PRS_AFDELING_KEY = 427;

CREATE OR REPLACE VIEW blcc_v_rap_relatietype
(
    key,
    bedrijfnaam,
    relatietype,
    opmerking   
)
AS
    SELECT DISTINCT b.prs_bedrijf_key,
                    b.prs_bedrijf_naam,
                    rt.prs_relatietype_omschrijving,
                    b.prs_bedrijf_opmerking                   
      FROM prs_bedrijf         b,
           prs_relatietype     rt         
     WHERE     rt.prs_relatietype_key(+) = b.prs_relatietype_key         
           AND rt.prs_relatietype_verwijder IS NULL;
   
CREATE OR REPLACE VIEW blcc_v_aanvr_werkvergunning
(
    melding,
    key
)
AS
    SELECT vgt.ins_srtdiscipline_prefix || m.mld_melding_key || ' ' || m.mld_melding_onderwerp,
           m.mld_melding_key
      FROM mld_melding        m,
           mld_stdmelding     sm,
           mld_discipline     vg,
           ins_srtdiscipline  vgt
     WHERE     m.mld_stdmelding_key = 2321
           AND sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND vg.ins_discipline_key = sm.mld_ins_discipline_key
           AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key;

CREATE OR REPLACE VIEW blcc_v_rap_huurder_per_gebouw
(
    alg_gebouw_key,
    alg_gebouw_code,
    alg_gebouw_naam,
    huurder,
    huurder_opmerking,
    contract_nummer,
    contract_versie,
    contract_nummer_intern,
    contract_omschrijving,
    contract_scope,
    VVO,
    verhuur_classificatie_code,
    verhuur_classificatie
)
AS
    SELECT DISTINCT g.alg_gebouw_key,
                    g.alg_gebouw_code,
                    g.alg_gebouw_naam,
                    huurder.prs_bedrijf_naam,
                    huurder.prs_bedrijf_opmerking,
                    huurder.cnt_contract_nummer,
                    huurder.cnt_contract_versie,
                    huurder.cnt_contract_nummer_intern,
                    huurder.cnt_contract_omschrijving,
                    r.alg_ruimte_nr,
                    vvo.vvo_overeenkomst,
                    vh_class.verh_class_code,
                    vh_class.verh_classificatie
      FROM alg_ruimte      r,
           alg_verdieping  v,
           alg_gebouw      g,
           (  SELECT DISTINCT g.alg_gebouw_key,
                              r.alg_ruimte_key,
                              b.prs_bedrijf_naam,
                              b.prs_bedrijf_opmerking,
                              c.cnt_contract_nummer,
                              c.cnt_contract_versie,
                              c.cnt_contract_nummer_intern,
                              c.cnt_contract_omschrijving
                FROM cnt_contract_plaats cr,
                     cnt_contract       c,
                     alg_ruimte         r,
                     alg_verdieping     v,
                     alg_gebouw         g,
                     prs_bedrijf        b
               WHERE     cr.cnt_alg_plaats_code = 'R'
                     AND cr.cnt_contract_plaats_verwijder IS NULL
                     AND c.cnt_contract_key = cr.cnt_contract_key
                     AND c.cnt_contract_verwijder IS NULL
                     AND c.cnt_contract_status = 0
                     AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                     AND r.alg_verdieping_key = v.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                     AND c.ins_discipline_key IN (2122,
                                                  2123,
                                                  2124)
                     AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                     AND TRUNC (
                                             c.cnt_contract_looptijd_tot + 1)
            GROUP BY g.alg_gebouw_key,
                     r.alg_ruimte_key,
                     b.prs_bedrijf_naam,
                     b.prs_bedrijf_opmerking,
                     c.cnt_contract_nummer,
                     c.cnt_contract_versie,
                     c.cnt_contract_nummer_intern,
                     c.cnt_contract_omschrijving) huurder,
           (SELECT ok.alg_onrgoed_key,
                   ok.alg_onrgoedkenmerk_waarde     vvo_overeenkomst
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok
             WHERE     k.alg_kenmerk_key = 1720
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vvo,
           (SELECT ok.alg_onrgoed_key,
                   ud.fac_usrdata_code       verh_class_code,
                   ud.fac_usrdata_omschr     verh_classificatie
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, fac_usrdata ud
             WHERE     k.alg_kenmerk_key = 1100
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = 241
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vh_class
     WHERE     r.alg_verdieping_key = v.alg_verdieping_key
           AND huurder.alg_ruimte_key(+) = r.alg_ruimte_key
           AND v.alg_gebouw_key = g.alg_gebouw_key
           AND vvo.alg_onrgoed_key(+) = r.alg_ruimte_key
           AND vh_class.alg_onrgoed_key(+) = r.alg_ruimte_key
           AND r.alg_ruimte_verwijder IS NULL;

CREATE OR REPLACE VIEW BLCC_V_RAP_OPEN_OPDR
(
    opdracht_key,
    opdracht
)
AS
    SELECT o.mld_opdr_key,
              vgt.ins_srtdiscipline_prefix
           || TO_CHAR (m.mld_melding_key)
           || '/'
           || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr)
      FROM mld_opdr           o,
           mld_melding        m,
           mld_stdmelding     sm,
           mld_discipline     vg,
           ins_srtdiscipline  vgt
     WHERE     o.mld_statusopdr_key IN (3,
                                        4,
                                        5,
                                        8,
                                        10)
           AND m.mld_melding_key = o.mld_melding_key
           AND sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND vg.ins_discipline_key = sm.mld_ins_discipline_key
           AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key;



CREATE OR REPLACE VIEW BLCC_V_WVG_AANVR
AS
SELECT wvg_aanvr.wvg_aanvr_key,
       wvg_aanvr.aanvr_nr                aanvr_nr_wvg,
       wvg_aanvr.aanvrager               aanvrager_wvg,
       wvg_aanvr.afd                     afdeling_wvg_aanvr,
       wvg_aanvr.behandelaar             behandelaar_aanvr_wvg,
       wvg_aanvr.mld_melding_datum       datum_wvg_aanvr,
       wvg_aanvr.status                  status_aanvr_wvg,
       wvg_aanvr.opdracht                opdr_wvg_aanvr,
       wvg_aanvr.mld_opdr_datumbegin     einddatum_wvg_aanvr,
       wvg_aanvr.mld_opdr_key            opdrkey_wvg_aanvr,
       wvg_aanvr.mld_opdr_uren           uren_wvg_aanvr,
       wvg_aanvr.mld_opdr_uurloon        uurloon_wvg_aanvr,
       wo.melding                        voor_melding,
       wo.mld_melding_key                meldingkey,
       wo.aanvrager                      aanvrager,
       wo.afdeling                       afdeling_aanvr,
       wo.mld_statuses_omschrijving      melding_status,
       wo.mld_melding_datum,
       wo.mld_melding_einddatum,
       wo.mld_melding_onderwerp,
       wo.opdracht                       voor_wo,
       wo.behandelaar                    behandelaar_wo,
       wo.mld_opdr_datumbegin            wo_begin,
       wo.mld_opdr_einddatum             wo_eind,
       wo.status_opdracht                status_wo,
       wo.uitvoerende                    uitvoerende_wo
  FROM (SELECT fac.safe_to_number (wo.opdr_key)
                   wvg_voor,
               m.mld_melding_key
                   wvg_aanvr_key,
               vgt.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key)
                   aanvr_nr,
               m.mld_melding_datum,
               s.mld_statuses_omschrijving
                   status,
                  p.prs_perslid_naam
               || DECODE (p.prs_perslid_voorletters,
                          NULL, '',
                          ', ' || p.prs_perslid_voorletters)
               || DECODE (p.prs_perslid_tussenvoegsel,
                          NULL, '',
                          ' ' || p.prs_perslid_tussenvoegsel)
               || DECODE (p.prs_perslid_voornaam,
                          NULL, '',
                          ' (' || p.prs_perslid_voornaam || ')')
                   aanvrager,
               a.prs_afdeling_naam || ' - ' || a.prs_afdeling_omschrijving
                   afd,
               o.mld_opdr_key,
               CASE
                   WHEN o.mld_opdr_key IS NOT NULL
                   THEN
                          vgt.ins_srtdiscipline_prefix
                       || TO_CHAR (o.mld_melding_key)
                       || '/'
                       || o.mld_opdr_bedrijfopdr_volgnr
               END
                   opdracht,
               o.mld_opdr_datumbegin,
               o.mld_opdr_uren,
               o.mld_opdr_uurloon,
                  o.prs_perslid_naam
               || DECODE (o.prs_perslid_voorletters,
                          NULL, '',
                          ', ' || o.prs_perslid_voorletters)
               || DECODE (o.prs_perslid_tussenvoegsel,
                          NULL, '',
                          ' ' || o.prs_perslid_tussenvoegsel)
               || DECODE (o.prs_perslid_voornaam,
                          NULL, '',
                          ' (' || o.prs_perslid_voornaam || ')')
                   behandelaar
          FROM mld_melding        m,
               mld_stdmelding     sm,
               mld_discipline     vg,
               ins_srtdiscipline  vgt,
               mld_statuses       s,
               prs_perslid        p,                -- de aanvrager van de WVG
               prs_afdeling       a,
               (SELECT km.mld_melding_key,
                       km.mld_kenmerkmelding_waarde     opdr_key
                  FROM mld_kenmerk k, mld_kenmerkmelding km
                 WHERE     k.mld_srtkenmerk_key = 2101
                       AND km.mld_kenmerk_key = k.mld_kenmerk_key) wo,
               (SELECT o.*, b.*
                  FROM mld_opdr o, prs_perslid b
                 WHERE o.prs_perslid_key = b.prs_perslid_key) o
         WHERE     m.mld_stdmelding_key = 2321
               AND sm.mld_stdmelding_key = m.mld_stdmelding_key
               AND vg.ins_discipline_key = sm.mld_ins_discipline_key
               AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
               AND m.mld_melding_status = s.mld_statuses_key
               AND m.prs_perslid_key_voor = p.prs_perslid_key
               AND m.mld_melding_key = o.mld_melding_key(+)
               AND m.mld_melding_key = wo.mld_melding_key(+)
               AND a.prs_afdeling_key = p.prs_afdeling_key) wvg_aanvr,
       (SELECT o.mld_opdr_key,
                  vgt.ins_srtdiscipline_prefix
               || TO_CHAR (o.mld_melding_key)
               || '/'
               || o.mld_opdr_bedrijfopdr_volgnr
                   opdracht,
               o_stat.mld_statusopdr_omschrijving
                   status_opdracht,
               uitv.prs_bedrijf_naam
                   uitvoerende,
               beh.prs_perslid_naam_friendly
                   behandelaar,
               o.mld_opdr_datumbegin,
               o.mld_opdr_einddatum,
               vgt.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key)
                   melding,
               m.mld_melding_key,
                  aanvr.prs_perslid_naam
               || DECODE (aanvr.prs_perslid_voorletters,
                          NULL, '',
                          ', ' || aanvr.prs_perslid_voorletters)
               || DECODE (aanvr.prs_perslid_tussenvoegsel,
                          NULL, '',
                          ' ' || aanvr.prs_perslid_tussenvoegsel)
               || DECODE (aanvr.prs_perslid_voornaam,
                          NULL, '',
                          ' (' || aanvr.prs_perslid_voornaam || ')')
                   aanvrager,
               a.prs_afdeling_naam || ' - ' || a.prs_afdeling_omschrijving
                   afdeling,
               m_stat.mld_statuses_omschrijving,
               m.mld_melding_datum,
               m.mld_melding_einddatum,
               m.mld_melding_onderwerp
          FROM mld_opdr                     o,
               mld_melding                  m,
               mld_stdmelding               sm,
               mld_discipline               vg,
               ins_srtdiscipline            vgt,
               prs_bedrijf                  uitv,
               prs_v_perslid_fullnames_all  beh,
               prs_perslid                  aanvr,
               prs_afdeling                 a,
               mld_statusopdr               o_stat,
               mld_statuses                 m_stat
         WHERE     sm.mld_stdmelding_key = m.mld_stdmelding_key
               AND vg.ins_discipline_key = sm.mld_ins_discipline_key
               AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
               AND o.mld_melding_key = m.mld_melding_key
               AND uitv.prs_bedrijf_key = o.mld_uitvoerende_keys
               AND beh.prs_perslid_key = o.prs_perslid_key
               AND o_stat.mld_statusopdr_key = o.mld_statusopdr_key
               AND m_stat.mld_statuses_key = m.mld_melding_status
               AND m.prs_perslid_key_voor = aanvr.prs_perslid_key
               AND a.prs_afdeling_key = aanvr.prs_afdeling_key) wo
 WHERE wo.mld_opdr_key (+) = wvg_aanvr.wvg_voor;

CREATE OR REPLACE VIEW BLCC_V_WO_WVG
AS
    SELECT wo.melding                        melding,
           wo.mld_melding_key                meldingkey,
           wo.aanvrager                      aanvrager,
           wo.afdeling                       afdeling_aanvr,
           wo.mld_statuses_omschrijving      melding_status,
           wo.mld_melding_datum,
           wo.mld_melding_einddatum,
           wo.mld_melding_onderwerp,
           wo.opdracht                       wo,
           wo.behandelaar                    behandelaar_wo,
           wo.mld_opdr_datumbegin            wo_begin,
           wo.mld_opdr_einddatum             wo_eind,
           wo.status_opdracht                status_wo,
           wo.uitvoerende                    uitvoerende_wo,
           wvg_aanvr.wvg_aanvr_key,
           wvg_aanvr.aanvr_nr                aanvr_nr_wvg,
           wvg_aanvr.aanvrager               aanvrager_wvg,
           wvg_aanvr.afd                     afdeling_wvg_aanvr,
           wvg_aanvr.behandelaar             behandelaar_aanvr_wvg,
           wvg_aanvr.mld_melding_datum       datum_wvg_aanvr,
           wvg_aanvr.status                  status_aanvr_wvg,
           wvg_aanvr.opdracht                opdr_wvg_aanvr,
           wvg_aanvr.mld_opdr_datumbegin     einddatum_wvg_aanvr,
           wvg_aanvr.mld_opdr_key            opdrkey_wvg_aanvr,
           wvg_aanvr.mld_opdr_uren           uren_wvg_aanvr,
           wvg_aanvr.mld_opdr_uurloon        uurloon_wvg_aanvr
      FROM (SELECT fac.safe_to_number (wo.opdr_key)
                       wvg_voor,
                   m.mld_melding_key
                       wvg_aanvr_key,
                      vgt.ins_srtdiscipline_prefix
                   || TO_CHAR (m.mld_melding_key)
                       aanvr_nr,
                   m.mld_melding_datum,
                   s.mld_statuses_omschrijving
                       status,
                      p.prs_perslid_naam
                   || DECODE (p.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || p.prs_perslid_voorletters)
                   || DECODE (p.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || p.prs_perslid_tussenvoegsel)
                   || DECODE (p.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || p.prs_perslid_voornaam || ')')
                       aanvrager,
                      a.prs_afdeling_naam
                   || ' - '
                   || a.prs_afdeling_omschrijving
                       afd,
                   o.mld_opdr_key,
                   CASE
                       WHEN o.mld_opdr_key IS NOT NULL
                       THEN
                              vgt.ins_srtdiscipline_prefix
                           || TO_CHAR (o.mld_melding_key)
                           || '/'
                           || o.mld_opdr_bedrijfopdr_volgnr
                   END
                       opdracht,
                   o.mld_opdr_datumbegin,
                   o.mld_opdr_uren,
                   o.mld_opdr_uurloon,
                      o.prs_perslid_naam
                   || DECODE (o.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || o.prs_perslid_voorletters)
                   || DECODE (o.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || o.prs_perslid_tussenvoegsel)
                   || DECODE (o.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || o.prs_perslid_voornaam || ')')
                       behandelaar
              FROM mld_melding        m,
                   mld_stdmelding     sm,
                   mld_discipline     vg,
                   ins_srtdiscipline  vgt,
                   mld_statuses       s,
                   prs_perslid        p,            -- de aanvrager van de WVG
                   prs_afdeling       a,
                   (SELECT km.mld_melding_key,
                           km.mld_kenmerkmelding_waarde     opdr_key
                      FROM mld_kenmerk k, mld_kenmerkmelding km
                     WHERE     k.mld_srtkenmerk_key = 2101
                           AND km.mld_kenmerk_key = k.mld_kenmerk_key) wo,
                   (SELECT o.*, b.*
                      FROM mld_opdr o, prs_perslid b
                     WHERE o.prs_perslid_key = b.prs_perslid_key) o
             WHERE     m.mld_stdmelding_key = 2321
                   AND sm.mld_stdmelding_key = m.mld_stdmelding_key
                   AND vg.ins_discipline_key = sm.mld_ins_discipline_key
                   AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
                   AND m.mld_melding_status = s.mld_statuses_key
                   AND m.prs_perslid_key_voor = p.prs_perslid_key
                   AND m.mld_melding_key = o.mld_melding_key(+)
                   AND m.mld_melding_key = wo.mld_melding_key(+)
                   AND a.prs_afdeling_key = p.prs_afdeling_key) wvg_aanvr,
           (SELECT o.mld_opdr_key,
                      vgt.ins_srtdiscipline_prefix
                   || TO_CHAR (o.mld_melding_key)
                   || '/'
                   || o.mld_opdr_bedrijfopdr_volgnr
                       opdracht,
                   o_stat.mld_statusopdr_omschrijving
                       status_opdracht,
                   uitv.prs_bedrijf_naam
                       uitvoerende,
                   beh.prs_perslid_naam_friendly
                       behandelaar,
                   o.mld_opdr_datumbegin,
                   o.mld_opdr_einddatum,
                      vgt.ins_srtdiscipline_prefix
                   || TO_CHAR (m.mld_melding_key)
                       melding,
                   m.mld_melding_key,
                      aanvr.prs_perslid_naam
                   || DECODE (aanvr.prs_perslid_voorletters,
                              NULL, '',
                              ', ' || aanvr.prs_perslid_voorletters)
                   || DECODE (aanvr.prs_perslid_tussenvoegsel,
                              NULL, '',
                              ' ' || aanvr.prs_perslid_tussenvoegsel)
                   || DECODE (aanvr.prs_perslid_voornaam,
                              NULL, '',
                              ' (' || aanvr.prs_perslid_voornaam || ')')
                       aanvrager,
                      a.prs_afdeling_naam
                   || ' - '
                   || a.prs_afdeling_omschrijving
                       afdeling,
                   m_stat.mld_statuses_omschrijving,
                   m.mld_melding_datum,
                   m.mld_melding_einddatum,
                   m.mld_melding_onderwerp
              FROM mld_opdr                     o,
                   mld_melding                  m,
                   mld_stdmelding               sm,
                   mld_discipline               vg,
                   ins_srtdiscipline            vgt,
                   prs_bedrijf                  uitv,
                   prs_v_perslid_fullnames_all  beh,
                   prs_perslid                  aanvr,
                   prs_afdeling                 a,
                   mld_statusopdr               o_stat,
                   mld_statuses                 m_stat
             WHERE     sm.mld_stdmelding_key = m.mld_stdmelding_key
                   AND vg.ins_discipline_key = sm.mld_ins_discipline_key
                   AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
                   AND o.mld_melding_key = m.mld_melding_key
                   AND uitv.prs_bedrijf_key = o.mld_uitvoerende_keys
                   AND beh.prs_perslid_key = o.prs_perslid_key
                   AND o_stat.mld_statusopdr_key = o.mld_statusopdr_key
                   AND m_stat.mld_statuses_key = m.mld_melding_status
                   AND m.prs_perslid_key_voor = aanvr.prs_perslid_key
                   AND a.prs_afdeling_key = aanvr.prs_afdeling_key) wo
     WHERE wo.mld_opdr_key = wvg_aanvr.wvg_voor(+);

CREATE OR REPLACE VIEW BLCC_RAP_KALENDER_OPDR
(
    USER_KEY,
    GEBOUW,
    TITLE,
    VAN,
    TOT,
    ITEM_KEY,
    COLOR,
    TEXTCOLOR,
    URL,
    UITVOERENDE,
	 KOSTENPLAATS,
	 STATUS
)
AS
    SELECT NULL user_key,
           gebouw.alg_gebouw_code,
              po.opdracht
           || CHR (10)
           || naam_uitvoerende
           || CHR (10)
           || 'Gebouw:  '
           || gebouw.alg_gebouw_code
           || CHR (10)
           --|| 'WVG: '
           --|| COALESCE (wvg_nr.aanvr_nr, 'Onbekend')
           || CHR (10)
           --|| 'Klant akkoord: '
           --|| COALESCE (akk.fac_usrdata_omschr, 'Onbekend')
           || (CASE
                   WHEN opm.mld_kenmerkopdr_waarde IS NOT NULL
                   THEN
                       CHR (10) || 'Toelichting: ' || opm.mld_kenmerkopdr_waarde
                   ELSE
                       NULL
               END)
               title,
           TRUNC(plandatum)
               plandatum,
           TRUNC(plandatum)
               plandatum,
           opdr_key
               item_key,
           CASE
               WHEN po.kostenplaats LIKE '50601%' THEN '#02A528'      -- groen
               WHEN po.kostenplaats LIKE '50602%' THEN '#02A528'      -- groen
               WHEN po.kostenplaats LIKE '50603%' THEN '#02A528'      -- groen
               WHEN po.kostenplaats LIKE '50610%' THEN '#F26522'     -- oranje
               WHEN po.kostenplaats LIKE '5040%' THEN '#002C67'       -- blauw
               WHEN po.kostenplaats LIKE '50900%' THEN '#e6e619'       -- geel
               ELSE '#616366'                                         -- grijs
           END
               AS color,
           CASE
               WHEN po.kostenplaats LIKE '50610%' THEN '#000000'      -- zwart
               WHEN po.kostenplaats LIKE '50900%' THEN '#000000'      -- zwart
               ELSE '#FFFFFF'                                           -- wit
           END
               AS textcolor,
              '?u=opdracht'
           || CHR (38)
           || 'internal=1'
           || CHR (38)
           || 'k='
           || opdr_key
               url,
           po.naam_uitvoerende,
		     po.kostenplaats  kostenplaats,
		     po.status  status
      FROM blcc_v_rap_planning_opdr  po,
           (SELECT o.mld_opdr_key, og.alg_gebouw_code
              FROM mld_opdr                   o,
                   mld_melding                m,
                   alg_locatie                l,
                   alg_district               d,
                   alg_regio                  r,
                   alg_v_allonrgoed_gegevens  og
             WHERE     o.mld_melding_key = m.mld_melding_key
                   AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
                   AND l.alg_district_key = d.alg_district_key(+)
                   AND d.alg_regio_key = r.alg_regio_key(+)
                   AND m.mld_alg_onroerendgoed_keys =
                       og.alg_onroerendgoed_keys(+)) gebouw,
           (SELECT fac.safe_to_number (wo.opdr_key)    wvg_voor,
                      vgt.ins_srtdiscipline_prefix
                   || TO_CHAR (m.mld_melding_key)      aanvr_nr
              FROM mld_melding        m,
                   mld_stdmelding     sm,
                   mld_discipline     vg,
                   ins_srtdiscipline  vgt,
                   (SELECT km.mld_melding_key,
                           km.mld_kenmerkmelding_waarde     opdr_key
                      FROM mld_kenmerk k, mld_kenmerkmelding km
                     WHERE     k.mld_srtkenmerk_key = 2101
                           AND km.mld_kenmerk_key = k.mld_kenmerk_key) wo
             WHERE     m.mld_stdmelding_key = 2321
                   AND sm.mld_stdmelding_key = m.mld_stdmelding_key
                   AND vg.ins_discipline_key = sm.mld_ins_discipline_key
                   AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
                   AND m.mld_melding_status NOT IN (1)       -- niet afgewezen
                   AND m.mld_melding_key = wo.mld_melding_key) wvg_nr,
           (SELECT ko.mld_opdr_key, ud.fac_usrdata_omschr
              FROM mld_kenmerkopdr ko, fac_usrdata ud, fac_usrtab ut
             WHERE     ko.mld_kenmerk_key = 3023
                   AND fac.safe_to_number (ko.mld_kenmerkopdr_waarde) =
                       ud.fac_usrdata_key
                   AND ko.mld_kenmerkopdr_verwijder IS NULL
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND ut.fac_usrtab_key = 681) inf,
           (SELECT ko.mld_opdr_key, ud.fac_usrdata_omschr
              FROM mld_kenmerkopdr ko, fac_usrdata ud, fac_usrtab ut
             WHERE     ko.mld_kenmerk_key = 3024
                   AND fac.safe_to_number (ko.mld_kenmerkopdr_waarde) =
                       ud.fac_usrdata_key
                   AND ko.mld_kenmerkopdr_verwijder IS NULL
                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
                   AND ut.fac_usrtab_key = 681) akk,
           (SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde
              FROM mld_kenmerkopdr ko
             WHERE ko.mld_kenmerk_key = 3025) opm
     WHERE     plandatum > ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -3)
           AND wvg_nr.wvg_voor(+) = po.opdr_key
           AND inf.mld_opdr_key(+) = po.opdr_key
           AND akk.mld_opdr_key(+) = po.opdr_key
           AND opm.mld_opdr_key(+) = po.opdr_key
           AND gebouw.mld_opdr_key(+) = po.opdr_key
    UNION ALL
    SELECT NULL user_key,
           NULL gebouw,
           vgt.ins_srtdiscipline_prefix || TO_CHAR (m.mld_melding_key)
               title,
           fac.safe_to_date (uitvoerdatum.uitvoerdatum, 'dd-mm-yyyy')
               uitvoerdatum,
           fac.safe_to_date (uitvoerdatum.uitvoerdatum, 'dd-mm-yyyy')
               uitvoerdatum,
           m.mld_melding_key,
           '#800080' color,
           '#FFFFFF' textcolor,
           '?u=melding' || CHR (38) || 'k=' || m.mld_melding_key url,
           uitv.uitvoerder, 
		     NULL kostenplaats,
		     ms.mld_statuses_omschrijving  status
      FROM mld_melding        m,
		     mld_statuses		   ms,		
           mld_stdmelding     sm,
           mld_discipline     vg,
           ins_srtdiscipline  vgt,
           (SELECT m.mld_melding_key,
                   CASE
                       WHEN wie.mld_kenmerkmelding_waarde = '1921'
                       THEN
                           onmr.opdrachtnemer
                       WHEN wie.mld_kenmerkmelding_waarde = '1922'
                       THEN
                           oanmr.onderaannemer
                       ELSE
                           'Onbekend'
                   END    uitvoerder
              FROM (SELECT km.mld_melding_key,
                           km.mld_kenmerkmelding_waarde,
                           ud.fac_usrdata_code
                      FROM mld_kenmerk         k,
                           mld_kenmerkmelding  km,
                           fac_usrdata         ud
                     WHERE     k.mld_srtkenmerk_key = 1924
                           AND km.mld_kenmerk_key = k.mld_kenmerk_key
                           AND fac.safe_to_number(km.mld_kenmerkmelding_waarde) =
                               ud.fac_usrdata_key) wie, -- wie gaat de opdracht uitvoeren
                   (SELECT km.mld_melding_key,
                           km.mld_kenmerkmelding_waarde     opdrachtnemer
                      FROM mld_kenmerk k, mld_kenmerkmelding km
                     WHERE     k.mld_srtkenmerk_key = 1922
                           AND km.mld_kenmerk_key = k.mld_kenmerk_key
                           AND k.mld_kenmerk_key = 3542) onmr, -- opdrachtnemer
                   (SELECT km.mld_melding_key,
                           km.mld_kenmerkmelding_waarde     onderaannemer
                      FROM mld_kenmerk k, mld_kenmerkmelding km
                     WHERE     k.mld_srtkenmerk_key = 1022
                           AND km.mld_kenmerk_key = k.mld_kenmerk_key
                           AND k.mld_kenmerk_key = 3543) oanmr, -- onderaannemer
                   mld_melding  m
             WHERE     m.mld_stdmelding_key = 2321
                   AND wie.mld_melding_key = m.mld_melding_key
                   AND onmr.mld_melding_key(+) = m.mld_melding_key
                   AND oanmr.mld_melding_key(+) = m.mld_melding_key) uitv,
           (SELECT km.mld_melding_key, km.mld_kenmerkmelding_waarde opdr_key
              FROM mld_kenmerk k, mld_kenmerkmelding km
             WHERE     k.mld_srtkenmerk_key = 3964
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key) wo,
           (SELECT km.mld_melding_key,
                   km.mld_kenmerkmelding_waarde     uitvoerdatum
              FROM mld_kenmerk k, mld_kenmerkmelding km
             WHERE     k.mld_srtkenmerk_key = 741
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key) uitvoerdatum
     WHERE     m.mld_stdmelding_key = 2321
		     AND m.mld_melding_status	= ms.mld_statuses_key
           AND sm.mld_stdmelding_key = m.mld_stdmelding_key
           AND vg.ins_discipline_key = sm.mld_ins_discipline_key
           AND vgt.ins_srtdiscipline_key = vg.ins_srtdiscipline_key
           AND m.mld_melding_status NOT IN (1)               -- niet afgewezen
           AND fac.safe_to_date (uitvoerdatum.uitvoerdatum, 'dd-mm-yyyy') >
               ADD_MONTHS (TRUNC (SYSDATE, 'MM'), -3)
           AND m.mld_melding_key = wo.mld_melding_key(+)
           AND m.mld_melding_key = uitvoerdatum.mld_melding_key(+)
           AND m.mld_melding_key = uitv.mld_melding_key(+);

CREATE OR REPLACE VIEW BLCC_V_RAP_VVO_VH_CLASS
AS
    SELECT DISTINCT
           huurder.prs_bedrijf_naam
               fclt_sort,
           huurder.prs_bedrijf_naam,
           huurder.relatietype,
           CASE WHEN huurder.cb_member = 1 THEN 'Ja' ELSE 'Nee' END
               AS CB_member,
           huurder.prs_bedrijf_opmerking,
           huurder.cnt_contract_nummer,
           huurder.cnt_contract_versie,
           huurder.cnt_contract_nummer_intern,
           huurder.oorspronkelijke_ingangsdatum,
           huurder.cnt_contract_looptijd_van,
           huurder.cnt_contract_looptijd_tot,
           huurder.cnt_contract_omschrijving,
           g.alg_gebouw_key,
           g.alg_gebouw_code,
           g.alg_gebouw_naam,
           r.alg_ruimte_nr,
           r.alg_ruimte_bruto_vloeropp NVO,
           r.alg_ruimte_opp_alt1 VVO,
           vvo.vvo_overeenkomst,
           vh_class.verh_classificatie
      FROM alg_ruimte      r,
           alg_verdieping  v,
           alg_gebouw      g,
           (  SELECT DISTINCT g.alg_gebouw_key,
                              r.alg_ruimte_key,
                              b.prs_bedrijf_naam,
                              rt.prs_relatietype_omschrijving     relatietype,
                              cb.cb_member,
                              b.prs_bedrijf_opmerking,
                              c.cnt_contract_nummer,
                              c.cnt_contract_versie,
                              c.cnt_contract_nummer_intern,
                              oorspr_dat.oorspronkelijke_ingangsdatum,
                              c.cnt_contract_looptijd_van,
                              c.cnt_contract_looptijd_tot,
                              c.cnt_contract_omschrijving
                FROM cnt_contract_plaats cr,
                     cnt_contract       c,
                     alg_ruimte         r,
                     alg_verdieping     v,
                     alg_gebouw         g,
                     prs_bedrijf        b,
                     prs_relatietype    rt,
                     (SELECT kc.cnt_contract_key,
                             fac.safe_to_date (cnt_kenmerkcontract_waarde,
                                               'dd-mm-yyyy')    oorspronkelijke_ingangsdatum
                        FROM cnt_srtkenmerk     sk,
                             cnt_kenmerk        k,
                             cnt_kenmerkcontract kc
                       WHERE     k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key
                             AND k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                             AND sk.cnt_srtkenmerk_key = 414
                             AND kc.cnt_kenmerkcontract_verwijder IS NULL)
                     oorspr_dat,
                     (SELECT l.prs_kenmerklink_waarde cb_member, l.prs_link_key
                        FROM prs_kenmerklink l
                       WHERE     l.prs_kenmerk_key = 1340
                             AND l.prs_kenmerklink_verwijder IS NULL) cb
               WHERE     cr.cnt_alg_plaats_code = 'R'
                     AND cr.cnt_contract_plaats_verwijder IS NULL
                     AND c.cnt_contract_key = cr.cnt_contract_key
                     AND c.cnt_contract_verwijder IS NULL
                     AND c.cnt_contract_status = 0
                     AND oorspr_dat.cnt_contract_key(+) = c.cnt_contract_key
                     AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                     AND r.alg_verdieping_key = v.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND rt.prs_relatietype_key(+) = b.prs_relatietype_key
                     AND cb.prs_link_key(+) = b.prs_bedrijf_key
                     AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                     AND c.ins_discipline_key IN (2122,
                                                  2123,
                                                  2124,
                                                  2141,
                                                  2142)
                     AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                     AND TRUNC (
                                             c.cnt_contract_looptijd_tot + 1)
            GROUP BY g.alg_gebouw_key,
                     r.alg_ruimte_key,
                     b.prs_bedrijf_naam,
                     rt.prs_relatietype_omschrijving,
                     cb.cb_member,
                     b.prs_bedrijf_opmerking,
                     c.cnt_contract_nummer,
                     c.cnt_contract_versie,
                     oorspr_dat.oorspronkelijke_ingangsdatum,
                     c.cnt_contract_looptijd_van,
                     c.cnt_contract_looptijd_tot,
                     c.cnt_contract_nummer_intern,
                     c.cnt_contract_omschrijving) huurder,
           (SELECT ok.alg_onrgoed_key,
                   ok.alg_onrgoedkenmerk_waarde     vvo_overeenkomst
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok
             WHERE     k.alg_kenmerk_key = 1720
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vvo,
           (SELECT ok.alg_onrgoed_key,
                   ud.fac_usrdata_omschr     verh_classificatie
              FROM alg_kenmerk k, alg_onrgoedkenmerk ok, fac_usrdata ud
             WHERE     k.alg_kenmerk_key = 1100
                   AND ok.alg_onrgoed_niveau = 'R'
                   AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                   AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
                       ud.fac_usrdata_key
                   AND ud.fac_usrtab_key = 241
                   AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vh_class
     WHERE     r.alg_verdieping_key = v.alg_verdieping_key
           AND huurder.alg_ruimte_key = r.alg_ruimte_key
           AND v.alg_gebouw_key = g.alg_gebouw_key
           AND vvo.alg_onrgoed_key = r.alg_ruimte_key
           AND vh_class.alg_onrgoed_key = r.alg_ruimte_key
           AND r.alg_ruimte_verwijder IS NULL;

CREATE OR REPLACE VIEW BLCC_V_KLACHTEN
(
    STDMELDING_KEY,
    STDMELDING_OMSCHRIJVING,
    BEHANDELTEAM
)
AS
    SELECT sm.mld_stdmelding_key,
           sm.mld_stdmelding_omschrijving,
           vg.ins_discipline_omschrijving
      FROM mld_stdmelding sm, ins_tab_discipline vg
     WHERE        sm.mld_stdmelding_default_disc IS NOT NULL
              AND vg.ins_discipline_key = sm.mld_stdmelding_default_disc
              AND sm.mld_stdmelding_verwijder IS NULL
              AND sm.mld_stdmelding_vervaldatum IS NULL
           OR     sm.mld_stdmelding_vervaldatum > TRUNC (SYSDATE)
              AND UPPER (sm.mld_stdmelding_omschrijving) LIKE '%KLACHT%';

CREATE OR REPLACE VIEW BLCC_V_NOTI_MLD_DISLIKE
(
    SENDER,
    RECEIVER,
    TEXT,
    CODE,
    FAC_SRTNOTIFICATIE_KEY,
    KEY,
    XKEY,
    XEMAIL,
    XMOBILE
)
AS
    SELECT NULL                   sender,
           NULL                   receiver,
              'De afhandeling van melding '
           || m.mld_melding_key
           || ' is gewaardeerd met '
           || CASE
                  WHEN m.mld_melding_satisfaction = 2 THEN '1 ster'
                  WHEN m.mld_melding_satisfaction = 4 THEN '2 sterren'
              END                 TEXT,
           fac_srtnotificatie_code,
           n.fac_srtnotificatie_key,
           m.mld_melding_key,
           NULL                   xkey,
           p.prs_perslid_email    xemail,
           NULL                   xmobile
      FROM fac_tracking         t,
           mld_melding          m,
           fac_srtnotificatie   n,
           fac_notificatie_job  j,
           prs_perslid          p
     WHERE     t.fac_tracking_refkey = m.mld_melding_key
           AND n.fac_srtnotificatie_code = 'MLDLIK'
           AND t.fac_srtnotificatie_key = 842
           AND (   m.mld_melding_satisfaction = 2
                OR m.mld_melding_satisfaction = 4)
           AND UPPER (j.fac_notificatie_job_view) = 'BLCC_V_NOTI_MLD_DISLIKE'
           AND p.prs_perslid_key = 1421
           AND (   t.fac_tracking_datum > j.fac_notificatie_job_lastrun
                OR j.fac_notificatie_job_lastrun IS NULL)
           AND t.fac_tracking_datum < j.fac_notificatie_job_nextrun;

-- Communicatie lijst, inclusief de voorgaande huurders (tot 3 maanden terug) en de nieuwe huurder
CREATE OR REPLACE VIEW BLCC_V_RAP_CONTR_COMM_VGHRD
AS
   SELECT DISTINCT com.alg_gebouw_key,
                com.alg_gebouw_code,
                com.alg_gebouw_naam,
                com.cnt_scope     ruimtes,
                com.fillterveld,
                com.huurder,
                com.relatietype_key,
                com.relatietype,
                com.cb_member,
                com.huurder_opmerking,
                com.contract_nummer,
                com.contract_versie,
                com.contract_nummer_intern,
                com.oorspronkelijke_ingangsdatum,
                com.looptijd_van,
                com.looptijd_tot,
                com.contract_omschrijving,
                com.huisbaas_key,
                com.huisbaas_email,
                com.huisbaas_naam_friendly,
                com.huisbaas_naam_full,
                com.huisbaas_mobiel,
                mutatie_huisbaas.mutatie_huisbaas,
                com.pv_huisbaas_key,
                com.pv_huisbaas_naam_friendly,
                com.pv_huisbaas_naam_full,
                com.pv_huisbaas_email,
                com.pv_huisbaas_mobiel,
                mutatie_pv_huisbaas.mutatie_pv_huisbaas,
                com.ceo,
                com.pv_ceo,
                com.voorgaande_huurder,
                com.oud_cnt_looptijd_tot,
                com.loft_user_key,
                com.loft_user,
                mutatie_loftuser.mutatie_loftuser               
  FROM (SELECT cl.alg_gebouw_key,
               cl.alg_gebouw_code,
               cl.alg_gebouw_naam,
               cl.fillterveld,
               cl.huurder,
               cl.relatietype_key,
               cl.relatietype,
               cl.cb_member,
               cl.huurder_opmerking,
               cl.contract_nummer,
               cl.contract_versie,
               cl.contract_nummer_intern,
               cl.oorspronkelijke_ingangsdatum,
               cl.looptijd_van,
               cl.looptijd_tot,
               cl.contract_omschrijving,
               cl.cnt_scope,
               cl.huisbaas_key,
               cl.huisbaas_email,
               cl.huisbaas_naam_friendly,
               cl.huisbaas_naam_full,
               cl.huisbaas_mobiel,
               cl.pv_huisbaas_key,
               cl.pv_huisbaas_naam_friendly,
               cl.pv_huisbaas_naam_full,
               cl.pv_huisbaas_email,
               cl.pv_huisbaas_mobiel,
               cl.she_naam_friendly,
               cl.she_naam_full,
               cl.she_email,
               cl.she_mobiel,
               cl.oc_naam_friendly,
               cl.oc_naam_full,
               cl.oc_email,
               cl.oc_mobiel,
               cl.pv_oc_naam_friendly,
               cl.pv_oc_naam_full,
               cl.pv_oc_email,
               cl.pv_oc_mobiel,
               cl.financial_contact,
               cl.secretariaat,
               cl.directeur,
               cl.ceo,
               cl.pv_ceo,
               cl.loft_user_key,
               cl.loft_user,
               cl.html_melding,
               oc.voorgaande_huurder,
               oc.cntnr_voorgaande_huurder,
               oc.cntversie_voorgaande_huurder,
               oc.cntnr_intern_voorgaande_huurder,
               oc.oud_cnt_looptijd_van,
               oc.oud_cnt_looptijd_tot,
               nc.nieuwe_huurder,
               nc.cntnr_nieuwe_huurder,
               nc.cntversie_nieuwe_huurder,
               nc.cntnr_intern_nieuwe_huurder,
               nc.oorspronkelijke_ingangsdatum     oorspronkelijke_ingangsdatum_nc,
               nc.nieuw_cnt_looptijd_van,
               nc.nieuw_cnt_looptijd_tot
          FROM blcc_v_rap_contr_comm_lijst  cl,
               (  SELECT DISTINCT g.alg_gebouw_key,
                                  b.prs_bedrijf_naam               voorgaande_huurder,
                                  b.prs_bedrijf_key                voorgaande_huurder_key,
                                  c.cnt_contract_nummer            cntnr_voorgaande_huurder,
                                  c.cnt_contract_versie            cntversie_voorgaande_huurder,
                                  c.cnt_contract_nummer_intern     cntnr_intern_voorgaande_huurder,
                                  c.cnt_contract_looptijd_van      oud_cnt_looptijd_van,
                                  c.cnt_contract_looptijd_tot      oud_cnt_looptijd_tot
                    FROM cnt_contract_plaats cr,
                         cnt_contract       c,
                         alg_ruimte         r,
                         alg_verdieping     v,
                         alg_gebouw         g,
                         prs_bedrijf        b
                   WHERE     cr.cnt_alg_plaats_code = 'R'
                         AND cr.cnt_contract_plaats_verwijder IS NULL
                         AND c.cnt_contract_key = cr.cnt_contract_key
                         AND c.cnt_contract_verwijder IS NULL
                         AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                         AND r.alg_verdieping_key = v.alg_verdieping_key
                         AND g.alg_gebouw_key = v.alg_gebouw_key
                         AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                         AND c.ins_discipline_key IN (2122,
                                                      2123,
                                                      2124,
                                                      2141,
                                                      2142)
                         AND c.cnt_contract_looptijd_tot < TRUNC (SYSDATE)
                         AND c.cnt_contract_looptijd_tot > ADD_MONTHS (TRUNC (SYSDATE), -3)
                         AND NOT EXISTS  -- voorgaande huurder is niet gelijk aan de huidige huurder
                                 (SELECT huurder_key
                                    FROM blcc_v_rap_contr_comm_lijst com
                                   WHERE     com.huurder_key = b.prs_bedrijf_key
                                         AND com.alg_gebouw_key = g.alg_gebouw_key)
                GROUP BY g.alg_gebouw_key,
                         r.alg_ruimte_key,
                         b.prs_bedrijf_naam,
                         b.prs_bedrijf_key,
                         b.prs_bedrijf_opmerking,
                         c.cnt_contract_nummer,
                         c.cnt_contract_versie,
                         c.cnt_contract_looptijd_van,
                         c.cnt_contract_looptijd_tot,
                         c.cnt_contract_nummer_intern,
                         c.cnt_contract_omschrijving) oc,
               (  SELECT DISTINCT g.alg_gebouw_key,
                                  b.prs_bedrijf_naam               nieuwe_huurder,
                                  c.cnt_contract_nummer            cntnr_nieuwe_huurder,
                                  c.cnt_contract_versie            cntversie_nieuwe_huurder,
                                  c.cnt_contract_nummer_intern     cntnr_intern_nieuwe_huurder,
                                  oi.oorspronkelijke_ingangsdatum,
                                  c.cnt_contract_looptijd_van      nieuw_cnt_looptijd_van,
                                  c.cnt_contract_looptijd_tot      nieuw_cnt_looptijd_tot
                    FROM cnt_contract_plaats cr,
                         cnt_contract       c,
                         alg_ruimte         r,
                         alg_verdieping     v,
                         alg_gebouw         g,
                         prs_bedrijf        b,
                         (SELECT kc.cnt_kenmerkcontract_key,
                                 kc.cnt_kenmerkcontract_waarde     oorspronkelijke_ingangsdatum
                            FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
                           WHERE     sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                                 AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
                                 AND sk.cnt_srtkenmerk_key = 414
                                 AND kc.cnt_kenmerkcontract_verwijder IS NULL) oi
                   WHERE     cr.cnt_alg_plaats_code = 'R'
                         AND cr.cnt_contract_plaats_verwijder IS NULL
                         AND c.cnt_contract_key = cr.cnt_contract_key
                         AND c.cnt_contract_verwijder IS NULL
                         AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                         AND r.alg_verdieping_key = v.alg_verdieping_key
                         AND g.alg_gebouw_key = v.alg_gebouw_key
                         AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                         AND oi.cnt_kenmerkcontract_key(+) = c.cnt_contract_key
                         AND c.ins_discipline_key IN (2122,
                                                      2123,
                                                      2124,
                                                      2141,
                                                      2142)
                         AND c.cnt_contract_looptijd_van > TRUNC (SYSDATE)
                GROUP BY g.alg_gebouw_key,
                         r.alg_ruimte_key,
                         b.prs_bedrijf_naam,
                         b.prs_bedrijf_opmerking,
                         c.cnt_contract_nummer,
                         c.cnt_contract_versie,
                         oi.oorspronkelijke_ingangsdatum,
                         c.cnt_contract_looptijd_van,
                         c.cnt_contract_looptijd_tot,
                         c.cnt_contract_nummer_intern,
                         c.cnt_contract_omschrijving) nc
         WHERE     cl.alg_gebouw_key = oc.alg_gebouw_key(+)
               AND cl.alg_gebouw_key = nc.alg_gebouw_key(+)) com,
       (SELECT t.fac_tracking_refkey huisbaas_key, t.fac_tracking_oms mutatie_huisbaas
          FROM fac_tracking  t,
               (  SELECT MAX (t.fac_tracking_key) fac_tracking_key, t.fac_tracking_refkey perslid_key
                    FROM fac_tracking t
                   WHERE t.fac_srtnotificatie_key = 78 AND UPPER (t.fac_tracking_oms) LIKE '%MAIL%'
                GROUP BY t.fac_tracking_refkey) l
         WHERE l.fac_tracking_key = t.fac_tracking_key) mutatie_huisbaas,
       (SELECT t.fac_tracking_refkey pv_huisbaas_key, t.fac_tracking_oms mutatie_pv_huisbaas
          FROM fac_tracking  t,
               (  SELECT MAX (t.fac_tracking_key) fac_tracking_key, t.fac_tracking_refkey perslid_key
                    FROM fac_tracking t
                   WHERE t.fac_srtnotificatie_key = 78 AND UPPER (t.fac_tracking_oms) LIKE '%MAIL%'
                GROUP BY t.fac_tracking_refkey) l
         WHERE l.fac_tracking_key = t.fac_tracking_key) mutatie_pv_huisbaas,
       (SELECT t.fac_tracking_refkey loftuser_key, t.fac_tracking_oms mutatie_loftuser
          FROM fac_tracking  t,
               (  SELECT MAX (t.fac_tracking_key) fac_tracking_key, t.fac_tracking_refkey perslid_key
                    FROM fac_tracking t
                   WHERE t.fac_srtnotificatie_key = 78 AND UPPER (t.fac_tracking_oms) LIKE '%MAIL%'
                GROUP BY t.fac_tracking_refkey) l
         WHERE l.fac_tracking_key = t.fac_tracking_key) mutatie_loftuser
         WHERE     mutatie_huisbaas.huisbaas_key(+) = com.huisbaas_key
               AND mutatie_pv_huisbaas.pv_huisbaas_key(+) = com.pv_huisbaas_key
               AND mutatie_loftuser.loftuser_key(+) = com.loft_user_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_MLD_SLAPEND
(
   LAATSTE_ACTIE,
   DAGEN_STIL,
   MELDER,
   MLD_MELDING_KEY,
   MELDINGNR,
   GEREGISTREERD,
   VAKGROEP,
   STANDAARDMELDING,
   ONDERWERP,
   GEBOUW,
   BEHANDELAAR,
   BEHANDELTEAM,
   ACTIEVE_BEHANDELAAR_KEY,
   ACTIEVE_BEHANDELAAR,
   KLANT,
   ACTIE_BIJ,
   STATUS
)
AS
     SELECT MAX (t.actiedatum) laatste_actie,
            TRUNC (SYSDATE) - TRUNC (MAX (t.actiedatum)) dagen_stil,
            pm.prs_perslid_naam_full melder,
            m.mld_melding_key,
            sd.ins_srtdiscipline_prefix || '#' || m.mld_melding_key meldingnr,
            m.mld_melding_datum geregistreerd,
            md.ins_discipline_omschrijving vakgroep,
            sm.mld_stdmelding_omschrijving standaardmelding,
            m.mld_melding_onderwerp onderwerp,
            aog.alg_gebouw_code || '-' || aog.alg_gebouw_naam gebouw,
            pb.prs_perslid_naam_full behandelaar,
            bt.ins_discipline_omschrijving behandelteam,
            m.mld_melding_behandelaar2_key actieve_behandelaar_key,
            ab.prs_perslid_naam_full actieve_behandelaar,
            a.prs_afdeling_omschrijving klant,
            DECODE (BITAND (m.mld_melding_actiecode, 1),
                    1, 'Behandelaar',
                    'Klant')
               actie_bij,
            CASE
               WHEN m.mld_melding_flag > 0
               THEN lcl.l ('lcl_mld_flag' || m.mld_melding_flag)
            END
               status
       FROM mld_melding m,
            mld_stdmelding sm,
            mld_discipline md,
            ins_srtdiscipline sd,
            prs_v_perslid_fullnames pm,
            prs_v_perslid_fullnames pb,
            mld_discipline bt,
            prs_v_perslid_fullnames ab,
            prs_afdeling a,
            (SELECT n.mld_melding_key, n.mld_melding_note_aanmaak actiedatum
               FROM mld_melding_note n
             UNION ALL
             SELECT t.fac_tracking_refkey mld_melding_key, t.fac_tracking_datum actiedatum
               FROM fac_tracking t, fac_srtnotificatie sn
              WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
                    AND sn.fac_srtnotificatie_xmlnode IN ('melding')) t,
            alg_v_onroerendgoed_gegevens aog
      WHERE     m.mld_melding_status NOT IN (1, 5, 6)
            AND m.fac_activiteit_key IS NULL
            AND m.mld_stdmelding_key = sm.mld_stdmelding_key
            AND sm.mld_ins_discipline_key = md.ins_discipline_key
            AND md.ins_discipline_key NOT IN (3401)    -- Verhuuradministratie
            AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
            AND sd.ins_srtdiscipline_key IN (41, 42) -- Melding/Klantwens (additionele dienst)
            AND m.prs_perslid_key = pm.prs_perslid_key
            AND m.mld_melding_behandelaar_key = pb.prs_perslid_key(+)
            AND m.mld_ins_discipline_key = bt.ins_discipline_key(+)
            AND m.mld_melding_behandelaar2_key = ab.prs_perslid_key(+)
            AND m.prs_afdeling_key = a.prs_afdeling_key(+)
            AND m.mld_melding_key = t.mld_melding_key
            AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys(+)
            AND NOT EXISTS (SELECT 1 FROM mld_opdr WHERE mld_melding_key = m.mld_melding_key)
   GROUP BY pm.prs_perslid_naam_full,
            m.mld_melding_key,
            sd.ins_srtdiscipline_prefix || '#' || m.mld_melding_key,
            m.mld_melding_datum,
            md.ins_discipline_omschrijving,
            sm.mld_stdmelding_omschrijving,
            m.mld_melding_onderwerp,
            aog.alg_gebouw_code || '-' || aog.alg_gebouw_naam,
            pb.prs_perslid_naam_full,
            bt.ins_discipline_omschrijving,
            ab.prs_perslid_naam_full,
            m.mld_melding_behandelaar2_key,
            a.prs_afdeling_omschrijving,
            m.mld_melding_actiecode,
            m.mld_melding_flag
   ORDER BY MAX (actiedatum);

CREATE OR REPLACE VIEW BLCC_V_RAP_KT_KLACHT
AS
    SELECT bm.melding_key,
           bm.melding_nummer,
           bm.vakgroep,
           bm.meldingsoort,
           bm.melding_datumtijd,
           bm.melding_datum,
           bm.melding_gebouwcode,
           bm.melding_ruimtenr,
           bm.melder,
           bm.rating,
           bm.rating_opm,
           COALESCE (cat.categorie, betr.betrekking_op)     categorie
      FROM blcc_v_rap_meldingen  bm,
           (SELECT rt.fac_usrdata_omschr categorie, kenm.mld_melding_key
              FROM mld_kenmerkmelding kenm, fac_usrdata rt
             WHERE     kenm.mld_kenmerkmelding_verwijder IS NULL
                   AND rt.fac_usrdata_key = fac.safe_to_number (kenm.mld_kenmerkmelding_waarde)
                   AND rt.fac_usrtab_key = 1321
                   AND kenm.mld_kenmerk_key = 7401) cat,
           (SELECT rt.fac_usrdata_omschr betrekking_op, kenm.mld_melding_key
              FROM mld_kenmerkmelding kenm, fac_usrdata rt
             WHERE     kenm.mld_kenmerkmelding_verwijder IS NULL
                   AND rt.fac_usrdata_key = fac.safe_to_number (kenm.mld_kenmerkmelding_waarde)
                   AND rt.fac_usrtab_key = 921
                   AND kenm.mld_kenmerk_key = 1921) betr
     WHERE cat.mld_melding_key(+) = bm.melding_key AND betr.mld_melding_key(+) = bm.melding_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_BEZOEKERSPAS
(
    BEDRIJF,
    BEZOEKER,
    DATUM,
    RESERVERING,
    OMSCHRIJVING,
    SELECTIE
)
AS
    SELECT b.bez_afspraak_bedrijf,
           vn.voornaam || ' ' || b.bez_afspraak_naam                    bezoeker,
           TRUNC (rr.res_rsv_ruimte_van)                                datum,
           rr.res_reservering_key || '/' || rr.res_rsv_ruimte_volgnr    reservering,
           rr.res_rsv_ruimte_omschrijving,
              rr.res_reservering_key
           || '/'
           || rr.res_rsv_ruimte_volgnr
           || ' ('
           || rr.res_rsv_ruimte_omschrijving
           || ')'                                                       selectie
      FROM bez_afspraak    a,
           bez_bezoekers   b,
           (SELECT k.bez_bezoekers_key, k.bez_kenmerkwaarde_waarde voornaam
              FROM bez_kenmerkwaarde k
             WHERE k.bez_kenmerk_key = 1080 AND k.bez_kenmerkwaarde_verwijder IS NULL) vn,
           res_rsv_ruimte  rr
     WHERE     b.bez_afspraak_key = a.bez_afspraak_key
           AND vn.bez_bezoekers_key = b.bez_bezoekers_key
           AND rr.res_rsv_ruimte_key = a.res_rsv_ruimte_key
           AND rr.res_rsv_ruimte_verwijder IS NULL
           AND rr.RES_ACTIVITEIT_KEY = 130;

CREATE OR REPLACE PROCEDURE blcc_export_dynamics
AS
    oracle_err_num         NUMBER;
    oracle_err_mes         VARCHAR2 (200);
    v_errorhint            VARCHAR2 (100);
    v_aanduiding           VARCHAR2 (100);
    v_srtnotificatie_key   NUMBER;

    -- Onderstaande cursor verzamelt de opdrachten waarbij het totaal bedrag gewijzigd is, opdrachten die gereed gemeld zijn en opdrachten die geannuleerd zijn
    CURSOR ordupd IS
        SELECT MAX (fac_tracking_datum),
         actie,
         mld_melding_key,
         mld_opdr_key,
         opdrachtnr
        FROM (SELECT 'ordnew'                                                      actie,
                     ordnew.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key
                        FROM fac_tracking t
                       WHERE t.fac_srtnotificatie_key = 59) ordnew
               WHERE     o.mld_opdr_key = ordnew.mld_opdr_key
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND o.mld_opdr_externsyncdate IS NULL -- de opdracht is nog niet eerder verzonden naar Dynamics
              UNION ALL
              SELECT 'ordupd'                                                      actie, -- Prijswijziging waarvoor geen goedgekeuring/fiattering nodig!
                     ordupd.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key, t.fac_tracking_oms
                        FROM fac_tracking t
                       WHERE t.fac_srtnotificatie_key = 60 AND t.fac_tracking_oms LIKE '%Totaal <20>:%')
                     ordupd
               WHERE     o.mld_opdr_key = ordupd.mld_opdr_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_statusopdr_key NOT IN (1, 2, 3, 10)     -- WO is niet: Afgewezen / Niet akkoord / Ter fiattering / Ter goedkeuring
                     AND o.mld_opdr_approved IS NULL
                     AND ordupd.fac_tracking_datum > o.mld_opdr_externsyncdate
              UNION ALL
              SELECT 'ordupd'                                                      actie, -- Prijswijziging pas doorzetten na goedgekeuring/fiattering!
                     ordupd.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key, t.fac_tracking_oms
                        FROM fac_tracking t
                       WHERE (t.fac_srtnotificatie_key = 60 AND INSTR (UPPER (t.fac_tracking_oms), 'IS GOEDGEKEURD DOOR') > 0) -- ORDUPD bij (her)goedkeuring
                             OR t.fac_srtnotificatie_key = 62) -- ORDFOK bij (her)fiattering
                     ordupd
               WHERE     o.mld_opdr_key = ordupd.mld_opdr_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_statusopdr_key NOT IN (1, 2, 3, 10)     -- WO is niet: Afgewezen / Niet akkoord / Ter fiattering / Ter goedkeuring
                     AND o.mld_opdr_kosten <= o.mld_opdr_approved
                     AND ordupd.fac_tracking_datum > o.mld_opdr_externsyncdate
              UNION ALL
              SELECT 'ordver'                                                      actie,
                     ordver.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key
                        FROM fac_tracking t
                       WHERE t.fac_srtnotificatie_key = 66) ordver
               WHERE     o.mld_opdr_key = ordver.mld_opdr_key
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND o.mld_opdr_externsyncdate IS NOT NULL
                     AND ordver.fac_tracking_datum > o.mld_opdr_externsyncdate
              UNION ALL
              SELECT 'ordrej'                                                      actie,
                     ordrej.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key
                        FROM fac_tracking t
                       WHERE t.fac_srtnotificatie_key = 64) ordrej
               WHERE     o.mld_opdr_key = ordrej.mld_opdr_key
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND o.mld_opdr_externsyncdate IS NOT NULL
                     AND ordrej.fac_tracking_datum > o.mld_opdr_externsyncdate
              UNION ALL
              SELECT 'ordcan'                                                      actie,
                     ordcan.fac_tracking_datum,
                     m.mld_melding_key,
                     o.mld_opdr_key,
                     o.mld_uitvoerende_keys,
                     o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr     opdrachtnr,
                     o.mld_statusopdr_key                                          opdr_status,
                     o.mld_typeopdr_key
                FROM mld_opdr   o,
                     mld_melding m,
                     (SELECT t.fac_tracking_datum, t.fac_tracking_refkey mld_opdr_key
                        FROM fac_tracking t
                       WHERE t.fac_srtnotificatie_key = 69) ordcan
               WHERE     o.mld_opdr_key = ordcan.mld_opdr_key
                     AND m.mld_melding_key = o.mld_melding_key
                     AND o.mld_typeopdr_key IN (101, 2741, 3101, 3121) -- WO (tot 1000,-)/WO na offerte aanvraag/Klantwens WO/Klantwens WO na offerte
                     AND o.mld_opdr_externsyncdate IS NOT NULL
                     AND ordcan.fac_tracking_datum > o.mld_opdr_externsyncdate) updates
       WHERE     fac_tracking_datum > to_date ('08-11-2024', 'dd-mm-yyyy') -- oude tracking gaan we niet alsnog versturen, op prod vanaf 8-11!
              AND NOT EXISTS
               (SELECT 1
                  FROM prs_bedrijf b
                 WHERE b.prs_bedrijf_key = 15821 AND updates.mld_uitvoerende_keys = b.prs_bedrijf_key) -- BLCC#87179 Brightlands doorbelasting (key15821) uitsluiten
             AND NOT EXISTS
                     (SELECT n.fac_notificatie_refkey -- als de opdracht al klaar staat voor verzending naar Dynamics dan hoeft dat niet nogmaals
                        FROM fac_notificatie n, fac_srtnotificatie sn
                       WHERE     n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
                             AND sn.fac_srtnotificatie_code = 'CUST21'
                             AND n.fac_notificatie_refkey = mld_opdr_key)
            GROUP BY mld_melding_key,
                     actie,
                     mld_opdr_key,
                     opdrachtnr;
                     
BEGIN
    v_errorhint := 'init';

    SELECT sn.fac_srtnotificatie_key
      INTO v_srtnotificatie_key
      FROM fac_srtnotificatie sn
     WHERE sn.fac_srtnotificatie_code = 'CUST21';

    FOR rec IN ordupd
    LOOP
        BEGIN
            v_errorhint := 'Opdracht opnieuw te verzenden naar Dynamics: ' || rec.opdrachtnr;

            -- We zetten de opdracht klaar om (opnieuw) te verzenden
            INSERT INTO fac_notificatie (fac_srtnotificatie_key,
                                         fac_notificatie_status,
                                         fac_notificatie_refkey,
                                         fac_notificatie_prioriteit,
                                         prs_bedrijfadres_key)
                 VALUES (v_srtnotificatie_key,
                         0,
                         rec.mld_opdr_key,                         -- opdracht
                         2,
                         4621);

            -- aanmaken ordtrk (458) in fac_tracking
            INSERT INTO fac_tracking (fac_srtnotificatie_key,
                                      fac_tracking_refkey,
                                      fac_tracking_oms)
                 VALUES (458, rec.mld_opdr_key, 'Opdracht verzonden naar Dynamics');

            COMMIT;
        EXCEPTION
            WHEN OTHERS
            THEN
                oracle_err_num := SQLCODE;
                oracle_err_mes := SUBSTR (SQLERRM, 1, 100);

                -- aanmaken ordtrk (458) in fac_tracking, zodat ik weet wanneer de laatste export voor die opdracht is geweest
                INSERT INTO fac_tracking (fac_srtnotificatie_key,
                                          fac_tracking_refkey,
                                          fac_tracking_oms)
                         VALUES (458,
                                 rec.mld_opdr_key,
                                 v_aanduiding || '/' || oracle_err_num || ': ' || oracle_err_mes);
        END;
    END LOOP;
    COMMIT;
END blcc_export_dynamics;
/

CREATE OR REPLACE VIEW BLCC_V_RAP_UDR_CONTRACT
(
    NUMMER,
    NUMMER_EXTERN,
    VERSIE,
    CONTRACTSOORT,
    OMSCHRIJVING,
    OPMERKING,
    CONTRACTPARTIJ,
    OVEREENKOMST_NR,
    CONTRACTAFDELING,
    CONTRACTEIGENAAR,
    CONTRACTEIGENAAR_KEY,
    CONTRACTBEHEERDER,
    CONTRACTBEHEERDER_KEY,
    BEGINDATUM,
    EINDDATUM,
    OPZEGDATUM,
    RAPPELDATUM,
    OPZEGTERMIJN,
    RAPPELTERMIJN,
    FASE_ACTIEF,
    STATUS,
    CONTRACT_KEY,
    FCLT_3D_DISCIPLINE_KEY,
    FCLT_3D_AFDELING_KEY,
    SRTCONTRACT_TYPE,
    FCLT_3D_LOCATIE_KEY,
    LOCATIE_OMS,
    LOCATIE_OMSCHRIJVING,
    LOCATIE_PLAATS,
    REGIO_OMSCHRIJVING,
    DISTRICT_OMSCHRIJVING,
    LOCATIE_CODE,
    GEBOUW,
    GEBOUW_NAAM,
    TERREINSECTOR_CODE,
    TERREINSECTOR_NAAM,
    VERDIEPING_CODE,
    RUIMTE_NR,
    RUIMTE_OMSCHRIJVING,
    DISCIPLINE_OMSCHRIJVING,
    KOSTENSOORTGROEP,
    KOSTENSOORT,
    KPN,
    KPN_OMSCHRIJVING,
    KOSTEN,
    TERMIJNKOSTEN,
    FACTUURTERMIJN,
    JAARKOSTEN,
    KORTING,
    DIENST_OMSCHRIJVING
)
AS
    SELECT c.cnt_contract_nummer_intern,
           c.cnt_contract_nummer,
           c.cnt_contract_versie,
           lcl.x ('ins_discipline_omschrijving',
                  cd.ins_discipline_key,
                  cd.ins_discipline_omschrijving),
           c.cnt_contract_omschrijving,
           c.cnt_contract_document,
           COALESCE (b.prs_bedrijf_naam, afd2.prs_afdeling_naam, pf2.prs_perslid_naam_full),
           b.prs_overeenkomst_nr,
           d.prs_afdeling_omschrijving,
           (SELECT prs_perslid_naam_full
              FROM prs_v_perslid_fullnames_all
             WHERE prs_perslid_key = prs_perslid_key_eig),
           prs_perslid_key_eig
               contracteigenaar_key,
           (SELECT prs_perslid_naam_full
              FROM prs_v_perslid_fullnames_all
             WHERE prs_perslid_key = prs_perslid_key_beh),
           prs_perslid_key_beh
               contractbeheerder_key,
           c.cnt_contract_looptijd_van
               begindatum,
           c.cnt_contract_looptijd_tot
               einddatum,
           cnt.cnt_getopzegdatum (c.cnt_contract_key)
               cnt_opzegdatum,
           cnt.cnt_getrappeldatum (c.cnt_contract_key)
               cnt_rappeldatum,
           (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
              FROM cnt_termijn
             WHERE cnt_termijn_key = c.cnt_contract_opzegtermijn)
               cnt_opzegtermijn,
           (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
              FROM cnt_termijn
             WHERE cnt_termijn_key = c.cnt_contract_rappeltermijn)
               cnt_rappeltermijn,
           DECODE (cnt.cnt_contract_status (c.cnt_contract_looptijd_van,
                                            cnt.cnt_getrappeldatum (c.cnt_contract_key),
                                            cnt.cnt_getopzegdatum (c.cnt_contract_key),
                                            c.cnt_contract_looptijd_tot),
                   0, lcl.l ('lcl_cnt_future'),
                   1, lcl.l ('lcl_cnt_topical'),
                   2, lcl.l ('lcl_cnt_warn'),
                   3, lcl.l ('lcl_cnt_cancel'),
                   4, lcl.l ('lcl_cnt_past'))
               fase_actief,
           DECODE (
               c.cnt_contract_status,
               0, DECODE (fac.getsetting ('cnt_contract_approval'),
                          1, lcl.l ('lcl_cnt_active_approval'),
                          lcl.l ('lcl_cnt_active')),
               1, lcl.l ('lcl_cnt_inactive'),
               2, lcl.l ('lcl_cnt_new'),
               3, lcl.l ('lcl_cnt_forapproval'))
               cnt_contract_status,
           c.cnt_contract_key
               cnt_contract_key,
           COALESCE (c.ins_discipline_key, -1)
               disc_key,
           c.prs_afdeling_key_eig
               eigenaar_key,
           (SELECT lcl.x ('cnt_typecontract_omschrijving',
                          dp.cnt_srtcontract_type,
                          cnt_typecontract_omschrijving)
              FROM cnt_typecontract
             WHERE cnt_typecontract_key = dp.cnt_srtcontract_type)
               cnt_srtcontract_type,
           alg_locatie_key,
           alg_locatie_oms,
           alg_locatie_omschrijving,
           alg_locatie_plaats,
           alg_regio_omschrijving,
           alg_district_omschrijving,
           alg_locatie_code,
           alg_gebouw_code,
           alg_gebouw_naam,
           alg_terreinsector_code,
           alg_terreinsector_naam,
           alg_verdieping_code,
           alg_ruimte_nr,
           alg_ruimte_omschrijving,
           cd.ins_discipline_omschrijving
               ins_discipline_omschrijving,
           (SELECT ksg.prs_kostensoortgrp_oms
              FROM prs_kostensoortgrp ksg, prs_kostensoort ks
             WHERE     ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
                   AND ks.prs_kostensoort_key = c.prs_kostensoort_key)
               kostensoortgroep,
           ks.prs_kostensoort_oms
               kostensoort,
           kp.prs_kostenplaats_nr
               kpn,
           kp.prs_kostenplaats_omschrijving
               kpn_omschrijving,
           ROUND (
               DECODE (
                   fac.getsetting ('cnt_scopeverdeling'),
                   1, cloc.cnt_contract_plaats_gewicht,
                   0,   COALESCE (cloc.cnt_contract_plaats_gewicht, 1)
                      * c.cnt_contract_kosten
                      / (SELECT DECODE (SUM (COALESCE (cnt_contract_plaats_gewicht, 0)),
                                        0, 1,
                                        SUM (cnt_contract_plaats_gewicht))
                           FROM cnt_contract_plaats ccp
                          WHERE ccp.cnt_contract_key = c.cnt_contract_key),
                   c.cnt_contract_kosten),
               2)
               kosten,
           c.cnt_contract_termijnkosten,
           (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
              FROM cnt_termijn
             WHERE cnt_termijn_key = c.cnt_contract_termijntermijn)
               factuurtermijn,
           DECODE (
               cnt.termijnjaarfactor (c.cnt_contract_termijntermijn),
               -1, TO_NUMBER (NULL),
               cnt.termijnjaarfactor (c.cnt_contract_termijntermijn) * cnt_contract_termijnkosten)
               jaarkosten,
           c.cnt_contract_korting,
           di.prs_dienst_omschrijving
      FROM prs_bedrijf                  b,
           cnt_v_aanwezigcontract       c,
           prs_dienst                   di,
           prs_v_afdeling               d,
           prs_afdeling                 afd2,
           prs_v_perslid_fullnames_all  pf2,
           alg_district                 ad,
           alg_regio                    ar,
           cnt_disc_params              dp,
           cnt_discipline               cd,
           prs_kostenplaats             kp,
           prs_kostensoort              ks,
           (SELECT alg_locatie_omschrijving || ' (' || alg_locatie_code || ')'     alg_locatie_oms,
                   alg_locatie_omschrijving,
                   alg_locatie_plaats,
                   alg_locatie_code,
                   alg_gebouw_code,
                   alg_gebouw_naam,
                   alg_terreinsector_code,
                   alg_terreinsector_naam,
                   alg_verdieping_code,
                   alg_ruimte_nr,
                   alg_ruimte_omschrijving,
                   alg_district_key,
                   cnt_contract_key,
                   ll.alg_locatie_key,
                   cnt_contract_plaats_gewicht
              FROM alg_locatie        ll,
                   alg_gebouw         gg,
                   alg_verdieping     vv,
                   alg_ruimte         rr,
                   alg_terreinsector  tt,
                   (SELECT cp.cnt_contract_key,
                           cp.cnt_alg_plaats_key     alg_locatie_key,
                           NULL                      alg_gebouw_key,
                           NULL                      alg_terreinsector_key,
                           NULL                      alg_verdieping_key,
                           NULL                      alg_ruimte_key,
                           cnt_contract_plaats_gewicht
                      FROM cnt_contract_plaats cp
                     WHERE cnt_alg_plaats_code = 'L'
                    UNION ALL
                    SELECT cp.cnt_contract_key,
                           g.alg_locatie_key,
                           cp.cnt_alg_plaats_key     alg_gebouw_key,
                           NULL                      alg_terreinsector_key,
                           NULL                      alg_verdieping_key,
                           NULL                      alg_ruimte_key,
                           cnt_contract_plaats_gewicht
                      FROM cnt_contract_plaats cp, alg_gebouw g
                     WHERE cnt_alg_plaats_code = 'G' AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
                    UNION ALL
                    SELECT cp.cnt_contract_key,
                           t.alg_locatie_key,
                           NULL                      alg_gebouw_key,
                           cp.cnt_alg_plaats_key     alg_terreinsector_key,
                           NULL                      alg_verdieping_key,
                           NULL                      alg_ruimte_key,
                           cnt_contract_plaats_gewicht
                      FROM cnt_contract_plaats cp, alg_terreinsector t
                     WHERE     cnt_alg_plaats_code = 'T'
                           AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
                    UNION ALL
                    SELECT cp.cnt_contract_key,
                           g.alg_locatie_key,
                           g.alg_gebouw_key          alg_gebouw_key,
                           NULL                      alg_terreinsector_key,
                           cp.cnt_alg_plaats_key     alg_verdieping_key,
                           NULL                      alg_ruimte_key,
                           cnt_contract_plaats_gewicht
                      FROM cnt_contract_plaats cp, alg_gebouw g, alg_verdieping v
                     WHERE     cnt_alg_plaats_code = 'V'
                           AND cp.cnt_alg_plaats_key = v.alg_verdieping_key
                           AND v.alg_gebouw_key = g.alg_gebouw_key
                    UNION ALL
                    SELECT cp.cnt_contract_key,
                           g.alg_locatie_key,
                           g.alg_gebouw_key          alg_gebouw_key,
                           NULL                      alg_terreinsector_key,
                           v.alg_verdieping_key      alg_verdieping_key,
                           cp.cnt_alg_plaats_key     alg_ruimte_key,
                           cnt_contract_plaats_gewicht
                      FROM cnt_contract_plaats  cp,
                           alg_gebouw           g,
                           alg_verdieping       v,
                           alg_ruimte           r
                     WHERE     cnt_alg_plaats_code = 'R'
                           AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
                           AND r.alg_verdieping_key = v.alg_verdieping_key
                           AND v.alg_gebouw_key = g.alg_gebouw_key
                    UNION ALL
                    SELECT co.cnt_contract_key,
                           d.ins_alg_locatie_key,
                           NULL     alg_gebouw_key,
                           NULL     alg_terreinsector_key,
                           NULL     alg_verdieping_key,
                           NULL     alg_ruimte_key,
                           NULL     cnt_contract_plaats_gewicht
                      FROM cnt_contract_object co, ins_deel d
                     WHERE co.cnt_ins_deel_key = d.ins_deel_key) scloc
             WHERE     ll.alg_locatie_key = scloc.alg_locatie_key
                   AND gg.alg_gebouw_key(+) = scloc.alg_gebouw_key
                   AND tt.alg_terreinsector_key(+) = scloc.alg_terreinsector_key
                   AND vv.alg_verdieping_key(+) = scloc.alg_verdieping_key
                   AND rr.alg_ruimte_key(+) = scloc.alg_ruimte_key) cloc
     WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
           AND c.cnt_prs_afdeling_key = afd2.prs_afdeling_key(+)
           AND c.cnt_prs_perslid_key = pf2.prs_perslid_key(+)
           AND c.prs_dienst_key = di.prs_dienst_key(+)
           AND d.prs_afdeling_key = c.prs_afdeling_key_eig
           AND c.ins_discipline_key = dp.cnt_ins_discipline_key
           AND c.ins_discipline_key = cd.ins_discipline_key
           AND cloc.cnt_contract_key(+) = c.cnt_contract_key
           AND cloc.alg_district_key = ad.alg_district_key(+)
           AND ad.alg_regio_key = ar.alg_regio_key(+)
           AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
           AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
           AND c.cnt_contract_key IN
                   (SELECT cnt_contract_key
                      FROM (SELECT cc.cnt_contract_key,
                                   ins_discipline_key,
                                   di.alg_regio_key,
                                   ll.alg_district_key,
                                   clk.alg_locatie_key
                              FROM (SELECT cp.cnt_contract_key,
                                           cp.cnt_alg_plaats_key     alg_locatie_key
                                      FROM cnt_contract_plaats cp
                                     WHERE cnt_alg_plaats_code = 'L'
                                    UNION ALL
                                    SELECT cp.cnt_contract_key, g.alg_locatie_key
                                      FROM cnt_contract_plaats cp, alg_gebouw g
                                     WHERE     cnt_alg_plaats_code = 'G'
                                           AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
                                    UNION ALL
                                    SELECT cp.cnt_contract_key, t.alg_locatie_key
                                      FROM cnt_contract_plaats cp, alg_terreinsector t
                                     WHERE     cnt_alg_plaats_code = 'T'
                                           AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
                                    UNION ALL
                                    SELECT co.cnt_contract_key, d.ins_alg_locatie_key
                                      FROM cnt_contract_object co, ins_deel d
                                     WHERE co.cnt_ins_deel_key = d.ins_deel_key) clk,
                                   cnt_contract  cc,
                                   alg_locatie   ll,
                                   alg_district  di
                             WHERE     cc.cnt_contract_key = clk.cnt_contract_key
                                   AND ll.alg_locatie_key(+) = clk.alg_locatie_key
                                   AND ll.alg_district_key = di.alg_district_key(+)) sc,
                           prs_v_afdeling_boom  boom
                     WHERE boom.prs_afdeling_key = c.prs_afdeling_key_eig
                    UNION ALL
                    SELECT cnt_contract_key
                      FROM cnt_contract c, prs_v_afdeling_boom boom
                     WHERE     NOT EXISTS
                                   (SELECT cnt_contract_key
                                      FROM cnt_contract_plaats cp
                                     WHERE cp.cnt_contract_key = c.cnt_contract_key)
                           AND NOT EXISTS
                                   (SELECT cnt_contract_key
                                      FROM cnt_contract_object co
                                     WHERE     co.cnt_contract_key = c.cnt_contract_key
                                           AND co.cnt_ins_deel_key IS NOT NULL)
                           AND boom.prs_afdeling_key = c.prs_afdeling_key_eig);

CREATE OR REPLACE VIEW BLCC_V_RAP_HUURDERSLIJST
AS
SELECT rt.key,
       rt.bedrijfnaam,
       rt.relatietype,
       c.cnt_contract_nummer,
       c.cnt_contract_nummer_intern,
       c.cnt_contract_versie,
       c.cnt_contract_looptijd_van,
       c.cnt_contract_looptijd_tot
  FROM blcc_v_rap_relatietype  rt,
       (  SELECT b.prs_bedrijf_key,
                 c.cnt_contract_nummer,
                 c.cnt_contract_versie,
                 c.cnt_contract_nummer_intern,
                 c.cnt_contract_looptijd_van,
                 c.cnt_contract_looptijd_tot
            FROM cnt_contract c, prs_bedrijf b
           WHERE     c.cnt_contract_verwijder IS NULL
                 AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                 AND c.ins_discipline_key IN (2122,
                                              2123,
                                              2124,
                                              2141,
                                              2142)
        GROUP BY b.prs_bedrijf_key,
                 c.cnt_contract_nummer,
                 c.cnt_contract_versie,
                 c.cnt_contract_looptijd_van,
                 c.cnt_contract_looptijd_tot,
                 c.cnt_contract_nummer_intern,
                 c.cnt_contract_omschrijving) c
 WHERE c.prs_bedrijf_key = rt.key;

CREATE OR REPLACE VIEW BLCC_V_RAP_MAILING_STARTERSF
(
    afdeling,
    afdeling_omschr,
    rol,
    mailadressen
)
AS
      SELECT afdeling,
             prs_afdeling_omschrijving,
             'Startersfaciliteit'                                                          rol,
             LISTAGG (LOWER (prs_perslid_email), ';') WITHIN GROUP (ORDER BY afdeling)     mailing_ad
        FROM (SELECT a.prs_afdeling_naam || ' ' || a.prs_afdeling_omschrijving     afdeling,
                     a.prs_afdeling_omschrijving,
                     p.prs_perslid_email
                FROM prs_bedrijf b,
                     prs_perslid p,
                     prs_afdeling a,
                     cnt_contract c
               WHERE     b.prs_relatietype_key = 30
                     AND b.prs_overeenkomst_nr = a.prs_afdeling_naam
                     AND a.prs_afdeling_key = p.prs_afdeling_key
                     AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                     AND c.ins_discipline_key = 2141
                     AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                     AND TRUNC (c.cnt_contract_looptijd_tot)
                     AND c.cnt_contract_status = 0                                     -- Definitief
                     AND b.prs_bedrijf_verwijder IS NULL
                     AND p.prs_perslid_verwijder IS NULL
                     AND p.prs_perslid_inactief IS NULL
                     AND (p.prs_perslid_einddatum > SYSDATE OR p.prs_perslid_einddatum IS NULL))
    GROUP BY afdeling, prs_afdeling_omschrijving, 'Startersfaciliteit';

CREATE OR REPLACE FORCE VIEW BLCC_V_RAP_PO_AANVRAAG
(
    PRS_BEDRIJF_KEY,
    EXTRA_KEY,
    CONTRACT_KEY,
    OMSCHRIJVING,
    CONTRACT_NR,
    CONTRACTOMSCHRIJVING,
    EMAIL,
    PERSLID_KEY,
    PERSLID_NAAM,
    NAAM_BEDRIJF,
    OVK_NR,
    CONTRACTSCOPE
)
AS
    SELECT DISTINCT b.prs_bedrijf_key,
                    b.prs_bedrijf_key                 extra_key,
                    c.cnt_contract_key,
                    c.cnt_contract_omschrijving,
                    c.cnt_contract_nummer_intern      contractnr,
                    cs.ins_discipline_omschrijving    contract_omschrijving,
                    mail_to.prs_perslid_email,
                    mail_to.prs_perslid_key,
                    mail_to.prs_perslid_naam_friendly,
                    b.prs_bedrijf_naam,
                    b.prs_overeenkomst_nr,
                    COALESCE (rg.alg_gebouw_code,
                              vg.alg_gebouw_code,
                              gg.alg_gebouw_code,
                              lg.alg_locatie_code)    contractscope
      FROM cnt_contract        c,
           prs_bedrijf         b,
           ins_tab_discipline  cs,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_ruimte           r,
                   alg_verdieping       v,
                   alg_gebouw           g,
                   cnt_contract_plaats  p
             WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                   AND v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = r.alg_ruimte_key
                   AND p.cnt_alg_plaats_code = 'R') rg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_verdieping v, alg_gebouw g, cnt_contract_plaats p
             WHERE     v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = v.alg_verdieping_key
                   AND p.cnt_alg_plaats_code = 'V') vg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_gebouw g, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = g.alg_gebouw_key AND p.cnt_alg_plaats_code = 'G') gg,
           (SELECT l.alg_locatie_code, p.cnt_contract_key
              FROM alg_locatie l, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = l.alg_locatie_key AND p.cnt_alg_plaats_code = 'L') lg,
           (SELECT DISTINCT prs_perslid_key, prs_perslid_email, prs_bedrijf_key, prs_perslid_naam_friendly
              FROM (SELECT                                         -- huisbaas
                           p.prs_perslid_key, p.prs_perslid_email, b.prs_bedrijf_key, pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk         k,
                           alg_onrgoedkenmerk  ok,
                           prs_perslid         p,
                           prs_afdeling        a,
                           prs_bedrijf         b,
                           prs_v_perslid_fullnames_all pn
                     WHERE     k.alg_kenmerk_key = 1981
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                              -- plaatsvervangend huisbaas
                           p.prs_perslid_key, p.prs_perslid_email, b.prs_bedrijf_key, pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk         k,
                           alg_onrgoedkenmerk  ok,
                           prs_perslid         p,
                           prs_afdeling        a,
                           prs_bedrijf         b,
                           prs_v_perslid_fullnames_all pn
                     WHERE     k.alg_kenmerk_key = 1982
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                -- financial contact
                           p.prs_perslid_key, p.prs_perslid_email, b.prs_bedrijf_key, pn.prs_perslid_naam_friendly
                      FROM prs_perslid   p,
                           prs_afdeling  a,
                           prs_bedrijf   b,
                           prs_v_perslid_fullnames_all pn,
                           (SELECT kl.prs_link_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                   AND k.prs_kenmerk_key = 1362
                                   AND kl.prs_kenmerklink_verwijder IS NULL
                                   AND k.prs_kenmerk_niveau = 'P') fc
                     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND fc.prs_link_key = p.prs_perslid_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL) cont) mail_to
     WHERE     c.cnt_contract_verwijder IS NULL
           AND c.cnt_contract_looptijd_van = ADD_MONTHS (TRUNC (SYSDATE, 'Year'), 12)
           AND c.cnt_contract_status NOT IN (1)
           AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
           AND c.ins_discipline_key IN (2122,
                                        2187,
                                        2185,
                                        2183,
                                        2184)
           AND cs.ins_discipline_key = c.ins_discipline_key
           AND mail_to.prs_bedrijf_key = b.prs_bedrijf_key
           AND rg.cnt_contract_key(+) = c.cnt_contract_key
           AND vg.cnt_contract_key(+) = c.cnt_contract_key
           AND gg.cnt_contract_key(+) = c.cnt_contract_key
           AND lg.cnt_contract_key(+) = c.cnt_contract_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_HEADCOUNT
(
    JAAR,
    PRS_BEDRIJF_KEY,
    PRS_BEDRIJF_NAAM,
    EXTRA_KEY,
    PERSLID_EMAIL,
    PERSLID_KEY,
    PERSLID_NAAM,
    CONTRACT_SCOPE,
    CONTRACT_OMSCHRIJVING,
    CONTRACTNR_INTERN,
    FTE_STAGIAIRES,
    FTE_STUDENTEN,
    FTE_MDW_INHUUR,
    FTE_MEDEWERKERS,
    HEADCOUNT_STAGIAIRES,
    HEADCOUNT_STUDENTEN,
    HEADCOUNT_MDW_INHUUR,
    HEADCOUNT_MEDEWERKERS
)
AS
    SELECT DISTINCT TO_CHAR (SYSDATE, 'yyyy')                                jaar,
                    b.prs_bedrijf_key,
                    b.prs_bedrijf_naam,
                    b.prs_bedrijf_key                                        extra_key,
                    mail_to.prs_perslid_email,
                    mail_to.prs_perslid_key,
                    mail_to.prs_perslid_naam_friendly,
                    COALESCE (rg.alg_gebouw_code,
                              vg.alg_gebouw_code,
                              gg.alg_gebouw_code,
                              lg.alg_locatie_code)                           contractscope,
                    c.cnt_contract_omschrijving,
                    c.cnt_contract_nummer_intern,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE '# FTE STAGIAIRES/%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_stagiaires,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE '# FTE STUDENTEN%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_studenten,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE
                                    '# FTE MEDEWERKERS INHUUR%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_mdw_inhuur,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) = '# FTE MEDEWERKERS'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_medewerkers,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE
                                    '# HEADCOUNT STAGIAIRES/%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_stagiaires,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE
                                    '# HEADCOUNT STUDENTEN%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_studenten,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) LIKE
                                    '# HEADCOUNT MEDEWERKERS INHUUR%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_mdw_inhuur,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc, cnt_srtkenmerk sk
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (sk.cnt_srtkenmerk_omschrijving) = '# HEADCOUNT MEDEWERKERS'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_medewerkers
      FROM cnt_contract        c,
           prs_bedrijf         b,
           ins_tab_discipline  cs,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_ruimte           r,
                   alg_verdieping       v,
                   alg_gebouw           g,
                   cnt_contract_plaats  p
             WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                   AND v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = r.alg_ruimte_key
                   AND UPPER (r.ALG_RUIMTE_OMSCHRIJVING) NOT LIKE '%BOMBENIS%'
                   AND p.cnt_alg_plaats_code = 'R') rg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_verdieping v, alg_gebouw g, cnt_contract_plaats p
             WHERE     v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = v.alg_verdieping_key
                   AND p.cnt_alg_plaats_code = 'V') vg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_gebouw g, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = g.alg_gebouw_key AND p.cnt_alg_plaats_code = 'G') gg,
           (SELECT l.alg_locatie_code, p.cnt_contract_key
              FROM alg_locatie l, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = l.alg_locatie_key AND p.cnt_alg_plaats_code = 'L') lg,
           (SELECT DISTINCT prs_perslid_key,
                            prs_perslid_email,
                            prs_bedrijf_key,
                            prs_perslid_naam_friendly
              FROM (SELECT                                         -- huisbaas
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk                  k,
                           alg_onrgoedkenmerk           ok,
                           prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn
                     WHERE     k.alg_kenmerk_key = 1981
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                              -- plaatsvervangend huisbaas
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk                  k,
                           alg_onrgoedkenmerk           ok,
                           prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn
                     WHERE     k.alg_kenmerk_key = 1982
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                -- financial contact
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn,
                           (SELECT kl.prs_link_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                   AND k.prs_kenmerk_key = 1362
                                   AND kl.prs_kenmerklink_verwijder IS NULL
                                   AND k.prs_kenmerk_niveau = 'P') fc
                     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND fc.prs_link_key = p.prs_perslid_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL) cont) mail_to,
           (SELECT kc.cnt_contract_key, kc.cnt_kenmerkcontract_waarde laatste_headcount
              FROM cnt_kenmerk k, cnt_kenmerkcontract kc
             WHERE     kc.cnt_kenmerk_key = k.cnt_kenmerk_key
                   AND k.cnt_kenmerk_key = 1601
                   AND kc.cnt_kenmerkcontract_verwijder IS NULL) laatste_count
     WHERE     c.cnt_contract_verwijder IS NULL
           AND c.cnt_contract_status = 0
           AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
           AND c.ins_discipline_key = 2122
           AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                           AND TRUNC (c.cnt_contract_looptijd_tot)
           AND cs.ins_discipline_key = c.ins_discipline_key
           AND mail_to.prs_bedrijf_key = b.prs_bedrijf_key
           AND b.prs_bedrijf_key NOT IN (11231, 11289)
           AND rg.cnt_contract_key(+) = c.cnt_contract_key
           AND vg.cnt_contract_key(+) = c.cnt_contract_key
           AND gg.cnt_contract_key(+) = c.cnt_contract_key
           AND lg.cnt_contract_key(+) = c.cnt_contract_key
           AND laatste_count.cnt_contract_key(+) = c.cnt_contract_key
           AND (   EXTRACT (
                       YEAR FROM fac.safe_to_date (laatste_count.laatste_headcount, 'dd-mm-yyyy')) <
                   EXTRACT (YEAR FROM SYSDATE)
                OR laatste_count.laatste_headcount IS NULL);

CREATE OR REPLACE PROCEDURE BLCC_PRE_PUTORDERS
AS
BEGIN
    blcc_export_dynamics;
END BLCC_PRE_PUTORDERS;
/

/* Formatted on 19-5-2025 10:55:15 (QP5 v5.336) */
CREATE OR REPLACE VIEW BLCC_V_RAP_INCIDENTMLD_V2
(
    JAAR,
    PERIODE,
    MLD_DATUM,
    HTML_MLD_MELDING_KEY,
    STD_MLDKEY,
    TELLING_MLD,
    DATUM_INCIDENT,
    TIJDSTIP_INCIDENT,
    ONDERWERP,
    OMSCHRIJVING,
    TYPE_INCIDENT,
    CLASSIFICATIE,
    ACTIE_MELDER,
    ACTIE_SD,
    ACTIE_CVD,
    PRIORITEIT,
    OORZAAK_CATEGORIE,
    OORZAAK_WEGNEMENDE_MAARTREGEL_NODIG
)
AS
    SELECT TO_CHAR (m.mld_melding_datum, 'YYYY')
               AS jaar,
           TO_CHAR (m.mld_melding_datum, 'YYYY') || ' / ' || TO_CHAR (m.mld_melding_datum, 'mm')
               AS periode,
           TRUNC (m.mld_melding_datum)
               mld_datum,
              '<a class="details" onclick=''FcltMgr.openDetail("'
           || 'appl/mld/mld_melding.asp?mld_key='
           || m.mld_melding_key
           || '")''>'
           || HTF.escape_sc (vgt.ins_srtdiscipline_prefix || m.mld_melding_key)
           || '</a>'
               mld_melding_key,
           m.mld_stdmelding_key
               std_mldkey,
           1
               telling_mld,
           fac.safe_to_date (datum_incident.mld_kenmerkmelding_waarde, 'dd-mm-yyyy')
               datum_incident,
           tijdstip_incident.mld_kenmerkmelding_waarde
               tijdstip_incident,
           m.mld_melding_onderwerp
               onderwerp,
           m.mld_melding_omschrijving
               omschrijving,
           type_incident.omschrijving
               type_incident,
           classificatie.mld_kenmerk_omschrijving,
           actie_melder.actie_melder,
           actie_sd.actie_sd,
           actie_cvd.actie_cvd,
           prioriteit.omschrijving
               prioriteit,
           oorzaak_cat.omschrijving,
           wegn_mtrgl.omschrijving
      FROM mld_melding        m,
           mld_stdmelding     sm,
           mld_discipline     vg,
           ins_srtdiscipline  vgt,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7622 AND km.mld_kenmerkmelding_verwijder IS NULL)
           datum_incident,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7623 AND km.mld_kenmerkmelding_verwijder IS NULL)
           tijdstip_incident,
           (SELECT mld_melding_key, k.mld_kenmerk_omschrijving
              FROM mld_kenmerkmelding km, mld_kenmerk k
             WHERE     km.mld_kenmerkmelding_verwijder IS NULL
                   AND km.mld_kenmerk_key = k.mld_kenmerk_key
                   AND k.mld_srtkenmerk_key = 2083) classificatie,
           (SELECT km.mld_melding_key, ud.fac_usrdata_code code, fac_usrdata_omschr omschrijving
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 7643
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 1361
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key)
           type_incident,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde actie_melder
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7823 AND km.mld_kenmerkmelding_verwijder IS NULL)
           actie_melder,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde actie_sd
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7828 AND km.mld_kenmerkmelding_verwijder IS NULL) actie_sd,
           (SELECT mld_melding_key, mld_kenmerkmelding_waarde actie_cvd
              FROM mld_kenmerkmelding km
             WHERE km.mld_kenmerk_key = 7923 AND km.mld_kenmerkmelding_verwijder IS NULL) actie_cvd,
           (SELECT km.mld_melding_key, ud.fac_usrdata_code code, fac_usrdata_omschr omschrijving
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 7925
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 1381
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key)
           prioriteit,
           (SELECT km.mld_melding_key, ud.fac_usrdata_code code, fac_usrdata_omschr omschrijving
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 7927
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 1382
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key)
           oorzaak_cat,
           (SELECT km.mld_melding_key, ud.fac_usrdata_code code, fac_usrdata_omschr omschrijving
              FROM mld_kenmerkmelding km, fac_usrdata ud
             WHERE     km.mld_kenmerk_key = 7928
                   AND km.mld_kenmerkmelding_verwijder IS NULL
                   AND ud.fac_usrtab_key = 681
                   AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key)
           wegn_mtrgl
     WHERE     m.mld_stdmelding_key = 2761
           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
           AND sm.mld_ins_discipline_key = vg.ins_discipline_key
           AND vg.ins_srtdiscipline_key = vgt.ins_srtdiscipline_key
           AND m.mld_melding_start_key IS NULL        -- #74835 melding mag geen vervolgmelding zijn
           AND datum_incident.mld_melding_key(+) = m.mld_melding_key
           AND tijdstip_incident.mld_melding_key(+) = m.mld_melding_key
           AND type_incident.mld_melding_key(+) = m.mld_melding_key
           AND classificatie.mld_melding_key(+) = m.mld_melding_key
           AND actie_melder.mld_melding_key(+) = m.mld_melding_key
           AND actie_sd.mld_melding_key(+) = m.mld_melding_key
           AND actie_cvd.mld_melding_key(+) = m.mld_melding_key
           AND prioriteit.mld_melding_key(+) = m.mld_melding_key
           AND oorzaak_cat.mld_melding_key(+) = m.mld_melding_key
           AND wegn_mtrgl.mld_melding_key(+) = m.mld_melding_key;

CREATE OR REPLACE VIEW BLCC_V_BASIS_COMM_MKB_KI
(      
    GEBOUW,
    GEBOUW_KEY,
    HUISBAAS_NAAM_FRIENDLY,
    HUISBAAS_MOBIEL,
    HUISBAAS_EMAIL,
    PV_HUISBAAS_NAAM_FRIENDLY,
    PV_HUISBAAS_MOBIEL,
    PV_HUISBAAS_EMAIL,
    HUURDER_KEY,
    HUURDER,
    RELATIETYPE,
    CONTRACTSCOPE,
    LOOPTIJD_VAN,
    LOOPTIJD_TOT,
    CEO,
    PV_CEO
)
AS
      SELECT DISTINCT      
             g.alg_gebouw_code,
             g.alg_gebouw_key,
             huisbaas.huisbaas_naam_friendly,
             huisbaas.huisbaas_mobiel,
             huisbaas.huisbaas_email,
             pv_huisbaas.pv_huisbaas_naam_friendly,
             pv_huisbaas.pv_huisbaas_mobiel,
             pv_huisbaas.pv_huisbaas_email,
             huurder.prs_bedrijf_key,
             huurder.prs_bedrijf_naam
                 huurder,
             huurder.prs_relatietype_omschrijving
                 relatietype,
             LISTAGG (r.alg_ruimte_nr, CHR (10)) WITHIN GROUP (ORDER BY g.alg_gebouw_key)
                 contractscope,
             huurder.cnt_contract_looptijd_van,
             huurder.cnt_contract_looptijd_tot,
             huurder.ceo,
             huurder.pv_ceo
        FROM alg_ruimte    r,
             alg_verdieping v,
             alg_gebouw    g,
             (SELECT DISTINCT r.alg_ruimte_key,
                              b.prs_bedrijf_key,
                              b.prs_bedrijf_naam,
                              rt.prs_relatietype_omschrijving,
                              c.cnt_contract_looptijd_van,
                              c.cnt_contract_looptijd_tot,
                              ceo.ceo,
                              pv_ceo.pv_ceo
                FROM cnt_contract_plaats cr,
                     cnt_contract       c,
                     alg_ruimte         r,
                     prs_bedrijf        b,
                     prs_relatietype    rt,
                     (  SELECT b.prs_bedrijf_key,
                               LISTAGG (
                                      ceo.ceo_naam_full
                                   || CHR (10)
                                   || ceo.ceo_mobiel
                                   || CHR (10)
                                   || ceo.ceo_email
                                   || CHR (10),
                                   CHR (10))
                               WITHIN GROUP (ORDER BY b.prs_bedrijf_key, ceo.ceo_key)    ceo
                          FROM prs_bedrijf b,
                               (SELECT p.prs_perslid_key
                                           ceo_key,
                                       a.prs_afdeling_key,
                                       p.prs_perslid_email
                                           ceo_email,
                                       p.prs_perslid_mobiel
                                           ceo_mobiel,
                                          prs_perslid_naam
                                       || DECODE (p.prs_perslid_voorletters,
                                                  NULL, '',
                                                  ', ' || p.prs_perslid_voorletters)
                                       || DECODE (p.prs_perslid_tussenvoegsel,
                                                  NULL, '',
                                                  ' ' || p.prs_perslid_tussenvoegsel)
                                       || DECODE (p.prs_perslid_voornaam,
                                                  NULL, '',
                                                  ' (' || p.prs_perslid_voornaam || ')')
                                           ceo_naam_full,
                                          DECODE (p.prs_perslid_voornaam,
                                                  NULL, '',
                                                  p.prs_perslid_voornaam || ' ')
                                       || DECODE (p.prs_perslid_tussenvoegsel,
                                                  NULL, '',
                                                  p.prs_perslid_tussenvoegsel || ' ')
                                       || prs_perslid_naam
                                           ceo_naam_friendly,
                                       a.prs_afdeling_omschrijving,
                                       a.prs_afdeling_naam
                                  FROM prs_perslid  p,
                                       prs_kenmerklink kl,
                                       prs_kenmerk  k,
                                       prs_afdeling a
                                 WHERE     p.prs_perslid_key = kl.prs_link_key
                                       AND k.prs_kenmerk_key = kl.prs_kenmerk_key
                                       AND p.prs_afdeling_key = a.prs_afdeling_key
                                       AND p.prs_perslid_verwijder IS NULL
                                       AND k.prs_kenmerk_key = 1363) ceo
                         WHERE     ceo.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                               AND ceo.ceo_key IS NOT NULL
                      GROUP BY b.prs_bedrijf_key) ceo,
                     (  SELECT b.prs_bedrijf_key,
                               LISTAGG (
                                      pv_ceo.pv_ceo_naam_full
                                   || CHR (10)
                                   || pv_ceo.pv_ceo_mobiel
                                   || CHR (10)
                                   || pv_ceo.pv_ceo_email
                                   || CHR (10),
                                   CHR (10))
                               WITHIN GROUP (ORDER BY b.prs_bedrijf_key, pv_ceo.pv_ceo_key)    pv_ceo
                          FROM prs_bedrijf b,
                               (SELECT p.prs_perslid_key
                                           pv_ceo_key,
                                       a.prs_afdeling_key,
                                       p.prs_perslid_email
                                           pv_ceo_email,
                                       p.prs_perslid_mobiel
                                           pv_ceo_mobiel,
                                          prs_perslid_naam
                                       || DECODE (p.prs_perslid_voorletters,
                                                  NULL, '',
                                                  ', ' || p.prs_perslid_voorletters)
                                       || DECODE (p.prs_perslid_tussenvoegsel,
                                                  NULL, '',
                                                  ' ' || p.prs_perslid_tussenvoegsel)
                                       || DECODE (p.prs_perslid_voornaam,
                                                  NULL, '',
                                                  ' (' || p.prs_perslid_voornaam || ')')
                                           pv_ceo_naam_full,
                                          DECODE (p.prs_perslid_voornaam,
                                                  NULL, '',
                                                  p.prs_perslid_voornaam || ' ')
                                       || DECODE (p.prs_perslid_tussenvoegsel,
                                                  NULL, '',
                                                  p.prs_perslid_tussenvoegsel || ' ')
                                       || prs_perslid_naam
                                           pv_ceo_naam_friendly,
                                       a.prs_afdeling_omschrijving,
                                       a.prs_afdeling_naam
                                  FROM prs_perslid  p,
                                       prs_kenmerklink kl,
                                       prs_kenmerk  k,
                                       prs_afdeling a
                                 WHERE     p.prs_perslid_key = kl.prs_link_key
                                       AND k.prs_kenmerk_key = kl.prs_kenmerk_key
                                       AND p.prs_afdeling_key = a.prs_afdeling_key
                                       AND p.prs_perslid_verwijder IS NULL
                                       AND k.prs_kenmerk_key = 1400) pv_ceo
                         WHERE     pv_ceo.prs_afdeling_naam(+) = b.prs_overeenkomst_nr
                               AND pv_ceo.pv_ceo_key IS NOT NULL
                      GROUP BY b.prs_bedrijf_key) pv_ceo
               WHERE     cr.cnt_alg_plaats_code = 'R'
                     AND cr.cnt_contract_plaats_verwijder IS NULL
                     AND c.cnt_contract_key = cr.cnt_contract_key
                     AND c.cnt_contract_verwijder IS NULL
                     AND c.cnt_contract_status = 0
                     AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                     AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                     AND rt.prs_relatietype_key(+) = b.prs_relatietype_key
                     AND ceo.prs_bedrijf_key(+) = b.prs_bedrijf_key
                     AND pv_ceo.prs_bedrijf_key(+) = b.prs_bedrijf_key
                     AND c.ins_discipline_key IN (2122,
                                                  2123,
                                                  2124,
                                                  2141,
                                                  2142)
                     AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                     AND TRUNC (c.cnt_contract_looptijd_tot + 1)) huurder,
             (SELECT ok.alg_onrgoed_key,
                     ud.fac_usrdata_omschr     verh_classificatie,
                     ud.fac_usrdata_code       verh_classificatie_code
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, fac_usrdata ud
               WHERE     k.alg_kenmerk_key = 1100
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key
                     AND ud.fac_usrtab_key = 241
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL) vh_class,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    huisbaas_key,
                     p.prs_perslid_email                                  huisbaas_email,
                     p.prs_perslid_mobiel                                 huisbaas_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    huisbaas_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  huisbaas_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 1981
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) huisbaas,
             (SELECT ok.alg_onrgoed_key,
                     p.prs_perslid_key                                    pv_huisbaas_key,
                     p.prs_perslid_email                                  pv_huisbaas_email,
                     p.prs_perslid_mobiel                                 pv_huisbaas_mobiel,
                        prs_perslid_naam
                     || DECODE (p.prs_perslid_voorletters,
                                NULL, '',
                                ', ' || p.prs_perslid_voorletters)
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                ' ' || p.prs_perslid_tussenvoegsel)
                     || DECODE (p.prs_perslid_voornaam,
                                NULL, '',
                                ' (' || p.prs_perslid_voornaam || ')')    pv_huisbaas_naam_full,
                        DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
                     || DECODE (p.prs_perslid_tussenvoegsel,
                                NULL, '',
                                p.prs_perslid_tussenvoegsel || ' ')
                     || prs_perslid_naam                                  pv_huisbaas_naam_friendly
                FROM alg_kenmerk k, alg_onrgoedkenmerk ok, prs_perslid p
               WHERE     k.alg_kenmerk_key = 1982
                     AND ok.alg_onrgoed_niveau = 'R'
                     AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                     AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                     AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde) pv_huisbaas
       WHERE     r.alg_verdieping_key = v.alg_verdieping_key
             AND huurder.alg_ruimte_key(+) = r.alg_ruimte_key
             AND v.alg_gebouw_key = g.alg_gebouw_key
             AND vh_class.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND g.alg_gebouw_verwijder IS NULL
             AND (g.alg_gebouw_vervaldatum IS NULL OR g.alg_gebouw_vervaldatum > SYSDATE)
             AND (   verh_classificatie_code NOT IN ('V',
                                                     'C',
                                                     'N',
                                                     'A',
                                                     'B')
                  OR vh_class.verh_classificatie IS NULL)
             AND r.alg_ruimte_verwijder IS NULL
             AND huisbaas.alg_onrgoed_key(+) = r.alg_ruimte_key
             AND pv_huisbaas.alg_onrgoed_key(+) = r.alg_ruimte_key
    GROUP BY g.alg_gebouw_code,
             g.alg_gebouw_key,
             huisbaas.huisbaas_naam_friendly,
             huisbaas.huisbaas_mobiel,
             huisbaas.huisbaas_email,
             pv_huisbaas.pv_huisbaas_naam_friendly,
             pv_huisbaas.pv_huisbaas_mobiel,
             pv_huisbaas.pv_huisbaas_email,
             huurder.prs_bedrijf_naam,
             huurder.prs_bedrijf_key,
             huurder.prs_relatietype_omschrijving,
             huurder.cnt_contract_looptijd_van,
             huurder.cnt_contract_looptijd_tot,
             huurder.ceo,
             huurder.pv_ceo;

CREATE OR REPLACE VIEW BLCC_V_RAP_MKB_KI_DETAILS
AS
SELECT DISTINCT g.alg_gebouw_key,
                g.alg_gebouw_omschrijving,
                r.alg_ruimte_nr,
                r.alg_ruimte_omschrijving,
                b.prs_bedrijf_naam               voorgaande_huurder,                           
                b.prs_bedrijf_key                voorgaande_huurder_key,
                c.cnt_contract_nummer            cntnr_voorgaande_huurder,                         
                c.cnt_contract_nummer_intern || '.'||  c.cnt_contract_versie   contract_voorgaande_huurder,
                c.cnt_contract_looptijd_van      oud_cnt_looptijd_van,
                c.cnt_contract_looptijd_tot      oud_cnt_looptijd_tot
  FROM cnt_contract_plaats  cr,
       cnt_contract         c,
       alg_ruimte           r,
       alg_verdieping       v,
       alg_gebouw           g,
       prs_bedrijf          b
 WHERE     cr.cnt_alg_plaats_code = 'R'
       AND cr.cnt_contract_plaats_verwijder IS NULL
       AND c.cnt_contract_key = cr.cnt_contract_key
       AND c.cnt_contract_verwijder IS NULL
       AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
       AND r.alg_verdieping_key = v.alg_verdieping_key
       AND g.alg_gebouw_key = v.alg_gebouw_key
       AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
       AND c.ins_discipline_key IN (2122,
                                    2123,
                                    2124,
                                    2141,
                                    2142)
       AND c.cnt_contract_looptijd_tot < TRUNC (SYSDATE)
       AND c.cnt_contract_looptijd_tot > ADD_MONTHS (TRUNC (SYSDATE), -3)
       AND NOT EXISTS                    -- voorgaande huurder IS niet gelijk aan de huidige huurder
               (SELECT 1
                  FROM BLCC_V_BASIS_COMM_MKB_KI br
                 WHERE br.huurder_key = b.prs_bedrijf_key AND br.gebouw_key = g.alg_gebouw_key);

CREATE OR REPLACE VIEW BLCC_V_RAP_COMM_MKB_KI AS
SELECT 
    CASE 
        WHEN EXISTS (
            SELECT 1 
              FROM BLCC_V_RAP_MKB_KI_DETAILS d 
             WHERE d.alg_gebouw_key = base.gebouw_key
        ) THEN 'Ja'
        ELSE 'Nee'
    END AS mutatie_geweest,
    base.*
FROM BLCC_V_BASIS_COMM_MKB_KI base;

CREATE OR REPLACE VIEW BLCC_V_RAP_CONTROLE_NOTIFICATIES
(
    SOORT_NOTIFICATIE,
    DATUM_VERSTUURD,
    OMSCHRIJVING,
    VERSTUURD_AAN,
    EMAIL
)
AS
    SELECT 'PO-nummer aanvraag',
           t.fac_tracking_datum,
           t.fac_tracking_oms,
           p.prs_perslid_naam_friendly,
           em.prs_perslid_email
      FROM fac_tracking t, prs_v_perslid_fullnames_all p, prs_perslid em
     WHERE     t.fac_tracking_oms LIKE 'Referentie/Purchase ordernummer aanvraag voor%'
           AND t.fac_srtnotificatie_key = 460
           AND p.prs_perslid_key = t.fac_tracking_refkey
           AND em.prs_perslid_key = p.prs_perslid_key
    UNION ALL
    SELECT 'Headcount opgave',
           t.fac_tracking_datum,
           t.fac_tracking_oms,
           p.prs_perslid_naam_friendly,
           em.prs_perslid_email
      FROM fac_tracking t, prs_v_perslid_fullnames_all p, prs_perslid em
     WHERE     t.fac_tracking_oms LIKE 'Headcount opgave voor%'
           AND t.fac_srtnotificatie_key = 460
           AND p.prs_perslid_key = t.fac_tracking_refkey
           AND em.prs_perslid_key = p.prs_perslid_key;

CREATE OR REPLACE FORCE VIEW BLCC_V_RAP_PO_HUURDER
(
    AFDELING_KEY,
    NAAM_UITVOERENDE,
    KEY_UITVOERENDE,
    MLD_NUMMER, 
    MLD_ONDERWERP,
    OPDR_KEY,
    OPDRACHT,
    WVG_NODIG,
    WVG_NR,
    GEBOUW,
    PLANDATUM,
    TIJD,
    EINDDATUM,
    KOSTENPLAATS,
    TOEKOMST,
    STATUS,
    ALG_RUIMTE_NR,
    VH_CLASS,
    MELDER,
    PRS_AFDELING_KEY,
    PRS_AFDELING_NAAM,
    PRS_AFDELING_OMSCHRIJVING,
    PUBLIEK,
    COLOR,
    TYPERING
)
AS
    SELECT po.prs_afdeling_key,
           po.naam_uitvoerende,
           po.key_uitvoerende,
           po.mld_nummer, 
           po.mld_onderwerp,
           po.opdr_key,
           po.opdracht,
           po.wvg_nodig, 
           po.wvg_nr,
           po.gebouw_code,
           po.plandatum,
           po.tijd,
           po.einddatum,
           po.kostenplaats,
           po.toekomst,
           po.status,
           po.alg_ruimte_nr,
           po.vh_class,
           po.melder,
           po.prs_afdeling_key,
           po.prs_afdeling_naam,
           po.prs_afdeling_omschrijving,
           CASE
               WHEN (    (vh_class = 'V' OR vh_class = 'A' OR vh_class = 'C')
                     AND (   prs_afdeling_naam = '100000166'
                          OR prs_afdeling_naam = '100000167'
                          OR prs_afdeling_naam = '100000170'))
               THEN
                   'Ja'
               ELSE
                   'Nee'
           END    AS publiek,
           CASE 
           WHEN po.kostenplaats LIKE '50601%' THEN '#02A528'                            -- groen
               WHEN po.kostenplaats LIKE '50602%' THEN '#02A528'                            -- groen
               WHEN po.kostenplaats LIKE '50603%' THEN '#02A528'                            -- groen
               WHEN po.kostenplaats LIKE '50610%' THEN '#F26522'                           -- oranje 
               WHEN po.kostenplaats LIKE '5040%' THEN '#002C67'                             -- blauw LMA 
               WHEN po.kostenplaats LIKE '50900%' THEN '#e6e619'                             -- geel Klantwens 
               ELSE '#616366'  END AS color,
           CASE 
           WHEN po.kostenplaats LIKE '50601%' THEN 'CMA'                           
               WHEN po.kostenplaats LIKE '50602%' THEN 'CMA'                            
               WHEN po.kostenplaats LIKE '50603%' THEN 'CMA'                           
               WHEN po.kostenplaats LIKE '50610%' THEN 'PMA'                           
               WHEN po.kostenplaats LIKE '5040%' THEN 'LMA'                             
               WHEN po.kostenplaats LIKE '50900%' THEN 'Klantwens'                             
           ELSE 'Onbekend'  END AS typering 
      FROM blcc_v_rap_planning_opdr  po,
           (  SELECT DISTINCT g.alg_gebouw_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr
                FROM cnt_contract_plaats cr,
                     cnt_contract       c,
                     alg_ruimte         r,
                     alg_verdieping     v,
                     alg_gebouw         g,
                     prs_bedrijf        b
               WHERE     cr.cnt_alg_plaats_code = 'R'
                     AND cr.cnt_contract_plaats_verwijder IS NULL
                     AND c.cnt_contract_key = cr.cnt_contract_key
                     AND c.cnt_contract_verwijder IS NULL
                     AND c.cnt_contract_status = 0
                     AND cr.cnt_alg_plaats_key = r.alg_ruimte_key
                     AND r.alg_verdieping_key = v.alg_verdieping_key
                     AND g.alg_gebouw_key = v.alg_gebouw_key
                     AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
                     --   AND c.ins_discipline_key IN (2122, 2123, 2124)
                     AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                                     AND TRUNC (c.cnt_contract_looptijd_tot + 1)
            GROUP BY g.alg_gebouw_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr) huurder
     WHERE     (   huurder.prs_overeenkomst_nr = po.prs_afdeling_naam
            OR (    po.prs_afdeling_naam IN ('100000166', '100000167', '100000170')
                AND vh_class IN ('V', 'A', 'C')))
       AND huurder.alg_gebouw_key = po.gebouw_key;

CREATE OR REPLACE VIEW BLCC_V_RAP_HEADCOUNT
(
    JAAR,
    PRS_BEDRIJF_KEY,
    PRS_BEDRIJF_NAAM,
    EXTRA_KEY,
    PERSLID_EMAIL,
    PERSLID_KEY,
    PERSLID_NAAM,
    CONTRACT_SCOPE,
    CONTRACT_OMSCHRIJVING,
    CONTRACT_NUMMER,
    FTE_STAGIAIRES,
    FTE_STUDENTEN,
    FTE_MDW_INHUUR,
    FTE_MEDEWERKERS,
    HEADCOUNT_STAGIAIRES,
    HEADCOUNT_STUDENTEN,
    HEADCOUNT_MDW_INHUUR,
    HEADCOUNT_MEDEWERKERS
)
AS
    SELECT DISTINCT TO_CHAR (SYSDATE, 'yyyy')                                jaar,
                    b.prs_bedrijf_key,
                    b.prs_bedrijf_naam,
                    b.prs_bedrijf_key                                        extra_key,
                    mail_to.prs_perslid_email,
                    mail_to.prs_perslid_key,
                    mail_to.prs_perslid_naam_friendly,
                    COALESCE (rg.alg_gebouw_code,
                              vg.alg_gebouw_code,
                              gg.alg_gebouw_code,
                              lg.alg_locatie_code)                           contractscope,
                    c.cnt_contract_omschrijving,
                    c.cnt_contract_nummer_intern,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE '# FTE STAGIAIRES/%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_stagiaires,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE '# FTE STUDENTEN%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_studenten,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE '# FTE MEDEWERKERS INHUUR%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_mdw_inhuur,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) = '# FTE MEDEWERKERS'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    fte_medewerkers,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE '# HEADCOUNT STAGIAIRES/%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_stagiaires,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE '# HEADCOUNT STUDENTEN%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_studenten,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) LIKE
                                    '# HEADCOUNT MEDEWERKERS INHUUR%'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_mdw_inhuur,
                    (SELECT kc.cnt_kenmerkcontract_waarde
                       FROM cnt_kenmerk k, cnt_kenmerkcontract kc
                      WHERE     k.cnt_kenmerk_key = kc.cnt_kenmerk_key
                            AND UPPER (k.cnt_kenmerk_omschrijving) = '# HEADCOUNT MEDEWERKERS'
                            AND kc.cnt_kenmerkcontract_verwijder IS NULL
                            AND kc.cnt_contract_key = c.cnt_contract_key)    headcount_medewerkers
      FROM cnt_contract        c,
           prs_bedrijf         b,
           ins_tab_discipline  cs,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_ruimte           r,
                   alg_verdieping       v,
                   alg_gebouw           g,
                   cnt_contract_plaats  p
             WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                   AND v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = r.alg_ruimte_key
                   AND p.cnt_alg_plaats_code = 'R') rg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_verdieping v, alg_gebouw g, cnt_contract_plaats p
             WHERE     v.alg_gebouw_key = g.alg_gebouw_key
                   AND p.cnt_alg_plaats_key = v.alg_verdieping_key
                   AND p.cnt_alg_plaats_code = 'V') vg,
           (SELECT g.alg_gebouw_code, p.cnt_contract_key
              FROM alg_gebouw g, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = g.alg_gebouw_key AND p.cnt_alg_plaats_code = 'G') gg,
           (SELECT l.alg_locatie_code, p.cnt_contract_key
              FROM alg_locatie l, cnt_contract_plaats p
             WHERE p.cnt_alg_plaats_key = l.alg_locatie_key AND p.cnt_alg_plaats_code = 'L') lg,
           (SELECT DISTINCT prs_perslid_key,
                            prs_perslid_email,
                            prs_bedrijf_key,
                            prs_perslid_naam_friendly
              FROM (SELECT                                         -- huisbaas
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk                  k,
                           alg_onrgoedkenmerk           ok,
                           prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn
                     WHERE     k.alg_kenmerk_key = 1981
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                              -- plaatsvervangend huisbaas
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM alg_kenmerk                  k,
                           alg_onrgoedkenmerk           ok,
                           prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn
                     WHERE     k.alg_kenmerk_key = 1982
                           AND ok.alg_onrgoed_niveau = 'R'
                           AND ok.alg_kenmerk_key = k.alg_kenmerk_key
                           AND p.prs_perslid_key = ok.alg_onrgoedkenmerk_waarde
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND p.prs_afdeling_key = a.prs_afdeling_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND ok.alg_onrgoedkenmerk_verwijder IS NULL
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL
                    UNION ALL
                    SELECT                                -- financial contact
                           p.prs_perslid_key,
                           p.prs_perslid_email,
                           b.prs_bedrijf_key,
                           pn.prs_perslid_naam_friendly
                      FROM prs_perslid                  p,
                           prs_afdeling                 a,
                           prs_bedrijf                  b,
                           prs_v_perslid_fullnames_all  pn,
                           (SELECT kl.prs_link_key
                              FROM prs_kenmerk k, prs_kenmerklink kl
                             WHERE     k.prs_kenmerk_key = kl.prs_kenmerk_key
                                   AND k.prs_kenmerk_key = 1362
                                   AND kl.prs_kenmerklink_verwijder IS NULL
                                   AND k.prs_kenmerk_niveau = 'P') fc
                     WHERE     p.prs_afdeling_key = a.prs_afdeling_key
                           AND a.prs_afdeling_naam = b.prs_overeenkomst_nr
                           AND fc.prs_link_key = p.prs_perslid_key
                           AND pn.prs_perslid_key = p.prs_perslid_key
                           AND p.prs_perslid_verwijder IS NULL
                           AND b.prs_bedrijf_verwijder IS NULL) cont) mail_to
     WHERE     c.cnt_contract_verwijder IS NULL
           AND c.cnt_contract_status = 0
           AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
           AND c.ins_discipline_key = 2122
           AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van)
                           AND TRUNC (c.cnt_contract_looptijd_tot)
           AND cs.ins_discipline_key = c.ins_discipline_key
           AND mail_to.prs_bedrijf_key = b.prs_bedrijf_key
           AND b.prs_bedrijf_key NOT IN (11231, 11289)
           AND rg.cnt_contract_key(+) = c.cnt_contract_key
           AND vg.cnt_contract_key(+) = c.cnt_contract_key
           AND gg.cnt_contract_key(+) = c.cnt_contract_key
           AND lg.cnt_contract_key(+) = c.cnt_contract_key;

-- BLCC#89377: Tijdelijke view met probleemopdrachten (oa. zonder tracking op
--             Verwerkt)!
CREATE OR REPLACE VIEW BLCC_V_RAP_OPDRACHTEN89377
AS
   SELECT mld_opdr_key opdr_key,
          prefix || opdracht opdr,
          mld_typeopdr_omschrijving opdr_type,
          mld_statusopdr_omschrijving opdr_status,
          prs_kostenplaatsgrp_nr kpgrp_nr,
          kdrager kp_nr,
          kdrager_oms kp_oms,
          ksoort ks_code,
          ksoort_oms ks_oms,
          propertymanager,
          gebouw_terrein,
          --alg_verdieping_code verdieping,
          --alg_ruimte_nr ruimte,
          vakgroep,
          standaardmelding,
          --melder,
          --mld_opdr_omschrijving oms,
          --mld_opdr_opmerking opm,
          mld_opdr_datumbegin aanmaak,
          --mld_opdr_einddatum gepland,
          --fac.gettrackingdate ('ORDAFM', mld_opdr_key) afgemeld,
          prs_bedrijf_key uitv_key,
          prs_bedrijf_naam uitv,
          prs_overeenkomst_nr partyid,
          --mld_opdr_contactpersoon cp,
          COALESCE (mld_opdr_kosten, 0) kosten
     FROM (SELECT o.mld_opdr_key,
                  --COALESCE (og.alg_gebouw_key, og.alg_terreinsector_key) gebter_key,
                  sd.ins_srtdiscipline_prefix prefix,
                  o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr opdracht,
                  ot.mld_typeopdr_omschrijving,
                  os.mld_statusopdr_omschrijving,
                  kpg.prs_kostenplaatsgrp_nr,
                  kp.prs_kostenplaats_nr kdrager,
                  kp.prs_kostenplaats_omschrijving kdrager_oms,
                  COALESCE (ksm.prs_kostensoort_oms, ksv.prs_kostensoort_oms) ksoort,
                  DECODE (ksm.prs_kostensoort_oms,
                          NULL, ksv.prs_kostensoort_opmerking,
                          ksm.prs_kostensoort_opmerking)
                     ksoort_oms,
                  pm.prs_perslid_naam_full propertymanager,
                  COALESCE (og.alg_terreinsector_code, og.alg_gebouw_code) gebouw_terrein,
                  --og.alg_verdieping_code,
                  --og.alg_ruimte_nr,
                  td.ins_discipline_omschrijving vakgroep,
                  sm.mld_stdmelding_omschrijving standaardmelding,
                  --pf.prs_perslid_naam_full melder,
                  --o.mld_opdr_omschrijving,
                  --o.mld_opdr_opmerking,
                  o.mld_opdr_datumbegin,                      -- Of verzonden?
                  --o.mld_opdr_einddatum,
                  b.prs_bedrijf_key,
                  b.prs_bedrijf_naam,
                  b.prs_overeenkomst_nr,
                  --o.mld_opdr_contactpersoon,
                  o.mld_opdr_kosten
             FROM mld_opdr o,
                  mld_typeopdr ot,
                  mld_statusopdr os,
                  prs_bedrijf b,
                  mld_melding m,
                  --prs_v_perslid_fullnames_all pf,
                  alg_v_allonrgoed_gegevens og,
                  alg_gebouw g,
                  prs_v_perslid_fullnames_all pm,
                  mld_stdmelding sm,
                  ins_tab_discipline td,
                  ins_srtdiscipline sd,
                  prs_kostensoort ksm,
                  prs_kostensoort ksv,
                  prs_kostenplaats kp,
                  prs_kostenplaatsgrp kpg
            WHERE o.mld_typeopdr_key = ot.mld_typeopdr_key
                  AND o.mld_statusopdr_key = os.mld_statusopdr_key
                  AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
                  AND o.mld_melding_key = m.mld_melding_key
                  --AND m.prs_perslid_key = pf.prs_perslid_key
                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys
                  AND og.alg_gebouw_key = g.alg_gebouw_key(+)
                  AND g.prs_perslid_key_verantw = pm.prs_perslid_key(+)
                  AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                  AND sm.mld_ins_discipline_key = td.ins_discipline_key
                  AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
                  AND sm.prs_kostensoort_key = ksm.prs_kostensoort_key(+)
                  AND td.prs_kostensoort_key = ksv.prs_kostensoort_key(+)
                  AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key
                  AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
                  AND o.mld_statusopdr_key_refiat IS NOT NULL
                  AND o.mld_statusopdr_key NOT IN (3, 4, 10));

------ payload end   ------

SET DEFINE OFF

BEGIN adm.systrackscriptId ('$Id$', 0); END;
/

COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile