244: ,x_error_message_code => l_error_message_code)
245: ;
246:
247: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
248: fnd_message.set_name('PA',l_error_message_code);
249: fnd_msg_pub.add;
250: end if;
251:
252: --dbms_output.put_line('Check5 role_id='||l_project_role_id||', resource_source_id='||l_resource_source_id);
300: EXCEPTION
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: --dbms_output.put_line('Check10');
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
305: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
306: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
307: fnd_msg_pub.add();
308: fnd_msg_pub.count_and_get(p_count => x_msg_count,
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: --dbms_output.put_line('Check10');
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
305: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
306: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
307: fnd_msg_pub.add();
308: fnd_msg_pub.count_and_get(p_count => x_msg_count,
309: p_data => x_msg_data);
302: --dbms_output.put_line('Check10');
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
305: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
306: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
307: fnd_msg_pub.add();
308: fnd_msg_pub.count_and_get(p_count => x_msg_count,
309: p_data => x_msg_data);
310: raise;
454: ,x_return_status => x_return_status
455: ,x_error_message_code => l_error_message_code);
456:
457: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
458: fnd_message.set_name('PA',l_error_message_code);
459: fnd_msg_pub.add;
460: end if;
461:
462: if l_project_role_id <> -999 and l_resource_source_id <> -999 and x_return_status = FND_API.G_RET_STS_SUCCESS then
507:
508: EXCEPTION
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
511: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
512: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
513: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
514: fnd_msg_pub.add();
515: fnd_msg_pub.count_and_get(p_count => x_msg_count,
508: EXCEPTION
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
511: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
512: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
513: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
514: fnd_msg_pub.add();
515: fnd_msg_pub.count_and_get(p_count => x_msg_count,
516: p_data => x_msg_data);
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
511: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
512: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
513: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
514: fnd_msg_pub.add();
515: fnd_msg_pub.count_and_get(p_count => x_msg_count,
516: p_data => x_msg_data);
517: raise;
635: EXCEPTION
636:
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
640: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
641: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
642: fnd_msg_pub.add();
643: fnd_msg_pub.count_and_get(p_count => x_msg_count,
636:
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
640: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
641: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
642: fnd_msg_pub.add();
643: fnd_msg_pub.count_and_get(p_count => x_msg_count,
644: p_data => x_msg_data);
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
640: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
641: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
642: fnd_msg_pub.add();
643: fnd_msg_pub.count_and_get(p_count => x_msg_count,
644: p_data => x_msg_data);
645: raise;
649: if (p_debug_mode = 'Y') then
650: pa_debug.debug('Delete_project_party : Exception NO_DATA_FOUND ');
651: end if;
652:
653: fnd_message.set_name('PA', 'PA_XC_NO_DATA_FOUND');
654: x_return_status := FND_API.G_RET_STS_ERROR;
655:
656: WHEN OTHERS then
657:
659: pa_debug.debug('Delete_project_party : Exception OTHERS ');
660: end if;
661:
662: if(SQLCODE = -54) then
663: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
664: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
665: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
666: FND_MESSAGE.Set_token('TASK',NULL);
667: x_msg_data := FND_MESSAGE.get;
660: end if;
661:
662: if(SQLCODE = -54) then
663: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
664: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
665: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
666: FND_MESSAGE.Set_token('TASK',NULL);
667: x_msg_data := FND_MESSAGE.get;
668: x_return_status := FND_API.G_RET_STS_ERROR;
661:
662: if(SQLCODE = -54) then
663: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
664: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
665: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
666: FND_MESSAGE.Set_token('TASK',NULL);
667: x_msg_data := FND_MESSAGE.get;
668: x_return_status := FND_API.G_RET_STS_ERROR;
669: else
662: if(SQLCODE = -54) then
663: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
664: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
665: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
666: FND_MESSAGE.Set_token('TASK',NULL);
667: x_msg_data := FND_MESSAGE.get;
668: x_return_status := FND_API.G_RET_STS_ERROR;
669: else
670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
663: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
664: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
665: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
666: FND_MESSAGE.Set_token('TASK',NULL);
667: x_msg_data := FND_MESSAGE.get;
668: x_return_status := FND_API.G_RET_STS_ERROR;
669: else
670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
671: p_procedure_name => pa_debug.g_err_stack,