Releasing Order Holds in Multi Org Env. with oe_holds_pub.release_hold

Question

Hi All,
I am fairly new to Oracle Apps. My program needs me to create a custom order hold using oe_holds_pub.apply_holds. This piece is working fine.
Now i need to release the holds using oe_holds_pub.release_hold. I have 2 instances of Oracle, and my code is working on the one that is not multi org. However, it fails - and doesn't provide any error message- on the instance which is multi org.
I have tried setting user and responsibility ids using MO_GLOBAL.initialize_apps, but even this didn't bring about any change.
Any ideas please? I have been struggling with this for weeks... :(
Code:
PROCEDURE manage_line_hold_XXX (p_line_id IN NUMBER,
p_action IN VARCHAR2,
p_status OUT VARCHAR2,
p_msg OUT VARCHAR2) IS
v_hold_id NUMBER;
v_loop_count NUMBER := 0;
v_apply_hold_comment VARCHAR2(32000);
v_order_tbl oe_holds_pvt.order_tbl_type;
v_x_return_status VARCHAR2(2000) := NULL;
v_x_msg_count NUMBER := NULL;
v_x_msg_data VARCHAR2(2000) := NULL;
v_err_mesg VARCHAR2(2000) := NULL;
v_err_num NUMBER := 0;
v_err_cnt NUMBER := 0;
v_err_index NUMBER := 0;
v_out_err_mesg VARCHAR2(32000) := NULL;
v_header_id oe_order_lines_all.header_id%TYPE;
v_org_id oe_order_lines_all.org_id%TYPE;
v_user_id number;
v_responsibility_id number;
v_application_id number;
e_data_error EXCEPTION;
BEGIN
IF p_action NOT IN ('APPLY_LINE_HOLD','RELEASE_LINE_HOLD') THEN
p_msg := 'XXX.manage_line_hold: invalid p_action passed. Must be APPLY_LINE_HOLD or RELEASE_LINE_HOLD';
RAISE e_data_error;
END IF;
BEGIN
--Get hold name from metadata
SELECT hold_id
INTO v_hold_id
FROM oe_hold_definitions
WHERE name = 'HOLD_NAME'
EXCEPTION
WHEN NO_DATA_FOUND THEN
p_msg := 'XXX.manage_line_hold: Hold: ' || 'HOLD_NAME' || ' either not setup in XXX metadata or not found';
RAISE e_data_error;
WHEN OTHERS THEN
p_msg := 'XXX.manage_line_hold: Unknown error occurred finding hold: ' || SQLERRM || ' ' ||DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
RAISE e_data_error;
END;
BEGIN
--Get header_id,org_id
SELECT header_id, org_id
INTO v_header_id, v_org_id
FROM oe_order_lines_all
WHERE line_id = p_line_id;
EXCEPTION
WHEN NO_DATA_FOUND THEN
p_status := 'ERROR';
p_msg := 'XXX.manage_line_hold: line_id: ' || p_line_id || ' is invalid';
RAISE e_data_error;
WHEN OTHERS THEN
p_status := 'ERROR';
p_msg := 'XXX.manage_line_hold: Unknown error occurred finding header_id: ' || SQLERRM || ' ' ||DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
RAISE e_data_error;
END;
v_order_tbl(1).header_id := v_header_id;
v_order_tbl(1).line_id := p_line_id;
--get user_id
BEGIN
SELECT user_id
INTO v_user_id
FROM fnd_user
WHERE user_name = 'USER_NAME';
--dbms_output.put_line('user_id;' || g_om_user_id);
EXCEPTION WHEN OTHERS THEN
p_msg := 'Error getting user_id: '|| SQLERRM;
--RAISE e_data_error;
END;
--getting responsibility_id
BEGIN
SELECT responsibility_id
INTO v_responsibility_id
FROM fnd_responsibility_tl
WHERE responsibility_name = 'RESPONSIBILITY_NAME';
--dbms_output.put_line('resp_id;' || g_om_responsibility_id);
EXCEPTION WHEN OTHERS THEN
p_msg := 'Error getting responsibility_id: '|| SQLERRM;
--RAISE e_data_error;
END;
--getting application_id
BEGIN
SELECT application_id
INTO v_application_id
FROM fnd_application_vl
WHERE application_short_name = 'APPLICATION_NAME';
EXCEPTION WHEN OTHERS THEN
p_msg := 'Error getting application_id: '|| SQLERRM;
--RAISE e_data_error;
END;
MO_GLOBAL_INITIALIZE(v_org_id
,v_user_id
,v_responsibility_id
,v_application_id
,p_status
,p_msg);
--dbms_output.put_line('p status: ' || p_status);
IF p_action = 'APPLY_LINE_HOLD' THEN
oe_holds_pub.apply_holds
(p_api_version => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_order_tbl => v_order_tbl,
p_hold_id => v_hold_id,
p_hold_until_date => NULL,
p_hold_comment => 'COMMENT',
p_check_authorization_flag => NULL,
x_return_status => v_x_return_status,
x_msg_count => v_x_msg_count,
x_msg_data => v_x_msg_data);
ELSIF p_action = 'RELEASE_LINE_HOLD' THEN
oe_holds_pub.release_holds
(p_api_version => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_order_tbl => v_order_tbl,
p_hold_id => v_hold_id,
p_release_reason_code => 'REASON',
p_release_comment => 'COMMENT',
p_check_authorization_flag => NULL,
x_return_status => v_x_return_status,
x_msg_count => v_x_msg_count,
x_msg_data => v_x_msg_data);
END IF;
--API Error Handling
IF v_x_return_status <> fnd_api.g_ret_sts_success THEN
v_err_cnt := fnd_msg_pub.count_msg;
IF NVL(v_x_msg_count, 0) > 0 THEN
FOR i IN 1 .. v_x_msg_count LOOP
fnd_msg_pub.get(p_msg_index => i,
p_encoded => fnd_api.g_false,
p_data => v_err_mesg,
p_msg_index_out => v_err_index);
IF v_err_mesg IS NOT NULL THEN
v_out_err_mesg := v_out_err_mesg ||REPLACE(v_err_mesg, CHR(0), ' ') || CHR(10);
END IF;
v_err_num := v_err_num + 1;
END LOOP;
END IF;
p_status := 'ERROR';
p_msg := 'API Error in oe_holds_pub for p_action='||p_action||' v_header_id='||v_header_id||' p_line_id:'||p_line_id||'. API Error Message: '||v_out_err_mesg;
ELSE
p_status := 'SUCCESS';
END IF;
EXCEPTION
WHEN e_data_error THEN
p_status := 'ERROR';
WHEN OTHERS THEN
p_status := 'ERROR';
p_msg := 'Unknown error in XXX.manage_line_hold: line_id, ' || p_line_id ||', with hold_id, ' || v_hold_id || ', on header_id, ' || v_header_id || '. ERROR:' || SQLERRM || ' ' ||DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
END manage_line_hold_XXX;

Answer 1

Not sure whether works in 11.5.8 version..but can you try this ...
l_action_rec.operation_code = OE_Globals.G_RELEASE_HOLD;
     l_action_request_rec.param1 := 1341;-- l_action_rec.hold_id;
     l_action_request_rec.param2 := 'I'; --nvl(l_action_rec.hold_type_code,'O');
     l_action_request_rec.param3 := 32903577;-- nvl(l_action_rec.hold_type_id,
                         --l_action_request_rec.entity_id);
     l_action_request_rec.param4 :=&your_reason;-- l_action_rec.release_reason_code;
     l_action_request_rec.param5 := -&Your_comments; --l_action_rec.comments;
l_action_request_tbl(1) := l_action_request_rec;
Thanks
Nagamohan