21: -- added for Bug fix: 4537865
22:
23: BEGIN
24:
25: x_return_status := FND_API.G_RET_STS_SUCCESS;
26:
27: -- Increment the record version number by 1
28: l_record_version_number := p_record_version_number +1;
29:
41: IF (SQL%NOTFOUND) THEN
42:
43: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
44: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
45: RAISE FND_API.G_EXC_ERROR;
46: END IF;
47:
48: EXCEPTION
49: WHEN FND_API.G_EXC_ERROR THEN
45: RAISE FND_API.G_EXC_ERROR;
46: END IF;
47:
48: EXCEPTION
49: WHEN FND_API.G_EXC_ERROR THEN
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: x_msg_count := FND_MSG_PUB.Count_Msg;
52: IF x_msg_count = 1 THEN
53: pa_interface_utils_pub.get_messages
46: END IF;
47:
48: EXCEPTION
49: WHEN FND_API.G_EXC_ERROR THEN
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: x_msg_count := FND_MSG_PUB.Count_Msg;
52: IF x_msg_count = 1 THEN
53: pa_interface_utils_pub.get_messages
54: (p_encoded => FND_API.G_TRUE,
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: x_msg_count := FND_MSG_PUB.Count_Msg;
52: IF x_msg_count = 1 THEN
53: pa_interface_utils_pub.get_messages
54: (p_encoded => FND_API.G_TRUE,
55: p_msg_index => 1,
56: p_msg_count => x_msg_count,
57: p_msg_data => x_msg_data,
58: --p_data => x_msg_data, * Commented for Bug Fix: 4537865
63: -- added for Bug fix: 4537865
64: END IF;
65:
66: WHEN OTHERS THEN
67: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
68: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_VALUE_MAP_DEF_PKG',
69: p_procedure_name => 'update_row');
70: raise;
71: