--收款核销发票 Tony环境实现 20190704
DECLARE
l_api_name CONSTANT VARCHAR2(30) := 'apply_prc';
l_api_version CONSTANT NUMBER := 1.0;
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);
l_total_amount NUMBER;
l_cash_unapp_amount NUMBER;
l_cash_sum NUMBER;
l_trx_sum NUMBER;
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_a