1: PACKAGE BODY PA_PERF_EXCP_UTILS AS
2: /* $Header: PAPEUTLB.pls 120.1 2005/08/19 16:40:11 mwasowic noship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: Procedure get_kpa_color_indicator_list
7: (
8: p_object_type in varchar2
136: WHEN OTHERS THEN
137: --
138: -- Set the excetption Message and the stack
139: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PERF_EXCP_UTILS.get_kpa_name_list'
140: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
141: --
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143:
144:
194: WHEN OTHERS THEN
195: --
196: -- Set the excetption Message and the stack
197: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PERF_EXCP_UTILS.get_kpa_name_list'
198: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
199: --
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
201:
202: END;
594: l_object_rule_id NUMBER;
595: l_rowid ROWID;
596: BEGIN
597:
598: PA_DEBUG.init_err_stack('PA_PERF_EXCP_UTILS.copy_object_rule_assoc');
599: x_return_status:=fnd_api.g_ret_sts_success;
600:
601: savepoint copy_object_rule_assoc;
602:
623: END LOOP;
624:
625: END IF;
626:
627: PA_DEBUG.Reset_Err_Stack;
628:
629: EXCEPTION
630: WHEN OTHERS THEN
631: ROLLBACK TO copy_object_rule_assoc;
629: EXCEPTION
630: WHEN OTHERS THEN
631: ROLLBACK TO copy_object_rule_assoc;
632: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PERF_EXCP_UTILS.copy_object_rule_assoc',
633: p_procedure_name => PA_DEBUG.G_Err_Stack );
634:
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
636:
637: END copy_object_rule_assoc;
645: , x_return_status OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
646:
647: BEGIN
648:
649: PA_DEBUG.init_err_stack('PA_PERF_EXCP_UTILS.delete_object_exceptions');
650: x_return_status:=fnd_api.g_ret_sts_success;
651:
652: savepoint delete_object_exceptions;
653:
677:
678: delete pa_perf_transactions
679: where project_id = p_object_id;
680:
681: PA_DEBUG.Reset_Err_Stack;
682:
683: EXCEPTION
684: WHEN OTHERS THEN
685: ROLLBACK TO delete_object_exceptions;
683: EXCEPTION
684: WHEN OTHERS THEN
685: ROLLBACK TO delete_object_exceptions;
686: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PERF_EXCP_UTILS.copy_object_rule_assoc',
687: p_procedure_name => PA_DEBUG.G_Err_Stack );
688:
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690:
691: END delete_object_exceptions;
733: );
734:
735:
736: IF x_request_id = 0 then
737: IF P_PA_DEBUG_MODE = 'Y' THEN
738: PA_DEBUG.g_err_stage := 'Error while submitting Request [PAPFEXCP]';
739: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
740: END IF;
741: fnd_message.retrieve(v_err_msg);
734:
735:
736: IF x_request_id = 0 then
737: IF P_PA_DEBUG_MODE = 'Y' THEN
738: PA_DEBUG.g_err_stage := 'Error while submitting Request [PAPFEXCP]';
739: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
740: END IF;
741: fnd_message.retrieve(v_err_msg);
742:
735:
736: IF x_request_id = 0 then
737: IF P_PA_DEBUG_MODE = 'Y' THEN
738: PA_DEBUG.g_err_stage := 'Error while submitting Request [PAPFEXCP]';
739: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
740: END IF;
741: fnd_message.retrieve(v_err_msg);
742:
743: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
769: EXCEPTION
770: WHEN OTHERS THEN
771: FND_MSG_PUB.add_exc_msg(
772: p_pkg_name => 'PA_PERF_EXCP_UTILS.start_exception_engine'
773: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
774:
775: IF P_PA_DEBUG_MODE = 'Y' THEN
776: pa_debug.write_file('start_exception_engine: ' || SQLERRM);
777: END IF;
771: FND_MSG_PUB.add_exc_msg(
772: p_pkg_name => 'PA_PERF_EXCP_UTILS.start_exception_engine'
773: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
774:
775: IF P_PA_DEBUG_MODE = 'Y' THEN
776: pa_debug.write_file('start_exception_engine: ' || SQLERRM);
777: END IF;
778: pa_debug.reset_err_stack;
779: RAISE;
772: p_pkg_name => 'PA_PERF_EXCP_UTILS.start_exception_engine'
773: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
774:
775: IF P_PA_DEBUG_MODE = 'Y' THEN
776: pa_debug.write_file('start_exception_engine: ' || SQLERRM);
777: END IF;
778: pa_debug.reset_err_stack;
779: RAISE;
780:
774:
775: IF P_PA_DEBUG_MODE = 'Y' THEN
776: pa_debug.write_file('start_exception_engine: ' || SQLERRM);
777: END IF;
778: pa_debug.reset_err_stack;
779: RAISE;
780:
781:
782: