OE_HOLD_PUB.Apply_hold API - Error Messages

Question

Hi Experts,
I 'am using the OE_HOLD_PUB.apply_hold to apply hold on sales orders programmatically. While the hold gets applied in successful cases, I 'am not getting any error messages when there is a failure in applying the hold.
               OE_Holds_PUB.Apply_Holds (
               p_api_version => 1.0,
               p_init_msg_list => FND_API.G_TRUE,
               p_commit => FND_API.G_TRUE,
               p_hold_source_rec => l_hold_source_rec,
               x_return_status => l_return_status,
               x_msg_count => l_msg_count,
               x_msg_data => l_msg_data );
When l_return_status is 'E', the x_msg_data is always null. Can you please suggest how to retrieve the error message data.
Thanks,
Ganapathi

Answer 1

Ganapathi
Try this:
DECLARE
l_hold_source_rec oe_holds_pvt.hold_source_rec_type;
v_msg_index_out NUMBER;
BEGIN
fnd_global.apps_initialize (user_id => u_id, resp_id => r_id, resp_appl_id => 660, security_group_id => 0);
mo_global.set_policy_context ('S', org_id);
l_hold_source_rec := oe_holds_pvt.g_miss_hold_source_rec;
l_hold_source_rec.hold_id := hld_id;
l_hold_source_rec.hold_entity_code := 'O';
l_hold_source_rec.hold_entity_id := hdr_id;
l_hold_source_rec.line_id := lines_record.line_id;
l_hold_source_rec.hold_comment := 'Credit Authorization Failure Hold';
l_msg_count := NULL;
fnd_file.put_line (fnd_file.output, 'Before calling OE_Holds_PUB.Apply_Holds:');
oe_holds_pub.apply_holds (p_api_version => 1.0
, p_init_msg_list => fnd_api.g_false
, p_commit => fnd_api.g_false
, p_hold_source_rec => l_hold_source_rec
, x_return_status => hold_status
, x_msg_count => l_msg_count
, x_msg_data => error_message
fnd_file.put_line (fnd_file.output, 'After calling OE_Holds_PUB.Apply_Holds:');
fnd_file.put_line (fnd_file.output, 'Message Count is: ' || x_msg_count);
fnd_file.put_line (fnd_file.output, 'Return Status is: ' || hold_status);
IF hold_status = fnd_api.g_ret_sts_success
THEN
fnd_file.put_line (fnd_file.output, 'success:');
hold_status := 'SUCCESS';
ELSIF hold_status IS NULL
THEN
fnd_file.put_line (fnd_file.output, 'Status is null');
ELSE
IF x_msg_count > 0
THEN
FOR v_index IN 1 .. x_msg_count
LOOP
fnd_msg_pub.get (p_msg_index => v_index
, p_encoded => 'F'
, p_data => error_message
, p_msg_index_out => v_msg_index_out
fnd_file.put_line (fnd_file.output
, 'Message number is :' || v_msg_index_out || ' and message is' || NVL (error_message, 'nothing')
--fnd_file.put_line (fnd_file.output, 'failure:' || NVL (error_message, 'nothing'));
hold_status := 'FAILURE';
END LOOP;
END IF;
END IF;
END;
Thanks
Nagamohan