1: package body PA_PROJECT_UTILS2 as
2: -- $Header: PAXPUT2B.pls 120.6.12010000.2 2008/09/16 06:39:23 sugupta ship $
3:
4: -- ----------------------------------------------------------
5: -- Validate_Attribute_Change
547:
548: x_err_stack := old_stack;
549:
550: EXCEPTION
551: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
552: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
553:
554: WHEN OTHERS THEN
555: /* If X_Context is ARCHIVE_PURGE then pa_debug is used for logging errors in
548: x_err_stack := old_stack;
549:
550: EXCEPTION
551: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
552: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
553:
554: WHEN OTHERS THEN
555: /* If X_Context is ARCHIVE_PURGE then pa_debug is used for logging errors in
556: * cocurrent request log */
555: /* If X_Context is ARCHIVE_PURGE then pa_debug is used for logging errors in
556: * cocurrent request log */
557:
558: IF X_Context='ARCHIVE_PURGE' THEN
559: pa_debug.debug('Procedure Name := PA_PROJECT_UTILS2.VALIDATE_ATTRIBUTE_CHANGE');
560: pa_debug.debug('Error stage is '||x_err_stage );
561: pa_debug.debug('Error stack is '||x_err_stack );
562: pa_debug.debug(SQLERRM);
563: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
559: pa_debug.debug('Procedure Name := PA_PROJECT_UTILS2.VALIDATE_ATTRIBUTE_CHANGE');
560: pa_debug.debug('Error stage is '||x_err_stage );
561: pa_debug.debug('Error stack is '||x_err_stack );
562: pa_debug.debug(SQLERRM);
563: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
564:
565: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
566: ELSE
567:
561: pa_debug.debug('Error stack is '||x_err_stack );
562: pa_debug.debug(SQLERRM);
563: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
564:
565: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
566: ELSE
567:
568: /* Other X_Context values ORGANIZATION_VALIDATION and PROJECT_STATUS_CHANGE
569: * return to forms so nedd to use fnd calls to handle it. */
570:
571: x_err_code := -1;
572: x_err_stage := to_char(SQLCODE);
573: FND_MSG_PUB.Add_Exc_Msg(
574: p_pkg_name => 'PA_PROJECT_UTILS2',
575: p_procedure_name => 'VALIDATE_ATTRIBUTE_CHANGE',
576: p_error_text => 'ORA-'||LPAD(substr(X_err_stage,2),5,'0'));
577: END IF;
578:
683: x_error_message_code := 'PA_PROJECT_NUMBER_INVALID';
684: WHEN OTHERS THEN
685: x_project_id := NULL;
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
687: FND_MSG_PUB.add_exc_msg(p_pkg_name =>'PA_PROJECT_UTILS2',
688: p_procedure_name => 'Check_Project_Number_Or_Id');
689: RAISE;
690: END Check_Project_Number_Or_Id;
691:
759: END IF;
760:
761: IF l_debug_mode = 'Y' THEN
762: Pa_Debug.g_err_stage:= 'Printing Input parameters';
763: Pa_Debug.WRITE('PA_PROJECT_UTILS2',Pa_Debug.g_err_stage,
764: l_debug_level3);
765:
766: Pa_Debug.WRITE('PA_PROJECT_UTILS2','p_project_id'||':'||p_project_id,
767: l_debug_level3);
762: Pa_Debug.g_err_stage:= 'Printing Input parameters';
763: Pa_Debug.WRITE('PA_PROJECT_UTILS2',Pa_Debug.g_err_stage,
764: l_debug_level3);
765:
766: Pa_Debug.WRITE('PA_PROJECT_UTILS2','p_project_id'||':'||p_project_id,
767: l_debug_level3);
768: END IF;
769:
770: IF l_debug_mode = 'Y' THEN
768: END IF;
769:
770: IF l_debug_mode = 'Y' THEN
771: Pa_Debug.g_err_stage:= 'Validating Input parameters';
772: Pa_Debug.WRITE('PA_PROJECT_UTILS2',Pa_Debug.g_err_stage,
773: l_debug_level3);
774: END IF;
775:
776: IF ( p_project_id IS NULL OR p_project_id = FND_API.G_MISS_NUM )
775:
776: IF ( p_project_id IS NULL OR p_project_id = FND_API.G_MISS_NUM )
777: THEN
778: IF l_debug_mode = 'Y' THEN
779: Pa_Debug.g_err_stage:= 'PA_PROJECT_UTILS2 : AbortWorkflow : p_project_id IS NULL';
780: Pa_Debug.WRITE('PA_PROJECT_UTILS2',Pa_Debug.g_err_stage,
781: l_debug_level3);
782: END IF;
783: RAISE Invalid_Arg_Exc;
776: IF ( p_project_id IS NULL OR p_project_id = FND_API.G_MISS_NUM )
777: THEN
778: IF l_debug_mode = 'Y' THEN
779: Pa_Debug.g_err_stage:= 'PA_PROJECT_UTILS2 : AbortWorkflow : p_project_id IS NULL';
780: Pa_Debug.WRITE('PA_PROJECT_UTILS2',Pa_Debug.g_err_stage,
781: l_debug_level3);
782: END IF;
783: RAISE Invalid_Arg_Exc;
784: END IF;
822: EXCEPTION
823: WHEN OTHERS THEN
824:
825: x_return_status := 'U';
826: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_UTILS2',
827: p_procedure_name => 'AbortWorkflow',
828: p_error_text => SUBSTRB(SQLERRM,1,240));
829:
830: fnd_msg_pub.count_and_get(p_count => x_msg_count,
831: p_data => x_msg_data);
832: END AbortWorkflow;
833:
834:
835: END PA_PROJECT_UTILS2 ;