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;
595: open task_cnt_crsr;
596: fetch task_cnt_crsr into l_task_cnt;
597: if l_task_cnt > 0
598: then
599: FND_MESSAGE.Set_Name('PA', 'PA_PARTY_PROGR_TASK');
600: fnd_msg_pub.add();
601: fnd_msg_pub.count_and_get(p_count => x_msg_count,
602: p_data => x_msg_data);
603: x_return_status := FND_API.G_RET_STS_ERROR;
655: EXCEPTION
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
659: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
660: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
661: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
662: fnd_msg_pub.add();
663: fnd_msg_pub.count_and_get(p_count => x_msg_count,
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
659: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
660: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
661: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
662: fnd_msg_pub.add();
663: fnd_msg_pub.count_and_get(p_count => x_msg_count,
664: p_data => x_msg_data);
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
659: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
660: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
661: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
662: fnd_msg_pub.add();
663: fnd_msg_pub.count_and_get(p_count => x_msg_count,
664: p_data => x_msg_data);
665: raise;
669: if (p_debug_mode = 'Y') then
670: pa_debug.debug('Delete_project_party : Exception NO_DATA_FOUND ');
671: end if;
672:
673: fnd_message.set_name('PA', 'PA_XC_NO_DATA_FOUND');
674: x_return_status := FND_API.G_RET_STS_ERROR;
675:
676: WHEN OTHERS then
677:
679: pa_debug.debug('Delete_project_party : Exception OTHERS ');
680: end if;
681:
682: if(SQLCODE = -54) then
683: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
684: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
685: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
686: FND_MESSAGE.Set_token('TASK',NULL);
687: x_msg_data := FND_MESSAGE.get;
680: end if;
681:
682: if(SQLCODE = -54) then
683: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
684: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
685: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
686: FND_MESSAGE.Set_token('TASK',NULL);
687: x_msg_data := FND_MESSAGE.get;
688: x_return_status := FND_API.G_RET_STS_ERROR;
681:
682: if(SQLCODE = -54) then
683: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
684: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
685: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
686: FND_MESSAGE.Set_token('TASK',NULL);
687: x_msg_data := FND_MESSAGE.get;
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: else
682: if(SQLCODE = -54) then
683: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
684: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
685: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
686: FND_MESSAGE.Set_token('TASK',NULL);
687: x_msg_data := FND_MESSAGE.get;
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: else
690: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
683: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
684: FND_MESSAGE.Set_token('ENTITY', 'PA_PROJECT_PARTIES');
685: FND_MESSAGE.Set_token('PROJECT',to_char(P_PROJECT_ID));
686: FND_MESSAGE.Set_token('TASK',NULL);
687: x_msg_data := FND_MESSAGE.get;
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: else
690: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
691: p_procedure_name => pa_debug.g_err_stack,