IMPU#87192 -- Uitbreiding SSP voor Beleid en Veiligheid - Registratie ouderklacht en hookfunctie voor externe gegevens

svn path=/Customer/trunk/; revision=67914

IMPU/impu.sql

@@ -27,6 +27,24 @@ SET DEFINE OFF
 --- DOMEIN-VIEWS --------------
 -------------------------------
 
+
+CREATE OR REPLACE VIEW impu_v_locatielijst
+(
+    ALG_LOCATIE_KEY,
+    ALG_LOCATIE_OMSCHRIJVING,
+    ALG_LOCATIE_ADRES,
+    ALG_LOCATIE_VERWIJDER
+)
+AS
+    SELECT
+       l.alg_locatie_key,
+       l.alg_locatie_omschrijving,
+       l.alg_locatie_adres,
+       l.alg_locatie_verwijder
+    FROM
+    alg_locatie    l
+    ;
+
 CREATE OR REPLACE VIEW impu_v_kostenplaatsen
 (
     KEY,
@@ -1106,7 +1124,38 @@ AS                 -- Op rappel-datum naar de Beheerder/Administrateur sturen
              FROM cnt_kenmerkcontract km, cnt_kenmerk k
             WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 7) ;
 
+----------------------------------
+--- OVERIGE CUST-FUNCTIES   ------
+----------------------------------
 
+-- Hook functie die na het saven (mld_postsave) van een externe klacht-melding de verplichte gegevens ouder en email vult in mld_melding_externegegevens
+CREATE OR REPLACE PROCEDURE impu_mld_after_insert_klacht (p_key IN NUMBER)
+   AS
+      v_errormsg                  VARCHAR2 (200);
+      v_ouder                     VARCHAR2 (60);
+      v_ouder_email               VARCHAR2 (100);
+      v_ouder_tel                 VARCHAR2 (20);
+
+      BEGIN
+      v_errormsg := 'Ophalen meldinggegevens ouder';
+
+         SELECT flx.getflex('MLD', 621, m.mld_melding_key) ouder,
+                flx.getflex('MLD', 622, m.mld_melding_key) ouder_mail,
+                flx.getflex('MLD', 623, m.mld_melding_key) ouder_tel 
+           INTO v_ouder, v_ouder_email, v_ouder_tel
+           FROM mld_melding m
+          WHERE mld_melding_key = p_key 
+                AND mld_stdmelding_key IN (382)  ; -- Klacht externe
+
+         
+         UPDATE mld_melding
+            SET mld_melding_naam_ext = v_ouder,
+                mld_melding_email_ext = v_ouder_email,
+                mld_melding_tel_ext = COALESCE(v_ouder_tel, 'onbekend')
+          WHERE mld_melding_key = p_key ;
+         
+END impu_mld_after_insert_klacht;
+/
 
 
 ------ payload end   ------