BLOS#68339 -- procedure voor hook-functie voor vullen clusternaam in meldingen

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

BLOS/blos.sql

@@ -532,6 +532,56 @@ AS
     v.ruimte_key IS NULL
     and v.cluster_code IS NOT NULL ;
 
+-- Hook functie die na het invoeren van een melding aangeroepen wordt.
+CREATE OR REPLACE PROCEDURE blos_mld_after_insert (p_key IN NUMBER)
+   AS
+      v_locatie_key               NUMBER;
+      v_kenmerk_waarde            VARCHAR (100);
+      v_errormsg                  VARCHAR2 (100);
+   BEGIN
+      v_errormsg := 'Ophalen meldinggegevens';
+
+      BEGIN
+
+         SELECT m.mld_alg_locatie_key
+           INTO v_locatie_key
+           FROM mld_melding m
+          WHERE mld_melding_key = p_key;
+
+         IF v_locatie_key IS NOT NULL
+         THEN
+
+            BEGIN
+               SELECT ud.fac_usrdata_omschr
+                 INTO v_kenmerk_waarde
+                 FROM alg_locatie l, alg_onrgoedkenmerk k, alg_kenmerk km, fac_kenmerkdomein kd, fac_usrdata ud
+                WHERE l.alg_locatie_key = v_locatie_key
+                  AND l.alg_locatie_key = k.alg_onrgoed_key AND alg_onrgoed_niveau = 'L' AND k.alg_kenmerk_key = 1000  -- Clusterlabel (oorspronkelijk)
+                  AND k.alg_kenmerk_key = km.alg_kenmerk_key
+                  AND km.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                  AND kd.fac_usrtab_key = ud.fac_usrtab_key 
+                  AND fac.safe_to_number(k.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key ;  
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  v_kenmerk_waarde := NULL;
+            END;
+
+            IF v_kenmerk_waarde IS NOT NULL
+            THEN
+               BEGIN
+                  INSERT INTO mld_kenmerkmelding (mld_melding_key,
+                                                  mld_kenmerk_key,
+                                                  mld_kenmerkmelding_waarde)
+                      VALUES (p_key, 221, v_kenmerk_waarde) ;
+               END;
+           END IF;
+         END IF;
+      END;
+   END;
+END;
+/
+
 
 CREATE OR REPLACE VIEW blos_v_rap_opdrachten_intern
 (