FCLT#80469 procedure prs.set_afdeling_verwijder(prs_afdeling_key) alvast toevoegen (2025.1)

svn path=/Database/trunk/; revision=66241

PRS/PRS_PAC.SRC

@@ -108,6 +108,8 @@ AS
 
    PROCEDURE delete_perslid (p_import_key IN NUMBER, p_perslid_key IN NUMBER);
 
+   PROCEDURE set_afdeling_verwijder (p_afdeling_key IN NUMBER);
+
    FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER) RETURN BOOLEAN;
    PROCEDURE personen_inactief_schonen;
    PROCEDURE personen_vervangers_schonen;
@@ -2727,6 +2729,21 @@ AS
      END;
   END delete_perslid;
 
+   -- Verwijder ook alle children
+   -- Let wel dat de trigger van alles kan tegengaan (nog personen, objecten enz.)
+   PROCEDURE set_afdeling_verwijder (p_afdeling_key IN NUMBER)
+   AS
+   BEGIN
+      UPDATE prs_afdeling
+         SET prs_afdeling_verwijder = SYSDATE
+       WHERE prs_afdeling_verwijder IS NULL
+         AND prs_afdeling_key IN (   SELECT prs_afdeling_key
+                                       FROM prs_afdeling
+                                 START WITH prs_afdeling_key = p_afdeling_key
+                                 CONNECT BY PRIOR prs_afdeling_key = prs_afdeling_parentkey);
+   END;
+
+
    FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER)
       RETURN BOOLEAN
    AS