详解EBS接口开发之采购接收&退货处理之关键API--（补充）

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