PROCEDURE process_rcv_online(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_group_id IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'process_rcv_online';
l_api_version CONSTANT NUMBER := 1.0;
l_return_code NUMBER := 0;
--** E_SUCCESS constant number := 0; -- e_code is success
--** E_TIMEOUT constant number := 1; -- e_code is timeout
--** E_NOMGR constant number := 2; -- e_code is no manager
--** E_OTHER constant number := 3; -- e_code is other
l_timeout NUMBER := fnd_profile.VALUE('INV_RPC_TIMEOUT'); -- 1分钟
l_outcome VARCHAR2(200);
l_message VARCHAR2(200);
l_str VARCHAR2(4000);
r_val1 VARCHAR2(200) := NULL;
r_val2 VARCHAR2(200) := NULL;
r_val3 VARCHAR2(200) := NULL;
r_val4 VARCHAR2(200) := NULL;
r_val5 VARCHAR2(200) := NULL;
r_val6 VARCHAR2(200) := NULL;
r_val7 VARCHAR2(200) := NULL;
r_val8 VARCHAR2(200) := NULL;
r_val9 VARCHAR2(200) := NULL;
r_val10 VARCHAR2(200) := NULL;
r_val11 VARCHAR2(200) := NULL;
r_val12 VARCHAR2(200) := NULL;
r_val13 VARCHAR2(200) := NULL;
r_val14 VARCHAR2(200) := NULL;
r_val15 VARCHAR2(200) := NULL;
r_val16 VARCHAR2(200) := NULL;
r_val17 VARCHAR2(200) := NULL;
r_val18 VARCHAR2(200) := NULL;
r_val19 VARCHAR2(200) := NULL;
r_val20 VARCHAR2(200) := NULL;
l_rec_count NUMBER;
BEGIN
-- start activity to savepoint, check compatibility
-- and initialize message list, include debug message hint to enter api
x_return_status := cux_api.start_activity(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_api_type => g_api_type,
p_init_msg_list => p_init
详解EBS接口开发之采购接收&退货处理之关键API--(补充)
最新推荐文章于 2024-01-30 11:17:35 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)