Wednesday, 23 September 2015

How to add a Concurrent Program to Responsibility (Request Group) using API

Example 1. Custom Responsibility (Request Group)

BEGIN
apps.fnd_program.add_to_group(
        PROGRAM_SHORT_NAME  => 'XXCONA_JG',
        PROGRAM_APPLICATION => 'XXILL',
        REQUEST_GROUP       => 'XXILL Request Group',
        GROUP_APPLICATION   => 'XXILL'
      );
COMMIT;
END;

Example 2. India Localization Purchasing Request Group
BEGIN
apps.fnd_program.add_to_group(
        PROGRAM_SHORT_NAME  => 'XXCONA_JG',
        PROGRAM_APPLICATION => 'XXILL',
        REQUEST_GROUP       => 'JAI_Purchasing_RG',
        GROUP_APPLICATION   => 'JA'
      );
COMMIT;
END;


Example 3. India Localization Receivables Request Group
BEGIN
apps.fnd_program.add_to_group(
        PROGRAM_SHORT_NAME  => 'XXCONA_JG',
        PROGRAM_APPLICATION => 'XXILL',
        REQUEST_GROUP       => 'JAI_Receivables_RG',
        GROUP_APPLICATION   => 'JA'
      );
COMMIT;
END;

Tuesday, 22 September 2015

How to enable the Default Operating Unit in R12

1. Login into application with System Administration responsibility after then  Concurrent -> Programs
2. Query for short name of the concurrent program to find and then click update button.
 


3. Select on Request Tab.
 

4. Select Single from the drop down of Operating Unit Mode field.
 

5. Save changes by clicking on Apply button 






Tuesday, 15 September 2015

How to Create the Value Set via Script


BEGIN
   FND_FLEX_VAL_API.SET_SESSION_MODE ('customer_data');          /*Mandatory*/
   FND_FLEX_VAL_API.CREATE_VALUESET_TABLE (
      VALUE_SET_NAME            => 'XXCONA_REQ_NO_VS',
      DESCRIPTION               => 'XXCONA Requisition Number',
      SECURITY_AVAILABLE        => 'N',
      ENABLE_LONGLIST           => 'N',
      FORMAT_TYPE               => 'Char',
      MAXIMUM_SIZE              => 20,
      PRECISION                 => NULL,
      NUMBERS_ONLY              => 'N',
      UPPERCASE_ONLY            => 'N',
      RIGHT_JUSTIFY_ZERO_FILL   => 'N',
      MIN_VALUE                 => NULL,
      MAX_VALUE                 => NULL,
      TABLE_APPLICATION         => 'Purchasing',
      table_appl_short_name     => 'PO',
      TABLE_NAME                => 'PO_REQUISITION_HEADERS',
      ALLOW_PARENT_VALUES       => 'N',
      VALUE_COLUMN_NAME         => 'SEGMENT1',
      VALUE_COLUMN_TYPE         => 'Char',
      VALUE_COLUMN_SIZE         => 20,
      MEANING_COLUMN_NAME       => NULL,
      MEANING_COLUMN_TYPE       => NULL,
      MEANING_COLUMN_SIZE       => NULL,
      ID_COLUMN_NAME            => NULL,
      ID_COLUMN_TYPE            => NULL,
      ID_COLUMN_SIZE            => NULL,
      WHERE_ORDER_BY            => 'WHERE org_id = mo_global.get_current_org_id ORDER BY segment1 DESC',
      ADDITIONAL_COLUMNS        => NULL
   );
   COMMIT;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (SQLERRM);
END;

end;

How To Upload Supplier Additional Information




--------------------------------1. Data Template for Supplier Additional Info :---------------------------


SL_NO
VENDOR_NAME
VENDOR_SITE_CODE
EXCISE_DUTY_REG_NO
EXCISE_DUTY_RANGE
EXCISE_DUTY_DIVISION
EXCISE_DUTY_COMM
EC_CODE
TAX_NAME
ST_REG_NO
CST_REG_NO
VAT_REG_NO
SERVICE_TAX_REGNO
PAN_NO
TAN_NO
WARD_NO
SECTION_CODE
TDS_VENDOR_TYPE_LOOKUP_CODE
VERIFY_FLAG
NVL_SITE_VERIFY_FLAG
ERROR_MESSAGE



---------------------------2. Create staging table :------------------------------------


CREATE TABLE XX_SUPPLIERS_ADDINFO
(
  SL_NO                        NUMBER           NOT NULL,
  VENDOR_NAME                  VARCHAR2(240 BYTE) NOT NULL,
  VENDOR_SITE_CODE             VARCHAR2(15 BYTE) NOT NULL,
  EXCISE_DUTY_REG_NO           VARCHAR2(50 BYTE),
  EXCISE_DUTY_RANGE            VARCHAR2(50 BYTE),
  EXCISE_DUTY_DIVISION         VARCHAR2(50 BYTE),
  EXCISE_DUTY_COMM             VARCHAR2(50 BYTE),
  EC_CODE                      VARCHAR2(50 BYTE),
  TAX_NAME                     VARCHAR2(50 BYTE),
  ST_REG_NO                    VARCHAR2(50 BYTE),
  CST_REG_NO                   VARCHAR2(50 BYTE),
  VAT_REG_NO                   VARCHAR2(50 BYTE),
  SERVICE_TAX_REGNO            VARCHAR2(50 BYTE),
  PAN_NO                       VARCHAR2(30 BYTE),
  TAN_NO                       VARCHAR2(30 BYTE),
  WARD_NO                      VARCHAR2(30 BYTE),
  SECTION_CODE                 VARCHAR2(30 BYTE),
  TDS_VENDOR_TYPE_LOOKUP_CODE  VARCHAR2(30 BYTE),
  VERIFY_FLAG                  VARCHAR2(1 BYTE),
  NVL_SITE_VERIFY_FLAG         VARCHAR2(1 BYTE),
  ERROR_MESSAGE                VARCHAR2(100 BYTE)
)




---------------------------3. Create Procedure :------------------------------------

CREATE OR REPLACE PROCEDURE APPS.XXCONA_SUPPLER_ADDINFO(
    errbuf OUT VARCHAR2,
    retcode OUT NUMBER,
    P_ORG_ID IN NUMBER
    )
AS

/********************Suppliers Additional Information ***********************/
 
    L_VERIFY_FLAG       VARCHAR2(1);
    L_ERROR_MESSAGE     VARCHAR2(2500);
    L_VENDOR_ID         NUMBER(10);
    L_VENDOR_SITE_ID     NUMBER(10);
    L_ORG_ID             NUMBER(10);
    L_USER_ID         NUMBER(10);
    L_VENDOR_TYPE     VARCHAR2(50);
    L_TAX_ID         NUMBER(10);
    L_SECTION_TYPE VARCHAR2(25);
    L_SECTION_CODE VARCHAR2(30);
 
    L_CNT_NVL_SITE NUMBER(3);
    L_CNT_SITE NUMBER(3);


  CURSOR C_ADDINFO IS
        SELECT *
        FROM    XX_SUPPLIERS_ADDINFO
        WHERE   VERIFY_FLAG = 'N' ;

   BEGIN

     DBMS_OUTPUT.PUT_LINE ('Upload Program Start');
     FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Checking Start-----');
     FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Operating Unit-----'||P_ORG_ID);
        FOR c1 IN C_ADDINFO
        LOOP

        l_verify_flag := 'Y';
        l_error_message := null;
        l_cnt_nvl_site := 0;
        l_cnt_site := 0;


         BEGIN
            SELECT ORGANIZATION_ID INTO l_org_id
            FROM HR_OPERATING_UNITS
            WHERE ORGANIZATION_ID = P_ORG_ID; -- NAME like P_ORG_CODE;
         EXCEPTION
            WHEN OTHERS THEN
                l_verify_flag := 'N';
                l_error_message := l_error_message||' Operating Unit is not valid...';
          DBMS_OUTPUT.PUT_LINE ('Operating Unit is '||l_org_id);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Operating Unit is '||l_org_id);
         END;

        l_user_id := APPS.FND_PROFILE.VALUE ('user_id');

         BEGIN
            SELECT VENDOR_ID,VENDOR_TYPE_LOOKUP_CODE
            INTO l_vendor_id,L_VENDOR_TYPE
            FROM APPS.AP_SUPPLIERS
            WHERE TRIM(upper(vendor_name)) = trim(upper(c1.vendor_name));
         EXCEPTION
            WHEN OTHERS Then
            l_verify_flag := 'N';
            l_error_message := l_error_message||'Vendor Name is not valid...';
         DBMS_OUTPUT.PUT_LINE ('Vendor ID '||l_vendor_id ||' Vendor Type '||l_vendor_type);
         FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor ID '||l_vendor_id ||' Vendor Type '||l_vendor_type);
         END;


         BEGIN
            SELECT VENDOR_SITE_ID  INTO l_vendor_site_id
            FROM AP_SUPPLIER_SITES_ALL
            WHERE TRIM(upper(vendor_site_code)) = trim(upper(c1.vendor_site_code))
            AND   VENDOR_ID = l_vendor_id
            AND   ORG_ID = l_org_id;
         EXCEPTION
            WHEN OTHERS Then
            l_verify_flag := 'N';
            l_error_message := l_error_message||'Vendor Site not valid...';
         DBMS_OUTPUT.PUT_LINE ('Vendor Site ID '||l_vendor_site_id );
         FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Site ID '||l_vendor_site_id);
         END;


         BEGIN
           SELECT TAX_ID   INTO l_tax_id
           FROM JAI_CMN_TAXES_ALL
          WHERE upper(tax_name) = trim(upper(c1.tax_name))
           AND org_id = l_org_id
           AND nvl(end_date,sysdate) >= sysdate;
          EXCEPTION
                 WHEN NO_DATA_FOUND THEN
                    null;
                 WHEN OTHERS THEN
                    l_verify_flag := 'N';
                    l_error_message := l_error_message||'TDS Tax is not Valid...';
          DBMS_OUTPUT.PUT_LINE ('TAX ID '||l_tax_id );
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'TAX ID '||l_tax_id);
          END;

         BEGIN
            SELECT DISTINCT SECTION_TYPE, SECTION_CODE, VENDOR_TYPE_LOOKUP_CODE
            INTO l_section_type,     l_section_code,    l_vendor_type
            FROM JAI_AP_TDS_THHOLD_HDRS
           WHERE TRIM(UPPER(SECTION_CODE)) = UPPER(TRIM(C1.SECTION_CODE))
            AND TRIM(UPPER(VENDOR_TYPE_LOOKUP_CODE)) = UPPER(TRIM(C1.TDS_VENDOR_TYPE_LOOKUP_CODE))
            AND EXCEPTION_SETUP_FLAG = 'N';
         EXCEPTION
             WHEN NO_DATA_FOUND THEN
                null;
             WHEN OTHERS THEN
                l_verify_flag := 'N';
                l_error_message := l_error_message||'Tds Section or TDS Vendor Type is not valid...';
          DBMS_OUTPUT.PUT_LINE ('VENDOR_TYPE_LOOKUP_CODE '||l_vendor_type );
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'VENDOR_TYPE_LOOKUP_CODE '||l_vendor_type);
         END;


         BEGIN
                SELECT COUNT(*) INTO l_cnt_site
                FROM JAI_CMN_VENDOR_SITES
                WHERE vendor_site_id = l_vendor_site_id
                AND vendor_id = l_vendor_id ;
            IF l_cnt_site > 0 then
            l_verify_flag := 'N' ;
            l_error_message := l_error_message||'Site already existing in JAI_CMN_VENDOR_SITES...';
            l_cnt_site := 0;
            END IF;
         EXCEPTION
                 WHEN OTHERS THEN
                 l_cnt_site := 0;
          DBMS_OUTPUT.PUT_LINE ('NO of Site already existing '||l_cnt_site||l_error_message );
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO of Site already existing '||l_cnt_site||l_error_message );
         END;

         BEGIN
                SELECT COUNT(*) INTO L_CNT_SITE
                FROM JAI_AP_TDS_VENDOR_HDRS
                WHERE VENDOR_SITE_ID = l_vendor_site_id
                AND VENDOR_ID = l_vendor_id ;
            IF L_CNT_SITE > 0 THEN
            L_VERIFY_FLAG := 'N' ;
            l_error_message := l_error_message||'Site already existing in JAI_AP_TDS_VENDOR_HDRS...';
            END IF;
         EXCEPTION
                WHEN OTHERS THEN
                l_cnt_site := 0;
          DBMS_OUTPUT.PUT_LINE ('NO of Site already existing '||l_cnt_site||l_error_message  );
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO of Site already existing '||l_cnt_site||l_error_message );
         END;


          IF l_verify_flag <> 'N' THEN

                BEGIN
                    SELECT COUNT(*) INTO L_CNT_NVL_SITE
                    FROM JAI_CMN_VENDOR_SITES
                    WHERE VENDOR_SITE_ID = 0
                    AND VENDOR_ID = l_vendor_id ;
                EXCEPTION
                WHEN OTHERS THEN
                l_cnt_nvl_site := 0;
               
                END;
                DBMS_OUTPUT.PUT_LINE ('NO of Supplier upload '||L_CNT_NVL_SITE );
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO of Supplier upload '||L_CNT_NVL_SITE);

            IF l_cnt_nvl_site = 0 then

            BEGIN
                DBMS_OUTPUT.PUT_LINE ('Null Supplier site insert JAI_CMN_VENDOR_SITES ');
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Null Supplier site insert JAI_CMN_VENDOR_SITES');
            INSERT INTO JAI_CMN_VENDOR_SITES
            (
             VENDOR_ID
            ,VENDOR_SITE_ID
            ,creation_date
            ,created_by
            ,last_update_date
            ,last_updated_by
            ,last_update_login
            ,approved_invoice_flag
            ,EXCISE_DUTY_RANGE
            ,EXCISE_DUTY_DIVISION
            ,EXCISE_DUTY_REG_NO
            ,cst_reg_no
            ,st_reg_no
            ,vat_reg_no
            ,SERVICE_TAX_REGNO
            ,EXCISE_DUTY_COMM
            ,EC_CODE
            )
            VALUES
            (
            l_vendor_id
            ,0
            ,sysdate
            ,l_user_id
            ,sysdate
            ,l_user_id
            ,-1
            ,'Y'
            ,trim(c1.excise_duty_range)
            ,trim(c1.excise_duty_division)
            ,trim(c1.excise_duty_reg_no)
            ,trim(c1.CST_REG_NO)
            ,trim(c1.ST_REG_NO)
            ,trim(c1.VAT_REG_NO)
            ,trim(c1.SERVICE_TAX_REGNO)
            ,trim(c1.EXCISE_DUTY_COMM)
            ,NULL
            ) ;
            UPDATE XX_SUPPLIERS_ADDINFO
            SET nvl_site_verify_flag = 'Y'
            WHERE vendor_name = c1.vendor_name
            AND   VENDOR_SITE_CODE = c1.VENDOR_SITE_CODE;
            EXCEPTION
                WHEN OTHERS THEN
                    l_error_message := SQLERRM ;
                    l_verify_flag := 'N';
            DBMS_OUTPUT.PUT_LINE ('Error is '||l_error_message);
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error is  '||l_error_message);
            UPDATE XX_SUPPLIERS_ADDINFO
            SET  nvl_site_verify_flag = 'N',
                 error_message = l_error_message
            WHERE vendor_name = c1.vendor_name
            AND   vendor_site_code = c1.vendor_site_code;
            END;

             IF l_verify_flag <> 'N' THEN

             BEGIN

             INSERT INTO JAI_AP_TDS_VENDOR_HDRS
                (
                    vendor_id
                    ,vendor_site_id
                    ,pan_no
                    ,creation_date
                    ,created_by
                    ,last_update_date
                    ,last_updated_by
                    ,last_update_login
                    ,section_type
                    ,section_code
                    ,confirm_pan_flag
                    ,tds_vendor_type_lookup_code
                    ,TAN_NO
                )
                VALUES
                (
                    l_vendor_id
                    ,0
                    ,trim(c1.pan_no)
                    ,sysdate
                    ,l_user_id
                    ,sysdate
                    ,l_user_id
                    ,-1
                    ,''
                    ,''
                    ,'Y'
                    ,l_vendor_type
                    ,trim(c1.TAN_NO)
                ) ;

             UPDATE XX_SUPPLIERS_ADDINFO
                    set nvl_site_verify_flag = 'Y'
                    where vendor_name = c1.vendor_name
                    and vendor_site_code = c1.vendor_site_code;
             EXCEPTION
                WHEN OTHERS THEN
                    l_error_message := SQLERRM;
                    l_verify_flag := 'N';
             DBMS_OUTPUT.PUT_LINE ('Error is '||l_error_message);
             FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error is  '||l_error_message);
             UPDATE XX_SUPPLIERS_ADDINFO
                    set nvl_site_verify_flag = 'N',
                    error_message = l_error_message
                    where vendor_name = c1.vendor_name
                    and vendor_site_code = c1.vendor_site_code;

             END;

            END IF;

          END IF;



          BEGIN

            INSERT INTO JAI_CMN_VENDOR_SITES J
            (
            vendor_id
            ,vendor_site_id
            ,creation_date
            ,created_by
            ,last_update_date
            ,last_updated_by
            ,last_update_login
            ,approved_invoice_flag
            ,excise_duty_range
            ,excise_duty_division
            ,excise_duty_reg_no
            ,cst_reg_no
            ,st_reg_no
            ,vat_reg_no
            ,service_tax_regno
            ,EXCISE_DUTY_COMM
            ,EC_CODE
            )
            values
            (
             l_vendor_id
            ,l_vendor_site_id
            ,sysdate
            ,l_user_id
            ,sysdate
            ,l_user_id
            ,-1
            ,'Y'
            ,trim(c1.excise_duty_range)
            ,trim(c1.excise_duty_division)
            ,trim(c1.excise_duty_reg_no)
            ,trim(c1.cst_reg_no)
            ,trim(c1.st_reg_no)
            ,trim(c1.vat_reg_no)
            ,trim(c1.service_tax_regno)
            ,trim(c1.EXCISE_DUTY_COMM)
            ,trim(c1.EC_CODE)
            ) ;

            UPDATE XX_SUPPLIERS_ADDINFO
                set verify_flag = 'Y'
                where vendor_name = c1.vendor_name
                and vendor_site_code = c1.vendor_site_code;
            EXCEPTION
                WHEN OTHERS THEN
                l_error_message := SQLERRM;
                l_verify_flag := 'N';
            DBMS_OUTPUT.PUT_LINE ('Error is '||l_error_message);
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error is  '||l_error_message);
            UPDATE XX_SUPPLIERS_ADDINFO
                set verify_flag = 'N',
                error_message = l_error_message
                where vendor_name = c1.vendor_name
                and vendor_site_code = c1.vendor_site_code;

          END;


          BEGIN

            insert into JAI_AP_TDS_VENDOR_HDRS
            (
            tax_id
            ,vendor_id
            ,vendor_site_id
            ,pan_no
            ,creation_date
            ,created_by
            ,last_update_date
            ,last_updated_by
            ,last_update_login
            ,section_type
            ,section_code
            ,confirm_pan_flag
            ,tds_vendor_type_lookup_code
            ,TAN_NO
            )
            values
            (
            l_tax_id
            ,l_vendor_id
            ,l_vendor_site_id
            ,trim(c1.pan_no)
            ,sysdate
            ,l_user_id
            ,sysdate
            ,l_user_id
            ,-1
            ,l_section_type
            ,l_section_code
            ,'Y'
            ,l_vendor_type
            ,trim(c1.TAN_NO)
            ) ;

            UPDATE XX_SUPPLIERS_ADDINFO
                set verify_flag = 'Y'
                where vendor_name = c1.vendor_name
                and vendor_site_code = c1.vendor_site_code;
            EXCEPTION
                WHEN OTHERS THEN
                l_error_message := SQLERRM;
                l_verify_flag := 'N';
            DBMS_OUTPUT.PUT_LINE ('Error is '||l_error_message);
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error is  '||l_error_message);
            UPDATE XX_SUPPLIERS_ADDINFO
                set verify_flag = 'N',
                error_message = l_error_message
                where vendor_name = c1.vendor_name
                and vendor_site_code = c1.vendor_site_code;

          END;


         ELSE

            DBMS_OUTPUT.PUT_LINE ('NO of Supplier upload '||L_CNT_NVL_SITE );
            UPDATE XX_SUPPLIERS_ADDINFO
            set verify_flag = 'N',
            error_message = l_error_message
            where vendor_name = c1.vendor_name
            and vendor_site_code = c1.vendor_site_code;


         END IF;

        Commit;

        END LOOP;
        DBMS_OUTPUT.PUT_LINE ('Upload Program End');

    END XXCONA_SUPPLER_ADDINFO;
