FCLT#80823 Aanroep van fac_import_genericcsv (p_import_key); is niet meer nodig

svn path=/Customer/trunk/; revision=65968

ZLMV/ZLMV.sql

@@ -2,11 +2,11 @@
 -- $Id$
 --
 -- Script containing customer specific sql statements for the FACILITOR database
--- 
--- 
--- 
--- 
--- 
+--
+--
+--
+--
+--
 
 
 DEFINE thisfile = 'ZLMV.SQL'
@@ -30,7 +30,7 @@ SET DEFINE OFF
 ------ payload begin ------
 CREATE OR REPLACE PACKAGE ZLMV
 AS
-    
+
     PROCEDURE inactivate_prs;
 
     PROCEDURE anonimiseer_bezoeker;
@@ -390,7 +390,7 @@ AS
       FROM fac_imp_csv
       WHERE fac_import_key=p_import_key
    ORDER BY fac_imp_csv_key;
-   
+
    v_header   NUMBER:=0;
    v_afdeling_code  VARCHAR2(15);
    v_functie  VARCHAR2(60);
@@ -398,28 +398,26 @@ BEGIN
       v_header :=0;
       DELETE FROM fac_imp_perslid;
       DELETE FROM fac_imp_organisatie;
-      
-      -- Eerst de csv inlezen naar standaard csv imp tabel
-      fac_import_genericcsv(p_import_key);
-      FOR rec in C1 
+
+      FOR rec in C1
       LOOP
         IF rec.prs_voornaam='GivenName' AND v_header=0
-        THEN 
+        THEN
           v_header:=1;
         ELSE
              BEGIN
-              SELECT prs_afdeling_naam 
-                INTO v_afdeling_code 
-                FROM prs_afdeling 
-               WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);             
+              SELECT prs_afdeling_naam
+                INTO v_afdeling_code
+                FROM prs_afdeling
+               WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);
              EXCEPTION
              WHEN NO_DATA_FOUND THEN
-              v_afdeling_code:='Onbekend';              
+              v_afdeling_code:='Onbekend';
              END;
-             
+
              IF length(rec.prs_titel)>1 THEN
                 v_functie:=rec.prs_titel;
-             ELSE     
+             ELSE
                 v_functie:='Onbekend';
              END IF;
              INSERT INTO fac_imp_perslid(fac_import_key,
@@ -438,7 +436,7 @@ BEGIN
                                          v_functie);
         END IF;
       END LOOP;
-  
+
 END;
 /
 
@@ -447,12 +445,12 @@ CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER)
 AS
   CURSOR p_del
   IS
-     SELECT * 
-       FROM prs_perslid p             
+     SELECT *
+       FROM prs_perslid p
       WHERE p.prs_perslid_verwijder IS NULL
-        AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email 
+        AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email
                                           FROM fac_imp_perslid);
-  
+
   CURSOR p_wrkplk
   IS
     SELECT p.prs_perslid_key, a.alg_ruimte_key
@@ -463,24 +461,24 @@ AS
        AND p.prs_perslid_verwijder IS NULL
        AND UPPER(a.alg_ruimte_omschrijving)='FACILITAIR'
        AND a.alg_ruimte_nr='0.31';
-  
+
   oracle_err_num   NUMBER;
   oracle_err_mes   VARCHAR2 (200);
   v_errormsg       VARCHAR2 (200);
   v_aanduiding     VARCHAR2 (200);
   v_errorhint      VARCHAR2 (200);
 
-  
+
 BEGIN
   prs.update_perslid (p_import_key, 'EMAIL', 'A', 1);
-  
+
   -- Opschonen van personen die niet meer in de import zitten
   FOR rec IN p_del
    LOOP
       prs.delete_perslid (p_import_key, rec.prs_perslid_key);
    END LOOP;
-   
-  -- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2 
+
+  -- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2
   FOR rec IN p_wrkplk
   LOOP
             v_aanduiding := 'Perslidkey: ' || rec.prs_perslid_key;
@@ -507,8 +505,8 @@ BEGIN
             END;
   END LOOP;
 
-   
-   
+
+
 END;
 /