EBS开发_应收收款导入API

--以下脚本于20190703 在Tony环境成功实现
DECLARE

  l_api_name    CONSTANT VARCHAR2(30) := 'receipt_prc';
  l_api_version CONSTANT NUMBER := 1.0;
  x_cash_receipt_id NUMBER;
  l_attribute_rec   ar_receipt_api_pub.attribute_rec_type;
  l_org_id          NUMBER;
  x_return_status   VARCHAR2(60);
  x_msg_count       NUMBER;
  g_pkg_name        VARCHAR2(60) := 'cux_test_scripts';
  g_api_type        VARCHAR2(60) := 'cux_test_scripts';
  x_msg_data        VARCHAR2(32676);

BEGIN

  fnd_msg_pub.initialize;
  l_org_id := 82;
  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => l_org_id);

  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50597,
                             resp_appl_id => 20003);

  mo_global.set_policy_context(p_access