59: SAVEPOINT create_project_party;
60:
61: --- Standard call to check for call compatibility
62: if (p_debug_mode = 'Y') then
63: pa_debug.debug('create_project_party: Checking the api version number.');
64: end if;
65:
66: if NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
67: l_api_name, 'PA_PROJECT_PARTIES_PUB') then
72:
73: --- Initialize the message stack if required
74:
75: if (p_debug_mode = 'Y') then
76: pa_debug.debug('Create_project_party: Initializing message stack.');
77: end if;
78: pa_debug.init_err_stack('Create_project_party_pub');
79:
80: if FND_API.to_boolean(nvl(p_init_msg_list,FND_API.G_TRUE)) then
74:
75: if (p_debug_mode = 'Y') then
76: pa_debug.debug('Create_project_party: Initializing message stack.');
77: end if;
78: pa_debug.init_err_stack('Create_project_party_pub');
79:
80: if FND_API.to_boolean(nvl(p_init_msg_list,FND_API.G_TRUE)) then
81: fnd_msg_pub.initialize;
82: end if;
294: ,p_msg_index_out => l_msg_index_out
295: );
296: END IF;
297: --dbms_output.put_line('Check9');
298: pa_debug.reset_err_stack;
299:
300: EXCEPTION
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: --dbms_output.put_line('Check10');
312: WHEN OTHERS THEN
313: rollback to create_project_party;
314: x_return_status := fnd_api.g_ret_sts_error;
315: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
316: p_procedure_name => pa_debug.G_err_stack,
317: p_error_text => SUBSTRB(SQLERRM,1,240));
318: raise;
319:
320: END CREATE_PROJECT_PARTY;
372: BEGIN
373: SAVEPOINT update_project_party;
374: --- Standard call to check for call compatibility
375: if (p_debug_mode = 'Y') then
376: pa_debug.debug('Update_project_party: Checking he api version number.');
377: end if;
378:
379: if NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
380: l_api_name, 'PA_PROJECT_PARTIES_PUB') then
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: end if;
383:
384: ------dbms_output.put_line('Before initializing the stack');
385: pa_debug.init_err_stack('Update_project_party_pub');
386:
387: --- Initialize the message stack if required
388:
389: if (p_debug_mode = 'Y') then
386:
387: --- Initialize the message stack if required
388:
389: if (p_debug_mode = 'Y') then
390: pa_debug.debug('Update_project_party: Initializing message stack.');
391: end if;
392:
393: if FND_API.to_boolean(nvl(p_init_msg_list,FND_API.G_TRUE)) then
394: fnd_msg_pub.initialize;
502: ,p_msg_index_out => l_msg_index_out
503: );
504: END IF;
505:
506: pa_debug.reset_err_stack;
507:
508: EXCEPTION
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: WHEN OTHERS THEN
521: rollback to update_project_party;
522: x_return_status := fnd_api.g_ret_sts_error;
523: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
524: p_procedure_name => pa_debug.g_err_stack,
525: p_error_text => SUBSTRB(SQLERRM,1,240));
526: raise;
527:
528: end update_project_party;
565: );
566: BEGIN
567: --- Standard call to check for call compatibility
568: if (p_debug_mode = 'Y') then
569: pa_debug.debug('Delete_project_party: Checking he api version number.');
570: end if;
571:
572: if NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
573: l_api_name, 'PA_PROJECT_PARTIES_PUB') then
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: end if;
576:
577: ------dbms_output.put_line('Before initializing the stack');
578: pa_debug.init_err_stack('Delete_project_party_pub');
579:
580: --- Initialize the message stack if required
581:
582: if (p_debug_mode = 'Y') then
579:
580: --- Initialize the message stack if required
581:
582: if (p_debug_mode = 'Y') then
583: pa_debug.debug('Delete_project_party: Initializing message stack.');
584: end if;
585:
586: if FND_API.to_boolean(nvl(p_init_msg_list,fnd_api.G_TRUE)) then
587: fnd_msg_pub.initialize;
603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: else
606: if (p_debug_mode = 'Y') then
607: pa_debug.debug('Delete_project_party : Before delete from pa_project_players ');
608: end if;
609:
610: if p_scheduled_flag = 'Y' and p_calling_module = 'PROJECT_MEMBER' then
611: -- call delete assignment api
649: );
650: END IF;
651: end if; --changes for 8726175 ends
652:
653: pa_debug.reset_err_stack;
654:
655: EXCEPTION
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666:
667: WHEN NO_DATA_FOUND THEN
668:
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:
678: if (p_debug_mode = 'Y') then
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');
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,
692: p_error_text => SUBSTRB(SQLERRM,1,240));
693: x_return_status := FND_API.G_RET_STS_ERROR;
694: end if;
695:
819: SAVEPOINT create_project_party_wrp;
820: if p_debug_mode = 'Y' then
821: l_debug_mode:='Y';
822: end if;
823: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
824: l_debug_mode := NVL(l_debug_mode, 'N');
825:
826: if (l_debug_mode = 'Y') then
827: pa_debug.debug('create_project_party-wrp: Begin');
823: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
824: l_debug_mode := NVL(l_debug_mode, 'N');
825:
826: if (l_debug_mode = 'Y') then
827: pa_debug.debug('create_project_party-wrp: Begin');
828: end if;
829:
830: if (l_debug_mode = 'Y') then
831: pa_debug.debug('Create_project_party: Initializing message stack.');
827: pa_debug.debug('create_project_party-wrp: Begin');
828: end if;
829:
830: if (l_debug_mode = 'Y') then
831: pa_debug.debug('Create_project_party: Initializing message stack.');
832: end if;
833: IF l_debug_mode = 'Y' THEN
834: pa_debug.set_curr_function( p_function => 'CREATE_PROJECT_PARTY_WRP'
835: ,p_debug_mode => l_debug_mode);
830: if (l_debug_mode = 'Y') then
831: pa_debug.debug('Create_project_party: Initializing message stack.');
832: end if;
833: IF l_debug_mode = 'Y' THEN
834: pa_debug.set_curr_function( p_function => 'CREATE_PROJECT_PARTY_WRP'
835: ,p_debug_mode => l_debug_mode);
836: END IF;
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: x_msg_count := 0;
910: raise FND_API.G_EXC_ERROR;
911: END IF;
912: /* end if call create_project_party */
913: IF l_debug_mode = 'Y' THEN
914: PA_DEBUG.Reset_Curr_Function;
915: END IF;
916:
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR