326:
327: BEGIN
328: x_msg_count := 0;
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
331:
332: IF l_debug_mode = 'Y' THEN
333: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
334: ,p_debug_mode => l_debug_mode );
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
331:
332: IF l_debug_mode = 'Y' THEN
333: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
334: ,p_debug_mode => l_debug_mode );
335: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
336: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
337: END IF;
331:
332: IF l_debug_mode = 'Y' THEN
333: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
334: ,p_debug_mode => l_debug_mode );
335: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
336: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
337: END IF;
338:
339: l_preserve_rows_flag := 'N';
332: IF l_debug_mode = 'Y' THEN
333: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
334: ,p_debug_mode => l_debug_mode );
335: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
336: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
337: END IF;
338:
339: l_preserve_rows_flag := 'N';
340: l_nothing_delete_flag := 'N';
341:
342: -- validating input parameter
343: IF p_run_id IS NULL THEN
344: IF l_debug_mode = 'Y' THEN
345: pa_debug.g_err_stage := 'p_run_id is passed as null';
346: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
347: END IF;
348: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
349: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
342: -- validating input parameter
343: IF p_run_id IS NULL THEN
344: IF l_debug_mode = 'Y' THEN
345: pa_debug.g_err_stage := 'p_run_id is passed as null';
346: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
347: END IF;
348: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
349: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
350: p_token1 => 'PROCEDURENAME',
368: AND bv.plan_processing_code IN ('XLUP', 'XLUE'));
369: -- there is a pending concurrent request, which is yet to be processed
370: -- inf table data should not be deleted
371: IF l_debug_mode = 'Y' THEN
372: pa_debug.g_err_stage := 'Concurrent Request pending, returning';
373: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
374: END IF;
375: EXCEPTION
376: WHEN NO_DATA_FOUND THEN
369: -- there is a pending concurrent request, which is yet to be processed
370: -- inf table data should not be deleted
371: IF l_debug_mode = 'Y' THEN
372: pa_debug.g_err_stage := 'Concurrent Request pending, returning';
373: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
374: END IF;
375: EXCEPTION
376: WHEN NO_DATA_FOUND THEN
377: IF l_debug_mode = 'Y' THEN
374: END IF;
375: EXCEPTION
376: WHEN NO_DATA_FOUND THEN
377: IF l_debug_mode = 'Y' THEN
378: pa_debug.g_err_stage := 'This has been called for online mode';
379: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
380: END IF;
381: -- do nothing
382: l_preserve_rows_flag := 'N';
375: EXCEPTION
376: WHEN NO_DATA_FOUND THEN
377: IF l_debug_mode = 'Y' THEN
378: pa_debug.g_err_stage := 'This has been called for online mode';
379: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
380: END IF;
381: -- do nothing
382: l_preserve_rows_flag := 'N';
383: -- l_nothing_delete_flag := 'Y';
389: WHERE run_id = p_run_id;
390:
391: IF l_debug_mode = 'Y' THEN
392: l_del_record_count := SQL%ROWCOUNT;
393: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
394: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
395: pa_debug.reset_curr_function;
396: END IF;
397: END IF;
390:
391: IF l_debug_mode = 'Y' THEN
392: l_del_record_count := SQL%ROWCOUNT;
393: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
394: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
395: pa_debug.reset_curr_function;
396: END IF;
397: END IF;
398: EXCEPTION
391: IF l_debug_mode = 'Y' THEN
392: l_del_record_count := SQL%ROWCOUNT;
393: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
394: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
395: pa_debug.reset_curr_function;
396: END IF;
397: END IF;
398: EXCEPTION
399: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
414: END IF;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416:
417: IF l_debug_mode = 'Y' THEN
418: pa_debug.reset_curr_function;
419: END IF;
420: RETURN;
421: WHEN OTHERS THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
425: FND_MSG_PUB.add_exc_msg
426: ( p_pkg_name => 'pa_fp_webadi_pkg'
427: ,p_procedure_name => 'DELETE_XFACE' );
428: IF l_debug_mode = 'Y' THEN
429: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
430: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
431: pa_debug.reset_curr_function;
432: END IF;
433:
426: ( p_pkg_name => 'pa_fp_webadi_pkg'
427: ,p_procedure_name => 'DELETE_XFACE' );
428: IF l_debug_mode = 'Y' THEN
429: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
430: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
431: pa_debug.reset_curr_function;
432: END IF;
433:
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
427: ,p_procedure_name => 'DELETE_XFACE' );
428: IF l_debug_mode = 'Y' THEN
429: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
430: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
431: pa_debug.reset_curr_function;
432: END IF;
433:
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
435:
510:
511:
512: BEGIN
513:
514: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
515: x_msg_count := 0;
516: x_return_status := FND_API.G_RET_STS_SUCCESS;
517: IF l_debug_mode = 'Y' THEN
518: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
514: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
515: x_msg_count := 0;
516: x_return_status := FND_API.G_RET_STS_SUCCESS;
517: IF l_debug_mode = 'Y' THEN
518: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
519: p_debug_mode => l_debug_mode );
520: END IF;
521: IF l_debug_mode = 'Y' THEN
522: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
518: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
519: p_debug_mode => l_debug_mode );
520: END IF;
521: IF l_debug_mode = 'Y' THEN
522: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
524: END IF;
525:
526: --log1('----- Entering into validate_header_info-------');
519: p_debug_mode => l_debug_mode );
520: END IF;
521: IF l_debug_mode = 'Y' THEN
522: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
524: END IF;
525:
526: --log1('----- Entering into validate_header_info-------');
527:
525:
526: --log1('----- Entering into validate_header_info-------');
527:
528: IF l_debug_mode = 'Y' THEN
529: pa_debug.g_err_stage := 'Opening l_version_info_csr';
530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
531: END IF;
532:
533: -- since there would be check for null budget_version_id in the
526: --log1('----- Entering into validate_header_info-------');
527:
528: IF l_debug_mode = 'Y' THEN
529: pa_debug.g_err_stage := 'Opening l_version_info_csr';
530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
531: END IF;
532:
533: -- since there would be check for null budget_version_id in the
534: -- calling place, no check is made here for the same
549: l_time_phase_code;
550:
551: IF l_version_info_csr%NOTFOUND THEN
552: IF l_debug_mode = 'Y' THEN
553: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
555: END IF;
556: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
557: END IF;
550:
551: IF l_version_info_csr%NOTFOUND THEN
552: IF l_debug_mode = 'Y' THEN
553: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
555: END IF;
556: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
557: END IF;
558: CLOSE l_version_info_csr;
557: END IF;
558: CLOSE l_version_info_csr;
559:
560: IF l_debug_mode = 'Y' THEN
561: pa_debug.g_err_stage := 'Data fetched from l_version_info_csr';
562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
563: END IF;
564:
565: --log1('----- STAGE 1-------');
558: CLOSE l_version_info_csr;
559:
560: IF l_debug_mode = 'Y' THEN
561: pa_debug.g_err_stage := 'Data fetched from l_version_info_csr';
562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
563: END IF;
564:
565: --log1('----- STAGE 1-------');
566: IF l_debug_mode = 'Y' THEN
563: END IF;
564:
565: --log1('----- STAGE 1-------');
566: IF l_debug_mode = 'Y' THEN
567: pa_debug.g_err_stage := 'Validating record version number';
568: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
569: END IF;
570: IF l_record_version_number <> p_record_version_number THEN
571: IF l_debug_mode = 'Y' THEN
564:
565: --log1('----- STAGE 1-------');
566: IF l_debug_mode = 'Y' THEN
567: pa_debug.g_err_stage := 'Validating record version number';
568: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
569: END IF;
570: IF l_record_version_number <> p_record_version_number THEN
571: IF l_debug_mode = 'Y' THEN
572: pa_debug.g_err_stage := 'Record version number has changed';
568: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
569: END IF;
570: IF l_record_version_number <> p_record_version_number THEN
571: IF l_debug_mode = 'Y' THEN
572: pa_debug.g_err_stage := 'Record version number has changed';
573: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
574: END IF;
575: RAISE BV_validation_failed_exc;
576: END IF;
569: END IF;
570: IF l_record_version_number <> p_record_version_number THEN
571: IF l_debug_mode = 'Y' THEN
572: pa_debug.g_err_stage := 'Record version number has changed';
573: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
574: END IF;
575: RAISE BV_validation_failed_exc;
576: END IF;
577: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
576: END IF;
577: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
578:
579: IF l_debug_mode = 'Y' THEN
580: pa_debug.g_err_stage := 'Checking for periodic layout';
581: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
582: END IF;
583:
584: BEGIN
577: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
578:
579: IF l_debug_mode = 'Y' THEN
580: pa_debug.g_err_stage := 'Checking for periodic layout';
581: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
582: END IF;
583:
584: BEGIN
585: SELECT 'Y'
597:
598: --log1('----- STAGE 2-------');
599: IF is_periodic_layout = 'Y' THEN
600: IF l_debug_mode = 'Y' THEN
601: pa_debug.g_err_stage := 'Validating period mask';
602: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
603: END IF;
604:
605: IF l_time_phase_code <> 'N' THEN
598: --log1('----- STAGE 2-------');
599: IF is_periodic_layout = 'Y' THEN
600: IF l_debug_mode = 'Y' THEN
601: pa_debug.g_err_stage := 'Validating period mask';
602: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
603: END IF;
604:
605: IF l_time_phase_code <> 'N' THEN
606: BEGIN
610: WHERE period_mask_id = l_period_mask_id;
611: EXCEPTION
612: WHEN NO_DATA_FOUND THEN
613: IF l_debug_mode = 'Y' THEN
614: pa_debug.g_err_stage := 'No data found for period mask';
615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
616: END IF;
617: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
618: END;
611: EXCEPTION
612: WHEN NO_DATA_FOUND THEN
613: IF l_debug_mode = 'Y' THEN
614: pa_debug.g_err_stage := 'No data found for period mask';
615: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
616: END IF;
617: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
618: END;
619: -- the following validation is only for timephased budgets downloaded in
619: -- the following validation is only for timephased budgets downloaded in
620: -- periodic layouts
621: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
622: IF l_debug_mode = 'Y' THEN
623: pa_debug.g_err_stage := 'period mask has changed';
624: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
625: END IF;
626: RAISE Bv_period_mask_changed_Exc;
627: --Update the interface table with error_code 'PA_FP_WEBADI_TP_MODIFIED'
620: -- periodic layouts
621: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
622: IF l_debug_mode = 'Y' THEN
623: pa_debug.g_err_stage := 'period mask has changed';
624: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
625: END IF;
626: RAISE Bv_period_mask_changed_Exc;
627: --Update the interface table with error_code 'PA_FP_WEBADI_TP_MODIFIED'
628: END IF;
630: END IF;
631:
632: --log1('----- STAGE 3-------');
633: IF l_debug_mode = 'Y' THEN
634: pa_debug.g_err_stage := 'Checking for function security';
635: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
636: END IF;
637:
638: IF l_ci_id = -1 THEN
631:
632: --log1('----- STAGE 3-------');
633: IF l_debug_mode = 'Y' THEN
634: pa_debug.g_err_stage := 'Checking for function security';
635: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
636: END IF;
637:
638: IF l_ci_id = -1 THEN
639: -- budget version
660: END IF;
661:
662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
663: IF l_debug_mode = 'Y' THEN
664: pa_debug.g_err_stage := 'Function security not present';
665: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
666: END IF;
667: RAISE No_Bv_Maint_Previlege_Exc;
668: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
661:
662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
663: IF l_debug_mode = 'Y' THEN
664: pa_debug.g_err_stage := 'Function security not present';
665: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
666: END IF;
667: RAISE No_Bv_Maint_Previlege_Exc;
668: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
669: END IF;
670:
671: --log1('----- STAGE 4-------');
672: -- Checking, if the budget version can be edited or not
673: IF l_debug_mode = 'Y' THEN
674: pa_debug.g_err_stage := 'Checking if the version can be edited';
675: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
676: END IF;
677:
678: IF l_ci_id = -1 THEN
671: --log1('----- STAGE 4-------');
672: -- Checking, if the budget version can be edited or not
673: IF l_debug_mode = 'Y' THEN
674: pa_debug.g_err_stage := 'Checking if the version can be edited';
675: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
676: END IF;
677:
678: IF l_ci_id = -1 THEN
679: pa_fin_plan_utils.validate_editable_bv
689:
690: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: IF l_val_err_code IS NOT NULL THEN
692: IF l_debug_mode = 'Y' THEN
693: pa_debug.g_err_stage := 'The version can not be edited';
694: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
695: END IF;
696: RAISE Bv_Non_Editable_Exc;
697: --update the interface table with the error_code;
690: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: IF l_val_err_code IS NOT NULL THEN
692: IF l_debug_mode = 'Y' THEN
693: pa_debug.g_err_stage := 'The version can not be edited';
694: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
695: END IF;
696: RAISE Bv_Non_Editable_Exc;
697: --update the interface table with the error_code;
698: END IF;
701: --log1('----- STAGE 5-------');
702: ELSE
703: -- Check if the ci is not editable
704: IF l_debug_mode = 'Y' THEN
705: pa_debug.g_err_stage := 'Checking if the CO can be updated';
706: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
707: END IF;
708: BEGIN
709: SELECT pjs.project_system_status_code
702: ELSE
703: -- Check if the ci is not editable
704: IF l_debug_mode = 'Y' THEN
705: pa_debug.g_err_stage := 'Checking if the CO can be updated';
706: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
707: END IF;
708: BEGIN
709: SELECT pjs.project_system_status_code
710: INTO l_ci_status_code
714: and pci.status_code = pjs.project_status_code;
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: IF l_debug_mode = 'Y' THEN
718: pa_debug.g_err_stage := 'Status code not found';
719: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
720: END IF;
721: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
722: END;
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: IF l_debug_mode = 'Y' THEN
718: pa_debug.g_err_stage := 'Status code not found';
719: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
720: END IF;
721: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
722: END;
723:
722: END;
723:
724: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
725: IF l_debug_mode = 'Y' THEN
726: pa_debug.g_err_stage := 'CO version cannot be updated';
727: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
728: END IF;
729: RAISE Co_Ver_Non_Editable_Exc;
730: --update the interface table with error_code 'PA_FP_WA_CI_VER_NON_EDITABLE'
723:
724: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
725: IF l_debug_mode = 'Y' THEN
726: pa_debug.g_err_stage := 'CO version cannot be updated';
727: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
728: END IF;
729: RAISE Co_Ver_Non_Editable_Exc;
730: --update the interface table with error_code 'PA_FP_WA_CI_VER_NON_EDITABLE'
731: END IF;
738: * throw an error, if the version is CI
739: */
740:
741: IF l_debug_mode = 'Y' THEN
742: pa_debug.g_err_stage := 'Checking for submit previlege';
743: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
744: END IF;
745: IF p_submit_flag = 'Y' THEN
746: -- call to check if the version is current working
739: */
740:
741: IF l_debug_mode = 'Y' THEN
742: pa_debug.g_err_stage := 'Checking for submit previlege';
743: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
744: END IF;
745: IF p_submit_flag = 'Y' THEN
746: -- call to check if the version is current working
747: IF l_ci_id = -1 THEN
746: -- call to check if the version is current working
747: IF l_ci_id = -1 THEN
748: IF l_current_working_flag = 'N' THEN
749: IF l_debug_mode = 'Y' THEN
750: pa_debug.g_err_stage := 'Submittin while not current working';
751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
752: END IF;
753: RAISE Bv_Not_Curr_Working_Exc;
754: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
747: IF l_ci_id = -1 THEN
748: IF l_current_working_flag = 'N' THEN
749: IF l_debug_mode = 'Y' THEN
750: pa_debug.g_err_stage := 'Submittin while not current working';
751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
752: END IF;
753: RAISE Bv_Not_Curr_Working_Exc;
754: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
755: END IF;
754: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
755: END IF;
756: ELSE -- for CI version the p_submit_flag = 'Y'
757: IF l_debug_mode = 'Y' THEN
758: pa_debug.g_err_stage := 'Submitting CO version';
759: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
760: END IF;
761: RAISE Ci_Ver_Sumbit_Flag_Exc;
762: --Update the interface table with error_code 'PA_FP_WA_CI_VER_SUBMIT_FLAG';
755: END IF;
756: ELSE -- for CI version the p_submit_flag = 'Y'
757: IF l_debug_mode = 'Y' THEN
758: pa_debug.g_err_stage := 'Submitting CO version';
759: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
760: END IF;
761: RAISE Ci_Ver_Sumbit_Flag_Exc;
762: --Update the interface table with error_code 'PA_FP_WA_CI_VER_SUBMIT_FLAG';
763: END IF;
773: x_ret_code => l_sec_ret_code);
774:
775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
776: IF l_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage := 'No submit previlege';
778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
779: END IF;
780: RAISE No_Bv_Maint_Previlege_Exc;
781: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
774:
775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
776: IF l_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage := 'No submit previlege';
778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
779: END IF;
780: RAISE No_Bv_Maint_Previlege_Exc;
781: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
782: END IF;
784: --log1('----- STAGE 7-------');
785: END IF; -- p_submit_flag = 'Y'
786:
787: IF l_debug_mode = 'Y' THEN
788: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
790: END IF;
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.reset_curr_function;
785: END IF; -- p_submit_flag = 'Y'
786:
787: IF l_debug_mode = 'Y' THEN
788: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
790: END IF;
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.reset_curr_function;
793: END IF;
788: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
790: END IF;
791: IF l_debug_mode = 'Y' THEN
792: pa_debug.reset_curr_function;
793: END IF;
794:
795: --log1('----- Leaving validate_header_info-------');
796:
797: EXCEPTION
798: -- handling all the pre defined exceptions
799: WHEN BV_validation_failed_exc THEN
800: IF l_debug_mode = 'Y' THEN
801: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_VER_MODIFIED';
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: END IF;
804:
805: UPDATE pa_fp_webadi_upload_inf
798: -- handling all the pre defined exceptions
799: WHEN BV_validation_failed_exc THEN
800: IF l_debug_mode = 'Y' THEN
801: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_VER_MODIFIED';
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: END IF;
804:
805: UPDATE pa_fp_webadi_upload_inf
806: SET val_error_flag = 'Y',
813: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
814:
815: x_return_status := FND_API.G_RET_STS_ERROR;
816: IF l_debug_mode = 'Y' THEN
817: pa_debug.reset_curr_function;
818: END IF;
819:
820: RETURN;
821: WHEN Bv_period_mask_changed_Exc THEN
819:
820: RETURN;
821: WHEN Bv_period_mask_changed_Exc THEN
822: IF l_debug_mode = 'Y' THEN
823: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_TP_MODIFIED';
824: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
825: END IF;
826:
827: UPDATE pa_fp_webadi_upload_inf
820: RETURN;
821: WHEN Bv_period_mask_changed_Exc THEN
822: IF l_debug_mode = 'Y' THEN
823: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_TP_MODIFIED';
824: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
825: END IF;
826:
827: UPDATE pa_fp_webadi_upload_inf
828: SET val_error_flag = 'Y',
835: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
836:
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: IF l_debug_mode = 'Y' THEN
839: pa_debug.reset_curr_function;
840: END IF;
841:
842: RETURN;
843: WHEN No_Bv_Maint_Previlege_Exc THEN
841:
842: RETURN;
843: WHEN No_Bv_Maint_Previlege_Exc THEN
844: IF l_debug_mode = 'Y' THEN
845: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_NO_BV_MAINT_PVLG';
846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
847: END IF;
848:
849: UPDATE pa_fp_webadi_upload_inf
842: RETURN;
843: WHEN No_Bv_Maint_Previlege_Exc THEN
844: IF l_debug_mode = 'Y' THEN
845: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_NO_BV_MAINT_PVLG';
846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
847: END IF;
848:
849: UPDATE pa_fp_webadi_upload_inf
850: SET val_error_flag = 'Y',
857: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
858:
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: IF l_debug_mode = 'Y' THEN
861: pa_debug.reset_curr_function;
862: END IF;
863:
864: RETURN;
865: WHEN Bv_Non_Editable_Exc THEN
863:
864: RETURN;
865: WHEN Bv_Non_Editable_Exc THEN
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage := 'Updating tmp table with error code: ' || l_val_err_code;
868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
869: END IF;
870:
871: UPDATE pa_fp_webadi_upload_inf
864: RETURN;
865: WHEN Bv_Non_Editable_Exc THEN
866: IF l_debug_mode = 'Y' THEN
867: pa_debug.g_err_stage := 'Updating tmp table with error code: ' || l_val_err_code;
868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
869: END IF;
870:
871: UPDATE pa_fp_webadi_upload_inf
872: SET val_error_flag = 'Y',
879: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
880:
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: IF l_debug_mode = 'Y' THEN
883: pa_debug.reset_curr_function;
884: END IF;
885:
886: RETURN;
887: WHEN Co_Ver_Non_Editable_Exc THEN
885:
886: RETURN;
887: WHEN Co_Ver_Non_Editable_Exc THEN
888: IF l_debug_mode = 'Y' THEN
889: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_NON_EDITABLE';
890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
891: END IF;
892:
893: UPDATE pa_fp_webadi_upload_inf
886: RETURN;
887: WHEN Co_Ver_Non_Editable_Exc THEN
888: IF l_debug_mode = 'Y' THEN
889: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_NON_EDITABLE';
890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
891: END IF;
892:
893: UPDATE pa_fp_webadi_upload_inf
894: SET val_error_flag = 'Y',
901: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
902:
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: IF l_debug_mode = 'Y' THEN
905: pa_debug.reset_curr_function;
906: END IF;
907:
908: RETURN;
909: WHEN Bv_Not_Curr_Working_Exc THEN
907:
908: RETURN;
909: WHEN Bv_Not_Curr_Working_Exc THEN
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_BV_NOT_CURR_WORKING';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: END IF;
914:
915: UPDATE pa_fp_webadi_upload_inf
908: RETURN;
909: WHEN Bv_Not_Curr_Working_Exc THEN
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_BV_NOT_CURR_WORKING';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: END IF;
914:
915: UPDATE pa_fp_webadi_upload_inf
916: SET val_error_flag = 'Y',
923: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
924:
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: IF l_debug_mode = 'Y' THEN
927: pa_debug.reset_curr_function;
928: END IF;
929:
930: RETURN;
931: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
929:
930: RETURN;
931: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_SUBMIT_FLAG';
934: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
935: END IF;
936:
937: UPDATE pa_fp_webadi_upload_inf
930: RETURN;
931: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_SUBMIT_FLAG';
934: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
935: END IF;
936:
937: UPDATE pa_fp_webadi_upload_inf
938: SET val_error_flag = 'Y',
945: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
946:
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: IF l_debug_mode = 'Y' THEN
949: pa_debug.reset_curr_function;
950: END IF;
951:
952: RETURN;
953:
969: END IF;
970: x_return_status := FND_API.G_RET_STS_ERROR;
971:
972: IF l_debug_mode = 'Y' THEN
973: pa_debug.reset_curr_function;
974: END IF;
975: RETURN;
976:
977: WHEN OTHERS THEN
981:
982: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
983: ,p_procedure_name => 'prepare_val_input');
984: IF l_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
987: END IF;
988:
989: IF l_debug_mode = 'Y' THEN
982: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
983: ,p_procedure_name => 'prepare_val_input');
984: IF l_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
987: END IF;
988:
989: IF l_debug_mode = 'Y' THEN
990: pa_debug.reset_curr_function;
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
987: END IF;
988:
989: IF l_debug_mode = 'Y' THEN
990: pa_debug.reset_curr_function;
991: END IF;
992: RAISE;
993:
994: END validate_header_info; -- of validate_header_info
1033: l_data VARCHAR2(2000);
1034: l_periodic_flag VARCHAR2(1);
1035:
1036: BEGIN
1037: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1038: x_msg_count := 0;
1039: x_return_status := FND_API.G_RET_STS_SUCCESS;
1040: IF l_debug_mode = 'Y' THEN
1041: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1037: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1038: x_msg_count := 0;
1039: x_return_status := FND_API.G_RET_STS_SUCCESS;
1040: IF l_debug_mode = 'Y' THEN
1041: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1042: p_debug_mode => l_debug_mode );
1043: END IF;
1044: IF l_debug_mode = 'Y' THEN
1045: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1041: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1042: p_debug_mode => l_debug_mode );
1043: END IF;
1044: IF l_debug_mode = 'Y' THEN
1045: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1046: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1047: END IF;
1048:
1049: --log1('PE 1'||p_error_code_tbl.COUNT);
1042: p_debug_mode => l_debug_mode );
1043: END IF;
1044: IF l_debug_mode = 'Y' THEN
1045: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1046: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1047: END IF;
1048:
1049: --log1('PE 1'||p_error_code_tbl.COUNT);
1050: --log1('PE 2'||p_periodic_flag);
1120: AND val_error_flag IS NULL
1121: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
1122: ELSE -- no other valid not null context
1123: IF l_debug_mode = 'Y' THEN
1124: pa_debug.g_err_stage := 'Not a valid calling context passed';
1125: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1126: END IF;
1127: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1128: END IF;
1121: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
1122: ELSE -- no other valid not null context
1123: IF l_debug_mode = 'Y' THEN
1124: pa_debug.g_err_stage := 'Not a valid calling context passed';
1125: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1126: END IF;
1127: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1128: END IF;
1129:
1153: AND ROWNUM=1;
1154:
1155: ELSE -- input table length not same
1156: IF l_debug_mode = 'Y' THEN
1157: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1158: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1159: END IF;
1160: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1161: END IF;
1154:
1155: ELSE -- input table length not same
1156: IF l_debug_mode = 'Y' THEN
1157: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1158: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1159: END IF;
1160: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1161: END IF;
1162:
1180: AND Nvl(p_request_id, -99) = Nvl(inf.request_id, -99)
1181: AND ROWNUM=1;
1182:
1183: IF l_debug_mode = 'Y' THEN
1184: pa_debug.g_err_stage := 'SQL%COUNT' || SQL%ROWCOUNT;
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1186: END IF;
1187: ELSE
1188: IF l_debug_mode = 'Y' THEN
1181: AND ROWNUM=1;
1182:
1183: IF l_debug_mode = 'Y' THEN
1184: pa_debug.g_err_stage := 'SQL%COUNT' || SQL%ROWCOUNT;
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1186: END IF;
1187: ELSE
1188: IF l_debug_mode = 'Y' THEN
1189: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1185: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1186: END IF;
1187: ELSE
1188: IF l_debug_mode = 'Y' THEN
1189: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1191: END IF;
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193: END IF;
1186: END IF;
1187: ELSE
1188: IF l_debug_mode = 'Y' THEN
1189: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1191: END IF;
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193: END IF;
1194: END IF;
1194: END IF;
1195:
1196: ELSE -- lenght of error code table is 0 when context is not passed
1197: IF l_debug_mode = 'Y' THEN
1198: pa_debug.g_err_stage := 'No error code passed, returning';
1199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1200: END IF;
1201: IF l_debug_mode = 'Y' THEN
1202: pa_debug.reset_curr_function;
1195:
1196: ELSE -- lenght of error code table is 0 when context is not passed
1197: IF l_debug_mode = 'Y' THEN
1198: pa_debug.g_err_stage := 'No error code passed, returning';
1199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1200: END IF;
1201: IF l_debug_mode = 'Y' THEN
1202: pa_debug.reset_curr_function;
1203: END IF;
1198: pa_debug.g_err_stage := 'No error code passed, returning';
1199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1200: END IF;
1201: IF l_debug_mode = 'Y' THEN
1202: pa_debug.reset_curr_function;
1203: END IF;
1204: RETURN;
1205: END IF;
1206: END IF; -- p_context
1208: -- placing a commit here to retain all the error codes stamped.
1209: -- COMMIT;
1210:
1211: IF l_debug_mode = 'Y' THEN
1212: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1213: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1214: END IF;
1215: IF l_debug_mode = 'Y' THEN
1216: pa_debug.reset_curr_function;
1209: -- COMMIT;
1210:
1211: IF l_debug_mode = 'Y' THEN
1212: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1213: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1214: END IF;
1215: IF l_debug_mode = 'Y' THEN
1216: pa_debug.reset_curr_function;
1217: END IF;
1212: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1213: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1214: END IF;
1215: IF l_debug_mode = 'Y' THEN
1216: pa_debug.reset_curr_function;
1217: END IF;
1218:
1219: EXCEPTION
1220: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1235: END IF;
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237:
1238: IF l_debug_mode = 'Y' THEN
1239: pa_debug.reset_curr_function;
1240: END IF;
1241: RETURN;
1242:
1243: WHEN OTHERS THEN
1247:
1248: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1249: ,p_procedure_name => 'process_errors');
1250: IF l_debug_mode = 'Y' THEN
1251: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1253: END IF;
1254:
1255: IF l_debug_mode = 'Y' THEN
1248: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1249: ,p_procedure_name => 'process_errors');
1250: IF l_debug_mode = 'Y' THEN
1251: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1253: END IF;
1254:
1255: IF l_debug_mode = 'Y' THEN
1256: pa_debug.reset_curr_function;
1252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1253: END IF;
1254:
1255: IF l_debug_mode = 'Y' THEN
1256: pa_debug.reset_curr_function;
1257: END IF;
1258: RAISE;
1259: END process_errors;
1260:
1287: l_err_rlm_id_tbl SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
1288: l_err_txn_curr_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
1289:
1290: BEGIN
1291: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1292: x_msg_count := 0;
1293: x_return_status := FND_API.G_RET_STS_SUCCESS;
1294: IF l_debug_mode = 'Y' THEN
1295: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1291: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1292: x_msg_count := 0;
1293: x_return_status := FND_API.G_RET_STS_SUCCESS;
1294: IF l_debug_mode = 'Y' THEN
1295: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1296: p_debug_mode => l_debug_mode );
1297: END IF;
1298: IF l_debug_mode = 'Y' THEN
1299: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1295: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1296: p_debug_mode => l_debug_mode );
1297: END IF;
1298: IF l_debug_mode = 'Y' THEN
1299: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1300: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1301: END IF;
1302:
1303: -- checking if there is some value in the global table
1296: p_debug_mode => l_debug_mode );
1297: END IF;
1298: IF l_debug_mode = 'Y' THEN
1299: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1300: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1301: END IF;
1302:
1303: -- checking if there is some value in the global table
1304: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1302:
1303: -- checking if there is some value in the global table
1304: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1305: IF l_debug_mode = 'Y' THEN
1306: pa_debug.g_err_stage := 'There are some values in the global table';
1307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1308: END IF;
1309:
1310: -- processing starts
1303: -- checking if there is some value in the global table
1304: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1305: IF l_debug_mode = 'Y' THEN
1306: pa_debug.g_err_stage := 'There are some values in the global table';
1307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1308: END IF;
1309:
1310: -- processing starts
1311: FOR i IN g_fp_webadi_rec_tbl.FIRST .. g_fp_webadi_rec_tbl.LAST LOOP
1337: g_fp_webadi_rec_tbl.DELETE;
1338: END IF;
1339: ELSE
1340: IF l_debug_mode = 'Y' THEN
1341: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1343: END IF;
1344: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1345: END IF;
1338: END IF;
1339: ELSE
1340: IF l_debug_mode = 'Y' THEN
1341: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1343: END IF;
1344: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1345: END IF;
1346: IF l_debug_mode = 'Y' THEN
1343: END IF;
1344: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1345: END IF;
1346: IF l_debug_mode = 'Y' THEN
1347: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1349: END IF;
1350: IF l_debug_mode = 'Y' THEN
1351: pa_debug.reset_curr_function;
1344: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1345: END IF;
1346: IF l_debug_mode = 'Y' THEN
1347: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1349: END IF;
1350: IF l_debug_mode = 'Y' THEN
1351: pa_debug.reset_curr_function;
1352: END IF;
1347: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1349: END IF;
1350: IF l_debug_mode = 'Y' THEN
1351: pa_debug.reset_curr_function;
1352: END IF;
1353: EXCEPTION
1354: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1355: IF l_debug_mode = 'Y' THEN
1352: END IF;
1353: EXCEPTION
1354: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1355: IF l_debug_mode = 'Y' THEN
1356: pa_debug.reset_curr_function;
1357: END IF;
1358: RETURN;
1359: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1360:
1380: END IF;
1381: x_return_status := FND_API.G_RET_STS_ERROR;
1382:
1383: IF l_debug_mode = 'Y' THEN
1384: pa_debug.reset_curr_function;
1385: END IF;
1386: RETURN;
1387:
1388: WHEN OTHERS THEN
1397:
1398: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1399: ,p_procedure_name => 'read_global_var_to_report_err');
1400: IF l_debug_mode = 'Y' THEN
1401: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1402: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1403: END IF;
1404:
1405: IF l_debug_mode = 'Y' THEN
1398: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1399: ,p_procedure_name => 'read_global_var_to_report_err');
1400: IF l_debug_mode = 'Y' THEN
1401: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1402: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1403: END IF;
1404:
1405: IF l_debug_mode = 'Y' THEN
1406: pa_debug.reset_curr_function;
1402: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1403: END IF;
1404:
1405: IF l_debug_mode = 'Y' THEN
1406: pa_debug.reset_curr_function;
1407: END IF;
1408: RAISE;
1409: END read_global_var_to_report_err;
1410:
1437: l_task_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1438: l_rlm_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1439:
1440: BEGIN
1441: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1442: x_msg_count := 0;
1443: x_return_status := FND_API.G_RET_STS_SUCCESS;
1444: IF l_debug_mode = 'Y' THEN
1445: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1441: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1442: x_msg_count := 0;
1443: x_return_status := FND_API.G_RET_STS_SUCCESS;
1444: IF l_debug_mode = 'Y' THEN
1445: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1446: p_debug_mode => l_debug_mode );
1447: END IF;
1448: IF l_debug_mode = 'Y' THEN
1449: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1445: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1446: p_debug_mode => l_debug_mode );
1447: END IF;
1448: IF l_debug_mode = 'Y' THEN
1449: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1450: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1451: END IF;
1452:
1453: -- validating input params.
1446: p_debug_mode => l_debug_mode );
1447: END IF;
1448: IF l_debug_mode = 'Y' THEN
1449: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1450: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1451: END IF;
1452:
1453: -- validating input params.
1454: IF p_budget_line_tbl.COUNT < 1 THEN
1452:
1453: -- validating input params.
1454: IF p_budget_line_tbl.COUNT < 1 THEN
1455: IF l_debug_mode = 'Y' THEN
1456: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1458: END IF;
1459: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1460: ELSE
1453: -- validating input params.
1454: IF p_budget_line_tbl.COUNT < 1 THEN
1455: IF l_debug_mode = 'Y' THEN
1456: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1458: END IF;
1459: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1460: ELSE
1461: IF l_debug_mode = 'Y' THEN
1458: END IF;
1459: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1460: ELSE
1461: IF l_debug_mode = 'Y' THEN
1462: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1463: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1464: END IF;
1465:
1466: FOR i IN p_budget_line_tbl.FIRST .. p_budget_line_tbl.LAST LOOP
1459: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1460: ELSE
1461: IF l_debug_mode = 'Y' THEN
1462: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1463: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1464: END IF;
1465:
1466: FOR i IN p_budget_line_tbl.FIRST .. p_budget_line_tbl.LAST LOOP
1467: -- looping through both the table types
1475: END LOOP;
1476: END IF;
1477:
1478: IF l_debug_mode = 'Y' THEN
1479: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1481: END IF;
1482: IF l_debug_mode = 'Y' THEN
1483: pa_debug.reset_curr_function;
1476: END IF;
1477:
1478: IF l_debug_mode = 'Y' THEN
1479: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1481: END IF;
1482: IF l_debug_mode = 'Y' THEN
1483: pa_debug.reset_curr_function;
1484: END IF;
1479: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1481: END IF;
1482: IF l_debug_mode = 'Y' THEN
1483: pa_debug.reset_curr_function;
1484: END IF;
1485: EXCEPTION
1486: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1487: IF l_debug_mode = 'Y' THEN
1484: END IF;
1485: EXCEPTION
1486: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1487: IF l_debug_mode = 'Y' THEN
1488: pa_debug.reset_curr_function;
1489: END IF;
1490: RETURN;
1491: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1492: l_msg_count := FND_MSG_PUB.count_msg;
1506: END IF;
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508:
1509: IF l_debug_mode = 'Y' THEN
1510: pa_debug.reset_curr_function;
1511: END IF;
1512: RETURN;
1513:
1514: WHEN OTHERS THEN
1518:
1519: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1520: ,p_procedure_name => 'check_and_update_txn_curr_code');
1521: IF l_debug_mode = 'Y' THEN
1522: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1524: END IF;
1525:
1526: IF l_debug_mode = 'Y' THEN
1519: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1520: ,p_procedure_name => 'check_and_update_txn_curr_code');
1521: IF l_debug_mode = 'Y' THEN
1522: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1524: END IF;
1525:
1526: IF l_debug_mode = 'Y' THEN
1527: pa_debug.reset_curr_function;
1523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1524: END IF;
1525:
1526: IF l_debug_mode = 'Y' THEN
1527: pa_debug.reset_curr_function;
1528: END IF;
1529: RAISE;
1530: END check_and_update_txn_curr_code;
1531:
1554: l_project_rate_date pa_fp_webadi_upload_inf.project_rate_date%TYPE;
1555:
1556:
1557: BEGIN
1558: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1559:
1560: IF l_debug_mode = 'Y' THEN
1561: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1562: p_debug_mode => l_debug_mode );
1557: BEGIN
1558: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1559:
1560: IF l_debug_mode = 'Y' THEN
1561: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1562: p_debug_mode => l_debug_mode );
1563: END IF;
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1561: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1562: p_debug_mode => l_debug_mode );
1563: END IF;
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1566: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1567: END IF;
1568:
1569: conv_attrb_displayed := 'N';
1562: p_debug_mode => l_debug_mode );
1563: END IF;
1564: IF l_debug_mode = 'Y' THEN
1565: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1566: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1567: END IF;
1568:
1569: conv_attrb_displayed := 'N';
1570:
1569: conv_attrb_displayed := 'N';
1570:
1571: IF p_run_id IS NULL THEN
1572: IF l_debug_mode = 'Y' THEN
1573: pa_debug.g_err_stage := 'p_run_id is passed as null';
1574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1575: END IF;
1576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1577: END IF;
1570:
1571: IF p_run_id IS NULL THEN
1572: IF l_debug_mode = 'Y' THEN
1573: pa_debug.g_err_stage := 'p_run_id is passed as null';
1574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1575: END IF;
1576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1577: END IF;
1578:
1576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1577: END IF;
1578:
1579: IF l_debug_mode = 'Y' THEN
1580: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1581: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1582: END IF;
1583:
1584: BEGIN
1577: END IF;
1578:
1579: IF l_debug_mode = 'Y' THEN
1580: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1581: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1582: END IF;
1583:
1584: BEGIN
1585: SELECT projfunc_rate_type,
1604: l_project_rate_type <> g_hidden_col_char OR
1605: l_project_rate_date_type <> g_hidden_col_char OR
1606: l_project_rate_date <> g_hidden_col_date THEN
1607: IF l_debug_mode = 'Y' THEN
1608: pa_debug.g_err_stage := 'Conv attrb cols displayed in layout';
1609: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1610: END IF;
1611: conv_attrb_displayed := 'Y';
1612: END IF;
1605: l_project_rate_date_type <> g_hidden_col_char OR
1606: l_project_rate_date <> g_hidden_col_date THEN
1607: IF l_debug_mode = 'Y' THEN
1608: pa_debug.g_err_stage := 'Conv attrb cols displayed in layout';
1609: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1610: END IF;
1611: conv_attrb_displayed := 'Y';
1612: END IF;
1613: EXCEPTION
1612: END IF;
1613: EXCEPTION
1614: WHEN NO_DATA_FOUND THEN
1615: IF l_debug_mode = 'Y' THEN
1616: pa_debug.g_err_stage := 'No rows in the interface table';
1617: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1618: END IF;
1619: conv_attrb_displayed := 'N';
1620: END;
1613: EXCEPTION
1614: WHEN NO_DATA_FOUND THEN
1615: IF l_debug_mode = 'Y' THEN
1616: pa_debug.g_err_stage := 'No rows in the interface table';
1617: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1618: END IF;
1619: conv_attrb_displayed := 'N';
1620: END;
1621:
1620: END;
1621:
1622:
1623: IF l_debug_mode = 'Y' THEN
1624: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1626: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1628: END IF;
1621:
1622:
1623: IF l_debug_mode = 'Y' THEN
1624: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1626: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1628: END IF;
1629: IF l_debug_mode = 'Y' THEN
1622:
1623: IF l_debug_mode = 'Y' THEN
1624: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1626: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1628: END IF;
1629: IF l_debug_mode = 'Y' THEN
1630: pa_debug.reset_curr_function;
1623: IF l_debug_mode = 'Y' THEN
1624: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1626: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1628: END IF;
1629: IF l_debug_mode = 'Y' THEN
1630: pa_debug.reset_curr_function;
1631: END IF;
1626: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1628: END IF;
1629: IF l_debug_mode = 'Y' THEN
1630: pa_debug.reset_curr_function;
1631: END IF;
1632:
1633: -- returning
1634: RETURN conv_attrb_displayed;
1635:
1636: EXCEPTION
1637: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1638: IF l_debug_mode = 'Y' THEN
1639: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1641: END IF;
1642: IF l_debug_mode = 'Y' THEN
1643: pa_debug.reset_curr_function;
1636: EXCEPTION
1637: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1638: IF l_debug_mode = 'Y' THEN
1639: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1641: END IF;
1642: IF l_debug_mode = 'Y' THEN
1643: pa_debug.reset_curr_function;
1644: END IF;
1639: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1641: END IF;
1642: IF l_debug_mode = 'Y' THEN
1643: pa_debug.reset_curr_function;
1644: END IF;
1645: RAISE;
1646:
1647: WHEN OTHERS THEN
1647: WHEN OTHERS THEN
1648: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1649: ,p_procedure_name => 'conv_attributes_displayed');
1650: IF l_debug_mode = 'Y' THEN
1651: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1652: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1653: END IF;
1654:
1655: IF l_debug_mode = 'Y' THEN
1648: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1649: ,p_procedure_name => 'conv_attributes_displayed');
1650: IF l_debug_mode = 'Y' THEN
1651: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1652: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1653: END IF;
1654:
1655: IF l_debug_mode = 'Y' THEN
1656: pa_debug.reset_curr_function;
1652: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1653: END IF;
1654:
1655: IF l_debug_mode = 'Y' THEN
1656: pa_debug.reset_curr_function;
1657: END IF;
1658: RAISE;
1659: END conv_attributes_displayed;
1660:
1989: l_period_plan_start_date_tbl date_tbl_type;
1990: l_period_plan_end_date_tbl date_tbl_type;
1991: BEGIN
1992:
1993: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1994: x_msg_count := 0;
1995: x_return_status := FND_API.G_RET_STS_SUCCESS;
1996:
1997: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1993: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1994: x_msg_count := 0;
1995: x_return_status := FND_API.G_RET_STS_SUCCESS;
1996:
1997: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1998: p_debug_mode => l_debug_mode );
1999:
2000: IF l_debug_mode = 'Y' THEN
2001: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
1997: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1998: p_debug_mode => l_debug_mode );
1999:
2000: IF l_debug_mode = 'Y' THEN
2001: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
2002: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2003: END IF;
2004:
2005: --log1('----- Entering into prepare_val_input-------');
1998: p_debug_mode => l_debug_mode );
1999:
2000: IF l_debug_mode = 'Y' THEN
2001: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
2002: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2003: END IF;
2004:
2005: --log1('----- Entering into prepare_val_input-------');
2006: -- deriving all the required version level info
2004:
2005: --log1('----- Entering into prepare_val_input-------');
2006: -- deriving all the required version level info
2007: IF l_debug_mode = 'Y' THEN
2008: pa_debug.g_err_stage := 'validating input';
2009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2010: END IF;
2011: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2012: IF p_version_info_rec.x_project_id IS NULL THEN
2005: --log1('----- Entering into prepare_val_input-------');
2006: -- deriving all the required version level info
2007: IF l_debug_mode = 'Y' THEN
2008: pa_debug.g_err_stage := 'validating input';
2009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2010: END IF;
2011: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2012: IF p_version_info_rec.x_project_id IS NULL THEN
2013: IF l_debug_mode = 'Y' THEN
2010: END IF;
2011: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2012: IF p_version_info_rec.x_project_id IS NULL THEN
2013: IF l_debug_mode = 'Y' THEN
2014: pa_debug.g_err_stage := 'project_id not passed';
2015: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2016: END IF;
2017: pa_utils.add_message
2018: (p_app_short_name => 'PA',
2011: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2012: IF p_version_info_rec.x_project_id IS NULL THEN
2013: IF l_debug_mode = 'Y' THEN
2014: pa_debug.g_err_stage := 'project_id not passed';
2015: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2016: END IF;
2017: pa_utils.add_message
2018: (p_app_short_name => 'PA',
2019: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2026: IF (p_prd_start_date_tbl.COUNT > 0 OR
2027: p_prd_end_date_tbl.COUNT > 0 ) AND
2028: p_org_id IS NULL THEN
2029: IF l_debug_mode = 'Y' THEN
2030: pa_debug.g_err_stage := 'org_id not passed for periodic layouts';
2031: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2032: END IF;
2033: pa_utils.add_message
2034: (p_app_short_name => 'PA',
2027: p_prd_end_date_tbl.COUNT > 0 ) AND
2028: p_org_id IS NULL THEN
2029: IF l_debug_mode = 'Y' THEN
2030: pa_debug.g_err_stage := 'org_id not passed for periodic layouts';
2031: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2032: END IF;
2033: pa_utils.add_message
2034: (p_app_short_name => 'PA',
2035: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2046: -- updating the temp table with the task_id for the task name/ task number
2047: -- given in the excel after deriving the same. if not a valid task, leaving
2048: -- task_id column null
2049: IF l_debug_mode = 'Y' THEN
2050: pa_debug.g_err_stage := 'Updating task_id for the task name/number given';
2051: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2052: END IF;
2053:
2054: --log1('----- STAGE 1-------');
2047: -- given in the excel after deriving the same. if not a valid task, leaving
2048: -- task_id column null
2049: IF l_debug_mode = 'Y' THEN
2050: pa_debug.g_err_stage := 'Updating task_id for the task name/number given';
2051: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2052: END IF;
2053:
2054: --log1('----- STAGE 1-------');
2055: BEGIN
2448: END IF; -- uncategorized flag
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: IF l_debug_mode = 'Y' THEN
2452: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2454: END IF;
2455:
2456: RAISE;
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: IF l_debug_mode = 'Y' THEN
2452: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2453: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2454: END IF;
2455:
2456: RAISE;
2457: END;
2455:
2456: RAISE;
2457: END;
2458: IF l_debug_mode = 'Y' THEN
2459: pa_debug.g_err_stage := 'Task ids updated';
2460: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2461: END IF;
2462:
2463: --log1('----- STAGE 2-------');
2456: RAISE;
2457: END;
2458: IF l_debug_mode = 'Y' THEN
2459: pa_debug.g_err_stage := 'Task ids updated';
2460: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2461: END IF;
2462:
2463: --log1('----- STAGE 2-------');
2464: -- checking, if the layout is periodic one
2462:
2463: --log1('----- STAGE 2-------');
2464: -- checking, if the layout is periodic one
2465: IF l_debug_mode = 'Y' THEN
2466: pa_debug.g_err_stage := 'Checking for periodic setup';
2467: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2468: END IF;
2469:
2470: BEGIN
2463: --log1('----- STAGE 2-------');
2464: -- checking, if the layout is periodic one
2465: IF l_debug_mode = 'Y' THEN
2466: pa_debug.g_err_stage := 'Checking for periodic setup';
2467: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2468: END IF;
2469:
2470: BEGIN
2471: SELECT 'Y'
2481: is_periodic_setup := 'N';
2482: END;
2483:
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2487: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2489: END IF;
2482: END;
2483:
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2487: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2489: END IF;
2490: --The following update on the interface will be used for
2483:
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2487: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2489: END IF;
2490: --The following update on the interface will be used for
2491: ----Updating the error codes where task/resource info is missing
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2487: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2489: END IF;
2490: --The following update on the interface will be used for
2491: ----Updating the error codes where task/resource info is missing
2492: ----Updating the amount type codes for the corresponding amount type names in case of periodic layout
2556: END IF;
2557:
2558: --log1('----- STAGE 5-------');
2559: IF l_debug_mode = 'Y' THEN
2560: pa_debug.g_err_stage := 'plan class code of the version: ' || p_version_info_rec.x_plan_class_code;
2561: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2562: END IF;
2563:
2564:
2557:
2558: --log1('----- STAGE 5-------');
2559: IF l_debug_mode = 'Y' THEN
2560: pa_debug.g_err_stage := 'plan class code of the version: ' || p_version_info_rec.x_plan_class_code;
2561: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2562: END IF;
2563:
2564:
2565: IF p_version_info_rec.x_plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
2566: is_forecast_version := 'Y';
2567:
2568: -- calling an api to derive the etc_start_date
2569: IF l_debug_mode = 'Y' THEN
2570: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_etc_start_date';
2571: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2572: END IF;
2573:
2574: l_etc_start_date := pa_fp_gen_amount_utils.get_etc_start_date(p_version_info_rec.x_budget_version_id);
2567:
2568: -- calling an api to derive the etc_start_date
2569: IF l_debug_mode = 'Y' THEN
2570: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_etc_start_date';
2571: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2572: END IF;
2573:
2574: l_etc_start_date := pa_fp_gen_amount_utils.get_etc_start_date(p_version_info_rec.x_budget_version_id);
2575: END IF;
2587: AND t.language = userenv('LANG');
2588: EXCEPTION
2589: WHEN OTHERS THEN
2590: IF l_debug_mode = 'Y' THEN
2591: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2592: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2593: END IF;
2594:
2595: RAISE;
2588: EXCEPTION
2589: WHEN OTHERS THEN
2590: IF l_debug_mode = 'Y' THEN
2591: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2592: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2593: END IF;
2594:
2595: RAISE;
2596: END;
2654: AND fin_plan_preference_code = 'COST_AND_REV_SAME';
2655: EXCEPTION
2656: WHEN OTHERS THEN
2657: IF l_debug_mode = 'Y' THEN
2658: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2659: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2660: END IF;
2661:
2662: RAISE;
2655: EXCEPTION
2656: WHEN OTHERS THEN
2657: IF l_debug_mode = 'Y' THEN
2658: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2659: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2660: END IF;
2661:
2662: RAISE;
2663: END;
2680: WHERE proj_fp_options_id = p_version_info_rec.x_proj_fp_options_id;
2681: EXCEPTION
2682: WHEN OTHERS THEN
2683: IF l_debug_mode = 'Y' THEN
2684: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2685: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2686: END IF;
2687:
2688: RAISE;
2681: EXCEPTION
2682: WHEN OTHERS THEN
2683: IF l_debug_mode = 'Y' THEN
2684: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2685: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2686: END IF;
2687:
2688: RAISE;
2689: END;
2693: l_plan_trans_attr_copied_flag := 'N';
2694: l_cost_conv_attr_copied_flag := 'N';
2695: l_rev_conv_attr_copied_flag := 'N';
2696: IF l_debug_mode = 'Y' THEN
2697: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2698: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2699: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2700: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2701: END IF;
2694: l_cost_conv_attr_copied_flag := 'N';
2695: l_rev_conv_attr_copied_flag := 'N';
2696: IF l_debug_mode = 'Y' THEN
2697: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2698: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2699: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2700: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2701: END IF;
2702:
2695: l_rev_conv_attr_copied_flag := 'N';
2696: IF l_debug_mode = 'Y' THEN
2697: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2698: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2699: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2700: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2701: END IF;
2702:
2703: --Initialize the OUT variables
2696: IF l_debug_mode = 'Y' THEN
2697: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2698: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2699: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2700: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2701: END IF;
2702:
2703: --Initialize the OUT variables
2704: x_etc_quantity_tbl := SYSTEM.pa_num_tbl_type();
2989: WHERE resource_list_member_id = l_inf_tbl_data_curr_rec.resource_list_member_id;
2990: EXCEPTION
2991: WHEN OTHERS THEN
2992: IF l_debug_mode = 'Y' THEN
2993: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2995: END IF;
2996:
2997: RAISE;
2990: EXCEPTION
2991: WHEN OTHERS THEN
2992: IF l_debug_mode = 'Y' THEN
2993: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2994: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2995: END IF;
2996:
2997: RAISE;
2998: END;
4197: IF is_periodic_setup = 'Y' THEN
4198: IF l_inf_tbl_data_curr_rec.amount_type_code = l_inf_tbl_data_next_rec.amount_type_code THEN
4199: -- populating the error codes to call process_errors at the end
4200: IF l_debug_mode = 'Y' THEN
4201: pa_debug.g_err_stage := 'Duplicate record found';
4202: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4203: END IF;
4204:
4205: l_err_val_code_tbl.extend(1);
4198: IF l_inf_tbl_data_curr_rec.amount_type_code = l_inf_tbl_data_next_rec.amount_type_code THEN
4199: -- populating the error codes to call process_errors at the end
4200: IF l_debug_mode = 'Y' THEN
4201: pa_debug.g_err_stage := 'Duplicate record found';
4202: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4203: END IF;
4204:
4205: l_err_val_code_tbl.extend(1);
4206: l_err_val_code_tbl(l_err_val_code_tbl.COUNT) := 'PA_FP_WA_DUPL_REC_PASSED';
4218: END IF;
4219: ELSE
4220: -- populating the error codes to call process_errors at the end
4221: IF l_debug_mode = 'Y' THEN
4222: pa_debug.g_err_stage := 'Duplicate record found';
4223: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4224: END IF;
4225:
4226: l_err_val_code_tbl.extend(1);
4219: ELSE
4220: -- populating the error codes to call process_errors at the end
4221: IF l_debug_mode = 'Y' THEN
4222: pa_debug.g_err_stage := 'Duplicate record found';
4223: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4224: END IF;
4225:
4226: l_err_val_code_tbl.extend(1);
4227: l_err_val_code_tbl(l_err_val_code_tbl.COUNT) := 'PA_FP_WA_DUPL_REC_PASSED';
5387: END IF;
5388: ELSE
5389: --log1('----- STAGE 104-------');
5390: IF l_debug_mode = 'Y' THEN
5391: pa_debug.g_err_stage := 'Opening Cursor non_prd_lyt_null_val_cur';
5392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5393: END IF;
5394: OPEN non_prd_lyt_null_val_cur( l_inf_tbl_data_curr_rec.budget_version_id,
5395: l_inf_tbl_data_curr_rec.task_id,
5388: ELSE
5389: --log1('----- STAGE 104-------');
5390: IF l_debug_mode = 'Y' THEN
5391: pa_debug.g_err_stage := 'Opening Cursor non_prd_lyt_null_val_cur';
5392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5393: END IF;
5394: OPEN non_prd_lyt_null_val_cur( l_inf_tbl_data_curr_rec.budget_version_id,
5395: l_inf_tbl_data_curr_rec.task_id,
5396: l_inf_tbl_data_curr_rec.resource_list_member_id,
5409: l_ratxn_bill_over_rate,
5410: l_ra_rate_based_flag;
5411: CLOSE non_prd_lyt_null_val_cur;
5412: IF l_debug_mode = 'Y' THEN
5413: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5410: l_ra_rate_based_flag;
5411: CLOSE non_prd_lyt_null_val_cur;
5412: IF l_debug_mode = 'Y' THEN
5413: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5411: CLOSE non_prd_lyt_null_val_cur;
5412: IF l_debug_mode = 'Y' THEN
5413: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5412: IF l_debug_mode = 'Y' THEN
5413: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5413: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5415: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5417: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5419: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5421: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5423: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5425: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5433: END IF;
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5433: END IF;
5434:
5427: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5433: END IF;
5434:
5435:
5428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5429: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5430: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5431: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5433: END IF;
5434:
5435:
5436: IF l_ratxn_total_quantity IS NULL AND (l_inf_tbl_data_curr_rec.quantity = l_fnd_miss_num) THEN
5708: EXCEPTION -- inside the loop to catch skip_ra_exc
5709: WHEN Fp_Webadi_Skip_Dup_Rec_Exc THEN
5710: -- exception to skip processing of the duplicate records entered
5711: IF l_debug_mode = 'Y' THEN
5712: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Dup_Rec_Exc Raised';
5713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5714: END IF;
5715: LOOP
5716: l_inf_tbl_data_skip_rec:=NULL;
5709: WHEN Fp_Webadi_Skip_Dup_Rec_Exc THEN
5710: -- exception to skip processing of the duplicate records entered
5711: IF l_debug_mode = 'Y' THEN
5712: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Dup_Rec_Exc Raised';
5713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5714: END IF;
5715: LOOP
5716: l_inf_tbl_data_skip_rec:=NULL;
5717: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5732: -- exception to skip processing of the record, if any validation
5733: -- failure occurs in the current record, so that there would be
5734: -- at max one error code populated for any particular record.
5735: IF l_debug_mode = 'Y' THEN
5736: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Rec_Proc_Exc Raised';
5737: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5738: END IF;
5739: IF l_inf_tbl_data_next_rec.task_id IS NULL THEN
5740: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_next_rec;
5733: -- failure occurs in the current record, so that there would be
5734: -- at max one error code populated for any particular record.
5735: IF l_debug_mode = 'Y' THEN
5736: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Rec_Proc_Exc Raised';
5737: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5738: END IF;
5739: IF l_inf_tbl_data_next_rec.task_id IS NULL THEN
5740: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_next_rec;
5741: END IF;
5744: -- exception to skip processing of the next record, if any validation
5745: -- failure occurs in that record, so that there would be
5746: -- at max one error code populated for any particular record.
5747: IF l_debug_mode = 'Y' THEN
5748: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Next_Rec_Exc Raised';
5749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5750: END IF;
5751: l_inf_tbl_data_skip_rec:=NULL;
5752: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5745: -- failure occurs in that record, so that there would be
5746: -- at max one error code populated for any particular record.
5747: IF l_debug_mode = 'Y' THEN
5748: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Next_Rec_Exc Raised';
5749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5750: END IF;
5751: l_inf_tbl_data_skip_rec:=NULL;
5752: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5753: l_inf_tbl_data_next_rec := l_inf_tbl_data_skip_rec;
5770:
5771: -- calling process_errors
5772: IF l_err_val_code_tbl.COUNT > 0 THEN
5773: IF l_debug_mode = 'Y' THEN
5774: pa_debug.g_err_stage := 'Error Code Exists.Calling process_errors';
5775: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5776: END IF;
5777: process_errors ( p_run_id => p_run_id,
5778: p_periodic_flag => is_periodic_setup,
5771: -- calling process_errors
5772: IF l_err_val_code_tbl.COUNT > 0 THEN
5773: IF l_debug_mode = 'Y' THEN
5774: pa_debug.g_err_stage := 'Error Code Exists.Calling process_errors';
5775: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5776: END IF;
5777: process_errors ( p_run_id => p_run_id,
5778: p_periodic_flag => is_periodic_setup,
5779: p_error_code_tbl => l_err_val_code_tbl,
5786: x_msg_data => l_msg_data,
5787: x_msg_count => l_msg_count);
5788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5789: IF l_debug_mode = 'Y' THEN
5790: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5792: END IF;
5793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5794: END IF;
5787: x_msg_count => l_msg_count);
5788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5789: IF l_debug_mode = 'Y' THEN
5790: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5792: END IF;
5793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5794: END IF;
5795: END IF;
5830: x_rbs_elem_id_tbl := l_rbs_elem_id_tbl;
5831: x_amt_type_tbl := l_amount_type_tbl;
5832:
5833: IF l_debug_mode = 'Y' THEN
5834: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5836: END IF;
5837:
5838: pa_debug.reset_curr_function;
5831: x_amt_type_tbl := l_amount_type_tbl;
5832:
5833: IF l_debug_mode = 'Y' THEN
5834: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5836: END IF;
5837:
5838: pa_debug.reset_curr_function;
5839:
5834: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5836: END IF;
5837:
5838: pa_debug.reset_curr_function;
5839:
5840: --log1('----- Leaving prepare_val_input-------');
5841:
5842: EXCEPTION
5857: x_msg_count := l_msg_count;
5858: END IF;
5859: x_return_status := FND_API.G_RET_STS_ERROR;
5860:
5861: pa_debug.reset_curr_function;
5862:
5863: RETURN;
5864:
5865: WHEN OTHERS THEN
5869:
5870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
5871: ,p_procedure_name => 'prepare_val_input');
5872: IF l_debug_mode = 'Y' THEN
5873: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5875: END IF;
5876:
5877: pa_debug.reset_curr_function;
5870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
5871: ,p_procedure_name => 'prepare_val_input');
5872: IF l_debug_mode = 'Y' THEN
5873: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5875: END IF;
5876:
5877: pa_debug.reset_curr_function;
5878:
5873: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5874: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5875: END IF;
5876:
5877: pa_debug.reset_curr_function;
5878:
5879: RAISE;
5880:
5881: END prepare_val_input;
5894: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.get_amount_in_prd_x';
5895: l_debug_mode VARCHAR2(1) := 'N';
5896: l_amount NUMBER;
5897: BEGIN
5898: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
5899:
5900:
5901: IF l_debug_mode = 'Y' THEN
5902: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5898: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
5899:
5900:
5901: IF l_debug_mode = 'Y' THEN
5902: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5903: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5904: pa_debug.g_err_stage := 'Validating input parameters';
5905: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5906: END IF;
5899:
5900:
5901: IF l_debug_mode = 'Y' THEN
5902: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5903: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5904: pa_debug.g_err_stage := 'Validating input parameters';
5905: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5906: END IF;
5907:
5900:
5901: IF l_debug_mode = 'Y' THEN
5902: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5903: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5904: pa_debug.g_err_stage := 'Validating input parameters';
5905: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5906: END IF;
5907:
5908: IF l_debug_mode = 'Y' THEN
5901: IF l_debug_mode = 'Y' THEN
5902: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5903: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5904: pa_debug.g_err_stage := 'Validating input parameters';
5905: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5906: END IF;
5907:
5908: IF l_debug_mode = 'Y' THEN
5909: pa_debug.Set_Curr_Function
5905: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5906: END IF;
5907:
5908: IF l_debug_mode = 'Y' THEN
5909: pa_debug.Set_Curr_Function
5910: (p_function => l_module_name,
5911: p_debug_mode => l_debug_mode);
5912: END IF;
5913:
5914: IF p_prd IS NULL THEN
5915:
5916: IF l_debug_mode = 'Y' THEN
5917:
5918: pa_debug.g_err_stage := 'p_rec is null';
5919: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5920: pa_debug.g_err_stage := 'p_prd is null';
5921: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5922: pa_debug.reset_curr_function;
5915:
5916: IF l_debug_mode = 'Y' THEN
5917:
5918: pa_debug.g_err_stage := 'p_rec is null';
5919: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5920: pa_debug.g_err_stage := 'p_prd is null';
5921: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5922: pa_debug.reset_curr_function;
5923:
5916: IF l_debug_mode = 'Y' THEN
5917:
5918: pa_debug.g_err_stage := 'p_rec is null';
5919: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5920: pa_debug.g_err_stage := 'p_prd is null';
5921: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5922: pa_debug.reset_curr_function;
5923:
5924: END IF;
5917:
5918: pa_debug.g_err_stage := 'p_rec is null';
5919: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5920: pa_debug.g_err_stage := 'p_prd is null';
5921: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5922: pa_debug.reset_curr_function;
5923:
5924: END IF;
5925: RETURN NULL;
5918: pa_debug.g_err_stage := 'p_rec is null';
5919: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5920: pa_debug.g_err_stage := 'p_prd is null';
5921: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5922: pa_debug.reset_curr_function;
5923:
5924: END IF;
5925: RETURN NULL;
5926:
5926:
5927: END IF;
5928:
5929: IF l_debug_mode = 'Y' THEN
5930: pa_debug.g_err_stage := 'p_prd is '||p_prd;
5931: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5932: END IF;
5933:
5934: IF p_prd ='PD' THEN
5927: END IF;
5928:
5929: IF l_debug_mode = 'Y' THEN
5930: pa_debug.g_err_stage := 'p_prd is '||p_prd;
5931: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5932: END IF;
5933:
5934: IF p_prd ='PD' THEN
5935: l_amount := p_rec.pd_prd;
6041: l_amount := p_rec.prd52;
6042: END IF;
6043:
6044: IF l_debug_mode = 'Y' THEN
6045: pa_debug.reset_curr_function;
6046: END IF;
6047:
6048: RETURN l_amount;
6049:
6052:
6053: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6054: ,p_procedure_name => 'get_amount_in_prd_x');
6055: IF l_debug_mode = 'Y' THEN
6056: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6057: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6058: END IF;
6059:
6060: IF l_debug_mode = 'Y' THEN
6053: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6054: ,p_procedure_name => 'get_amount_in_prd_x');
6055: IF l_debug_mode = 'Y' THEN
6056: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6057: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6058: END IF;
6059:
6060: IF l_debug_mode = 'Y' THEN
6061: pa_debug.reset_curr_function;
6057: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6058: END IF;
6059:
6060: IF l_debug_mode = 'Y' THEN
6061: pa_debug.reset_curr_function;
6062: END IF;
6063: RAISE;
6064: END get_amount_in_prd_x;
6065:
6136: BEGIN
6137: x_msg_count := 0;
6138: x_return_status := FND_API.G_RET_STS_SUCCESS;
6139:
6140: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6141: l_debug_mode := NVL(l_debug_mode, 'Y');
6142:
6143: -- Set curr function
6144: IF l_debug_mode='Y' THEN
6142:
6143: -- Set curr function
6144: IF l_debug_mode='Y' THEN
6145:
6146: pa_debug.set_curr_function(
6147: p_function =>'PAFPWAPB.get_total_fcst_amounts'
6148: ,p_debug_mode => l_debug_mode );
6149: END IF;
6150:
6153: p_txn_currency_code IS NULL THEN
6154:
6155: IF l_debug_mode = 'Y' THEN
6156:
6157: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6158: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6159:
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6154:
6155: IF l_debug_mode = 'Y' THEN
6156:
6157: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6158: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6159:
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6162:
6156:
6157: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6158: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6159:
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6162:
6163: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6164: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6157: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6158: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6159:
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6162:
6163: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6164: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6165:
6159:
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6162:
6163: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6164: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6165:
6166:
6167: END IF;
6160: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6161: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6162:
6163: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6164: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6165:
6166:
6167: END IF;
6168:
6262: l_amt_typs_to_be_populated_tbl(l_amt_typ_index):='REVENUE';
6263: END IF;
6264:
6265: IF l_debug_mode = 'Y' THEN
6266: pa_debug.g_err_stage:='l_amt_typs_to_be_populated_tbl.COUNT '||l_amt_typs_to_be_populated_tbl.COUNT;
6267: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6268: END IF;
6269:
6270: IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6263: END IF;
6264:
6265: IF l_debug_mode = 'Y' THEN
6266: pa_debug.g_err_stage:='l_amt_typs_to_be_populated_tbl.COUNT '||l_amt_typs_to_be_populated_tbl.COUNT;
6267: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6268: END IF;
6269:
6270: IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6271:
6599:
6600: END IF;--IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6601:
6602: IF l_debug_mode = 'Y' THEN
6603: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6605: pa_debug.reset_curr_function;
6606: END IF;
6607:
6600: END IF;--IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6601:
6602: IF l_debug_mode = 'Y' THEN
6603: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6605: pa_debug.reset_curr_function;
6606: END IF;
6607:
6608: EXCEPTION
6601:
6602: IF l_debug_mode = 'Y' THEN
6603: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6605: pa_debug.reset_curr_function;
6606: END IF;
6607:
6608: EXCEPTION
6609:
6625: END IF;
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627:
6628: IF l_debug_mode = 'Y' THEN
6629: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6630: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6631: -- reset curr function
6632: pa_debug.reset_curr_function();
6633:
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627:
6628: IF l_debug_mode = 'Y' THEN
6629: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6630: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6631: -- reset curr function
6632: pa_debug.reset_curr_function();
6633:
6634: END IF;
6628: IF l_debug_mode = 'Y' THEN
6629: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6630: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6631: -- reset curr function
6632: pa_debug.reset_curr_function();
6633:
6634: END IF;
6635:
6636: RETURN;
6642: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6643: ,p_procedure_name => 'get_total_fcst_amounts');
6644:
6645: IF l_debug_mode = 'Y' THEN
6646: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6647: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6648: -- reset curr function
6649: pa_debug.Reset_Curr_Function();
6650: END IF;
6643: ,p_procedure_name => 'get_total_fcst_amounts');
6644:
6645: IF l_debug_mode = 'Y' THEN
6646: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6647: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6648: -- reset curr function
6649: pa_debug.Reset_Curr_Function();
6650: END IF;
6651: RAISE;
6645: IF l_debug_mode = 'Y' THEN
6646: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6647: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6648: -- reset curr function
6649: pa_debug.Reset_Curr_Function();
6650: END IF;
6651: RAISE;
6652:
6653: END get_total_fcst_amounts;
6805:
6806: tt NUMBER;
6807:
6808: BEGIN
6809: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
6810:
6811: x_return_status := FND_API.G_RET_STS_SUCCESS;
6812: x_msg_count := 0;
6813:
6811: x_return_status := FND_API.G_RET_STS_SUCCESS;
6812: x_msg_count := 0;
6813:
6814: IF l_debug_mode = 'Y' THEN
6815: pa_debug.Set_Curr_Function
6816: (p_function => l_module_name,
6817: p_debug_mode => l_debug_mode);
6818: END IF;
6819:
6817: p_debug_mode => l_debug_mode);
6818: END IF;
6819:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6822: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6823: pa_debug.g_err_stage := 'Validating input parameters';
6824: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6825: END IF;
6818: END IF;
6819:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6822: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6823: pa_debug.g_err_stage := 'Validating input parameters';
6824: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6825: END IF;
6826:
6819:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6822: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6823: pa_debug.g_err_stage := 'Validating input parameters';
6824: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6825: END IF;
6826:
6827:
6820: IF l_debug_mode = 'Y' THEN
6821: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6822: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6823: pa_debug.g_err_stage := 'Validating input parameters';
6824: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6825: END IF;
6826:
6827:
6828: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6827:
6828: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6829: IF p_context IS NULL THEN
6830: IF l_debug_mode = 'Y' THEN
6831: pa_debug.g_err_stage := 'p_context is passed as null';
6832: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6833: END IF;
6834: pa_utils.add_message(p_app_short_name => 'PA',
6835: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6828: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6829: IF p_context IS NULL THEN
6830: IF l_debug_mode = 'Y' THEN
6831: pa_debug.g_err_stage := 'p_context is passed as null';
6832: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6833: END IF;
6834: pa_utils.add_message(p_app_short_name => 'PA',
6835: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6836: p_token1 => 'PROCEDURENAME',
6842: --If there are no records to process return
6843: IF p_budget_lines_tbl.COUNT=0 THEN
6844:
6845: IF l_debug_mode = 'Y' THEN
6846: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6847: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6848: pa_debug.reset_curr_function;
6849: END IF;
6850: RETURN;
6843: IF p_budget_lines_tbl.COUNT=0 THEN
6844:
6845: IF l_debug_mode = 'Y' THEN
6846: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6847: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6848: pa_debug.reset_curr_function;
6849: END IF;
6850: RETURN;
6851:
6844:
6845: IF l_debug_mode = 'Y' THEN
6846: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6847: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6848: pa_debug.reset_curr_function;
6849: END IF;
6850: RETURN;
6851:
6852: END IF;
6885:
6886:
6887: IF l_debug_mode = 'Y' THEN
6888:
6889: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
6890: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6891:
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6886:
6887: IF l_debug_mode = 'Y' THEN
6888:
6889: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
6890: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6891:
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6894:
6888:
6889: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
6890: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6891:
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6894:
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6889: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
6890: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6891:
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6894:
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6897:
6891:
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6894:
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6897:
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6892: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
6893: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6894:
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6897:
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6900:
6894:
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6897:
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6900:
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6895: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
6896: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6897:
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6900:
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6903:
6897:
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6900:
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6903:
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6898: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
6899: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6900:
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6903:
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6906:
6900:
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6903:
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6906:
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6901: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
6902: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6903:
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6906:
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6909:
6903:
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6906:
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6909:
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6904: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
6905: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6906:
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6909:
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6912:
6906:
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6909:
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6912:
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6907: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
6908: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6909:
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6912:
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6915:
6909:
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6912:
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6915:
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6910: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
6911: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6912:
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6915:
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6918:
6912:
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6915:
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6918:
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6913: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
6914: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6915:
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6918:
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6921:
6915:
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6918:
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6921:
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6916: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
6917: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6918:
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6921:
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6924:
6918:
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6921:
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6924:
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6919: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
6920: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6921:
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6924:
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6927:
6921:
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6924:
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6927:
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6922: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
6923: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6924:
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6927:
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6930:
6924:
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6927:
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6930:
6931: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
6932: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6925: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
6926: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6927:
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6930:
6931: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
6932: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6933:
6927:
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6930:
6931: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
6932: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6933:
6934: END IF;
6935: pa_utils.add_message(p_app_short_name => 'PA',
6928: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
6929: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6930:
6931: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
6932: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6933:
6934: END IF;
6935: pa_utils.add_message(p_app_short_name => 'PA',
6936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
7014: l_prd_mask_end_date_tbl.extend;
7015:
7016: --log1('----- STAGE 3P-------');
7017: IF l_debug_mode = 'Y' THEN
7018: pa_debug.g_err_stage := 'About to loop thru inf_tbl_data_csr';
7019: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7020: END IF;
7021: IF p_version_info_rec.x_version_type = 'COST' THEN
7022: l_allow_qty_flag := p_version_info_rec.x_cost_quantity_flag;
7015:
7016: --log1('----- STAGE 3P-------');
7017: IF l_debug_mode = 'Y' THEN
7018: pa_debug.g_err_stage := 'About to loop thru inf_tbl_data_csr';
7019: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7020: END IF;
7021: IF p_version_info_rec.x_version_type = 'COST' THEN
7022: l_allow_qty_flag := p_version_info_rec.x_cost_quantity_flag;
7023: ELSIF p_version_info_rec.x_version_type = 'REVENUE' THEN
7100: IF l_curr_rec.task_id <> l_prev_task_id OR
7101: NVL(l_curr_rec.resource_list_member_id,'-99') <> l_prev_rlm_id THEN
7102:
7103: IF l_debug_mode = 'Y' THEN
7104: pa_debug.g_err_stage := 'Finding out no. of periods for RA with task_id '||l_curr_rec.task_id||' Res '||l_curr_rec.resource_list_member_id;
7105: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7106: END IF;
7107:
7108: /*IF l_debug_mode = 'Y' THEN
7101: NVL(l_curr_rec.resource_list_member_id,'-99') <> l_prev_rlm_id THEN
7102:
7103: IF l_debug_mode = 'Y' THEN
7104: pa_debug.g_err_stage := 'Finding out no. of periods for RA with task_id '||l_curr_rec.task_id||' Res '||l_curr_rec.resource_list_member_id;
7105: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7106: END IF;
7107:
7108: /*IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7105: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7106: END IF;
7107:
7108: /*IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7106: END IF;
7107:
7108: /*IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7107:
7108: /*IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7108: /*IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7109: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7110: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7118: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7111: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7118: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7119: END IF;*/
7112: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7118: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7119: END IF;*/
7120: --Populate the preceeding and succeeding buckets in the period mask table
7113: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7118: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7119: END IF;*/
7120: --Populate the preceeding and succeeding buckets in the period mask table
7121: --log1('----- STAGE X3.1------- '||p_version_info_rec.x_org_id);
7114: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7115: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7116: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7117: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7118: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7119: END IF;*/
7120: --Populate the preceeding and succeeding buckets in the period mask table
7121: --log1('----- STAGE X3.1------- '||p_version_info_rec.x_org_id);
7122: --log1('----- STAGE X3.2------- '||l_bl_index);
7458: x_msg_data =>x_msg_data );
7459:
7460: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7461: IF l_debug_mode = 'Y' THEN
7462: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7463: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7464: END IF;
7465: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7466: END IF;
7459:
7460: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7461: IF l_debug_mode = 'Y' THEN
7462: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7463: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7464: END IF;
7465: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7466: END IF;
7467:
7514: x_msg_data =>x_msg_data );
7515:
7516: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7517: IF l_debug_mode = 'Y' THEN
7518: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7519: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7520: END IF;
7521: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7522: END IF;
7515:
7516: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7517: IF l_debug_mode = 'Y' THEN
7518: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7519: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7520: END IF;
7521: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7522: END IF;
7523:
7570: x_msg_data =>x_msg_data );
7571:
7572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7573: IF l_debug_mode = 'Y' THEN
7574: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7575: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7576: END IF;
7577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7578: END IF;
7571:
7572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7573: IF l_debug_mode = 'Y' THEN
7574: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7575: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7576: END IF;
7577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7578: END IF;
7579:
7626: x_msg_data =>x_msg_data );
7627:
7628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7629: IF l_debug_mode = 'Y' THEN
7630: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7632: END IF;
7633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7634: END IF;
7627:
7628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7629: IF l_debug_mode = 'Y' THEN
7630: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7632: END IF;
7633: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7634: END IF;
7635:
7901: x_msg_data =>x_msg_data );
7902:
7903: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7904: IF l_debug_mode = 'Y' THEN
7905: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7906: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7907: END IF;
7908: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7909: END IF;
7902:
7903: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7904: IF l_debug_mode = 'Y' THEN
7905: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7906: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7907: END IF;
7908: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7909: END IF;
7910:
7915: END IF; --p_context
7916:
7917:
7918: IF l_debug_mode = 'Y' THEN
7919: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_pbl_input';
7920: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7921: END IF;
7922:
7923: IF l_debug_mode = 'Y' THEN
7916:
7917:
7918: IF l_debug_mode = 'Y' THEN
7919: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_pbl_input';
7920: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7921: END IF;
7922:
7923: IF l_debug_mode = 'Y' THEN
7924: pa_debug.reset_curr_function;
7920: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7921: END IF;
7922:
7923: IF l_debug_mode = 'Y' THEN
7924: pa_debug.reset_curr_function;
7925: END IF;
7926:
7927: EXCEPTION
7928: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7942: END IF;
7943: x_return_status := FND_API.G_RET_STS_ERROR;
7944:
7945: IF l_debug_mode = 'Y' THEN
7946: pa_debug.reset_curr_function;
7947: END IF;
7948: RETURN;
7949:
7950: WHEN OTHERS THEN
7954:
7955: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
7956: ,p_procedure_name => 'prepare_pbl_input');
7957: IF l_debug_mode = 'Y' THEN
7958: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7960: END IF;
7961:
7962: IF l_debug_mode = 'Y' THEN
7955: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
7956: ,p_procedure_name => 'prepare_pbl_input');
7957: IF l_debug_mode = 'Y' THEN
7958: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7960: END IF;
7961:
7962: IF l_debug_mode = 'Y' THEN
7963: pa_debug.reset_curr_function;
7959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7960: END IF;
7961:
7962: IF l_debug_mode = 'Y' THEN
7963: pa_debug.reset_curr_function;
7964: END IF;
7965: RAISE;
7966:
7967: END prepare_pbl_input;
8270: l_extra_bls_exists VARCHAR2(1);
8271: j INTEGER;
8272: BEGIN
8273: --log1('PBL Begin '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8274: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
8275:
8276: x_return_status := FND_API.G_RET_STS_SUCCESS;
8277: x_msg_count := 0;
8278: --log1('----- STAGE PBL1.0-------');
8277: x_msg_count := 0;
8278: --log1('----- STAGE PBL1.0-------');
8279:
8280: IF l_debug_mode = 'Y' THEN
8281: pa_debug.Set_Curr_Function
8282: (p_function => l_module_name,
8283: p_debug_mode => l_debug_mode);
8284: END IF;
8285:
8283: p_debug_mode => l_debug_mode);
8284: END IF;
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8288: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.g_err_stage := 'Validating input parameters';
8290: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8291: END IF;
8284: END IF;
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8288: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.g_err_stage := 'Validating input parameters';
8290: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8291: END IF;
8292:
8285:
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8288: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.g_err_stage := 'Validating input parameters';
8290: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8291: END IF;
8292:
8293: -- validate the mandatory input parameters
8286: IF l_debug_mode = 'Y' THEN
8287: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8288: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8289: pa_debug.g_err_stage := 'Validating input parameters';
8290: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8291: END IF;
8292:
8293: -- validate the mandatory input parameters
8294:
8294:
8295: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
8296: IF p_context IS NULL THEN
8297: IF l_debug_mode = 'Y' THEN
8298: pa_debug.g_err_stage := 'p_context is passed as null';
8299: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8300: END IF;
8301: pa_utils.add_message(p_app_short_name => 'PA',
8302: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8295: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
8296: IF p_context IS NULL THEN
8297: IF l_debug_mode = 'Y' THEN
8298: pa_debug.g_err_stage := 'p_context is passed as null';
8299: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8300: END IF;
8301: pa_utils.add_message(p_app_short_name => 'PA',
8302: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8303: p_token1 => 'PROCEDURENAME',
8308:
8309: -- budget_version_id is not passed
8310: IF p_budget_version_id IS NULL THEN
8311: IF l_debug_mode = 'Y' THEN
8312: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
8313: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8314: END IF;
8315: pa_utils.add_message(p_app_short_name => 'PA',
8316: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8309: -- budget_version_id is not passed
8310: IF p_budget_version_id IS NULL THEN
8311: IF l_debug_mode = 'Y' THEN
8312: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
8313: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8314: END IF;
8315: pa_utils.add_message(p_app_short_name => 'PA',
8316: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8317: p_token1 => 'PROCEDURENAME',
8321: END IF;
8322: -- version_info_rec type is null
8323: IF p_version_info_rec.x_project_id IS NULL THEN
8324: IF l_debug_mode = 'Y' THEN
8325: pa_debug.g_err_stage := 'p_version_info_rec is passed as null';
8326: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8327: END IF;
8328: pa_utils.add_message(p_app_short_name => 'PA',
8329: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8322: -- version_info_rec type is null
8323: IF p_version_info_rec.x_project_id IS NULL THEN
8324: IF l_debug_mode = 'Y' THEN
8325: pa_debug.g_err_stage := 'p_version_info_rec is passed as null';
8326: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8327: END IF;
8328: pa_utils.add_message(p_app_short_name => 'PA',
8329: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8330: p_token1 => 'PROCEDURENAME',
8335:
8336: -- if no data is present in the task id table
8337: IF NOT p_task_id_tbl.EXISTS(1) THEN
8338: IF l_debug_mode = 'Y' THEN
8339: pa_debug.g_err_stage := 'task id table is passed as null';
8340: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8341: END IF;
8342: RETURN;
8343: END IF;
8336: -- if no data is present in the task id table
8337: IF NOT p_task_id_tbl.EXISTS(1) THEN
8338: IF l_debug_mode = 'Y' THEN
8339: pa_debug.g_err_stage := 'task id table is passed as null';
8340: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8341: END IF;
8342: RETURN;
8343: END IF;
8344:
8435: --log1(' 38 '||p_description_tbl.COUNT);
8436: --log1(' 39 '||p_delete_flag_tbl.COUNT );
8437:
8438: IF l_debug_mode = 'Y' THEN
8439: pa_debug.g_err_stage := 'Required input tables are not equal in length';
8440: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8441: END IF;
8442: pa_utils.add_message(p_app_short_name => 'PA',
8443: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8436: --log1(' 39 '||p_delete_flag_tbl.COUNT );
8437:
8438: IF l_debug_mode = 'Y' THEN
8439: pa_debug.g_err_stage := 'Required input tables are not equal in length';
8440: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8441: END IF;
8442: pa_utils.add_message(p_app_short_name => 'PA',
8443: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8444: p_token1 => 'PROCEDURENAME',
8452:
8453: -- checking for the context and if its non periodic context, then
8454: -- filtering out the records with delete flag <> Y
8455: IF l_debug_mode = 'Y' THEN
8456: pa_debug.g_err_stage := 'p_context is: ' || p_context;
8457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8458: END IF;
8459:
8460: --log1('PBL 1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8453: -- checking for the context and if its non periodic context, then
8454: -- filtering out the records with delete flag <> Y
8455: IF l_debug_mode = 'Y' THEN
8456: pa_debug.g_err_stage := 'p_context is: ' || p_context;
8457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8458: END IF;
8459:
8460: --log1('PBL 1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8461: IF p_context = 'WEBADI_NON_PERIODIC' THEN
8667: --log1('PBL 2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8668:
8669: --log1('----- STAGE PBL1.3-------');
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8672: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: pa_debug.g_err_stage := 'Checking for existing RAs';
8674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8675: END IF;
8668:
8669: --log1('----- STAGE PBL1.3-------');
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8672: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: pa_debug.g_err_stage := 'Checking for existing RAs';
8674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8675: END IF;
8676:
8669: --log1('----- STAGE PBL1.3-------');
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8672: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: pa_debug.g_err_stage := 'Checking for existing RAs';
8674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8675: END IF;
8676:
8677: --log1('PBL 3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8670: IF l_debug_mode = 'Y' THEN
8671: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8672: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8673: pa_debug.g_err_stage := 'Checking for existing RAs';
8674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8675: END IF;
8676:
8677: --log1('PBL 3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8678: -- noting down the number of records passed
8703: EXCEPTION
8704: WHEN NO_DATA_FOUND THEN
8705: --log1('----- STAGE PBL6-------');
8706: IF l_debug_mode = 'Y' THEN
8707: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8709: END IF;
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8711: END;
8704: WHEN NO_DATA_FOUND THEN
8705: --log1('----- STAGE PBL6-------');
8706: IF l_debug_mode = 'Y' THEN
8707: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8709: END IF;
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8711: END;
8712: ELSE
8733: --log1('----- STAGE PBL11.7------- || '||l_new_elem_ver_id_tbl.COUNT);
8734: IF l_new_elem_ver_id_tbl.COUNT > 0 THEN
8735: -- there are new task-resource records to be inserted
8736: IF l_debug_mode = 'Y' THEN
8737: pa_debug.g_err_stage := 'Inputs prepared for add_plan_txn and calling';
8738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8739: END IF;
8740: -- Calling add_planning_transaction for those records for which RA doesnot exists
8741:
8734: IF l_new_elem_ver_id_tbl.COUNT > 0 THEN
8735: -- there are new task-resource records to be inserted
8736: IF l_debug_mode = 'Y' THEN
8737: pa_debug.g_err_stage := 'Inputs prepared for add_plan_txn and calling';
8738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8739: END IF;
8740: -- Calling add_planning_transaction for those records for which RA doesnot exists
8741:
8742: --Note down the current value of pa_resource_assignments_s.nextval
8749: --log1('----- STAGE PBL16-------');
8750: EXCEPTION
8751: WHEN OTHERS THEN
8752: IF l_debug_mode = 'Y' THEN
8753: pa_debug.g_err_stage := 'Error while getting RA Id sequence';
8754: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8755: END IF;
8756: RAISE;
8757: END;
8750: EXCEPTION
8751: WHEN OTHERS THEN
8752: IF l_debug_mode = 'Y' THEN
8753: pa_debug.g_err_stage := 'Error while getting RA Id sequence';
8754: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8755: END IF;
8756: RAISE;
8757: END;
8758: --log1('----- STAGE PBL17-------');
8775: ,x_msg_count => l_msg_count);
8776:
8777: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8778: IF l_debug_mode = 'Y' THEN
8779: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8781: END IF;
8782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8783: END IF;
8776:
8777: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8778: IF l_debug_mode = 'Y' THEN
8779: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8781: END IF;
8782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8783: END IF;
8784: IF l_debug_mode = 'Y' THEN
8781: END IF;
8782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8783: END IF;
8784: IF l_debug_mode = 'Y' THEN
8785: pa_debug.g_err_stage := 'Add_planning_transaction called';
8786: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8787: END IF;
8788: END IF; -- new RAs
8789: --log1('PBL 5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8783: END IF;
8784: IF l_debug_mode = 'Y' THEN
8785: pa_debug.g_err_stage := 'Add_planning_transaction called';
8786: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8787: END IF;
8788: END IF; -- new RAs
8789: --log1('PBL 5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8790:
8830: IF p_context = 'WEBADI_NON_PERIODIC' THEN
8831: -- checking if there is any reord with delete_flag = Y
8832: IF l_df_ra_id_tbl.COUNT > 0 THEN
8833: IF l_debug_mode = 'Y' THEN
8834: pa_debug.g_err_stage := 'Deleting from pa_budget_lines for the records with delete_flag = Y';
8835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8836: END IF;
8837: --log1('PBL 11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8838:
8831: -- checking if there is any reord with delete_flag = Y
8832: IF l_df_ra_id_tbl.COUNT > 0 THEN
8833: IF l_debug_mode = 'Y' THEN
8834: pa_debug.g_err_stage := 'Deleting from pa_budget_lines for the records with delete_flag = Y';
8835: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8836: END IF;
8837: --log1('PBL 11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8838:
8839: /* Bug 5144013 : Modified the logic so that the attributes of the transaction
8973: from pa_budget_lines and from new entity when delete flag is set as 'Y' in Excel for a
8974: planning transaction. This is done as part of merging the MRUP3 changes done in 11i into R12.
8975: */
8976: IF l_debug_mode = 'Y' THEN
8977: pa_debug.g_err_stage := 'Before Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
8978: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8979: END IF;
8980: pa_fp_planning_transaction_pub.delete_planning_transactions(
8981: p_context => 'BUDGET'
8974: planning transaction. This is done as part of merging the MRUP3 changes done in 11i into R12.
8975: */
8976: IF l_debug_mode = 'Y' THEN
8977: pa_debug.g_err_stage := 'Before Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
8978: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8979: END IF;
8980: pa_fp_planning_transaction_pub.delete_planning_transactions(
8981: p_context => 'BUDGET'
8982: ,p_task_or_res => 'ASSIGNMENT'
8986: ,x_msg_count => l_msg_count
8987: ,x_msg_data => l_msg_data);
8988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8989: IF l_debug_mode = 'Y' THEN
8990: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
8991: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8992: END IF;
8993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8994: END IF;
8987: ,x_msg_data => l_msg_data);
8988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8989: IF l_debug_mode = 'Y' THEN
8990: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
8991: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8992: END IF;
8993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8994: END IF;
8995: IF l_debug_mode = 'Y' THEN
8992: END IF;
8993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8994: END IF;
8995: IF l_debug_mode = 'Y' THEN
8996: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
8997: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8998: END IF;
8999:
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
8993: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8994: END IF;
8995: IF l_debug_mode = 'Y' THEN
8996: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
8997: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8998: END IF;
8999:
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9001: IF l_debug_mode = 'Y' THEN
8998: END IF;
8999:
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9001: IF l_debug_mode = 'Y' THEN
9002: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9004: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9006: END IF;
8999:
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9001: IF l_debug_mode = 'Y' THEN
9002: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9004: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9006: END IF;
9007:
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9001: IF l_debug_mode = 'Y' THEN
9002: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9004: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9006: END IF;
9007:
9008: --log1('Preparing ra attr tbls for rollup tmp ins');
9001: IF l_debug_mode = 'Y' THEN
9002: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9004: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9006: END IF;
9007:
9008: --log1('Preparing ra attr tbls for rollup tmp ins');
9009:
9016:
9017: -- calling calculate api for budget line context for all the elligible records
9018: IF l_ra_id_tbl.COUNT > 0 THEN
9019: IF l_debug_mode = 'Y' THEN
9020: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9022: END IF;
9023: IF p_context = 'WEBADI_PERIODIC' THEN
9024: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9017: -- calling calculate api for budget line context for all the elligible records
9018: IF l_ra_id_tbl.COUNT > 0 THEN
9019: IF l_debug_mode = 'Y' THEN
9020: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9022: END IF;
9023: IF p_context = 'WEBADI_PERIODIC' THEN
9024: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9025: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9028: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9029: END IF;
9030:
9031: IF l_debug_mode = 'Y' THEN
9032: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9033: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9034: END IF;
9035:
9036: --log1('PBL 8 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9029: END IF;
9030:
9031: IF l_debug_mode = 'Y' THEN
9032: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9033: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9034: END IF;
9035:
9036: --log1('PBL 8 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9037: --log1('Before callling calc in pbl');
9094: --log1('PBL 10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9096:
9097: IF l_debug_mode = 'Y' THEN
9098: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9099: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9100: END IF;
9101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9102: END IF;
9095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9096:
9097: IF l_debug_mode = 'Y' THEN
9098: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9099: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9100: END IF;
9101: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9102: END IF;
9103:
9122: IF l_df_ra_id_tbl.COUNT > 0 THEN
9123: --log1('PBL 12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9124: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9125: IF l_debug_mode = 'Y' THEN
9126: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9128: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9130: END IF;
9123: --log1('PBL 12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9124: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9125: IF l_debug_mode = 'Y' THEN
9126: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9128: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9130: END IF;
9131:
9124: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9125: IF l_debug_mode = 'Y' THEN
9126: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9128: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9130: END IF;
9131:
9132: --log1('Preparing ra attr tbls for rollup tmp ins');
9125: IF l_debug_mode = 'Y' THEN
9126: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9128: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9130: END IF;
9131:
9132: --log1('Preparing ra attr tbls for rollup tmp ins');
9133:
9219: l_bl_del_fg_pf_cnv_rej_cd_tbl(i),
9220: l_bl_del_flag_o_rej_code_tbl(i));
9221: --log1('PBL 14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9222: IF l_debug_mode = 'Y' THEN
9223: pa_debug.g_err_stage := 'records inserted into pa_fp_rollup_tmp';
9224: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9225: END IF;
9226: ELSE
9227: -- no records deleted from pa_budget_lines
9220: l_bl_del_flag_o_rej_code_tbl(i));
9221: --log1('PBL 14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9222: IF l_debug_mode = 'Y' THEN
9223: pa_debug.g_err_stage := 'records inserted into pa_fp_rollup_tmp';
9224: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9225: END IF;
9226: ELSE
9227: -- no records deleted from pa_budget_lines
9228: IF l_debug_mode = 'Y' THEN
9225: END IF;
9226: ELSE
9227: -- no records deleted from pa_budget_lines
9228: IF l_debug_mode = 'Y' THEN
9229: pa_debug.g_err_stage := 'No records deleted from pa_budget_lines';
9230: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9231: END IF;
9232: END IF;
9233: END IF; -- records with delete_flag
9226: ELSE
9227: -- no records deleted from pa_budget_lines
9228: IF l_debug_mode = 'Y' THEN
9229: pa_debug.g_err_stage := 'No records deleted from pa_budget_lines';
9230: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9231: END IF;
9232: END IF;
9233: END IF; -- records with delete_flag
9234:
9312:
9313: END IF; -- p_context = WEBADI_NON_PERIODIC
9314:
9315: IF l_debug_mode = 'Y' THEN
9316: pa_debug.g_err_stage:='Updating pa_budget_lines with change reason code, desc and conv attr';
9317: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9318: END IF;
9319:
9320: -- updating conversion attributes if the version is enabled for multi currency
9313: END IF; -- p_context = WEBADI_NON_PERIODIC
9314:
9315: IF l_debug_mode = 'Y' THEN
9316: pa_debug.g_err_stage:='Updating pa_budget_lines with change reason code, desc and conv attr';
9317: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9318: END IF;
9319:
9320: -- updating conversion attributes if the version is enabled for multi currency
9321: -- Bug 4424457 : In all the below updates replaced pa_budget_lines with pa_fp_rollup_tmp. These
9433: END IF; -- there are records in local ra tbl
9434: END IF; -- end of update
9435:
9436: IF l_debug_mode = 'Y' THEN
9437: pa_debug.g_err_stage:='pa_budget_lines updated with change reason code, desc and conv attr';
9438: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9439: END IF;
9440:
9441:
9434: END IF; -- end of update
9435:
9436: IF l_debug_mode = 'Y' THEN
9437: pa_debug.g_err_stage:='pa_budget_lines updated with change reason code, desc and conv attr';
9438: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9439: END IF;
9440:
9441:
9442: --log1('----- STAGE PBL18.3------- ');
9440:
9441:
9442: --log1('----- STAGE PBL18.3------- ');
9443: IF l_debug_mode = 'Y' THEN
9444: pa_debug.g_err_stage := 'Calling multi currency pkg';
9445: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9446: END IF;
9447: --log1('PBL 26 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9448: -- Bug 4424457. Call MC API only if there are some budget lines that are processed by calculate API
9441:
9442: --log1('----- STAGE PBL18.3------- ');
9443: IF l_debug_mode = 'Y' THEN
9444: pa_debug.g_err_stage := 'Calling multi currency pkg';
9445: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9446: END IF;
9447: --log1('PBL 26 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9448: -- Bug 4424457. Call MC API only if there are some budget lines that are processed by calculate API
9449: IF l_bls_proccessed_flag ='Y' THEN
9456: ,x_msg_data => l_msg_data );
9457: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9458: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9459: IF l_debug_mode = 'Y' THEN
9460: pa_debug.g_err_stage:='convert_txn_currency returned error';
9461: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9462: END IF;
9463: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9464: END IF;
9457: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9458: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9459: IF l_debug_mode = 'Y' THEN
9460: pa_debug.g_err_stage:='convert_txn_currency returned error';
9461: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9462: END IF;
9463: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9464: END IF;
9465:
9465:
9466: END IF;
9467:
9468: IF l_debug_mode = 'Y' THEN
9469: pa_debug.g_err_stage := 'Preparing data for the call to PJI api';
9470: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9471: END IF;
9472:
9473: IF l_debug_mode = 'Y' THEN
9466: END IF;
9467:
9468: IF l_debug_mode = 'Y' THEN
9469: pa_debug.g_err_stage := 'Preparing data for the call to PJI api';
9470: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9471: END IF;
9472:
9473: IF l_debug_mode = 'Y' THEN
9474: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9470: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9471: END IF;
9472:
9473: IF l_debug_mode = 'Y' THEN
9474: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9475: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9476: END IF;
9477:
9478: --bug 5962744 moved below bulk select out of if condition
9471: END IF;
9472:
9473: IF l_debug_mode = 'Y' THEN
9474: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9475: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9476: END IF;
9477:
9478: --bug 5962744 moved below bulk select out of if condition
9479: --Bug 4424457. Rollup tmp can contain multiple records for the same budget line id. This will happen when
9735: l_upd_delete_flag_tbl(i) <> 'Y');
9736: END IF; --if p_context = 'WEBADI_NON_PERIODIC'
9737: --bug 5962744
9738: IF l_debug_mode = 'Y' THEN
9739: pa_debug.g_err_stage := 'Stampping Amounts and rejection codes in budget lines';
9740: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9741: END IF;
9742:
9743: -- Bug 4424457. If there are budget lines that either got deleted or updated/created then
9736: END IF; --if p_context = 'WEBADI_NON_PERIODIC'
9737: --bug 5962744
9738: IF l_debug_mode = 'Y' THEN
9739: pa_debug.g_err_stage := 'Stampping Amounts and rejection codes in budget lines';
9740: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9741: END IF;
9742:
9743: -- Bug 4424457. If there are budget lines that either got deleted or updated/created then
9744: -- stamp the derived pc/pfc amounts back on budget lines and call PJI API
9805: to populate the display_quantity in pa_budget_lines. This is done as part of merging the MRUP3
9806: changes done in 11i into R12.
9807: */
9808: IF l_debug_mode = 'Y' THEN
9809: pa_debug.g_err_stage := 'Before calling Populate Display Qty api';
9810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9811: END IF;
9812: PA_BUDGET_LINES_UTILS.populate_display_qty
9813: ( p_budget_version_id => p_budget_version_id
9806: changes done in 11i into R12.
9807: */
9808: IF l_debug_mode = 'Y' THEN
9809: pa_debug.g_err_stage := 'Before calling Populate Display Qty api';
9810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9811: END IF;
9812: PA_BUDGET_LINES_UTILS.populate_display_qty
9813: ( p_budget_version_id => p_budget_version_id
9814: ,p_context => 'FINANCIAL'
9814: ,p_context => 'FINANCIAL'
9815: ,x_return_status => x_return_status);
9816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9817: IF l_debug_mode = 'Y' THEN
9818: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9819: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9820: END IF;
9821: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9822: END IF;
9815: ,x_return_status => x_return_status);
9816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9817: IF l_debug_mode = 'Y' THEN
9818: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9819: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9820: END IF;
9821: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9822: END IF;
9823: IF l_debug_mode = 'Y' THEN
9820: END IF;
9821: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9822: END IF;
9823: IF l_debug_mode = 'Y' THEN
9824: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
9825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9826: END IF;
9827: -- Call is made to maintain_data api to rollup the data in new entity.
9828: IF l_debug_mode = 'Y' THEN
9821: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9822: END IF;
9823: IF l_debug_mode = 'Y' THEN
9824: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
9825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9826: END IF;
9827: -- Call is made to maintain_data api to rollup the data in new entity.
9828: IF l_debug_mode = 'Y' THEN
9829: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
9825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9826: END IF;
9827: -- Call is made to maintain_data api to rollup the data in new entity.
9828: IF l_debug_mode = 'Y' THEN
9829: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
9830: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9831: END IF;
9832: PA_RES_ASG_CURRENCY_PUB.maintain_data(
9833: p_fp_cols_rec => p_version_info_rec
9826: END IF;
9827: -- Call is made to maintain_data api to rollup the data in new entity.
9828: IF l_debug_mode = 'Y' THEN
9829: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
9830: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9831: END IF;
9832: PA_RES_ASG_CURRENCY_PUB.maintain_data(
9833: p_fp_cols_rec => p_version_info_rec
9834: ,p_calling_module => 'WEBADI'
9838: ,x_msg_count => l_msg_count
9839: ,x_msg_data => l_msg_data);
9840: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9841: IF l_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9844: END IF;
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9839: ,x_msg_data => l_msg_data);
9840: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9841: IF l_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9844: END IF;
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9847: IF l_debug_mode = 'Y' THEN
9844: END IF;
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9847: IF l_debug_mode = 'Y' THEN
9848: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
9849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9850: END IF;
9851: /* End of fix for Bug : 5144013*/
9852:
9845: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9846: END IF;
9847: IF l_debug_mode = 'Y' THEN
9848: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
9849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9850: END IF;
9851: /* End of fix for Bug : 5144013*/
9852:
9853: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9851: /* End of fix for Bug : 5144013*/
9852:
9853: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9854: IF l_debug_mode = 'Y' THEN
9855: pa_debug.g_err_stage := 'Calling rollup budget version api';
9856: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9857: END IF;
9858: --log1('----- STAGE PBL18.3------- ');
9859: --log1('PBL 30 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9852:
9853: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9854: IF l_debug_mode = 'Y' THEN
9855: pa_debug.g_err_stage := 'Calling rollup budget version api';
9856: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9857: END IF;
9858: --log1('----- STAGE PBL18.3------- ');
9859: --log1('PBL 30 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9860: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
9865: ,x_msg_data => l_msg_data);
9866:
9867: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
9870: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9871: END IF;
9872: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9873: END IF;
9866:
9867: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
9870: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9871: END IF;
9872: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9873: END IF;
9874: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9872: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9873: END IF;
9874: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9875: IF l_debug_mode = 'Y' THEN
9876: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
9877: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9878: END IF;
9879: --log1('----- STAGE PBL18.4------- ');
9880:
9873: END IF;
9874: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9875: IF l_debug_mode = 'Y' THEN
9876: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
9877: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9878: END IF;
9879: --log1('----- STAGE PBL18.4------- ');
9880:
9881: /**************MRC ELIMINATION CHANGES: ********************************
9887: x_msg_data => l_msg_data);
9888:
9889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9890: IF l_debug_mode = 'Y' THEN
9891: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
9892: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9893: END IF;
9894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9895: END IF;
9888:
9889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9890: IF l_debug_mode = 'Y' THEN
9891: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
9892: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9893: END IF;
9894: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9895: END IF;
9896:
9898: -- checking for valid requiered parameter values to call the MRC api
9899: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
9900: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
9901: IF l_debug_mode = 'Y' THEN
9902: pa_debug.g_err_stage := 'Calling MRC api ';
9903: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9904: END IF;
9905: --log1('PBL 33 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9906: PA_MRC_FINPLAN.maintain_all_mc_budget_lines
9899: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
9900: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
9901: IF l_debug_mode = 'Y' THEN
9902: pa_debug.g_err_stage := 'Calling MRC api ';
9903: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9904: END IF;
9905: --log1('PBL 33 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9906: PA_MRC_FINPLAN.maintain_all_mc_budget_lines
9907: (p_fin_plan_version_id => p_budget_version_id,
9910: x_msg_count => l_msg_count,
9911: x_msg_data => l_msg_data);
9912: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9913: IF l_debug_mode = 'Y' THEN
9914: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
9915: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9916: END IF;
9917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9918: END IF;
9911: x_msg_data => l_msg_data);
9912: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9913: IF l_debug_mode = 'Y' THEN
9914: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
9915: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9916: END IF;
9917: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9918: END IF;
9919: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9918: END IF;
9919: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9920: ELSE
9921: IF l_debug_mode = 'Y' THEN
9922: pa_debug.g_err_stage := 'MRC api need not be called';
9923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9924: END IF;
9925: END IF;
9926: ***************End of MRC ELIMINATION CHANGES: ***********************/
9919: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9920: ELSE
9921: IF l_debug_mode = 'Y' THEN
9922: pa_debug.g_err_stage := 'MRC api need not be called';
9923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9924: END IF;
9925: END IF;
9926: ***************End of MRC ELIMINATION CHANGES: ***********************/
9927:
9926: ***************End of MRC ELIMINATION CHANGES: ***********************/
9927:
9928: --log1('----- STAGE PBL18.5------- ');
9929: IF l_debug_mode = 'Y' THEN
9930: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
9931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9932: pa_debug.Reset_Curr_Function;
9933: END IF;
9934: --log1('----- STAGE PBL18.6------- ');
9927:
9928: --log1('----- STAGE PBL18.5------- ');
9929: IF l_debug_mode = 'Y' THEN
9930: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
9931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9932: pa_debug.Reset_Curr_Function;
9933: END IF;
9934: --log1('----- STAGE PBL18.6------- ');
9935: --log1('PBL 37'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9928: --log1('----- STAGE PBL18.5------- ');
9929: IF l_debug_mode = 'Y' THEN
9930: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
9931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9932: pa_debug.Reset_Curr_Function;
9933: END IF;
9934: --log1('----- STAGE PBL18.6------- ');
9935: --log1('PBL 37'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9936: --Bug 4424457. Replaced the call to plan_update with plan_delete and plan_create
9942: x_msg_code => l_error_msg_code);
9943:
9944: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
9947: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9948: END IF;
9949:
9950: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9943:
9944: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
9947: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9948: END IF;
9949:
9950: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9951:
10016: -- l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
10017:
10018: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10022: pa_debug.Reset_Curr_Function;
10023: END IF;
10024: EXCEPTION
10017:
10018: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10022: pa_debug.Reset_Curr_Function;
10023: END IF;
10024: EXCEPTION
10025: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10018: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10022: pa_debug.Reset_Curr_Function;
10023: END IF;
10024: EXCEPTION
10025: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10026: IF l_debug_mode = 'Y' THEN
10023: END IF;
10024: EXCEPTION
10025: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10026: IF l_debug_mode = 'Y' THEN
10027: pa_debug.reset_curr_function;
10028: END IF;
10029: RETURN;
10030: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10031: l_msg_count := FND_MSG_PUB.count_msg;
10044: x_msg_count := l_msg_count;
10045: END IF;
10046: x_return_status := FND_API.G_RET_STS_ERROR;
10047: IF l_debug_mode = 'Y' THEN
10048: pa_debug.reset_curr_function;
10049: END IF;
10050: RETURN;
10051:
10052: WHEN OTHERS THEN
10056:
10057: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10058: ,p_procedure_name => 'process_budget_lines');
10059: IF l_debug_mode = 'Y' THEN
10060: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10062: END IF;
10063:
10064: IF l_debug_mode = 'Y' THEN
10057: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10058: ,p_procedure_name => 'process_budget_lines');
10059: IF l_debug_mode = 'Y' THEN
10060: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10062: END IF;
10063:
10064: IF l_debug_mode = 'Y' THEN
10065: pa_debug.reset_curr_function;
10061: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10062: END IF;
10063:
10064: IF l_debug_mode = 'Y' THEN
10065: pa_debug.reset_curr_function;
10066: END IF;
10067: RAISE;
10068:
10069: END process_budget_lines;
10327: 7. As a result if we dont commit in the beginning when SWITCHER API is called, then when
10328: Stamp_Client_Extn_Errors APi is invoked there will be no records in PA_FP_WEBADI_UPLOAD_INF.
10329: */
10330:
10331: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
10332:
10333: x_return_status := FND_API.G_RET_STS_SUCCESS;
10334: x_msg_count := 0;
10335:
10338: (APPIN => 'PA',
10339: NAMEIN => 'PA_FP_UPL_ONLINE_SUCC_MSG');
10340:
10341: IF l_debug_mode = 'Y' THEN
10342: pa_debug.Set_Curr_Function
10343: (p_function => l_module_name,
10344: p_debug_mode => l_debug_mode);
10345: END IF;
10346:
10348:
10349: -- validating input parameter
10350: IF p_run_id IS NULL THEN
10351: IF l_debug_mode = 'Y' THEN
10352: pa_debug.g_err_stage := 'p_run_id is passed as null';
10353: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10354: END IF;
10355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10356: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10349: -- validating input parameter
10350: IF p_run_id IS NULL THEN
10351: IF l_debug_mode = 'Y' THEN
10352: pa_debug.g_err_stage := 'p_run_id is passed as null';
10353: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10354: END IF;
10355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10356: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10357: p_token1 => 'PROCEDURENAME',
10359: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10360: END IF;
10361:
10362: IF l_debug_mode = 'Y' THEN
10363: pa_debug.g_err_stage := 'Entering into switcher';
10364: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10365: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10366: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10367: END IF;
10360: END IF;
10361:
10362: IF l_debug_mode = 'Y' THEN
10363: pa_debug.g_err_stage := 'Entering into switcher';
10364: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10365: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10366: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10367: END IF;
10368:
10361:
10362: IF l_debug_mode = 'Y' THEN
10363: pa_debug.g_err_stage := 'Entering into switcher';
10364: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10365: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10366: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10367: END IF;
10368:
10369: l_submit_flag:='N';
10362: IF l_debug_mode = 'Y' THEN
10363: pa_debug.g_err_stage := 'Entering into switcher';
10364: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10365: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10366: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10367: END IF;
10368:
10369: l_submit_flag:='N';
10370: IF p_submit_forecast_flag='Y' OR p_submit_budget_flag ='Y' THEN
10387: AND rownum = 1;
10388: EXCEPTION
10389: WHEN NO_DATA_FOUND THEN
10390: IF l_debug_mode = 'Y' THEN
10391: pa_debug.g_err_stage := 'No data found while reading header info';
10392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10393: END IF;
10394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10395: END;
10388: EXCEPTION
10389: WHEN NO_DATA_FOUND THEN
10390: IF l_debug_mode = 'Y' THEN
10391: pa_debug.g_err_stage := 'No data found while reading header info';
10392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10393: END IF;
10394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10395: END;
10396:
10411: is_periodic_setup := 'N';
10412: END;
10413:
10414: IF l_debug_mode = 'Y' THEN
10415: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
10416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10417: END IF;
10418:
10419: -- throwing error if the header level info is missing
10412: END;
10413:
10414: IF l_debug_mode = 'Y' THEN
10415: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
10416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10417: END IF;
10418:
10419: -- throwing error if the header level info is missing
10420: IF l_budget_version_id IS NULL OR
10420: IF l_budget_version_id IS NULL OR
10421: l_rec_version_number IS NULL OR
10422: (is_periodic_setup='Y' AND l_pm_rec_version_number IS NULL) THEN
10423: IF l_debug_mode = 'Y' THEN
10424: pa_debug.g_err_stage := 'Header level values are null in interface table';
10425: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10426: END IF;
10427: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10428: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10421: l_rec_version_number IS NULL OR
10422: (is_periodic_setup='Y' AND l_pm_rec_version_number IS NULL) THEN
10423: IF l_debug_mode = 'Y' THEN
10424: pa_debug.g_err_stage := 'Header level values are null in interface table';
10425: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10426: END IF;
10427: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10428: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10429: p_token1 => 'PROCEDURENAME',
10434:
10435: --log1('----- STAGE 1-------');
10436:
10437: IF l_debug_mode = 'Y' THEN
10438: pa_debug.g_err_stage := 'Deriving project id';
10439: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10440: END IF;
10441:
10442: BEGIN
10435: --log1('----- STAGE 1-------');
10436:
10437: IF l_debug_mode = 'Y' THEN
10438: pa_debug.g_err_stage := 'Deriving project id';
10439: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10440: END IF;
10441:
10442: BEGIN
10443: SELECT bv.project_id,
10452: AND bv.project_id = pl.project_id;
10453: EXCEPTION
10454: WHEN NO_DATA_FOUND THEN
10455: IF l_debug_mode = 'Y' THEN
10456: pa_debug.g_err_stage := 'No data found while reading project id ..';
10457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10458: END IF;
10459: UPDATE pa_fp_webadi_upload_inf
10460: SET val_error_flag = 'Y',
10453: EXCEPTION
10454: WHEN NO_DATA_FOUND THEN
10455: IF l_debug_mode = 'Y' THEN
10456: pa_debug.g_err_stage := 'No data found while reading project id ..';
10457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10458: END IF;
10459: UPDATE pa_fp_webadi_upload_inf
10460: SET val_error_flag = 'Y',
10461: val_error_code = 'PA_FP_WEBADI_VER_MODIFIED',
10467: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
10468:
10469: x_return_status := FND_API.G_RET_STS_ERROR;
10470: IF l_debug_mode = 'Y' THEN
10471: pa_debug.reset_curr_function;
10472: END IF;
10473:
10474: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10475: END;
10478:
10479: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_org_id);
10480:
10481: IF l_debug_mode = 'Y' THEN
10482: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_plan_version_dtls';
10483: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10484: END IF;
10485: --log1('----- STAGE 2.1-------'||l_project_id);
10486: --log1('----- STAGE 2.2-------'||l_budget_version_id);
10479: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_org_id);
10480:
10481: IF l_debug_mode = 'Y' THEN
10482: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_plan_version_dtls';
10483: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10484: END IF;
10485: --log1('----- STAGE 2.1-------'||l_project_id);
10486: --log1('----- STAGE 2.2-------'||l_budget_version_id);
10487: pa_fp_gen_amount_utils.get_plan_version_dtls
10493: x_msg_data => l_msg_data);
10494:
10495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10496: IF l_debug_mode = 'Y' THEN
10497: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10499: END IF;
10500: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10501: END IF;
10494:
10495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10496: IF l_debug_mode = 'Y' THEN
10497: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10499: END IF;
10500: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10501: END IF;
10502: --log1('----- STAGE 2.3-------'||x_return_status);
10502: --log1('----- STAGE 2.3-------'||x_return_status);
10503: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10504:
10505: IF l_debug_mode = 'Y' THEN
10506: pa_debug.g_err_stage := 'Calling validate_header_info';
10507: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10508: END IF;
10509:
10510: --log1('----- STAGE 3-------');
10503: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10504:
10505: IF l_debug_mode = 'Y' THEN
10506: pa_debug.g_err_stage := 'Calling validate_header_info';
10507: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10508: END IF;
10509:
10510: --log1('----- STAGE 3-------');
10511: --log1('1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10523: --log1('2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10524:
10525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10526: IF l_debug_mode = 'Y' THEN
10527: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10529: END IF;
10530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10531: END IF;
10524:
10525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10526: IF l_debug_mode = 'Y' THEN
10527: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10529: END IF;
10530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10531: END IF;
10532:
10531: END IF;
10532:
10533: -- checking, if the layout is periodic one
10534: IF l_debug_mode = 'Y' THEN
10535: pa_debug.g_err_stage := 'Checking for periodic setup';
10536: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10537: END IF;
10538:
10539: --log1('----- STAGE 4-------');
10532:
10533: -- checking, if the layout is periodic one
10534: IF l_debug_mode = 'Y' THEN
10535: pa_debug.g_err_stage := 'Checking for periodic setup';
10536: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10537: END IF;
10538:
10539: --log1('----- STAGE 4-------');
10540:
10570: --dbms_output.put_line('--------l_prd_start_date_tbl.COUNT ---------' || l_prd_start_date_tbl.COUNT);
10571: --dbms_output.put_line('--------l_prd_end_date_tbl.COUNT ---------' || l_prd_end_date_tbl.COUNT);
10572:
10573: IF l_debug_mode = 'Y' THEN
10574: pa_debug.g_err_stage := 'Calling prepare_val_input';
10575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10576: END IF;
10577:
10578: --log1('----- STAGE 6-------');
10571: --dbms_output.put_line('--------l_prd_end_date_tbl.COUNT ---------' || l_prd_end_date_tbl.COUNT);
10572:
10573: IF l_debug_mode = 'Y' THEN
10574: pa_debug.g_err_stage := 'Calling prepare_val_input';
10575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10576: END IF;
10577:
10578: --log1('----- STAGE 6-------');
10579: --log1('3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10617: x_msg_data => l_msg_data);
10618:
10619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10620: IF l_debug_mode = 'Y' THEN
10621: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10622: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10623: END IF;
10624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10625: END IF;
10618:
10619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10620: IF l_debug_mode = 'Y' THEN
10621: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10622: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10623: END IF;
10624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10625: END IF;
10626: ELSE
10662: x_msg_data => l_msg_data);
10663:
10664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10670: END IF;
10663:
10664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10670: END IF;
10671: END IF; -- periodic check
10682: l_allow_qty_flag := l_version_info_rec.x_all_quantity_flag;
10683: END IF;
10684:
10685: IF l_debug_mode = 'Y' THEN
10686: pa_debug.g_err_stage := 'Calling validate_budget_lines';
10687: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10688: END IF;
10689: --log1('4 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10690:
10683: END IF;
10684:
10685: IF l_debug_mode = 'Y' THEN
10686: pa_debug.g_err_stage := 'Calling validate_budget_lines';
10687: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10688: END IF;
10689: --log1('4 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10690:
10691: l_spread_curve_id_tbl_1 := l_spread_curve_id_tbl;
10748: ,x_return_status => x_return_status);
10749: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10751: IF l_debug_mode = 'Y' THEN
10752: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10754: END IF;
10755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10756: END IF;
10749: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10751: IF l_debug_mode = 'Y' THEN
10752: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10754: END IF;
10755: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10756: END IF;
10757: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10756: END IF;
10757: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10758:
10759: IF l_debug_mode = 'Y' THEN
10760: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10761: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10762: pa_debug.g_err_stage := 'Checking for errors';
10763: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10764: END IF;
10757: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10758:
10759: IF l_debug_mode = 'Y' THEN
10760: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10761: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10762: pa_debug.g_err_stage := 'Checking for errors';
10763: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10764: END IF;
10765:
10758:
10759: IF l_debug_mode = 'Y' THEN
10760: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10761: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10762: pa_debug.g_err_stage := 'Checking for errors';
10763: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10764: END IF;
10765:
10766: BEGIN
10759: IF l_debug_mode = 'Y' THEN
10760: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10761: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10762: pa_debug.g_err_stage := 'Checking for errors';
10763: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10764: END IF;
10765:
10766: BEGIN
10767: SELECT 'X'
10778: l_error_indicator_flag := 'N';
10779: END;
10780:
10781: IF l_debug_mode = 'Y' THEN
10782: pa_debug.g_err_stage := 'l_error_indicator_flag: ' || l_error_indicator_flag;
10783: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10784: END IF;
10785:
10786: --log1('----- STAGE 10-------');
10779: END;
10780:
10781: IF l_debug_mode = 'Y' THEN
10782: pa_debug.g_err_stage := 'l_error_indicator_flag: ' || l_error_indicator_flag;
10783: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10784: END IF;
10785:
10786: --log1('----- STAGE 10-------');
10787: IF l_error_indicator_flag = 'X' THEN
10785:
10786: --log1('----- STAGE 10-------');
10787: IF l_error_indicator_flag = 'X' THEN
10788: IF l_debug_mode = 'Y' THEN
10789: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
10790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10791: END IF;
10792:
10793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10786: --log1('----- STAGE 10-------');
10787: IF l_error_indicator_flag = 'X' THEN
10788: IF l_debug_mode = 'Y' THEN
10789: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
10790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10791: END IF;
10792:
10793: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10794: END IF;
10805: x_msg_data => l_msg_data);
10806:
10807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10808: IF l_debug_mode = 'Y' THEN
10809: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
10810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10811: END IF;
10812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10813: END IF;
10806:
10807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10808: IF l_debug_mode = 'Y' THEN
10809: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
10810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10811: END IF;
10812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10813: END IF;
10814: END IF;
10910: x_success_msg := FND_MESSAGE.GET;
10911: END IF;
10912:
10913: IF l_debug_mode = 'Y' THEN
10914: pa_debug.reset_curr_function;
10915: END IF;
10916:
10917: RETURN;
10918:
10934:
10935: -- calling prepare_pbl_input to prepare inputs for the process_budget_lines api from data passed
10936: -- back from validate_budget_lines
10937: IF l_debug_mode = 'Y' THEN
10938: pa_debug.g_err_stage := 'Calling prepare_pbl_input';
10939: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10940: END IF;
10941: --log1('6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10942:
10935: -- calling prepare_pbl_input to prepare inputs for the process_budget_lines api from data passed
10936: -- back from validate_budget_lines
10937: IF l_debug_mode = 'Y' THEN
10938: pa_debug.g_err_stage := 'Calling prepare_pbl_input';
10939: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10940: END IF;
10941: --log1('6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10942:
10943: l_spread_curve_id_tbl_1 := l_spread_curve_id_tbl;
11025: x_msg_data => l_msg_data);
11026:
11027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11028: IF l_debug_mode = 'Y' THEN
11029: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11031: END IF;
11032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11033: END IF;
11026:
11027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11028: IF l_debug_mode = 'Y' THEN
11029: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11031: END IF;
11032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11033: END IF;
11034:
11032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11033: END IF;
11034:
11035: IF l_debug_mode = 'Y' THEN
11036: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11038: END IF;
11039: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11040: --log1('----- STAGE 12-------');
11033: END IF;
11034:
11035: IF l_debug_mode = 'Y' THEN
11036: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11037: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11038: END IF;
11039: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11040: --log1('----- STAGE 12-------');
11041: -- calling process_budget_lines to commit the validated data in DB
11039: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11040: --log1('----- STAGE 12-------');
11041: -- calling process_budget_lines to commit the validated data in DB
11042: IF l_debug_mode = 'Y' THEN
11043: pa_debug.g_err_stage := 'Calling process_budget_lines';
11044: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11045: END IF;
11046:
11047: --Till this point all the DMLs would have been executed on PA_FP_WEBADI_UPLOAD_INF. In case of any error
11040: --log1('----- STAGE 12-------');
11041: -- calling process_budget_lines to commit the validated data in DB
11042: IF l_debug_mode = 'Y' THEN
11043: pa_debug.g_err_stage := 'Calling process_budget_lines';
11044: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11045: END IF;
11046:
11047: --Till this point all the DMLs would have been executed on PA_FP_WEBADI_UPLOAD_INF. In case of any error
11048: --those changes need not be rolled back. process_budget_lines API will update the core B/F tables and hence
11105: x_msg_data => l_msg_data);
11106: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11108: IF l_debug_mode = 'Y' THEN
11109: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11111: END IF;
11112: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11113: END IF;
11106: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11108: IF l_debug_mode = 'Y' THEN
11109: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11111: END IF;
11112: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11113: END IF;
11114: -- Bug 4431269: Clearing the global variables used in calculate api
11115: -- for error reporting purpose
11116: G_FP_WA_CALC_CALLING_CONTEXT := null;
11117:
11118: IF l_debug_mode = 'Y' THEN
11119: pa_debug.g_err_stage := 'Call to process_budget_lines done';
11120: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11121: END IF;
11122: --log1('10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11123: -- if the submit flag is passed as Y, then calling api to submit the version
11116: G_FP_WA_CALC_CALLING_CONTEXT := null;
11117:
11118: IF l_debug_mode = 'Y' THEN
11119: pa_debug.g_err_stage := 'Call to process_budget_lines done';
11120: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11121: END IF;
11122: --log1('10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11123: -- if the submit flag is passed as Y, then calling api to submit the version
11124: IF p_submit_budget_flag = 'Y' OR
11123: -- if the submit flag is passed as Y, then calling api to submit the version
11124: IF p_submit_budget_flag = 'Y' OR
11125: p_submit_forecast_flag = 'Y' THEN
11126: IF l_debug_mode = 'Y' THEN
11127: pa_debug.g_err_stage := 'Calling pa_fin_plan_pub.Submit_Current_Working';
11128: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11129: END IF;
11130: pa_fin_plan_pub.Submit_Current_Working
11131: (p_project_id => l_version_info_rec.x_project_id,
11124: IF p_submit_budget_flag = 'Y' OR
11125: p_submit_forecast_flag = 'Y' THEN
11126: IF l_debug_mode = 'Y' THEN
11127: pa_debug.g_err_stage := 'Calling pa_fin_plan_pub.Submit_Current_Working';
11128: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11129: END IF;
11130: pa_fin_plan_pub.Submit_Current_Working
11131: (p_project_id => l_version_info_rec.x_project_id,
11132: p_budget_version_id => l_budget_version_id,
11136: x_msg_data => l_msg_data);
11137:
11138: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11139: IF l_debug_mode = 'Y' THEN
11140: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11142: END IF;
11143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11144: END IF;
11137:
11138: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11139: IF l_debug_mode = 'Y' THEN
11140: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11142: END IF;
11143: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11144: END IF;
11145: END IF;
11147: --log1('----- STAGE 13-------');
11148: -- If upload is successful then delete all the records
11149: -- from interface table
11150: IF l_debug_mode = 'Y' THEN
11151: pa_debug.g_err_stage := 'deleting from upload temp table';
11152: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
11153: END IF;
11154: --log1('12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11155:
11148: -- If upload is successful then delete all the records
11149: -- from interface table
11150: IF l_debug_mode = 'Y' THEN
11151: pa_debug.g_err_stage := 'deleting from upload temp table';
11152: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
11153: END IF;
11154: --log1('12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11155:
11156: pa_fp_webadi_pkg.DELETE_XFACE
11163: COMMIT; /* to commit the data in DB after successful processing */
11164: --log1('14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11165: --log1('----- STAGE 14-------');
11166: IF l_debug_mode = 'Y' THEN
11167: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11168: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11169: pa_debug.reset_curr_function;
11170: END IF;
11171:
11164: --log1('14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11165: --log1('----- STAGE 14-------');
11166: IF l_debug_mode = 'Y' THEN
11167: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11168: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11169: pa_debug.reset_curr_function;
11170: END IF;
11171:
11172: --log1('----- Leaving Switcher api ------- '||x_return_status);
11165: --log1('----- STAGE 14-------');
11166: IF l_debug_mode = 'Y' THEN
11167: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11168: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11169: pa_debug.reset_curr_function;
11170: END IF;
11171:
11172: --log1('----- Leaving Switcher api ------- '||x_return_status);
11173: --log1('End '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11174: EXCEPTION
11175:
11176: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11179: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11180: pa_debug.g_err_stage := 'Checking for errors';
11181: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11182: END IF;
11175:
11176: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11179: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11180: pa_debug.g_err_stage := 'Checking for errors';
11181: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11182: END IF;
11183:
11176: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11179: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11180: pa_debug.g_err_stage := 'Checking for errors';
11181: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11182: END IF;
11183:
11184: -- Bug 4431269: Clearing the global variables used in calculate api
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11179: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11180: pa_debug.g_err_stage := 'Checking for errors';
11181: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11182: END IF;
11183:
11184: -- Bug 4431269: Clearing the global variables used in calculate api
11185: -- for error reporting purpose
11185: -- for error reporting purpose
11186: G_FP_WA_CALC_CALLING_CONTEXT := null;
11187: IF l_rollback_flag='Y' THEN
11188: IF l_debug_mode = 'Y' THEN
11189: pa_debug.g_err_stage := 'Rolling back to switcher';
11190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11191: END IF;
11192: ROLLBACK TO SWITCHER;
11193: IF l_debug_mode = 'Y' THEN
11186: G_FP_WA_CALC_CALLING_CONTEXT := null;
11187: IF l_rollback_flag='Y' THEN
11188: IF l_debug_mode = 'Y' THEN
11189: pa_debug.g_err_stage := 'Rolling back to switcher';
11190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11191: END IF;
11192: ROLLBACK TO SWITCHER;
11193: IF l_debug_mode = 'Y' THEN
11194: pa_debug.g_err_stage := 'Roll back to switcher done';
11190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11191: END IF;
11192: ROLLBACK TO SWITCHER;
11193: IF l_debug_mode = 'Y' THEN
11194: pa_debug.g_err_stage := 'Roll back to switcher done';
11195: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11196: END IF;
11197: END IF;
11198:
11191: END IF;
11192: ROLLBACK TO SWITCHER;
11193: IF l_debug_mode = 'Y' THEN
11194: pa_debug.g_err_stage := 'Roll back to switcher done';
11195: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11196: END IF;
11197: END IF;
11198:
11199: -- checking if calculate has populated any errors in the global table
11238:
11239: x_return_status := FND_API.G_RET_STS_ERROR;
11240:
11241: IF l_debug_mode = 'Y' THEN
11242: pa_debug.reset_curr_function;
11243: END IF;
11244: RETURN;
11245:
11246: WHEN OTHERS THEN
11279:
11280: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11281: ,p_procedure_name => 'switcher');
11282: IF l_debug_mode = 'Y' THEN
11283: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11284: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11285: END IF;
11286:
11287: IF l_debug_mode = 'Y' THEN
11280: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11281: ,p_procedure_name => 'switcher');
11282: IF l_debug_mode = 'Y' THEN
11283: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11284: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11285: END IF;
11286:
11287: IF l_debug_mode = 'Y' THEN
11288: pa_debug.reset_curr_function;
11284: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11285: END IF;
11286:
11287: IF l_debug_mode = 'Y' THEN
11288: pa_debug.reset_curr_function;
11289: END IF;
11290: RAISE;
11291:
11292: END switcher;
11356:
11357: BEGIN
11358: -- SAVEPOINT process_MSExcel_data;
11359: retcode:='0';
11360: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11361: l_debug_mode := NVL(l_debug_mode, 'Y');
11362: --log1('----- STAGE CR1-------');
11363: -- Set curr function
11364: IF l_debug_mode='Y' THEN
11361: l_debug_mode := NVL(l_debug_mode, 'Y');
11362: --log1('----- STAGE CR1-------');
11363: -- Set curr function
11364: IF l_debug_mode='Y' THEN
11365: pa_debug.set_curr_function(
11366: p_function =>'PAFPWAPB.process_MSExcel_data'
11367: ,p_debug_mode => l_debug_mode );
11368: END IF;
11369:
11392: AND fin.fin_plan_type_id = pbv.fin_plan_type_id;
11393:
11394: --log1('----- STAGE CR3-------');
11395: IF l_debug_mode='Y' THEN
11396: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11397: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11398:
11399: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11400: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11393:
11394: --log1('----- STAGE CR3-------');
11395: IF l_debug_mode='Y' THEN
11396: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11397: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11398:
11399: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11400: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11401:
11395: IF l_debug_mode='Y' THEN
11396: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11397: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11398:
11399: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11400: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11401:
11402: END IF;
11403: --log1('----- STAGE CR4-------');
11396: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11397: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11398:
11399: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11400: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11401:
11402: END IF;
11403: --log1('----- STAGE CR4-------');
11404: update_xl_data_for_new_req
11433: --log1('----- STAGE CR8-------');
11434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11435: --log1('----- STAGE CR9-------');
11436: IF l_debug_mode = 'Y' THEN
11437: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11438: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11439: END IF;
11440: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11441: END IF;
11434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11435: --log1('----- STAGE CR9-------');
11436: IF l_debug_mode = 'Y' THEN
11437: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11438: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11439: END IF;
11440: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11441: END IF;
11442:
11449:
11450: COMMIT; -- is required to query the interface table from conc prog.
11451: --log1('----- STAGE 10-------');
11452: IF l_debug_mode = 'Y' THEN
11453: pa_debug.reset_curr_function;
11454: END IF;
11455:
11456: EXCEPTION
11457: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11475: --log1('----- STAGE CR10-------');
11476: -- preparing an output error log to display all the validation failures, if any,
11477: -- corresponding to a particular record in the interface table
11478: IF l_debug_mode = 'Y' THEN
11479: --Before calling pa_debug.write_file we shd call pa_debug.set_process if we want write_file to write to the log file.
11480: pa_debug.set_process( x_process => 'PLSQL'
11481: ,x_write_file => 'LOG'
11482: ,x_debug_mode => l_debug_mode
11483: );
11476: -- preparing an output error log to display all the validation failures, if any,
11477: -- corresponding to a particular record in the interface table
11478: IF l_debug_mode = 'Y' THEN
11479: --Before calling pa_debug.write_file we shd call pa_debug.set_process if we want write_file to write to the log file.
11480: pa_debug.set_process( x_process => 'PLSQL'
11481: ,x_write_file => 'LOG'
11482: ,x_debug_mode => l_debug_mode
11483: );
11484: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11480: pa_debug.set_process( x_process => 'PLSQL'
11481: ,x_write_file => 'LOG'
11482: ,x_debug_mode => l_debug_mode
11483: );
11484: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11485: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11486: pa_debug.g_err_stage := '------------------------------------------------------------------';
11487: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11488:
11481: ,x_write_file => 'LOG'
11482: ,x_debug_mode => l_debug_mode
11483: );
11484: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11485: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11486: pa_debug.g_err_stage := '------------------------------------------------------------------';
11487: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11488:
11489: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11482: ,x_debug_mode => l_debug_mode
11483: );
11484: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11485: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11486: pa_debug.g_err_stage := '------------------------------------------------------------------';
11487: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11488:
11489: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11490: LOOP
11483: );
11484: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11485: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11486: pa_debug.g_err_stage := '------------------------------------------------------------------';
11487: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11488:
11489: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11490: LOOP
11491: FETCH l_get_error_msg_to_report_csr
11492: INTO l_error_info_rec;
11493:
11494: EXIT WHEN l_error_info_rec.task_info IS NULL;
11495:
11496: pa_debug.g_err_stage := l_error_info_rec.task_info || ', ' || l_error_info_rec.resource_info || ', ' ||
11497: l_error_info_rec.currency || ', ' || l_error_info_rec.amount_type || ', ' ||
11498: l_error_info_rec.error;
11499: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11500: END LOOP;
11495:
11496: pa_debug.g_err_stage := l_error_info_rec.task_info || ', ' || l_error_info_rec.resource_info || ', ' ||
11497: l_error_info_rec.currency || ', ' || l_error_info_rec.amount_type || ', ' ||
11498: l_error_info_rec.error;
11499: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11500: END LOOP;
11501: CLOSE l_get_error_msg_to_report_csr;
11502:
11503: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11501: CLOSE l_get_error_msg_to_report_csr;
11502:
11503: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11504: --program log in addition to the interface table.
11505: pa_debug.g_err_stage := '-----------------Additional Errors--------------------------------';
11506: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11507: FOR msg_count IN 1 .. l_msg_count
11508: LOOP
11509: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11502:
11503: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11504: --program log in addition to the interface table.
11505: pa_debug.g_err_stage := '-----------------Additional Errors--------------------------------';
11506: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11507: FOR msg_count IN 1 .. l_msg_count
11508: LOOP
11509: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11510: p_msg_out => l_data);
11507: FOR msg_count IN 1 .. l_msg_count
11508: LOOP
11509: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11510: p_msg_out => l_data);
11511: pa_debug.g_err_stage := l_data;
11512: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11513: END LOOP;
11514:
11515: END IF;
11508: LOOP
11509: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11510: p_msg_out => l_data);
11511: pa_debug.g_err_stage := l_data;
11512: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11513: END LOOP;
11514:
11515: END IF;
11516:
11514:
11515: END IF;
11516:
11517: IF l_debug_mode = 'Y' THEN
11518: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11519: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11520: -- reset curr function
11521: pa_debug.reset_curr_function();
11522: END IF;
11515: END IF;
11516:
11517: IF l_debug_mode = 'Y' THEN
11518: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11519: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11520: -- reset curr function
11521: pa_debug.reset_curr_function();
11522: END IF;
11523: --log1('----- STAGE CR11-------');
11517: IF l_debug_mode = 'Y' THEN
11518: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11519: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11520: -- reset curr function
11521: pa_debug.reset_curr_function();
11522: END IF;
11523: --log1('----- STAGE CR11-------');
11524: update_xl_data_for_new_req
11525: (p_request_id => l_request_id,
11540: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11541: ,p_procedure_name => 'process_MSExcel_data');
11542:
11543: IF l_debug_mode = 'Y' THEN
11544: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11545: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11546: -- reset curr function
11547: pa_debug.Reset_Curr_Function();
11548: END IF;
11541: ,p_procedure_name => 'process_MSExcel_data');
11542:
11543: IF l_debug_mode = 'Y' THEN
11544: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11545: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11546: -- reset curr function
11547: pa_debug.Reset_Curr_Function();
11548: END IF;
11549: retcode := '2';
11543: IF l_debug_mode = 'Y' THEN
11544: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11545: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11546: -- reset curr function
11547: pa_debug.Reset_Curr_Function();
11548: END IF;
11549: retcode := '2';
11550:
11551: update_xl_data_for_new_req
11645: x NUMBER := 1;
11646: BEGIN
11647: x_msg_count := 0;
11648: x_return_status := FND_API.G_RET_STS_SUCCESS;
11649: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11650:
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11653: p_debug_mode => l_debug_mode);
11648: x_return_status := FND_API.G_RET_STS_SUCCESS;
11649: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11650:
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11653: p_debug_mode => l_debug_mode);
11654: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11655: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11656: END IF;
11650:
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11653: p_debug_mode => l_debug_mode);
11654: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11655: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11653: p_debug_mode => l_debug_mode);
11654: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11655: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11659: pa_debug.g_err_stage := 'Validating Input parameters';
11655: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11659: pa_debug.g_err_stage := 'Validating Input parameters';
11660: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11661: END IF;
11662:
11663: IF p_period_mask_id IS NULL THEN
11656: END IF;
11657: --Validation is done for the input parameters.
11658: IF l_debug_mode = 'Y' THEN
11659: pa_debug.g_err_stage := 'Validating Input parameters';
11660: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11661: END IF;
11662:
11663: IF p_period_mask_id IS NULL THEN
11664: IF l_debug_mode = 'Y' THEN
11661: END IF;
11662:
11663: IF p_period_mask_id IS NULL THEN
11664: IF l_debug_mode = 'Y' THEN
11665: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11666: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11667: END IF;
11668: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11669: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11662:
11663: IF p_period_mask_id IS NULL THEN
11664: IF l_debug_mode = 'Y' THEN
11665: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11666: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11667: END IF;
11668: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11669: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11670: p_token1 => 'PROCEDURENAME',
11673: END IF;
11674:
11675: IF p_time_phased_code IS NULL THEN
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11679: END IF;
11680: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11681: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11674:
11675: IF p_time_phased_code IS NULL THEN
11676: IF l_debug_mode = 'Y' THEN
11677: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11679: END IF;
11680: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11681: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11682: p_token1 => 'PROCEDURENAME',
11685: END IF;
11686:
11687: IF p_org_id IS NULL THEN
11688: IF l_debug_mode = 'Y' THEN
11689: pa_debug.g_err_stage := 'p_org_id is passed as null';
11690: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11691: END IF;
11692: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11693: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11686:
11687: IF p_org_id IS NULL THEN
11688: IF l_debug_mode = 'Y' THEN
11689: pa_debug.g_err_stage := 'p_org_id is passed as null';
11690: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11691: END IF;
11692: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11693: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11694: p_token1 => 'PROCEDURENAME',
11697: END IF;
11698:
11699: IF p_current_planning_period IS NULL THEN
11700: IF l_debug_mode = 'Y' THEN
11701: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11702: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11703: END IF;
11704: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11705: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11698:
11699: IF p_current_planning_period IS NULL THEN
11700: IF l_debug_mode = 'Y' THEN
11701: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11702: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11703: END IF;
11704: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11705: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11706: p_token1 => 'PROCEDURENAME',
11715: FETCH period_mask_cur BULK COLLECT INTO l_period_mask_tbl;
11716: CLOSE period_mask_cur;
11717: IF l_period_mask_tbl.count = 0 THEN
11718: IF l_debug_mode = 'Y' THEN
11719: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11721: END IF;
11722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11723: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11716: CLOSE period_mask_cur;
11717: IF l_period_mask_tbl.count = 0 THEN
11718: IF l_debug_mode = 'Y' THEN
11719: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11720: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11721: END IF;
11722: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11723: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11724: p_token1 => 'PROCEDURENAME',
11751: END IF;
11752: END LOOP;
11753: ELSE
11754: IF l_debug_mode = 'Y' THEN
11755: pa_debug.g_err_stage := 'Period information not found for the budget version';
11756: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11757: END IF;
11758: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11759: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11752: END LOOP;
11753: ELSE
11754: IF l_debug_mode = 'Y' THEN
11755: pa_debug.g_err_stage := 'Period information not found for the budget version';
11756: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11757: END IF;
11758: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11759: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11760: p_token1 => 'PROCEDURENAME',
11804: x_msg_count := l_msg_count;
11805: END IF;
11806: x_return_status := FND_API.G_RET_STS_ERROR;
11807: IF l_debug_mode = 'Y' THEN
11808: pa_debug.reset_curr_function;
11809: END IF;
11810: RETURN;
11811:
11812: WHEN OTHERS THEN
11815: x_msg_data := SQLERRM;
11816: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11817: ,p_procedure_name => 'get_period_information');
11818: IF l_debug_mode = 'Y' THEN
11819: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11821: pa_debug.reset_curr_function;
11822: END IF;
11823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11816: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11817: ,p_procedure_name => 'get_period_information');
11818: IF l_debug_mode = 'Y' THEN
11819: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11821: pa_debug.reset_curr_function;
11822: END IF;
11823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11824: END GET_PERIOD_INFORMATION;
11817: ,p_procedure_name => 'get_period_information');
11818: IF l_debug_mode = 'Y' THEN
11819: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11821: pa_debug.reset_curr_function;
11822: END IF;
11823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11824: END GET_PERIOD_INFORMATION;
11825:
12077:
12078: BEGIN
12079: x_msg_count := 0;
12080: x_return_status := FND_API.G_RET_STS_SUCCESS;
12081: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12082:
12083:
12084: IF l_debug_mode = 'Y' THEN
12085: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12081: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12082:
12083:
12084: IF l_debug_mode = 'Y' THEN
12085: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12086: ,p_debug_mode => l_debug_mode );
12087: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12089: END IF;
12083:
12084: IF l_debug_mode = 'Y' THEN
12085: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12086: ,p_debug_mode => l_debug_mode );
12087: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12089: END IF;
12090:
12091: l_budget_version_id := p_budget_version_id;
12084: IF l_debug_mode = 'Y' THEN
12085: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12086: ,p_debug_mode => l_debug_mode );
12087: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12088: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12089: END IF;
12090:
12091: l_budget_version_id := p_budget_version_id;
12092:
12092:
12093: --Validating Input Parameters.
12094: IF p_budget_version_id IS NULL THEN
12095: IF l_debug_mode = 'Y' THEN
12096: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12097: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12098: END IF;
12099: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12100: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12093: --Validating Input Parameters.
12094: IF p_budget_version_id IS NULL THEN
12095: IF l_debug_mode = 'Y' THEN
12096: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12097: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12098: END IF;
12099: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12100: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12101: p_token1 => 'PROCEDURENAME',
12102: p_value1 => l_module_name);
12103: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12104: ELSE
12105: IF l_debug_mode = 'Y' THEN
12106: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12107: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12108: END IF;
12109:
12110: --Fetching Project Information of the budget version and storing them in local variables.
12103: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12104: ELSE
12105: IF l_debug_mode = 'Y' THEN
12106: pa_debug.g_err_stage := 'Fetching Project Information of the Budget Version';
12107: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12108: END IF;
12109:
12110: --Fetching Project Information of the budget version and storing them in local variables.
12111: BEGIN
12121: AND pbv.project_id = ppa.project_id;
12122: EXCEPTION
12123: WHEN NO_DATA_FOUND THEN
12124: IF l_debug_mode = 'Y' THEN
12125: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12127: END IF;
12128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12129: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12122: EXCEPTION
12123: WHEN NO_DATA_FOUND THEN
12124: IF l_debug_mode = 'Y' THEN
12125: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12126: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12127: END IF;
12128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12129: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12130: p_token1 => 'PROCEDURENAME',
12132: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12133: END;
12134: END IF;
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12133: END;
12134: END IF;
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12141:
12134: END IF;
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12141:
12142: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12135: IF l_debug_mode = 'Y' THEN
12136: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12137: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12138: pa_debug.g_err_stage := 'Getting Budget Version Details';
12139: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12140: END IF;
12141:
12142: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12143: The returned PL/SQL record l_version_info will contain the budget version details
12150: x_msg_data => l_msg_data);
12151:
12152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage := 'Budget Version Details not found';
12155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12156: END IF;
12157: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12158: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12151:
12152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage := 'Budget Version Details not found';
12155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12156: END IF;
12157: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12158: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12159: p_token1 => 'PROCEDURENAME',
12162: END IF;
12163:
12164: --Getting Structure Version Details and storing them in local variables.
12165: IF l_debug_mode = 'Y' THEN
12166: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12167: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12168: END IF;
12169: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12170: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12163:
12164: --Getting Structure Version Details and storing them in local variables.
12165: IF l_debug_mode = 'Y' THEN
12166: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12167: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12168: END IF;
12169: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12170: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12171: l_project_structure_version_id);
12178: */
12179: /* --Bug 5144013.
12180: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12181: IF l_debug_mode = 'Y' THEN
12182: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12183: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12184: END IF;
12185: BEGIN
12186: SELECT ci_id,
12179: /* --Bug 5144013.
12180: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12181: IF l_debug_mode = 'Y' THEN
12182: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12183: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12184: END IF;
12185: BEGIN
12186: SELECT ci_id,
12187: approved_rev_plan_type_flag
12191: WHERE budget_version_id = l_budget_version_id;
12192: EXCEPTION
12193: WHEN NO_DATA_FOUND THEN
12194: IF l_debug_mode = 'Y' THEN
12195: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12196: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12197: END IF;
12198: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12199: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12192: EXCEPTION
12193: WHEN NO_DATA_FOUND THEN
12194: IF l_debug_mode = 'Y' THEN
12195: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12196: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12197: END IF;
12198: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12199: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12200: p_token1 => 'PROCEDURENAME',
12201: p_value1 => l_module_name);
12202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12203: END;
12204: IF l_debug_mode = 'Y' THEN
12205: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12206: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12207: END IF;
12208: */ --Bug 5144013.
12209:
12202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12203: END;
12204: IF l_debug_mode = 'Y' THEN
12205: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12206: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12207: END IF;
12208: */ --Bug 5144013.
12209:
12210: /*Getting the Agreement Details of the budget version if the budget version is CI version and and of
12211: Approved Revenue Plan Type.
12212: */
12213: /* --Bug 5144013.
12214: IF l_debug_mode = 'Y' THEN
12215: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12216: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12217: END IF;
12218: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12219: PA_FIN_PLAN_UTILS2.get_agreement_details(
12212: */
12213: /* --Bug 5144013.
12214: IF l_debug_mode = 'Y' THEN
12215: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12216: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12217: END IF;
12218: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12219: PA_FIN_PLAN_UTILS2.get_agreement_details(
12220: p_budget_version_id => l_budget_version_id,
12223: x_agr_conv_reqd_flag => l_agr_conv_reqd_flag,
12224: x_return_status => l_return_status);
12225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12226: IF l_debug_mode = 'Y' THEN
12227: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12228: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12229: END IF;
12230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12231: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12224: x_return_status => l_return_status);
12225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12226: IF l_debug_mode = 'Y' THEN
12227: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12228: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12229: END IF;
12230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12231: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12232: p_token1 => 'PROCEDURENAME',
12234: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12235: END IF;
12236: END IF;
12237: IF l_debug_mode = 'Y' THEN
12238: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12239: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12240: END IF;
12241: */ --Bug 5144013.
12242:
12235: END IF;
12236: END IF;
12237: IF l_debug_mode = 'Y' THEN
12238: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12239: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12240: END IF;
12241: */ --Bug 5144013.
12242:
12243: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12243: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12244: The record l_proj_fp_options_rec will contain Plan Settings level information
12245: */
12246: IF l_debug_mode = 'Y' THEN
12247: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12249: END IF;
12250: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12251: l_version_type := l_version_info_rec.x_version_type;
12244: The record l_proj_fp_options_rec will contain Plan Settings level information
12245: */
12246: IF l_debug_mode = 'Y' THEN
12247: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12248: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12249: END IF;
12250: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12251: l_version_type := l_version_info_rec.x_version_type;
12252: l_proj_fp_options_id := l_version_info_rec.x_proj_fp_options_id;
12269: WHERE proj_fp_options_id = l_proj_fp_options_id;
12270: EXCEPTION
12271: WHEN NO_DATA_FOUND THEN
12272: IF l_debug_mode = 'Y' THEN
12273: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12274: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12275: END IF;
12276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12277: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12270: EXCEPTION
12271: WHEN NO_DATA_FOUND THEN
12272: IF l_debug_mode = 'Y' THEN
12273: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12274: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12275: END IF;
12276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12277: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12278: p_token1 => 'PROCEDURENAME',
12285: associated with the budget version.
12286: */
12287: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12288: IF l_debug_mode = 'Y' THEN
12289: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12290: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12291: END IF;
12292: BEGIN
12293: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12286: */
12287: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12288: IF l_debug_mode = 'Y' THEN
12289: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12290: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12291: END IF;
12292: BEGIN
12293: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12294: FETCH amt_type_cur
12295: BULK COLLECT INTO l_amt_type_tbl;
12296: CLOSE amt_type_cur;
12297: IF l_amt_type_tbl.count = 0 THEN
12298: IF l_debug_mode = 'Y' THEN
12299: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12301: END IF;
12302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12303: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12296: CLOSE amt_type_cur;
12297: IF l_amt_type_tbl.count = 0 THEN
12298: IF l_debug_mode = 'Y' THEN
12299: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12300: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12301: END IF;
12302: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12303: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12304: p_token1 => 'PROCEDURENAME',
12315: l_time_phased_code := l_version_info_rec.x_time_phased_code;
12316: l_org_id := l_version_info_rec.x_org_id;
12317: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12318: IF l_debug_mode = 'Y' THEN
12319: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12320: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12321: END IF;
12322: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12323: p_time_phased_code => l_time_phased_code,
12316: l_org_id := l_version_info_rec.x_org_id;
12317: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12318: IF l_debug_mode = 'Y' THEN
12319: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12320: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12321: END IF;
12322: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12323: p_time_phased_code => l_time_phased_code,
12324: p_org_id => l_org_id,
12329: x_msg_data => l_msg_data);
12330:
12331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12332: IF l_debug_mode = 'Y' THEN
12333: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12334: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12335: END IF;
12336: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12337: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12330:
12331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12332: IF l_debug_mode = 'Y' THEN
12333: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12334: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12335: END IF;
12336: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12337: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12338: p_token1 => 'PROCEDURENAME',
12340: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12341: END IF;
12342: IF l_periods_tbl.count = 0 THEN
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12345: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12346: END IF;
12347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12348: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12341: END IF;
12342: IF l_periods_tbl.count = 0 THEN
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12345: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12346: END IF;
12347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12348: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12349: p_token1 => 'PROCEDURENAME',
12365: l_projfunc_currency_code := l_version_info_rec.x_projfunc_currency_code;
12366: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12367: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12371: END IF;
12372:
12373: BEGIN
12366: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12367: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12371: END IF;
12372:
12373: BEGIN
12374: */ --Bug 5144013.
12409: and pbl.txn_currency_code = pftc.txn_currency_code;
12410:
12411: IF l_txn_curr_tbl.count = 0 THEN
12412: IF l_debug_mode = 'Y' THEN
12413: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12415: END IF;
12416: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12417: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12410:
12411: IF l_txn_curr_tbl.count = 0 THEN
12412: IF l_debug_mode = 'Y' THEN
12413: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12414: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12415: END IF;
12416: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12417: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12418: p_token1 => 'PROCEDURENAME',
12427: The PL/SQL table l_res_ass_tbl will contain all the Resource Assignment
12428: information associated with the budget version.
12429: */
12430: IF l_debug_mode = 'Y' THEN
12431: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12432: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12433: END IF;
12434: BEGIN
12435: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12428: information associated with the budget version.
12429: */
12430: IF l_debug_mode = 'Y' THEN
12431: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12432: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12433: END IF;
12434: BEGIN
12435: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12436: as res_ass_tbl is converted to ordinary pl/sql table from index by pl/sql table.
12447: CLOSE res_ass_cur;
12448: /* End of coding done for bug 5641300.*/
12449: IF l_res_ass_tbl.count = 0 THEN
12450: IF l_debug_mode = 'Y' THEN
12451: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12453: END IF;
12454: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12455: /*
12448: /* End of coding done for bug 5641300.*/
12449: IF l_res_ass_tbl.count = 0 THEN
12450: IF l_debug_mode = 'Y' THEN
12451: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12452: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12453: END IF;
12454: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12455: /*
12456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12467: /*Getting the values of all the Amount Types for each Resource Assignment and Transaction
12468: Currency combination for all the periods associated with the budget version
12469: */
12470: IF l_debug_mode = 'Y' THEN
12471: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12472: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12473: END IF;
12474: BEGIN
12475: l_global_tmp_tbl := global_tmp_tbl();
12468: Currency combination for all the periods associated with the budget version
12469: */
12470: IF l_debug_mode = 'Y' THEN
12471: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12472: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12473: END IF;
12474: BEGIN
12475: l_global_tmp_tbl := global_tmp_tbl();
12476: l_global_tmp_rec.budget_version_id := l_budget_version_id;
12718: /*Populating Global Temparory Table pa_fp_webadi_xface_tmp using the PL/SQL
12719: table l_global_tmp_tbl which contains all the budget line details.
12720: */
12721: IF l_debug_mode = 'Y' THEN
12722: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12723: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12724: END IF;
12725: BEGIN
12726: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12719: table l_global_tmp_tbl which contains all the budget line details.
12720: */
12721: IF l_debug_mode = 'Y' THEN
12722: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12723: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12724: END IF;
12725: BEGIN
12726: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12727: LOOP
12736: WHEN OTHERS THEN
12737: RAISE;
12738: END;
12739: IF l_debug_mode = 'Y' THEN
12740: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12741: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12742: END IF;
12743: --Resetting the value of the Global PL/SQL table to NULL.
12744: l_global_tmp_tbl := null;
12737: RAISE;
12738: END;
12739: IF l_debug_mode = 'Y' THEN
12740: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12741: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12742: END IF;
12743: --Resetting the value of the Global PL/SQL table to NULL.
12744: l_global_tmp_tbl := null;
12745:
12760: x_msg_count := l_msg_count;
12761: END IF;
12762: x_return_status := FND_API.G_RET_STS_ERROR;
12763: IF l_debug_mode = 'Y' THEN
12764: pa_debug.reset_curr_function;
12765: END IF;
12766: RETURN;
12767:
12768: -- Bug 5360205: Added NO_RA_EXC block.
12768: -- Bug 5360205: Added NO_RA_EXC block.
12769: WHEN NO_RA_EXC THEN
12770: x_return_status := FND_API.G_RET_STS_SUCCESS;
12771: IF l_debug_mode = 'Y' THEN
12772: pa_debug.reset_curr_function;
12773: END IF;
12774: RETURN;
12775:
12776: WHEN OTHERS THEN
12779: x_msg_data := SQLERRM;
12780: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12781: ,p_procedure_name => 'insert_periodic_tmp_table');
12782: IF l_debug_mode = 'Y' THEN
12783: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12785: pa_debug.reset_curr_function;
12786: END IF;
12787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12780: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12781: ,p_procedure_name => 'insert_periodic_tmp_table');
12782: IF l_debug_mode = 'Y' THEN
12783: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12785: pa_debug.reset_curr_function;
12786: END IF;
12787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12788:
12781: ,p_procedure_name => 'insert_periodic_tmp_table');
12782: IF l_debug_mode = 'Y' THEN
12783: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12785: pa_debug.reset_curr_function;
12786: END IF;
12787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12788:
12789: