diff --git a/AA/AAAR/aaar.sql b/AA/AAAR/aaar.sql
index 8285c387f..05bf33be0 100644
--- a/AA/AAAR/aaar.sql
+++ b/AA/AAAR/aaar.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aaar: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 1 $
--- $Modtime: 9-01-12 16:21 $
+-- $Revision: 2 $
+-- $Modtime: 15-02-12 14:34 $
 --
 -- Support: +31 53 4800700
 
@@ -35,26 +35,20 @@ CREATE OR REPLACE VIEW aaar_v_export_budget_tracker   (RESULT, result_order) AS
 -- exact
 -- Leverancier overrulles
 CREATE OR REPLACE PROCEDURE aaar_import_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2)
+   p_import_key IN NUMBER
+)
 AS
 BEGIN
-   aaxx_import_opdrstat_strukton (p_applname,
-                                  p_applrun,
-                                  p_filedir,
-                                  p_filename);
+   aaxx_import_opdrstat_strukton (p_import_key);
 END aaen_import_opdrstat_strukton;
 /
 
 CREATE OR REPLACE PROCEDURE aaar_update_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+   p_import_key IN NUMBER
+)
 AS
 BEGIN
-   aaxx_update_opdrstat_strukton (p_applname,
-                                  p_applrun);
+   aaxx_update_opdrstat_strukton (p_import_key);
 END aaen_update_opdrstat_strukton;
 /
 
@@ -149,42 +143,35 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aaar_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+   p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aaar_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aaar_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaar_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aaar_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aaar_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaar_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aaar_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaar_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
-BEGIN adm.systrackscript('$Workfile: aaar.sql $', '$Revision: 1 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aaar.sql $', '$Revision: 2 $', 0); END;
 /
 
 
diff --git a/AA/AABT/aabt.sql b/AA/AABT/aabt.sql
index bb377dd77..a9cb84caf 100644
--- a/AA/AABT/aabt.sql
+++ b/AA/AABT/aabt.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aabt: British Telecom for Arcadis Aqumen Facility Management
 -- (c) 2010 SG|facilitor
--- $Revision: 12 $
--- $Modtime: 9-01-12 16:26 $
+-- $Revision: 13 $
+-- $Modtime: 21-02-12 9:04 $
 --
 -- Support: +31 53 4800700
 
@@ -233,10 +233,6 @@ AS
    v_count                       NUMBER;
    v_total                       NUMBER(10,2);
 BEGIN
-
-  DELETE FROM imp_log
-   WHERE imp_log_applicatie = p_applname;
-
   -- Facilitor
   v_aanvrager := 4;
   -- DOW: Arcadis Aqumen kostenplaats key
@@ -271,11 +267,11 @@ BEGIN
          AND rra.res_rsv_artikel_levering < v_date;
    
   IF v_count > 0 THEN
-    fac.imp_writelog (p_applname, p_applrun,'E', 'Catering export is al eerder uitgevoerd.',
-                                                 'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
+    fac.writelog (p_applname, 'E', 'Catering export is al eerder uitgevoerd.',
+                                   'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
   ELSIF v_total = 0 THEN
-    fac.imp_writelog (p_applname, p_applrun,'W', 'Er is deze maand niets te factureren',
-                                                 'Controleer of de catering wel afgemeld is');
+    fac.writelog (p_applname, 'W', 'Er is deze maand niets te factureren',
+                                   'Controleer of de catering wel afgemeld is');
   ELSE
     v_errormsg := 'Aanpassen kostenplaatsen';
     -- vul de kostenplaats van reserveringen die per abuis geen kostenplaats hebben.
@@ -376,7 +372,7 @@ BEGIN
 	    oracle_err_num := SQLCODE;
 	    oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
 	    v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-	    fac.imp_writelog (p_applname, p_applrun,'E', v_errormsg, '');
+	    fac.writelog (p_applname, 'E', v_errormsg, '');
 	  END;
   END IF;
   COMMIT;
@@ -387,38 +383,31 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aabt_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+   p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aabt_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aabt_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aabt_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aabt_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aabt_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aabt_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aabt_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aabt_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
diff --git a/AA/AACE/aace.sql b/AA/AACE/aace.sql
index 43877fae9..7b5bfdafa 100644
--- a/AA/AACE/aace.sql
+++ b/AA/AACE/aace.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aace: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 7 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 8 $
+-- $Modtime: 15-02-12 15:05 $
 --
 -- Support: +31 53 4800700
 
@@ -137,38 +137,31 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aace_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+   p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aace_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aace_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aace_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aace_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aace_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aace_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aace_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aace_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -369,7 +362,7 @@ AS
 
 
 
-BEGIN adm.systrackscript('$Workfile: aace.sql $', '$Revision: 7 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aace.sql $', '$Revision: 8 $', 0); END;
 /
 
 
diff --git a/AA/AADO/aado.sql b/AA/AADO/aado.sql
index 20e64f957..60587672f 100644
--- a/AA/AADO/aado.sql
+++ b/AA/AADO/aado.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aado: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 8 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 9 $
+-- $Modtime: 21-02-12 9:04 $
 --
 -- Support: +31 53 4800700
 
@@ -111,31 +111,31 @@ END;
 
 -- import overrulles
 -- import srtruimte
-CREATE OR REPLACE PROCEDURE aado_import_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aado_import_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_contract(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aado_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aado_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_contract(p_applname, p_applrun);
+  aaxx_update_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aado_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aado_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aado_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aado_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -166,10 +166,6 @@ AS
    v_count                       NUMBER;
    v_total                       NUMBER(10,2);
 BEGIN
-
-  DELETE FROM imp_log
-   WHERE imp_log_applicatie = p_applname;
-
   -- Facilitor
   v_aanvrager := 4;
   -- DOW: Arcadis Aqumen kostenplaats key
@@ -202,11 +198,11 @@ BEGIN
          AND rra.res_rsv_artikel_levering < v_date;
    
   IF v_count > 0 THEN
-    fac.imp_writelog (p_applname, p_applrun,'E', 'Catering export is al eerder uitgevoerd.',
-                                                 'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
+    fac.writelog (p_applname, 'E', 'Catering export is al eerder uitgevoerd.',
+                                       'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
   ELSIF v_total = 0 THEN
-    fac.imp_writelog (p_applname, p_applrun,'W', 'Er is deze maand niets te factureren',
-                                                 'Controleer of de catering wel afgemeld is');
+    fac.writelog (p_applname, 'W', 'Er is deze maand niets te factureren',
+                                       'Controleer of de catering wel afgemeld is');
   ELSE
     v_errormsg := 'Aanpassen kostenplaatsen';
     -- vul de kostenplaats van reserveringen die per abuis geen kostenplaats hebben.
@@ -307,7 +303,7 @@ BEGIN
 	    oracle_err_num := SQLCODE;
 	    oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
 	    v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-	    fac.imp_writelog (p_applname, p_applrun,'E', v_errormsg, '');
+	    fac.writelog (p_applname, 'E', v_errormsg, '');
 	  END;
   END IF;
   COMMIT;
@@ -316,7 +312,7 @@ END;
 
 
 
-BEGIN adm.systrackscript('$Workfile: aado.sql $', '$Revision: 8 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aado.sql $', '$Revision: 9 $', 0); END;
 /
 
 
diff --git a/AA/AADS/aads.sql b/AA/AADS/aads.sql
index 82e6b2cdb..35044d5d8 100644
--- a/AA/AADS/aads.sql
+++ b/AA/AADS/aads.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aads: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 34 $
--- $Modtime: 8-02-12 14:39 $
+-- $Revision: 35 $
+-- $Modtime: 21-02-12 9:06 $
 --
 -- Support: +31 53 4800700
 
@@ -171,61 +171,61 @@ END;
 
 -- import overrulles
 -- import srtruimte
-CREATE OR REPLACE PROCEDURE aads_import_srtruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_import_srtruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_srtruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_srtruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aads_update_srtruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_update_srtruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_srtruimte(p_applname, p_applrun);
+  aaxx_update_srtruimte(p_import_key);
 END;
 /
 
 -- uplift
-CREATE OR REPLACE PROCEDURE aads_import_uplift (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_import_uplift (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_uplift(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_uplift(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aads_update_uplift (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_update_uplift (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_uplift(p_applname, p_applrun);
+  aaxx_update_uplift(p_import_key);
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE aads_import_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_import_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_contract(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aads_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_contract(p_applname, p_applrun);
+  aaxx_update_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aads_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aads_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -264,10 +264,6 @@ AS
    v_date                        DATE;
    v_count                       NUMBER;
 BEGIN
-
-  DELETE FROM imp_log
-   WHERE imp_log_applicatie = p_applname;
-
   -- Facilitor
   v_aanvrager := 6524;
   -- DSM: Arcadis Aqumen kostenplaats key
@@ -292,8 +288,8 @@ BEGIN
    WHERE mld_opdr_omschrijving = 'Catering factuur tot: ' || to_char(v_date, 'dd-mm-yyyy');
    
   IF v_count > 0 THEN
-    fac.imp_writelog (p_applname, p_applrun,'E', 'Catering export is al eerder uitgevoerd.',
-                                                 'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
+    fac.writelog (p_applname, 'E', 'Catering export is al eerder uitgevoerd.',
+                                   'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy'));
   ELSE
     v_errormsg := 'Aanpassen kostenplaatsen';
     -- vul de kostenplaats van reserveringen die per abuis geen kostenplaats hebben.
@@ -404,7 +400,7 @@ BEGIN
 	    oracle_err_num := SQLCODE;
 	    oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
 	    v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-	    fac.imp_writelog (p_applname, p_applrun,'E', v_errormsg, '');
+	    fac.writelog (p_applname, 'E', v_errormsg, '');
 	    COMMIT;
 END;
 /
@@ -722,11 +718,10 @@ BEGIN
       v_maand2 := to_number(to_char(sysdate-7, 'mm'));
       IF MOD(v_maand,3) <> 0 AND MOD(v_maand2,3) <> 0 
       THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
-                           'E',
-                              'Foutmelding!: Freeze mag alleen in de maanden maart, juni, september en december gemaakt worden!',
-                           'Neem contact op met uw consultant.');
+         fac.writelog (p_applname,
+                       'E',
+                          'Foutmelding!: Freeze mag alleen in de maanden maart, juni, september en december gemaakt worden!',
+                       'Neem contact op met uw consultant.');
       ELSE
          -- verwijder eerder gemaakte freeze resultaten.
          IF v_aantal > 0 THEN 
@@ -823,27 +818,25 @@ BEGIN
                                   AND g.alg_gebouw_code = d.geb_code))
          GROUP BY geb_code, loc_code, eigenaar;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        'Freeze voor kwartaal:' || v_kwartaal
-                        || ' op '
-                        || TO_CHAR (SYSDATE, 'dd-mm-yyyy')
-                        || ' is succesvol aangemaakt.'|| v_opmerking,
-                        ''
+      fac.writelog (p_applname,
+                    'E',
+                    'Freeze voor kwartaal:' || v_kwartaal
+                    || ' op '
+                    || TO_CHAR (SYSDATE, 'dd-mm-yyyy')
+                    || ' is succesvol aangemaakt.'|| v_opmerking,
+                    ''
       );
       END IF;
    EXCEPTION
       WHEN OTHERS
       THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
-                           'E',
-                              'Foutmelding!:'
-                           || SQLCODE
-                           || '/'
-                           || SUBSTR (SQLERRM, 1, 100),
-                           'Neem contact op met uw consultant.'
+         fac.writelog (p_applname,
+                       'E',
+                          'Foutmelding!:'
+                       || SQLCODE
+                       || '/'
+                       || SUBSTR (SQLERRM, 1, 100),
+                       'Neem contact op met uw consultant.'
          );
    END;
 END;
@@ -1449,17 +1442,14 @@ WHERE     b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
 
 
 CREATE OR REPLACE PROCEDURE aads_import_dienst_loc_bld (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
    v_newline          VARCHAR2 (1000);                                                                   -- Import line
@@ -1479,10 +1469,6 @@ AS
    header_found       BOOLEAN;
 
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -1498,8 +1484,7 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = '?'
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
                               'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
@@ -1540,11 +1525,10 @@ BEGIN
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig BedrijfDienstLocatieGebouw importbestand.'
+                        'Bestand is geen geldig BedrijfDienstLocatieGebouw importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -1553,14 +1537,14 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM aads_imp_dienst_loc_bld;
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE aads_update_dienst_loc_bld (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aads_update_dienst_loc_bld (p_import_key IN NUMBER)
 AS
    CURSOR cbdlg
    IS
@@ -1585,11 +1569,10 @@ BEGIN
      INTO currentversion
      FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Arcadis Aqumen BedrijfDienstLocatieGebouw import version ' || currentversion,
-                     '$Revision: 34 $'
+                     '$Revision: 35 $'
                     );
 
    SELECT COUNT (*)
@@ -1597,11 +1580,10 @@ BEGIN
      FROM aads_imp_dienst_loc_bld;
      
    IF v_oldcountbdlg = 0 THEN
-     fac.imp_writelog (p_applname,
-                       p_applrun,
+     fac.imp_writelog (p_import_key,
                        'E',
                        'Arcadis Aqumen BedrijfDienstLocatieGebouw import bevat geen records',
-                       '$Revision: 34 $'
+                       '$Revision: 35 $'
                       );
      return;
    END IF;
@@ -1703,8 +1685,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_error_hint
@@ -1717,8 +1698,7 @@ BEGIN
      INTO v_newcountbdlg
      FROM aads_imp_dienst_loc_bld;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                      'Aantal BedrijfDienstLocBld vooraf: ' || TO_CHAR (v_oldcountbdlg) || '  nu: ' || TO_CHAR (v_newcountbdlg),
                      ''
@@ -1728,7 +1708,7 @@ END;
 /
 
 
-BEGIN adm.systrackscript('$Workfile: aads.sql $', '$Revision: 34 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aads.sql $', '$Revision: 35 $', 0); END;
 /
 
 
diff --git a/AA/AAEN/aaen.sql b/AA/AAEN/aaen.sql
index b81a4975f..5a567c1a8 100644
--- a/AA/AAEN/aaen.sql
+++ b/AA/AAEN/aaen.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aaen: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 28 $
--- $Modtime: 13-01-12 12:40 $
+-- $Revision: 29 $
+-- $Modtime: 21-02-12 9:06 $
 --
 -- Support: +31 53 4800700
 
@@ -35,26 +35,18 @@ CREATE OR REPLACE VIEW aaen_v_export_budget_tracker   (RESULT, result_order) AS
 -- exact
 -- Leverancier overrulles
 CREATE OR REPLACE PROCEDURE aaen_import_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_import_opdrstat_strukton (p_applname,
-                                  p_applrun,
-                                  p_filedir,
-                                  p_filename);
+   aaxx_import_opdrstat_strukton (p_import_key);
 END aaen_import_opdrstat_strukton;
 /
 
 CREATE OR REPLACE PROCEDURE aaen_update_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_update_opdrstat_strukton (p_applname,
-                                  p_applrun);
+   aaxx_update_opdrstat_strukton (p_import_key);
 END aaen_update_opdrstat_strukton;
 /
 
@@ -387,10 +379,6 @@ AS
    v_date                        DATE;
    v_count                       NUMBER;
 BEGIN
-
-  DELETE FROM imp_log
-   WHERE imp_log_applicatie = p_applname;
-
   -- Facilitor
   v_aanvrager := 4;
   -- DSM: Arcadis Aqumen kostenplaats key
@@ -639,11 +627,7 @@ END aaen_export_lease_aanvraag;
 --         IMPORT FUNCTIES
 --
 --
-CREATE OR REPLACE PROCEDURE aaen_import_perslid_mut (p_applname   IN VARCHAR2,
-                                                     p_applrun    IN VARCHAR2,
-                                                     p_filedir    IN VARCHAR2,
-                                                     p_filename   IN VARCHAR2
-                                                    )
+CREATE OR REPLACE PROCEDURE aaen_import_perslid_mut (p_import_key IN NUMBER)
 AS
    c_fielddelimitor VARCHAR2 (1) := ';';
 BEGIN
@@ -656,14 +640,13 @@ BEGIN
    UPDATE fac_imp_file SET fac_imp_file_line = REPLACE(fac_imp_file_line, ';03B;',';039;') WHERE fac_imp_file_applicatie = 'PERSLID_MUT' AND fac_imp_file_line not like 'Locatiecode%';
    UPDATE fac_imp_file SET fac_imp_file_line = REPLACE(fac_imp_file_line, ';04A;',';048;') WHERE fac_imp_file_applicatie = 'PERSLID_MUT' AND fac_imp_file_line not like 'Locatiecode%';
    UPDATE fac_imp_file SET fac_imp_file_line = REPLACE(fac_imp_file_line, ';00A;',';008;') WHERE fac_imp_file_applicatie = 'PERSLID_MUT' AND fac_imp_file_line not like 'Locatiecode%';
-   fac_import_perslid (p_applname, p_applrun, p_filedir, p_filename);
+   fac_import_perslid (p_import_key);
 END aaen_import_perslid_mut;
 /
 
 
 CREATE OR REPLACE PROCEDURE aaen_update_perslid_mut (
-   p_applname         IN   VARCHAR2,
-   p_applrun          IN   VARCHAR2
+   p_import_key IN NUMBER
 ) IS
 
 CURSOR c
@@ -681,7 +664,7 @@ CURSOR c_imp
 IS
    SELECT *
      FROM fac_imp_file
-    WHERE fac_imp_file_applicatie = p_applname;
+    WHERE fac_import_key = p_import_key;
 
 v_perslid_key     NUMBER;
 v_perslid_nr      VARCHAR2(100);
@@ -689,13 +672,13 @@ v_kostenplaats_nr VARCHAR2(100);
 
 BEGIN
 	-- generic update
-  aaxx.fac_gen_update_perslid (p_applname, p_applrun, 'NR', 1, '000');
+  aaxx.fac_gen_update_perslid (p_import_key, 'NR', 1, '000');
 
   -- remove perslid records if people registered with perslid_nr are not present in the import file.
   FOR rec IN c
   LOOP
      BEGIN
-       aaxx.prs_del_perslid (p_applname, p_applrun, rec.prs_perslid_key, 0);
+       aaxx.prs_del_perslid (p_import_key, rec.prs_perslid_key, 0);
      END;
   END LOOP;
 
@@ -711,10 +694,10 @@ BEGIN
           WHERE prs_perslid_verwijder IS NULL
             AND prs_perslid_nr = v_perslid_nr;
 
-         aaxx.set_prs_kenmerk(p_applname, p_applrun, 'P', 1000, v_perslid_key, v_kostenplaats_nr);
+         aaxx.set_prs_kenmerk(p_import_key, 'P', 1000, v_perslid_key, v_kostenplaats_nr);
 
        EXCEPTION WHEN OTHERS THEN
-         -- fac.imp_writelog (p_applname, p_applrun, 'B', '(ORACLE error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')', v_perslid_key || '-' || v_perslid_nr || '+' || v_kostenplaats_nr);
+         -- fac.imp_writelog (p_import_key, 'B', '(ORACLE error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')', v_perslid_key || '-' || v_perslid_nr || '+' || v_kostenplaats_nr);
          -- nothing to do
          NULL;
        END;
@@ -725,11 +708,7 @@ END aaen_update_perslid_mut;
 /
 
 
-CREATE OR REPLACE PROCEDURE aaen_import_organisatie_mut (p_applname   IN VARCHAR2,
-                                                    p_applrun    IN VARCHAR2,
-                                                    p_filedir    IN VARCHAR2,
-                                                    p_filename   IN VARCHAR2
-                                                   )
+CREATE OR REPLACE PROCEDURE aaen_import_organisatie_mut (p_import_key IN NUMBER)
 AS
    c_fielddelimitor VARCHAR2 (1) := ';';
    v_newline VARCHAR2 (1000);                                                                              -- Input line
@@ -760,13 +739,9 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   aaen_imp_organisatie;
 
    COMMIT;
@@ -809,8 +784,7 @@ BEGIN
             IF LENGTH (v_bedrijf_naam) > 60
             THEN
                v_bedrijf_naam := SUBSTR (v_bedrijf_naam, 1, 60);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Bedrijf-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_bedrijf_naam || ']'
@@ -823,8 +797,7 @@ BEGIN
             IF LENGTH (v_afdeling_naam) > 10
             THEN
                v_afdeling_naam := SUBSTR (v_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdeling-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_afdeling_naam || ']'
@@ -837,8 +810,7 @@ BEGIN
             IF LENGTH (v_afdeling_naam_parent) > 10
             THEN
                v_afdeling_naam_parent := SUBSTR (v_afdeling_naam_parent, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdeling-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_afdeling_naam_parent || ']'
@@ -851,8 +823,7 @@ BEGIN
             IF LENGTH (v_afdeling_omschrijving) > 60
             THEN
                v_afdeling_omschrijving := SUBSTR (v_afdeling_omschrijving, 1, 60);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingsomschrijving is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_afdeling_omschrijving || ']'
@@ -900,16 +871,14 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || 'Ongeldig importbestand',
                         'Geen geldige headerregel aanwezig'
                        );
    ELSE
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Bedrijf: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key, 'S', 'Bedrijf: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
+      fac.imp_writelog (p_import_key,
                         'S',
                         'Bedrijf: aantal ongeldige importregels: ' || TO_CHAR (v_count_tot - v_count_import),
                         ''
@@ -923,14 +892,12 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'error ' || oracle_err_num || '/' || oracle_err_mes;
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 END aaen_import_organisatie_mut;
 /
 
 
-CREATE OR REPLACE PROCEDURE aaen_update_organisatie_mut (p_applname IN varchar2,
-                                                         p_applrun IN VARCHAR2
-)
+CREATE OR REPLACE PROCEDURE aaen_update_organisatie_mut (p_import_key IN NUMBER)
 AS
    CURSOR c
    IS
@@ -962,11 +929,10 @@ BEGIN
    INTO currentversion
    FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Facilitor afdeling import version ' || currentversion,
-                     '$Revision: 28 $'
+                     '$Revision: 29 $'
    );
 
    -- How many active records are now present?
@@ -983,8 +949,7 @@ BEGIN
 
    IF (ABS ( (v_impcount) - v_oldcount) > v_maxvariation * v_oldcount)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                            'Het verschil tussen de actieve afdelingen ('
                         || TO_CHAR (v_oldcount)
@@ -1123,15 +1088,14 @@ BEGIN
             v_prs_afdeling_key := rec.prs_afdeling_key;
          END IF;
 
-         aaxx.set_prs_kenmerk(p_applname, p_applrun, 'A', 1020, v_prs_afdeling_key, v_prs_afdeling_leiding);
+         aaxx.set_prs_kenmerk(p_import_key, 'A', 1020, v_prs_afdeling_key, v_prs_afdeling_leiding);
 
       EXCEPTION
          WHEN OTHERS
          THEN
             oracle_err_mes   := SUBSTR (SQLERRM, 1, 100);
             v_errormsg       := 'error ' || SQLCODE || '/' || oracle_err_mes;
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_errorhint || '-' || v_aanduiding
@@ -1146,14 +1110,12 @@ BEGIN
          AND prs_afdeling_verwijder IS NULL;
 
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                      'Aantal ingelezen afdelingen: ' || TO_CHAR (v_impcount),
                      ''
    );
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                         'Aantal afdelingen vooraf: '
                      || TO_CHAR (v_oldcount)
@@ -1210,38 +1172,31 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aaen_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aaen_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aaen_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaen_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aaen_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aaen_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaen_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aaen_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aaen_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -1255,7 +1210,7 @@ AS
    WHERE fac_rapport_node = SUBSTR ('RUIMTE_XML', 1, 12);
 
 CREATE OR REPLACE PROCEDURE aaen_select_ruimte_xml (p_applname IN VARCHAR2,
-                                                         p_applrun IN VARCHAR2
+                                                    p_applrun IN VARCHAR2
 )
 AS
    CURSOR c_loc
@@ -2099,7 +2054,7 @@ AS
          AND m.mld_melding_datum > SYSDATE - 1
          AND m.mld_melding_status IN (2, 3, 4);
 
-BEGIN adm.systrackscript('$Workfile: aaen.sql $', '$Revision: 28 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aaen.sql $', '$Revision: 29 $', 0); END;
 /
 
 
diff --git a/AA/AAFP/aafp.sql b/AA/AAFP/aafp.sql
index 7d44322e3..b3f6e3e5f 100644
--- a/AA/AAFP/aafp.sql
+++ b/AA/AAFP/aafp.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aafp: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 5 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 6 $
+-- $Modtime: 16-02-12 7:25 $
 --
 -- Support: +31 53 4800700
 
@@ -123,43 +123,36 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aafp_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aafp_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aafp_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aafp_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aafp_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aafp_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aafp_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aafp_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aafp_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
-BEGIN adm.systrackscript('$Workfile: aafp.sql $', '$Revision: 5 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aafp.sql $', '$Revision: 6 $', 0); END;
 /
 
 
diff --git a/AA/AAHU/aahu.sql b/AA/AAHU/aahu.sql
index d6551aeeb..9bb577245 100644
--- a/AA/AAHU/aahu.sql
+++ b/AA/AAHU/aahu.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aahu: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 6 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 7 $
+-- $Modtime: 21-02-12 9:06 $
 --
 -- Support: +31 53 4800700
 
@@ -110,31 +110,31 @@ BEGIN
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aahu_import_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aahu_import_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_contract(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aahu_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aahu_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_contract(p_applname, p_applrun);
+  aaxx_update_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aahu_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aahu_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aahu_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aahu_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -166,10 +166,6 @@ AS
    v_count                       NUMBER;
    v_total                       NUMBER(10,2);
 BEGIN
-
-  DELETE FROM imp_log
-   WHERE imp_log_applicatie = p_applname;
-
   -- Facilitor
   v_aanvrager := 4;
   -- DOW: Arcadis Aqumen kostenplaats key
@@ -363,7 +359,7 @@ AS
                2,
                -1);
 
-BEGIN adm.systrackscript('$Workfile: aahu.sql $', '$Revision: 6 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aahu.sql $', '$Revision: 7 $', 0); END;
 /
 
 BEGIN fac.registercustversion('AAHU', 4); END;
diff --git a/AA/AAIT/Once/aaitDB14to15.sql b/AA/AAIT/Once/aaitDB14to15.sql
new file mode 100644
index 000000000..5dc97b60c
--- /dev/null
+++ b/AA/AAIT/Once/aaitDB14to15.sql
@@ -0,0 +1,23 @@
+-- Customer specific once-script RWSN39.
+--
+-- (c) 2011 SG|facilitor bv 
+-- $Revision: 1 $ 
+-- $Modtime: 16-02-12 7:45 $
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL xaaitDB14to15.lst
+SET DEFINE OFF
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#22517
+ALTER TABLE aait_imp_opdrstatusmulti DROP COLUMN imp_log_run;
+
+ALTER TABLE aait_imp_opdrstatusmulti ADD (fac_import_key NUMBER(10));
+
+BEGIN adm.systrackscript('$Workfile: aaitDB14to15.sql $', '$Revision: 1 $', 1); END;
+/
+
+SPOOL OFF
+
+@aait.sql
diff --git a/AA/AALB/aalb.sql b/AA/AALB/aalb.sql
index 42da94e58..630ab2b3f 100644
--- a/AA/AALB/aalb.sql
+++ b/AA/AALB/aalb.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aalb: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 4 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 5 $
+-- $Modtime: 16-02-12 8:52 $
 --
 -- Support: +31 53 4800700
 
@@ -124,43 +124,36 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aalb_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aalb_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aalb_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aalb_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aalb_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aalb_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aalb_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aalb_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aalb_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
-BEGIN adm.systrackscript('$Workfile: aalb.sql $', '$Revision: 4 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aalb.sql $', '$Revision: 5 $', 0); END;
 /
 
 
diff --git a/AA/AAME/aame.sql b/AA/AAME/aame.sql
index b787a11c4..c1d967744 100644
--- a/AA/AAME/aame.sql
+++ b/AA/AAME/aame.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aame: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 2 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 3 $
+-- $Modtime: 16-02-12 9:02 $
 --
 -- Support: +31 53 4800700
 
@@ -124,43 +124,36 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aame_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aame_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aame_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aame_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aame_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aame_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aame_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aame_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aame_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
-BEGIN adm.systrackscript('$Workfile: aame.sql $', '$Revision: 2 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aame.sql $', '$Revision: 3 $', 0); END;
 /
 
 
diff --git a/AA/AANS/aans.sql b/AA/AANS/aans.sql
index 934ae3fdf..16472b616 100644
--- a/AA/AANS/aans.sql
+++ b/AA/AANS/aans.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for AANS: Nederlandse Spoorwegen (via AA)
 -- (c) 2009 SG|facilitor
--- $Revision: 59 $
--- $Modtime: 8-02-12 12:41 $
+-- $Revision: 60 $
+-- $Modtime: 16-02-12 10:44 $
 --
 -- Support: +31 53 4800710
 
@@ -126,56 +126,48 @@ END;
 
 -- import overrulles
 -- import srtruimte
-CREATE OR REPLACE PROCEDURE aans_import_srtruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_import_srtruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_srtruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_srtruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aans_update_srtruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_update_srtruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_srtruimte(p_applname, p_applrun);
+  aaxx_update_srtruimte(p_import_key);
 END;
 /
 
 -- uplift
-CREATE OR REPLACE PROCEDURE aans_import_uplift (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_import_uplift (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_uplift(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_uplift(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aans_update_uplift (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_update_uplift (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_uplift(p_applname, p_applrun);
+  aaxx_update_uplift(p_import_key);
 END;
 /
 
 CREATE OR REPLACE PROCEDURE aans_import_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_import_opdrstat_strukton (p_applname,
-                                  p_applrun,
-                                  p_filedir,
-                                  p_filename);
+   aaxx_import_opdrstat_strukton (p_import_key);
 END aans_import_opdrstat_strukton;
 /
 
 CREATE OR REPLACE PROCEDURE aans_update_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_update_opdrstat_strukton (p_applname,
-                                  p_applrun);
+   aaxx_update_opdrstat_strukton (p_import_key);
 END aans_update_opdrstat_strukton;
 /
 --
@@ -1594,17 +1586,14 @@ WHERE     b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
 
 
 CREATE OR REPLACE PROCEDURE aans_import_dienst_loc_bld (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
    v_newline          VARCHAR2 (1000);                                                                   -- Import line
@@ -1624,10 +1613,6 @@ AS
    header_found       BOOLEAN;
 
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -1643,11 +1628,10 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = '?'
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
-                              'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
+                              'Bestand heeft onbehandeld UTF-8 formaat.'
                              );
             v_newline := SUBSTR (v_newline, 4);
          END IF;
@@ -1685,11 +1669,10 @@ BEGIN
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig BedrijfDienstLocatieGebouw importbestand.'
+                        'Bestand is geen geldig BedrijfDienstLocatieGebouw importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -1698,14 +1681,14 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM aans_imp_dienst_loc_bld;
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE aans_update_dienst_loc_bld (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_update_dienst_loc_bld (p_import_key IN NUMBER)
 AS
    CURSOR cbdlg
    IS
@@ -1730,11 +1713,10 @@ BEGIN
      INTO currentversion
      FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Arcadis Aqumen BedrijfDienstLocatieGebouw import version ' || currentversion,
-                     '$Revision: 59 $'
+                     '$Revision: 60 $'
                     );
 
    SELECT COUNT (*)
@@ -1742,11 +1724,10 @@ BEGIN
      FROM aans_imp_dienst_loc_bld;
      
    IF v_oldcountbdlg = 0 THEN
-     fac.imp_writelog (p_applname,
-                       p_applrun,
+     fac.imp_writelog (p_import_key,
                        'E',
                        'Arcadis Aqumen BedrijfDienstLocatieGebouw import bevat geen records',
-                       '$Revision: 59 $'
+                       '$Revision: 60 $'
                       );
      return;
    END IF;
@@ -1849,8 +1830,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_error_hint
@@ -1863,8 +1843,7 @@ BEGIN
      INTO v_newcountbdlg
      FROM aans_imp_dienst_loc_bld;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                      'Aantal BedrijfDienstLocBld vooraf: ' || TO_CHAR (v_oldcountbdlg) || '  nu: ' || TO_CHAR (v_newcountbdlg),
                      ''
@@ -1877,38 +1856,31 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aans_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aans_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aans_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aans_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aans_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aans_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aans_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
@@ -1950,7 +1922,7 @@ END;
 /
 
 
-BEGIN adm.systrackscript('$Workfile: aans.sql $', '$Revision: 59 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aans.sql $', '$Revision: 60 $', 0); END;
 /
 
 BEGIN fac.registercustversion('AANS', 41); END;
diff --git a/AA/AANX/aanx.sql b/AA/AANX/aanx.sql
index ef67018ac..2d8bfcb0e 100644
--- a/AA/AANX/aanx.sql
+++ b/AA/AANX/aanx.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for aanx: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 13 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 14 $
+-- $Modtime: 16-02-12 11:05 $
 --
 -- Support: +31 53 4800700
 
@@ -123,55 +123,45 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE aanx_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END aanx_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE aanx_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aanx_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END aanx_update_contract;
 /
 
 
-CREATE OR REPLACE PROCEDURE aanx_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aanx_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aanx_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aanx_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
 CREATE OR REPLACE PROCEDURE aanx_import_dienst_loc_bld (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
    v_newline          VARCHAR2 (1000);                                                                   -- Import line
@@ -191,10 +181,6 @@ AS
    header_found       BOOLEAN;
 
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -210,11 +196,10 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = '?'
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
-                              'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
+                              'Bestand heeft onbehandeld UTF-8 formaat.'
                              );
             v_newline := SUBSTR (v_newline, 4);
          END IF;
@@ -252,11 +237,10 @@ BEGIN
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig BedrijfDienstLocatieGebouw importbestand.'
+                        'Bestand is geen geldig BedrijfDienstLocatieGebouw importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -265,14 +249,14 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM aanx_imp_dienst_loc_bld;
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE aanx_update_dienst_loc_bld (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aanx_update_dienst_loc_bld (p_import_key IN NUMBER)
 AS
    CURSOR cbdlg
    IS
@@ -297,11 +281,10 @@ BEGIN
      INTO currentversion
      FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Arcadis Aqumen BedrijfDienstLocatieGebouw import version ' || currentversion,
-                     '$Revision: 13 $'
+                     '$Revision: 14 $'
                     );
 
    SELECT COUNT (*)
@@ -309,11 +292,10 @@ BEGIN
      FROM aanx_imp_dienst_loc_bld;
      
    IF v_oldcountbdlg = 0 THEN
-     fac.imp_writelog (p_applname,
-                       p_applrun,
+     fac.imp_writelog (p_import_key,
                        'E',
                        'Arcadis Aqumen BedrijfDienstLocatieGebouw import bevat geen records',
-                       '$Revision: 13 $'
+                       '$Revision: 14 $'
                       );
      return;
    END IF;
@@ -416,8 +398,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_error_hint
@@ -430,8 +411,7 @@ BEGIN
      INTO v_newcountbdlg
      FROM aanx_imp_dienst_loc_bld;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                      'Aantal BedrijfDienstLocBld vooraf: ' || TO_CHAR (v_oldcountbdlg) || '  nu: ' || TO_CHAR (v_newcountbdlg),
                      ''
@@ -441,11 +421,7 @@ END;
 /
 
 
-CREATE OR REPLACE PROCEDURE aanx_import_perslid_mut (p_applname   IN VARCHAR2,
-                                                     p_applrun    IN VARCHAR2,
-                                                     p_filedir    IN VARCHAR2,
-                                                     p_filename   IN VARCHAR2
-                                                    )
+CREATE OR REPLACE PROCEDURE aanx_import_perslid_mut (p_import_key IN NUMBER)
 AS
    c_fielddelimitor VARCHAR2 (1) := ';';
    v_newline VARCHAR2 (1000);                                                                              -- Input line
@@ -489,13 +465,9 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   fac_imp_perslid;
 
    COMMIT;
@@ -575,8 +547,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 10
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatie-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_alg_locatie_code || ']'
@@ -590,8 +561,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 12
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 12);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouw-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_alg_gebouw_code || ']'
@@ -615,7 +585,7 @@ BEGIN
                      oracle_err_num := SQLCODE;
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                      v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
-                     fac.imp_writelog (p_applname, p_applrun, 'E', v_aanduiding || v_errormsg, v_errorhint);
+                     fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
                END;
             END IF;
 
@@ -626,8 +596,7 @@ BEGIN
             IF LENGTH (v_alg_ruimte_nr) > 10
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Ruimtenr-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_alg_ruimte_nr || ']'
@@ -651,7 +620,7 @@ BEGIN
                      oracle_err_num := SQLCODE;
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                      v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
-                     fac.imp_writelog (p_applname, p_applrun, 'E', v_aanduiding || v_errormsg, v_errorhint);
+                     fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
                END;
             END IF;
 
@@ -662,8 +631,7 @@ BEGIN
             IF LENGTH (v_prs_werkplek_omschrijving) > 30
             THEN
                v_prs_werkplek_omschrijving := SUBSTR (v_prs_werkplek_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Werkplek-aanduiding is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_werkplek_omschrijving || ']'
@@ -677,8 +645,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_afdeling_naam || ']'
@@ -687,8 +654,7 @@ BEGIN
                IF (v_prs_afdeling_naam IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || 'Afdelingscode onbekend',
                                     'Afdelingscode moet worden opgegeven'
@@ -703,8 +669,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -713,8 +678,7 @@ BEGIN
                IF (v_prs_perslid_naam IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || 'Naam persoon onbekend',
                                     'Naam persoon moet worden opgegeven'
@@ -729,8 +693,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_tussenvoegsel) > 10
             THEN
                v_prs_perslid_tussenvoegsel := SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_tussenvoegsel || ']'
@@ -744,8 +707,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_voorletters) > 10
             THEN
                v_prs_perslid_voorletters := SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters persoon zijn te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_voorletters || ']'
@@ -759,8 +721,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_voornaam) > 30
             THEN
                v_prs_perslid_voornaam := SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_voornaam || ']'
@@ -774,8 +735,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_titel) > 15
             THEN
                v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Titel persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_titel || ']'
@@ -789,8 +749,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_titel) > 15
             THEN
                v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Titel persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_titel || ']'
@@ -804,8 +763,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_telefoonnr) > 15
             THEN
                v_prs_perslid_telefoonnr := SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnr. persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_telefoonnr || ']'
@@ -819,8 +777,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_mobiel) > 15
             THEN
                v_prs_perslid_mobiel := SUBSTR (v_prs_perslid_mobiel, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Mobielnr. persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_mobiel || ']'
@@ -834,8 +791,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 200
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 200);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Email persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_email || ']'
@@ -849,8 +805,7 @@ BEGIN
             IF LENGTH (v_prs_srtperslid_omschrijving) > 60
             THEN
                v_prs_srtperslid_omschrijving := SUBSTR (v_prs_srtperslid_omschrijving, 1, 60);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie-aanduiding persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_srtperslid_omschrijving || ']'
@@ -859,8 +814,7 @@ BEGIN
                IF (v_prs_srtperslid_omschrijving IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || 'Functie persoon onbekend',
                                     'Functie persoon moet worden opgegeven'
@@ -875,8 +829,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Persoonnr. persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_nr || ']'
@@ -890,8 +843,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam persoon is te lang',
                                  'Aanduiding wordt afgebroken tot [' || v_prs_perslid_oslogin || ']'
@@ -955,16 +907,14 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || 'Ongeldig importbestand',
                         'Geen geldige headerregel aanwezig'
                        );
    ELSE
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key, 'S', 'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot), '');
+      fac.imp_writelog (p_import_key,
                         'S',
                         'Persoon: aantal ongeldige importregels: ' || TO_CHAR (v_count_tot - v_count_import),
                         ''
@@ -978,14 +928,13 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_aanduiding || v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
 END aanx_import_perslid_mut;
 /
 
 
 CREATE OR REPLACE PROCEDURE aanx_update_perslid_mut (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+   p_import_key IN NUMBER)
 IS
    CURSOR c
    IS
@@ -1003,7 +952,7 @@ IS
    IS
       SELECT *
         FROM fac_imp_file
-       WHERE fac_imp_file_applicatie = p_applname;
+       WHERE fac_import_key = p_import_key;
 
    v_perslid_key       NUMBER;
    v_perslid_nr        VARCHAR2 (100);
@@ -1017,8 +966,7 @@ BEGIN
                      AND g.alg_gebouw_code = i.alg_gebouw_code);
 
    -- generic update
-   aaxx.fac_gen_update_perslid (p_applname,
-                                p_applrun,
+   aaxx.fac_gen_update_perslid (p_import_key,
                                 'LOGIN',
                                 1,
                                 '000');
@@ -1027,8 +975,7 @@ BEGIN
    FOR rec IN c
    LOOP
       BEGIN
-         aaxx.prs_del_perslid (p_applname,
-                               p_applrun,
+         aaxx.prs_del_perslid (p_import_key,
                                rec.prs_perslid_key,
                                0);
       END;
@@ -1060,17 +1007,13 @@ END aanx_update_perslid_mut;
 /
 
 
-CREATE OR REPLACE PROCEDURE aanx_import_kostenplaats (p_applname   IN VARCHAR2,
-                                                      p_applrun    IN VARCHAR2,
-                                                      p_filedir    IN VARCHAR2,
-                                                      p_filename   IN VARCHAR2
-                                                     )
+CREATE OR REPLACE PROCEDURE aanx_import_kostenplaats (p_import_key IN NUMBER)
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
 
@@ -1091,10 +1034,6 @@ AS
    v_budgethouder     VARCHAR2(30);
 
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -1110,8 +1049,7 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = '?'
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
                               'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
@@ -1158,11 +1096,10 @@ BEGIN
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig Kostenplaats importbestand.'
+                        'Bestand is geen geldig Kostenplaats importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -1171,7 +1108,7 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM aanx_imp_kostenplaats;
 END aanx_import_kostenplaats;
@@ -1179,8 +1116,7 @@ END aanx_import_kostenplaats;
 
 
 CREATE OR REPLACE PROCEDURE aanx_update_kostenplaats (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+  p_import_key IN NUMBER)
 IS
    CURSOR c
    IS
@@ -1240,7 +1176,7 @@ BEGIN
         
         IF rec.login IS NULL
         THEN
-           fac.imp_writelog (p_applname, p_applrun, 'W', 'Budgethouder niet gevonden', v_aanduiding);
+           fac.imp_writelog (p_import_key, 'W', 'Budgethouder niet gevonden', v_aanduiding);
         END IF;
         
         v_errorhint := 'Zoeken kostenplaats';
@@ -1259,7 +1195,7 @@ BEGIN
                    1,
                    sysdate,
                    rec.login) RETURNING prs_kostenplaats_key INTO v_kostenplaats_key;
-            fac.imp_writelog (p_applname, p_applrun, 'I', 'Kostenplaats toegevoegd', v_aanduiding);
+            fac.imp_writelog (p_import_key, 'I', 'Kostenplaats toegevoegd', v_aanduiding);
         ELSE
            IF    rec.prs_kostenplaats_omschrijving <> rec.afdeling_oms
               OR COALESCE(rec.login,-1) <> COALESCE(rec.prs_perslid_key,-1)
@@ -1269,7 +1205,7 @@ BEGIN
                   SET prs_kostenplaats_omschrijving =  rec.afdeling_oms,
                       prs_perslid_key = rec.login
                 WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key;
-               fac.imp_writelog (p_applname, p_applrun, 'I', 'Kostenplaats aangepast', v_aanduiding);
+               fac.imp_writelog (p_import_key, 'I', 'Kostenplaats aangepast', v_aanduiding);
            END IF;
            v_kostenplaats_key := rec.prs_kostenplaats_key;
         END IF;
@@ -1293,7 +1229,7 @@ BEGIN
                    v_afdeling_parent,
                    v_kostenplaats_key)
            RETURNING prs_afdeling_key INTO v_afdeling_key;
-           fac.imp_writelog (p_applname, p_applrun, 'I', 'Afdeling toegevoegd', v_aanduiding);
+           fac.imp_writelog (p_import_key, 'I', 'Afdeling toegevoegd', v_aanduiding);
         ELSE
            IF    rec.prs_afdeling_omschrijving <> rec.afdeling_oms
               OR COALESCE(rec.afd_kostenplaats_key,-1) <> COALESCE(v_kostenplaats_key,-1)
@@ -1304,7 +1240,7 @@ BEGIN
                      prs_kostenplaats_key = v_kostenplaats_key
                WHERE prs_afdeling_key = rec.prs_afdeling_key;
                
-              fac.imp_writelog (p_applname, p_applrun, 'I', 'Afdeling aangepast', v_aanduiding);
+              fac.imp_writelog (p_import_key, 'I', 'Afdeling aangepast', v_aanduiding);
            END IF;
            
         END IF;
@@ -1314,7 +1250,7 @@ BEGIN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-           fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
+           fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
       END;
      END LOOP;
 
@@ -1326,13 +1262,13 @@ BEGIN
            UPDATE prs_kostenplaats
               SET prs_kostenplaats_verwijder = sysdate
             WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key;
-           fac.imp_writelog (p_applname, p_applrun, 'I', 'Kostenplaats verwijderd', v_aanduiding); 
+           fac.imp_writelog (p_import_key, 'I', 'Kostenplaats verwijderd', v_aanduiding); 
         EXCEPTION WHEN OTHERS
         THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-           fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
+           fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
         END;
      END LOOP;
 
@@ -1344,13 +1280,13 @@ BEGIN
            UPDATE prs_afdeling
               SET prs_afdeling_verwijder = sysdate
             WHERE prs_afdeling_key = rec.prs_afdeling_key;
-           fac.imp_writelog (p_applname, p_applrun, 'I', 'Afdeling verwijderd', v_aanduiding); 
+           fac.imp_writelog (p_import_key, 'I', 'Afdeling verwijderd', v_aanduiding); 
         EXCEPTION WHEN OTHERS
         THEN
            oracle_err_num := SQLCODE;
            oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
            v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-           fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
+           fac.imp_writelog (p_import_keyn, 'E', SUBSTR (v_errormsg, 1, 1000), v_errorhint || '['||v_aanduiding||']');
         END;
      END LOOP;
 
@@ -1419,7 +1355,7 @@ AS
                -1);
 
 
-BEGIN adm.systrackscript('$Workfile: aanx.sql $', '$Revision: 13 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aanx.sql $', '$Revision: 14 $', 0); END;
 /
 
 
diff --git a/AA/AASA/aasa.sql b/AA/AASA/aasa.sql
index 8f906ed4d..6db2e8d95 100644
--- a/AA/AASA/aasa.sql
+++ b/AA/AASA/aasa.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for AASA: Arcadis Aqumen Facility Management for Sabic
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 14 $
--- $Modtime: 9-01-12 16:43 $
+-- $Revision: 15 $
+-- $Modtime: 16-02-12 11:09 $
 --
 -- Support: +31 53 4800700
 
@@ -121,57 +121,49 @@ END;
 
 -- import overrulles
 -- import srtruimte
-CREATE OR REPLACE PROCEDURE aasa_import_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aasa_import_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_contract(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aasa_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aasa_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_contract(p_applname, p_applrun);
+  aaxx_update_contract(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aasa_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aasa_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aasa_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE aasa_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
 -- Leverancier overrulles
 CREATE OR REPLACE PROCEDURE aasa_import_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_import_opdrstat_strukton (p_applname,
-                                  p_applrun,
-                                  p_filedir,
-                                  p_filename);
+   aaxx_import_opdrstat_strukton (p_import_key);
 END aasa_import_opdrstat_strukton;
 /
 
 CREATE OR REPLACE PROCEDURE aasa_update_opdrstat_strukton (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2)
+   p_import_key IN NUMBER)
 AS
 BEGIN
-   aaxx_update_opdrstat_strukton (p_applname,
-                                  p_applrun);
+   aaxx_update_opdrstat_strukton (p_import_key);
 END aasa_update_opdrstat_strukton;
 /
 
@@ -228,7 +220,7 @@ AS
      FROM alg_v_aanweziggebouw g, prs_kostenplaats k
     WHERE g.prs_kostenplaats_key = k.prs_kostenplaats_key(+);
 
-BEGIN adm.systrackscript('$Workfile: aasa.sql $', '$Revision: 14 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: aasa.sql $', '$Revision: 15 $', 0); END;
 /
 
 
diff --git a/AA/ASMS/asms.sql b/AA/ASMS/asms.sql
index 524cdda97..e403f1026 100644
--- a/AA/ASMS/asms.sql
+++ b/AA/ASMS/asms.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for asms: Arcadis Aqumen Facility Management
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 1 $
--- $Modtime: 9-01-12 17:27 $
+-- $Revision: 2 $
+-- $Modtime: 16-02-12 11:11 $
 --
 -- Support: +31 53 4800700
 
@@ -124,44 +124,37 @@ END;
 -- import contractorders
 --------------------------------
 CREATE OR REPLACE PROCEDURE asms_import_contract (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 BEGIN
-    aaxx_import_contract (p_applname,
-                          p_applrun,
-                          p_filedir,
-                          p_filename);
+    aaxx_import_contract (p_import_key);
 END asms_import_contract;
 /
 
-CREATE OR REPLACE PROCEDURE asms_update_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE asms_update_contract (p_import_key IN NUMBER)
 AS
 BEGIN
-    aaxx_update_contract (p_applname,
-                          p_applrun);
+    aaxx_update_contract (p_import_key);
 END asms_update_contract;
 /
 
-CREATE OR REPLACE PROCEDURE asms_import_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2, p_filedir IN VARCHAR2, p_filename IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE asms_import_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_import_ruimte(p_applname, p_applrun, p_filedir, p_filename);
+  aaxx_import_ruimte(p_import_key);
 END;
 /
 
-CREATE OR REPLACE PROCEDURE asms_update_ruimte (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE asms_update_ruimte (p_import_key IN NUMBER)
 AS
 BEGIN
-  aaxx_update_ruimte(p_applname, p_applrun);
+  aaxx_update_ruimte(p_import_key);
 END;
 /
 
 
 
-BEGIN adm.systrackscript('$Workfile: asms.sql $', '$Revision: 1 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: asms.sql $', '$Revision: 2 $', 0); END;
 /
 
 
diff --git a/AKZA/AKZA.SQL b/AKZA/AKZA.SQL
index 71835347d..84bcd37ae 100644
--- a/AKZA/AKZA.SQL
+++ b/AKZA/AKZA.SQL
@@ -3,8 +3,8 @@
 -- Facilitor inrichting voor Akzo Nobel Arnhem
 -- (c) 1999-2010 SG|facilitor bv
 --
--- $Revision: 117 $
--- $Modtime: 28-12-11 20:28 $
+-- $Revision: 118 $
+-- $Modtime: 21-02-12 9:11 $
 --
 SPOOL xAKZA.LST
 SET ECHO ON
@@ -4530,16 +4530,12 @@ AS
              || bron regel
         FROM akza_exp_explanon;
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    v_filehandle := UTL_FILE.fopen (p_filedir, p_filename, 'w');
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'I',
-                     'Export naar ' || p_filedir || '/' || p_filename,
-                     ''
-                    );
+   fac.writelog (p_applname,
+                 'I',
+                 'Export naar ' || p_filedir || '/' || p_filename,
+                 ''
+                );
    l_cnt := 0;
 
    FOR rcregels IN cregels
@@ -4559,11 +4555,11 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+            fac.writelog (p_applname, 'E', v_errormsg, '');
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Aantal geschreven records: ' || l_cnt, '');
+   fac.writelog (p_applname, 'I', 'Aantal geschreven records: ' || l_cnt, '');
 EXCEPTION
    WHEN UTL_FILE.invalid_operation
    THEN
@@ -4572,12 +4568,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
             'UTL_FILE.INVALID_OPERATION (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        v_errormsg,
-                        'Controleer bestandsnaam van importbestand'
-                       );
+      fac.writelog (p_applname,
+                    'E',
+                    v_errormsg,
+                    'Controleer bestandsnaam van importbestand'
+                   );
    WHEN UTL_FILE.invalid_filehandle
    THEN
       UTL_FILE.fclose (v_filehandle);
@@ -4585,7 +4580,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'UTL_FILE.INVALID_FILEHANDLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
    WHEN UTL_FILE.invalid_path
    THEN
       UTL_FILE.fclose (v_filehandle);
@@ -4593,9 +4588,8 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
                  'UTL_FILE.INVALID_PATH (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog
+      fac.writelog
          (p_applname,
-          p_applrun,
           'E',
           v_errormsg,
           'Controleer directory van importbestand (init.ora bevat utl_file_dir setting om te beschrijven welke directories te gebruiken zijn'
@@ -4607,14 +4601,14 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
                    'UTL_FILE.READ_ERROR (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
    WHEN OTHERS
    THEN
       UTL_FILE.fclose (v_filehandle);
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 
@@ -4634,9 +4628,6 @@ AS
     v_verwerken   BOOLEAN;
     i             NUMBER(12);
   BEGIN
-    DELETE FROM imp_log
-           WHERE imp_log_applicatie = p_applname;
-
     DELETE FROM FAC_RAPPORT -- Hierin wordt de data tijdelijk klaargezet
            WHERE FAC_RAPPORT_NODE=userenv('SESSIONID');
 
@@ -4647,16 +4638,16 @@ AS
 
     p_datum_tot := add_months( v_datum_tot, 1 ); --15e volgende maand
     --
-    fac.imp_writelog (p_applname,  p_applrun, 'I',
-                          'Overweeg SAP-export van ' || TO_CHAR(v_datum_tot) || ' tot en met ' || TO_CHAR(p_datum_tot),
-                          ''
-                      );
+    fac.writelog (p_applname, 'I',
+                      'Overweeg SAP-export van ' || TO_CHAR(v_datum_tot) || ' tot en met ' || TO_CHAR(p_datum_tot),
+                      ''
+                  );
     IF (p_datum_tot-8 >= sysdate)
   THEN -- Het is nog te vroeg. Dus niets doen. op 9/12 door PF op verzoek van 4 naar 8 gezet
-    fac.imp_writelog (p_applname,  p_applrun, 'I',
-                        'Het is nog te vroeg. Het is nog geen: ' || TO_CHAR(p_datum_tot-8),
-                        ''
-                        );
+    fac.writelog (p_applname, 'I',
+                    'Het is nog te vroeg. Het is nog geen: ' || TO_CHAR(p_datum_tot-8),
+                    ''
+                    );
         COMMIT;
         v_verwerken := FALSE;
     ELSE
@@ -4682,10 +4673,10 @@ AS
       VALUES(v_datum_van
       ,      v_datum_tot
       );
-      fac.imp_writelog (p_applname,  p_applrun, 'I',
-                          'SAP-export is nu klaargezet van '|| v_datum_van ||' tot en met ' || v_datum_tot,
-                          ''
-                      );
+      fac.writelog (p_applname, 'I',
+                      'SAP-export is nu klaargezet van '|| v_datum_van ||' tot en met ' || v_datum_tot,
+                      ''
+                  );
     END IF;
   END;
 /
@@ -5489,9 +5480,6 @@ END;
 CREATE OR REPLACE PROCEDURE akza_select_mld_sap (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
 AS
 BEGIN
-    DELETE FROM imp_log
-           WHERE imp_log_applicatie = p_applname;
-
     DELETE FROM FAC_RAPPORT -- Hierin wordt de data tijdelijk klaargezet
            WHERE FAC_RAPPORT_NODE=userenv('SESSIONID');
 
@@ -5544,9 +5532,6 @@ SELECT fac_rapport_regel, fac_rapport_volgnr
 CREATE OR REPLACE PROCEDURE akza_select_res_sap_ssca (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
 AS
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   fac_rapport                                                -- Hierin wordt de data tijdelijk klaargezet
          WHERE   fac_rapport_node = USERENV ('SESSIONID');
 
@@ -5557,9 +5542,6 @@ END;
 CREATE OR REPLACE PROCEDURE akza_select_res_sap_aho (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
 AS
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   fac_rapport                                                -- Hierin wordt de data tijdelijk klaargezet
          WHERE   fac_rapport_node = USERENV ('SESSIONID');
 
@@ -5570,9 +5552,6 @@ END;
 CREATE OR REPLACE PROCEDURE akza_select_res_sap_rit (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
 AS
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   fac_rapport                                                -- Hierin wordt de data tijdelijk klaargezet
          WHERE   fac_rapport_node = USERENV ('SESSIONID');
 
@@ -6089,7 +6068,7 @@ AS
           AND prs_perslid_upper NOT LIKE 'LEEG [%';
 
 
-BEGIN adm.systrackscript('$Workfile: AKZA.SQL $', '$Revision: 117 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: AKZA.SQL $', '$Revision: 118 $', 0); END;
 /
 BEGIN fac.registercustversion('AKZA', 22); END;
 /
diff --git a/AONL/aonl.sql b/AONL/aonl.sql
index a065c70e0..1d6df7207 100644
--- a/AONL/aonl.sql
+++ b/AONL/aonl.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for AONL
 -- (c) 2008 SG|facilitor bv
--- $Revision: 30 $
--- $Modtime: 23-09-11 15:10 $
+-- $Revision: 31 $
+-- $Modtime: 21-02-12 9:13 $
 --
 -- Support: +31 53 4800700
 
@@ -1414,10 +1414,7 @@ AS
 
 /* Formatted on 2008/11/11 15:51 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE aonl_import_ruimtegeg (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_delim                     VARCHAR2 (1)    := ';';
@@ -1454,13 +1451,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    DELETE FROM aonl_imp_ruimtegeg;
 
    v_count_tot := 0;
@@ -1527,8 +1520,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_oms) > 30
             THEN
                v_alg_locatie_oms := SUBSTR (v_alg_locatie_oms, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatieomschrijving te lang',
                                     'Aanduiding wordt afgebroken tot <'
@@ -1543,8 +1535,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Aanduiding wordt afgebroken tot <'
@@ -1566,8 +1557,7 @@ BEGIN
 
                IF v_alg_verdieping_volgnr_n NOT BETWEEN -999 AND 999
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1586,8 +1576,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1600,8 +1589,7 @@ BEGIN
             IF LENGTH (v_alg_ruimte_nr) > 10
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Ruimtenummer te lang',
                                     'Aanduiding wordt afgebroken tot <'
@@ -1620,8 +1608,7 @@ BEGIN
 
                IF v_bezetting_n NOT BETWEEN 0 AND 100
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1640,8 +1627,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1667,8 +1653,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1689,8 +1674,7 @@ BEGIN
 
                IF v_aantalopenwp_n NOT BETWEEN 0 AND 100
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1709,8 +1693,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1727,8 +1710,7 @@ BEGIN
 
                IF v_m2open_n <> (v_aantalopenwp_n * 8)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1746,8 +1728,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1760,8 +1741,7 @@ BEGIN
             IF LENGTH (v_afdeling_naam) > 10
             THEN
                v_afdeling_naam := SUBSTR (v_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding,
                                     'Costcenternummer wordt afgebroken tot ['
@@ -1776,8 +1756,7 @@ BEGIN
             IF LENGTH (v_afdeling_oms) > 60
             THEN
                v_afdeling_naam := SUBSTR (v_afdeling_oms, 1, 60);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding,
                                     'Costcenternaam wordt afgebroken tot ['
@@ -1792,8 +1771,7 @@ BEGIN
             IF LENGTH (v_srtruimte_oms) > 30
             THEN
                v_srtruimte_oms := SUBSTR (v_srtruimte_oms, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding,
                                     'Soortruimte wordt afgebroken tot ['
@@ -1835,8 +1813,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                        (p_applname,
-                         p_applrun,
+                        (p_import_key,
                          'E',
                          v_aanduiding || v_errormsg,
                          'Ingelezen regel kan niet worden weggeschreven; fout bij toevoegen regel aan importtabel AONL_IMP_RUIMTEGEG.'
@@ -1849,23 +1826,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Ruimtegegevens: aantal ingelezen importregels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'S',
              'Ruimtegegevens: aantal ongeldige niet ingelezen importregels: '
           || TO_CHAR (v_count_tot - v_count_import),
@@ -1881,8 +1855,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Inleesproces ruimtegegevens afgebroken!'
@@ -1892,8 +1865,7 @@ END aonl_import_ruimtegeg;
 
 /* Formatted on 2008/11/11 15:52 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE aonl_update_ruimtegeg (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_errormsg       VARCHAR2 (1000);
@@ -1901,7 +1873,7 @@ AS
    oracle_err_mes   VARCHAR2 (200);
 
    -- SUBPROC
-   PROCEDURE insupd_afdelingen (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE insupd_afdelingen (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -1970,13 +1942,12 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                COMMIT;                                          -- tbv logging
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Afdelingen: aantal toegevoegd: '
                         || TO_CHAR (v_count_insert),
@@ -1987,8 +1958,7 @@ AS
 
    -- SUBPROC
    PROCEDURE insupd_ruimtesoorten (
-      p_applname   IN   VARCHAR2,
-      p_applrun    IN   VARCHAR2
+      p_import_key IN NUMBER
    )
    AS
       CURSOR c1
@@ -2037,13 +2007,12 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                COMMIT;                                          -- tbv logging
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Ruimtesoorten: aantal toegevoegd: '
                         || TO_CHAR (v_count_insert),
@@ -2053,7 +2022,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE insupd_ruimten1 (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE insupd_ruimten1 (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -2316,7 +2285,7 @@ AS
                   || '-'
                   || rec.rui_nr
                   || ']';
-               fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'I', v_errormsg, '');
             END IF;
 
             COMMIT;
@@ -2332,34 +2301,30 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                COMMIT;                                          -- tbv logging
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Locaties: aantal toegevoegd: '
                         || TO_CHAR (v_count_loc),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Gebouwen: aantal toegevoegd: '
                         || TO_CHAR (v_count_geb),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Verdiepingen: aantal toegevoegd: '
                         || TO_CHAR (v_count_ver),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                         'Ruimten: aantal toegevoegd: '
                         || TO_CHAR (v_count_rui),
@@ -2369,7 +2334,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE insupd_ruimten2 (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE insupd_ruimten2 (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -2585,13 +2550,12 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                COMMIT;                                          -- tbv logging
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                         'Ruimten: aantal bijgewerkt: '
                         || TO_CHAR (v_count_tot),
@@ -2601,7 +2565,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE insupd_ruimte_afd (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE insupd_ruimte_afd (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -2731,13 +2695,12 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+               fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                COMMIT;                                          -- tbv logging
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Ruimte-afdeling: aantal toegevoegd: '
                         || TO_CHAR (v_count_tot),
@@ -2747,11 +2710,11 @@ AS
    END;
 -- MAIN
 BEGIN
-   insupd_afdelingen (p_applname, p_applrun);
-   insupd_ruimtesoorten (p_applname, p_applrun);
-   insupd_ruimten1 (p_applname, p_applrun);
-   insupd_ruimten2 (p_applname, p_applrun);
-   insupd_ruimte_afd (p_applname, p_applrun);
+   insupd_afdelingen (p_import_key);
+   insupd_ruimtesoorten (p_import_key);
+   insupd_ruimten1 (p_import_key);
+   insupd_ruimten2 (p_import_key);
+   insupd_ruimte_afd (p_import_key);
 EXCEPTION
    WHEN OTHERS
    THEN
@@ -2764,8 +2727,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Importproces ruimtegegevens afgebroken!',
                         v_errormsg
@@ -2791,8 +2753,7 @@ CREATE OR REPLACE PROCEDURE aonl_select_hv_freeze (
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /
 
@@ -2843,13 +2804,12 @@ BEGIN
       v_count_tot := v_count_tot + 1;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                        'Aantal doorbelastingsregels bevroren: '
-                     || TO_CHAR (v_count_tot),
-                     ''
-                    );
+   fac.writelog (p_applname,
+                 'S',
+                    'Aantal doorbelastingsregels bevroren: '
+                 || TO_CHAR (v_count_tot),
+                 ''
+                );
    COMMIT;
 EXCEPTION
    WHEN OTHERS
@@ -2858,12 +2818,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
       v_errormsg :=
            'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        'Proces HV_FREEZE afgebroken!',
-                        v_errormsg
-                       );
+      fac.writelog (p_applname,
+                    'E',
+                    'Proces HV_FREEZE afgebroken!',
+                    v_errormsg
+                   );
 END;
 /
 
diff --git a/ARBO/arbo.sql b/ARBO/arbo.sql
index 923ccc420..5e3e24413 100644
--- a/ARBO/arbo.sql
+++ b/ARBO/arbo.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific db-configuration for ARBO.
 -- (c) 2011 SG|facilitor bv
--- $Revision: 8 $
--- $Modtime: 9-02-12 13:28 $
+-- $Revision: 9 $
+-- $Modtime: 21-02-12 9:15 $
 --
 -- Support: +31 53 4800700
 
@@ -17,14 +17,10 @@ AS
     WHERE imp_log_applicatie = 'PRS';
 
 /* Formatted on 30-3-2011 14:00:30 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE arbo_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE arbo_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij ARBO_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -63,32 +59,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen'
-      );
-      COMMIT;
-   ELSE
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-
-      COMMIT;
-   END IF;
-
    DELETE FROM   arbo_imp_prs;
 
    COMMIT;
@@ -208,8 +181,7 @@ BEGIN
             THEN
                v_ongeldig := 1;
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'E',
                   v_aanduiding || 'Personeelsnummer (= login) onbekend',
                   'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -226,8 +198,7 @@ BEGIN
                   THEN
                      v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'W',
                         v_aanduiding || 'Personeelsnummer te lang',
                            'Personeelsnummer wordt afgebroken tot ['
@@ -247,8 +218,7 @@ BEGIN
             THEN
                v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Titel te lang',
                      'Titel wordt afgebroken tot ['
@@ -266,8 +236,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Naam te lang',
                   'Naam wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -278,8 +247,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Naam onbekend',
                      'Naam is verplicht; regel wordt overgeslagen!'
@@ -297,8 +265,7 @@ BEGIN
                v_prs_perslid_tussenvoegsel :=
                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Tussenvoegsel te lang',
                      'Tussenvoegsel wordt afgebroken tot ['
@@ -317,8 +284,7 @@ BEGIN
                v_prs_perslid_voorletters :=
                   SUBSTR (v_prs_perslid_voorletters, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voorletters te lang',
                      'Voorletters worden afgebroken tot ['
@@ -337,8 +303,7 @@ BEGIN
                v_prs_perslid_voornaam :=
                   SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam is te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -350,8 +315,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]');
@@ -367,8 +331,7 @@ BEGIN
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingscode te lang',
                      'Afdelingscode wordt afgebroken tot ['
@@ -381,8 +344,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Afdelingscode onbekend',
                      'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -400,8 +362,7 @@ BEGIN
                v_prs_afdeling_omschrijving :=
                   SUBSTR (v_prs_afdeling_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingsomschrijving te lang',
                      'Afdelingsomschrijving wordt afgebroken tot ['
@@ -421,8 +382,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -435,8 +395,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Functie onbekend',
                      'Functie is verplicht; regel wordt overgeslagen!'
@@ -453,8 +412,7 @@ BEGIN
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Locatiecode te lang',
                      'Locatiecode wordt afgebroken tot ['
@@ -472,8 +430,7 @@ BEGIN
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Gebouwcode te lang',
                      'Gebouwcode wordt afgebroken tot ['
@@ -491,8 +448,7 @@ BEGIN
             THEN
                v_alg_verdieping_code := SUBSTR (v_alg_verdieping_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Verdiepingcode te lang',
                      'Verdiepingcode wordt afgebroken tot ['
@@ -510,8 +466,7 @@ BEGIN
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Ruimtenummer te lang',
                      'Ruimtenummer wordt afgebroken tot ['
@@ -530,8 +485,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Telefoonnummer te lang',
                      'Telefoonnummer wordt afgebroken tot ['
@@ -549,8 +503,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'E-mailadres te lang',
                      'E-mailadres wordt afgebroken tot ['
@@ -568,8 +521,7 @@ BEGIN
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Loginnaam te lang',
                      'Loginnaam wordt afgebroken tot ['
@@ -601,8 +553,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -634,8 +585,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -704,8 +654,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!'
@@ -719,22 +668,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ongeldige importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -750,8 +696,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -760,11 +705,9 @@ END arbo_import_prs;
 /
 
 /* Formatted on 30-3-2011 14:00:30 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE arbo_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE arbo_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij ARBO_IMPORT_PRS
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -776,7 +719,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -878,12 +820,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    -- Bepaal nummer-match tussen Facilitor en RECENT importbestand ofwel het aantal
    -- actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -902,8 +838,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_nr IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
       -- Geldig importbestand wat betreft aantal personen
@@ -918,8 +853,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -957,8 +891,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met nummer ['
                   || recdelprs.prs_perslid_nr
@@ -994,8 +927,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -1016,8 +948,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -1043,8 +974,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1097,8 +1027,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1107,16 +1036,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1209,8 +1136,7 @@ BEGIN
                COMMIT;
             ELSE
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                   v_aanduiding || v_errorhint,
                   'Kostenplaats volgens afdeling bestaat niet!'
@@ -1228,8 +1154,7 @@ BEGIN
 
             IF v_count > 1
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errorhint,
                                  'Kan persoon niet 1-duidig bepalen!');
@@ -1320,8 +1245,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1330,16 +1254,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1561,8 +1483,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1571,16 +1492,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1592,8 +1511,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met nummer ['
                || recnowp.prs_perslid_nr
@@ -1616,8 +1534,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1662,8 +1579,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1683,16 +1599,14 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             ''
          );
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
@@ -1721,8 +1635,7 @@ CREATE OR REPLACE PROCEDURE arbo_select_autoclose (
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /
 
diff --git a/BAMG/bamg.sql b/BAMG/bamg.sql
index 26e8d26b0..eb3e7956f 100644
--- a/BAMG/bamg.sql
+++ b/BAMG/bamg.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for BAMG: BAM Groep
 -- (c) 2005-2007 Dijkoraad IT bv
--- $Revision: 21 $
--- $Modtime: 7-06-11 10:24 $
+-- $Revision: 22 $
+-- $Modtime: 21-02-12 9:16 $
 --
 -- Support: +31 53 4800700
 
@@ -1149,7 +1149,7 @@ CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_mod AS
 
 CREATE OR REPLACE PACKAGE BAMG_import_export AS
     -- Hulpfuncties en procedures:
-    PROCEDURE   to_log (p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2);
+    PROCEDURE   to_log (p_do_log BOOLEAN, p_message VARCHAR2);
     /* Voorbeeld
     DECLARE v_key NUMBER(10);
     BEGIN
@@ -1210,16 +1210,15 @@ END BAMG_import_export;
 CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
     --
     -- to_log
-    PROCEDURE to_log (p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2) IS
+    PROCEDURE to_log (p_do_log BOOLEAN, p_message VARCHAR2) IS
         v_dummy VARCHAR2(16);
     BEGIN
         IF p_do_log THEN
-            fac.imp_writelog ('BAMG_import_export',
-                                    p_proces,
-                                    'I',
-                                    p_message,
-                                    'Dit is een algemeen informatieve melding'
-                                   );
+            fac.writelog ('BAMG_import_export',
+                                'I',
+                                p_message,
+                                'Dit is een algemeen informatieve melding'
+                               );
             commit; -- to commit logging
         END IF;
     EXCEPTION
@@ -1621,7 +1620,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
 
         v_debug := false; -- false bij oplevering!
 
-        BAMG_import_export.to_log(v_debug,'Heeft de persoon een werkplek in een bepaalde ruimte?','debug set_wrk_key');
+        BAMG_import_export.to_log(v_debug,'Heeft de persoon een werkplek in een bepaalde ruimte?');
         select  max(w.prs_werkplek_key), count(*)
         into    v_werkplek_key, v_count
         from    prs_perslidwerkplek pw, prs_werkplek w
@@ -1633,13 +1632,13 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
 
         IF (v_count = 0) THEN
 
-            BAMG_import_export.to_log(v_debug,'Verwijder koppeling persoon/werkplek indien deze aanwezig is.','debug set_wrk_key');
+            BAMG_import_export.to_log(v_debug,'Verwijder koppeling persoon/werkplek indien deze aanwezig is.');
             -- Bij verhuizen van werkplek naar een andere ruimte.
             DELETE
             FROM    prs_perslidwerkplek
             WHERE   prs_perslid_key = p_perslid_key;
 
-            BAMG_import_export.to_log(v_debug,'Bepalen of er een bestaande lege werkplek 100% beschikbaar is','debug set_wrk_key');
+            BAMG_import_export.to_log(v_debug,'Bepalen of er een bestaande lege werkplek 100% beschikbaar is');
             SELECT prs_werkplek_key
             INTO v_werkplek_key
             FROM (
@@ -1660,7 +1659,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
 
             IF (v_werkplek_key = -1) THEN
 
-                BAMG_import_export.to_log(v_debug,'Bepalen volgnummer','debug set_wrk_key');
+                BAMG_import_export.to_log(v_debug,'Bepalen volgnummer');
                 SELECT  max(prs_werkplek_volgnr)+1
                 INTO    v_werkplek_volgnr
                 FROM
@@ -1675,7 +1674,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
                     FROM    dual
                     );
 
-                BAMG_import_export.to_log(v_debug,'Bepalen werkplekomschrijving','debug set_wrk_key');
+                BAMG_import_export.to_log(v_debug,'Bepalen werkplekomschrijving');
                 SELECT  TO_CHAR(v.alg_verdieping_volgnr) || '.' || r.alg_ruimte_nr || '/' || to_char(v_werkplek_volgnr)
                 INTO    v_werkplek_omschrijving
                 FROM    ALG_RUIMTE r, ALG_VERDIEPING v
@@ -1686,7 +1685,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
                 INTO    v_werkplek_key
                 FROM    DUAL;
 
-                BAMG_import_export.to_log(v_debug,'INSERT INTO prs_werkplek','debug set_wrk_key');
+                BAMG_import_export.to_log(v_debug,'INSERT INTO prs_werkplek');
                 INSERT INTO prs_werkplek
                 (prs_werkplek_key
                 ,prs_werkplek_volgnr
@@ -1701,7 +1700,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS
 
             END IF;
 
-            BAMG_import_export.to_log(v_debug,'INSERT INTO PRS_PERSLIDWERKPLEK','debug set_wrk_key');
+            BAMG_import_export.to_log(v_debug,'INSERT INTO PRS_PERSLIDWERKPLEK');
             INSERT INTO PRS_PERSLIDWERKPLEK
             (PRS_PERSLID_KEY
             ,PRS_WERKPLEK_KEY
@@ -1728,10 +1727,7 @@ END BAMG_import_export;
 
 
 CREATE OR REPLACE PROCEDURE BAMG_import_telefoon (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
     -- constanten
@@ -1749,7 +1745,7 @@ AS
     v_errorhint                     VARCHAR (200);
     oracle_err_num                  NUMBER;
     oracle_err_mes                  VARCHAR2 (200);
-    v_errmes                    VARCHAR(1024);
+    v_errmes                        VARCHAR(1024);
     -- De importvelden
     v_perslid_naam                  VARCHAR2(64);
     v_perslid_telefoon              VARCHAR2(64);
@@ -1757,12 +1753,12 @@ AS
     v_ruimte                        VARCHAR2(64);
     v_afdeling_naam                 VARCHAR2(64);
     v_fax                           VARCHAR2(64);
-	v_teller                        NUMBER;
+	v_teller                          NUMBER;
 
     CURSOR c1 IS
       SELECT *
         FROM fac_imp_file
-       WHERE fac_imp_file_applicatie = p_applname;
+       WHERE fac_import_key = p_import_key;
     rec1 c1%ROWTYPE;
 
 BEGIN
@@ -1773,10 +1769,6 @@ BEGIN
    -- Clear my previous imported rows
    DELETE FROM BAMG_imp_telefoon;
 
-       -- Clear my old logs
-   DELETE FROM IMP_LOG
-   WHERE imp_log_applicatie = p_applname;
-
     BEGIN
       v_teller := 0;
       OPEN c1;
@@ -1829,8 +1821,7 @@ BEGIN
 
             IF (NOT header_is_valid)
             THEN
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 'Invalid import file',
                                 'Er is geen geldige header aangetroffen in het importbestand'
@@ -1846,21 +1837,21 @@ BEGIN
         INTO v_aantal
         FROM bamg_imp_telefoon t, prs_v_aanwezigperslid p
        WHERE p.prs_perslid_upper = UPPER (t.perslid_naam);
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Personen import: aantal medewerkers in beide bestanden: '|| v_aantal,'');
+      fac.imp_writelog (p_import_key, 'S', 'Personen import: aantal medewerkers in beide bestanden: '|| v_aantal,'');
 
       SELECT COUNT (*)
         INTO v_aantal
         FROM prs_v_aanwezigperslid
        WHERE prs_perslid_upper NOT IN (SELECT UPPER (perslid_naam)
                                          FROM bamg_imp_telefoon);
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Personen import: aantal Facilitor medewerkers niet in import: '|| v_aantal,'');
+      fac.imp_writelog (p_import_key, 'S', 'Personen import: aantal Facilitor medewerkers niet in import: '|| v_aantal,'');
 
       SELECT COUNT (*)
         INTO v_aantal
         FROM bamg_imp_telefoon
        WHERE UPPER (perslid_naam) NOT IN (SELECT prs_perslid_upper
                                             FROM prs_v_aanwezigperslid);
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Personen import: aantal nieuw op te voeren medewerkers: '|| v_aantal,'');
+      fac.imp_writelog (p_import_key, 'S', 'Personen import: aantal nieuw op te voeren medewerkers: '|| v_aantal,'');
 
       SELECT COUNT (*)
         INTO v_aantal
@@ -1870,18 +1861,16 @@ BEGIN
                                          SELECT prs_afdeling_omschrijving
                                            FROM prs_v_aanwezigafdeling
                                           WHERE prs_afdeling_omschrijving IS NOT NULL));
-      fac.imp_writelog (p_applname, p_applrun, 'S', 'Personen import: aantal onbekende werkmaatschappijen: '|| v_aantal,'Zie errors voor details');
+      fac.imp_writelog (p_import_key, 'S', 'Personen import: aantal onbekende werkmaatschappijen: '|| v_aantal,'Zie errors voor details');
 
       INSERT INTO IMP_LOG
-      ( IMP_LOG_APPLICATIE
-      , IMP_LOG_RUN
+      ( fac_import_key
       , IMP_LOG_DATUM
       , IMP_LOG_STATUS
       , IMP_LOG_OMSCHRIJVING
       , IMP_LOG_HINT )
       (
-        SELECT  p_applname
-               ,p_applrun
+        SELECT  p_import_key
                ,sysdate
                ,'E'
                ,   'Personen import: Werkmaatschappij: '
@@ -1902,8 +1891,7 @@ BEGIN
       ROLLBACK;
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Personen import: '|| v_errmes,
                         'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1914,7 +1902,7 @@ END;
 
 
 /* Formatted on 2005/10/11 14:25 (Formatter Plus v4.8.5) */
-CREATE OR REPLACE PROCEDURE BAMG_update_telefoon (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE BAMG_update_telefoon (p_import_key IN NUMBER)
 AS
 
    -- Constanten
@@ -1982,10 +1970,6 @@ BEGIN
    into     v_perslid_count_imp
    from     BAMG_v_imp_telefoon;
 
-   DELETE FROM IMP_LOG
-   WHERE imp_log_applicatie = p_applname
-     AND imp_log_run <> p_applrun;
-
    IF (v_perslid_count_imp < c_minimum_import_rows) THEN
      -- Er is kennelijk wel geen (geldig) importbestand (waarschijnlijk leeg)
      v_continue := false;
@@ -1995,10 +1979,6 @@ BEGIN
    END IF;
 
    IF v_continue THEN
-
-       DELETE FROM imp_log
-             WHERE imp_log_applicatie = p_applname;
-
        v_errorhint := 'Onbekende fout';
        v_errmes := 'Onbekende fout';
 
@@ -2007,8 +1987,7 @@ BEGIN
        from     BAMG_v_imp_telefoon_del;
 
        -- Informatieve logging, zien we gelijk hoe laat het was
-       fac.imp_writelog (p_applname,
-                         p_applrun,
+       fac.imp_writelog (p_import_key,
                          'I',
                          'Aantal te verwerken records: ' || TO_CHAR (v_perslid_count_imp),
                          'Dit is een algemeen informatieve melding'
@@ -2019,16 +1998,15 @@ BEGIN
           v_perslid_del_percentage := (v_perslid_count_del/v_perslid_count_imp) * 100;
           IF ((v_perslid_count_del/v_perslid_count_imp * 100) > c_max_percentage_delete) THEN
 
-            fac.imp_writelog (p_applname,
-                         p_applrun,
-                         'E',
-                         'Import afgebroken: er moeten ' ||
-                          TO_CHAR (v_perslid_del_percentage) ||
-                          '% van de personen in Facilitor verwijderd worden terwijl een maximum van '||
-                          TO_CHAR (v_perslid_del_percentage) ||
-                          '% is toegestaan. Neem eventueel contact op met applicatiebeheer.',
-                         ''
-                        );
+            fac.imp_writelog (p_import_key,
+                              'E',
+                              'Import afgebroken: er moeten ' ||
+                               TO_CHAR (v_perslid_del_percentage) ||
+                               '% van de personen in Facilitor verwijderd worden terwijl een maximum van '||
+                               TO_CHAR (v_perslid_del_percentage) ||
+                               '% is toegestaan. Neem eventueel contact op met applicatiebeheer.',
+                              ''
+                             );
             v_continue := false;
 
 
@@ -2218,7 +2196,7 @@ BEGIN
                 END IF;
 
                 -- WERKPLEK aanmaken en koppelen indien noodzakelijk
-                --fac.imp_writelog (p_applname, p_applrun, 'I', 'WERKPLEK aanmaken en koppelen indien noodzakelijk', to_char(v_perslid_key)||','||to_char(v_ruimte_key));
+                --fac.imp_writelog (p_import_key, 'I', 'WERKPLEK aanmaken en koppelen indien noodzakelijk', to_char(v_perslid_key)||','||to_char(v_ruimte_key));
            	    BAMG_import_export.set_wrk_key(v_ruimte_key,v_perslid_key);
 
                 v_buffercount := v_buffercount + 1;
@@ -2235,7 +2213,7 @@ BEGIN
                 IF (rec_prs_upd.afdeling_naam IS NOT NULL) THEN
 
                     v_errormsg := 'Kan geen afdeling vinden voor afdeling met naam <'||rec_prs_upd.afdeling_naam||'> bij persoon <'||rec_prs_upd.perslid_naam||'>';
-                    fac.imp_writelog (p_applname, p_applrun, 'E', '', v_errormsg);
+                    fac.imp_writelog (p_import_key, 'E', '', v_errormsg);
 
                 END IF;
 
@@ -2249,7 +2227,7 @@ BEGIN
                 oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                 v_errorhint := v_errormsg;
                 v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+                fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
                 commit; -- tbv logging
           END;
        END LOOP;
@@ -2263,7 +2241,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errorhint := v_errmes;
       v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       commit;
 
 END;
@@ -2281,8 +2259,7 @@ CREATE OR REPLACE PROCEDURE bamg_select_afmelden (
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /
 
@@ -2342,7 +2319,7 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Aantal afgemelde ruimtes: ' || v_count, '');
+   fac.writelog (p_applname, 'I', 'Aantal afgemelde ruimtes: ' || v_count, '');
 
    v_count:=0;
    FOR rec_artikel IN c_artikel
@@ -2360,7 +2337,7 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Aantal afgemelde artikelen: ' || v_count, '');
+   fac.writelog (p_applname, 'I', 'Aantal afgemelde artikelen: ' || v_count, '');
 
    v_count := 0;
    FOR rec_deel IN c_deel
@@ -2379,12 +2356,12 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Aantal afgemelde delen: ' || v_count, '');
+   fac.writelog (p_applname, 'I', 'Aantal afgemelde delen: ' || v_count, '');
 
 EXCEPTION
    WHEN OTHERS
    THEN
-      fac.imp_writelog (p_applname, p_applrun, 'E', '(ORACLE error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')','');
+      fac.writelog (p_applname, 'E', '(ORACLE error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')','');
       commit;
 END;
 /
diff --git a/CONN/conn.sql b/CONN/conn.sql
index 8d3875f6d..af4c12606 100644
--- a/CONN/conn.sql
+++ b/CONN/conn.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for CONN: Connexxion
 -- (c) 2005-2010 SG|facilitor bv
--- $Revision: 180 $
--- $Modtime: 3-02-12 11:20 $
+-- $Revision: 181 $
+-- $Modtime: 21-02-12 9:56 $
 --
 -- Support: +31 53 4800710
 
@@ -2178,10 +2178,7 @@ END;
 
 
 CREATE OR REPLACE PROCEDURE CONN_IMPORT_CONTRACTMUTATIE (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_newline            FAC_IMP_FILE.fac_imp_file_line%TYPE;                        -- Input line
@@ -2215,7 +2212,7 @@ AS
    IS
    SELECT *
         FROM    FAC_IMP_FILE
-       WHERE    fac_imp_file_applicatie = p_applname
+       WHERE    fac_import_key = p_import_key
        ORDER BY FAC_IMP_FILE_INDEX;
 
    v_rec c_cm%ROWTYPE;
@@ -2226,10 +2223,6 @@ BEGIN
 
    DELETE CONN_IMP_CONTRACTMUTATIE;
 
-   DELETE IMP_LOG
-    WHERE imp_log_applicatie = p_applname
-      AND imp_log_datum < sysdate -7;
-
    OPEN c_cm;
    IF c_cm%ISOPEN THEN
      LOOP
@@ -2305,7 +2298,7 @@ BEGIN
                 oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                 v_errormsg :=
                      'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                Fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_hint);
+                Fac.imp_writelog (p_import_key, 'E', v_errormsg, v_hint);
          END;
      END LOOP;
    END IF;
@@ -2317,13 +2310,13 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      Fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_hint);
+      Fac.imp_writelog (p_import_key, 'E', v_errormsg, v_hint);
 END;
 /
 
 
 /* Formatted on 11-6-2010 17:03:10 (QP5 v5.136.908.31019) */
-CREATE OR REPLACE PROCEDURE conn_update_contractmutatie (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE conn_update_contractmutatie (p_import_key IN NUMBER)
 AS
    v_newline fac_imp_file.fac_imp_file_line%TYPE;                                                          -- Input line
    v_field VARCHAR2 (100);
@@ -2414,7 +2407,7 @@ BEGIN
                      || v_rec_index.tarief
                      || ' Oude prijs:'
                      || v_alg_srtonrgoed_prijs;
-                  fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, '');
+                  fac.imp_writelog (p_import_key, 'I', v_errormsg, '');
                END IF;
             EXCEPTION
                WHEN NO_DATA_FOUND
@@ -2424,13 +2417,13 @@ BEGIN
                      || v_rec_index.complexnummer
                      || '-'
                      || UPPER (v_rec_index.tarieftype);
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                WHEN OTHERS
                THEN
                   oracle_err_num := SQLCODE;
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                   v_errormsg := 'Ind: OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_hintmsg);
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, v_hintmsg);
             END;
          END;
       END LOOP;
@@ -2465,9 +2458,9 @@ BEGIN
                      || v_rec_mutatie.mutatienummer
                      || ' Huur:'
                      || v_rec_mutatie.brutohuur;
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                ELSE
-                  --Fac.imp_writelog (p_applname, p_applrun, 'E', 'Else v_exp_totaal: ' || v_exp_totaal, '');
+                  --Fac.imp_writelog (p_import_key, 'E', 'Else v_exp_totaal: ' || v_exp_totaal, '');
                   IF v_exp_totaal = 0
                   THEN
                      v_afwijking := 0;
@@ -2518,7 +2511,7 @@ BEGIN
                                  || v_rec_mut_index.tarief
                                  || ' Oude prijs:'
                                  || v_alg_srtonrgoed_prijs;
-                              fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, '');
+                              fac.imp_writelog (p_import_key, 'I', v_errormsg, '');
                            ELSE
                               v_errormsg :=
                                     'Mut: Tarief NIET aangepast. Tarief:'
@@ -2529,7 +2522,7 @@ BEGIN
                                  || v_rec_mut_index.tarief
                                  || ' Oude prijs:'
                                  || v_alg_srtonrgoed_prijs;
-                              fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, '');
+                              fac.imp_writelog (p_import_key, 'I', v_errormsg, '');
                            END IF;
                         EXCEPTION
                            WHEN NO_DATA_FOUND
@@ -2539,13 +2532,13 @@ BEGIN
                                  || v_rec_mut_index.complexnummer
                                  || '-'
                                  || UPPER (v_rec_mut_index.tarieftype);
-                              fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+                              fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
                            WHEN OTHERS
                            THEN
                               oracle_err_num := SQLCODE;
                               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                               v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                              fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_hintmsg);
+                              fac.imp_writelog (p_import_key, 'E', v_errormsg, v_hintmsg);
                         END;
                      END LOOP;
 
@@ -2555,8 +2548,7 @@ BEGIN
 
                      -- voor mutatie uit
                      conn_verwerk_huurmutatie (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         SUBSTR (v_rec_mutatie.mutatienummer, 0, INSTR (v_rec_mutatie.mutatienummer, '/') - 1)
                      );
 
@@ -2583,7 +2575,7 @@ BEGIN
                         || v_exp_totaal
                         || ' Ontvangen bedrag:'
                         || v_rec_mutatie.brutohuur;
-                     fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, '');
+                     fac.imp_writelog (p_import_key, 'I', v_errormsg, '');
                      COMMIT;
                   ELSE
                      -- afwijking is te groot
@@ -2596,7 +2588,7 @@ BEGIN
                         || v_exp_totaal
                         || ' Ontvangen bedrag:'
                         || v_rec_mutatie.brutohuur;
-                     fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+                     fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 
                      UPDATE   mld_melding
                         SET   mld_melding_opmerking = SUBSTR (mld_melding_opmerking || ' ' || v_errormsg, 0, 3000)
@@ -2620,14 +2612,13 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_hintmsg);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_hintmsg);
 END;
 /
 
 -- Procedure CONN_VERWERK_HUURMUTATIE wordt gebruikt door de procedure CONN_UPDATE_CONTRACTMUTATIE
 CREATE OR REPLACE procedure CONN_VERWERK_HUURMUTATIE (
-p_ApplName in VARCHAR2,
-p_ApplRun in VARCHAR2,
+p_import_key IN NUMBER,
 p_mut_key in NUMBER) AS
 ORACLE_err_mes VARCHAR2(300);
 v_ErrorMsg VARCHAR2(300);
@@ -2753,9 +2744,9 @@ BEGIN
       ORACLE_err_num := SQLCODE;
       ORACLE_err_mes := SUBSTR(SQLERRM, 1, 100);
 	  v_ErrorMsg := 'Fout tijdens doorvoeren van de mutatie (mutatienr:'||p_mut_key||') (ORACLE error number = <' || ORACLE_err_num || '> ORACLE error message = <' || ORACLE_err_mes || '>)';
-    INSERT INTO IMP_LOG (IMP_LOG_APPLICATIE,IMP_LOG_RUN, IMP_LOG_DATUM, IMP_LOG_STATUS, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
+    INSERT INTO IMP_LOG (fac_import_key, IMP_LOG_DATUM, IMP_LOG_STATUS, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
 	VALUES
-    (p_ApplName, p_ApplRun, sysdate, 'E', v_ErrorMsg,'Onbekend');
+    (p_import_key, sysdate, 'E', v_ErrorMsg,'Onbekend');
 	COMMIT;
   END;
 END;
@@ -3802,21 +3793,15 @@ CREATE OR REPLACE PACKAGE BODY CONN_HALTES AS
 
     END IF;
 
-	v_errormsg := 'Verwijderen rapportage meldingen ouder dan 30 dagen';
-	DELETE FROM imp_log WHERE imp_log_applicatie = 'VERWERK_HALTE' AND imp_log_datum + 30 < SYSDATE;
-
 	RETURN v_result;
 
     EXCEPTION WHEN OTHERS THEN
-
-
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := v_errormsg || '   ' ||
          '(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes
          || ')';
       fac.imp_writelog ('VERWERK_HALTE',
-                        'PACKAGE CONN_HALTES',
                         'E',
                         v_errormsg,
                         v_import_row
@@ -4216,9 +4201,6 @@ AS
 BEGIN
    v_errormsg := 'Update fin_factuur';
 
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    -- Moet ooit nog eens efficienter in een fin.setfactuurstatus()
    UPDATE   fin_factuur
       SET   fin_factuur_statuses_key = 7
@@ -4234,7 +4216,7 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 
@@ -4293,9 +4275,6 @@ AS
 BEGIN
    v_errormsg := 'Update fin_factuur';
 
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    -- Moet ooit nog eens efficienter in een fin.setfactuurstatus()
    UPDATE   fin_factuur
       SET   fin_factuur_statuses_key = 7
@@ -4311,7 +4290,7 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 
@@ -4370,9 +4349,6 @@ AS
 BEGIN
    v_errormsg := 'Update fin_factuur';
 
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    -- Moet ooit nog eens efficienter in een fin.setfactuurstatus()
    UPDATE   fin_factuur
       SET   fin_factuur_statuses_key = 7
@@ -4388,16 +4364,13 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 
 -- Procedure voor de import van facturen (van leverancier of basware)
 CREATE OR REPLACE PROCEDURE conn_import_factuur (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_newline          fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
@@ -4431,7 +4404,7 @@ AS
    IS
    SELECT *
         FROM    fac_imp_file
-       WHERE    fac_imp_file_applicatie = p_applname
+       WHERE    fac_import_key = p_import_key
        ORDER BY FAC_IMP_FILE_INDEX;
 
    v_rec cfactuur%rowtype;
@@ -4443,17 +4416,14 @@ BEGIN
 
    DELETE FROM conn_imp_factuur;
 
-   DELETE      imp_log
-   WHERE imp_log_applicatie = 'FACTUUR';
-
    -- check the client decimal settings
    -- we do not convert the , to a . if the client decimal separator is a ,
    SELECT FAC.SAFE_TO_NUMBER('2,5')
      INTO v_check_dec_sign
      FROM DUAL;
 
-	fac.imp_writelog (p_applname, p_applrun, 'S',
-	                  'Cxx factuurimport $Revision: 180 $', '');
+	fac.imp_writelog (p_import_key, 'S',
+	                  'Cxx factuurimport $Revision: 181 $', '');
 
    OPEN cfactuur;
    IF cfactuur%ISOPEN THEN
@@ -4493,7 +4463,7 @@ BEGIN
          IF ( TRIM(v_btw_bedrag) = '-' )
          THEN
             v_btw_bedrag := '0';
-         	fac.imp_writelog (p_applname, p_applrun, 'I',
+         	fac.imp_writelog (p_import_key, 'I',
          	                  'BTW-bedrag ''-'' vervangen door ''0''',
          	                  SUBSTR (v_ordernr, 1, 13)||' / '||SUBSTR (v_factuurnr, 1, 10) );
          END IF;
@@ -4540,11 +4510,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 END;
 /
 
-CREATE OR REPLACE PROCEDURE conn_update_factuur (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE conn_update_factuur (p_import_key IN NUMBER)
 AS
    CURSOR congeldig
    IS
@@ -4620,10 +4590,6 @@ AS
    dummy VARCHAR2 (1);
    v_count NUMBER;
 BEGIN
-   -- Maak de log tabel leeg
-   DELETE   imp_log
-    WHERE   imp_log_run <> p_applrun AND imp_log_applicatie = 'FACTUUR';
-
    c_old_ordernr := '';
    c_teller := 0;
 
@@ -4641,7 +4607,7 @@ BEGIN
    -- 2a) Rapporteer 'invalid numbers' en beëindig import
    IF (v_count > 0)
    THEN
-      fac.imp_writelog (p_applname, p_applrun, 'E',
+      fac.imp_writelog (p_import_key, 'E',
                         'Ongeldig importbestand; import wordt afgebroken.', 'Corrigeer de genoemde fouten.');
 
       FOR rco IN congeldig
@@ -4649,19 +4615,19 @@ BEGIN
          v_desc := rco.ordernr||' / '||rco.factuurnr;
          IF ( COALESCE(fac.safe_to_number(rco.kostprijs),  -1) = -1 )
          THEN
-            fac.imp_writelog (p_applname, p_applrun, 'E', 'Ongeldige kostprijs ['||rco.kostprijs||']', v_desc);
+            fac.imp_writelog (p_import_key, 'E', 'Ongeldige kostprijs ['||rco.kostprijs||']', v_desc);
          END IF;
          IF ( COALESCE(fac.safe_to_number(rco.btw_bedrag), -1) = -1 )
          THEN
-            fac.imp_writelog (p_applname, p_applrun, 'E', 'Ongeldig BTW-bedrag ['||rco.btw_bedrag||']', v_desc);
+            fac.imp_writelog (p_import_key, 'E', 'Ongeldig BTW-bedrag ['||rco.btw_bedrag||']', v_desc);
          END IF;
          IF ( COALESCE(fac.safe_to_number(rco.aantal),     -1) = -1 )
          THEN
-            fac.imp_writelog (p_applname, p_applrun, 'E', 'Ongeldig aantal artikelen ['||rco.aantal||']', v_desc);
+            fac.imp_writelog (p_import_key, 'E', 'Ongeldig aantal artikelen ['||rco.aantal||']', v_desc);
          END IF;
          IF ( COALESCE(fac.safe_to_number(rco.btw),        -1) = -1 )
          THEN
-            fac.imp_writelog (p_applname, p_applrun, 'E', 'Ongeldig BTW-percentage ['||rco.btw||']', v_desc);
+            fac.imp_writelog (p_import_key, 'E', 'Ongeldig BTW-percentage ['||rco.btw||']', v_desc);
          END IF;
       END LOOP;
 
@@ -4689,8 +4655,7 @@ BEGIN
                           );
 
                COMMIT;
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  'Factuurregel ' || c_factuurregel || ' toegevoegd aan factuur ' || c_index,
                                  rc.ordernr || ' / ' || rc.factuurnr
@@ -4700,8 +4665,7 @@ BEGIN
                THEN
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
                   v_errormsg := '(ORACLE error ' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     'Factuur(regel) kan niet toegevoegd worden ' || v_errormsg,
                                     rc.ordernr || '/' || rc.factuurnr
@@ -4749,8 +4713,7 @@ BEGIN
                THEN
                   c_fac_type := 'C';                                                                            -- Contract
                ELSE
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Kan type van factuur niet bepalen ',
                                     rc.ordernr || ' / ' || rc.factuurnr
@@ -4790,8 +4753,7 @@ BEGIN
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
                      v_errormsg := '(ORACLE error ' || oracle_err_mes || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'I',
                         'Kan het bestelopdrachtnummer (OrderNr) niet vinden ' || v_errormsg,
                            '?/'
@@ -4858,8 +4820,7 @@ BEGIN
                   THEN
                      c_ordernr_s1 := SUBSTR (c_ordernr_s1, c_i);
                   ELSE
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'I',
                                        'Kan OrderNr niet bepalen ',
                                        rc.ordernr || ' / ' || rc.factuurnr
@@ -4897,8 +4858,7 @@ BEGIN
                   THEN
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
                      v_errormsg := '(ORACLE error ' || oracle_err_mes || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'I',
                                        'Kan de melding referentie niet vinden ' || v_errormsg,
                                        rc.ordernr || '/' || rc.factuurnr
@@ -5037,8 +4997,7 @@ BEGIN
                   c_write_ordernr := rc.ordernr;
                END IF;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  'Factuur ' || c_index || ' toegevoegd met factuurregel ' || c_factuurregel,
                                  c_write_ordernr || ' / ' || rc.factuurnr
@@ -5048,8 +5007,7 @@ BEGIN
                THEN
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
                   v_errormsg := '(ORACLE error ' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     'Factuur(regel) kan niet toegevoegd worden ' || v_errormsg,
                                     rc.ordernr || '/' || rc.factuurnr
@@ -5088,8 +5046,7 @@ BEGIN
             THEN
                c_fac_type := 'C';                                                                               -- Contract
             ELSE
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  'Kan type van factuur niet bepalen ',
                                  rc.ordernr || ' / ' || rc.factuurnr
@@ -5127,8 +5084,7 @@ BEGIN
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
                   v_errormsg := '(ORACLE error ' || oracle_err_mes || ')';
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      'Kan het bestelopdrachtnummer (OrderNr) niet vinden ' || v_errormsg,
                         '?/'
@@ -5189,8 +5145,7 @@ BEGIN
 
                   fac.trackaction ('FINFOK', c_index, NULL, NULL, NULL);
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Factuur ' || c_index || ' status op afgemeld gezet ',
                                     c_bestelopdr_id || ' / ' || rc.factuurnr
@@ -6034,7 +5989,7 @@ BEGIN
                   oracle_err_num   := SQLCODE;
                   oracle_err_mes   := SUBSTR (SQLERRM, 1, 100);
                   v_errormsg       := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Bestelopdracht:'|| rec2.bes_bestelopdr_id);
+                  fac.writelog (p_applname, 'E', v_errormsg, 'Bestelopdracht:'|| rec2.bes_bestelopdr_id);
             END;
          END LOOP;
 
@@ -6059,7 +6014,7 @@ BEGIN
             oracle_err_num   := SQLCODE;
             oracle_err_mes   := SUBSTR (SQLERRM, 1, 100);
             v_errormsg       := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Bestelling:'|| rec1.bes_bestelling_key);
+            fac.writelog (p_applname, 'E', v_errormsg, 'Bestelling:'|| rec1.bes_bestelling_key);
       END;
    END LOOP;
 
@@ -6115,7 +6070,7 @@ BEGIN
                   oracle_err_num   := SQLCODE;
                   oracle_err_mes   := SUBSTR (SQLERRM, 1, 100);
                   v_errormsg       := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Opdracht:'|| rec1.mld_melding_key || '/' || rec1.mld_opdr_bedrijfopdr_volgnr);
+                  fac.writelog (p_applname, 'E', v_errormsg, 'Opdracht:'|| rec1.mld_melding_key || '/' || rec1.mld_opdr_bedrijfopdr_volgnr);
             END;
          END LOOP;
 
@@ -6130,7 +6085,7 @@ BEGIN
                   oracle_err_num   := SQLCODE;
                   oracle_err_mes   := SUBSTR (SQLERRM, 1, 100);
                   v_errormsg       := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Melding:'|| rec2.mld_melding_key);
+                  fac.writelog (p_applname, 'E', v_errormsg, 'Melding:'|| rec2.mld_melding_key);
             END;
          END LOOP;
 
@@ -6224,19 +6179,18 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 
 CREATE OR REPLACE VIEW conn_v_imp_log (fclt_f_applicatie,
-                                       run,
                                        datum,
                                        fclt_f_status,
                                        omschrijving,
                                        hint
                                       )
 AS
-   SELECT imp_log_applicatie, imp_log_run, to_char(imp_log_datum, 'yyyymmdd hh24miss'), imp_log_status,
+   SELECT imp_log_applicatie, to_char(imp_log_datum, 'yyyymmdd hh24miss'), imp_log_status,
           imp_log_omschrijving, imp_log_hint
      FROM imp_log;
 
@@ -7494,10 +7448,7 @@ AS
 --    Uitnutting
 --    Xelion informatie
 CREATE OR REPLACE PROCEDURE conn_import_budget (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_newline          fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
@@ -7528,16 +7479,13 @@ AS
    IS
    SELECT *
         FROM    fac_imp_file
-       WHERE    fac_imp_file_applicatie = p_applname
+       WHERE    fac_import_key = p_import_key
        ORDER BY FAC_IMP_FILE_INDEX;
 BEGIN
    -- Init
    v_fielddelimitor := ';';
    header_is_valid := 0;
 
-   DELETE      imp_log
-   WHERE imp_log_applicatie = p_applname;
-
    DELETE conn_imp_budget WHERE importrun IS NOT NULL;
 
       FOR rec IN c
@@ -7610,7 +7558,7 @@ BEGIN
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
        END;
      END LOOP;
 
@@ -7622,12 +7570,12 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE conn_update_budget (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE conn_update_budget (p_import_key IN NUMBER)
 AS
 BEGIN
    -- kijk in de bestaande tabel (b) of er records met dezelfde periode voorkomen als zojust geimporteerd (i).
@@ -7645,10 +7593,7 @@ END;
 /
 
 CREATE OR REPLACE PROCEDURE conn_import_kosten (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_newline          fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
@@ -7674,15 +7619,13 @@ AS
    IS
    SELECT *
         FROM    fac_imp_file
-       WHERE    fac_imp_file_applicatie = p_applname
+       WHERE    fac_import_key = p_import_key
        ORDER BY FAC_IMP_FILE_INDEX;
 BEGIN
    -- Init
    v_fielddelimitor := ';';
    header_is_valid := 0;
 
-   DELETE  imp_log
-   WHERE imp_log_applicatie = p_applname;
 
    DELETE conn_imp_kosten WHERE importrun IS NOT NULL;
 
@@ -7737,7 +7680,7 @@ BEGIN
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
        END;
      END LOOP;
 
@@ -7750,7 +7693,7 @@ BEGIN
              and i.maand = b.maand
              and i.importrun is not null);
    IF v_count > 0 THEN
-   fac.imp_writelog (p_applname, p_applrun, 'W', 'Combinatie van maand en jaar al eerder geimporteerd.', '');
+   fac.imp_writelog (p_import_key, 'W', 'Combinatie van maand en jaar al eerder geimporteerd.', '');
 
   END IF;
 
@@ -7761,12 +7704,12 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE conn_update_kosten (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE conn_update_kosten (p_import_key IN NUMBER)
 AS
 BEGIN
    -- kijk in de bestaande tabel (b) of er records met dezelfde periode voorkomen als zojust geimporteerd (i).
@@ -7879,13 +7822,10 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE conn_import_xelion_contract (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
-   v_newline          fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
+   v_newline            fac_imp_file.fac_imp_file_line%TYPE;                        -- Input line
    v_aanduiding         VARCHAR2 (1000);
    v_field              VARCHAR2 (100);
    v_fielddelimitor     VARCHAR2 (1);
@@ -7917,15 +7857,12 @@ AS
    IS
    SELECT *
         FROM    fac_imp_file
-       WHERE    fac_imp_file_applicatie = p_applname
+       WHERE    fac_import_key = p_import_key
        ORDER BY FAC_IMP_FILE_INDEX;
 BEGIN
    -- Init
    v_fielddelimitor := ';';
 
-   DELETE      imp_log
-   WHERE imp_log_applicatie = p_applname;
-
    DELETE conn_imp_xelion_contract;
 
    FOR rec IN c
@@ -8016,7 +7953,7 @@ BEGIN
          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
          v_errormsg :=
               'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-         fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+         fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -8027,12 +7964,12 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE conn_update_xelion_contract (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE conn_update_xelion_contract (p_import_key IN NUMBER)
 AS
 
    CURSOR c
@@ -8096,7 +8033,7 @@ BEGIN
                AND l.alg_locatie_code = rec.locatie_code
                AND SYSDATE < cnt_contract_looptijd_tot;
 
-         fac.imp_writelog (p_applname, p_applrun, 'I', 'Inhuurcontract gevonden', 'locatie: ' || rec.locatie_code || ' contract_omschrijving: ' || v_cnt_contract_omschrijving);
+         fac.imp_writelog (p_import_key, 'I', 'Inhuurcontract gevonden', 'locatie: ' || rec.locatie_code || ' contract_omschrijving: ' || v_cnt_contract_omschrijving);
 
          v_errorhint := 'Inhuurcontract opzoeken rappeltermijn bij locatie: ' || rec.locatie_code || ' termijn:' || rec.opzegtermijn;
          SELECT MAX(cnt_termijn_key)
@@ -8119,7 +8056,7 @@ BEGIN
          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
          v_errormsg :=
               'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-         fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+         fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -8155,7 +8092,7 @@ BEGIN
                AND b.prs_bedrijf_naam LIKE rec.huurder || '%'
                AND SYSDATE < cnt_contract_looptijd_tot;
 
-         fac.imp_writelog (p_applname, p_applrun, 'I', 'Verhuurcontract gevonden', 'locatie: ' || rec.locatie_code || ' contract_omschrijving: ' || v_cnt_contract_omschrijving);
+         fac.imp_writelog (p_import_key, 'I', 'Verhuurcontract gevonden', 'locatie: ' || rec.locatie_code || ' contract_omschrijving: ' || v_cnt_contract_omschrijving);
 
          UPDATE cnt_contract
             SET cnt_contract_looptijd_van = rec.ingangsdatum,
@@ -8170,7 +8107,7 @@ BEGIN
          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
          v_errormsg :=
               'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-         fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+         fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -8182,7 +8119,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
@@ -8664,10 +8601,7 @@ AS
 
 /* Formatted on 1-2-2012 14:45:54 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE conn_import_inspectieobj (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_delim                         VARCHAR2 (1) := ';';
@@ -8711,13 +8645,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   conn_imp_inspectieobj;
 
    COMMIT;
@@ -8810,8 +8740,7 @@ BEGIN
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Locatiecode wordt afgebroken tot ['
@@ -8828,8 +8757,7 @@ BEGIN
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Ruimte wordt afgebroken tot [' || v_alg_ruimte_nr || ']'
@@ -8846,8 +8774,7 @@ BEGIN
                v_ins_discipline_omschrijving :=
                   SUBSTR (TRIM (v_ins_discipline_omschrijving), 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Disciplineomschrijving wordt afgebroken tot ['
@@ -8865,8 +8792,7 @@ BEGIN
                v_ins_srtgroep_omschrijving :=
                   SUBSTR (TRIM (v_ins_srtgroep_omschrijving), 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Groepsoortomschrijving wordt afgebroken tot ['
@@ -8886,8 +8812,7 @@ BEGIN
                v_ins_srtdeel_omschrijving :=
                   SUBSTR (TRIM (v_ins_srtdeel_omschrijving), 1, 100);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Objectsoortomschrijving wordt afgebroken tot ['
@@ -8905,8 +8830,7 @@ BEGIN
                v_ins_deel_omschrijving :=
                   SUBSTR (TRIM (v_ins_deel_omschrijving), 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Objectomschrijving wordt afgebroken tot ['
@@ -8923,8 +8847,7 @@ BEGIN
             THEN
                v_merk := SUBSTR (v_merk, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Merk wordt afgebroken tot [' || v_merk || ']'
@@ -8939,8 +8862,7 @@ BEGIN
             THEN
                v_type := SUBSTR (v_type, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Type wordt afgebroken tot [' || v_type || ']'
@@ -8955,8 +8877,7 @@ BEGIN
             THEN
                v_hoogte := SUBSTR (v_hoogte, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Hoogte wordt afgebroken tot [' || v_hoogte || ']'
@@ -8971,8 +8892,7 @@ BEGIN
             THEN
                v_belasting := SUBSTR (v_belasting, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Belasting wordt afgebroken tot [' || v_belasting || ']'
@@ -8987,8 +8907,7 @@ BEGIN
             THEN
                v_bereik := SUBSTR (v_bereik, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Bereik wordt afgebroken tot [' || v_bereik || ']'
@@ -9003,8 +8922,7 @@ BEGIN
             THEN
                v_voltage := SUBSTR (v_voltage, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Voltage wordt afgebroken tot [' || v_voltage || ']'
@@ -9019,8 +8937,7 @@ BEGIN
             THEN
                v_apkplicht := SUBSTR (v_apkplicht, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'APK-plicht wordt afgebroken tot [' || v_apkplicht || ']'
@@ -9035,8 +8952,7 @@ BEGIN
             THEN
                v_categorie := SUBSTR (v_categorie, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Categorie wordt afgebroken tot [' || v_categorie || ']'
@@ -9053,8 +8969,7 @@ BEGIN
                v_cnt_contract_nummer_intern :=
                   SUBSTR (v_cnt_contract_nummer_intern, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Contractnummer wordt afgebroken tot ['
@@ -9071,8 +8986,7 @@ BEGIN
             THEN
                v_prs_bedrijf_naam := SUBSTR (v_prs_bedrijf_naam, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Leverancier wordt afgebroken tot ['
@@ -9089,8 +9003,7 @@ BEGIN
             THEN
                v_ins_srtcontrole_oms := SUBSTR (v_ins_srtcontrole_oms, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Soort controle wordt afgebroken tot ['
@@ -9112,8 +9025,7 @@ BEGIN
             THEN
                IF (fac.safe_to_date (v_ins_controle_datum, 'dd-mm-yyyy') IS NULL)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     'Controledatum wordt genegeerd');
@@ -9131,8 +9043,7 @@ BEGIN
             THEN
                v_ins_controle_opm := SUBSTR (v_ins_controle_opm, 1, 500);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Controleopmerking wordt afgekapt op 500 posities'
@@ -9147,8 +9058,7 @@ BEGIN
             THEN
                v_afgekeurd := SUBSTR (v_afgekeurd, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Afgekeurd wordt afgebroken tot [' || v_afgekeurd || ']'
@@ -9220,8 +9130,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'W',
                                        v_aanduiding || v_errormsg,
                                        '');
@@ -9235,23 +9144,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inspectieobjecten/aantal ingelezen importregels: '
          || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inspectieobjecten/aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -9272,8 +9178,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Inleesproces inspectieobjecten afgebroken!');
@@ -9282,8 +9187,7 @@ END conn_import_inspectieobj;
 
 /* Formatted on 3-2-2012 11:18:55 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE conn_update_inspectieobj (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_errormsg       VARCHAR2 (1000);
@@ -9291,8 +9195,7 @@ AS
    oracle_err_mes   VARCHAR2 (200);
 
    -- SUBPROC
-   PROCEDURE add_insdiscipline (p_applname   IN VARCHAR2,
-                                p_applrun    IN VARCHAR2)
+   PROCEDURE add_insdiscipline (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -9363,8 +9266,7 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_errormsg,
                                  '');
@@ -9373,15 +9275,13 @@ AS
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Disciplines/aantal ingelezen: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Disciplines/aantal toegevoegd: ' || TO_CHAR (v_count_update),
          ''
@@ -9390,7 +9290,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE add_srtgroep (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE add_srtgroep (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -9472,8 +9372,7 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_errormsg,
                                  '');
@@ -9482,15 +9381,13 @@ AS
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Groepsoorten/aantal ingelezen: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Groepsoorten/aantal toegevoegd: ' || TO_CHAR (v_count_update),
          ''
@@ -9499,7 +9396,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE add_srtdeel (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+   PROCEDURE add_srtdeel (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -9605,8 +9502,7 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_errormsg,
                                  '');
@@ -9615,15 +9511,13 @@ AS
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Objectsoorten/aantal ingelezen: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Objectsoorten/aantal toegevoegd: ' || TO_CHAR (v_count_update),
          ''
@@ -9632,8 +9526,7 @@ AS
    END;
 
    -- SUBPROC
-   PROCEDURE add_deelinspectie (p_applname   IN VARCHAR2,
-                                p_applrun    IN VARCHAR2)
+   PROCEDURE add_deelinspectie (p_import_key IN NUMBER)
    AS
       CURSOR c1
       IS
@@ -9977,8 +9870,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Merk-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10061,8 +9953,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Type-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10145,8 +10036,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Hoogte-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10229,8 +10119,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Belasting-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10313,8 +10202,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Bereik-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10397,8 +10285,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Voltage-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10481,8 +10368,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/APK-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10565,8 +10451,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/Categorie-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10649,8 +10534,7 @@ AS
                   RETURNING   ins_kenmerk_key      INTO   v_kenmerk_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      'INS-Objecten/afgekeurd-kenmerk toegevoegd voor: '
                      || rec.ins_srtdeel_omschrijving,
@@ -10735,8 +10619,7 @@ AS
                v_srtcontrole_id := 'S' || v_srtcontrole_id;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'INS-Objecten/soort controle toegevoegd: '
                   || SUBSTR (rec.ins_srtcontrole_omschrijving, 1, 60)
@@ -10813,8 +10696,7 @@ AS
                     VALUES   (rec.cnt_contract_key, v_srtdeel_key);
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'INS-Objecten/contractscope uitgebreid: '
                      || rec.cnt_contract_nummer_intern
@@ -10837,8 +10719,7 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || v_errormsg,
                                  '');
@@ -10847,22 +10728,19 @@ AS
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Objecten/aantal ingelezen: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Objecten/aantal toegevoegd: ' || TO_CHAR (v_count_oupdate),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'INS-Controles/aantal toegevoegd: ' || TO_CHAR (v_count_cupdate),
          ''
@@ -10871,10 +10749,10 @@ AS
    END;
 -- MAIN
 BEGIN
-   add_insdiscipline (p_applname, p_applrun);
-   add_srtgroep (p_applname, p_applrun);
-   add_srtdeel (p_applname, p_applrun);
-   add_deelinspectie (p_applname, p_applrun);
+   add_insdiscipline (p_import_key);
+   add_srtgroep (p_import_key);
+   add_srtdeel (p_import_key);
+   add_deelinspectie (p_import_key);
 EXCEPTION
    WHEN OTHERS
    THEN
@@ -10887,8 +10765,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Importproces inspectieobjecten afgebroken!');
@@ -10898,7 +10775,7 @@ END conn_update_inspectieobj;
 BEGIN fac.registercustversion('CONN', 49); END;
 /
 
-BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 180 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 181 $', 0); END;
 /
 
 COMMIT;
diff --git a/CWTD/cwtd.sql b/CWTD/cwtd.sql
index bfc2d7a90..6c0a849a8 100644
--- a/CWTD/cwtd.sql
+++ b/CWTD/cwtd.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for CWTD
 -- (c) 2008 Facilitor
--- $Revision: 8 $
--- $Modtime: 6-12-11 11:57 $
+-- $Revision: 9 $
+-- $Modtime: 16-02-12 14:57 $
 --
 -- Support: +31 53 4800700
 
@@ -9,10 +9,7 @@ spool xcwtd.lst
 set echo on
 
 CREATE OR REPLACE PROCEDURE cwtd_import_persoon (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    c_max_import_str_len   NUMBER(10)    := 1000;
@@ -20,7 +17,7 @@ AS
    CURSOR c_cursor IS
        SELECT *
          FROM fac_imp_file
-        WHERE fac_imp_file_applicatie = 'PERSOON'
+        WHERE fac_import_key = p_import_key
      ORDER BY fac_imp_file_index;
 
    next_record                 c_cursor%ROWTYPE;
@@ -96,13 +93,12 @@ BEGIN
    IF (v_controle_res IS NULL) THEN
 
      v_errormsg := 'Ongeldig importbestand';
-     fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+     fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 
    ELSE
 
       -- Clear my previous imported rows
      DELETE FROM cwtd_imp_persoon;
-     DELETE FROM IMP_LOG where imp_log_applicatie = p_applname;
      commit;
 
      FOR next_record IN c_cursor LOOP
@@ -230,7 +226,7 @@ BEGIN
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
               v_errormsg := v_errormsg || 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-              fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'personeelsnummer:'||v_perslid_nr);
+              fac.imp_writelog (p_import_key, 'E', v_errormsg, 'personeelsnummer:'||v_perslid_nr);
               commit; -- logging
 
           END;
@@ -242,7 +238,7 @@ BEGIN
      END LOOP;
 
      IF header_found = FALSE THEN
-       fac.imp_writelog (p_applname, p_applrun, 'E', 'Geen geldige header gevonden', '');
+       fac.imp_writelog (p_import_key, 'E', 'Geen geldige header gevonden', '');
      END IF;
 
    END IF;
@@ -253,14 +249,14 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 
 END;
 /
 
 SHOW ERRORS;
 
-CREATE OR REPLACE PROCEDURE cwtd_update_persoon (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE cwtd_update_persoon (p_import_key IN NUMBER)
 AS
 
    -- Constanten (LET OP: deze waarden moeten letterlijk in de DB aabwezig zijn!)
@@ -373,11 +369,6 @@ AS
    v_werkplek_oms                VARCHAR2 (60);
 
 BEGIN
-
-   --TODO
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = 'PERSOON';
-
    -- Constanten:
    SELECT   SYSDATE, SYSDATE, SYSDATE
    INTO     c_perslid_aanmaak, c_perslid_verwijder, c_perslid_ingangsdatum
@@ -396,7 +387,7 @@ BEGIN
      FROM cwtd_imp_persoon;
 
    IF v_perslid_count_imp < 10 THEN
-     fac.imp_writelog (p_applname, p_applrun, 'E', 'Geen records gevonden om te importeren.', '');
+     fac.imp_writelog (p_import_key, 'E', 'Geen records gevonden om te importeren.', '');
      COMMIT;
      RETURN;
    END IF;
@@ -421,8 +412,7 @@ BEGIN
             DELETE FROM prs_perslid
                   WHERE prs_perslid_key = v_perslid_key;
 
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                               'Persoon verwijderd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
                               ''
@@ -443,8 +433,7 @@ BEGIN
                 WHERE prs_perslid_key = v_perslid_key
                   AND prs_perslid_naam NOT LIKE c_inactief||'%';
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  'Persoon als ['||c_inactief||'] gemarkeerd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
                                  ''
@@ -456,8 +445,7 @@ BEGIN
                      SET prs_perslid_verwijder = c_perslid_verwijder
                    WHERE prs_perslid_key = v_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Persoon verwijderd met personeelsnummer ['||rec_prs_del.prs_perslid_nr||']',
                                     ''
@@ -472,7 +460,7 @@ BEGIN
                         || TO_CHAR (v_count)
                         || ') verplichtingen; personeelsnummer: '
                         || rec_prs_del.prs_perslid_nr;
-                     fac.imp_writelog (p_applname, p_applrun, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
+                     fac.imp_writelog (p_import_key, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
 
                END;
 
@@ -484,7 +472,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := v_errormsg||'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -518,7 +506,7 @@ BEGIN
          IF rec_prs_upd.prs_perslid_nr IS NULL
          THEN
             v_errormsg  := 'Persoon met achternaam ['||rec_prs_upd.prs_perslid_naam||' heeft geen personeelsnummer ';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -571,7 +559,7 @@ BEGIN
          IF v_update AND v_perslid_naam IS NULL
          THEN
             v_errormsg := 'Persoon met personeelsnummer [' || rec_prs_upd.prs_perslid_nr||'] heeft geen achternaam';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -593,7 +581,7 @@ BEGIN
                   -- Waarde(n) gevonden: Er is al een actieve persoon met dezelfde prs_perslid_nr gevonden: Niet updaten!!!
                   --v_errormsg := 'Persoon hoeft niet gereactiveerd te worden; prs_perslid_nr: ' || rec_prs_upd.prs_perslid_nr;
                   --v_errorhint := 'Er bestaat al een persoon met dezelfde persooneelsnummer die actief is, GEEN ACTIE NODIG; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
-                  --fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+                  --fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
                   v_update := FALSE;
                ELSE
                   -- Kennelijk is er geen persoon gevonden met dezelfde prs_perslid_nr
@@ -601,7 +589,7 @@ BEGIN
                   -- v_update := TRUE;
                   v_errormsg := 'Persoon reactiveren; prs_perslid_nr: ' || rec_prs_upd.prs_perslid_nr;
                   v_errorhint := 'ACTIE wordt ondernomen; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
-                  fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
                END IF;
             EXCEPTION
                WHEN OTHERS
@@ -706,8 +694,7 @@ BEGIN
                                rec_prs_upd.prs_perslid_titel, v_srtperslid_key, v_afdeling_key, c_perslid_aanmaak, 21
                               );
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'C',
                                     'Nieuw persoon toegevoegd',
                                        'Naam/persoonsnr: '
@@ -751,7 +738,7 @@ BEGIN
                   v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
                   v_errorhint := to_char(v_afdeling_key)||'|'||rec_prs_upd.prs_afdeling_naam||'|xxx {' || v_errormsg || '}; personeelsnummer: ' || rec_prs_upd.prs_perslid_nr;
                   v_update := FALSE;
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             END;
          END IF;
 
@@ -770,7 +757,7 @@ BEGIN
             EXCEPTION
                WHEN OTHERS
                THEN
-                  fac.imp_writelog (p_applname, p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_errormsg,
                                        'Het aantal werkplekken kan niet bepaald worden?! personeelsnummer: '
@@ -808,7 +795,7 @@ BEGIN
                EXCEPTION
                   WHEN OTHERS
                   THEN
-                     fac.imp_writelog (p_applname, p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'I',
                                        v_errormsg,
                                           'huidige of nieuwe alg_gebouw_key kan niet bepaald worden?! personeelsnummer: '
@@ -839,8 +826,7 @@ BEGIN
             EXCEPTION
                WHEN TOO_MANY_ROWS
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_errormsg,
                                     'Het personeelsnummer is niet uniek: ' || rec_prs_upd.prs_perslid_nr
@@ -849,8 +835,7 @@ BEGIN
                   v_update := FALSE;
                WHEN OTHERS
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_errormsg,
                                        'De persoon kan niet bepaald worden?! personeelsnummer: '
@@ -884,7 +869,7 @@ BEGIN
                   || rec_prs_upd.prs_afdeling_naam
                   || ';  personeelsnummer: '
                   || rec_prs_upd.prs_perslid_nr;
-               fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+               fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
             ELSE
 
                BEGIN
@@ -1083,7 +1068,7 @@ BEGIN
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errorhint := 'perslid_nr:' || rec_prs_upd.prs_perslid_nr || ' gebouw:' || rec_prs_upd.prs_afdeling_naam || ' ' || v_errorhint || ' {' || v_errormsg || '}';
             v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -1092,8 +1077,7 @@ BEGIN
      FROM prs_perslid
     WHERE prs_perslid_nr IS NOT NULL AND prs_perslid_verwijder IS NULL;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                         'Aantal actieve personen (met personeelsnr) vooraf: '
                      || TO_CHAR (v_perslid_count_fclt)
@@ -1107,8 +1091,7 @@ BEGIN
      FROM prs_perslid
     WHERE prs_perslid_nr IS NULL AND prs_perslid_verwijder IS NULL;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                      'Aantal actieve personen zonder personeelsnr: ' || TO_CHAR (v_perslid_newcount_fclt),
                      ''
@@ -1134,7 +1117,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errorhint := v_errorhint || ' {' || v_errormsg || '}';
       v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
diff --git a/Curs/curs.sql b/Curs/curs.sql
index 78b13f583..5da69a09a 100644
--- a/Curs/curs.sql
+++ b/Curs/curs.sql
@@ -1,8 +1,8 @@
 -- Script containing customer specific configuration sql statements for CURS
 -- ***** SINCE 01-01-2009 *****
 -- (c) 2009 SG|facilitor bv
--- $Revision: 8 $
--- $Modtime: 25-01-12 12:36 $
+-- $Revision: 9 $
+-- $Modtime: 21-02-12 9:59 $
 --
 -- Support: +31 53 4800700
 
@@ -1602,8 +1602,7 @@ CREATE OR REPLACE PROCEDURE curs_select_hv_freeze (
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /
 
@@ -1654,13 +1653,12 @@ BEGIN
       v_count_tot := v_count_tot + 1;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                        'Aantal doorbelastingsregels bevroren: '
-                     || TO_CHAR (v_count_tot),
-                     ''
-                    );
+   fac.writelog (p_applname,
+                 'S',
+                    'Aantal doorbelastingsregels bevroren: '
+                 || TO_CHAR (v_count_tot),
+                 ''
+                );
    COMMIT;
 EXCEPTION
    WHEN OTHERS
@@ -1669,12 +1667,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
       v_errormsg :=
            'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        'Proces HV_FREEZE afgebroken!',
-                        v_errormsg
-                       );
+      fac.writelog (p_applname,
+                    'E',
+                    'Proces HV_FREEZE afgebroken!',
+                    v_errormsg
+                   );
 END;
 /
 
@@ -1748,13 +1745,12 @@ BEGIN
       v_count_tot := v_count_tot + 1;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                        'Aantal opdrachten afgemeld: '
-                     || TO_CHAR (v_count_tot),
-                     ''
-                    );
+   fac.writelog (p_applname,
+                 'S',
+                    'Aantal opdrachten afgemeld: '
+                 || TO_CHAR (v_count_tot),
+                 ''
+                );
 
    v_count_tot := 0;
 
@@ -1786,13 +1782,12 @@ BEGIN
       v_count_tot := v_count_tot + 1;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                        'Aantal meldingen afgemeld: '
-                     || TO_CHAR (v_count_tot),
-                     ''
-                    );
+   fac.writelog (p_applname,
+                 'S',
+                    'Aantal meldingen afgemeld: '
+                 || TO_CHAR (v_count_tot),
+                 ''
+                );
    COMMIT;
 EXCEPTION
    WHEN OTHERS
@@ -1801,12 +1796,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
       v_errormsg :=
            'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        'Proces afmelden afgebroken!',
-                        v_errormsg
-                       );
+      fac.writelog (p_applname,
+                    'E',
+                    'Proces afmelden afgebroken!',
+                    v_errormsg
+                   );
 END;
 /
 
@@ -1885,7 +1879,7 @@ AS
                            AND k.mld_kenmerk_verwijder IS NULL);
 
 
-BEGIN adm.systrackscript('$Workfile: curs.sql $', '$Revision: 8 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: curs.sql $', '$Revision: 9 $', 0); END;
 /
 BEGIN fac.registercustversion('CURS', 1); END;
 /
diff --git a/Denb/denb.sql b/Denb/denb.sql
index a69c36b1e..20a5768ce 100644
--- a/Denb/denb.sql
+++ b/Denb/denb.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for Denb
 -- (c) 2008 SG|facilitor bv
--- $Revision: 11 $
--- $Modtime: 27-11-11 17:30 $
+-- $Revision: 12 $
+-- $Modtime: 20-02-12 11:42 $
 --
 -- Support: +31 53 4800700
 
@@ -11,15 +11,11 @@ spool xdenb.lst
 
 /* Formatted on 27-1-2010 16:35:45 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE denb_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij denb_update_prs
-   c_first_import                  VARCHAR2 (30)   := 'Initiële import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -56,32 +52,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT (*)
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-
-      COMMIT;
-   END IF;
-
    DELETE FROM denb_imp_prs;
 
    COMMIT;
@@ -189,8 +162,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Personeelsnummer te lang',
                                     'Personeelsnummer wordt afgebroken tot ['
@@ -202,8 +174,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Personeelsnummer onbekend',
                       'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -219,8 +190,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -232,8 +202,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -250,8 +219,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -269,8 +237,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -288,8 +255,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -300,8 +266,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]'
@@ -317,8 +282,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode te lang',
                                     'Afdelingscode wordt afgebroken tot ['
@@ -330,8 +294,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Afdelingscode onbekend',
                       'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -349,8 +312,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -362,8 +324,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -394,8 +355,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!'
@@ -428,8 +388,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!'
@@ -453,8 +412,7 @@ BEGIN
                   IF v_dienstverbandcode_n NOT BETWEEN 0 AND 99
                   THEN
                      v_dienstverbandcode_n := NULL;
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'W',
                                        v_aanduiding || v_errorhint,
                                        'Dienstverbandcode niet ingelezen'
@@ -474,8 +432,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'W',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!'
@@ -492,8 +449,7 @@ BEGIN
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
                fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'W',
                               v_aanduiding || 'Dienstverbandgebouw te lang',
                                  'Dienstverbandgebouw wordt afgebroken tot ['
@@ -519,8 +475,7 @@ BEGIN
                       )
                THEN
                   v_afdelingsdomein := NULL;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errorhint,
                                     'Afdelingsdomein niet ingelezen'
@@ -540,8 +495,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     'Regel wordt overgeslagen!'
@@ -557,8 +511,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -575,8 +528,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 50
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'E-mailadres te lang',
                                     'E-mailadres wordt afgebroken tot ['
@@ -593,8 +545,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam te lang',
                                     'Loginnaam wordt afgebroken tot ['
@@ -650,8 +601,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -665,22 +615,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -696,8 +643,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -707,11 +653,9 @@ END denb_import_prs;
 /
 
 /* Formatted on 27-1-2010 16:35:45 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE denb_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE denb_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij denb_import_prs
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -725,7 +669,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -821,12 +764,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    SELECT   DECODE (COUNT ( * ), 0, 1, COUNT ( * ))
      INTO   v_count_prs_import
      FROM   prs_v_aanwezigperslid p, denb_imp_prs ip
@@ -838,8 +775,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_nr IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
       -- Geldig importbestand wat betreft aantal personen
@@ -854,8 +790,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -893,8 +828,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met nummer ['
                   || recdelprs.prs_perslid_nr
@@ -928,8 +862,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -950,8 +883,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -977,8 +909,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1031,8 +962,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1041,16 +971,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1104,8 +1032,7 @@ BEGIN
             IF v_count > 1
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'E',
                   v_aanduiding || ' kan persoon niet 1-duidig bepalen',
                   v_errorhint
@@ -1225,8 +1152,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1235,16 +1161,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1521,8 +1445,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1531,16 +1454,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1552,8 +1473,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met nummer ['
                || recnowp.prs_perslid_nr
@@ -1576,8 +1496,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1622,8 +1541,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1641,8 +1559,7 @@ BEGIN
       COMMIT;
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'E',
          'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
             '- max. verschilpercentage = ['
@@ -1672,10 +1589,7 @@ AS
    WHERE imp_log_applicatie = 'B2F';
 
 /* Formatted on 26-3-2010 13:35:35 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE denb_import_b2f (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE denb_import_b2f (p_import_key IN NUMBER)
 IS
    v_dummy   VARCHAR2 (128);
 BEGIN
@@ -1685,11 +1599,9 @@ END denb_import_b2f;
 /
 
 /* Formatted on 26-3-2010 13:54:45 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE denb_update_b2f (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE denb_update_b2f (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij denb_import_b2f
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -1703,7 +1615,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -1814,12 +1725,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    SELECT   DECODE (COUNT ( * ), 0, 1, COUNT ( * ))
      INTO   v_count_prs_import
      FROM   prs_v_aanwezigperslid p, vw_fc_medewerkers ip
@@ -1831,15 +1736,9 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_nr IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-
-      COMMIT;
-
       -- Geldig importbestand wat betreft aantal personen
       v_errorhint := 'Fout bij bepalen profiel';
 
@@ -1852,8 +1751,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -1891,8 +1789,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met nummer ['
                   || recdelprs.prs_perslid_nr
@@ -1926,8 +1823,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -1948,8 +1844,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -1975,8 +1870,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -2029,8 +1923,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -2039,16 +1932,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -2102,8 +1993,7 @@ BEGIN
             IF v_count > 1
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'E',
                   v_aanduiding || ' kan persoon niet 1-duidig bepalen',
                   v_errorhint
@@ -2223,8 +2113,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -2233,16 +2122,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -2519,8 +2406,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -2529,16 +2415,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -2550,8 +2434,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met nummer ['
                || recnowp.prs_perslid_nr
@@ -2574,8 +2457,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -2620,8 +2502,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -2639,8 +2520,7 @@ BEGIN
       COMMIT;
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'E',
          'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
             '- max. verschilpercentage = ['
diff --git a/GDZW/gdzw.sql b/GDZW/gdzw.sql
index b75e08191..0079da96a 100644
--- a/GDZW/gdzw.sql
+++ b/GDZW/gdzw.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for GDZW
 -- (c) 2011 SG|facilitor bv
--- $Revision: 3 $
--- $Modtime: 10-05-11 15:46 $
+-- $Revision: 4 $
+-- $Modtime: 20-02-12 11:43 $
 --
 -- Support: +31 53 4800700
 
@@ -16,14 +16,10 @@ AS
      FROM imp_log
     WHERE imp_log_applicatie = 'PRS';
 
-CREATE OR REPLACE PROCEDURE gdzw_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE gdzw_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij GDZW_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -36,46 +32,26 @@ IS
    v_count_import                  NUMBER (10);
    v_count                         NUMBER;
    -- De importvelden:
-   v_prs_perslid_naam        VARCHAR2 (256);
+   v_prs_perslid_naam              VARCHAR2 (256);
    v_prs_perslid_tussenvoegsel     VARCHAR2 (256);
    v_prs_perslid_voornaam          VARCHAR2 (256);
-   v_prs_perslid_geslacht            VARCHAR2 (256);
+   v_prs_perslid_geslacht          VARCHAR2 (256);
    v_prs_perslid_oslogin           VARCHAR2 (256);
    v_prs_perslid_nr                VARCHAR2 (256);
    v_prs_afdeling_omschrijving     VARCHAR2 (256);
    v_prs_srtperslid_omschrijving   VARCHAR2 (256);
    v_prs_perslid_email             VARCHAR2 (256);
    v_prs_perslid_telefoonnr        VARCHAR2 (256);
-   v_prs_perslid_mobiel          VARCHAR2 (256);
+   v_prs_perslid_mobiel            VARCHAR2 (256);
    v_BSN                           VARCHAR2 (256);
 
    CURSOR c1
    IS
         SELECT *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT ( * )
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen');
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM gdzw_imp_prs;
 
    COMMIT;
@@ -145,8 +121,7 @@ BEGIN
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Personeelsnummer te lang',
                      'Personeelsnummer wordt afgebroken tot ['
@@ -157,8 +132,7 @@ BEGIN
             --   THEN
             --      v_ongeldig := 1;
             --      fac.imp_writelog (
-            --         p_applname,
-            --         p_applrun,
+            --         p_import_key,
             --         'E',
             --         v_aanduiding || 'Personeelsnummer onbekend',
             --         'Personeelsnummer is verplicht; regel wordt overgeslagen!');
@@ -172,8 +146,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Achternaam te lang',
                      'Achternaam wordt afgebroken tot ['
@@ -184,8 +157,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Achternaam onbekend',
                      'Achternaam is verplicht; regel wordt overgeslagen!');
@@ -199,8 +171,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam := SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -215,8 +186,7 @@ BEGIN
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'accountnaam te lang',
                      'accountnaam wordt afgebroken tot ['
@@ -227,8 +197,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'accountnaam onbekend',
                      'accountnaam is verplicht; regel wordt overgeslagen!');
@@ -242,8 +211,7 @@ BEGIN
             THEN
                v_prs_afdeling_omschrijving := SUBSTR (v_prs_afdeling_omschrijving, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdeling te lang',
                      'Afdeling wordt afgebroken tot ['
@@ -256,8 +224,7 @@ BEGIN
                   --TODO: verplicht maken?
                   --v_ongeldig := 1;
                   --fac.imp_writelog (
-                  --   p_applname,
-                  --   p_applrun,
+                  --   p_import_key,
                   --   'E',
                   --   v_aanduiding || 'Afdeling onbekend',
                   --   'Afdeling is verplicht; regel wordt overgeslagen!');
@@ -272,8 +239,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -286,8 +252,7 @@ BEGIN
                   --TODO: verplicht maken?
                   --v_ongeldig := 1;
                   --fac.imp_writelog (
-                  --   p_applname,
-                  --   p_applrun,
+                  --   p_import_key,
                   --   'E',
                   --   v_aanduiding || 'Functie onbekend',
                   --   'Functie is verplicht; regel wordt overgeslagen!');
@@ -302,8 +267,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errorhint,
                      'Nummer wordt afgebroken tot ['
@@ -318,8 +282,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 100);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errorhint,
                      'E-mailadres wordt afgebroken tot ['
@@ -333,15 +296,13 @@ BEGIN
             IF (UPPER (v_prs_perslid_geslacht) != 'M'
                 AND UPPER (v_prs_perslid_geslacht) != 'V')
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || v_errorhint,
                                  'Geslacht is [' || v_prs_perslid_geslacht || ']');
             ELSIF (v_prs_perslid_geslacht IS NULL)
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || v_errorhint,
                                  'Geslacht niet ingevuld');
@@ -354,8 +315,7 @@ BEGIN
             THEN
                v_prs_perslid_mobiel := SUBSTR (v_prs_perslid_mobiel, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errorhint,
                      'Nummer wordt afgebroken tot ['
@@ -371,8 +331,7 @@ BEGIN
             --   v_prs_perslid_tussenvoegsel :=
             --      SUBSTR (v_prs_perslid_tussenvoegsel, 1, 15);
             --   fac.imp_writelog (
-            --      p_applname,
-            --      p_applrun,
+            --      p_import_key,
             --      'W',
             --      v_aanduiding || 'Tussenvoegsel te lang',
             --         'Tussenvoegsel wordt afgebroken tot ['
@@ -430,8 +389,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'W',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!');
@@ -443,14 +401,12 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
       '');
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Persoon: aantal ongeldige importregels: '
       || TO_CHAR (v_count_tot - v_count_import),
@@ -462,8 +418,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -473,11 +428,9 @@ END gdzw_import_prs;
 
 
 
-CREATE OR REPLACE PROCEDURE gdzw_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE gdzw_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij gdzw_IMPORT_PRS
-   c_first_import            VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief        VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage    NUMBER (10) := 20;
@@ -493,7 +446,6 @@ IS
    v_errormsg                VARCHAR2 (1000);
    oracle_err_num            NUMBER;
    oracle_err_mes            VARCHAR2 (200);
-   v_first_import_count      NUMBER (10);
    v_count_prs_import        NUMBER (10);    -- #actieve personen  na  import!
    v_count_prs_actual        NUMBER (10);    -- #actieve personen vóór import!
    v_count_tot               NUMBER (10);
@@ -603,12 +555,6 @@ IS
                               WHERE g.prs_perslid_key = p.prs_perslid_key);
 
 BEGIN
-   SELECT COUNT ( * )
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-          AND imp_log_applicatie = p_applname;
-
    -- Bepaal accountnaam-match tussen Facilitor en RECENT importbestand ofwel
    -- het aantal actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -627,8 +573,7 @@ BEGIN
      FROM prs_v_aanwezigperslid
     WHERE prs_perslid_oslogin IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage))--OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) <=
                                              --       (100 + c_max_delta_percentage))
       )
@@ -645,8 +590,7 @@ BEGIN
 --      IF (v_count = 0)
 --      THEN
 --         fac.imp_writelog (
---            p_applname,
---            p_applrun,
+--            p_import_key,
 --            'E',
 --            v_aanduiding || v_errorhint,
 --               'Gebouw ['
@@ -703,8 +647,7 @@ BEGIN
 --      END IF;
 --   
 --   --      fac.imp_writelog (
---   --         p_applname,
---   --         p_applrun,
+--   --         p_import_key,
 --   --         'I',
 --   --         'Standaardgebouw en -ruimte:',
 --   --            '['
@@ -734,8 +677,7 @@ BEGIN
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met login ['
                   || recdelprs.prs_perslid_oslogin
@@ -767,8 +709,7 @@ BEGIN
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met login ['
                      || recdelprs.prs_perslid_oslogin
@@ -788,8 +729,7 @@ BEGIN
                          AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met login ['
                      || recdelprs.prs_perslid_oslogin
@@ -815,8 +755,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_errormsg,
                                  v_errorhint);
@@ -868,8 +807,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -877,15 +815,13 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          '');
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -944,8 +880,7 @@ BEGIN
             THEN
                v_perslid_naam := SUBSTR (recperslid.prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Achternaam te lang',
                      'Achternaam wordt afgebroken tot ['
@@ -1000,8 +935,7 @@ BEGIN
                IF (v_count > 1)
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || ' kan persoon niet eenduidig bepalen',
                      v_errorhint);
@@ -1031,8 +965,7 @@ BEGIN
             WHEN NO_DATA_FOUND
             THEN
                v_count_error := v_count_error + 1;
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || 'Geen data gevonden',
                                  v_errorhint);
@@ -1047,8 +980,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1057,15 +989,13 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          '');
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1177,8 +1107,7 @@ BEGIN
 --                      WHERE prs_werkplek_key = v_wp_key;
 --
 --                     fac.imp_writelog (
---                        p_applname,
---                        p_applrun,
+--                        p_import_key,
 --                        'I',
 --                        v_aanduiding || 'is verhuisd naar bestaande werkplek',
 --                        'Werkplek: [' || v_wp_oms || ']');
@@ -1232,16 +1161,14 @@ BEGIN
 --                         WHERE prs_werkplek_key = v_wp_key;
 --
 --                        fac.imp_writelog (
---                           p_applname,
---                           p_applrun,
+--                           p_import_key,
 --                           'I',
 --                           v_aanduiding
 --                           || 'is verhuisd naar nieuwe aangemaakte werkplek',
 --                           'Werkplek: [' || v_wp_oms || ']');
 --                     ELSE -- als nieuwe werkplekken NIET automatisch aangemaakt mogen worden:
 --                        fac.imp_writelog (
---                           p_applname,
---                           p_applrun,
+--                           p_import_key,
 --                           'W',
 --                           'Geen vrije werkplek beschikbaar voor'
 --                           || v_aanduiding,
@@ -1336,8 +1263,7 @@ BEGIN
 --                   WHERE prs_werkplek_key = v_wp_key;
 --
 --                  fac.imp_writelog (
---                     p_applname,
---                     p_applrun,
+--                     p_import_key,
 --                     'I',
 --                     v_aanduiding || 'is gekoppeld naar standaardwerkplek',
 --                     'Werkplek: [' || v_wp_oms || ']');
@@ -1358,8 +1284,7 @@ BEGIN
 --                  || '/'
 --                  || oracle_err_mes
 --                  || ')';
---               fac.imp_writelog (p_applname,
---                                 p_applrun,
+--               fac.imp_writelog (p_import_key,
 --                                 'E',
 --                                 v_aanduiding || v_errormsg,
 --                                 v_errorhint);
@@ -1368,15 +1293,13 @@ BEGIN
 --      END LOOP;
 --
 --      fac.imp_writelog (
---         p_applname,
---         p_applrun,
+--         p_import_key,
 --         'S',
 --         'Werkplek: verwerkte regels zonder foutmelding: '
 --         || TO_CHAR (v_count_tot - v_count_error),
 --         '');
 --      fac.imp_writelog (
---         p_applname,
---         p_applrun,
+--         p_import_key,
 --         'S',
 --         'Werkplek: verwerkte regels met foutmelding: '
 --         || TO_CHAR (v_count_error),
@@ -1388,8 +1311,7 @@ BEGIN
 --      LOOP
 --         BEGIN
 --            fac.imp_writelog (
---               p_applname,
---               p_applrun,
+--               p_import_key,
 --               'I',
 --                  'Persoon met login ['
 --               || recnowp.prs_perslid_oslogin
@@ -1410,8 +1332,7 @@ BEGIN
 --                  || '/'
 --                  || oracle_err_mes
 --                  || ')';
---               fac.imp_writelog (p_applname,
---                                 p_applrun,
+--               fac.imp_writelog (p_import_key,
 --                                 'E',
 --                                 v_errormsg,
 --                                 v_errorhint);
@@ -1457,8 +1378,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1478,15 +1398,13 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             '');
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
@@ -1506,7 +1424,7 @@ BEGIN
 END gdzw_update_prs;
 /
 
-BEGIN adm.systrackscript('$Workfile: gdzw.sql $', '$Revision: 3 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: gdzw.sql $', '$Revision: 4 $', 0); END;
 /
 BEGIN fac.registercustversion ('GDZW', 1); END;
 /
diff --git a/GESL/gesl.sql b/GESL/gesl.sql
index c88fd9590..2edf2c27e 100644
--- a/GESL/gesl.sql
+++ b/GESL/gesl.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for GESL: Stadsdeel Geuzenveld-Slotermeer (via U4A)
 -- (c) 2009 SG|facilitor
--- $Revision: 5 $
--- $Modtime: 6-12-11 11:41 $
+-- $Revision: 6 $
+-- $Modtime: 20-02-12 8:56 $
 --
 -- Support: +31 53 4800710
 
@@ -12,10 +12,7 @@ SET ECHO ON
 --------------
 
 CREATE OR REPLACE PROCEDURE gesl_import_organisatie (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 
   c_fielddelimitor            VARCHAR2 (1) := ',';
@@ -47,15 +44,10 @@ CREATE OR REPLACE PROCEDURE gesl_import_organisatie (
   IS
     SELECT  *
     FROM    fac_imp_file
-    WHERE   fac_imp_file_applicatie = p_applname
+    WHERE   fac_import_key = p_import_key
     ORDER BY fac_imp_file_index;
 
 BEGIN
-
-   -- Eerst opruiming
-   DELETE FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
    DELETE FROM gesl_imp_organisatie;
 
    COMMIT;
@@ -116,8 +108,7 @@ BEGIN
             THEN
                v_header_valid := TRUE;
             ELSE
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding||'Ongeldig importbestand',
                                  'Kopregel: ' || v_aanduiding
@@ -131,8 +122,7 @@ BEGIN
             v_afdeling_naam := trim(v_afdeling_naam);
             IF LENGTH (v_afdeling_naam) > 10 THEN
                v_afdeling_naam:= SUBSTR(v_afdeling_naam,1,10);
-               fac.imp_writelog(p_applname
-                               ,p_applrun
+               fac.imp_writelog(p_import_key
                                ,'W'
                                ,v_aanduiding||'Afdeling-aanduiding is te lang'
                                ,'Aanduiding wordt afgebroken tot [' || v_afdeling_naam || ']'
@@ -142,8 +132,7 @@ BEGIN
             v_afdeling_naam_parent := trim(v_afdeling_naam_parent);
             IF LENGTH (v_afdeling_naam_parent) > 10 THEN
                v_afdeling_naam_parent:= SUBSTR(v_afdeling_naam_parent,1,10);
-               fac.imp_writelog(p_applname
-                               ,p_applrun
+               fac.imp_writelog(p_import_key
                                ,'W'
                                ,v_aanduiding||'Afdeling-aanduiding is te lang'
                                ,'Aanduiding wordt afgebroken tot [' || v_afdeling_naam_parent || ']'
@@ -153,8 +142,7 @@ BEGIN
             v_afdeling_omschrijving := trim(v_afdeling_omschrijving);
             IF LENGTH (v_afdeling_omschrijving) > 60 THEN
                v_afdeling_omschrijving:= SUBSTR(v_afdeling_omschrijving,1,60);
-               fac.imp_writelog(p_applname
-                               ,p_applrun
+               fac.imp_writelog(p_import_key
                                ,'W'
                                ,v_aanduiding||'Afdelingsomschrijving is te lang'
                                ,'Aanduiding wordt afgebroken tot [' || v_afdeling_omschrijving || ']'
@@ -164,8 +152,7 @@ BEGIN
             v_kostenplaats_nr := trim(v_kostenplaats_nr);
             IF LENGTH (v_kostenplaats_nr) > 30 THEN
                v_kostenplaats_nr:= SUBSTR(v_kostenplaats_nr,1,30);
-               fac.imp_writelog(p_applname
-                               ,p_applrun
+               fac.imp_writelog(p_import_key
                                ,'W'
                                ,v_aanduiding||'Kostenplaats-aanduiding is te lang'
                                ,'Aanduiding wordt afgebroken tot [' || v_kostenplaats_nr || ']'
@@ -205,8 +192,7 @@ BEGIN
             oracle_err_num  := SQLCODE;
             oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
             v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               ''
@@ -214,15 +200,13 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Afdeling: aantal ingelezen regels: '||to_char(v_count_tot),
                       ''
                     );
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Afdeling: aantal ongeldige importregels: <b>'||to_char(v_count_tot - v_count_import),
                       ''
@@ -236,8 +220,7 @@ EXCEPTION
       oracle_err_num  := SQLCODE;
       oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
       v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         ''
@@ -246,8 +229,7 @@ END gesl_import_organisatie;
 /
 
 CREATE OR REPLACE PROCEDURE gesl_update_organisatie (
-   p_applname         IN   VARCHAR2,
-   p_applrun          IN   VARCHAR2
+   p_import_key IN NUMBER
 ) IS
 
   c_fielddelimitor            VARCHAR2 (1) := ';';
@@ -307,11 +289,6 @@ CREATE OR REPLACE PROCEDURE gesl_update_organisatie (
        AND prs_bedrijf_key <> 2;
 
 BEGIN
-
-   DELETE imp_log
-    WHERE imp_log_applicatie = p_applname
-      AND imp_log_run <> p_applrun;
-
    v_count_update := 0;
    v_count_tot := 0;
    v_count_error := 0;
@@ -356,8 +333,7 @@ BEGIN
          END IF;
          v_errorhint := v_errorhint||': ' || oracle_err_mes;
 
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            v_aanduiding||v_errormsg,
                            v_errorhint
@@ -400,8 +376,7 @@ BEGIN
          END IF;
          v_errorhint := v_errorhint||': ' || oracle_err_mes;
 
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            v_aanduiding||v_errormsg,
                            v_errorhint
@@ -433,8 +408,7 @@ BEGIN
           WHERE prs_afdeling_key = rec.prs_afdeling_key;
 
          IF v_count_perlid > 0 THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            'Fout bij verwijderen afdeling, afdeling bevat medewerkers ' || '[' || v_aanduiding || ']',
                            v_errorhint
@@ -448,8 +422,7 @@ BEGIN
           WHERE prs_afdeling_key = rec.prs_afdeling_key;
 
          IF v_count_verpl > 0 and v_count_perlid = 0 THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            'Fout bij verwijderen afdeling, afdeling heeft verplichtingen ' || '[' || v_aanduiding || ']',
                            v_errorhint
@@ -462,8 +435,7 @@ BEGIN
           WHERE prs_afdeling_key = rec.prs_afdeling_key;
 
          IF v_count > 0 THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            'Fout bij verwijderen afdeling, afdeling heeft verplichtingen ' || '[' || v_aanduiding || ']',
                            v_errorhint
@@ -476,8 +448,7 @@ BEGIN
                SET prs_afdeling_omschrijving = SUBSTR('Inactief: ' || prs_afdeling_omschrijving,1,30)
              WHERE prs_afdeling_key = rec.prs_afdeling_key
                AND prs_afdeling_omschrijving NOT LIKE 'Inactief%';
-             fac.imp_writelog (p_applname,
-                               p_applrun,
+             fac.imp_writelog (p_import_key,
                                'W',
                                'Afdeling inactief gemaakt ' || '[' || v_aanduiding || ']',
                                ''
@@ -487,8 +458,7 @@ BEGIN
             UPDATE prs_afdeling
                SET prs_afdeling_verwijder = sysdate
              WHERE prs_afdeling_key = rec.prs_afdeling_key;
-             fac.imp_writelog (p_applname,
-                               p_applrun,
+             fac.imp_writelog (p_import_key,
                                'I',
                                'Afdeling verwijderd ' || '[' || v_aanduiding || ']',
                                ''
@@ -508,8 +478,7 @@ BEGIN
          END IF;
          v_errorhint := v_errorhint||': ' || oracle_err_mes;
 
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            v_aanduiding||v_errormsg,
                            v_errorhint
@@ -523,10 +492,7 @@ END gesl_update_organisatie;
 /
 
 CREATE OR REPLACE PROCEDURE gesl_import_perslid (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 
   c_fielddelimitor            VARCHAR2 (1) := ',';
@@ -563,14 +529,10 @@ CREATE OR REPLACE PROCEDURE gesl_import_perslid (
   IS
     SELECT  *
     FROM    fac_imp_file
-    WHERE   fac_imp_file_applicatie = p_applname
+    WHERE   fac_import_key = p_import_key
     ORDER BY fac_imp_file_index;
 
 BEGIN
-
-   -- Eerst opruiming
-   DELETE FROM imp_log WHERE imp_log_applicatie      = p_applname;
-
    DELETE FROM gesl_imp_perslid;
 
    COMMIT;
@@ -691,8 +653,7 @@ BEGIN
            THEN
               v_header_valid := TRUE;
            ELSE
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 v_aanduiding||'Ongeldig importbestand',
                                 'Kopregel: ' || v_aanduiding
@@ -707,8 +668,7 @@ BEGIN
           IF LENGTH (v_prs_afdeling_naam) > 10
           THEN
             v_prs_afdeling_naam:= SUBSTR(v_prs_afdeling_naam,1,10);
---            fac.imp_writelog(p_applname
---                            ,p_applrun
+--            fac.imp_writelog(p_import_key
 --                            ,'W'
 --                            ,v_aanduiding||'Afdelingscode is te lang'
 --                            ,'Aanduiding wordt afgebroken tot [' || v_prs_afdeling_naam || ']'
@@ -717,8 +677,7 @@ BEGIN
             IF (v_prs_afdeling_naam IS NULL) THEN
               v_ongeldig      := 1;
 -- Is een geldige situatie om cursisten en andere vervuiling tegen te gaan,dus niet loggen
---              fac.imp_writelog(p_applname
---                              ,p_applrun
+--              fac.imp_writelog(p_import_key
 --                              ,'E'
 --                              ,v_aanduiding||'Afdelingscode onbekend'
 --                              ,'Afdelingscode moet worden opgegeven'
@@ -731,8 +690,7 @@ BEGIN
           IF LENGTH (v_prs_perslid_naam) > 30
           THEN
             v_prs_perslid_naam:= SUBSTR(v_prs_perslid_naam,1,30);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Naam persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -741,8 +699,7 @@ BEGIN
             IF (v_prs_perslid_naam IS NULL) THEN
               v_ongeldig      := 1;
 --     geldige foutmelding
---              fac.imp_writelog(p_applname
---                              ,p_applrun
+--              fac.imp_writelog(p_import_key
 --                              ,'E'
 --                              ,v_aanduiding||'Naam persoon onbekend'
 --                              ,'Naam persoon moet worden opgegeven'
@@ -755,8 +712,7 @@ BEGIN
           IF LENGTH (v_prs_perslid_voornaam) > 30
           THEN
             v_prs_perslid_voornaam:= SUBSTR(v_prs_perslid_voornaam,1,30);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Voornaam persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_voornaam || ']'
@@ -768,8 +724,7 @@ BEGIN
           IF LENGTH (v_prs_perslid_telefoonnr) > 15
           THEN
             v_prs_perslid_telefoonnr:= SUBSTR(v_prs_perslid_telefoonnr,1,15);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Telefoonnr. persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_telefoonnr || ']'
@@ -781,8 +736,7 @@ BEGIN
           IF LENGTH (v_prs_perslid_email) > 200
           THEN
             v_prs_perslid_email:= SUBSTR(v_prs_perslid_email,1,200);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Email persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_email || ']'
@@ -794,8 +748,7 @@ BEGIN
           IF LENGTH (v_prs_srtperslid_omschrijving) > 30
           THEN
             v_prs_srtperslid_omschrijving:= SUBSTR(v_prs_srtperslid_omschrijving,1,30);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Functie-aanduiding persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_srtperslid_omschrijving || ']'
@@ -804,8 +757,7 @@ BEGIN
             IF (v_prs_srtperslid_omschrijving IS NULL) THEN
               v_ongeldig      := 1;
 -- Is een geldige situatie om cursisten en andere vervuiling tegen te gaan,dus niet loggen
---              fac.imp_writelog(p_applname
---                              ,p_applrun
+--              fac.imp_writelog(p_import_key
 --                              ,'E'
 --                              ,v_aanduiding||'Functie persoon onbekend'
 --                              ,'Functie persoon moet worden opgegeven'
@@ -818,8 +770,7 @@ BEGIN
           IF LENGTH (v_prs_perslid_oslogin) > 30
           THEN
             v_prs_perslid_oslogin := SUBSTR(v_prs_perslid_oslogin,1,30);
-            fac.imp_writelog(p_applname
-                            ,p_applrun
+            fac.imp_writelog(p_import_key
                             ,'W'
                             ,v_aanduiding||'Loginnaam persoon is te lang'
                             ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_oslogin || ']'
@@ -880,8 +831,7 @@ BEGIN
             oracle_err_num  := SQLCODE;
             oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
             v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               ''
@@ -889,15 +839,13 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ingelezen regels: '||to_char(v_count_tot),
                       ''
                     );
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ongeldige importregels: '||to_char(v_count_tot - v_count_import-1),
                       ''
@@ -912,8 +860,7 @@ EXCEPTION
       oracle_err_num  := SQLCODE;
       oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
       v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding||v_errormsg,
                         v_errorhint
@@ -925,8 +872,7 @@ END gesl_import_perslid;
 
 
 CREATE OR REPLACE PROCEDURE gesl_update_perslid (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
@@ -982,8 +928,7 @@ BEGIN
    v_debug := FALSE;
 
    IF v_debug THEN
-     fac.imp_writelog (p_applname,
-                       p_applrun,
+     fac.imp_writelog (p_import_key,
                        'I',
                        'Processing PROCEDURE gesl_update_perslid',
                        'SET v_debug = FALSE to skip this information'
@@ -996,8 +941,7 @@ BEGIN
      FROM gesl_imp_perslid;
 
    IF v_count = 0 THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen inputgegevens gevonden tijden update',
                         ''
@@ -1027,8 +971,7 @@ BEGIN
            INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
                   VALUES (rec.prs_srtperslid_omschrijving)
                   RETURNING prs_srtperslid_key INTO v_srtperslid_key;
-           fac.imp_writelog (p_applname,
-                             p_applrun,
+           fac.imp_writelog (p_import_key,
                             'I',
                             'Functie toegevoegd: ' || rec.prs_srtperslid_omschrijving,
                             'key:' || v_srtperslid_key
@@ -1057,8 +1000,7 @@ BEGIN
             ,rec.prs_perslid_email
             ) RETURNING prs_perslid_key INTO v_perslid_key;
 
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                              'I',
                              'Persoon toegevoegd: ' || SUBSTR(rec.prs_perslid_voornaam || ' '|| rec.prs_perslid_naam, 1, 30),
                              'key:' || v_perslid_key
@@ -1095,8 +1037,7 @@ BEGIN
 
          oracle_err_num := SQLCODE;
          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            'Personen toevoegen/wijzigen: '|| v_errmes,
                            'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1125,16 +1066,14 @@ BEGIN
                SET prs_perslid_verwijder = sysdate
              WHERE prs_perslid_key = rec.prs_perslid_key;
 
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                              'I',
                              'Persoon verwijderd: ' || rec.prs_perslid_oslogin,
                              'key:' || rec.prs_perslid_key
                              );
 
          ELSE
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               'Persoon met login ' || rec.prs_perslid_oslogin || ' kan niet verwijderd worden.',
                               'Persoon heeft nog ' || to_char(v_count) || ' openstaande verplichting(en).'
@@ -1156,8 +1095,7 @@ BEGIN
 
          oracle_err_num := SQLCODE;
          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            'Personen verwijderen: '|| v_errmes,
                            'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
diff --git a/GOUD/goud.sql b/GOUD/goud.sql
index 923f5f125..6576846f8 100644
--- a/GOUD/goud.sql
+++ b/GOUD/goud.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific db-configuration for GOUD.
 -- (c) 2011 SG|facilitor bv
--- $Revision: 2 $
--- $Modtime: 25-08-11 16:19 $
+-- $Revision: 3 $
+-- $Modtime: 20-02-12 11:43 $
 --
 -- Support: +31 53 4800700
 
@@ -17,14 +17,10 @@ AS
     WHERE imp_log_applicatie = 'PRS';
 
 /* Formatted on 5-7-2011 17:06:36 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE goud_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE goud_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij GOUD_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -64,32 +60,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen'
-      );
-      COMMIT;
-   ELSE
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-
-      COMMIT;
-   END IF;
-
    DELETE FROM   goud_imp_prs;
 
    COMMIT;
@@ -215,8 +188,7 @@ BEGIN
             THEN
                v_ongeldig := 1;
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'E',
                   v_aanduiding || 'Loginnaam onbekend of te lang',
                   'Correcte loginnaam is verplicht; regel wordt overgeslagen!'
@@ -232,8 +204,7 @@ BEGIN
             THEN
                v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Titel te lang',
                      'Titel wordt afgebroken tot ['
@@ -251,8 +222,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Naam te lang',
                   'Naam wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -263,8 +233,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Naam onbekend',
                      'Naam is verplicht; regel wordt overgeslagen!'
@@ -282,8 +251,7 @@ BEGIN
                v_prs_perslid_tussenvoegsel :=
                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Tussenvoegsel te lang',
                      'Tussenvoegsel wordt afgebroken tot ['
@@ -302,8 +270,7 @@ BEGIN
                v_prs_perslid_voorletters :=
                   SUBSTR (v_prs_perslid_voorletters, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voorletters te lang',
                      'Voorletters worden afgebroken tot ['
@@ -322,8 +289,7 @@ BEGIN
                v_prs_perslid_voornaam :=
                   SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam is te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -335,8 +301,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]');
@@ -352,8 +317,7 @@ BEGIN
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingscode te lang',
                      'Afdelingscode wordt afgebroken tot ['
@@ -366,8 +330,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Afdelingscode onbekend',
                      'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -385,8 +348,7 @@ BEGIN
                v_prs_afdeling_omschrijving :=
                   SUBSTR (v_prs_afdeling_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingsomschrijving te lang',
                      'Afdelingsomschrijving wordt afgebroken tot ['
@@ -406,8 +368,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -420,8 +381,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Functie onbekend',
                      'Functie is verplicht; regel wordt overgeslagen!'
@@ -438,8 +398,7 @@ BEGIN
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Locatiecode te lang',
                      'Locatiecode wordt afgebroken tot ['
@@ -457,8 +416,7 @@ BEGIN
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Gebouwcode te lang',
                      'Gebouwcode wordt afgebroken tot ['
@@ -476,8 +434,7 @@ BEGIN
             THEN
                v_alg_verdieping_code := SUBSTR (v_alg_verdieping_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Verdiepingcode te lang',
                      'Verdiepingcode wordt afgebroken tot ['
@@ -495,8 +452,7 @@ BEGIN
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Ruimtenummer te lang',
                      'Ruimtenummer wordt afgebroken tot ['
@@ -515,8 +471,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Telefoonnummer te lang',
                      'Telefoonnummer wordt afgebroken tot ['
@@ -535,8 +490,7 @@ BEGIN
                v_prs_perslid_mobiel :=
                   SUBSTR (v_prs_perslid_mobiel, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Mobielnummer te lang',
                      'Mobielnummer wordt afgebroken tot ['
@@ -554,8 +508,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'E-mailadres te lang',
                      'E-mailadres wordt afgebroken tot ['
@@ -573,8 +526,7 @@ BEGIN
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Personeelsnummer te lang',
                      'Personeelsnummer wordt afgebroken tot ['
@@ -606,8 +558,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -639,8 +590,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -713,8 +663,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!'
@@ -728,22 +677,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ongeldige importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -759,8 +705,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -769,11 +714,9 @@ END goud_import_prs;
 /
 
 /* Formatted on 25-8-2011 16:02:25 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE goud_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE goud_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij GOUD_IMPORT_PRS
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -787,7 +730,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -886,12 +828,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    -- Bepaal oslogin-match tussen Facilitor en RECENT importbestand ofwel het aantal
    -- actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -911,8 +847,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_oslogin IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
       -- Geldig importbestand wat betreft aantal personen
@@ -927,8 +862,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -966,8 +900,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met loginnaam ['
                   || recdelprs.prs_perslid_oslogin
@@ -1003,8 +936,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met loginnaam ['
                      || recdelprs.prs_perslid_oslogin
@@ -1025,8 +957,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met loginnaam ['
                      || recdelprs.prs_perslid_oslogin
@@ -1052,8 +983,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1106,8 +1036,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1116,16 +1045,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1218,8 +1145,7 @@ BEGIN
                COMMIT;
             ELSE
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                   v_aanduiding || v_errorhint,
                   'Kostenplaats volgens afdeling bestaat niet!'
@@ -1237,8 +1163,7 @@ BEGIN
 
             IF v_count > 1
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errorhint,
                                  'Kan persoon niet 1-duidig bepalen!');
@@ -1331,8 +1256,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1341,16 +1265,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1552,8 +1474,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1562,16 +1483,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1583,8 +1502,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met nummer ['
                || recnowp.prs_perslid_oslogin
@@ -1607,8 +1525,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1653,8 +1570,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1674,16 +1590,14 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             ''
          );
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
diff --git a/GRGT/grgt.sql b/GRGT/grgt.sql
index 0ad47807a..eb22a69dd 100644
--- a/GRGT/grgt.sql
+++ b/GRGT/grgt.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for GRGT
 -- (c) 2009 SG|facilitor bv
--- $Revision: 4 $
--- $Modtime: 6-12-11 11:43 $
+-- $Revision: 5 $
+-- $Modtime: 20-02-12 11:45 $
 --
 -- Support: +31 53 4800700
 
@@ -19,15 +19,11 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE grgt_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij grgt_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30)   := 'Initiele import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -59,30 +55,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT (*)
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM grgt_imp_prs;
 
    COMMIT;
@@ -165,8 +140,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Personeelsnummer te lang',
                                     'Personeelsnummer wordt afgebroken tot ['
@@ -178,8 +152,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Personeelsnummer onbekend',
                       'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -195,8 +168,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -208,8 +180,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -226,8 +197,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -245,8 +215,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -264,8 +233,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -277,8 +245,7 @@ BEGIN
                THEN
                   v_prs_perslid_voornaam := '-';
                   fac.imp_writelog
-                          (p_applname,
-                           p_applrun,
+                          (p_import_key,
                            'W',
                            v_aanduiding || 'Voornaam onbekend',
                            'Voornaam wordt gezet op [-]'
@@ -294,8 +261,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode te lang',
                                     'Afdelingscode wordt afgebroken tot ['
@@ -307,8 +273,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Afdelingscode onbekend',
                       'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -325,8 +290,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -338,8 +302,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -355,8 +318,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 5
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatiecode te lang',
                                     'Locatiecode wordt afgebroken tot ['
@@ -373,8 +335,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Gebouwcode wordt afgebroken tot ['
@@ -392,8 +353,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -410,8 +370,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 50
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'E-mailadres te lang',
                                     'E-mailadres wordt afgebroken tot ['
@@ -465,8 +424,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -480,22 +438,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -510,8 +465,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -522,12 +476,10 @@ END grgt_import_prs;
 
 
 CREATE OR REPLACE PROCEDURE grgt_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    -- LET OP: moet idem zijn als declaratie bij grgt_IMPORT_PRS
-   c_first_import           VARCHAR2 (30)   := 'Initiele import';
    c_persoon_inactief       VARCHAR2 (30)   := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10)     := 20;
@@ -541,7 +493,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_actual       NUMBER (10);
    v_count_prs_import       NUMBER (10);          -- Matching actual persons!
    v_count_tot              NUMBER (10);
@@ -619,12 +570,6 @@ IS
                            FROM fac_gebruikersgroep g
                           WHERE g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT COUNT (*)
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-      AND imp_log_applicatie = p_applname;
-
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
      INTO v_count_prs_actual
      FROM prs_perslid
@@ -637,8 +582,7 @@ BEGIN
       AND p.prs_perslid_verwijder IS NULL
       AND p.prs_perslid_nr = ip.prs_perslid_nr;
 
-   IF (   (v_first_import_count = 1)
-       OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF (   (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
                                                (100 - c_max_delta_percentage
                                                )
           )
@@ -663,8 +607,7 @@ BEGIN
                   SET prs_perslid_verwijder = SYSDATE
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                     'Persoon met nummer ['
                                  || recdelprs.prs_perslid_nr
@@ -698,8 +641,7 @@ BEGIN
                          prs_perslid_oslogin = NULL
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -719,8 +661,7 @@ BEGIN
                    WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                      AND prs_perslid_oslogin IS NOT NULL;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -745,8 +686,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -795,8 +735,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -805,15 +744,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -899,8 +836,7 @@ BEGIN
             ELSE
                IF (v_count > 1)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                        v_aanduiding
                                     || ' kan persoon niet 1-duidig bepalen',
@@ -937,8 +873,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -947,15 +882,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1156,8 +1089,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1166,15 +1098,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1185,8 +1115,7 @@ BEGIN
       FOR recnowp IN cnowp
       LOOP
          BEGIN
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                                  'Persoon met nummer ['
                               || recnowp.prs_perslid_nr
@@ -1209,8 +1138,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1261,8 +1189,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1272,8 +1199,7 @@ BEGIN
       END LOOP;
    ELSE
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
              '- max. verschilpercentage = ['
diff --git a/GVBA/gvba.sql b/GVBA/gvba.sql
index fce3851ec..727fd4e28 100644
--- a/GVBA/gvba.sql
+++ b/GVBA/gvba.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for GVBA: Gem. Vervoersbedrijf Amsterdam
 -- (c) 2006 Facilitor Software Nederland/Dijkoraad IT bv
--- $Revision: 27 $
--- $Modtime: 11-11-11 9:49 $
+-- $Revision: 28 $
+-- $Modtime: 20-02-12 9:48 $
 --
 -- Support: +31 53 4800700
 
@@ -13,7 +13,7 @@ spool xgvba.lst
 CREATE OR REPLACE PACKAGE gvba_p_import AS
     -- Hulpfuncties en procedures:
     --
-    PROCEDURE   to_log (p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2);
+    PROCEDURE   to_log (p_import_key IN NUMBER, p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2);
 
     --
     --
@@ -111,16 +111,15 @@ END gvba_p_import;
 CREATE OR REPLACE PACKAGE BODY gvba_p_import AS
     --
     -- to_log
-    PROCEDURE to_log (p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2) IS
+    PROCEDURE to_log (p_import_key IN NUMBER, p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2) IS
         v_dummy VARCHAR2(16);
     BEGIN
         IF p_do_log THEN
-            fac.imp_writelog ('hbgs_import_export',
-                                    p_proces,
-                                    'I',
-                                    p_message,
-                                    ''
-                                   );
+            fac.imp_writelog (p_import_key,
+                              'I',
+                              p_message,
+                              ''
+                             );
             COMMIT; -- to commit logging
         END IF;
     EXCEPTION
@@ -864,17 +863,14 @@ SELECT niveau nivo, prs_afdeling_naam, prs_afdeling_omschrijving, '', 'DEL'
 
 
 CREATE OR REPLACE PROCEDURE gvba_import_organisatie (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
   CURSOR c1 IS
       SELECT *
         FROM fac_imp_file
-       WHERE fac_imp_file_applicatie = p_applname;
+       WHERE fac_import_key = p_import_key;
 
     rec1 c1%ROWTYPE;
 
@@ -899,11 +895,6 @@ AS
    v_controle_res              VARCHAR2 (30);
    v_teller                    INTEGER;
 BEGIN
-
-    -- Clear my old logs
-    DELETE FROM IMP_LOG
-         WHERE imp_log_applicatie = p_applname;
-
     v_fielddelimitor := ';';
     header_is_valid := TRUE;  -- No header present
 
@@ -963,8 +954,7 @@ BEGIN
 
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 v_errmes,
                                 'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -984,8 +974,7 @@ END;
 /
 
 CREATE OR REPLACE PROCEDURE gvba_update_organisatie (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
@@ -1086,8 +1075,7 @@ BEGIN
 
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               'Afdelingen toevoegen: ' || v_errmes,
                               'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1165,8 +1153,7 @@ BEGIN
 
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errmes,
                               'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1235,16 +1222,13 @@ AND    p.prs_perslid_nr is not null;
 
 
 CREATE OR REPLACE PROCEDURE gvba_import_persoon (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
   CURSOR c1 IS
     SELECT *
         FROM fac_imp_file
-       WHERE fac_imp_file_applicatie = p_applname;
+       WHERE fac_import_key = p_import_key IN NUMBER;
     rec1 c1%ROWTYPE;
    v_newline          fac_imp_file.fac_imp_file_line%TYPE;   -- Import line
    v_fielddelimitor            VARCHAR2 (1);      -- Field seperator
@@ -1281,10 +1265,6 @@ BEGIN
     header_is_valid := TRUE;  -- No header present
     DELETE FROM GVBA_IMP_PERSOON;
     
-    -- Clear my old logs
-    DELETE FROM IMP_LOG
-         WHERE imp_log_applicatie = p_applname;
-
     commit;
 
     BEGIN
@@ -1366,8 +1346,7 @@ BEGIN
               ROLLBACK;
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 'Personen import: '|| v_errmes,
                                 'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1405,8 +1384,7 @@ AND fclt.prs_afdeling_verwijder is null;
 /
 
 CREATE OR REPLACE PROCEDURE gvba_update_persoon (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
@@ -1450,8 +1428,7 @@ BEGIN
     v_debug := FALSE;
 
     IF v_debug THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'I',
                         'Processing PROCEDURE gvba_update_persoon',
                         'SET v_debug = FALSE to skip this information'
@@ -1644,12 +1621,11 @@ BEGIN
 
                   IF v_ruimte_key = -1 THEN -- Fout bij zoeken ruimte
                     v_errmes := 'Geen werkplekwijziging voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
-                    fac.imp_writelog (p_applname,
-                                  p_applrun,
-                                  'I',
-                                  v_errmes,
-                                  'Foutmelding (Koppeling persoon/werkplek niet gewijzigd omdat ruimte <'|| rec1.flex_ruimte || '> niet kan worden gevonden.)'
-                                 );
+                    fac.imp_writelog (p_import_key,
+                                      'I',
+                                      v_errmes,
+                                      'Foutmelding (Koppeling persoon/werkplek niet gewijzigd omdat ruimte <'|| rec1.flex_ruimte || '> niet kan worden gevonden.)'
+                                     );
                     commit;                                   
                     
                   ELSE -- v_ruimte_key = 0
@@ -1666,8 +1642,7 @@ BEGIN
             EXCEPTION WHEN OTHERS THEN            
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'I',
                                 'Koppeling persoon/werkplek: '|| v_errmes,
                                 'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1725,8 +1700,7 @@ BEGIN
 
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               'Personen toevoegen/wijzigen: '|| v_errmes,
                               'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1784,8 +1758,7 @@ BEGIN
 
             ELSE
 
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 'Persoon met personeelsnummer ' || rec2.prs_perslid_nr || ' kan niet verwijderd worden.',
                                 'Persoon heeft nog ' || to_char(v_count) || ' openstaande verplichting(en).'
@@ -1802,8 +1775,7 @@ BEGIN
 
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 'Personen verwijderen: '|| v_errmes,
                                 'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1833,17 +1805,14 @@ END;
 
 -- toevoegen ruimtes
 CREATE OR REPLACE PROCEDURE gvba_import_ruimte (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
   CURSOR c1 IS
     SELECT *
         FROM fac_imp_file
-       WHERE fac_imp_file_applicatie = p_applname;
+       WHERE fac_import_key = p_import_key;
 
     rec1 c1%ROWTYPE;
 
@@ -1866,11 +1835,6 @@ AS
    v_controle_res              VARCHAR2 (30);
    v_teller                    INTEGER;
 BEGIN
-
-    -- Clear my old logs
-    DELETE FROM IMP_LOG
-         WHERE imp_log_applicatie = p_applname;
-
     v_fielddelimitor := ';';
     header_is_valid := TRUE;  -- No header present
 
@@ -1922,8 +1886,7 @@ BEGIN
 
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-              fac.imp_writelog (p_applname,
-                                p_applrun,
+              fac.imp_writelog (p_import_key,
                                 'E',
                                 v_errmes || '(' || rec1.fac_imp_file_line || ')',
                                 'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
@@ -1943,8 +1906,7 @@ END;
 /
 
 CREATE OR REPLACE PROCEDURE gvba_update_ruimte (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 
@@ -2108,8 +2070,7 @@ BEGIN
 
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               'Ruimte toevoegen('|| rec1.locatie || ',' || rec1.gebouw ||',' || rec1.verdieping || ',' || rec1.ruimte || ',' || rec1.omschrijving || '): ' || v_errmes,
                               'Oracle foutmelding (' || oracle_err_num || '/' || oracle_err_mes || ')'
diff --git a/HPJI/hpji.sql b/HPJI/hpji.sql
index fa88d4b49..dabd261fa 100644
--- a/HPJI/hpji.sql
+++ b/HPJI/hpji.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific db-configuration for HPJI.
 -- (c) 2010 SG|facilitor bv
--- $Revision: 17 $
--- $Modtime: 2-03-11 13:11 $
+-- $Revision: 18 $
+-- $Modtime: 20-02-12 11:49 $
 --
 -- Support: +31 53 4800700
 
@@ -219,14 +219,10 @@ AS
     WHERE imp_log_applicatie = 'PRS';
 
 /* Formatted on 14-1-2010 18:14:22 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE hpji_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE hpji_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij HPJI_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -260,30 +256,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen'
-      );
-      COMMIT;
-   ELSE
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM   hpji_imp_prs;
 
    COMMIT;
@@ -383,8 +358,7 @@ BEGIN
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Loginnaam te lang',
                      'Loginnaam wordt afgebroken tot ['
@@ -402,8 +376,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Naam te lang',
                   'Naam wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -414,8 +387,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Naam onbekend',
                      'Naam is verplicht; regel wordt overgeslagen!'
@@ -433,8 +405,7 @@ BEGIN
                v_prs_perslid_tussenvoegsel :=
                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Tussenvoegsel te lang',
                      'Tussenvoegsel wordt afgebroken tot ['
@@ -453,8 +424,7 @@ BEGIN
                v_prs_perslid_voorletters :=
                   SUBSTR (v_prs_perslid_voorletters, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voorletters te lang',
                      'Voorletters worden afgebroken tot ['
@@ -473,8 +443,7 @@ BEGIN
                v_prs_perslid_voornaam :=
                   SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam is te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -486,8 +455,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]');
@@ -503,8 +471,7 @@ BEGIN
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingscode te lang',
                      'Afdelingscode wordt afgebroken tot ['
@@ -517,8 +484,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Afdelingscode onbekend',
                      'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -537,8 +503,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -551,8 +516,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Functie onbekend',
                      'Functie is verplicht; regel wordt overgeslagen!'
@@ -569,8 +533,7 @@ BEGIN
             THEN
                v_alg_locatie_oms := SUBSTR (v_alg_locatie_oms, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'locatieomschrijving te lang',
                      'Aanduiding wordt afgebroken tot ['
@@ -588,8 +551,7 @@ BEGIN
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Ruimtenummer te lang',
                      'Aanduiding wordt afgebroken tot ['
@@ -608,8 +570,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Telefoonnummer te lang',
                      'Telefoonnummer wordt afgebroken tot ['
@@ -627,8 +588,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'E-mailadres te lang',
                      'E-mailadres wordt afgebroken tot ['
@@ -660,8 +620,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -693,8 +652,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -755,8 +713,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!'
@@ -770,22 +727,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ongeldige importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -801,8 +755,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -811,11 +764,9 @@ END hpji_import_prs;
 /
 
 /* Formatted on 12-3-2010 13:22:22 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE hpji_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE hpji_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij HPJI_IMPORT_PRS
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -829,7 +780,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -925,12 +875,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    -- Bepaal oslogin-match tussen Facilitor en RECENT importbestand ofwel het aantal
    -- actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -950,8 +894,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_oslogin IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
       -- Geldig importbestand wat betreft aantal personen
@@ -964,8 +907,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -1003,8 +945,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met loginnaam ['
                   || recdelprs.prs_perslid_oslogin
@@ -1038,8 +979,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met loginnaam ['
                      || recdelprs.prs_perslid_oslogin
@@ -1060,8 +1000,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met loginnaam ['
                      || recdelprs.prs_perslid_oslogin
@@ -1087,8 +1026,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1141,8 +1079,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1151,16 +1088,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1213,8 +1148,7 @@ BEGIN
 
             IF v_count > 1
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errorhint,
                                  'Kan persoon niet 1-duidig bepalen!');
@@ -1301,8 +1235,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1311,16 +1244,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1362,8 +1293,7 @@ BEGIN
 
             IF v_count = 0
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  v_aanduiding || v_errorhint,
                                  'Locatie bestaat niet!');
@@ -1389,8 +1319,7 @@ BEGIN
 
                IF v_count > 1
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_aanduiding || v_errorhint,
                                     'Kan ruimte niet 1-duidig bepalen!');
@@ -1519,8 +1448,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1529,16 +1457,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1550,8 +1476,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met loginnaam ['
                || recnowp.prs_perslid_oslogin
@@ -1574,8 +1499,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1620,8 +1544,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1641,16 +1564,14 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             ''
          );
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
diff --git a/HVDF/hvdf.sql b/HVDF/hvdf.sql
index 0a855228f..7ccb8b76e 100644
--- a/HVDF/hvdf.sql
+++ b/HVDF/hvdf.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for HVDF
 -- (c) 2009 SG|facilitor bv
--- $Revision: 10 $
--- $Modtime: 6-12-11 11:47 $
+-- $Revision: 11 $
+-- $Modtime: 20-02-12 11:51 $
 --
 -- Support: +31 53 4800700
 
@@ -19,15 +19,11 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE hvdf_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij hvdf_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30)   := 'Initiele import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -60,30 +56,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT (*)
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM hvdf_imp_prs;
 
    COMMIT;
@@ -168,8 +143,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Personeelsnummer te lang',
                                     'Personeelsnummer wordt afgebroken tot ['
@@ -181,8 +155,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Personeelsnummer onbekend',
                       'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -198,8 +171,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -211,8 +183,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -229,8 +200,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -248,8 +218,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -267,8 +236,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -280,8 +248,7 @@ BEGIN
                THEN
                   v_prs_perslid_voornaam := '-';
                   fac.imp_writelog
-                          (p_applname,
-                           p_applrun,
+                          (p_import_key,
                            'W',
                            v_aanduiding || 'Voornaam onbekend',
                            'Voornaam wordt gezet op [-]'
@@ -297,8 +264,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode te lang',
                                     'Afdelingscode wordt afgebroken tot ['
@@ -310,8 +276,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Afdelingscode onbekend',
                       'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -328,8 +293,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -341,8 +305,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -358,8 +321,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 5
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatiecode te lang',
                                     'Locatiecode wordt afgebroken tot ['
@@ -376,8 +338,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Gebouwcode wordt afgebroken tot ['
@@ -395,8 +356,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -413,8 +373,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 50
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'E-mailadres te lang',
                                     'E-mailadres wordt afgebroken tot ['
@@ -432,8 +391,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam te lang',
                                     'Loginnaam wordt afgebroken tot ['
@@ -490,8 +448,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -505,22 +462,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -535,8 +489,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -547,12 +500,10 @@ END hvdf_import_prs;
 
 
 CREATE OR REPLACE PROCEDURE hvdf_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    -- LET OP: moet idem zijn als declaratie bij hvdf_IMPORT_PRS
-   c_first_import           VARCHAR2 (30)   := 'Initiele import';
    c_persoon_inactief       VARCHAR2 (30)   := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10)     := 20;
@@ -569,7 +520,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_actual       NUMBER (10);
    v_count_prs_import       NUMBER (10);          -- Matching actual persons!
    v_count_tot              NUMBER (10);
@@ -698,12 +648,6 @@ IS
       
                     
 BEGIN
-   SELECT COUNT (*)
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-      AND imp_log_applicatie = p_applname;
-
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
      INTO v_count_prs_actual
      FROM prs_perslid
@@ -716,8 +660,7 @@ BEGIN
       AND p.prs_perslid_verwijder IS NULL
       AND p.prs_perslid_nr = ip.prs_perslid_nr;
 
-   IF (   (v_first_import_count = 1)
-       OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF (   (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
                                                (100 - c_max_delta_percentage
                                                )
           )
@@ -742,8 +685,7 @@ BEGIN
                   SET prs_perslid_verwijder = SYSDATE
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                     'Persoon met nummer ['
                                  || recdelprs.prs_perslid_nr
@@ -777,8 +719,7 @@ BEGIN
                          prs_perslid_oslogin = NULL
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -798,8 +739,7 @@ BEGIN
                    WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                      AND prs_perslid_oslogin IS NOT NULL;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -824,8 +764,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -874,8 +813,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -884,15 +822,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -979,8 +915,7 @@ BEGIN
             ELSE
                IF (v_count > 1)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                        v_aanduiding
                                     || ' kan persoon niet 1-duidig bepalen',
@@ -1017,8 +952,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1027,15 +961,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1236,8 +1168,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1246,15 +1177,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1265,8 +1194,7 @@ BEGIN
       FOR recnowp IN cnowp
       LOOP
          BEGIN
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                                  'Persoon met nummer ['
                               || recnowp.prs_perslid_nr
@@ -1289,8 +1217,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1339,8 +1266,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1389,8 +1315,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1439,8 +1364,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1489,8 +1413,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1502,8 +1425,7 @@ BEGIN
       
    ELSE
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
              '- max. verschilpercentage = ['
@@ -1766,7 +1688,7 @@ AND ok.alg_onrgoed_key (+) = l.alg_locatie_key
 AND b.prs_bedrijf_key (+) = fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde);
 
 
-BEGIN adm.systrackscript('$Workfile: hvdf.sql $', '$Revision: 10 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: hvdf.sql $', '$Revision: 11 $', 0); END;
 /
 
 BEGIN fac.registercustversion('HVDF', 6); END;
diff --git a/Hout/hout.sql b/Hout/hout.sql
index 1a1f50d71..99c785cf2 100644
--- a/Hout/hout.sql
+++ b/Hout/hout.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for Hout
 -- (c) 2007 Facilitor Software Nederland/Dijkoraad IT bv
--- $Revision: 41 $
--- $Modtime: 18-10-11 13:32 $
+-- $Revision: 42 $
+-- $Modtime: 21-02-12 10:04 $
 --
 -- Support: +31 53 4800700
 
@@ -17,14 +17,10 @@ AS
     WHERE imp_log_applicatie = 'PRS';
 
 CREATE OR REPLACE PROCEDURE hout_import_prs (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 
   c_fielddelimitor            VARCHAR2(1)   :=  ';';
-  c_first_import               VARCHAR(64)   :=  'Initiële import.'; -- LET OP: moet idem zijn als declaratie bij HOUT_UPDATE_PRS
 
   v_newline                   VARCHAR2 (1000); -- Input line
   v_errormsg                  VARCHAR (1000);
@@ -66,12 +62,12 @@ CREATE OR REPLACE PROCEDURE hout_import_prs (
   v_prs_werkplek_volgnr             VARCHAR2(256);
 
   -- PRS_BEDRIJF
-  CURSOR c1(p_imp_file_applicatie VARCHAR2)
+  CURSOR c1(p_import_key IN NUMBER)
   IS
     SELECT    *
     FROM      fac_imp_file
     WHERE     1=1
-    AND       fac_imp_file_applicatie = p_imp_file_applicatie
+    AND       fac_import_key = p_import_key
     ORDER BY  fac_imp_file_index;
 
   rec1                        c1%ROWTYPE;
@@ -102,23 +98,6 @@ CREATE OR REPLACE PROCEDURE hout_import_prs (
 
 
 BEGIN
-
-   -- Eerst opruiming
-   select count(*) INTO v_count FROM imp_log WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0) THEN
-
-     fac.imp_writelog (p_applname,
-                       p_applrun,
-                       'I',
-                       c_first_import,
-                       'Controle importbestand wat betreft aantal mutaties wordt overgeslagen.'
-                      );
-     COMMIT;
-   ELSE
-      DELETE FROM imp_log WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM hout_imp_prs;
 
    COMMIT;
@@ -127,7 +106,7 @@ BEGIN
    v_count_tot    := 0;
    v_count_import := 0;
    v_aanduiding   := '';
-   OPEN c1(p_applname);
+   OPEN c1(p_import_key);
 
    IF (c1%ISOPEN)
    THEN
@@ -154,8 +133,7 @@ BEGIN
 
             IF (1=0)
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding||'Ongeldig importbestand',
                                  'Toelichting: ... '
@@ -253,8 +231,7 @@ BEGIN
               IF LENGTH (v_alg_locatie_code) > 5
               THEN
                 v_alg_locatie_code:= SUBSTR(v_alg_locatie_code,1,5);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Locatie-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_alg_locatie_code || ']'
@@ -266,8 +243,7 @@ BEGIN
               IF LENGTH (v_alg_gebouw_code) > 10
               THEN
                 v_alg_gebouw_code:= SUBSTR(v_alg_gebouw_code,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Gebouw-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_alg_gebouw_code || ']'
@@ -289,8 +265,7 @@ BEGIN
                         oracle_err_num  := SQLCODE;
                         oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
                         v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                        fac.imp_writelog (p_applname,
-                                          p_applrun,
+                        fac.imp_writelog (p_import_key,
                                           'E',
                                           v_aanduiding||v_errormsg,
                                           v_errorhint
@@ -303,8 +278,7 @@ BEGIN
               IF LENGTH (v_alg_ruimte_nr) > 10
               THEN
                 v_alg_ruimte_nr:= SUBSTR(v_alg_ruimte_nr,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Ruimtenr-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_alg_ruimte_nr || ']'
@@ -326,8 +300,7 @@ BEGIN
                         oracle_err_num  := SQLCODE;
                         oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
                         v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                        fac.imp_writelog (p_applname,
-                                          p_applrun,
+                        fac.imp_writelog (p_import_key,
                                           'E',
                                           v_aanduiding||v_errormsg,
                                           v_errorhint
@@ -340,8 +313,7 @@ BEGIN
               IF LENGTH (v_prs_werkplek_omschrijving) > 30
               THEN
                 v_prs_werkplek_omschrijving:= SUBSTR(v_prs_werkplek_omschrijving,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Werkplek-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_werkplek_omschrijving || ']'
@@ -353,8 +325,7 @@ BEGIN
               IF LENGTH (v_prs_afdeling_naam) > 10
               THEN
                 v_prs_afdeling_naam:= SUBSTR(v_prs_afdeling_naam,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Afdelingscode is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_afdeling_naam || ']'
@@ -362,8 +333,7 @@ BEGIN
               ELSE
                 IF (v_prs_afdeling_naam IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,v_aanduiding||'Afdelingscode onbekend'
                                   ,'Afdelingscode moet worden opgegeven'
@@ -376,8 +346,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_naam) > 30
               THEN
                 v_prs_perslid_naam:= SUBSTR(v_prs_perslid_naam,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Naam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -385,8 +354,7 @@ BEGIN
               ELSE
                 IF (v_prs_perslid_naam IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,v_aanduiding||'Naam persoon onbekend'
                                   ,'Naam persoon moet worden opgegeven'
@@ -399,8 +367,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_tussenvoegsel) > 10
               THEN
                 v_prs_perslid_tussenvoegsel:= SUBSTR(v_prs_perslid_tussenvoegsel,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Tussenvoegsel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_tussenvoegsel || ']'
@@ -412,8 +379,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_voorletters) > 10
               THEN
                 v_prs_perslid_voorletters:= SUBSTR(v_prs_perslid_voorletters,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Voorletters persoon zijn te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_voorletters || ']'
@@ -425,8 +391,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_voornaam) > 30
               THEN
                 v_prs_perslid_voornaam:= SUBSTR(v_prs_perslid_voornaam,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Voornaam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_voornaam || ']'
@@ -434,8 +399,7 @@ BEGIN
               ELSE
                 IF (v_prs_perslid_voornaam IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,v_aanduiding||'Voornaam persoon onbekend'
                                   ,'Voornaam persoon moet worden opgegeven'
@@ -448,8 +412,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                 v_prs_perslid_titel:= SUBSTR(v_prs_perslid_titel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Titel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_titel || ']'
@@ -461,8 +424,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                 v_prs_perslid_titel:= SUBSTR(v_prs_perslid_titel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Titel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_titel || ']'
@@ -474,8 +436,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_telefoonnr) > 15
               THEN
                 v_prs_perslid_telefoonnr:= SUBSTR(v_prs_perslid_telefoonnr,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Telefoonnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_telefoonnr || ']'
@@ -487,8 +448,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_mobiel) > 15
               THEN
                 v_prs_perslid_mobiel:= SUBSTR(v_prs_perslid_mobiel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Mobielnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_mobiel || ']'
@@ -500,8 +460,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_email) > 50
               THEN
                 v_prs_perslid_email:= SUBSTR(v_prs_perslid_email,1,50);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Email persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_email || ']'
@@ -513,8 +472,7 @@ BEGIN
               IF LENGTH (v_prs_srtperslid_omschrijving) > 30
               THEN
                 v_prs_srtperslid_omschrijving:= SUBSTR(v_prs_srtperslid_omschrijving,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Functie-aanduiding persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_srtperslid_omschrijving || ']'
@@ -522,8 +480,7 @@ BEGIN
               ELSE
                 IF (v_prs_srtperslid_omschrijving IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,v_aanduiding||'Functie persoon onbekend'
                                   ,'Functie persoon moet worden opgegeven'
@@ -536,8 +493,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_nr) > 16
               THEN
                 v_prs_perslid_nr := SUBSTR(v_prs_perslid_nr,1,16);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Persoonnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_nr || ']'
@@ -549,8 +505,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_oslogin) > 30
               THEN
                 v_prs_perslid_oslogin := SUBSTR(v_prs_perslid_oslogin,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Loginnaam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_oslogin || ']'
@@ -615,15 +570,13 @@ BEGIN
 
 
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ingelezen regels: '||to_char(v_count_tot),
                       ''
                     );
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ongeldige importregels: '||to_char(v_count_tot - v_count_import),
                       ''
@@ -638,8 +591,7 @@ EXCEPTION
       oracle_err_num  := SQLCODE;
       oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
       v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding||v_errormsg,
                         v_errorhint
@@ -649,11 +601,9 @@ END hout_import_prs;
 /
 
 /* Formatted on 2-6-2010 18:02:02 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE hout_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE hout_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij HOUT_IMPORT_PRS
-   c_first_import           VARCHAR (30) := 'Initiële import.';
    c_persoon_inactief       VARCHAR (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -779,13 +729,7 @@ BEGIN
    SELECT   COUNT ( * )
      INTO   v_count
      FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
+    WHERE   fac_import_key = p_import_key;
 
    SELECT   DECODE (COUNT ( * ), 0, 1, COUNT ( * ))
      INTO   v_count_tot_perslid
@@ -796,8 +740,8 @@ BEGIN
      INTO   v_count_tot_new
      FROM   prs_perslid p, fac_imp_perslid ip
     WHERE       prs_perslid_verwijder IS NULL
-            AND p.prs_perslid_nr IS NOT NULL
-            AND p.prs_perslid_nr = ip.prs_perslid_nr(+);
+      AND   p.prs_perslid_nr IS NOT NULL
+      AND   p.prs_perslid_nr = ip.prs_perslid_nr(+);
 
    SELECT   MAX (fac_profiel_key), COUNT ( * )
      INTO   v_profiel_key, v_count
@@ -807,8 +751,7 @@ BEGIN
    IF (v_count = 0)
    THEN
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'I',
             'Standaard profiel ['
          || c_profiel_omschrijving
@@ -852,8 +795,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met personeelsnummer ['
                      || recdelprs.prs_perslid_nr
@@ -891,8 +833,7 @@ BEGIN
                       WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'I',
                            'Persoon met personeelsnummer ['
                         || recdelprs.prs_perslid_nr
@@ -913,8 +854,7 @@ BEGIN
                               AND prs_perslid_oslogin IS NOT NULL;
 
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'I',
                            'Persoon met personeelsnummer ['
                         || recdelprs.prs_perslid_nr
@@ -941,8 +881,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_errormsg,
                                     v_errorhint);
@@ -1020,8 +959,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint);
@@ -1030,16 +968,14 @@ BEGIN
          END LOOP;
 
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Personeelsfunctie: verwerkte regels zonder foutmelding: '
             || TO_CHAR (v_count_tot - v_count_error),
             ''
          );
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Personeelsfunctie: verwerkte regels met foutmelding: '
             || TO_CHAR (v_count_error),
@@ -1170,8 +1106,7 @@ BEGIN
                      COMMIT;
                   ELSE
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || ' kan persoon niet 1-duidig bepalen',
                         v_errorhint
@@ -1191,8 +1126,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint);
@@ -1201,16 +1135,14 @@ BEGIN
          END LOOP;
 
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Persoon: verwerkte regels zonder foutmelding: '
             || TO_CHAR (v_count_tot - v_count_error),
             ''
          );
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Persoon: verwerkte regels met foutmelding: '
             || TO_CHAR (v_count_error),
@@ -1263,8 +1195,7 @@ BEGIN
                  FROM   alg_v_aanweziglocatie
                 WHERE   alg_locatie_code = recwp.alg_locatie_code;
             ELSE                         -- Locatie bestaat niet (of >1 keer)!
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  v_aanduiding || v_errorhint,
                                  'Kan EMIS-locatie niet (1-duidig) bepalen!');
@@ -1291,8 +1222,7 @@ BEGIN
                                  UPPER (recwp.alg_gebouw_code);
                ELSE                       -- Gebouw bestaat niet (of >1 keer)!
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                      v_aanduiding || v_errorhint,
                      'Kan EMIS-gebouw niet (1-duidig) bepalen!'
@@ -1423,8 +1353,7 @@ BEGIN
                   || '> ORACLE error message = <'
                   || oracle_err_mes
                   || '>)';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1433,16 +1362,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1454,8 +1381,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met personeelsnummer ['
                || recnowp.prs_perslid_nr
@@ -1478,8 +1404,7 @@ BEGIN
                   || '> ORACLE error message = <'
                   || oracle_err_mes
                   || '>)';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1524,8 +1449,7 @@ BEGIN
                   || '> ORACLE error message = <'
                   || oracle_err_mes
                   || '>)';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1543,8 +1467,7 @@ BEGIN
       COMMIT;
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'E',
          'Het verschil tussen het aantal actieve personen met personeelsnummer en de te importeren/wijzigen aantallen is te groot, zie specificatie.',
             '* Max. aan wijzigingen toegestaan = ['
@@ -2069,13 +1992,11 @@ END;
 
 -- HOUT#15589 AutoClose repro-bestellingen noti-dagen na aanmaken.
 CREATE OR REPLACE PROCEDURE hout_select_autoclose (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /
 
@@ -2087,10 +2008,7 @@ AS
 /
 
 /* Formatted on 14-4-2010 16:58:22 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE hout_export_autoclose (p_applname   IN VARCHAR2,
-                                                   p_applrun    IN VARCHAR2,
-                                                   p_filedir    IN VARCHAR2,
-                                                   p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE hout_export_autoclose (p_import_key IN NUMBER)
 AS
 BEGIN
    UPDATE   bes_bestelopdr
diff --git a/IVET/ivet.sql b/IVET/ivet.sql
index af9f51c58..7aaf9de8a 100644
--- a/IVET/ivet.sql
+++ b/IVET/ivet.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific db-configuration for IVET.
 -- (c) 2010 SG|facilitor bv
--- $Revision: 12 $
--- $Modtime: 6-09-11 9:58 $
+-- $Revision: 13 $
+-- $Modtime: 20-02-12 11:51 $
 --
 -- Support: +31 53 4800700
 
@@ -17,14 +17,10 @@ AS
     WHERE imp_log_applicatie = 'PRS';
 
 /* Formatted on 20-1-2010 18:22:22 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE ivet_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE ivet_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij IVET_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -65,32 +61,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen'
-      );
-      COMMIT;
-   ELSE
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-
-      COMMIT;
-   END IF;
-
    DELETE FROM   ivet_imp_prs;
 
    COMMIT;
@@ -205,8 +178,7 @@ BEGIN
             THEN
                v_ongeldig := 1;
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'SAP-ID onbekend/te lang',
                   'SAP-ID is verplicht; regel wordt overgeslagen!'
@@ -222,8 +194,7 @@ BEGIN
             THEN
                v_pers_nr := SUBSTR (v_pers_nr, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Personeelsnummer te lang',
                      'Personeelsnummer wordt afgebroken tot ['
@@ -241,8 +212,7 @@ BEGIN
             THEN
                v_spin_id := SUBSTR (v_spin_id, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'SPIN-ID te lang',
                   'SPIN-ID wordt afgebroken tot [' || v_spin_id || ']'
@@ -258,8 +228,7 @@ BEGIN
             THEN
                v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Titel te lang',
                      'Titel wordt afgebroken tot ['
@@ -277,8 +246,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Naam te lang',
                   'Naam wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -289,8 +257,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Naam onbekend',
                      'Naam is verplicht; regel wordt overgeslagen!'
@@ -308,8 +275,7 @@ BEGIN
                v_prs_perslid_tussenvoegsel :=
                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Tussenvoegsel te lang',
                      'Tussenvoegsel wordt afgebroken tot ['
@@ -328,8 +294,7 @@ BEGIN
                v_prs_perslid_voorletters :=
                   SUBSTR (v_prs_perslid_voorletters, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voorletters te lang',
                      'Voorletters worden afgebroken tot ['
@@ -348,8 +313,7 @@ BEGIN
                v_prs_perslid_voornaam :=
                   SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam is te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -361,8 +325,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]');
@@ -378,8 +341,7 @@ BEGIN
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingscode te lang',
                      'Afdelingscode wordt afgebroken tot ['
@@ -392,8 +354,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Afdelingscode onbekend',
                      'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -411,8 +372,7 @@ BEGIN
                v_prs_afdeling_omschrijving :=
                   SUBSTR (v_prs_afdeling_omschrijving, 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingsomschrijving te lang',
                      'Afdelingsomschrijving wordt afgebroken tot ['
@@ -432,8 +392,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -446,8 +405,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Functie onbekend',
                      'Functie is verplicht; regel wordt overgeslagen!'
@@ -478,8 +436,7 @@ BEGIN
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Gebouwcode te lang',
                      'Aanduiding wordt afgebroken tot ['
@@ -508,8 +465,7 @@ BEGIN
             THEN
                v_alg_verdieping_code := SUBSTR (v_alg_verdieping_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Verdiepingcode te lang',
                      'Aanduiding wordt afgebroken tot ['
@@ -527,8 +483,7 @@ BEGIN
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Ruimtenummer te lang',
                      'Aanduiding wordt afgebroken tot ['
@@ -547,8 +502,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Telefoonnummer te lang',
                      'Telefoonnummer wordt afgebroken tot ['
@@ -566,8 +520,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'E-mailadres te lang',
                      'E-mailadres wordt afgebroken tot ['
@@ -585,8 +538,7 @@ BEGIN
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Loginnaam te lang',
                      'Loginnaam wordt afgebroken tot ['
@@ -618,8 +570,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -651,8 +602,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -725,8 +675,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!'
@@ -740,22 +689,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ongeldige importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -771,8 +717,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -781,11 +726,9 @@ END ivet_import_prs;
 /
 
 /* Formatted on 2-7-2010 13:30:30 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE ivet_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE ivet_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij IVET_IMPORT_PRS
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -800,7 +743,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -897,12 +839,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    -- Bepaal SAP-ID-match tussen Facilitor en RECENT importbestand ofwel het aantal
    -- actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -921,8 +857,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_nr IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage)))
    THEN
       -- Geldig importbestand wat betreft aantal personen
@@ -937,8 +872,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_omschrijving
@@ -976,8 +910,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met SAP-ID ['
                   || recdelprs.prs_perslid_nr
@@ -1013,8 +946,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met SAP-ID ['
                      || recdelprs.prs_perslid_nr
@@ -1035,8 +967,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met SAP-ID ['
                      || recdelprs.prs_perslid_nr
@@ -1062,8 +993,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1116,8 +1046,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1126,16 +1055,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1228,8 +1155,7 @@ BEGIN
                COMMIT;
             ELSE
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                   v_aanduiding || v_errorhint,
                   'Kostenplaats volgens afdeling bestaat niet!'
@@ -1246,8 +1172,7 @@ BEGIN
 
             IF v_count > 1
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errorhint,
                                  'Kan persoon niet 1-duidig bepalen!');
@@ -1338,8 +1263,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1348,16 +1272,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1412,8 +1334,7 @@ BEGIN
                 WHERE   alg_gebouw_upper = UPPER (recwp.alg_gebouw_code);
             ELSE                          -- Gebouw bestaat niet (of >1 keer)!
                v_gebouw_code := c_gebouw_code;
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  v_aanduiding || v_errorhint,
                                  'Kan gebouw niet (1-duidig) bepalen!');
@@ -1441,8 +1362,7 @@ BEGIN
 
                IF v_count = 0
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_aanduiding || v_errorhint,
                                     'Verdieping bestaat niet!');
@@ -1469,8 +1389,7 @@ BEGIN
 
                IF v_count = 0
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     v_aanduiding || v_errorhint,
                                     'Ruimte bestaat niet!');
@@ -1705,8 +1624,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1715,16 +1633,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1736,8 +1652,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met SAP-ID ['
                || recnowp.prs_perslid_nr
@@ -1760,8 +1675,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1806,8 +1720,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1828,16 +1741,14 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             ''
          );
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
diff --git a/LIBR/libr.sql b/LIBR/libr.sql
index ec33149a2..ca1b82aea 100644
--- a/LIBR/libr.sql
+++ b/LIBR/libr.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for Libr
 -- (c) 2008 SG|facilitor bv
--- $Revision: 8 $
--- $Modtime: 22-09-10 16:31 $
+-- $Revision: 9 $
+-- $Modtime: 20-02-12 11:52 $
 --
 -- Support: +31 53 4800700
 
@@ -18,14 +18,10 @@ AS
    WHERE imp_log_applicatie = 'PRS';
 
 /* Formatted on 8-3-2010 12:52:25 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE libr_import_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2,
-                                             p_filedir    IN VARCHAR2,
-                                             p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE libr_import_prs (p_import_key IN NUMBER)
 IS
    c_fielddelimitor                VARCHAR2 (1) := ';';
    -- LET OP: moet idem zijn als declaratie bij LIBR_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30) := 'Initiële import';
    v_newline                       VARCHAR2 (1000);              -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -60,30 +56,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT   COUNT ( * )
-     INTO   v_count
-     FROM   imp_log
-    WHERE   imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog (
-         p_applname,
-         p_applrun,
-         'I',
-         c_first_import,
-         'Controle importbestand op aantal personen wordt overgeslagen'
-      );
-      COMMIT;
-   ELSE
-      DELETE FROM   imp_log
-            WHERE   imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM   libr_imp_prs;
 
    COMMIT;
@@ -179,8 +154,7 @@ BEGIN
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Personeelsnummer te lang',
                      'Personeelsnummer wordt afgebroken tot ['
@@ -192,8 +166,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Personeelsnummer onbekend',
                      'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -211,8 +184,7 @@ BEGIN
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Naam te lang',
                   'Naam wordt afgebroken tot [' || v_prs_perslid_naam || ']'
@@ -222,8 +194,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Naam onbekend',
                      'Naam is verplicht; regel wordt overgeslagen!'
@@ -242,8 +213,7 @@ BEGIN
                v_prs_perslid_tussenvoegsel :=
                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Tussenvoegsel te lang',
                      'Tussenvoegsel wordt afgebroken tot ['
@@ -262,8 +232,7 @@ BEGIN
                v_prs_perslid_voorletters :=
                   SUBSTR (v_prs_perslid_voorletters, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voorletters te lang',
                      'Voorletters worden afgebroken tot ['
@@ -282,8 +251,7 @@ BEGIN
                v_prs_perslid_voornaam :=
                   SUBSTR (v_prs_perslid_voornaam, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Voornaam is te lang',
                      'Voornaam wordt afgebroken tot ['
@@ -294,8 +262,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]');
@@ -312,8 +279,7 @@ BEGIN
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Afdelingscode te lang',
                      'Afdelingscode wordt afgebroken tot ['
@@ -325,8 +291,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Afdelingscode onbekend',
                      'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -346,8 +311,7 @@ BEGIN
                v_prs_srtperslid_omschrijving :=
                   SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Functie te lang',
                      'Functie wordt afgebroken tot ['
@@ -359,8 +323,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || 'Functie onbekend',
                      'Functie is verplicht; regel wordt overgeslagen!'
@@ -383,8 +346,7 @@ BEGIN
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Locatiecode te lang',
                      'Locatiecode wordt afgebroken tot ['
@@ -407,8 +369,7 @@ BEGIN
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Gebouwcode te lang',
                      'Gebouwcode wordt afgebroken tot ['
@@ -427,8 +388,7 @@ BEGIN
                v_prs_perslid_telefoonnr :=
                   SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'Telefoonnummer te lang',
                      'Telefoonnummer wordt afgebroken tot ['
@@ -446,8 +406,7 @@ BEGIN
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || 'E-mailadres te lang',
                      'E-mailadres wordt afgebroken tot ['
@@ -479,8 +438,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -512,8 +470,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        'Regel wordt overgeslagen!');
@@ -578,8 +535,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Ingelezen regel kan niet worden weggeschreven!'
@@ -593,22 +549,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ingelezen regels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: aantal ongeldige importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -624,8 +577,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
          'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint);
@@ -634,11 +586,9 @@ END libr_import_prs;
 /
 
 /* Formatted on 8-3-2010 12:54:20 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE libr_update_prs (p_applname   IN VARCHAR2,
-                                             p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE libr_update_prs (p_import_key IN NUMBER)
 IS
    -- LET OP: moet idem zijn als declaratie bij LIBR_IMPORT_PRS
-   c_first_import           VARCHAR2 (30) := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30) := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10) := 20;
@@ -651,7 +601,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_import       NUMBER (10);     -- #actieve personen  na  import!
    v_count_prs_actual       NUMBER (10);     -- #actieve personen voor import!
    v_count_tot              NUMBER (10);
@@ -746,12 +695,6 @@ IS
                         FROM   fac_gebruikersgroep g
                        WHERE   g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT   COUNT ( * )
-     INTO   v_first_import_count
-     FROM   imp_log
-    WHERE   imp_log_omschrijving = c_first_import
-            AND imp_log_applicatie = p_applname;
-
    -- Bepaal personeelsnummer-match tussen Facilitor en RECENT importbestand ofwel
    -- het aantal actieve personen na import.
    -- RECENT betekent niet meer dan een kwartiertje oud (14,4 minuten); dit voorkomt
@@ -771,8 +714,7 @@ BEGIN
      FROM   prs_v_aanwezigperslid
     WHERE   prs_perslid_nr IS NOT NULL;
 
-   IF ( (v_first_import_count = 1)
-       OR (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF ( (TRUNC ( (v_count_prs_import / v_count_prs_actual) * 100) >=
               (100 - c_max_delta_percentage))
        )
    THEN
@@ -796,8 +738,7 @@ BEGIN
                 WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'I',
                      'Persoon met nummer ['
                   || recdelprs.prs_perslid_nr
@@ -831,8 +772,7 @@ BEGIN
                    WHERE   prs_perslid_key = recdelprs.prs_perslid_key;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -853,8 +793,7 @@ BEGIN
                            AND prs_perslid_oslogin IS NOT NULL;
 
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Persoon met nummer ['
                      || recdelprs.prs_perslid_nr
@@ -880,8 +819,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -935,8 +873,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -945,16 +882,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Functie: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1049,8 +984,7 @@ BEGIN
                IF (v_count > 1)
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || ' kan persoon niet 1-duidig bepalen',
                      v_errorhint
@@ -1098,8 +1032,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1108,16 +1041,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Persoon: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1323,8 +1254,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint);
@@ -1333,16 +1263,14 @@ BEGIN
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels zonder foutmelding: '
          || TO_CHAR (v_count_tot - v_count_error),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Werkplek: verwerkte regels met foutmelding: '
          || TO_CHAR (v_count_error),
@@ -1354,8 +1282,7 @@ BEGIN
       LOOP
          BEGIN
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'I',
                   'Persoon met nummer ['
                || recnowp.prs_perslid_nr
@@ -1378,8 +1305,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1425,8 +1351,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint);
@@ -1446,16 +1371,14 @@ BEGIN
       IF (v_count_prs_import = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'S',
             'Geen nieuw/recent bestand met te importeren personen aangetroffen!',
             ''
          );
       ELSE
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
                '- max. verschilpercentage = ['
diff --git a/Ling/ling.sql b/Ling/ling.sql
index 1fc465993..711ab683e 100644
--- a/Ling/ling.sql
+++ b/Ling/ling.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for Ling
 -- (c) 2008 SG|facilitor bv
--- $Revision: 4 $
--- $Modtime: 3-03-11 17:25 $
+-- $Revision: 5 $
+-- $Modtime: 20-02-12 11:26 $
 --
 -- Support: +31 53 4800700
 
@@ -18,15 +18,11 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE ling_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij LING_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30)   := 'Initiële import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -61,29 +57,14 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
    -- Eerst opruiming
    SELECT COUNT (*)
      INTO v_count
      FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
+    WHERE fac_import_key = p_import_key;
 
    DELETE FROM ling_imp_prs;
 
@@ -186,8 +167,7 @@ BEGIN
             THEN
                v_ongeldig := 1;
                fac.imp_writelog
-                       (p_applname,
-                        p_applrun,
+                       (p_import_key,
                         'E',
                         v_aanduiding || 'E-mailadres onbekend/te lang',
                         'E-mailadres is verplicht; regel wordt overgeslagen!'
@@ -202,8 +182,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -216,8 +195,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -234,8 +212,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -253,8 +230,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -272,8 +248,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -285,8 +260,7 @@ BEGIN
                IF (v_prs_perslid_voornaam IS NULL)
                THEN
                   v_prs_perslid_voornaam := '-';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || 'Voornaam onbekend',
                                     'Voornaam wordt gezet op [-]'
@@ -302,8 +276,7 @@ BEGIN
             IF LENGTH (v_prs_team_naam) > 60
             THEN
                v_prs_team_naam := SUBSTR (v_prs_team_naam, 1, 60);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Teamnaam te lang',
                                     'Teamnaam wordt afgebroken tot ['
@@ -316,8 +289,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Teamnaam onbekend',
                       'Teamnaam is verplicht; regel wordt overgeslagen!'
@@ -335,8 +307,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -349,8 +320,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -366,8 +336,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 5
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatiecode te lang',
                                     'Locatiecode wordt afgebroken tot ['
@@ -384,8 +353,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Aanduiding wordt afgebroken tot ['
@@ -406,8 +374,7 @@ BEGIN
                IF v_alg_verdieping_volgnr_n NOT BETWEEN -999 AND 999
                THEN
                   fac.imp_writelog
-                                 (p_applname,
-                                  p_applrun,
+                                 (p_import_key,
                                   'E',
                                   v_aanduiding || v_errorhint,
                                   'Geef een getal niet groter dan 3 posities'
@@ -427,8 +394,7 @@ BEGIN
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     'Regel wordt overgeslagen!'
@@ -443,8 +409,7 @@ BEGIN
             IF LENGTH (v_alg_ruimte_nr) > 10
             THEN
                v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Ruimtenummer te lang',
                                     'Aanduiding wordt afgebroken tot ['
@@ -462,8 +427,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -480,8 +444,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam te lang',
                                     'Loginnaam wordt afgebroken tot ['
@@ -535,8 +498,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -550,22 +512,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -581,8 +540,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -593,12 +551,10 @@ END ling_import_prs;
 
 
 CREATE OR REPLACE PROCEDURE ling_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    -- LET OP: moet idem zijn als declaratie bij LING_IMPORT_PRS
-   c_first_import           VARCHAR2 (30)   := 'Initiële import';
    c_persoon_inactief       VARCHAR2 (30)   := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een e-mail
    c_max_delta_percentage   NUMBER (10)     := 20;
@@ -611,7 +567,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_actual       NUMBER (10);
    v_count_prs_import       NUMBER (10);          -- Matching actual persons!
    v_count_tot              NUMBER (10);
@@ -694,12 +649,6 @@ IS
                            FROM fac_gebruikersgroep g
                           WHERE g.prs_perslid_key = p.prs_perslid_key);
 BEGIN
-   SELECT COUNT (*)
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-      AND imp_log_applicatie = p_applname;
-
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
      INTO v_count_prs_actual
      FROM prs_v_aanwezigperslid
@@ -711,8 +660,7 @@ BEGIN
     WHERE p.prs_perslid_email IS NOT NULL
       AND UPPER (p.prs_perslid_email) = UPPER (ip.prs_perslid_email);
 
-   IF (   (v_first_import_count = 1)
-       OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF (   (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
                                                (100 - c_max_delta_percentage
                                                )
           )
@@ -746,8 +694,7 @@ BEGIN
                   SET prs_perslid_verwijder = SYSDATE
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                     'Persoon met e-mail ['
                                  || recdelprs.prs_perslid_email
@@ -781,8 +728,7 @@ BEGIN
                          prs_perslid_oslogin = NULL
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met e-mail ['
                                     || recdelprs.prs_perslid_email
@@ -802,8 +748,7 @@ BEGIN
                    WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                      AND prs_perslid_oslogin IS NOT NULL;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met e-mail ['
                                     || recdelprs.prs_perslid_email
@@ -829,8 +774,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -887,8 +831,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -897,15 +840,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -955,8 +896,7 @@ BEGIN
 
             IF v_count > 1
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                     v_aanduiding
                                  || ' kan persoon niet 1-duidig bepalen',
@@ -1028,8 +968,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1038,15 +977,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1245,8 +1182,7 @@ BEGIN
             THEN
                v_count_error := v_count_error + 1;
                v_errormsg := 'Geen data gevonden';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1262,8 +1198,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1272,15 +1207,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1291,8 +1224,7 @@ BEGIN
       FOR recnowp IN cnowp
       LOOP
          BEGIN
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                                  'Persoon met e-mail ['
                               || recnowp.prs_perslid_email
@@ -1315,8 +1247,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1363,8 +1294,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1384,8 +1314,7 @@ BEGIN
       COMMIT;
    ELSE
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
              '- max. verschilpercentage = ['
diff --git a/NFIB/nfib.sql b/NFIB/nfib.sql
index 24438500c..ae559bfb8 100644
--- a/NFIB/nfib.sql
+++ b/NFIB/nfib.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for NFIB
 -- (c) 2011 SG|facilitor bv
--- $Revision: 6 $
--- $Modtime: 20-01-12 14:54 $
+-- $Revision: 7 $
+-- $Modtime: 20-02-12 11:32 $
 --
 -- Support: +31 53 4800710
 
@@ -365,20 +365,16 @@ AS
 
 
 --CREATE OR REPLACE PROCEDURE nfib_import_catalogus_prd (
---   p_applname   IN   VARCHAR2,
---   p_applrun    IN   VARCHAR2,
---   p_filedir    IN   VARCHAR2,
---   p_filename   IN   VARCHAR2
+--   p_import_key IN NUMBER
 --)
 --IS
 --BEGIN
---    fac_import_catalogus(p_applname, p_applrun, p_filedir, p_filename, NULL, NULL);
+--    fac_import_catalogus(p_import_key, p_filedir, p_filename, NULL, NULL);
 --END;
 --/
 
 --CREATE OR REPLACE PROCEDURE nfib_update_catalogus_prd (
---   p_applname   IN   VARCHAR2,
---   p_applrun    IN   VARCHAR2
+--   p_import_key IN NUMBER
 --)
 --IS
 --    CURSOR c_distinct_bedrijven
@@ -386,12 +382,12 @@ AS
 --      SELECT DISTINCT prs_bedrijf_key from fac_imp_catalogus;
 --
 --BEGIN
---   fac_update_catalogus(p_applname, p_applrun, NULL, NULL);
+--   fac_update_catalogus(p_import_key, NULL, NULL);
 --   
 --    FOR rec IN c_distinct_bedrijven
 --    LOOP
 --        BEGIN   
---            nfib_update_catalogus(p_applname, p_applrun, NULL, rec.prs_bedrijf_key);
+--            nfib_update_catalogus(p_import_key, NULL, rec.prs_bedrijf_key);
 --        END;
 --    END LOOP;
 --END;
@@ -399,8 +395,7 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE nfib_update_catalogus (
-   p_applname         IN VARCHAR2,
-   p_applrun          IN VARCHAR2,
+   p_import_key IN NUMBER,
    p_discipline_key   IN NUMBER,
    p_bedrijf_key   IN NUMBER
 )
@@ -602,8 +597,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               v_aanduiding || v_errormsg,
                               '');
@@ -623,8 +617,7 @@ BEGIN
                  || '/'
                  || oracle_err_mes
                  || ')';
-            fac.imp_writelog (p_applname,
-                            p_applrun,
+            fac.imp_writelog (p_import_key,
                             'E',
                             v_aanduiding || v_errormsg,
                             'Verwerken catalogus afgebroken!');
@@ -633,7 +626,7 @@ END;
 
 
 
-BEGIN adm.systrackscript('$Workfile: nfib.sql $', '$Revision: 6 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: nfib.sql $', '$Revision: 7 $', 0); END;
 /
 
 BEGIN fac.registercustversion('NFIB', 1); END;
diff --git a/NFIT/nfit.sql b/NFIT/nfit.sql
index d49bc042c..4c40cc9fb 100644
--- a/NFIT/nfit.sql
+++ b/NFIT/nfit.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for NFIT Nefit Buderus Deventer
 -- (c) 2010-2006 SG|facilitor bv
--- $Revision: 30 $
--- $Modtime: 16-05-11 14:48 $
+-- $Revision: 31 $
+-- $Modtime: 21-02-12 10:07 $
 --
 -- Support: +31 53 4800700
 
@@ -287,12 +287,9 @@ AS
    l_cnt NUMBER;
    lp_filename VARCHAR2 (200);
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname AND imp_log_datum < SYSDATE - 365; -- Logging blijft nu 1 jaar bewaard.
-
    l_cnt := 0;
    v_filehandle := UTL_FILE.fopen (p_filedir, p_filename, 'w');
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Export naar ' || p_filedir || '/' || lp_filename, '');
+   fac.writelog (p_applname, 'I', 'Export naar ' || p_filedir || '/' || lp_filename, '');
 
    FOR expregel IN exportregels
    LOOP
@@ -348,11 +345,11 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+            fac.writelog (p_applname, 'E', v_errormsg, '');
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Aantal geschreven records: ' || l_cnt, '');
+   fac.writelog (p_applname, 'I', 'Aantal geschreven records: ' || l_cnt, '');
    UTL_FILE.fclose (v_filehandle);                                                                         -- close file
    COMMIT;                                                                                          -- voor de zekerheid
 EXCEPTION
@@ -362,23 +359,22 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'UTL_FILE.INVALID_OPERATION (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Controleer bestandsnaam van importbestand');
+      fac.writelog (p_applname, 'E', v_errormsg, 'Controleer bestandsnaam van importbestand');
    WHEN UTL_FILE.invalid_filehandle
    THEN
       UTL_FILE.fclose (v_filehandle);
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'UTL_FILE.INVALID_FILEHANDLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
    WHEN UTL_FILE.invalid_path
    THEN
       UTL_FILE.fclose (v_filehandle);
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'UTL_FILE.INVALID_PATH (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (
+      fac.writelog (
          p_applname,
-         p_applrun,
          'E',
          v_errormsg,
          'Controleer directory van importbestand (init.ora bevat utl_file_dir setting om te beschrijven welke directories te gebruiken zijn'
@@ -389,14 +385,14 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'UTL_FILE.READ_ERROR (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
    WHEN OTHERS
    THEN
       UTL_FILE.fclose (v_filehandle);
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.writelog (p_applname, 'E', v_errormsg, '');
 END;
 /
 -- IMPORT NFIT#005
@@ -467,10 +463,7 @@ SELECT c.cnt_contract_key,
 
 -- Importeren leveranciersgegevens
 CREATE OR REPLACE PROCEDURE nfit_import_baan (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    v_filehandle       UTL_FILE.file_type;
@@ -500,10 +493,6 @@ AS
    header_is_valid             BOOLEAN;
    v_controle_res              VARCHAR2 (30);
 BEGIN
-   -- Clear my old logs
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    v_filehandle := UTL_FILE.fopen (p_filedir, p_filename, 'r');
    v_fielddelimitor := '|';
    header_is_valid := TRUE;  -- No header present
@@ -518,7 +507,7 @@ BEGIN
          THEN
             UTL_FILE.fclose (v_filehandle);
             -- EOF reached
-            fac.imp_writelog (p_applname, p_applrun, 'I', 'EOF reached', '');
+            fac.imp_writelog (p_import_key, 'I', 'EOF reached', '');
             EXIT;
          WHEN OTHERS
          THEN
@@ -527,7 +516,7 @@ BEGIN
             v_errormsg :=
                '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
       END;
 
       fac.imp_getfield (v_newline, v_fielddelimitor, v_bedrijfsnaam);
@@ -595,8 +584,7 @@ BEGIN
    IF (header_is_valid = FALSE)
    THEN
       fac.imp_writelog
-            (p_applname,
-             p_applrun,
+            (p_import_key,
              'E',
              'Invalid import file',
              'Er is geen geldige Header aangetroffen in het importbestand'
@@ -614,8 +602,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Controleer bestandsnaam van importbestand'
@@ -631,7 +618,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
    WHEN UTL_FILE.invalid_path
    THEN
       UTL_FILE.fclose (v_filehandle);
@@ -644,8 +631,7 @@ EXCEPTION
          || oracle_err_mes
          || ')';
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           v_errormsg,
           'Controleer directory van importbestand (init.ora bevat utl_file_dir setting om te beschrijven welke directories te gebruiken zijn'
@@ -661,7 +647,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
    WHEN OTHERS
    THEN
       UTL_FILE.fclose (v_filehandle);
@@ -669,13 +655,13 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
 END;
 /
 
 
 -- Updaten leveranciersgegevens
-CREATE OR REPLACE PROCEDURE nfit_update_baan (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE nfit_update_baan (p_import_key IN NUMBER)
 AS
    /*
    1. Technische documentatie: FSN#1426.doc (09-10-2006)
@@ -752,19 +738,13 @@ AS
    currentversion                  fac_module.fac_module_version%TYPE;
    l_validatie                     NUMBER;
 BEGIN
-   -- Clear my old logs
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname
-           AND imp_log_run <> p_applrun;
-   COMMIT;
-
    v_update := TRUE;
 
    SELECT MAX (fac_module_version)
      INTO currentversion
      FROM fac_module;
 
-   fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 30 $');
+   fac.imp_writelog (p_import_key, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 31 $');
 
    -- #Import
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))   -- DECODE ivm vermijden deling door 0
@@ -772,7 +752,7 @@ BEGIN
      FROM nfit_imp_baan;
 
    -- Informatieve logging, zien we gelijk hoe laat het was
-   fac.imp_writelog (p_applname, p_applrun, 'S', 'Aantal ingelezen crediteuren: ' || TO_CHAR (v_bedrijf_count_imp), '');
+   fac.imp_writelog (p_import_key, 'S', 'Aantal ingelezen crediteuren: ' || TO_CHAR (v_bedrijf_count_imp), '');
 
    -- #Actieve crediteuren
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))   -- DECODE ivm vermijden deling door 0
@@ -788,8 +768,7 @@ BEGIN
       AND ((v_bedrijf_count_imp = 1)
           OR (100 * ABS (v_bedrijf_count_imp - v_bedrijf_count_fclt) / v_bedrijf_count_fclt > c_maxvariation)))
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                            'Het verschil tussen de actieve crediteuren ('
                         || TO_CHAR (v_bedrijf_count_fclt)
@@ -823,7 +802,7 @@ BEGIN
          WHEN NO_DATA_FOUND
          THEN
             v_errorhint := 'kenmerk "Branchecode" aanmaken';
-            fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
 
             -- Kenmerk bestaat kennelijk niet, maak 'm maar aan
             INSERT INTO prs_kenmerk
@@ -854,7 +833,7 @@ BEGIN
          WHEN OTHERS
          THEN
             v_errorhint := 'kenmerk_key van kenmerk "Branchecode" kan niet bepaald worden';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
       END;
    END IF;
@@ -878,7 +857,7 @@ BEGIN
          WHEN NO_DATA_FOUND
          THEN
             v_errorhint := 'kenmerk "Betalingsconditie" aanmaken';
-            fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
 
             -- Kenmerk bestaat kennelijk niet, maak 'm maar aan
             INSERT INTO prs_kenmerk
@@ -909,7 +888,7 @@ BEGIN
          WHEN OTHERS
          THEN
             v_errorhint := 'kenmerk_key van kenmerk "Betalingsconditie" kan niet bepaald worden';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
       END;
    END IF;
@@ -933,7 +912,7 @@ BEGIN
          WHEN NO_DATA_FOUND
          THEN
             v_errorhint := 'kenmerk "Taal" aanmaken';
-            fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
 
             -- Kenmerk bestaat kennelijk niet, maak 'm maar aan
             INSERT INTO prs_kenmerk
@@ -964,7 +943,7 @@ BEGIN
          WHEN OTHERS
          THEN
             v_errorhint := 'kenmerk_key van kenmerk "Taal" kan niet bepaald worden';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
       END;
    END IF;
@@ -987,8 +966,7 @@ BEGIN
             AND prs_bedrijf_naam NOT LIKE 'INACTIEF:%';
          COMMIT;
 
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'C',
                            'Bedrijf als INACTIEF gemarkeerd of was al INACTIEF, bedrijfscode: ' || rec_bedr_del.prs_bedrijf_naam,
                            ''
@@ -999,7 +977,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -1031,7 +1009,7 @@ BEGIN
          IF v_update AND rec_bedr_upd.prs_leverancier_nr IS NULL
          THEN
             v_errorhint := 'Bedrijf heeft geen prs_leverancier_nr; bedrijfsnaam: ' || rec_bedr_upd.prs_bedrijf_naam;
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -1042,7 +1020,7 @@ BEGIN
                         || rec_bedr_upd.prs_bedrijf_naam
                         || '/'
                         || rec_bedr_upd.prs_leverancier_nr;
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -1095,8 +1073,7 @@ BEGIN
                               );
                   COMMIT;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'C',
                                     'Nieuw bedrijf toegevoegd',
                                        'bedrijfsnaam/leveranciersnummer: '
@@ -1160,8 +1137,7 @@ BEGIN
                          ); */
                   COMMIT;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'C',
                                     'Bedrijven bijgewerkt (indien nodig)',
                                        'bedrijfsnaam/leveranciersnummer: '
@@ -1184,7 +1160,7 @@ BEGIN
                               || '/'
                               || rec_bedr_upd.prs_leverancier_nr;
                   v_update := FALSE;
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             END;
          END IF;
 
@@ -1248,8 +1224,7 @@ BEGIN
                      COMMIT;
                   END IF;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'C',
                                     'Nieuwe kenmerken toegevoegd (indien waarde aanwezig) ',
                                        'bedrijfsnaam/leveranciersnummer: '
@@ -1446,7 +1421,7 @@ BEGIN
                               || rec_bedr_upd.prs_leverancier_nr;
 
                   v_update := FALSE;
-                  fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
             END;
          END IF;
 
@@ -1464,7 +1439,7 @@ BEGIN
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errorhint := v_errorhint || ' {' || v_errormsg || '}';
             v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -1474,8 +1449,7 @@ BEGIN
     WHERE prs_bedrijf_verwijder IS NULL
     AND prs_bedrijf_naam NOT LIKE 'INACTIEF:%';
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'S',
                         'Aantal actieve crediteuren vooraf: '
                      || TO_CHAR (v_bedrijf_count_fclt)
@@ -1491,7 +1465,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errorhint := v_errorhint || ' {' || v_errormsg || '}';
       v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
diff --git a/RWSN/Once/rwsnDB14to15.sql b/RWSN/Once/rwsnDB14to15.sql
new file mode 100644
index 000000000..e070895be
--- /dev/null
+++ b/RWSN/Once/rwsnDB14to15.sql
@@ -0,0 +1,25 @@
+-- Customer specific once-script RWSN39.
+--
+-- (c) 2011 SG|facilitor bv 
+-- $Revision: 1 $ 
+-- $Modtime: 16-02-12 7:45 $
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL xrwsnDB14to15.lst
+SET DEFINE OFF
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#22517
+ALTER TABLE rwsn_imp_didstatusmulti DROP COLUMN imp_log_run;
+ALTER TABLE rwsn_imp_isdmstatusmulti DROP COLUMN imp_log_run;
+
+ALTER TABLE rwsn_imp_didstatusmulti ADD (fac_import_key NUMBER(10));
+ALTER TABLE rwsn_imp_isdmstatusmulti ADD (fac_import_key NUMBER(10));
+
+BEGIN adm.systrackscript('$Workfile: rwsnDB14to15.sql $', '$Revision: 1 $', 1); END;
+/
+
+SPOOL OFF
+
+@rwsn.sql
diff --git a/RWSN/rwsn.sql b/RWSN/rwsn.sql
index e14e9162d..60c331a4f 100644
--- a/RWSN/rwsn.sql
+++ b/RWSN/rwsn.sql
@@ -1,8 +1,8 @@
 -- Script containing customer specific configuration sql statements
 -- for RWSN: Rijkswaterstaat Nederland
 -- (c) 2008-2010 SG|Facilitor bv
--- $Revision: 132 $
--- $Modtime: 10-02-12 14:45 $
+-- $Revision: 133 $
+-- $Modtime: 21-02-12 10:32 $
 --
 -- Support: +31 53 4800700
 
@@ -128,17 +128,14 @@ AS
 -------------------------------------------------------------------------------
 /* Formatted on 17/09/2008 15:13 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE rwsn_import_idm_org (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
    v_newline          VARCHAR2 (1000);                                                                   -- Import line
@@ -155,10 +152,6 @@ AS
    header_found       BOOLEAN;
    v_controle_res     VARCHAR2 (30);
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -174,11 +167,10 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = ''
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
-                              'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
+                              'Bestand heeft onbehandeld UTF-8 formaat.'
                              );
             v_newline := SUBSTR (v_newline, 4);
          END IF;
@@ -216,11 +208,10 @@ BEGIN
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig IDM_ORG importbestand.'
+                        'Bestand is geen geldig IDM_ORG importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -229,7 +220,7 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM rwsn_imp_idm_org;
 END;
@@ -237,8 +228,7 @@ END;
 
 
 /* Formatted on 13-9-2011 10:25:52 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_update_idm_org (p_applname   IN VARCHAR2,
-                                                 p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_idm_org (p_import_key IN NUMBER)
 AS
    -- Let op:
    -- De afdelingsboom is N levels diep
@@ -321,11 +311,10 @@ AS
 BEGIN
    SELECT   MAX (fac_module_version) INTO currentversion FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Facilitor IDM_ORG import version ' || currentversion,
-                     '$Revision: 132 $');
+                     '$Revision: 133 $');
 
    -- How many active/passive records are imported?
    SELECT   COUNT ( * )
@@ -352,8 +341,7 @@ BEGIN
    -- Check #regels, stop als onvoldoende (= bestaand maar ongeldig bestand)
    IF l_impcountact + l_impcountpas = 0
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Het importbestand is ongeldig. Import afgebroken.',
                         '');
@@ -371,8 +359,7 @@ BEGIN
       WHEN NO_DATA_FOUND
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'E',
             'Afdelingskenmerk VERVALDATUM niet gedefinieerd. Import afgebroken.',
             ''
@@ -432,8 +419,7 @@ BEGIN
             THEN
                oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   SUBSTR (
                      'Kostenplaats kan niet worden toegevoegd. '
@@ -516,8 +502,7 @@ BEGIN
                   RETURNING   prs_afdeling_key      INTO   lafdelingkey;
                END IF;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  'Afdeling is toegevoegd.',
                                  rc.afdelingscode || '/' || rc.omschrijving);
@@ -526,8 +511,7 @@ BEGIN
                THEN
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      SUBSTR (
                         'Afdeling kan niet worden toegevoegd. '
@@ -607,8 +591,7 @@ BEGIN
                   OR l_new_parentkey <> l_cur_parentkey
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'I',
                         'Afdeling is omgehangen naar level='
                      || TO_CHAR (rc.fac_lev)
@@ -623,8 +606,7 @@ BEGIN
                THEN
                   oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      SUBSTR (
                         'Afdeling kan niet worden bijgewerkt '
@@ -774,8 +756,7 @@ BEGIN
     WHERE   prs_afdeling_verwijder IS NULL;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Aantal afdelingen/kostenplaatsen in importbestand: '
       || TO_CHAR (l_impcountact)
@@ -786,8 +767,7 @@ BEGIN
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Aantal kostenplaatsen vooraf: '
       || TO_CHAR (l_oldcountkp)
@@ -796,8 +776,7 @@ BEGIN
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Aantal kostenplaatsen vervallen: '
       || TO_CHAR (l_vervcountkp)
@@ -806,8 +785,7 @@ BEGIN
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Aantal afdelingen vooraf: '
       || TO_CHAR (l_oldcountafd)
@@ -816,8 +794,7 @@ BEGIN
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Aantal afdelingen vervallen: '
       || TO_CHAR (l_vervcountafd)
@@ -832,8 +809,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
       v_errormsg :=
          'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg || 'Import afgebroken.',
                         '');
@@ -845,25 +821,25 @@ END;
 -------------------------------------------------------------------------------
 -- IMPORTFUNCTIES - IDM_PERS
 -------------------------------------------------------------------------------
---AanmeldNaam	                    duijkersm
---E-mailAdres	                    mart.duijkers@rws.nl
+--AanmeldNaam	                      duijkersm
+--E-mailAdres	                      mart.duijkers@rws.nl
 --RoepNaam	                        Mart
 --VoorNamen	                        Martinus
---Voorletters	                    M.G.A.
+--Voorletters	                      M.G.A.
 --GeslachtsNaam	                    Duijkers
 --GeslachtsNaamVoorvoegsel
 --PartnerGeslachtsNaam
 --PartnerGeslachtsNaamVoorvoegsel
 --NaamGegevens	                    Dhr. ing. M.G.A. Duijkers
 --AanduidingNaamGebruik	            5
---TelefoonNummer	                070-4281611
+--TelefoonNummer	                  070-4281611
 --TelefoonNummerBgg	                070-4271655
 --MobielNummer	                    06-10340945
 --AcademischeTitelsVoor	            ing.
 --AcademischeTitelsNa
---BurgerServiceNummer	            14021067
+--BurgerServiceNummer	              14021067
 --FunctieOmschrijving
---FormatieplaatsOmschrijving	    Adviseur / Specialistisch Medewerker
+--FormatieplaatsOmschrijving	      Adviseur / Specialistisch Medewerker
 --DatumIngangGeldigheid	            20060101
 --DatumEindeGeldigheid	            99991231
 --OrganisatieEenheidCode            60008460
@@ -876,17 +852,18 @@ END;
 --BezoekAdresPlaats                 Delft
 
 CREATE OR REPLACE PROCEDURE rwsn_import_idm_pers (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
+--   p_applname   IN   VARCHAR2,
+--   p_applrun    IN   VARCHAR2,
+--   p_filedir    IN   VARCHAR2,
+--   p_filename   IN   VARCHAR2
 )
 AS
    CURSOR c_cursor
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 
    v_newline                   VARCHAR2 (1000);                                                          -- Import line
@@ -932,10 +909,6 @@ AS
    --
    header_found                BOOLEAN;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
-
    -- Init
    header_found := FALSE;
    v_fielddelimitor := ';';
@@ -951,11 +924,10 @@ BEGIN
          IF SUBSTR (v_newline, 1, 3) = ''
          THEN
             -- EF BB BF aangetroffen
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               'Byte Order Mark aangetroffen',
-                              'Bestand ' || p_filename || ' heeft onbehandeld UTF-8 formaat.'
+                              'Bestand  heeft onbehandeld UTF-8 formaat.'
                              );
             v_newline := SUBSTR (v_newline, 4);
          END IF;
@@ -1055,17 +1027,16 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       END;
    END LOOP;
 
    IF NOT header_found
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Geen geldige header aangetroffen',
-                        'Bestand ' || p_filename || ' is geen geldig IDM_PERS importbestand.'
+                        'Bestand is geen geldig IDM_PERS importbestand.'
                        );
    END IF;
 EXCEPTION
@@ -1074,7 +1045,7 @@ EXCEPTION
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname, p_applrun, 'E', SUBSTR (v_errormsg, 1, 1000), '');
+      fac.imp_writelog (p_import_key, 'E', SUBSTR (v_errormsg, 1, 1000), '');
       -- maak de importtabel leeg om te voorkomen dat er halve bestanden ingelezen worden.
       DELETE FROM rwsn_imp_idm_pers;
 END;
@@ -1082,7 +1053,7 @@ END;
 
 
 /* Formatted on 25/09/2008 01:30 (Formatter Plus v4.8.7) */
-CREATE OR REPLACE PROCEDURE rwsn_update_idm_pers (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_idm_pers (p_import_key IN NUMBER)
 AS
    /*  Globale werking:
        Op basis van het IDM importbestand
@@ -1325,7 +1296,7 @@ AS
       IF pgebouwkey = -1
       THEN
          lv_errorhint := 'Onbekend gebouw voor persoon: ' || lpersid;
-         fac.imp_writelog (p_applname, p_applrun, 'W', lv_errormsg, lv_errorhint);
+         fac.imp_writelog (p_import_key, 'W', lv_errormsg, lv_errorhint);
          RETURN;
       END IF;
 
@@ -1347,7 +1318,7 @@ AS
       THEN
          -- nieuwe werkplek bestaat al als een van de werkplekken.
          lv_errorhint := 'Ongewijzigd gebouw voor persoon: ' || lpersid;
-         fac.imp_writelog (p_applname, p_applrun, 'I', lv_errormsg, lv_errorhint);
+         fac.imp_writelog (p_import_key, 'I', lv_errormsg, lv_errorhint);
          RETURN;
       END IF;
 
@@ -1490,7 +1461,7 @@ AS
                         )
                  VALUES (rc.adres_naam, rc.adres_bezoek_adres, rc.adres_bezoek_postcode, rc.adres_bezoek_plaats, 1);
 
-            fac.imp_writelog (p_applname, p_applrun, 'I', 'Adres is toegevoegd', rc.adres_naam);
+            fac.imp_writelog (p_import_key, 'I', 'Adres is toegevoegd', rc.adres_naam);
          END IF;
       END LOOP;
 
@@ -1571,19 +1542,14 @@ AS
 ----------------------
 ----------------------
 BEGIN
-   -- Logs vorige import verwijderen
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname AND imp_log_run <> p_applrun;
-
    SELECT MAX (fac_module_version)
      INTO currentversion
      FROM fac_module;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
+   fac.imp_writelog (p_import_key,
                      'I',
                      'Facilitor IDM_PERS import version ' || currentversion,
-                     '$Revision: 132 $'
+                     '$Revision: 133 $'
                     );
 
 --   -- #Import
@@ -1592,7 +1558,7 @@ BEGIN
      FROM rwsn_imp_idm_pers;
 
    -- Informatieve logging, zien we gelijk hoe laat het was
-   fac.imp_writelog (p_applname, p_applrun, 'S', 'Aantal ingelezen personen: ' || TO_CHAR (v_perslid_count_imp), '');
+   fac.imp_writelog (p_import_key, 'S', 'Aantal ingelezen personen: ' || TO_CHAR (v_perslid_count_imp), '');
 
    -- #Actieve personen mèt personeelsnummer
    SELECT COUNT (*)
@@ -1603,7 +1569,7 @@ BEGIN
    -- Check het aantal regels, stop als onvoldoende (=bestaand maar ongeldig bestand)
    IF v_perslid_count_imp = 0
    THEN
-      fac.imp_writelog (p_applname, p_applrun, 'E', 'Het importbestand is ongeldig. Import afgebroken', '');
+      fac.imp_writelog (p_import_key, 'E', 'Het importbestand is ongeldig. Import afgebroken', '');
       RETURN;
    END IF;
 
@@ -1638,8 +1604,7 @@ BEGIN
             DELETE FROM prs_kenmerklink
                   WHERE prs_link_key = v_perslid_key AND prs_kenmerklink_niveau = 'P';
 
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                               'Persoon verwijderd, personeelsnummer: ' || rec_prs_del.prs_perslid_authenticatie,
                               ''
@@ -1658,8 +1623,7 @@ BEGIN
                       prs_perslid_oslogin = NULL
                 WHERE prs_perslid_key = v_perslid_key AND prs_perslid_naam NOT LIKE 'INACTIEF:%';
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                  'Persoon als INACTIEF gemarkeerd, personeelsnummer: ' || rec_prs_del.prs_perslid_authenticatie,
                                  ''
@@ -1671,8 +1635,7 @@ BEGIN
                      SET prs_perslid_verwijder = SYSDATE
                    WHERE prs_perslid_key = v_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Persoon geinactiveerd, personeelsnummer: ' || rec_prs_del.prs_perslid_authenticatie,
                                     ''
@@ -1686,7 +1649,7 @@ BEGIN
                         || TO_CHAR (v_count)
                         || ') verplichtingen; personeelsnummer: '
                         || rec_prs_del.prs_perslid_authenticatie;
-                     fac.imp_writelog (p_applname, p_applrun, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
+                     fac.imp_writelog (p_import_key, 'I', 'Inactiveren persoon is niet gelukt', v_errorhint);
                END;
             END IF;
          END IF;
@@ -1696,7 +1659,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
             v_errormsg := 'Delete exception ' || oracle_err_mes;
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -1718,7 +1681,7 @@ BEGIN
          IF rec_prs_upd.personeelsnummer IS NULL
          THEN
             v_errorhint := 'Persoon heeft geen BSN; achternaam: ' || rec_prs_upd.prs_perslid_naam;
-            fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -1726,7 +1689,7 @@ BEGIN
          IF v_update AND rec_prs_upd.prs_perslid_naam IS NULL
          THEN
             v_errorhint := 'Persoon heeft geen achternaam; personeelsnummer: ' || rec_prs_upd.personeelsnummer;
-            fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
             v_update := FALSE;
          END IF;
 
@@ -1747,7 +1710,7 @@ BEGIN
                   -- Waarde(n) gevonden: Er is al een actieve persoon met dezelfde prs_perslid_authenticatie gevonden: Niet updaten!!!
                   --v_errormsg := 'Persoon hoeft niet gereactiveerd te worden; prs_perslid_authenticatie: ' || rec_prs_upd.personeelsnummer;
                   --v_errorhint := 'Er bestaat al een persoon met dezelfde BSN die actief is, GEEN ACTIE NODIG; BSN: ' || rec_prs_upd.personeelsnummer;
-                  --fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+                  --fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
                   v_update := FALSE;
                ELSE
                   -- Kennelijk is er geen persoon gevonden met dezelfde prs_perslid_authenticatie
@@ -1755,7 +1718,7 @@ BEGIN
                   -- v_update := TRUE;
                   v_errormsg := 'Persoon reactiveren; prs_perslid_authenticatie: ' || rec_prs_upd.personeelsnummer;
                   v_errorhint := 'ACTIE wordt ondernomen; BSN: ' || rec_prs_upd.personeelsnummer;
-                  fac.imp_writelog (p_applname, p_applrun, 'I', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'I', v_errormsg, v_errorhint);
                END IF;
             EXCEPTION
                WHEN OTHERS
@@ -1789,12 +1752,12 @@ BEGIN
                      || ' bestaat niet, persoon: '
                      || rec_prs_upd.personeelsnummer;
                   -- Kennelijk is de afdeling niet gevonden
-                  fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
                WHEN OTHERS
                THEN
                   v_update := FALSE;
                   v_errorhint := 'Kan Afdeling ' || rec_prs_upd.prs_afdeling_naam || ' niet eenduidig bepalen?!';
-                  fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
             END;
          END IF;
 
@@ -1814,8 +1777,7 @@ BEGIN
             EXCEPTION
                WHEN NO_DATA_FOUND
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Functie ' || v_srtperslid_omschr || ' toegevoegd',
                                     v_errorhint
@@ -1897,8 +1859,7 @@ BEGIN
                     -- Opgem. naam  Mevr. T. de Haan
                     lnaampresentatie := rec_prs_upd.prs_perslid_naam;
                     ltussenvoegselpres := rec_prs_upd.prs_perslid_tussenvoegsel;
-                    fac.imp_writelog (p_applname,
-                                      p_applrun,
+                    fac.imp_writelog (p_import_key,
                                       'W',
                                          'Ongedefinieerd naamformattering (AanduidingNaamGebruik) '
                                       || rec_prs_upd.aanduidingnaamgebruik,
@@ -1960,8 +1921,7 @@ BEGIN
                     RETURNING prs_perslid_key
                          INTO v_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                     'Nieuw persoon toegevoegd',
                                        'Naam/BSN: '
@@ -2021,7 +1981,7 @@ BEGIN
                   v_errormsg := v_errormsg || ' - ' || oracle_err_mes;
                   v_errorhint := 'Persoon: ' || rec_prs_upd.personeelsnummer;
                   v_update := FALSE;
-                  fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+                  fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
             END;
          END IF;
 
@@ -2220,7 +2180,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := 'Local exception ' || oracle_err_mes;
-            fac.imp_writelog (p_applname, p_applrun, 'W', v_errormsg, v_errorhint);
+            fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
       END;
    END LOOP;
 
@@ -2229,34 +2189,32 @@ BEGIN
      FROM prs_perslid
     WHERE prs_perslid_authenticatie IS NOT NULL AND prs_perslid_verwijder IS NULL;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                        'Aantal actieve personen (met personeelsnr) vooraf: '
-                     || TO_CHAR (v_perslid_count_fclt)
-                     || '  nu: '
-                     || TO_CHAR (v_perslid_newcount_fclt),
-                     ''
-                    );
+   fac.imp_writelog (p_import_key,
+                         'S',
+                            'Aantal actieve personen (met personeelsnr) vooraf: '
+                         || TO_CHAR (v_perslid_count_fclt)
+                         || '  nu: '
+                         || TO_CHAR (v_perslid_newcount_fclt),
+                         ''
+                        );
 
    SELECT COUNT (*)
      INTO v_perslid_newcount_fclt                                                                            -- misbruik
      FROM prs_perslid
     WHERE prs_perslid_authenticatie IS NULL AND prs_perslid_verwijder IS NULL;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                     'Aantal actieve personen zonder personeelsnr: ' || TO_CHAR (v_perslid_newcount_fclt),
-                     ''
-                    );
+   fac.imp_writelog (p_import_key,
+                         'S',
+                         'Aantal actieve personen zonder personeelsnr: ' || TO_CHAR (v_perslid_newcount_fclt),
+                         ''
+                        );
 EXCEPTION
    WHEN OTHERS
    THEN
       oracle_err_num := SQLCODE;
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg := 'Global exception ' || oracle_err_mes;
-      fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
+      fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
 END;
 /
 
@@ -2520,7 +2478,7 @@ BEGIN
                      oracle_err_num := SQLCODE;
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                      v_errormsg := 'Exception ' || oracle_err_mes;
-                     fac.imp_writelog (
+                     fac.writelog (
                         p_applname,
                         p_applrun,
                         'E',
@@ -2593,7 +2551,7 @@ BEGIN
                      oracle_err_num := SQLCODE;
                      oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
                      v_errormsg := 'Exception ' || oracle_err_mes;
-                     fac.imp_writelog (
+                     fac.writelog (
                         p_applname,
                         p_applrun,
                         'E',
@@ -2632,7 +2590,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := 'Exception ' || oracle_err_mes;
-            fac.imp_writelog (
+            fac.writelog (
                p_applname,
                p_applrun,
                'E',
@@ -2846,7 +2804,7 @@ BEGIN
             oracle_err_num := SQLCODE;
             oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
             v_errormsg := 'Exception ' || oracle_err_mes;
-            fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Toevoegen notificatie');
+            fac.writelog (p_applname, p_applrun, 'E', v_errormsg, 'Toevoegen notificatie');
             COMMIT;
       END;
    END LOOP;
@@ -8760,9 +8718,7 @@ CREATE OR REPLACE PROCEDURE rwsn_select_did_opdr (p_applname   IN VARCHAR2,
                                                   p_applrun    IN VARCHAR2)
 AS
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname
-                 AND imp_log_datum < SYSDATE - 28;
+   NULL;
 END;
 /
 
@@ -9090,11 +9046,11 @@ AS
 
       IF (v_budgethouder_key = -1)
       THEN
-         fac.imp_writelog (p_applname,
-                           p_applrun,
-                           'I',
-                           v_aanduiding || 'Budgethouder ongedefinieerd.',
-                           '');
+         fac.writelog (p_applname,
+                       p_applrun,
+                       'I',
+                       v_aanduiding || 'Budgethouder ongedefinieerd.',
+                       '');
          COMMIT;
       END IF;
 
@@ -9306,11 +9262,11 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
-                                 'E',
-                                 v_aanduiding || v_errormsg,
-                                 '');
+               fac.writelog (p_applname,
+                             p_applrun,
+                             'E',
+                             v_aanduiding || v_errormsg,
+                             '');
                COMMIT;
          END;
       ELSE                                      -- Samengestelde ICT aanvraag!
@@ -9461,11 +9417,11 @@ AS
                      || '/'
                      || oracle_err_mes
                      || ')';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
-                                    'E',
-                                    v_aanduiding || v_errormsg,
-                                    '');
+                  fac.writelog (p_applname,
+                                p_applrun,
+                                'E',
+                                v_aanduiding || v_errormsg,
+                                '');
                   COMMIT;
             END;
          END LOOP;
@@ -9636,7 +9592,7 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog (
+   fac.writelog (
       p_applname,
       p_applrun,
       'S',
@@ -9786,21 +9742,18 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        v_aanduiding || v_errormsg,
-                        '');
+      fac.writelog (p_applname,
+                    p_applrun,
+                    'E',
+                    v_aanduiding || v_errormsg,
+                    '');
       COMMIT;
 END;
 /
 
 -- Multi variant voor automatische import via gen_import van DID statusberichten.
 /* Formatted on 11-1-2011 18:00:50 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_import_did_status (p_applname   IN VARCHAR2,
-                                                    p_applrun    IN VARCHAR2,
-                                                    p_filedir    IN VARCHAR2,
-                                                    p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_import_did_status (p_import_key IN NUMBER)
 AS
    c_delim                 VARCHAR2 (1) := ';';
    v_newline               VARCHAR2 (1000);                      -- Input line
@@ -9827,16 +9780,11 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname
-                 AND imp_log_datum < SYSDATE - 28;
-
    DELETE FROM   rwsn_imp_didstatusmulti
-         WHERE   imp_log_run <> p_applrun;
+         WHERE   fac_import_key <> p_import_key;
 
    COMMIT;
 
@@ -9887,8 +9835,7 @@ BEGIN
             IF (v_opdrachtnr IS NULL)
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Opdrachtnummer verplicht; regel wordt overgeslagen!'
@@ -9904,8 +9851,7 @@ BEGIN
                 AND COALESCE (v_msg_type, 'XXX') != 'AFM')
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Mutatiecode ongeldig; regel wordt overgeslagen!'
@@ -9921,8 +9867,7 @@ BEGIN
                                   'yyyy-mm-dd hh24:mi:ss') IS NULL)
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                   'Mutatietijdstip ongeldig; regel wordt overgeslagen!'
@@ -9957,8 +9902,7 @@ BEGIN
                                      'yyyy-mm-dd hh24:mi:ss') IS NULL)
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                    p_import_key,
                      'W',
                      v_aanduiding || v_errormsg,
                      'Einddatum ongeldig; datum wordt niet bijgewerkt!'
@@ -9978,7 +9922,7 @@ BEGIN
                   v_errormsg := 'Fout toevoegen didstatus';
 
                   INSERT INTO rwsn_imp_didstatusmulti (
-                                                          imp_log_run,
+                                                          fac_import_key,
                                                           imp_log_timestamp,
                                                           msg_type,
                                                           opdrachtnr,
@@ -9987,7 +9931,7 @@ BEGIN
                                                           mld_einddatum
                              )
                     VALUES   (
-                                 p_applrun,
+                                 p_import_key,
                                  v_imp_log_timestamp_d,
                                  SUBSTR (v_msg_type, 1, 30),
                                  SUBSTR (v_opdrachtnr, 1, 15),
@@ -10010,8 +9954,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                       p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Fout bij toevoegen regel aan importtabel RWSN_IMP_DIDSTATUSMULTI.'
@@ -10024,23 +9967,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inleesproces: aantal ingelezen importregels: '
          || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inleesproces: aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -10049,7 +9989,7 @@ BEGIN
    END IF;
 
    DELETE FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname;
+         WHERE   fac_import_key = p_import_key;
 
    COMMIT;
 EXCEPTION
@@ -10064,8 +10004,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Inleesproces DID statusberichten afgebroken!');
@@ -10073,8 +10012,7 @@ END;
 /
 
 /* Formatted on 12-1-2011 13:00:00 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_update_did_status (p_applname   IN VARCHAR2,
-                                                    p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_did_status (p_import_key IN NUMBER)
 AS
    -- Cursor loopt - in volgorde! - over alle ingelezen DID statusberichten.
    CURSOR c1
@@ -10095,7 +10033,7 @@ AS
                     mld_info,
                  mld_einddatum
           FROM   rwsn_imp_didstatusmulti
-         WHERE   imp_log_run = p_applrun
+         WHERE   fac_import_key = p_import_key
       ORDER BY   1, 2 DESC, 3;
 
    c_externnr_kenmerk_key   NUMBER (10) := 1577;
@@ -10235,8 +10173,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Fout bij verwerken DID statusbericht.');
@@ -10244,8 +10181,7 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key IN NUMBER,
       'S',
          'Proces: '
       || TO_CHAR (v_count_tot)
@@ -11299,9 +11235,7 @@ CREATE OR REPLACE PROCEDURE rwsn_select_isdm_opdr (p_applname   IN VARCHAR2,
                                                    p_applrun    IN VARCHAR2)
 AS
 BEGIN
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname
-                 AND imp_log_datum < SYSDATE - 28;
+   NULL;
 END;
 /
 
@@ -11487,11 +11421,11 @@ AS
             || '/'
             || oracle_err_mes
             || ')';
-         fac.imp_writelog (p_applname,
-                           p_applrun,
-                           'E',
-                           v_aanduiding || v_errormsg,
-                           '');
+         fac.writelog (p_applname,
+                       p_applrun,
+                       'E',
+                       v_aanduiding || v_errormsg,
+                       '');
          COMMIT;
    END;
 BEGIN
@@ -11557,7 +11491,7 @@ BEGIN
       END;
    END LOOP;
 
-   fac.imp_writelog (
+   fac.writelog (
       p_applname,
       p_applrun,
       'S',
@@ -11571,10 +11505,7 @@ END;
 -- Multi variant voor automatische import via gen_import van ISDM statusberichten.
 /* Formatted on 9-12-2009 17:40:00 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE rwsn_import_isdm_status (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    c_delim           VARCHAR2 (1) := ';';
@@ -11604,16 +11535,11 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname
-                 AND imp_log_datum < SYSDATE - 28;
-
    DELETE FROM   rwsn_imp_isdmstatusmulti
-         WHERE   imp_log_run <> p_applrun;
+         WHERE   fac_import_key = p_import_key;
 
    COMMIT;
 
@@ -11689,8 +11615,7 @@ BEGIN
                   v_mld_prio_n := fac.safe_to_number (v_mld_prio);
                ELSE
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      v_aanduiding || v_errormsg,
                      'Waarde mld_prio ongeldig; regel wordt overgeslagen!'
@@ -11709,8 +11634,7 @@ BEGIN
                                      'dd-mm-yyyy hh24:mi:ss') IS NULL)
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      v_aanduiding || v_errormsg,
                      'Waarde mld_einddatum ongeldig; regel wordt overgeslagen!'
@@ -11730,8 +11654,7 @@ BEGIN
                   v_mld_status_n := 6;
                ELSE
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      v_aanduiding || v_errormsg,
                      'Waarde mld_status ongeldig; regel wordt overgeslagen!'
@@ -11751,7 +11674,7 @@ BEGIN
                   v_errormsg := 'Fout toevoegen isdmstatus';
 
                   INSERT INTO rwsn_imp_isdmstatusmulti (
-                                                           imp_log_run,
+                                                           fac_import_key,
                                                            imp_log_timestamp,
                                                            msg_type,
                                                            opdrachtnr,
@@ -11763,7 +11686,7 @@ BEGIN
                                                            mld_voortgang
                              )
                     VALUES   (
-                                 p_applrun,
+                                 p_import_key,
                                  SYSDATE,
                                  SUBSTR (v_msg_type, 1, 30),
                                  SUBSTR (v_opdrachtnr, 1, 15),
@@ -11790,8 +11713,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Fout bij toevoegen regel aan importtabel RWSN_IMP_ISDMSTATUSMULTI.'
@@ -11804,23 +11726,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inleesproces: aantal ingelezen importregels: '
          || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Inleesproces: aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -11829,7 +11748,7 @@ BEGIN
    END IF;
 
    DELETE FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname;
+         WHERE   fac_import_key = p_import_key;
 
    COMMIT;
 EXCEPTION
@@ -11844,8 +11763,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Inleesproces ISDM statusberichten afgebroken!');
@@ -11854,8 +11772,7 @@ END;
 
 /* Formatted on 7-10-2011 13:42:24 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE rwsn_update_isdm_status (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    -- Cursor loopt - in volgorde! - over alle ingelezen ISDM statusberichten.
@@ -11870,7 +11787,7 @@ AS
                  mld_einddatum,
                  mld_status
           FROM   rwsn_imp_isdmstatusmulti
-         WHERE   imp_log_run = p_applrun
+         WHERE   fac_import_key = p_import_key
       ORDER BY   msg_type, mld_info;
 
    v_errormsg       VARCHAR2 (1000);
@@ -12161,8 +12078,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Fout bij verwerken ISDM statusbericht.');
@@ -12170,8 +12086,7 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
          'Proces: '
       || TO_CHAR (v_count_tot)
@@ -12183,10 +12098,7 @@ END;
 /
 
 /* Formatted on 12-5-2011 9:52:00 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_import_usrdata (p_applname   IN VARCHAR2,
-                                                 p_applrun    IN VARCHAR2,
-                                                 p_filedir    IN VARCHAR2,
-                                                 p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_import_usrdata (p_import_key IN NUMBER)
 IS
    c_delim                       VARCHAR2 (1) := ';';
    v_newline                     VARCHAR2 (1000);                -- Input line
@@ -12214,13 +12126,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   rwsn_imp_usrdata;
 
    v_count_tot := 0;
@@ -12268,8 +12176,7 @@ BEGIN
             IF v_fac_usrtab_naam IS NULL OR LENGTH (v_fac_usrtab_naam) > 16
             THEN
                v_ongeldig := 1;
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || v_errormsg,
                                  'Regel wordt overgeslagen!');
@@ -12282,8 +12189,7 @@ BEGIN
             IF v_fac_usrdata_code IS NULL OR LENGTH (v_fac_usrdata_code) > 40
             THEN
                v_ongeldig := 1;
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || v_errormsg,
                                  'Regel wordt overgeslagen!');
@@ -12298,8 +12204,7 @@ BEGIN
                v_fac_usrdata_omschr :=
                   SUBSTR (TRIM (v_fac_usrdata_omschr), 1, 60);
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   v_aanduiding || v_errormsg,
                      'Waarde-omschrijving wordt afgebroken tot ['
@@ -12318,8 +12223,7 @@ BEGIN
                IF (fac.safe_to_number (v_fac_usrdata_volgnr) IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     'Regel wordt overgeslagen!');
@@ -12339,8 +12243,7 @@ BEGIN
                IF (fac.safe_to_number (v_fac_usrdata_prijs) IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     'Regel wordt overgeslagen!');
@@ -12360,8 +12263,7 @@ BEGIN
                IF (fac.safe_to_date (v_fac_usrdata_vervaldatum, 'dd-mm-yyyy') IS NULL)
                THEN
                   v_ongeldig := 1;
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'W',
                                     v_aanduiding || v_errormsg,
                                     'Regel wordt overgeslagen!');
@@ -12404,8 +12306,7 @@ BEGIN
                         || '/'
                         || oracle_err_mes
                         || ')';
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'E',
                                        v_aanduiding || v_errormsg,
                                        '');
@@ -12419,23 +12320,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Eigen tabellen/aantal ingelezen importregels: '
          || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Eigen tabellen/aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -12456,8 +12354,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Inleesproces eigen tabellen afgebroken!');
@@ -12465,8 +12362,7 @@ END rwsn_import_usrdata;
 /
 
 /* Formatted on 7-3-2011 11:52:52 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_update_usrdata (p_applname   IN VARCHAR2,
-                                                 p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_usrdata (p_import_key IN NUMBER)
 AS
    -- Cursor loopt over de voorkomende (unieke) tabelnamen.
    CURSOR c1
@@ -12478,8 +12374,7 @@ AS
    oracle_err_mes   VARCHAR2 (200);
 
    -- SUBPROC
-   PROCEDURE add_tabel (p_applname   IN VARCHAR2,
-                        p_applrun    IN VARCHAR2,
+   PROCEDURE add_tabel (p_import_key IN NUMBER,
                         p_tabname    IN VARCHAR2)
    AS
       CURSOR c1
@@ -12591,8 +12486,7 @@ AS
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  '');
@@ -12601,15 +12495,13 @@ AS
       END LOOP;
 
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          p_tabname || ': #ingelezen = ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          p_tabname || ': #toegevoegd/bijgewerkt = ' || TO_CHAR (v_count_upd),
          ''
@@ -12623,7 +12515,7 @@ BEGIN
    FOR rec IN c1
    LOOP
       BEGIN
-         add_tabel (p_applname, p_applrun, rec.fac_usrtab_naam);
+         add_tabel (p_import_key, rec.fac_usrtab_naam);
       END;
    END LOOP;
 EXCEPTION
@@ -12638,8 +12530,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Importproces eigen tabellen afgebroken!');
@@ -12648,10 +12539,7 @@ END rwsn_update_usrdata;
 
 /* Formatted on 28-6-2010 11:12:28 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE rwsn_import_budgethouders (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_delim               VARCHAR2 (1) := ';';
@@ -12672,13 +12560,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   rwsn_imp_budgethouders;
 
    COMMIT;
@@ -12715,8 +12599,7 @@ BEGIN
          IF v_prs_afdeling_naam IS NULL OR LENGTH (v_prs_afdeling_naam) > 10
          THEN
             v_ongeldig := 1;
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               v_aanduiding || v_errormsg,
                               'Regel wordt overgeslagen!');
@@ -12729,8 +12612,7 @@ BEGIN
          IF v_prs_perslid_key IS NULL OR LENGTH (v_prs_perslid_key) > 10
          THEN
             v_ongeldig := 1;
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               v_aanduiding || v_errormsg,
                               'Regel wordt overgeslagen!');
@@ -12762,8 +12644,7 @@ BEGIN
                      || oracle_err_mes
                      || ')';
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || v_errormsg,
                      ''
@@ -12777,23 +12658,20 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Budgethouders/aantal ingelezen importregels: '
          || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Budgethouders/aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -12814,8 +12692,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Inleesproces budgethouders afgebroken!');
@@ -12824,8 +12701,7 @@ END rwsn_import_budgethouders;
 
 /* Formatted on 12-1-2011 11:44:55 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE rwsn_update_budgethouders (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    -- Cursor loopt over de voorkomende diensten.
@@ -12896,8 +12772,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Importproces budgethouders afgebroken!');
@@ -12984,10 +12859,7 @@ AS
             ON x.prs_afdeling_key = z3.afd_key;
 
 /* Formatted on 10-1-2011 12:54:26 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_import_ictcp (p_applname   IN VARCHAR2,
-                                               p_applrun    IN VARCHAR2,
-                                               p_filedir    IN VARCHAR2,
-                                               p_filename   IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_import_ictcp (p_import_key IN NUMBER)
 IS
    c_delim               VARCHAR2 (1) := ';';
    v_newline             VARCHAR2 (1000);                        -- Input line
@@ -13012,13 +12884,9 @@ IS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
    DELETE FROM   rwsn_imp_ictcp;
 
    COMMIT;
@@ -13071,8 +12939,7 @@ BEGIN
          IF v_prs_afdeling_naam IS NULL OR LENGTH (v_prs_afdeling_naam) > 10
          THEN
             v_ongeldig := 1;
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'W',
                               v_aanduiding || v_errormsg,
                               'Regel wordt overgeslagen!');
@@ -13086,8 +12953,7 @@ BEGIN
          THEN
             v_ictcp1_email := SUBSTR (v_ictcp1_email, 1, 200);
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'W',
                v_aanduiding || v_errormsg,
                'ICTCP1-email wordt afgebroken tot [' || v_ictcp1_email || ']'
@@ -13102,8 +12968,7 @@ BEGIN
          THEN
             v_ictcp2_email := SUBSTR (v_ictcp2_email, 1, 200);
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'W',
                v_aanduiding || v_errormsg,
                'ICTCP2-email wordt afgebroken tot [' || v_ictcp2_email || ']'
@@ -13118,8 +12983,7 @@ BEGIN
          THEN
             v_ictcp3_email := SUBSTR (v_ictcp3_email, 1, 200);
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'W',
                v_aanduiding || v_errormsg,
                'ICTCP3-email wordt afgebroken tot [' || v_ictcp3_email || ']'
@@ -13152,8 +13016,7 @@ BEGIN
                      || oracle_err_mes
                      || ')';
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'E',
                      v_aanduiding || v_errormsg,
                      'Fout bij toevoegen regel aan importtabel RWSN_IMP_ICTCP.'
@@ -13167,22 +13030,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!');
    ELSE
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'ICT-CP: Aantal ingelezen importregels: ' || TO_CHAR (v_count_tot),
          ''
       );
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'ICT-CP: Aantal ongeldige niet ingelezen importregels: '
          || TO_CHAR (v_count_tot - v_count_import),
@@ -13201,8 +13061,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         'Inleesproces ICT-CP afgebroken!');
@@ -13210,8 +13069,7 @@ END rwsn_import_ictcp;
 /
 
 /* Formatted on 12-1-2011 12:22:22 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_update_ictcp (p_applname   IN VARCHAR2,
-                                               p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_ictcp (p_import_key IN NUMBER)
 AS
    -- Cursor loopt over de voorkomende afdelingen.
    CURSOR c1
@@ -13250,8 +13108,7 @@ AS
       IF (v_update != 1 AND p_ictcp_email IS NOT NULL)
       THEN
          -- Niets doen; eventuele ICT-CPx van deze afdeling ongewijzigd!
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'W',
                            v_aanduiding || v_errormsg,
                            'Kan ICT-CP niet 1-duidig bepalen!');
@@ -13374,8 +13231,7 @@ AS
             || '/'
             || oracle_err_mes
             || ')';
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'E',
                            v_aanduiding || v_errormsg,
                            'Importregel niet volledig verwerkt!');
@@ -13397,8 +13253,7 @@ BEGIN
       IF (v_count != 1)
       THEN
          -- Niets doen!
-         fac.imp_writelog (p_applname,
-                           p_applrun,
+         fac.imp_writelog (p_import_key,
                            'W',
                            v_aanduiding || v_errormsg,
                            'Kan afdeling niet 1-duidig bepalen!');
@@ -13421,8 +13276,7 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'ICT-CP: Aantal verwerkte importregels: ' || TO_CHAR (v_count_upd),
       ''
@@ -13439,8 +13293,7 @@ EXCEPTION
          || '/'
          || oracle_err_mes
          || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         'Importproces ICT-CP afgebroken!');
@@ -13450,10 +13303,7 @@ END rwsn_update_ictcp;
 
 -- import van relaties uit het IKD
 CREATE OR REPLACE PROCEDURE rwsn_import_partners (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    c_delim           VARCHAR2 (1) := ';';
@@ -13486,14 +13336,9 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
- --                AND imp_log_datum < SYSDATE - 28;
-
    DELETE FROM   rwsn_imp_partners;
 
    COMMIT;
@@ -13620,8 +13465,7 @@ BEGIN
                || oracle_err_mes
                || ')';
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'E',
                v_errormsg,
                v_errorhint
@@ -13630,16 +13474,14 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Inleesproces: aantal ingelezen importregels: '
       || TO_CHAR (v_count_tot),
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Inleesproces: aantal ongeldige niet ingelezen importregels: '
       || TO_CHAR (v_count_tot - v_count_import),
@@ -13655,8 +13497,7 @@ EXCEPTION
       v_errorhint := 'Inleesproces IKD partners afgebroken! partner:' || v_aanduiding || ' [' || v_errormsg || ']';
       v_errormsg :=
          'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         v_errorhint);
@@ -13665,8 +13506,7 @@ END;
 
 
 CREATE OR REPLACE PROCEDURE rwsn_update_partners (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    -- Cursor loopt - in volgorde! - over alle ingelezen partners.
@@ -13718,8 +13558,7 @@ BEGIN
      FROM rwsn_imp_partners;
 
    IF v_count = 0 THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'W',
                         'Fout bij inlezen partners bestand.', 'Geen inportbestand gevonden.');
 
@@ -13776,8 +13615,7 @@ BEGIN
             v_errorhint := 'Fout bij toevoegen partner! partner:' || v_aanduiding || ' [' || v_errormsg || ']';
             v_errormsg :=
                'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_errorhint);
@@ -13813,8 +13651,7 @@ BEGIN
             v_errorhint := 'Fout bij toevoegen partner! partner:' || v_aanduiding || ' [' || v_errormsg || ']';
             v_errormsg :=
                'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_errorhint);
@@ -13826,10 +13663,7 @@ END;
 
 -- import van contracts uit het IKD
 CREATE OR REPLACE PROCEDURE rwsn_import_contracts (
-   p_applname   IN VARCHAR2,
-   p_applrun    IN VARCHAR2,
-   p_filedir    IN VARCHAR2,
-   p_filename   IN VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
    c_delim           VARCHAR2 (1) := ';';
@@ -13871,14 +13705,9 @@ AS
    IS
         SELECT   *
           FROM   fac_imp_file
-         WHERE   fac_imp_file_applicatie = p_applname
+         WHERE   fac_import_key = p_import_key
       ORDER BY   fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
---                 AND imp_log_datum < SYSDATE - 28;
-
    DELETE FROM   rwsn_imp_contracts;
 
    COMMIT;
@@ -14040,8 +13869,7 @@ BEGIN
                || oracle_err_mes
                || ')';
             fac.imp_writelog (
-               p_applname,
-               p_applrun,
+               p_import_key,
                'E',
                v_errormsg,
                v_errorhint
@@ -14050,16 +13878,14 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Inleesproces: aantal ingelezen importregels: '
       || TO_CHAR (v_count_tot),
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Inleesproces: aantal ongeldige niet ingelezen importregels: '
       || TO_CHAR (v_count_tot - v_count_import),
@@ -14075,8 +13901,7 @@ EXCEPTION
       v_errorhint := 'Inleesproces IKD contracts afgebroken! contract: ' || v_aanduiding || ' [' || v_errormsg || ']';
       v_errormsg :=
          'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         v_errorhint);
@@ -14085,8 +13910,7 @@ END;
 
 
 /* Formatted on 29-3-2011 18:24:30 (QP5 v5.115.810.9015) */
-CREATE OR REPLACE PROCEDURE rwsn_update_contracts (p_applname   IN VARCHAR2,
-                                                   p_applrun    IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE rwsn_update_contracts (p_import_key IN NUMBER)
 AS
    -- Cursor loopt - in volgorde! - alleen over de ingelezen contracten mbt.
    -- inkoopsegmenten die zijn gedefinieerd in Eigen tabel 781!
@@ -14318,8 +14142,7 @@ BEGIN
             WHEN NO_DATA_FOUND
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   'Waarschuwing bij contract ' || v_aanduiding || '.',
                      'Beheerder '
@@ -14365,8 +14188,7 @@ BEGIN
             WHEN NO_DATA_FOUND
             THEN
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   'Waarschuwing bij contract ' || v_aanduiding || '.',
                      'Eigenaar '
@@ -14392,8 +14214,7 @@ BEGIN
                WHEN NO_DATA_FOUND
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      'Kan contract ' || v_aanduiding || ' niet aanmaken.',
                         'NOK-uitvoerder '
@@ -14417,8 +14238,7 @@ BEGIN
                WHEN NO_DATA_FOUND
                THEN
                   fac.imp_writelog (
-                     p_applname,
-                     p_applrun,
+                     p_import_key,
                      'W',
                      'Kan contract ' || v_aanduiding || ' niet aanmaken.',
                         'ROK-uitvoerder '
@@ -14457,8 +14277,7 @@ BEGIN
                   WHEN NO_DATA_FOUND
                   THEN
                      fac.imp_writelog (
-                        p_applname,
-                        p_applrun,
+                        p_import_key,
                         'W',
                            'Kan contract '
                         || v_aanduiding
@@ -14470,8 +14289,7 @@ BEGIN
                END;
             ELSE
                fac.imp_writelog (
-                  p_applname,
-                  p_applrun,
+                  p_import_key,
                   'W',
                   'Kan contract ' || v_aanduiding || ' niet aanmaken.',
                   'Een ROK mag niet verwijzen naar een andere ROK!'
@@ -14749,8 +14567,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_errorhint);
@@ -14760,16 +14577,14 @@ BEGIN
    END LOOP;
 
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Updateproces: aantal verwerkte updateregels: '
       || TO_CHAR (v_count_tot),
       ''
    );
    fac.imp_writelog (
-      p_applname,
-      p_applrun,
+      p_import_key,
       'S',
       'Updateproces: aantal ongeldige niet verwerkte updateregels: '
       || TO_CHAR (v_count_tot - v_count_chg),
@@ -14811,8 +14626,7 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'E',
                               v_errormsg,
                               v_errorhint);
@@ -14822,8 +14636,7 @@ BEGIN
    IF (v_count_tot > 0)
    THEN
       fac.imp_writelog (
-         p_applname,
-         p_applrun,
+         p_import_key,
          'S',
          'Updateproces: aantal verwijderde lege mantels: '
          || TO_CHAR (v_count_tot),
@@ -14844,8 +14657,7 @@ EXCEPTION
          || ']';
       v_errormsg :=
          'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_errormsg,
                         v_errorhint);
@@ -14857,21 +14669,20 @@ END;
 CREATE OR REPLACE VIEW rwsn_v_rap_imp_log
 (
    fclt_f_applicatie,
-   run,
    datum,
    fclt_f_status,
    omschrijving,
    hint
 )
 AS
-   SELECT   imp_log_applicatie,
-            imp_log_run,
-            imp_log_datum,
-            imp_log_status,
-            imp_log_omschrijving,
-            imp_log_hint
-     FROM   imp_log;
-
+   SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
+          imp_log_datum,
+          imp_log_status,
+          imp_log_omschrijving,
+          imp_log_hint
+     FROM imp_log il, fac_import fi, fac_import_app fia
+    WHERE il.fac_import_key = fi.fac_import_key(+)
+          AND fi.fac_import_app_key = fia.fac_import_app_key(+);
 
 create or replace view rwsn_v_afd_hierarchie as
         select boom.prs_afdeling_key4 as prs_afdeling_key, boom.prs_afdeling_key5 as prs_afdeling_childkey
@@ -15486,12 +15297,14 @@ CREATE OR REPLACE VIEW rwsn_v_imp_log
    hint
 )
 AS
-   SELECT   imp_log_applicatie,
-            imp_log_datum,
-            imp_log_status,
-            imp_log_omschrijving,
-            imp_log_hint
-     FROM   imp_log;
+   SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
+          imp_log_datum,
+          imp_log_status,
+          imp_log_omschrijving,
+          imp_log_hint
+     FROM imp_log il, fac_import fi, fac_import_app fia
+    WHERE il.fac_import_key = fi.fac_import_key(+)
+          AND fi.fac_import_app_key = fia.fac_import_app_key(+);
 
 -- Dummy export NACHT_WERK!
 /* Formatted on 29-11-2010 16:25:20 (QP5 v5.115.810.9015) */
@@ -15857,12 +15670,6 @@ AS
    oracle_err_mes   VARCHAR2 (200);
    v_count          NUMBER;
 BEGIN
-   -- Clear log
-   DELETE FROM   imp_log
-         WHERE   imp_log_applicatie = p_applname;
-
-   COMMIT;
-
    v_count := 0;
 
    -- CUST05-noti op geplande einddatum (nav. adviesgesprek).
@@ -15896,20 +15703,20 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
-                              'E',
-                              v_errormsg,
-                              '');
+            fac.writelog (p_applname,
+                          p_applrun,
+                          'E',
+                          v_errormsg,
+                          '');
             COMMIT;
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                     'Aantal cust05-noti meldingen: ' || TO_CHAR (v_count),
-                     '');
+   fac.writelog (p_applname,
+                 p_applrun,
+                 'S',
+                 'Aantal cust05-noti meldingen: ' || TO_CHAR (v_count),
+                 '');
 
    COMMIT;
 
@@ -15943,20 +15750,20 @@ BEGIN
                || '/'
                || oracle_err_mes
                || ')';
-            fac.imp_writelog (p_applname,
-                              p_applrun,
-                              'E',
-                              v_errormsg,
-                              '');
+            fac.writelog (p_applname,
+                          p_applrun,
+                          'E',
+                          v_errormsg,
+                          '');
             COMMIT;
       END;
    END LOOP;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                     'Aantal auto-afmeld meldingen: ' || TO_CHAR (v_count),
-                     '');
+   fac.writelog (p_applname,
+                 p_applrun,
+                 'S',
+                 'Aantal auto-afmeld meldingen: ' || TO_CHAR (v_count),
+                 '');
 
    COMMIT;
 
@@ -16045,11 +15852,11 @@ BEGIN
 
    SELECT   COUNT ( * ) INTO v_count FROM rwsn_mld_freeze;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                     'Aantal bevroren MLD-regels: ' || TO_CHAR (v_count),
-                     '');
+   fac.writelog (p_applname,
+                 p_applrun,
+                 'S',
+                 'Aantal bevroren MLD-regels: ' || TO_CHAR (v_count),
+                 '');
 
    COMMIT;
 
@@ -16091,11 +15898,11 @@ BEGIN
 
    SELECT   COUNT ( * ) INTO v_count FROM rwsn_opdr_freeze;
 
-   fac.imp_writelog (p_applname,
-                     p_applrun,
-                     'S',
-                     'Aantal bevroren OPDR-regels: ' || TO_CHAR (v_count),
-                     '');
+   fac.writelog (p_applname,
+                 p_applrun,
+                 'S',
+                 'Aantal bevroren OPDR-regels: ' || TO_CHAR (v_count),
+                 '');
 
    COMMIT;
 EXCEPTION
@@ -16105,11 +15912,11 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
       v_errormsg :=
          'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
-                        'E',
-                        'Proces NACHT_WERK afgebroken!',
-                        v_errormsg);
+      fac.writelog (p_applname,
+                    p_applrun,
+                    'E',
+                    'Proces NACHT_WERK afgebroken!',
+                    v_errormsg);
       COMMIT;
 END;
 /
@@ -16513,7 +16320,7 @@ AS
                  WHERE   cn.prs_perslid_key = p.prs_perslid_key) notitie
             ON basis.cnt_contract_key = notitie.cnt_contract_key;
 
-BEGIN adm.systrackscript('$Workfile: rwsn.sql $', '$Revision: 132 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: rwsn.sql $', '$Revision: 133 $', 0); END;
 /
 BEGIN fac.registercustversion('RWSN', 41); END;
 /
diff --git a/SKAF/skaf.sql b/SKAF/skaf.sql
index 48ccaeb2b..2548c9696 100644
--- a/SKAF/skaf.sql
+++ b/SKAF/skaf.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for SKAF
 -- (c) 2009 SG|facilitor bv
--- $Revision: 13 $
--- $Modtime: 29-12-11 16:23 $
+-- $Revision: 14 $
+-- $Modtime: 20-02-12 13:24 $
 --
 -- Support: +31 53 4800710
 
@@ -19,15 +19,11 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE skaf_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij skaf_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30)   := 'Initiele import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -61,30 +57,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT (*)
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM skaf_imp_prs;
 
    COMMIT;
@@ -172,8 +147,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Personeelsnummer te lang',
                                     'Personeelsnummer wordt afgebroken tot ['
@@ -185,8 +159,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Personeelsnummer onbekend',
                       'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -202,8 +175,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -215,8 +187,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -233,8 +204,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -252,8 +222,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -271,8 +240,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -284,8 +252,7 @@ BEGIN
                THEN
                   v_prs_perslid_voornaam := '-';
                   fac.imp_writelog
-                          (p_applname,
-                           p_applrun,
+                          (p_import_key,
                            'W',
                            v_aanduiding || 'Voornaam onbekend',
                            'Voornaam wordt gezet op [-]'
@@ -301,8 +268,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode te lang',
                                     'Afdelingscode wordt afgebroken tot ['
@@ -314,8 +280,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Afdelingscode onbekend',
                       'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -332,8 +297,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -345,8 +309,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -362,8 +325,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 5
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatiecode te lang',
                                     'Locatiecode wordt afgebroken tot ['
@@ -380,8 +342,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Gebouwcode wordt afgebroken tot ['
@@ -399,8 +360,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -417,8 +377,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 50
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'E-mailadres te lang',
                                     'E-mailadres wordt afgebroken tot ['
@@ -436,8 +395,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam te lang',
                                     'Loginnaam wordt afgebroken tot ['
@@ -454,8 +412,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_wachtwoord) > 30
             THEN
                v_prs_perslid_wachtwoord := SUBSTR (v_prs_perslid_wachtwoord, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Wachtwoord te lang',
                                     'Wachtwoord wordt afgebroken tot ['
@@ -512,8 +469,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -527,22 +483,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -557,8 +510,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -569,12 +521,10 @@ END skaf_import_prs;
 
 
 CREATE OR REPLACE PROCEDURE skaf_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    -- LET OP: moet idem zijn als declaratie bij SKAF_IMPORT_PRS
-   c_first_import           VARCHAR2 (30)   := 'Initiele import';
    c_persoon_inactief       VARCHAR2 (30)   := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10)     := 20;
@@ -589,7 +539,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_actual       NUMBER (10);
    v_count_prs_import       NUMBER (10);          -- Matching actual persons!
    v_count_tot              NUMBER (10);
@@ -669,12 +618,6 @@ IS
 
 
 BEGIN
-   SELECT COUNT (*)
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-      AND imp_log_applicatie = p_applname;
-
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
      INTO v_count_prs_actual
      FROM prs_perslid
@@ -687,8 +630,7 @@ BEGIN
       AND p.prs_perslid_verwijder IS NULL
       AND p.prs_perslid_nr = ip.prs_perslid_nr;
 
-   IF (   (v_first_import_count = 1)
-       OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF (   (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
                                                (100 - c_max_delta_percentage
                                                )
           )
@@ -713,8 +655,7 @@ BEGIN
                   SET prs_perslid_verwijder = SYSDATE
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                     'Persoon met nummer ['
                                  || recdelprs.prs_perslid_nr
@@ -748,8 +689,7 @@ BEGIN
                          prs_perslid_oslogin = NULL
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -769,8 +709,7 @@ BEGIN
                    WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                      AND prs_perslid_oslogin IS NOT NULL;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -795,8 +734,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -845,8 +783,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -855,15 +792,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -956,8 +891,7 @@ BEGIN
             ELSE
                IF (v_count > 1)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                        v_aanduiding
                                     || ' kan persoon niet 1-duidig bepalen',
@@ -998,8 +932,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1008,15 +941,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1217,8 +1148,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1227,15 +1157,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1246,8 +1174,7 @@ BEGIN
       FOR recnowp IN cnowp
       LOOP
          BEGIN
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                                  'Persoon met nummer ['
                               || recnowp.prs_perslid_nr
@@ -1270,8 +1197,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1320,8 +1246,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1333,8 +1258,7 @@ BEGIN
 
    ELSE
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
              '- max. verschilpercentage = ['
@@ -2040,24 +1964,20 @@ END;
 
 
 
-CREATE OR REPLACE PROCEDURE skaf_import_factuur (p_applname   IN VARCHAR2,
-                                                p_applrun    IN VARCHAR2,
-                                                p_filedir    IN VARCHAR2,
-                                                p_filename   IN VARCHAR2
-                                               )
+CREATE OR REPLACE PROCEDURE skaf_import_factuur (p_import_key IN NUMBER)
 AS
     v_seq_of_columns VARCHAR(50);
 BEGIN
     v_seq_of_columns := '0;1;2;3;0;0;4;0;5;7;6;8';
-    fac_import_factuur_body(p_applname, p_applrun, p_filedir, p_filename, v_seq_of_columns);
+    fac_import_factuur_body(p_import_key, p_filedir, p_filename, v_seq_of_columns);
 END;
 /
 
 
-CREATE OR REPLACE PROCEDURE skaf_update_factuur (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
+CREATE OR REPLACE PROCEDURE skaf_update_factuur (p_import_key IN NUMBER)
 AS
 BEGIN
-   fac_update_factuur (p_applname, p_applrun);
+   fac_update_factuur (p_import_key);
 END;
 /
 
@@ -2110,7 +2030,7 @@ AS
                  
 
 
-BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 13 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 14 $', 0); END;
 /
 
 BEGIN fac.registercustversion('SKAF', 9); END;
diff --git a/SUTF/sutf.sql b/SUTF/sutf.sql
index 7752b7f31..a00de911a 100644
--- a/SUTF/sutf.sql
+++ b/SUTF/sutf.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for SUTF
 -- (c) 2010 SG|facilitor bv
--- $Revision: 5 $
--- $Modtime: 26-01-12 15:43 $
+-- $Revision: 6 $
+-- $Modtime: 20-02-12 13:27 $
 --
 -- Support: +31 53 4800700
 
@@ -19,15 +19,11 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE sutf_import_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor                VARCHAR2 (1)    := ';';
    -- LET OP: moet idem zijn als declaratie bij sutf_UPDATE_PRS
-   c_first_import                  VARCHAR2 (30)   := 'Initiele import';
    v_newline                       VARCHAR2 (1000);             -- Input line
    v_aanduiding                    VARCHAR2 (200);
    v_errorhint                     VARCHAR2 (1000);
@@ -60,30 +56,9 @@ IS
    IS
       SELECT   *
           FROM fac_imp_file
-         WHERE fac_imp_file_applicatie = p_applname
+         WHERE fac_import_key = p_import_key
       ORDER BY fac_imp_file_index;
 BEGIN
-   -- Eerst opruiming
-   SELECT COUNT (*)
-     INTO v_count
-     FROM imp_log
-    WHERE imp_log_applicatie = p_applname;
-
-   IF (v_count = 0)
-   THEN
-      fac.imp_writelog
-              (p_applname,
-               p_applrun,
-               'I',
-               c_first_import,
-               'Controle importbestand op aantal personen wordt overgeslagen'
-              );
-      COMMIT;
-   ELSE
-      DELETE FROM imp_log
-            WHERE imp_log_applicatie = p_applname;
-   END IF;
-
    DELETE FROM sutf_imp_prs;
 
    COMMIT;
@@ -168,8 +143,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_nr) > 16
             THEN
                v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Personeelsnummer te lang',
                                     'Personeelsnummer wordt afgebroken tot ['
@@ -181,8 +155,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Personeelsnummer onbekend',
                       'Personeelsnummer is verplicht; regel wordt overgeslagen!'
@@ -198,8 +171,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_naam) > 30
             THEN
                v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Naam te lang',
                                     'Naam wordt afgebroken tot ['
@@ -211,8 +183,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                              (p_applname,
-                               p_applrun,
+                              (p_import_key,
                                'E',
                                v_aanduiding || 'Naam onbekend',
                                'Naam is verplicht; regel wordt overgeslagen!'
@@ -229,8 +200,7 @@ BEGIN
             THEN
                v_prs_perslid_tussenvoegsel :=
                                   SUBSTR (v_prs_perslid_tussenvoegsel, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Tussenvoegsel te lang',
                                     'Tussenvoegsel wordt afgebroken tot ['
@@ -248,8 +218,7 @@ BEGIN
             THEN
                v_prs_perslid_voorletters :=
                                     SUBSTR (v_prs_perslid_voorletters, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voorletters te lang',
                                     'Voorletters worden afgebroken tot ['
@@ -267,8 +236,7 @@ BEGIN
             THEN
                v_prs_perslid_voornaam :=
                                        SUBSTR (v_prs_perslid_voornaam, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Voornaam is te lang',
                                     'Voornaam wordt afgebroken tot ['
@@ -280,8 +248,7 @@ BEGIN
                THEN
                   v_prs_perslid_voornaam := '-';
                   fac.imp_writelog
-                          (p_applname,
-                           p_applrun,
+                          (p_import_key,
                            'W',
                            v_aanduiding || 'Voornaam onbekend',
                            'Voornaam wordt gezet op [-]'
@@ -297,8 +264,7 @@ BEGIN
             IF LENGTH (v_prs_afdeling_naam) > 10
             THEN
                v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Afdelingscode te lang',
                                     'Afdelingscode wordt afgebroken tot ['
@@ -310,8 +276,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                     (p_applname,
-                      p_applrun,
+                     (p_import_key,
                       'E',
                       v_aanduiding || 'Afdelingscode onbekend',
                       'Afdelingscode is verplicht; regel wordt overgeslagen!'
@@ -328,8 +293,7 @@ BEGIN
             THEN
                v_prs_srtperslid_omschrijving :=
                                 SUBSTR (v_prs_srtperslid_omschrijving, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Functie te lang',
                                     'Functie wordt afgebroken tot ['
@@ -341,8 +305,7 @@ BEGIN
                THEN
                   v_ongeldig := 1;
                   fac.imp_writelog
-                           (p_applname,
-                            p_applrun,
+                           (p_import_key,
                             'E',
                             v_aanduiding || 'Functie onbekend',
                             'Functie is verplicht; regel wordt overgeslagen!'
@@ -358,8 +321,7 @@ BEGIN
             IF LENGTH (v_alg_locatie_code) > 5
             THEN
                v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 5);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Locatiecode te lang',
                                     'Locatiecode wordt afgebroken tot ['
@@ -376,8 +338,7 @@ BEGIN
             IF LENGTH (v_alg_gebouw_code) > 10
             THEN
                v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 10);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Gebouwcode te lang',
                                     'Gebouwcode wordt afgebroken tot ['
@@ -395,8 +356,7 @@ BEGIN
             THEN
                v_prs_perslid_telefoonnr :=
                                      SUBSTR (v_prs_perslid_telefoonnr, 1, 15);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Telefoonnummer te lang',
                                     'Telefoonnummer wordt afgebroken tot ['
@@ -413,8 +373,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_email) > 50
             THEN
                v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 50);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'E-mailadres te lang',
                                     'E-mailadres wordt afgebroken tot ['
@@ -432,8 +391,7 @@ BEGIN
             IF LENGTH (v_prs_perslid_oslogin) > 30
             THEN
                v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Loginnaam te lang',
                                     'Loginnaam wordt afgebroken tot ['
@@ -490,8 +448,7 @@ BEGIN
                         || oracle_err_mes
                         || ')';
                      fac.imp_writelog
-                             (p_applname,
-                              p_applrun,
+                             (p_import_key,
                               'E',
                               v_aanduiding || v_errormsg,
                               'Ingelezen regel kan niet worden weggeschreven!'
@@ -505,22 +462,19 @@ BEGIN
 
    IF (header_is_valid = 0)
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         'Ongeldig importbestand',
                         'Geen header of header niet volgens specificatie!'
                        );
    ELSE
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ingelezen regels: '
                         || TO_CHAR (v_count_tot),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: aantal ongeldige importregels: '
                         || TO_CHAR (v_count_tot - v_count_import),
@@ -535,8 +489,7 @@ EXCEPTION
       oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
       v_errormsg :=
            'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
                         v_errorhint
@@ -547,12 +500,10 @@ END sutf_import_prs;
 
 
 CREATE OR REPLACE PROCEDURE sutf_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    -- LET OP: moet idem zijn als declaratie bij sutf_IMPORT_PRS
-   c_first_import           VARCHAR2 (30)   := 'Initiele import';
    c_persoon_inactief       VARCHAR2 (30)   := 'INACTIEF: ';
    -- Maximaal percentage aan nieuwe medewerkers tov. actieve medewerkers met een nummer
    c_max_delta_percentage   NUMBER (10)     := 20;
@@ -569,7 +520,6 @@ IS
    v_errormsg               VARCHAR2 (1000);
    oracle_err_num           NUMBER;
    oracle_err_mes           VARCHAR2 (200);
-   v_first_import_count     NUMBER (10);
    v_count_prs_actual       NUMBER (10);
    v_count_prs_import       NUMBER (10);          -- Matching actual persons!
    v_count_tot              NUMBER (10);
@@ -649,12 +599,6 @@ IS
      
                     
 BEGIN
-   SELECT COUNT (*)
-     INTO v_first_import_count
-     FROM imp_log
-    WHERE imp_log_omschrijving = c_first_import
-      AND imp_log_applicatie = p_applname;
-
    SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
      INTO v_count_prs_actual
      FROM prs_perslid
@@ -667,8 +611,7 @@ BEGIN
       AND p.prs_perslid_verwijder IS NULL
       AND p.prs_perslid_nr = ip.prs_perslid_nr;
 
-   IF (   (v_first_import_count = 1)
-       OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
+   IF (   (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
                                                (100 - c_max_delta_percentage
                                                )
           )
@@ -693,8 +636,7 @@ BEGIN
                   SET prs_perslid_verwijder = SYSDATE
                 WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'I',
                                     'Persoon met nummer ['
                                  || recdelprs.prs_perslid_nr
@@ -728,8 +670,7 @@ BEGIN
                          prs_perslid_oslogin = NULL
                    WHERE prs_perslid_key = recdelprs.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -749,8 +690,7 @@ BEGIN
                    WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                      AND prs_perslid_oslogin IS NOT NULL;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recdelprs.prs_perslid_nr
@@ -775,8 +715,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -825,8 +764,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -835,15 +773,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Functie: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -930,8 +866,7 @@ BEGIN
             ELSE
                IF (v_count > 1)
                THEN
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                        v_aanduiding
                                     || ' kan persoon niet 1-duidig bepalen',
@@ -968,8 +903,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -978,15 +912,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Persoon: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1187,8 +1119,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -1197,15 +1128,13 @@ BEGIN
          END;
       END LOOP;
 
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels zonder foutmelding: '
                         || TO_CHAR (v_count_tot - v_count_error),
                         ''
                        );
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'S',
                            'Werkplek: verwerkte regels met foutmelding: '
                         || TO_CHAR (v_count_error),
@@ -1216,8 +1145,7 @@ BEGIN
       FOR recnowp IN cnowp
       LOOP
          BEGIN
-            fac.imp_writelog (p_applname,
-                              p_applrun,
+            fac.imp_writelog (p_import_key,
                               'I',
                                  'Persoon met nummer ['
                               || recnowp.prs_perslid_nr
@@ -1240,8 +1168,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1290,8 +1217,7 @@ BEGIN
                   || '/'
                   || oracle_err_mes
                   || ')';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_errormsg,
                                  v_errorhint
@@ -1303,8 +1229,7 @@ BEGIN
       
    ELSE
       fac.imp_writelog
-         (p_applname,
-          p_applrun,
+         (p_import_key,
           'E',
           'Verschil tussen het actuele aantal en het te importeren aantal personen te groot; zie specificatie!',
              '- max. verschilpercentage = ['
@@ -1363,7 +1288,7 @@ SELECT   obj.ins_deel_key, ins_kenmerkdeel_waarde
          and k.ins_deel_key = obj.ins_deel_key
          and ins_kenmerk_key = 81;    
 
-BEGIN adm.systrackscript('$Workfile: sutf.sql $', '$Revision: 5 $', 0); END;
+BEGIN adm.systrackscript('$Workfile: sutf.sql $', '$Revision: 6 $', 0); END;
 /
 
 BEGIN fac.registercustversion('SUTF', 3); END;
diff --git a/TUDE/tude.sql b/TUDE/tude.sql
index 05ec3ae29..3c3a672c3 100644
--- a/TUDE/tude.sql
+++ b/TUDE/tude.sql
@@ -3,8 +3,8 @@
 --
 -- Facilitor inrichting voor TU Delft
 -- (c) 1999-2006 Dijkoraad IT bv
--- $Revision: 61 $
--- $Modtime: 20-04-10 14:10 $
+-- $Revision: 62 $
+-- $Modtime: 20-02-12 13:34 $
 --
 SPOOL xTude.lst
 SET ECHO ON
@@ -1783,15 +1783,11 @@ END tude_p_ps;
 
 
 CREATE OR REPLACE PROCEDURE tude_import_ps (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2,
-   p_filedir    IN   VARCHAR2,
-   p_filename   IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
 BEGIN
-  fac.imp_writelog (p_applname,
-                    p_applrun,
+  fac.imp_writelog (p_import_key,
                     'I',
                     'TUDE_IMPORT_PS is een dummy procedure',
                     'De te importeren gegevens komen uit de tabel arbeidsrelatie'
@@ -1803,8 +1799,7 @@ set echo on
 
 -- Het echte bijwerken van de Peoplesoft data
 CREATE OR REPLACE procedure TUDE_UPDATE_PS (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 AS
     c_PerslidGracePeriod    NUMBER(10) := 30;
@@ -1915,13 +1910,7 @@ BEGIN -- PROCEDURE
 
 -- INIT
 BEGIN
-
-  -- Clear my old logs
-  DELETE FROM imp_log
-        WHERE imp_log_applicatie = p_applname;
-
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start import PeopleSoft data in Facilitor.',
                    '');
@@ -2003,8 +1992,7 @@ commit;
 
 -- ADD - PRS_SRTPERSLID
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start toevoegen functies.',
                    '');
@@ -2066,8 +2054,7 @@ END IF;
 
 -- ADD - PRS_AFDELING
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start toevoegen afdelingen.',
                    '');
@@ -2185,8 +2172,7 @@ END IF;
 
 -- MOD - PRS_AFDELING
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start wijzigen afdelingen.',
                    '');
@@ -2280,8 +2266,7 @@ END IF;
 
 -- ADD - PRS_PERSLID
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start toevoegen personen.',
                    '');
@@ -2484,8 +2469,7 @@ END IF;
 
 -- MOD - PRS_PERSLID
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start wijzigen personen.',
                    '');
@@ -2596,8 +2580,7 @@ END IF;
 
 -- DEL - PRS_PERSLID
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start verwijderen personen.',
                    '');
@@ -2718,8 +2701,7 @@ END IF;
 
 -- DEL - PRS_AFDELING
 BEGIN
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Start verwijderen afdelingen.',
                    '');
@@ -2825,8 +2807,7 @@ IF gDebug THEN
   commit;
 
 END IF;
-  fac.imp_writelog(p_applname,
-                   p_applrun,
+  fac.imp_writelog(p_import_key,
                    'I',
                    'Einde import PeopleSoft data in Facilitor.',
                    '');
diff --git a/Wehk/WEHK.sql b/Wehk/WEHK.sql
index de014c5af..5ea52942c 100644
--- a/Wehk/WEHK.sql
+++ b/Wehk/WEHK.sql
@@ -1,7 +1,7 @@
 -- Script containing customer specific configuration sql statements for WEHK: Wehkamp
 -- (c) 2010 SG|facilitor bv
--- $Revision: 31 $
--- $Modtime: 22-07-11 12:19 $
+-- $Revision: 32 $
+-- $Modtime: 21-02-12 10:09 $
 --
 -- Support: +31 53 4800700
 
@@ -18,10 +18,7 @@ AS
 
 
 CREATE OR REPLACE PROCEDURE wehk_import_prs (
-  p_applname         IN   VARCHAR2,
-  p_applrun          IN   VARCHAR2,
-  p_filedir          IN   VARCHAR2,
-  p_filename         IN   VARCHAR2
+  p_import_key IN NUMBER
 ) IS
 
   c_fielddelimitor            VARCHAR2 (1) := ';';
@@ -66,31 +63,24 @@ CREATE OR REPLACE PROCEDURE wehk_import_prs (
   v_prs_perslid_tussenvoegsel       VARCHAR2(256);
 
   -- PRS_BEDRIJF
-  CURSOR c1(p_imp_file_applicatie VARCHAR2)
+  CURSOR c1(p_import_key NUMBER)
   IS
     SELECT    *
     FROM      fac_imp_file
     WHERE     1=1
-    AND       fac_imp_file_applicatie = p_imp_file_applicatie
+    AND       fac_import_key = p_import_key
     ORDER BY  fac_imp_file_index;
 
-
-
   rec1                        c1%ROWTYPE;
 
 BEGIN
-
-   -- Eerst opruiming
-   DELETE FROM imp_log          WHERE imp_log_applicatie      = p_applname;
    DELETE FROM wehk_imp_prs;
 
-   COMMIT;
-
    v_count_error  := 0;
    v_count_tot    := 0;
    v_count_import := 0;
    v_aanduiding   := '';
-   OPEN c1(p_applname);
+   OPEN c1(p_import_key);
    IF (c1%ISOPEN)
    THEN
       LOOP
@@ -110,8 +100,7 @@ BEGIN
 
             IF (1=0)
             THEN
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding||'Ongeldig importbestand',
                                  'Toelichting: ... '
@@ -198,8 +187,7 @@ BEGIN
               IF LENGTH (v_alg_locatie_code) > 5
               THEN
                 v_alg_locatie_code:= SUBSTR(v_alg_locatie_code,1,5);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Locatie-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_alg_locatie_code || '>'
@@ -211,8 +199,7 @@ BEGIN
               IF LENGTH (v_alg_gebouw_code) > 10
               THEN
                 v_alg_gebouw_code:= SUBSTR(v_alg_gebouw_code,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Gebouw-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_alg_gebouw_code || '>'
@@ -234,8 +221,7 @@ BEGIN
                         oracle_err_num  := SQLCODE;
                         oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
                         v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-                        fac.imp_writelog (p_applname,
-                                          p_applrun,
+                        fac.imp_writelog (p_import_key,
                                           'E',
                                           v_aanduiding||v_errormsg,
                                           v_errorhint
@@ -248,8 +234,7 @@ BEGIN
               IF LENGTH (v_alg_ruimte_nr) > 10
               THEN
                 v_alg_ruimte_nr:= SUBSTR(v_alg_ruimte_nr,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Ruimtenr-aanduiding is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_alg_ruimte_nr || '>'
@@ -278,8 +263,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_naam) > 30
               THEN
                 v_prs_perslid_naam:= SUBSTR(v_prs_perslid_naam,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Naam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_naam || '>'
@@ -287,8 +271,7 @@ BEGIN
               ELSE
                 IF (v_prs_perslid_naam IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,'Persoon heeft geen achternaam, personeelsnummer: '||v_prs_perslid_nr
                                   ,'Naam persoon moet worden opgegeven'
@@ -317,8 +300,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_voorletters) > 10
               THEN
                 v_prs_perslid_voorletters:= SUBSTR(v_prs_perslid_voorletters,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Voorletters persoon zijn te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_voorletters || '>'
@@ -330,8 +312,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_tussenvoegsel) > 10
               THEN
                 v_prs_perslid_tussenvoegsel:= SUBSTR(v_prs_perslid_tussenvoegsel,1,10);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Tussenvoegsel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_tussenvoegsel || '>'
@@ -343,8 +324,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_voornaam) > 30
               THEN
                 v_prs_perslid_voornaam:= SUBSTR(v_prs_perslid_voornaam,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Voornaam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_voornaam || '>'
@@ -360,8 +340,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                 v_prs_perslid_titel:= SUBSTR(v_prs_perslid_titel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Titel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_titel || '>'
@@ -373,8 +352,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                 v_prs_perslid_titel:= SUBSTR(v_prs_perslid_titel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Titel persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_titel || '>'
@@ -386,8 +364,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_telefoonnr) > 15
               THEN
                 v_prs_perslid_telefoonnr:= SUBSTR(v_prs_perslid_telefoonnr,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Telefoonnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_telefoonnr || '>'
@@ -399,8 +376,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_mobiel) > 15
               THEN
                 v_prs_perslid_mobiel:= SUBSTR(v_prs_perslid_mobiel,1,15);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Mobielnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_mobiel || '>'
@@ -412,8 +388,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_email) > 50
               THEN
                 v_prs_perslid_email:= SUBSTR(v_prs_perslid_email,1,50);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Email persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_email || '>'
@@ -425,8 +400,7 @@ BEGIN
               IF LENGTH (v_prs_srtperslid_omschrijving) > 30
               THEN
                 v_prs_srtperslid_omschrijving:= SUBSTR(v_prs_srtperslid_omschrijving,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Functie-aanduiding persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_srtperslid_omschrijving || '>'
@@ -434,8 +408,7 @@ BEGIN
               ELSE
                 IF (v_prs_srtperslid_omschrijving IS NULL) THEN
                   v_ongeldig      := 1;
-                  fac.imp_writelog(p_applname
-                                  ,p_applrun
+                  fac.imp_writelog(p_import_key
                                   ,'E'
                                   ,v_aanduiding||'Functie persoon onbekend'
                                   ,'Functie persoon moet worden opgegeven'
@@ -448,8 +421,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_nr) > 16
               THEN
                 v_prs_perslid_nr := SUBSTR(v_prs_perslid_nr,1,16);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Persoonnr. persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_nr || '>'
@@ -459,8 +431,7 @@ BEGIN
               IF v_prs_perslid_nr IS NULL
               THEN
                 v_prs_perslid_nr := SUBSTR(v_prs_perslid_nr,1,16);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'E'
                                 ,v_aanduiding||'Persoonnr. persoon is te lang'
                                 ,'Persoon heeft geen personeelsnummer <' || v_prs_perslid_naam || '>'
@@ -472,8 +443,7 @@ BEGIN
               IF LENGTH (v_prs_perslid_oslogin) > 30
               THEN
                 v_prs_perslid_oslogin := SUBSTR(v_prs_perslid_oslogin,1,30);
-                fac.imp_writelog(p_applname
-                                ,p_applrun
+                fac.imp_writelog(p_import_key
                                 ,'W'
                                 ,v_aanduiding||'Loginnaam persoon is te lang'
                                 ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_oslogin || '>'
@@ -530,15 +500,13 @@ BEGIN
       END LOOP;
    END IF;
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ingelezen regels: '||to_char(v_count_tot),
                       ''
                     );
 
-   fac.imp_writelog ( p_applname,
-                      p_applrun,
+   fac.imp_writelog ( p_import_key,
                       'S',
                       'Persoon: aantal ingelezen ongeldige importregels: <b>'||to_char(v_count_tot - v_count_import),
                       ''
@@ -553,8 +521,7 @@ EXCEPTION
       oracle_err_num  := SQLCODE;
       oracle_err_mes  := SUBSTR (SQLERRM, 1, 100);
       v_errormsg      := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                         v_aanduiding||v_errormsg,
                         v_errorhint
@@ -564,8 +531,7 @@ END wehk_import_prs;
 /
 
 CREATE OR REPLACE PROCEDURE wehk_update_prs (
-   p_applname   IN   VARCHAR2,
-   p_applrun    IN   VARCHAR2
+   p_import_key IN NUMBER
 )
 IS
    c_fielddelimitor     VARCHAR2 (1)          := ';';
@@ -688,8 +654,7 @@ BEGIN
        AND (v_count_prev_log > 0)
       )
    THEN
-      fac.imp_writelog (p_applname,
-                        p_applrun,
+      fac.imp_writelog (p_import_key,
                         'E',
                            'Het verschil tussen de actieve personen ('
                         || v_count
@@ -710,8 +675,7 @@ BEGIN
       IF (v_count = 0)
       THEN
          fac.imp_writelog (
-            p_applname,
-            p_applrun,
+            p_import_key,
             'I',
                'Standaard profiel ['
             || c_profiel_oms
@@ -782,8 +746,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -793,16 +756,14 @@ BEGIN
          END LOOP;
 
          fac.imp_writelog
-               (p_applname,
-                p_applrun,
+               (p_import_key,
                 'S',
                    'Personeelsfunctie: verwerkte regels zonder foutmelding: '
                 || TO_CHAR (v_count_tot - v_count_error),
                 ''
                );
          fac.imp_writelog
-               (p_applname,
-                p_applrun,
+               (p_import_key,
                 'S',
                    'Personeelsfunctie: verwerkte regels met foutmelding: <b>'
                 || TO_CHAR (v_count_error),
@@ -940,8 +901,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -951,16 +911,14 @@ BEGIN
          END LOOP;
 
          fac.imp_writelog
-                         (p_applname,
-                          p_applrun,
+                         (p_import_key,
                           'S',
                              'Persoon: verwerkte regels zonder foutmelding: '
                           || TO_CHAR (v_count_tot - v_count_error),
                           ''
                          );
          fac.imp_writelog
-                         (p_applname,
-                          p_applrun,
+                         (p_import_key,
                           'S',
                              'Persoon: verwerkte regels met foutmelding: <b>'
                           || TO_CHAR (v_count_error),
@@ -1193,8 +1151,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1204,16 +1161,14 @@ BEGIN
          END LOOP;                                    -- Volgende werkplek ...
 
          fac.imp_writelog
-                        (p_applname,
-                         p_applrun,
+                        (p_import_key,
                          'S',
                             'Werkplek: verwerkte regels zonder foutmelding: '
                          || TO_CHAR (v_count_tot - v_count_error),
                          ''
                         );
          fac.imp_writelog
-                        (p_applname,
-                         p_applrun,
+                        (p_import_key,
                          'S',
                             'Werkplek: verwerkte regels met foutmelding: <b>'
                          || TO_CHAR (v_count_error),
@@ -1265,8 +1220,7 @@ BEGIN
                      SET prs_perslid_verwijder = SYSDATE
                    WHERE prs_perslid_key = recpersliddel.prs_perslid_key;
 
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'I',
                                        'Persoon met nummer ['
                                     || recpersliddel.prs_perslid_nr
@@ -1300,8 +1254,7 @@ BEGIN
                             prs_perslid_oslogin = NULL
                       WHERE prs_perslid_key = recpersliddel.prs_perslid_key;
 
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'I',
                                           'Persoon met nummer ['
                                        || recpersliddel.prs_perslid_nr
@@ -1321,8 +1274,7 @@ BEGIN
                       WHERE prs_perslid_naam LIKE c_persoon_inactief || '%'
                         AND prs_perslid_oslogin IS NOT NULL;
 
-                     fac.imp_writelog (p_applname,
-                                       p_applrun,
+                     fac.imp_writelog (p_import_key,
                                        'I',
                                           'Persoon met nummer ['
                                        || recpersliddel.prs_perslid_nr
@@ -1349,8 +1301,7 @@ BEGIN
                      || '> ORACLE error message = <'
                      || oracle_err_mes
                      || '>)';
-                  fac.imp_writelog (p_applname,
-                                    p_applrun,
+                  fac.imp_writelog (p_import_key,
                                     'E',
                                     v_aanduiding || v_errormsg,
                                     v_errorhint
@@ -1360,16 +1311,14 @@ BEGIN
          END LOOP;
 
          fac.imp_writelog
-             (p_applname,
-              p_applrun,
+             (p_import_key,
               'S',
                  'Persoon verwijderen: verwerkte regels zonder foutmelding: '
               || TO_CHAR (v_count_tot - v_count_error),
               ''
              );
          fac.imp_writelog
-             (p_applname,
-              p_applrun,
+             (p_import_key,
               'S',
                  'Persoon verwijderen: verwerkte regels met foutmelding: <b>'
               || TO_CHAR (v_count_error),
@@ -1418,8 +1367,7 @@ BEGIN
                   || '> ORACLE error message = <'
                   || oracle_err_mes
                   || '>)';
-               fac.imp_writelog (p_applname,
-                                 p_applrun,
+               fac.imp_writelog (p_import_key,
                                  'E',
                                  v_aanduiding || v_errormsg,
                                  v_errorhint
@@ -2096,8 +2044,7 @@ CREATE OR REPLACE PROCEDURE wehk_select_autoclose (
 )
 AS
 BEGIN
-   DELETE FROM imp_log
-         WHERE imp_log_applicatie = p_applname;
+   NULL;
 END;
 /