for l_cur_cust_reference in cur_cust_reference
      loop
          --   dbms_output.put_line( 'Insert customer: '||l_cur_cust_reference.orig_system_customer_ref||'a3');
        -----------------------------------------------------
        -- Insert/Update profile record for Customer Header       --
        -- Credit Hold, Term Name, Collector name values   --
        -- from the data file will be inserted at customer --
        -- header level only --
        -----------------------------------------------------

        for l_cur_hdr_profile in cur_hdr_profile(l_cur_cust_reference.orig_system_customer_ref)
          loop
                 --   dbms_output.put_line( 'Insert customer: '||l_cur_hdr_profile.orig_system_customer_ref||'a4');
            begin
              insert into apps.ra_customer_profiles_int_all(
                orig_system_customer_ref,
                insert_update_flag,
            --    original_system_address_ref
                customer_profile_class_name,
                CREDIT_CHECKING,                
                credit_hold,
                standard_term_name,
            --    collector_name,
                overall_credit_limit,
                trx_credit_limit,
                currency_code,
                last_updated_by,
                last_update_date,
                created_by,
                creation_date
                )
              values(
                l_cur_hdr_profile.orig_system_customer_ref,
                l_cur_hdr_profile.insert_update_flag,
             --   l_cur_hdr_profile.orig_system_address_ref
                'DEFAULT',
                'Y',
                'N',
                l_cur_hdr_profile.standard_term_name,
             --   l_cur_hdr_profile.collector_name,
                to_number(Nvl(l_cur_hdr_profile.overall_credit_limit,0)),
                to_char(Nvl(l_cur_hdr_profile.overall_credit_limit/2,0), '99999999.99'),
                'USD',
                -1,--fnd_profile.value('USER_ID'),
                sysdate,
                -1,--fnd_profile.value('USER_ID'),
                sysdate
                );
              exception
                when others then
                  p_status := 'E';
                  fnd_file.put_line(fnd_file.log,'Error while inserting into ra_customer_profiles_int_all 1:'||l_cur_cust_reference.orig_system_customer_ref||substr(sqlerrm,1,100));
                  raise ex_insert_exception;
               --   dbms_output.put_line( 'Insert customer: '||l_cur_hdr_profile.orig_system_customer_ref||'a5');
            end;
        end loop; --  end of cur_hdr_profile --

        ----------------------------------------------
        -- Insert/Update profile record for Customer Site  --
        ----------------------------------------------
        for l_cur_site_profile in cur_site_profile(l_cur_cust_reference.orig_system_customer_ref)
          loop
        --   dbms_output.put_line( l_cur_site_profile.orig_system_customer_ref||'a6');
            if l_cur_site_profile.orig_system_address_ref is not null and
               l_cur_site_profile.site_use_code = 'BILL_TO' then
          --   dbms_output.put_line( l_cur_site_profile.orig_system_customer_ref||'a7');
             begin
                insert into apps.ra_customer_profiles_int_all(
                  insert_update_flag,
                  orig_system_customer_ref,
                  orig_system_address_ref,
              --    customer_profile_class_name,
              --    collector_name,
                  overall_credit_limit,
                  trx_credit_limit,
              --    currency_code,
                  CREDIT_CHECKING,      
                  credit_hold,
                  last_updated_by,
                  last_update_date,
                  created_by,
                  creation_date,
                  standard_term_name
                  )
                values(
                  l_cur_site_profile.insert_update_flag,
                  l_cur_site_profile.orig_system_customer_ref,
                  l_cur_site_profile.orig_system_address_ref,
              --    'DEFAULT',
              --    l_cur_site_profile.collector_name,
                  NULL,
                  NULL,
              --    'USD',
                  'N',
                  'N',  -- This is a mandatory column, data need to be passed to this field --
                  -1,--fnd_profile.value('USER_ID'),
                  sysdate,
                  -1,--fnd_profile.value('USER_ID'),
                  sysdate,
                  NULL
                 );
              exception
                when others then
                  p_status := 'E';
                  fnd_file.put_line(fnd_file.log,'Error while inserting into ra_customer_profiles_int_all 2:'||l_cur_cust_reference.orig_system_customer_ref||substr(sqlerrm,1,100));
                  raise ex_insert_exception;
               --   dbms_output.put_line( 'Insert customer: '||l_cur_site_profile.orig_system_customer_ref||'a8');
              end;
            end if;
          end loop; -- end of loop l_cur_site_profile;
     end loop; --  end of loop l_cur_cust_reference --