/

How To Upload Suppliers and Supplier Sites



--------------------------------1. Data Template for Supplier Info :---------------------------

SL_NO
VENDOR_TYPE
VENDOR_NAME
INVOICE_CURRENCY_CODE
PAYMENT_CURRENCY_CODE
OPERATING_UNIT
BILL_TO_LOCATION_CODE
SHIP_TO_LOCATION_CODE
INSPECTION_REQUIRED_FLAG
RECEIVING_ROUTING_ID
RECEIPT_REQUIRED_FLAG
MATCH_OPTION
PAYMENT_TERMS
COUNTRY
VENDOR_SITE_CODE
PAY_ON_RECEIPT_SUMMARY_CODE
PAY_ON_CODE
PRIMARY_PAY_SITE_FLAG
PAY_SITE_FLAG
PURCHASING_SITE_FLAG
CONTACT_LAST_NAME
CONTACT_FIRST_NAME
ADDRESS1
ADDRESS2
ADDRESS3
CITY
STATE
ZIP
PHONE
FAX
EMAIL



---------------------------2. Create staging table :------------------------------------

CREATE TABLE XX_SUPPLIERS_INT
(
  SL_NO                        NUMBER           NOT NULL,
  VENDOR_TYPE                  VARCHAR2(30 BYTE) NOT NULL,
  VENDOR_NAME                  VARCHAR2(240 BYTE) NOT NULL,
  INVOICE_CURRENCY_CODE        VARCHAR2(15 BYTE),
  PAYMENT_CURRENCY_CODE        VARCHAR2(15 BYTE),
  OPERATING_UNIT               VARCHAR2(240 BYTE) NOT NULL,
  BILL_TO_LOCATION_CODE        VARCHAR2(60 BYTE) NOT NULL,
  SHIP_TO_LOCATION_CODE        VARCHAR2(60 BYTE) NOT NULL,
  INSPECTION_REQUIRED_FLAG     VARCHAR2(1 BYTE),
  RECEIVING_ROUTING_ID         NUMBER,
  RECEIPT_REQUIRED_FLAG        VARCHAR2(1 BYTE),
  MATCH_OPTION                 VARCHAR2(25 BYTE),
  PAYMENT_TERMS                VARCHAR2(50 BYTE) NOT NULL,
  COUNTRY                      VARCHAR2(30 BYTE) NOT NULL,
  VENDOR_SITE_CODE             VARCHAR2(15 BYTE) NOT NULL,
  PAY_ON_RECEIPT_SUMMARY_CODE  VARCHAR2(25 BYTE),
  PAY_ON_CODE                  VARCHAR2(25 BYTE),
  PRIMARY_PAY_SITE_FLAG        VARCHAR2(1 BYTE),
  PAY_SITE_FLAG                VARCHAR2(1 BYTE),
  PURCHASING_SITE_FLAG         VARCHAR2(1 BYTE),
  CONTACT_LAST_NAME            VARCHAR2(60 BYTE) NOT NULL,
  CONTACT_FIRST_NAME           VARCHAR2(15 BYTE),
  ADDRESS1                     VARCHAR2(240 BYTE) NOT NULL,
  ADDRESS2                     VARCHAR2(240 BYTE),
  ADDRESS3                     VARCHAR2(240 BYTE),
  CITY                         VARCHAR2(60 BYTE),
  STATE                        VARCHAR2(150 BYTE) NOT NULL,
  ZIP                          VARCHAR2(60 BYTE),
  PHONE                        VARCHAR2(15 BYTE),
  FAX                          VARCHAR2(15 BYTE),
  EMAIL                        VARCHAR2(2000 BYTE),
  VERIFY_FLAG                  VARCHAR2(1 BYTE) DEFAULT 'N',
  ERROR_MESSAGE                VARCHAR2(100 BYTE)
)



---------------------------3. Create Procedure :------------------------------------
CREATE OR REPLACE PROCEDURE APPS.XXCONA_SUPPLIER_UPLOAD
    (errbuf OUT VARCHAR2,
    retcode OUT NUMBER)
    -- using Request Set
AS
   L_VENDOR_TYPE                  VARCHAR2 (30);
   L_VERIFY_FLAG                  VARCHAR (1);
   L_ERROR_MESSAGE                VARCHAR2 (2500);
   L_INVOICE_CURRENCY             VARCHAR2 (10);
   L_PAYMENT_CURRENCY             VARCHAR2 (10);
   L_TERM_ID                      NUMBER (10);
   L_VENDOR_SITE_ID               NUMBER (10);
   L_PAY_CODE_COMBINATION_ID      NUMBER (10);
   L_PREPAY_CODE_COMBINATION_ID   NUMBER (10);
   L_ORG_ID                       NUMBER (10);
   --R_ORG_ID                       NUMBER(10);
   L_TERRITORY_CODE               VARCHAR2 (10);
   L_CNT                          NUMBER (3);
   L_LOCATION_ID_B                NUMBER (10);
   L_LOCATION_ID_S                NUMBER (10);
   R_LOCATION_ID_B                NUMBER(10);
   R_LOCATION_ID_S                NUMBER(10);
   L_VENDOR_NAME                  VARCHAR2 (150);
   L_VENDOR_SITE_CODE             VARCHAR2 (100);
    l_return_status                 VARCHAR2(50);
    l_msg_count                     NUMBER;
    l_msg_data                      VARCHAR2(2000);
    ln_request_id                   Number;
   P_CONC_REQUEST_ID              Number;

   CURSOR C_SUPP IS
     SELECT DISTINCT VENDOR_TYPE,
                      PAYMENT_TERMS,
                      VENDOR_NAME,
                    --VENDOR_ALTERNATIVE_NAME,
                      INVOICE_CURRENCY_CODE,
                      PAYMENT_CURRENCY_CODE,
                     --ACCTS_PAY_CODE_COMBINATION,
                     -- PREPAY_CODE_COMBINATION,
                      OPERATING_UNIT,
                      BILL_TO_LOCATION_CODE,
                      SHIP_TO_LOCATION_CODE,
                      INSPECTION_REQUIRED_FLAG,
                      RECEIVING_ROUTING_ID,
                      RECEIPT_REQUIRED_FLAG,
                      MATCH_OPTION
                 FROM XX_SUPPLIERS_INT
                WHERE NVL(VERIFY_FLAG, 'N') = 'N';

   CURSOR C_SUPP_SITE (P_SUPP_NAME VARCHAR2) IS
      SELECT *
        FROM XX_SUPPLIERS_INT
       WHERE VENDOR_NAME = P_SUPP_NAME;
     

BEGIN

    FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Delete the supplier Interface Table');
    DELETE  FROM AP_SUPPLIERS_INT;
    DELETE  FROM AP_SUPPLIER_SITES_INT;
    DELETE  FROM AP_SUP_SITE_CONTACT_INT;

COMMIT;
 
 
    FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'--- START CHECKING ---');
  FOR H1 IN C_SUPP LOOP
      L_VERIFY_FLAG := 'Y';
      L_ERROR_MESSAGE := NULL;
      L_CNT := 0;
      L_VENDOR_NAME := NULL;

      BEGIN
         SELECT COUNT (*)
           INTO L_CNT
           FROM APPS.AP_SUPPLIERS
          WHERE TRIM (UPPER (VENDOR_NAME)) = TRIM (UPPER (H1.VENDOR_NAME));
       
          DBMS_OUTPUT.PUT_LINE('Check with AP_SUPPLIERS -'||L_CNT);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Check with AP_SUPPLIERS - '||L_CNT);

         IF L_CNT > 0
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := 'Vendor is already existing';
         
            DBMS_OUTPUT.PUT_LINE('Vendor is already existing');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor is already existing');
         
         END IF;
       
      EXCEPTION
         WHEN OTHERS THEN
         
            DBMS_OUTPUT.PUT_LINE('EXCEPTION occured in Vendor checking');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'EXCEPTION occured in Vendor checking');
            NULL;
      END;
        /********************* Find OPERATING UNIT'****************************/
      BEGIN
         SELECT ORGANIZATION_ID
           INTO L_ORG_ID
           FROM HR_OPERATING_UNITS
           WHERE NAME = H1.OPERATING_UNIT; --'XXX OPERATING UNIT';
                   
          DBMS_OUTPUT.PUT_LINE('Organization_id - '||L_ORG_ID);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Organization_ID - '||L_ORG_ID);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Operating Unit is Invalid';
         
            DBMS_OUTPUT.PUT_LINE('Operating Unit is Invalid');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Operating Unit is Invalid');
      END;
         
        /********************* Find Location ID ****************************/
      BEGIN
         SELECT LOCATION_ID
           INTO L_LOCATION_ID_B
         FROM HR_LOCATIONS
           WHERE LOCATION_CODE = H1.BILL_TO_LOCATION_CODE ; --'XXX MAIN STORE LOCATION';
         --  WHERE LOCATION_CODE ='Karam Chand Thapar  (Coal Sales) Limited - ICD';
       
       
          DBMS_OUTPUT.PUT_LINE('LOC CODE Bill'|| L_LOCATION_ID_B);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'LOC CODE Bill '|| L_LOCATION_ID_B);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Location is Not Valid';
         
            DBMS_OUTPUT.PUT_LINE('Location is Not Valid');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Billing Location is Not Valid');
      END;
   
      BEGIN
         SELECT LOCATION_ID
           INTO L_LOCATION_ID_S
         FROM HR_LOCATIONS
           WHERE LOCATION_CODE = H1.SHIP_TO_LOCATION_CODE ;--'XXX MAIN STORE LOCATION';
         --   WHERE LOCATION_CODE ='Karam Chand Thapar  (Coal Sales) Limited - ICD';
       
       
          DBMS_OUTPUT.PUT_LINE('LOC CODE Ship '|| L_LOCATION_ID_S);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'LOC CODE Ship '|| L_LOCATION_ID_S);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Location is Not Valid';
         
            DBMS_OUTPUT.PUT_LINE('Shiping Location is Not Valid');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Shiping Location is Not Valid');
      END;

        /********************* Find Vendor Type ****************************/

      BEGIN
         SELECT LOOKUP_CODE
           INTO L_VENDOR_TYPE
           FROM APPS.PO_LOOKUP_CODES
          WHERE LOOKUP_TYPE(+) = 'VENDOR TYPE'
            AND UPPER (LOOKUP_CODE) = UPPER (TRIM (H1.VENDOR_TYPE));
         
            DBMS_OUTPUT.PUT_LINE('Vendor Type'||L_VENDOR_TYPE);
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Type '||L_VENDOR_TYPE);
         
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Vendor Type Lookup Code not existing';
   
            DBMS_OUTPUT.PUT_LINE('Vendor Type Lookup Code not existing');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Type Lookup Code not existing');
   
      END;
        /********************* Find Invoice Currency ****************************/
      BEGIN
         SELECT CURRENCY_CODE
           INTO L_INVOICE_CURRENCY
           FROM APPS.FND_CURRENCIES
          WHERE CURRENCY_CODE = TRIM (H1.INVOICE_CURRENCY_CODE);
       
          DBMS_OUTPUT.PUT_LINE('CURRENCY CODE for Invoice '||L_INVOICE_CURRENCY);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'CURRENCY CODE for Invoice '||L_INVOICE_CURRENCY);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE :=  L_ERROR_MESSAGE || 'Invoice Currency Code is not Valid';
         
            DBMS_OUTPUT.PUT_LINE('Invoice Currency Code is not Valid');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Invoice Currency Code is not Valid');
      END;
        /********************* Find Payment Currency ****************************/
      BEGIN
         SELECT CURRENCY_CODE
           INTO L_PAYMENT_CURRENCY
           FROM APPS.FND_CURRENCIES
          WHERE CURRENCY_CODE = TRIM (H1.PAYMENT_CURRENCY_CODE);


         DBMS_OUTPUT.PUT_LINE('Payament Currency Cocde '||L_PAYMENT_CURRENCY);
         FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Payament Currency Cocde '||L_PAYMENT_CURRENCY);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE :=
                    L_ERROR_MESSAGE || 'Payament Currency Cocde is not valid';
                 
                    DBMS_OUTPUT.PUT_LINE('Payament Currency Cocde is not valid');
                    FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Payament Currency Cocde is not valid');
      END;
        /********************* Find Payment Term ID **************************/
      BEGIN
         SELECT TERM_ID
           INTO L_TERM_ID
           FROM APPS.AP_TERMS
           WHERE UPPER (NAME) = UPPER (TRIM (H1.PAYMENT_TERMS));
                 
          DBMS_OUTPUT.PUT_LINE('Payament Term'||L_TERM_ID);
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Payament Term - '||L_TERM_ID);
       
      EXCEPTION
         WHEN OTHERS
         THEN
            L_VERIFY_FLAG := 'N';
            L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Payment Term is not valid';
         
            DBMS_OUTPUT.PUT_LINE ('Payment Term is not valid');
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Payment Term is not valid');
         
      END;

        /********************* Find Supplier Name is Not Null******************/
      IF H1.VENDOR_NAME IS NULL
      THEN
         L_VERIFY_FLAG := 'N';
         L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Supplier Name is not existing';
       
         DBMS_OUTPUT.PUT_LINE('Vendor Name is not existing');
         FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Supplier Name is not existing');
       
      END IF;

      SAVEPOINT A;

      IF L_VERIFY_FLAG <> 'N'
      THEN
         BEGIN
            INSERT INTO AP.AP_SUPPLIERS_INT
                        (VENDOR_INTERFACE_ID,
                         VENDOR_NAME,
                        -- VENDOR_NAME_ALT,
                         VENDOR_TYPE_LOOKUP_CODE,
                         INVOICE_CURRENCY_CODE,
                         PAYMENT_CURRENCY_CODE,
                         TERMS_ID,
                      --   ACCTS_PAY_CODE_COMBINATION_ID,
                       --  PREPAY_CODE_COMBINATION_ID,
                      --   BILL_TO_LOCATION_CODE,
                       --  SHIP_TO_LOCATION_CODE,
                         SHIP_TO_LOCATION_ID,
                         BILL_TO_LOCATION_ID,
                         RECEIVING_ROUTING_ID,
                         INSPECTION_REQUIRED_FLAG,
                         RECEIPT_REQUIRED_FLAG,
                         PAYMENT_METHOD_LOOKUP_CODE,
                         CREATE_DEBIT_MEMO_FLAG,
                         PAY_DATE_BASIS_LOOKUP_CODE,
                        -- PAY_ON_RECEIPT_SUMMARY_CODE,
                         MATCH_OPTION
                        )
                 VALUES (APPS.AP_SUPPLIERS_INT_S.NEXTVAL,
                          TRIM (H1.VENDOR_NAME),
                       --  TRIM (H1.VENDOR_ALTERNATIVE_NAME),
                         L_VENDOR_TYPE,
                         L_INVOICE_CURRENCY,
                         L_PAYMENT_CURRENCY,
                         L_TERM_ID,
                       --  L_PAY_CODE_COMBINATION_ID,
                       --  L_PREPAY_CODE_COMBINATION_ID,
                        -- H1.BILL_TO_LOC,
                        -- H1.SHIP_TO_LOC,
                        L_LOCATION_ID_S,
                        L_LOCATION_ID_B,
                         NVL(H1.RECEIVING_ROUTING_ID,2),
                         NVL(H1.INSPECTION_REQUIRED_FLAG,'Y'),
                         NVL(H1.RECEIPT_REQUIRED_FLAG,'Y'),
                         'CHECK',
                         'Y',
                         'DUE',
                        -- 'RECEIPT',
                          NVL(H1.MATCH_OPTION,'R')
                                               
                        );

            UPDATE XX_SUPPLIERS_INT
               SET VERIFY_FLAG = 'Y'
             WHERE VENDOR_NAME = H1.VENDOR_NAME;
           
             DBMS_OUTPUT.PUT_LINE('DATA INSERT INTO AP.ap_suppliers_int');
             FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA INSERT INTO AP.ap_suppliers_int');
           
          EXCEPTION
            WHEN OTHERS
            THEN
               L_ERROR_MESSAGE := SQLERRM;
               L_VERIFY_FLAG := 'N';

               UPDATE XX_SUPPLIERS_INT
                  SET VERIFY_FLAG = 'N',
                      ERROR_MESSAGE = L_ERROR_MESSAGE
                WHERE VENDOR_NAME = H1.VENDOR_NAME;
             
             
                DBMS_OUTPUT.PUT_LINE('DATA NOT INSERT INTO ap_suppliers_int');
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA NOT INSERT INTO ap_suppliers_int');
                COMMIT;
         --GOTO NEXT_SUPP;
         END;
       
       
         FOR L1 IN C_SUPP_SITE (H1.VENDOR_NAME)
         LOOP
            L_VENDOR_SITE_CODE := NULL;

            BEGIN
            /********************* Find Territory Code *********************/
               SELECT TERRITORY_CODE
                 INTO L_TERRITORY_CODE
                 FROM APPS.FND_TERRITORIES
                WHERE NLS_TERRITORY = UPPER(TRIM (L1.COUNTRY));
             
                DBMS_OUTPUT.PUT_LINE('Country Territory code - '||L_TERRITORY_CODE);
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Country Territory Code - '||L_TERRITORY_CODE);
             
            EXCEPTION
               WHEN OTHERS
               THEN
                  L_VERIFY_FLAG := 'N';
                  L_ERROR_MESSAGE := L_ERROR_MESSAGE || 'Invalid Country';
               
                  DBMS_OUTPUT.PUT_LINE('Invalid Country');
                  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Invalid Country');
               
                  NULL;
            END;

            BEGIN
            /********************* Find Supplier Site ***********************/
               SELECT VENDOR_SITE_CODE
                 INTO L_VENDOR_SITE_CODE
                 FROM APPS.AP_SUPPLIER_SITES_ALL A, APPS.AP_SUPPLIERS B
               WHERE ORG_ID = L_ORG_ID
                  AND UPPER (VENDOR_SITE_CODE) = TRIM (UPPER (L1.VENDOR_SITE_CODE))
                  AND A.VENDOR_ID = B.VENDOR_ID
                  AND UPPER (B.VENDOR_NAME) = TRIM (UPPER (L1.VENDOR_NAME));
               
                  DBMS_OUTPUT.PUT_LINE('Vendor Site Code'||L_VENDOR_SITE_CODE);
                  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Site Code'||L_VENDOR_SITE_CODE);

               IF L_VENDOR_SITE_CODE IS NOT NULL
               THEN
                  L_VERIFY_FLAG := 'N';
                  L_ERROR_MESSAGE :=
                         L_ERROR_MESSAGE || 'Vendor Site is already existing';
                       
                          DBMS_OUTPUT.PUT_LINE('Vendor Site is already existing');
                          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Site is already existing');
               END IF;
            EXCEPTION
               WHEN OTHERS
               THEN
             
                  DBMS_OUTPUT.PUT_LINE('Exception : Vendor Site ');
                  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Exception : Vendor Site ');
                  NULL;
            END;
            /********************* Supplier Site Upload ******************/
            IF L_VERIFY_FLAG <> 'N'
            THEN
               BEGIN
                  INSERT INTO AP.AP_SUPPLIER_SITES_INT
                              (VENDOR_INTERFACE_ID,
                               VENDOR_SITE_CODE,
                              -- VENDOR_SITE_CODE_ALT,
                               ADDRESS_LINE1,
                               ADDRESS_LINE2,
                               ADDRESS_LINE3,
                               CITY,
                               STATE,
                               COUNTRY,
                               ZIP,
                               PHONE,
                               FAX,
                             --  ACCTS_PAY_CODE_COMBINATION_ID,
                             --  PREPAY_CODE_COMBINATION_ID,
                               ORG_ID,
                               TERMS_ID,
                               ATTRIBUTE_CATEGORY,
                               --ATTRIBUTE10,
                              -- SHIP_TO_LOCATION_CODE,
                              -- BILL_TO_LOCATION_CODE,
                               SHIP_TO_LOCATION_ID,
                               BILL_TO_LOCATION_ID,
                               HOLD_UNMATCHED_INVOICES_FLAG,
                               VENDOR_SITE_INTERFACE_ID,
                               PURCHASING_SITE_FLAG,
                               PAY_SITE_FLAG,
                               PRIMARY_PAY_SITE_FLAG,
                               PAYMENT_METHOD_LOOKUP_CODE,
                               PAY_ON_CODE,
                               PAY_DATE_BASIS_LOOKUP_CODE,
                               CREATE_DEBIT_MEMO_FLAG,
                               PAY_ON_RECEIPT_SUMMARY_CODE,
                               MATCH_OPTION
                              )
                       VALUES (APPS.AP_SUPPLIERS_INT_S.CURRVAL,
                               UPPER(TRIM(L1.VENDOR_SITE_CODE)),
                             --  INITCAP(TRIM (L1.VENDOR_SITE_CODE)),
                               TRIM (L1.ADDRESS1),
                               TRIM (L1.ADDRESS2),
                               TRIM (L1.ADDRESS3),
                               TRIM (L1.CITY),
                               TRIM (L1.STATE),
                               L_TERRITORY_CODE,
                               TRIM (L1.ZIP),
                               TRIM (L1.PHONE),
                               TRIM (L1.FAX),
                          --     L_PAY_CODE_COMBINATION_ID,
                          --    L_PREPAY_CODE_COMBINATION_ID,
                               L_ORG_ID,
                               L_TERM_ID,
                               'Legacy Supplier Code',
                             --  TRIM(L1.BAAN_SUPP_CODE),
                               --L1.SHIP_TO_LOC,
                               --L1.BILL_TO_LOC,
                               L_LOCATION_ID_S,
                                L_LOCATION_ID_B,
                               'N',
                               APPS.AP_SUPPLIER_SITES_INT_S.NEXTVAL,
                               NVL(L1.PURCHASING_SITE_FLAG,'Y'),
                               NVL(L1.PAY_SITE_FLAG,'Y'),
                               NVL(L1.PRIMARY_PAY_SITE_FLAG,'N'),--CHNG
                               'CHECK',
                               L1.PAY_ON_CODE,
                               'DUE',
                               'Y',
                               L1.PAY_ON_RECEIPT_SUMMARY_CODE,
                               NVL(L1.MATCH_OPTION,'R')
                              );
               
               
                            UPDATE XX_SUPPLIERS_INT
                                SET VERIFY_FLAG = 'Y'
                                WHERE VENDOR_NAME = L1.VENDOR_NAME
                                AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
                   
                                             
                                                     
                     DBMS_OUTPUT.PUT_LINE('DATA INSERT INTO AP.AP_SUPPLIER_SITES_INT ');
                     FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA INSERT INTO AP.AP_SUPPLIER_SITES_INT OF -'||L_CNT);
                   
                   EXCEPTION
                          WHEN OTHERS
                          THEN
                             ROLLBACK TO SAVEPOINT A;
                             L_ERROR_MESSAGE := SQLERRM;

                             UPDATE XX_SUPPLIERS_INT
                                SET VERIFY_FLAG = 'N',
                                    ERROR_MESSAGE = L_ERROR_MESSAGE
                              WHERE VENDOR_NAME = L1.VENDOR_NAME
                                AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
                     
                     
                     UPDATE XX_SUPPLIERS_INT
                        SET VERIFY_FLAG = 'N'
                      WHERE VENDOR_NAME = L1.VENDOR_NAME;
               --GOTO NEXT_SUPP;
             
                      DBMS_OUTPUT.PUT_LINE('DATA NOT INSERT INTO AP.AP_SUPPLIER_SITES_INT ');
                      FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA NOT INSERT INTO AP.AP_SUPPLIER_SITES_INT ');
                       COMMIT;
               END;
             
             
             
                BEGIN
            /********************* Find Supplier Site ID ***********************/
               SELECT VENDOR_SITE_ID
                 INTO L_VENDOR_SITE_ID
                 FROM APPS.AP_SUPPLIER_SITES_ALL A, APPS.AP_SUPPLIERS B
               WHERE ORG_ID = L_ORG_ID
                  AND UPPER (VENDOR_SITE_CODE) = TRIM (UPPER (L1.VENDOR_SITE_CODE))
                  AND A.VENDOR_ID = B.VENDOR_ID
                  AND UPPER (B.VENDOR_NAME) = TRIM (UPPER (L1.VENDOR_NAME));
               
                  DBMS_OUTPUT.PUT_LINE('Vendor Site ID'||L_VENDOR_SITE_ID);
                  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Site ID'||L_VENDOR_SITE_ID);

               IF L_VENDOR_SITE_CODE IS NOT NULL
               THEN
                  L_VERIFY_FLAG := 'N';
                  L_ERROR_MESSAGE :=
                         L_ERROR_MESSAGE || 'Vendor Site is already existing';
                       
                          DBMS_OUTPUT.PUT_LINE('Vendor Site is already existing');
                          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Vendor Site is already existing');
               END IF;
            EXCEPTION
               WHEN OTHERS
               THEN
             
                  DBMS_OUTPUT.PUT_LINE('Exception : Vendor Site ');
                  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Exception : Vendor Site ');
                  NULL;
            END;
             
               /**************** Supplier Site Contact Upload ******************/
               BEGIN
               
                 INSERT INTO AP.AP_SUP_SITE_CONTACT_INT
                             (
                             VENDOR_INTERFACE_ID,
                             VENDOR_CONTACT_INTERFACE_ID,
                             VENDOR_SITE_ID,
                             VENDOR_SITE_CODE,
                             ORG_ID,
                             OPERATING_UNIT_NAME,
                            -- TITLE,
                             FIRST_NAME,
                             LAST_NAME,
                          --   AREA_CODE,
                             PHONE,
                           --  FAX_AREA_CODE,
                             FAX,
                             EMAIL_ADDRESS
                             )
                             VALUES
                             (
                              APPS.AP_SUPPLIERS_INT_S.CURRVAL ,
                              APPS.AP_SUP_SITE_CONTACT_INT_S.NEXTVAL,
                              L_VENDOR_SITE_ID,
                              TRIM (L1.VENDOR_SITE_CODE),
                              L_ORG_ID,
                              TRIM(L1.OPERATING_UNIT), --'KMPL-PHASEVI',
                             -- L1.TITLE ,
                              L1.CONTACT_FIRST_NAME,
                              L1.CONTACT_LAST_NAME,
                            --  TRIM(L1.AREA_CODE),
                              TRIM (L1.PHONE),
                         --     TRIM(L1.FAX_AREA_CODE),
                              TRIM(L1.FAX),
                              TRIM(L1.EMAIL)
                             );
               
                  UPDATE XX_SUPPLIERS_INT
                     SET VERIFY_FLAG = 'Y'
                   WHERE VENDOR_NAME = L1.VENDOR_NAME
                     AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
                   
                 
                 
                    SELECT COUNT(*) INTO L_CNT FROM XX_SUPPLIERS_INT
                     WHERE VERIFY_FLAG = 'Y'
                     AND VENDOR_NAME = L1.VENDOR_NAME
                     AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
                     DBMS_OUTPUT.PUT_LINE('DATA INSERT INTO AP.AP_SUP_SITE_CONTACT_INT');
                     FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA INSERT INTO AP.AP_SUP_SITE_CONTACT_INT');
               EXCEPTION
               WHEN OTHERS THEN
             
                     ROLLBACK TO SAVEPOINT A;
                     L_ERROR_MESSAGE := SQLERRM;

                     UPDATE XX_SUPPLIERS_INT
                        SET VERIFY_FLAG = 'N',
                            ERROR_MESSAGE = L_ERROR_MESSAGE
                      WHERE VENDOR_NAME = L1.VENDOR_NAME
                        AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
                     
                     

                     UPDATE XX_SUPPLIERS_INT
                        SET VERIFY_FLAG = 'N'
                      WHERE VENDOR_NAME = L1.VENDOR_NAME;
               --GOTO NEXT_SUPP;
             
                   UPDATE XX_SUPPLIERS_INT
                     SET VERIFY_FLAG = 'N'
                   WHERE VENDOR_NAME = L1.VENDOR_NAME
                     AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;
             
                      DBMS_OUTPUT.PUT_LINE('DATA NOT INSERT INTO AP.AP_SUP_SITE_CONTACT_INT ');
                      FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'DATA NOT INSERT INTO AP.AP_SUP_SITE_CONTACT_INT ');
                                             
               END;
            ELSE
               ROLLBACK TO SAVEPOINT A;

               UPDATE XX_SUPPLIERS_INT
                  SET VERIFY_FLAG = 'N',
                      ERROR_MESSAGE = L_ERROR_MESSAGE
                WHERE VENDOR_NAME = L1.VENDOR_NAME
                  AND VENDOR_SITE_CODE = L1.VENDOR_SITE_CODE;

               UPDATE XX_SUPPLIERS_INT
                  SET VERIFY_FLAG = 'N'
                WHERE VENDOR_NAME = L1.VENDOR_NAME;
             
                DBMS_OUTPUT.PUT_LINE('ELSE DATA NOT INSERT INTO ap.ap_supplier_sites_int ');
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'ELSE DATA NOT INSERT INTO ap.ap_supplier_sites_int ');
                COMMIT;
                     
             
             
            --GOTO NEXT_SUPP;
            END IF;
            FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'VERIFY_FLAG - Y');
       
         END LOOP;
      ELSE
                     
         UPDATE XX_SUPPLIERS_INT
            SET ERROR_MESSAGE = L_ERROR_MESSAGE,
                VERIFY_FLAG = 'N'
          WHERE VENDOR_NAME = H1.vendor_name;
          FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'VERIFY_FLAG - N');
       
      END IF;
   
      COMMIT;
               
   END LOOP;
 
   FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'--- END CHECKING ---');
END XXCONA_SUPPLIER_UPLOAD;
/

--------------------------------4. Create Concurrent Request Set-----------------------------