MARX#61630: Vervolg/implementatie van Mareon AVG in productie.

svn path=/Database/trunk/; revision=49472

FAC/FAC_PACANO.SRC

@@ -27,6 +27,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                             p_einddatum  IN DATE)
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
+       v_count                          NUMBER;
 
        -- Alle bestellingen waarvan de afwijsdatum, alles geleverd datum, verwerkingsdatum of annuleringsdatum tussen de startdatum en de einddatum liggen.
        CURSOR c_bestelling
@@ -60,6 +61,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec_b IN c_bestelling
        LOOP
           -- Verwijder alle kenmerkwaarden van de bestelling waarvan het &8 (BITAND) bit van het bes_srtkenmerk.bes_srtkenmerk_systeem veld is gezet.
@@ -120,6 +122,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
              -- Anonimiseren van de bestelopdracht tracken.
              fac.trackaction('BES2AN', rec_bo.bes_bestelopdr_key, NULL, NULL, NULL);
           END LOOP;
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -128,6 +138,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
        bez_generic_visitor              VARCHAR2 (2001) := lcl.l('lcl_bez_generic_visitor');
+       v_count                          NUMBER;
 
        -- Alle afspraken die tussen de startdatum en de einddatum liggen.
        CURSOR c_afspraak
@@ -149,6 +160,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec IN c_afspraak
        LOOP
           -- Verwijder alle kenmerkwaarden van bezoekers van de afspraak waarvan het &8 (BITAND) bit van het bez_kenmerk.bez_kenmerk_systeem veld is gezet.
@@ -204,6 +216,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
 
           -- Anonimiseren van de afspraak tracken.
           fac.trackaction('BEZANO', rec.bez_afspraak_key, NULL, NULL, NULL);
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -211,6 +231,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                             p_einddatum  IN DATE)
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
+       v_count                          NUMBER;
 
        -- Alle meldingen waarvan de afwijsdatum of verwerkingsdatum tussen de startdatum en de einddatum liggen.
        CURSOR c_melding
@@ -244,6 +265,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec_m IN c_melding
        LOOP
           -- Verwijder alle kenmerkwaarden van de melding waarvan het &8 (BITAND) bit van het mld_srtkenmerk.mld_srtkenmerk_systeem veld is gezet.
@@ -299,6 +321,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
              -- Anonimiseren van de meldingsopdracht tracken.
              fac.trackaction('ORDANO', rec_o.mld_opdr_key, NULL, NULL, NULL);
           END LOOP;
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -308,6 +338,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
        bez_generic_visitor              VARCHAR2 (2001) := lcl.l('lcl_bez_generic_visitor');
        prs_old_employee                 VARCHAR2 (100) := lcl.l('lcl_prs_old_employee');
+       v_count                          NUMBER;
 
        -- Alle personen die tussen de startdatum en de einddatum verwijderd zijn.
        CURSOR c_perslid
@@ -331,6 +362,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec IN c_perslid
        LOOP
           BEGIN
@@ -389,6 +421,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
 
              -- Anonimiseren van de persoon tracken.
              fac.trackaction('PRSANO', rec.prs_perslid_key, NULL, NULL, NULL);
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
           END;
        END LOOP;
     END;