1: package body pa_purge_validate_pjrm as
2: /* $Header: PAXRMVTB.pls 120.2 2005/08/19 17:19:18 mwasowic noship $ */
3:
4: -- Start of comments
5: -- API name : Validate_pjrm
110: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
111:
112: WHEN OTHERS THEN
113: x_err_stage := l_err_stage ;
114: pa_debug.debug('Error Procedure Name := PA_PURGE_VALIDATE_PJRM.VALIDATE_PJRM' );
115: pa_debug.debug('Error stage is '||l_err_stage );
116: pa_debug.debug('Error stack is '||l_err_stack );
117: pa_debug.debug(SQLERRM);
118: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
544: OPEN chk_pji_migrated;
545: FETCH chk_pji_migrated INTO l_count_migrated;
546: CLOSE chk_pji_migrated;
547:
548: IF l_count_migrated = 1 AND NVL(pa_purge_validate_pjrm.g_purge_summary_flag,'N')='Y' THEN
549: fnd_message.set_name('PA', 'PA_PJI_MIGRATED_PROJECT');
550: fnd_msg_pub.add;
551: l_err_code := 10;
552: l_err_stage:='After checking for Perf Reporting details the Project';
561: EXCEPTION
562: WHEN OTHERS THEN
563: x_err_stage := l_err_stage ;
564: l_err_stack := l_err_stack ||SUBSTR(SQLERRM,100);
565: pa_debug.debug('Error Procedure Name := pa_purge_validate_pjrm.VALIDATE_perf_reporting' );
566: pa_debug.debug('Error stage is '||l_err_stage );
567: pa_debug.debug('Error stack is '||l_err_stack );
568: pa_debug.debug(SQLERRM);
569: x_err_code:=SQLCODE;