FMHN#71214 Dubbele personen verwijderen

svn path=/Customer/; revision=55085

onces/FMHN/FMHN#71214.sql

@@ -1,4 +1,33 @@
-/* Formatted on 22/2/2022 17:20:07 (QP5 v5.371) */
+--
+-- $Id$
+--
+-- De IDM broker heeft onbedoeld personen dubbel aangeleverd. 
+-- Het zijn nogal wat records (18000+), dus daarom via een once. 
+-- De laatste toegevoegde (obv emailadres) moet worden verwijderd. 
+-- Oftewel, 1 emailadres die 4 keer voorkomt, moet de laatste prs_perslid_key behouden, rest mag weg (leegmaken)
+
+
+DEFINE thisfile = 'FMHN#71214.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 ------
 DECLARE
     v_perslid_key   NUMBER (15);
     v_km_externnr   NUMBER (15);
@@ -90,3 +119,9 @@ BEGIN
     END LOOP;
 END;
 /
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile