--
-- $Id$
--
-- Customer specific once-script FMHN#79131.sql.
DEFINE thisfile = 'FMHN#79131.sql'
DEFINE dbuser   = '^FMHN'

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 ------

-- FMHN#79131: Bezoekersacties van bezoek vanaf 7 augustus op TM147 omzetten. 
--             Vanwege verhoogd beveiligingsniveau is 'Zelf doorlopen' dan niet meer toegestaan. 
--             De bezoekacties moeten omgezet worden naar 'Bezoeker moet opgehaald worden (bez_actie_key 101). 
--             Dit betreft meer dan 4000 afspraken (in de productieomgeving) en het is niet met een multi-edit te doen.

DECLARE
    CURSOR c IS
        SELECT bez_afspraak_key, TRUNC (bez_afspraak_datum), bez_actie_key
          FROM bez_afspraak
         WHERE     alg_locatie_key = 3                 --Turfmarkt 147
               AND bez_actie_key IN (1, 2, 42, 43, 44) --actie 'Zelf doorlopen' & 'Telefonisch contact opnemen' & 'Bezoeker moet opgehaald worden' (in standaard)
               AND TRUNC (bez_afspraak_datum) >=
                   TRUNC (TO_DATE ('07-08-2023', 'dd-mm-yyyy'));
BEGIN
    FOR rec IN c
    LOOP
        BEGIN
            UPDATE bez_afspraak
               SET bez_actie_key = 101
             WHERE bez_afspraak_key = rec.bez_afspraak_key;

            fac.trackaction (
                'BEZUPD',
                rec.bez_afspraak_key,
                3,                                     --Facilitor
                NULL,
                   'Afspraak '
                || rec.bez_afspraak_key
                || ' is gewijzigd'
                || CHR (10)
                || 'Actie: Zelf doorlopen --> Bezoeker moet opgehaald worden');
        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