UWVA#65182 Bewaartermijnen/automatische schoning in core

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

PRJ/PRJ_PAC.SRC

@@ -39,6 +39,7 @@ AS
       RETURN VARCHAR2 ;
    FUNCTION find_or_create_free_werkplek (pruimtekey   IN   NUMBER,bezetting    IN   NUMBER )
       RETURN NUMBER ;
+   PROCEDURE remove(p_scenario_key IN NUMBER);
 END prj;
 /
 
@@ -1235,6 +1236,27 @@ AS
       prj_commit_additions (pscenariokey); -- Als laatste om tijdelijke dubbelen te voorkomen
       prj_commit_cleanup (pscenariokey);
    END prj_commit_scenario;
+
+   PROCEDURE remove(p_scenario_key IN NUMBER)
+   AS
+   BEGIN
+       DELETE FROM prj_scenario
+        WHERE prj_scenario_key = p_scenario_key;
+
+       -- Van de volgende tabellen worden de records die naar deze p_scenario_key
+       -- verwijzen met ON DELETE CASCADE ook verwijderd:
+       --  prj_scenario_note
+       --  prj_ruimte
+       -- Hierdoor worden de afhankelijkheden in de volgende tabellen ook verwijderd:
+       --  prj_deel
+       --  prj_ruimteafdeling
+       --  prj_werkplek
+       --  prj_perslidwerkplek
+       --  prj_selectie
+
+       fac.remove_tracking('scenario', p_scenario_key);
+   END;
+
 END prj;
 /