--
-- $Id$
--
-- Standaardlocactie leeg maken bij alle personen die dit hebben.
-- RAI wil niet dat het gebouw automatisch gevuld wordt bij het doen van een melding.
--
DEFINE thisfile = 'ARAI#74797.SQL'
DEFINE dbuser   = '^ARAI'

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 c1 IS
        SELECT prs_perslid_key
          FROM prs_perslid
         WHERE alg_onroerendgoed_keys IS NOT NULL;
BEGIN
    FOR rec IN c1
    LOOP
        BEGIN
            UPDATE prs_perslid
               SET alg_onroerendgoed_keys = NULL,
                   alg_onroerendgoed_type = NULL
             WHERE prs_perslid_key = rec.prs_perslid_key;

            fac.trackaction ('PRSUPD',
                             rec.prs_perslid_key,
                             4,
                             NULL,
                             'Standaardlocatie verwijderd door systeem');
        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