31: --p_flags
32: -- The invoice adjustment flags
33: --OUT:
34: --x_return_status
35: -- FND_API.G_RET_STS_SUCCESS if API succeeds
36: -- FND_API.G_RET_STS_ERROR if API fails
37: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
38: --x_msg_data
39: -- Contains error msg in case x_return_status returned
32: -- The invoice adjustment flags
33: --OUT:
34: --x_return_status
35: -- FND_API.G_RET_STS_SUCCESS if API succeeds
36: -- FND_API.G_RET_STS_ERROR if API fails
37: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
38: --x_msg_data
39: -- Contains error msg in case x_return_status returned
40: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
33: --OUT:
34: --x_return_status
35: -- FND_API.G_RET_STS_SUCCESS if API succeeds
36: -- FND_API.G_RET_STS_ERROR if API fails
37: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
38: --x_msg_data
39: -- Contains error msg in case x_return_status returned
40: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
41: --Testing:
36: -- FND_API.G_RET_STS_ERROR if API fails
37: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
38: --x_msg_data
39: -- Contains error msg in case x_return_status returned
40: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
41: --Testing:
42: --
43: --End of Comments
44: -------------------------------------------------------------------------------
58: BEGIN
59:
60: l_progress := '000';
61: -- Standard call to check for call compatibility
62: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
63: THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
60: l_progress := '000';
61: -- Standard call to check for call compatibility
62: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
63: THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: l_progress := '010';
68: IF g_fnd_debug = 'Y' THEN
79: WHERE po_distribution_id = p_dist_ids(i);
80:
81: l_progress := '100';
82: EXCEPTION
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
85: p_encoded => 'F');
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := 0;
82: EXCEPTION
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
85: p_encoded => 'F');
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := 0;
88: WHEN FND_API.G_EXC_ERROR THEN
89: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
90: p_encoded => 'F');
84: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
85: p_encoded => 'F');
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: x_msg_count := 0;
88: WHEN FND_API.G_EXC_ERROR THEN
89: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
90: p_encoded => 'F');
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: x_msg_count := 0;
87: x_msg_count := 0;
88: WHEN FND_API.G_EXC_ERROR THEN
89: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
90: p_encoded => 'F');
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: x_msg_count := 0;
93: WHEN OTHERS THEN
94: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
95: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
104: END IF;
105:
106: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
107: p_encoded => 'F');
108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109: x_msg_count := 0;
110:
111: END Update_Invoice_Flag;
112: