CSUN#80929 Oude logging verwijderd uit PROCEDURE csun_processemail

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

CSUN/CSUN.sql

@@ -1329,11 +1329,6 @@ AS
    v_client           NUMBER;
    v_new              NUMBER;            -- vlag om te testen of het om een nieuwe melding gaat.
 BEGIN
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Step 1',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
    v_new := 0;
    errormsg := '(0x143)';
    v_externnr := NULL;
@@ -1366,11 +1361,6 @@ BEGIN
                   AND prs_link_key = p.prs_perslid_key
                   AND UPPER (kl.prs_kenmerklink_waarde) = UPPER (v_from));
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Sender ' || sender,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
    BEGIN
       SELECT fac.safe_to_number (prs_kenmerklink_waarde)
         INTO v_client
@@ -1381,10 +1371,6 @@ BEGIN
       v_client := NULL;
    END;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'v_client ' || v_client,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
 
    CASE
       WHEN UPPER (pto) LIKE 'SERVICEDESK@%' OR UPPER (pto) LIKE 'DJI@%' OR UPPER (pto) LIKE 'KLANTSUPPORT@%'
@@ -1612,12 +1598,6 @@ BEGIN
                   || ')');
          END;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'v_locatie_code ' || v_locatie_code,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
-
          -- append (as a note?) to an existing melding if #key is found in the subject
          -- Alternatief was: scannen van fac_srtnotificatie_oms maar dat voelt ook niet echt lekker
          -- subject_regexp := fac.getsetting ('mld_reply_subject_regexp'); -- [[:alpha:]]*[[:digit:]]{3,}
@@ -1636,11 +1616,6 @@ BEGIN
                            'i');                                         -- MA
          mldkey := fac.safe_to_number (SUBSTR (mldnum, LENGTH (srtdisc) + 1));
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'mldkey ' || mldkey,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
          --         DBMS_OUTPUT.PUT_LINE('mldnum: ' || mldnum);
          --         DBMS_OUTPUT.PUT_LINE('srtdisc: ' || srtdisc);
          --         DBMS_OUTPUT.PUT_LINE('mldkey: ' || mldkey);
@@ -1667,11 +1642,6 @@ BEGIN
 
          --         DBMS_OUTPUT.PUT_LINE('mld_stdmelding_key: ' || TO_CHAR(stdmelding));
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'stdmelding ' || stdmelding,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
          IF mldkey IS NULL
          THEN
             BEGIN
@@ -1689,11 +1659,6 @@ BEGIN
              END;
          END IF;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'mldkey2a ' || mldkey,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
          -- Onderstaande query los van bovenstaande voor de performance (CSUN#80929)
          IF mldkey IS NULL
          THEN
@@ -1713,13 +1678,6 @@ BEGIN
                 stdmelding := NULL;
              END;
          END IF;
-
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'mldkey2 ' || mldkey,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
-
          BEGIN
             SELECT mld_melding_behandelaar_key
               INTO behandelaar_key
@@ -1734,11 +1692,6 @@ BEGIN
                behandelaar_key := NULL;
          END;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'behandelaar_key ' || behandelaar_key,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
          IF     stdmelding IS NOT NULL
             AND behandelaar_key IS NOT NULL
             AND sender <> 23
@@ -1788,11 +1741,6 @@ BEGIN
                2,
                NULL);
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Notitie toegevoegd',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
             -- Vlaggetjes zetten zoals mld_edit_note.asp dat doet
             BEGIN
                IF fac.getsetting('mld_melding_actiecode') = 1
@@ -1860,11 +1808,6 @@ BEGIN
                 RETURNING mld_melding_key
                      INTO mldkey;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Nieuwe melding ' || mldkey,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
                --                DBMS_OUTPUT.PUT_LINE('Melding toegevoegd: ' || mldkey);
                errormsg := '(0x165)';
                mld.setmeldingstatus (mldkey, 2, sender);
@@ -1874,11 +1817,6 @@ BEGIN
                                       fac_result_waarde)
                   VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || mldkey);
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'fac_result toegevoegd ',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
             END;
 
             -- Zoek het laagste bijlagen kenmerk om de bijlagen onder te stoppen
@@ -1924,11 +1862,6 @@ BEGIN
                           AND k1.mld_kenmerk_volgnummer >
                                  k.mld_kenmerk_volgnummer);
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'kkey ' || kkey,
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
             errormsg := '(0x153)';
 
             IF kkey IS NOT NULL
@@ -1971,23 +1904,12 @@ BEGIN
                      || errormsg);
    END CASE;
 
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Step 2',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
    -- alleen locatiekenmerk aanmaken als het een nieuwe melding betreft. Anders krijgen we dubbele kenmerken.
    IF v_locatie_code IS NOT NULL AND v_new = 1
    THEN
       csun_set_kenmerk('MLD',281, mldkey, v_locatie_code, 0);  -- locatie_code klant kenmerk
       CSUN.mld_after_insert (mldkey);
    END IF;
-
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Step 3',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
    --  Log het binnenkomende bericht als dat nodig is.
    --  IF sender = 23 THEN    -- ABNAMRO
    -- Verwijder records uit de fac_rapport tabel omdat de key uniek moet zijn.
@@ -1995,12 +1917,6 @@ BEGIN
    INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel, fac_rapport_soort)
           VALUES (SUBSTR('MELDING_' || v_client, 1, 12), mldkey, SUBSTR(pbody, 1, 1990), 1);
    -- END IF;
-
-    fac.writelog ('PROCESSEMAIL#80929',
-                  'I',
-                  'Einde!',
-                  TO_CHAR (SYSTIMESTAMP, 'HH24:MI:SS.FF'));
-
 EXCEPTION
    WHEN OTHERS
    THEN
@@ -7669,7 +7585,7 @@ AS
                    AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
                    AND mld_kenmerk_key = 1801        --PostNL werkbon gevuld (ja/nee)?
                    AND mld_melding_key = m.mld_melding_key)
-               AS werkbongevuld,               
+               AS werkbongevuld,
            m.mld_melding_status
                AS Status,
            (SELECT MAX (datum)