DECLARE

  --v_org_id number;

  v_vendor_interface_id         NUMBER;

  v_vendor_site_interface_id    NUMBER; --接口表的id

  v_vendor_contact_interface_id NUMBER; --接口表的id

  v_temp_ext_bank_acct_id       NUMBER;

  v_org_id                      NUMBER;

  v_vendor_id      NUMBER;

  l_vendor_site_id NUMBER;

  l_party_site_id  NUMBER;

  l_location_id    NUMBER;

  l_result_rec        iby_fndcpt_common_pub.result_rec_type;

  l_bank_acct_id      NUMBER;

  l_return_status     VARCHAR2(30);

  l_msg_count         NUMBER;

  l_msg_data          VARCHAR2(2000);

  v_party_id          NUMBER;

  v_count_lov         NUMBER;

  v_vendor_num        NUMBER;

  g_vendor_count      NUMBER;

  g_vendor_site       NUMBER;

  g_vendor_contact    NUMBER;

  l_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;

  l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;

  --根据批处理id取得多个ou，实现根据ou提交标准请求

  CURSOR cur_ou IS --取得系统中所有OU

    SELECT DISTINCT hr.organization_id org_id

    --INTO l_org_id

      FROM hr_operating_units           hr,

           gl_sets_of_books             gsob,

           financials_system_params_all fsp

     WHERE hr.set_of_books_id = gsob.set_of_books_id

       AND hr.organization_id = fsp.org_id;

BEGIN

  FOR rec_ou IN cur_ou LOOP

    v_org_id := NULL; --初始化ou

    v_org_id := rec_ou.org_id;

    /*IF l_debug = 'Y' THEN

      cux_conc_utl.log_msg('v_org_id:' || v_org_id);

    END IF;*/

    mo_global.set_policy_context(p_access_mode => 'S',

                                 p_org_id      => v_org_id);

    l_vendor_site_rec.org_id           := v_org_id;

    l_vendor_site_rec.vendor_id        := 5414; --V_PHILIPS

    l_vendor_site_rec.vendor_site_code := 'V_PHILIPSDAP';

    --l_vendor_site_rec.terms_name            := rec_vendors.term_name;

    l_vendor_site_rec.pay_site_flag         := 'Y';

    l_vendor_site_rec.purchasing_site_flag  := 'Y';

    l_vendor_site_rec.country               := 'CN'; --必输字段

    l_vendor_site_rec.primary_pay_site_flag := 'N';

    l_vendor_site_rec.address_line1         := '飞利浦(中国)投资有限公司小家电事业部';

    --cux_conc_utl.log_msg('---------@@@@@@@@@@@@--------');

    pos_vendor_pub_pkg.create_vendor_site(p_vendor_site_rec => l_vendor_site_rec,

                                          x_return_status   => l_return_status,

                                          x_msg_count       => l_msg_count,

                                          x_msg_data        => l_msg_data,

                                          x_vendor_site_id  => l_vendor_site_id,

                                          x_party_site_id   => l_party_site_id,

                                          x_location_id     => l_location_id);

    IF l_return_status <> fnd_api.g_ret_sts_success THEN

      FOR i IN 1 .. l_msg_count LOOP

        l_msg_data := fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F');

        dbms_output.put_line('11111111:'||l_msg_data);

      END LOOP;

    END IF;

  END LOOP;

END;