[Home] [Help]
54: -- added for bug: 4537865
55:
56: BEGIN
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60: SELECT pa_project_requests_s.nextval
61: INTO l_request_id
62: FROM DUAL;
159: x_request_number := l_request_number;
160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: x_msg_count := FND_MSG_PUB.Count_Msg;
165: x_msg_data := substr(SQLERRM,1,240);
166:
167: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_REQUESTS_PKG',
168: p_procedure_name => 'insert_row');
169:
170: IF x_msg_count = 1 THEN
171: pa_interface_utils_pub.get_messages
172: (p_encoded => FND_API.G_TRUE,
173: p_msg_index => 1,
174: p_msg_count => x_msg_count,
175: p_msg_data => x_msg_data,
176: --p_data => x_msg_data, * commented for Bug: 4537865
203: -- added for bug: 4537865
204: l_new_msg_data VARCHAR2(2000);
205: -- added for bug: 4537865
206: BEGIN
207: x_return_status := FND_API.G_RET_STS_SUCCESS;
208:
209: -- Increment the record version number by 1
210: l_record_version_number := p_record_version_number +1;
211:
221: AND NVL(p_record_version_number, record_version_number) = record_version_number;
222:
223: EXCEPTION
224: WHEN OTHERS THEN
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: x_msg_count := FND_MSG_PUB.Count_Msg;
227: x_msg_data := substr(SQLERRM,1,240);
228:
229: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_REQUESTS_PKG',
230: p_procedure_name => 'update_row');
231:
232: IF x_msg_count = 1 THEN
233: pa_interface_utils_pub.get_messages
234: (p_encoded => FND_API.G_TRUE,
235: p_msg_index => 1,
236: p_msg_count => x_msg_count,
237: p_msg_data => x_msg_data,
238: --p_data => x_msg_data, * commented for bug: 4537865