Oracle APPS :Vendor Sites Interface

CREATE OR REPLACE PACKAGE ebiz_VEN_SITE_PKG
IS
PROCEDURE ebiz_vendor_site_creation(ERRBUF OUT VARCHAR,RETCODE OUT VARCHAR);
END ebiz_VEN_SITE_PKG;
/

CREATE OR REPLACE PACKAGE BODY ebiz_VEN_SITE_PKG
IS
 PROCEDURE ebiz_vendor_site_creation(ERRBUF OUT VARCHAR,RETCODE OUT VARCHAR)
IS
   ln_msg_count            NUMBER;
   lc_msg_data             VARCHAR2 (1000);
   ln_vendor_site_id       NUMBER;
   ln_party_site_id        NUMBER;
   ln_location_id          NUMBER;
   ln_check_vendor         VARCHAR2 (20) := 'N';
   ln_ven_count            NUMBER := 0;
   ln_vendor_id            NUMBER;
   ln_vendor_site_code     VARCHAR2 (30);
   ln_vendor_site_code_N   NUMBER;
   ln_err_records          NUMBER := 0;
   ln_process_records      NUMBER := 0;


   CURSOR c_vendor_cur
   IS
      SELECT * FROM ebiz_cas_payee_secure;
BEGIN
   FOR c2 IN c_vendor_cur
   LOOP
      SELECT COUNT (*)
        INTO ln_ven_count
        FROM ap_supplierS
       WHERE VENDOR_NAME = c2.ebiz_payee_name_code;
DBMS_OUTPUT.PUT_LINE(ln_ven_count);

      IF ln_ven_count > 0
      THEN
         SELECT VENDOR_ID
           INTO ln_vendor_id
           FROM AP_SUPPLIERS
          WHERE VENDOR_NAME = c2.ebiz_payee_name_code;

         SELECT ses_vencode_gen_s.NEXTVAL
           INTO ln_vendor_site_code_N
           FROM DUAL;

         ln_vendor_site_code :=
               'ebiz'
            || SUBSTR (c2.ebiz_payee_name_code, 1, 5)
            || TO_CHAR (ln_vendor_site_code_N);

         INSERT INTO ap_supplier_sites_int (VENDOR_ID,
                                            VENDOR_SITE_INTERFACE_ID,
                                            VENDOR_SITE_CODE,
                                            ADDRESS_LINE1,
                                            ADDRESS_LINE2,
                                            ADDRESS_LINE3,
                                            ADDRESS_LINE4,
                                                                                        AREA_CODE,
                                            COUNTRY,
                                            ORG_ID)
              VALUES (ln_vendor_id,
                      AP_SUPPLIER_SITES_INT_S.NEXTVAL,
                      ln_vendor_site_code,
                      c2.residence_address_line1,
                      c2.residence_address_line2,
                      c2.residence_address_line3,
                      c2.residence_address_line4,
                      c2.residence_address_postcode,
                      'GB',
                      204);

         ln_process_records := ln_process_records + 1;
DBMS_OUTPUT.PUT_LINE('ln_process_records'|| ln_process_records);
      ELSE
         ln_err_records := ln_err_records + 1;
      END IF;
   END LOOP;
fnd_file.put_line(fnd_file.OUTPUT,'proc records--'||ln_process_records);
fnd_file.put_line(fnd_file.OUTPUT,'err records--'||ln_err_records);
EXCEPTION
WHEN OTHERS THEN
 fnd_file.put_line(fnd_file.LOG,'ERROR');
END ebiz_vendor_site_creation;
END ebiz_VEN_SITE_PKG;
/