PNBR#80680 Rapporteren doorlooptijd per behandelteam

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

MLD/MLD_PAC.SRC

@@ -17,6 +17,7 @@ CREATE OR REPLACE PACKAGE mld AS
   FUNCTION  getopdrachtstatusdate (popdrkey IN number, pstatus IN number) RETURN date;
   PROCEDURE setopdrachtstatus (popdrachtkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER, popdr_note_key IN NUMBER DEFAULT NULL);
   PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2, pdisc_level IN NUMBER DEFAULT 1);
+  PROCEDURE notifybehandelaar (pto IN NUMBER, pcode IN VARCHAR2, pmeldingkey IN NUMBER);
   PROCEDURE notifyprio (pmeldingkey IN NUMBER, prio IN NUMBER, pperslid_key IN NUMBER, pdisc_level IN NUMBER DEFAULT 1);
   PROCEDURE notifyopdrgoedkeurders (popdrkey IN NUMBER);
   FUNCTION getinstemmer (pmldkey IN NUMBER) RETURN NUMBER;
@@ -979,6 +980,36 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                 RETURN;
         END;
     END;
+
+    -- Handige variant van putnotificationsrtprio om een notificatie naar een individuele behandelaar te sturen
+    -- Wordt typisch gebruikt voor MLDAB2 achtige notificaties, waar geen tracking bij is en die naar een
+    -- specifiek iemand gestuurd moet worden.
+    -- Is in wezen generieker dan naar alleen voor behandelaar
+    PROCEDURE notifybehandelaar (pto IN NUMBER, pcode IN VARCHAR2, pmeldingkey IN NUMBER)
+    AS
+        lomschrijving           fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+        lbericht                fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+    BEGIN
+
+      SELECT lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
+         INTO lomschrijving
+         FROM fac_srtnotificatie
+      WHERE fac_srtnotificatie_code = pcode;
+
+      lbericht := mld.mldsprintf (lomschrijving, pmeldingkey);
+      fac.putnotificationsrtprio (NULL,
+                                 pto,
+                                 pcode,
+                                 pmeldingkey,
+                                 lomschrijving,
+                                 NULL,
+                                 NULL,
+                                 NULL,
+                                 NULL,
+                                 2,
+                                 NULL);
+    END;
+
     -- Notificatie meldingen per prioriteit
     PROCEDURE notifyprio (pmeldingkey IN NUMBER, prio IN NUMBER, pperslid_key IN NUMBER, pdisc_level IN NUMBER DEFAULT 1)
     AS

MLD/MLD_VIE.SRC

@@ -1817,6 +1817,7 @@ AS
          , ft.fac_tracking_datum
          , ft.fac_srtnotificatie_key
          , fsn.fac_srtnotificatie_code
+         , ft.fac_tracking_oms
          , ft.fac_tracking_subject_refkey
          , DECODE (ins_discipline_key, NULL, NULL, lcl.x (md.ins_discipline_omschrijving, md.ins_discipline_key, md.ins_discipline_omschrijving)) behandelteam
       FROM fac_tracking ft, fac_srtnotificatie fsn, mld_discipline md
@@ -1836,14 +1837,13 @@ AS
          , event
          , eventtext
          , behandelteam
-         , -ROUND ((datum - LEAD (datum, 1) OVER (PARTITION BY mld_melding_key ORDER BY datum)) * 24 * 60, 0)
-               AS minuten
+         , LEAD (datum, 1) OVER (PARTITION BY mld_melding_key ORDER BY datum) AS datumtot  -- evt. handig voor kalenderrapportage
+         , -ROUND ((datum - LEAD (datum, 1) OVER (PARTITION BY mld_melding_key ORDER BY datum)) * 24 * 60, 0) AS minuten
          , -ROUND (
                   (  (datum - LEAD (datum, 1) OVER (PARTITION BY mld_melding_key ORDER BY datum))
                    / ((MAX (datum) OVER (PARTITION BY mld_melding_key) - MIN (datum) OVER (PARTITION BY mld_melding_key))))
                 * 100
-              , 1)
-               AS percentage
+              , 1) AS percentage
       FROM (SELECT fac_tracking_refkey                                mld_melding_key
                  , GREATEST (fac_tracking_datum, m.mld_melding_datum) datum
                  , fac_srtnotificatie_code                            event