55: x_return_status => l_return_status,
56: x_msg_count => l_msg_count,
57: x_msg_data => l_error_message);
58:
59: IF l_return_status <> fnd_api.g_ret_sts_success THEN
60: RAISE fnd_api.g_exc_error;
61: END IF;
62:
63: ELSIF (l_Txn_Type = 'PO_RECEIPT_INTO_PROJECT' AND p_stage = 'PA_INTERFACE') THEN
56: x_msg_count => l_msg_count,
57: x_msg_data => l_error_message);
58:
59: IF l_return_status <> fnd_api.g_ret_sts_success THEN
60: RAISE fnd_api.g_exc_error;
61: END IF;
62:
63: ELSIF (l_Txn_Type = 'PO_RECEIPT_INTO_PROJECT' AND p_stage = 'PA_INTERFACE') THEN
64:
68: P_Rcv_txn_Id => l_Transaction_Id,
69: x_return_status => l_return_status,
70: x_error_message => l_error_message);
71:
72: IF l_return_status <> fnd_api.g_ret_sts_success THEN
73: RAISE fnd_api.g_exc_error;
74: END IF;
75:
76: END IF;
69: x_return_status => l_return_status,
70: x_error_message => l_error_message);
71:
72: IF l_return_status <> fnd_api.g_ret_sts_success THEN
73: RAISE fnd_api.g_exc_error;
74: END IF;
75:
76: END IF;
77:
77:
78: -- Always return Success because we log our own error and we want IB to
79: -- update the existing error to P so we have a history.
80:
81: x_return_status := fnd_api.g_ret_sts_success;
82:
83: EXCEPTION
84: WHEN fnd_api.g_exc_error THEN
85: x_return_status := fnd_api.g_ret_sts_success;
80:
81: x_return_status := fnd_api.g_ret_sts_success;
82:
83: EXCEPTION
84: WHEN fnd_api.g_exc_error THEN
85: x_return_status := fnd_api.g_ret_sts_success;
86: l_error_message := x_error_message;
87: WHEN OTHERS THEN
88: x_error_message := SQLERRM;
81: x_return_status := fnd_api.g_ret_sts_success;
82:
83: EXCEPTION
84: WHEN fnd_api.g_exc_error THEN
85: x_return_status := fnd_api.g_ret_sts_success;
86: l_error_message := x_error_message;
87: WHEN OTHERS THEN
88: x_error_message := SQLERRM;
89: x_Return_Status := FND_API.G_Ret_Sts_Unexp_Error;
85: x_return_status := fnd_api.g_ret_sts_success;
86: l_error_message := x_error_message;
87: WHEN OTHERS THEN
88: x_error_message := SQLERRM;
89: x_Return_Status := FND_API.G_Ret_Sts_Unexp_Error;
90: END Redo_Logic;
91:
92: END cse_redo_pkg;