--
-- $Id$
--
-- Op verzoek van Axel van Breukelen de status van een aantal meldingen terugzetten van Historie (6) naar Afgemeld (5). Het script verwijdert ook tracking om
-- problemen met dubbele tracking te voorkomen.
--
--
DEFINE thisfile = 'HGCU#91754.SQL'
DEFINE dbuser   = '^HGCU'

SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
WHENEVER SQLERROR CONTINUE;
PROMPT &fcltcusterr
SET DEFINE OFF

------ payload begin ------

DECLARE
   CURSOR c IS
      SELECT *
        FROM mld_melding
       WHERE mld_melding_key IN (767,768,769,771);

   v_tracking_key NUMBER;
BEGIN
   FOR rec IN c
   LOOP
      BEGIN
         UPDATE mld_melding
            SET mld_melding_afgerond = 0,
                mld_melding_status = 5     -- Afgemeld.
          WHERE mld_melding_key = rec.mld_melding_key;

         DELETE fac_tracking
          WHERE fac_tracking_refkey = rec.mld_melding_key AND fac_srtnotificatie_key IN (56, 48);      -- MLDVER, MLDAFR

         fac.trackaction ('MLDUPD',
                          rec.mld_melding_key,
                          NULL,
                          NULL,
                          'Melding is teruggezet van status Historie naar Afgemeld (HGCU#91754)',
                          v_tracking_key);
      END;
   END LOOP;
END;
/

------ payload end   ------

SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 1); END;
/

COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile