[Home] [Help]
327:
328: BEGIN
329: x_msg_count := 0;
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
332:
333: IF l_debug_mode = 'Y' THEN
334: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
335: ,p_debug_mode => l_debug_mode );
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
332:
333: IF l_debug_mode = 'Y' THEN
334: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
335: ,p_debug_mode => l_debug_mode );
336: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
337: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
338: END IF;
332:
333: IF l_debug_mode = 'Y' THEN
334: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
335: ,p_debug_mode => l_debug_mode );
336: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
337: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
338: END IF;
339:
340: l_preserve_rows_flag := 'N';
333: IF l_debug_mode = 'Y' THEN
334: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
335: ,p_debug_mode => l_debug_mode );
336: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.DELETE_XFACE' ;
337: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
338: END IF;
339:
340: l_preserve_rows_flag := 'N';
341: l_nothing_delete_flag := 'N';
342:
343: -- validating input parameter
344: IF p_run_id IS NULL THEN
345: IF l_debug_mode = 'Y' THEN
346: pa_debug.g_err_stage := 'p_run_id is passed as null';
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
348: END IF;
349: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
350: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
343: -- validating input parameter
344: IF p_run_id IS NULL THEN
345: IF l_debug_mode = 'Y' THEN
346: pa_debug.g_err_stage := 'p_run_id is passed as null';
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
348: END IF;
349: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
350: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
351: p_token1 => 'PROCEDURENAME',
369: AND bv.plan_processing_code IN ('XLUP', 'XLUE'));
370: -- there is a pending concurrent request, which is yet to be processed
371: -- inf table data should not be deleted
372: IF l_debug_mode = 'Y' THEN
373: pa_debug.g_err_stage := 'Concurrent Request pending, returning';
374: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
375: END IF;
376: EXCEPTION
377: WHEN NO_DATA_FOUND THEN
370: -- there is a pending concurrent request, which is yet to be processed
371: -- inf table data should not be deleted
372: IF l_debug_mode = 'Y' THEN
373: pa_debug.g_err_stage := 'Concurrent Request pending, returning';
374: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
375: END IF;
376: EXCEPTION
377: WHEN NO_DATA_FOUND THEN
378: IF l_debug_mode = 'Y' THEN
375: END IF;
376: EXCEPTION
377: WHEN NO_DATA_FOUND THEN
378: IF l_debug_mode = 'Y' THEN
379: pa_debug.g_err_stage := 'This has been called for online mode';
380: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
381: END IF;
382: -- do nothing
383: l_preserve_rows_flag := 'N';
376: EXCEPTION
377: WHEN NO_DATA_FOUND THEN
378: IF l_debug_mode = 'Y' THEN
379: pa_debug.g_err_stage := 'This has been called for online mode';
380: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
381: END IF;
382: -- do nothing
383: l_preserve_rows_flag := 'N';
384: -- l_nothing_delete_flag := 'Y';
390: WHERE run_id = p_run_id;
391:
392: IF l_debug_mode = 'Y' THEN
393: l_del_record_count := SQL%ROWCOUNT;
394: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
395: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
396: pa_debug.reset_curr_function;
397: END IF;
398: END IF;
391:
392: IF l_debug_mode = 'Y' THEN
393: l_del_record_count := SQL%ROWCOUNT;
394: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
395: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
396: pa_debug.reset_curr_function;
397: END IF;
398: END IF;
399: EXCEPTION
392: IF l_debug_mode = 'Y' THEN
393: l_del_record_count := SQL%ROWCOUNT;
394: pa_debug.g_err_stage := ':Deleted '||l_del_record_count||' records from PA_FP_WEBADI_UPLOAD_INF';
395: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
396: pa_debug.reset_curr_function;
397: END IF;
398: END IF;
399: EXCEPTION
400: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
415: END IF;
416: x_return_status := FND_API.G_RET_STS_ERROR;
417:
418: IF l_debug_mode = 'Y' THEN
419: pa_debug.reset_curr_function;
420: END IF;
421: RETURN;
422: WHEN OTHERS THEN
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.add_exc_msg
427: ( p_pkg_name => 'pa_fp_webadi_pkg'
428: ,p_procedure_name => 'DELETE_XFACE' );
429: IF l_debug_mode = 'Y' THEN
430: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
431: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
432: pa_debug.reset_curr_function;
433: END IF;
434:
427: ( p_pkg_name => 'pa_fp_webadi_pkg'
428: ,p_procedure_name => 'DELETE_XFACE' );
429: IF l_debug_mode = 'Y' THEN
430: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
431: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
432: pa_debug.reset_curr_function;
433: END IF;
434:
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
428: ,p_procedure_name => 'DELETE_XFACE' );
429: IF l_debug_mode = 'Y' THEN
430: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
431: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
432: pa_debug.reset_curr_function;
433: END IF;
434:
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
436:
511:
512:
513: BEGIN
514:
515: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
516: x_msg_count := 0;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518: IF l_debug_mode = 'Y' THEN
519: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
515: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
516: x_msg_count := 0;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518: IF l_debug_mode = 'Y' THEN
519: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
520: p_debug_mode => l_debug_mode );
521: END IF;
522: IF l_debug_mode = 'Y' THEN
523: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
519: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
520: p_debug_mode => l_debug_mode );
521: END IF;
522: IF l_debug_mode = 'Y' THEN
523: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
525: END IF;
526:
527: --log1('----- Entering into validate_header_info-------');
520: p_debug_mode => l_debug_mode );
521: END IF;
522: IF l_debug_mode = 'Y' THEN
523: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.validate_header_info';
524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
525: END IF;
526:
527: --log1('----- Entering into validate_header_info-------');
528:
526:
527: --log1('----- Entering into validate_header_info-------');
528:
529: IF l_debug_mode = 'Y' THEN
530: pa_debug.g_err_stage := 'Opening l_version_info_csr';
531: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
532: END IF;
533:
534: -- since there would be check for null budget_version_id in the
527: --log1('----- Entering into validate_header_info-------');
528:
529: IF l_debug_mode = 'Y' THEN
530: pa_debug.g_err_stage := 'Opening l_version_info_csr';
531: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
532: END IF;
533:
534: -- since there would be check for null budget_version_id in the
535: -- calling place, no check is made here for the same
550: l_time_phase_code;
551:
552: IF l_version_info_csr%NOTFOUND THEN
553: IF l_debug_mode = 'Y' THEN
554: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
556: END IF;
557: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
558: END IF;
551:
552: IF l_version_info_csr%NOTFOUND THEN
553: IF l_debug_mode = 'Y' THEN
554: pa_debug.g_err_stage := 'Cursor l_version_info_csr failed to fetch data';
555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
556: END IF;
557: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
558: END IF;
559: CLOSE l_version_info_csr;
558: END IF;
559: CLOSE l_version_info_csr;
560:
561: IF l_debug_mode = 'Y' THEN
562: pa_debug.g_err_stage := 'Data fetched from l_version_info_csr';
563: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
564: END IF;
565:
566: --log1('----- STAGE 1-------');
559: CLOSE l_version_info_csr;
560:
561: IF l_debug_mode = 'Y' THEN
562: pa_debug.g_err_stage := 'Data fetched from l_version_info_csr';
563: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
564: END IF;
565:
566: --log1('----- STAGE 1-------');
567: IF l_debug_mode = 'Y' THEN
564: END IF;
565:
566: --log1('----- STAGE 1-------');
567: IF l_debug_mode = 'Y' THEN
568: pa_debug.g_err_stage := 'Validating record version number';
569: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
570: END IF;
571: IF l_record_version_number <> p_record_version_number THEN
572: IF l_debug_mode = 'Y' THEN
565:
566: --log1('----- STAGE 1-------');
567: IF l_debug_mode = 'Y' THEN
568: pa_debug.g_err_stage := 'Validating record version number';
569: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
570: END IF;
571: IF l_record_version_number <> p_record_version_number THEN
572: IF l_debug_mode = 'Y' THEN
573: pa_debug.g_err_stage := 'Record version number has changed';
569: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
570: END IF;
571: IF l_record_version_number <> p_record_version_number THEN
572: IF l_debug_mode = 'Y' THEN
573: pa_debug.g_err_stage := 'Record version number has changed';
574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
575: END IF;
576: RAISE BV_validation_failed_exc;
577: END IF;
570: END IF;
571: IF l_record_version_number <> p_record_version_number THEN
572: IF l_debug_mode = 'Y' THEN
573: pa_debug.g_err_stage := 'Record version number has changed';
574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
575: END IF;
576: RAISE BV_validation_failed_exc;
577: END IF;
578: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
577: END IF;
578: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
579:
580: IF l_debug_mode = 'Y' THEN
581: pa_debug.g_err_stage := 'Checking for periodic layout';
582: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
583: END IF;
584:
585: BEGIN
578: --Update the interface table with error_code 'PA_FP_WEBADI_VER_MODIFIED'
579:
580: IF l_debug_mode = 'Y' THEN
581: pa_debug.g_err_stage := 'Checking for periodic layout';
582: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
583: END IF;
584:
585: BEGIN
586: SELECT 'Y'
598:
599: --log1('----- STAGE 2-------');
600: IF is_periodic_layout = 'Y' THEN
601: IF l_debug_mode = 'Y' THEN
602: pa_debug.g_err_stage := 'Validating period mask';
603: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
604: END IF;
605:
606: IF l_time_phase_code <> 'N' THEN
599: --log1('----- STAGE 2-------');
600: IF is_periodic_layout = 'Y' THEN
601: IF l_debug_mode = 'Y' THEN
602: pa_debug.g_err_stage := 'Validating period mask';
603: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
604: END IF;
605:
606: IF l_time_phase_code <> 'N' THEN
607: BEGIN
611: WHERE period_mask_id = l_period_mask_id;
612: EXCEPTION
613: WHEN NO_DATA_FOUND THEN
614: IF l_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage := 'No data found for period mask';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
619: END;
612: EXCEPTION
613: WHEN NO_DATA_FOUND THEN
614: IF l_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage := 'No data found for period mask';
616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
617: END IF;
618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
619: END;
620: -- the following validation is only for timephased budgets downloaded in
620: -- the following validation is only for timephased budgets downloaded in
621: -- periodic layouts
622: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
623: IF l_debug_mode = 'Y' THEN
624: pa_debug.g_err_stage := 'period mask has changed';
625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
626: END IF;
627: RAISE Bv_period_mask_changed_Exc;
628: --Update the interface table with error_code 'PA_FP_WEBADI_TP_MODIFIED'
621: -- periodic layouts
622: IF l_pm_rec_version_number <> p_pm_rec_version_number THEN
623: IF l_debug_mode = 'Y' THEN
624: pa_debug.g_err_stage := 'period mask has changed';
625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
626: END IF;
627: RAISE Bv_period_mask_changed_Exc;
628: --Update the interface table with error_code 'PA_FP_WEBADI_TP_MODIFIED'
629: END IF;
631: END IF;
632:
633: --log1('----- STAGE 3-------');
634: IF l_debug_mode = 'Y' THEN
635: pa_debug.g_err_stage := 'Checking for function security';
636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
637: END IF;
638:
639: IF l_ci_id = -1 THEN
632:
633: --log1('----- STAGE 3-------');
634: IF l_debug_mode = 'Y' THEN
635: pa_debug.g_err_stage := 'Checking for function security';
636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
637: END IF;
638:
639: IF l_ci_id = -1 THEN
640: -- budget version
661: END IF;
662:
663: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage := 'Function security not present';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE No_Bv_Maint_Previlege_Exc;
669: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
662:
663: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage := 'Function security not present';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE No_Bv_Maint_Previlege_Exc;
669: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
670: END IF;
671:
672: --log1('----- STAGE 4-------');
673: -- Checking, if the budget version can be edited or not
674: IF l_debug_mode = 'Y' THEN
675: pa_debug.g_err_stage := 'Checking if the version can be edited';
676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
677: END IF;
678:
679: IF l_ci_id = -1 THEN
672: --log1('----- STAGE 4-------');
673: -- Checking, if the budget version can be edited or not
674: IF l_debug_mode = 'Y' THEN
675: pa_debug.g_err_stage := 'Checking if the version can be edited';
676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
677: END IF;
678:
679: IF l_ci_id = -1 THEN
680: pa_fin_plan_utils.validate_editable_bv
690:
691: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: IF l_val_err_code IS NOT NULL THEN
693: IF l_debug_mode = 'Y' THEN
694: pa_debug.g_err_stage := 'The version can not be edited';
695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
696: END IF;
697: RAISE Bv_Non_Editable_Exc;
698: --update the interface table with the error_code;
691: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: IF l_val_err_code IS NOT NULL THEN
693: IF l_debug_mode = 'Y' THEN
694: pa_debug.g_err_stage := 'The version can not be edited';
695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
696: END IF;
697: RAISE Bv_Non_Editable_Exc;
698: --update the interface table with the error_code;
699: END IF;
702: --log1('----- STAGE 5-------');
703: ELSE
704: -- Check if the ci is not editable
705: IF l_debug_mode = 'Y' THEN
706: pa_debug.g_err_stage := 'Checking if the CO can be updated';
707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
708: END IF;
709: BEGIN
710: SELECT pjs.project_system_status_code
703: ELSE
704: -- Check if the ci is not editable
705: IF l_debug_mode = 'Y' THEN
706: pa_debug.g_err_stage := 'Checking if the CO can be updated';
707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
708: END IF;
709: BEGIN
710: SELECT pjs.project_system_status_code
711: INTO l_ci_status_code
715: and pci.status_code = pjs.project_status_code;
716: EXCEPTION
717: WHEN NO_DATA_FOUND THEN
718: IF l_debug_mode = 'Y' THEN
719: pa_debug.g_err_stage := 'Status code not found';
720: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
721: END IF;
722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
723: END;
716: EXCEPTION
717: WHEN NO_DATA_FOUND THEN
718: IF l_debug_mode = 'Y' THEN
719: pa_debug.g_err_stage := 'Status code not found';
720: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
721: END IF;
722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
723: END;
724:
723: END;
724:
725: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
726: IF l_debug_mode = 'Y' THEN
727: pa_debug.g_err_stage := 'CO version cannot be updated';
728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
729: END IF;
730: RAISE Co_Ver_Non_Editable_Exc;
731: --update the interface table with error_code 'PA_FP_WA_CI_VER_NON_EDITABLE'
724:
725: IF l_ci_status_code NOT IN ('CI_DRAFT', 'CI_WORKING') THEN
726: IF l_debug_mode = 'Y' THEN
727: pa_debug.g_err_stage := 'CO version cannot be updated';
728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
729: END IF;
730: RAISE Co_Ver_Non_Editable_Exc;
731: --update the interface table with error_code 'PA_FP_WA_CI_VER_NON_EDITABLE'
732: END IF;
739: * throw an error, if the version is CI
740: */
741:
742: IF l_debug_mode = 'Y' THEN
743: pa_debug.g_err_stage := 'Checking for submit previlege';
744: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
745: END IF;
746: IF p_submit_flag = 'Y' THEN
747: -- call to check if the version is current working
740: */
741:
742: IF l_debug_mode = 'Y' THEN
743: pa_debug.g_err_stage := 'Checking for submit previlege';
744: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
745: END IF;
746: IF p_submit_flag = 'Y' THEN
747: -- call to check if the version is current working
748: IF l_ci_id = -1 THEN
747: -- call to check if the version is current working
748: IF l_ci_id = -1 THEN
749: IF l_current_working_flag = 'N' THEN
750: IF l_debug_mode = 'Y' THEN
751: pa_debug.g_err_stage := 'Submittin while not current working';
752: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
753: END IF;
754: RAISE Bv_Not_Curr_Working_Exc;
755: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
748: IF l_ci_id = -1 THEN
749: IF l_current_working_flag = 'N' THEN
750: IF l_debug_mode = 'Y' THEN
751: pa_debug.g_err_stage := 'Submittin while not current working';
752: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
753: END IF;
754: RAISE Bv_Not_Curr_Working_Exc;
755: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
756: END IF;
755: --Update the interface table with error_code 'PA_FP_WA_BV_NOT_CURR_WORKING';
756: END IF;
757: ELSE -- for CI version the p_submit_flag = 'Y'
758: IF l_debug_mode = 'Y' THEN
759: pa_debug.g_err_stage := 'Submitting CO version';
760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
761: END IF;
762: RAISE Ci_Ver_Sumbit_Flag_Exc;
763: --Update the interface table with error_code 'PA_FP_WA_CI_VER_SUBMIT_FLAG';
756: END IF;
757: ELSE -- for CI version the p_submit_flag = 'Y'
758: IF l_debug_mode = 'Y' THEN
759: pa_debug.g_err_stage := 'Submitting CO version';
760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
761: END IF;
762: RAISE Ci_Ver_Sumbit_Flag_Exc;
763: --Update the interface table with error_code 'PA_FP_WA_CI_VER_SUBMIT_FLAG';
764: END IF;
774: x_ret_code => l_sec_ret_code);
775:
776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
777: IF l_debug_mode = 'Y' THEN
778: pa_debug.g_err_stage := 'No submit previlege';
779: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
780: END IF;
781: RAISE No_Bv_Maint_Previlege_Exc;
782: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
775:
776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
777: IF l_debug_mode = 'Y' THEN
778: pa_debug.g_err_stage := 'No submit previlege';
779: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
780: END IF;
781: RAISE No_Bv_Maint_Previlege_Exc;
782: --Update the interface table with error_code 'PA_FP_WEBADI_NO_BV_MAINT_PVLG'
783: END IF;
785: --log1('----- STAGE 7-------');
786: END IF; -- p_submit_flag = 'Y'
787:
788: IF l_debug_mode = 'Y' THEN
789: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
791: END IF;
792: IF l_debug_mode = 'Y' THEN
793: pa_debug.reset_curr_function;
786: END IF; -- p_submit_flag = 'Y'
787:
788: IF l_debug_mode = 'Y' THEN
789: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
791: END IF;
792: IF l_debug_mode = 'Y' THEN
793: pa_debug.reset_curr_function;
794: END IF;
789: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.validate_header_info';
790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
791: END IF;
792: IF l_debug_mode = 'Y' THEN
793: pa_debug.reset_curr_function;
794: END IF;
795:
796: --log1('----- Leaving validate_header_info-------');
797:
798: EXCEPTION
799: -- handling all the pre defined exceptions
800: WHEN BV_validation_failed_exc THEN
801: IF l_debug_mode = 'Y' THEN
802: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_VER_MODIFIED';
803: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
804: END IF;
805:
806: UPDATE pa_fp_webadi_upload_inf
799: -- handling all the pre defined exceptions
800: WHEN BV_validation_failed_exc THEN
801: IF l_debug_mode = 'Y' THEN
802: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_VER_MODIFIED';
803: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
804: END IF;
805:
806: UPDATE pa_fp_webadi_upload_inf
807: SET val_error_flag = 'Y',
814: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
815:
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: IF l_debug_mode = 'Y' THEN
818: pa_debug.reset_curr_function;
819: END IF;
820:
821: RETURN;
822: WHEN Bv_period_mask_changed_Exc THEN
820:
821: RETURN;
822: WHEN Bv_period_mask_changed_Exc THEN
823: IF l_debug_mode = 'Y' THEN
824: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_TP_MODIFIED';
825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
826: END IF;
827:
828: UPDATE pa_fp_webadi_upload_inf
821: RETURN;
822: WHEN Bv_period_mask_changed_Exc THEN
823: IF l_debug_mode = 'Y' THEN
824: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_TP_MODIFIED';
825: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
826: END IF;
827:
828: UPDATE pa_fp_webadi_upload_inf
829: SET val_error_flag = 'Y',
836: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
837:
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: IF l_debug_mode = 'Y' THEN
840: pa_debug.reset_curr_function;
841: END IF;
842:
843: RETURN;
844: WHEN No_Bv_Maint_Previlege_Exc THEN
842:
843: RETURN;
844: WHEN No_Bv_Maint_Previlege_Exc THEN
845: IF l_debug_mode = 'Y' THEN
846: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_NO_BV_MAINT_PVLG';
847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
848: END IF;
849:
850: UPDATE pa_fp_webadi_upload_inf
843: RETURN;
844: WHEN No_Bv_Maint_Previlege_Exc THEN
845: IF l_debug_mode = 'Y' THEN
846: pa_debug.g_err_stage := 'Updating tmp table with error code: PA_FP_WEBADI_NO_BV_MAINT_PVLG';
847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
848: END IF;
849:
850: UPDATE pa_fp_webadi_upload_inf
851: SET val_error_flag = 'Y',
858: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
859:
860: x_return_status := FND_API.G_RET_STS_ERROR;
861: IF l_debug_mode = 'Y' THEN
862: pa_debug.reset_curr_function;
863: END IF;
864:
865: RETURN;
866: WHEN Bv_Non_Editable_Exc THEN
864:
865: RETURN;
866: WHEN Bv_Non_Editable_Exc THEN
867: IF l_debug_mode = 'Y' THEN
868: pa_debug.g_err_stage := 'Updating tmp table with error code: ' || l_val_err_code;
869: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
870: END IF;
871:
872: UPDATE pa_fp_webadi_upload_inf
865: RETURN;
866: WHEN Bv_Non_Editable_Exc THEN
867: IF l_debug_mode = 'Y' THEN
868: pa_debug.g_err_stage := 'Updating tmp table with error code: ' || l_val_err_code;
869: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
870: END IF;
871:
872: UPDATE pa_fp_webadi_upload_inf
873: SET val_error_flag = 'Y',
880: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
881:
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: IF l_debug_mode = 'Y' THEN
884: pa_debug.reset_curr_function;
885: END IF;
886:
887: RETURN;
888: WHEN Co_Ver_Non_Editable_Exc THEN
886:
887: RETURN;
888: WHEN Co_Ver_Non_Editable_Exc THEN
889: IF l_debug_mode = 'Y' THEN
890: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_NON_EDITABLE';
891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
892: END IF;
893:
894: UPDATE pa_fp_webadi_upload_inf
887: RETURN;
888: WHEN Co_Ver_Non_Editable_Exc THEN
889: IF l_debug_mode = 'Y' THEN
890: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_NON_EDITABLE';
891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
892: END IF;
893:
894: UPDATE pa_fp_webadi_upload_inf
895: SET val_error_flag = 'Y',
902: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
903:
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: IF l_debug_mode = 'Y' THEN
906: pa_debug.reset_curr_function;
907: END IF;
908:
909: RETURN;
910: WHEN Bv_Not_Curr_Working_Exc THEN
908:
909: RETURN;
910: WHEN Bv_Not_Curr_Working_Exc THEN
911: IF l_debug_mode = 'Y' THEN
912: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_BV_NOT_CURR_WORKING';
913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
914: END IF;
915:
916: UPDATE pa_fp_webadi_upload_inf
909: RETURN;
910: WHEN Bv_Not_Curr_Working_Exc THEN
911: IF l_debug_mode = 'Y' THEN
912: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_BV_NOT_CURR_WORKING';
913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
914: END IF;
915:
916: UPDATE pa_fp_webadi_upload_inf
917: SET val_error_flag = 'Y',
924: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
925:
926: x_return_status := FND_API.G_RET_STS_ERROR;
927: IF l_debug_mode = 'Y' THEN
928: pa_debug.reset_curr_function;
929: END IF;
930:
931: RETURN;
932: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
930:
931: RETURN;
932: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
933: IF l_debug_mode = 'Y' THEN
934: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_SUBMIT_FLAG';
935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
936: END IF;
937:
938: UPDATE pa_fp_webadi_upload_inf
931: RETURN;
932: WHEN Ci_Ver_Sumbit_Flag_Exc THEN
933: IF l_debug_mode = 'Y' THEN
934: pa_debug.g_err_stage := 'Updating tmp table with error code: FP_WEBADI_CI_VER_SUBMIT_FLAG';
935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
936: END IF;
937:
938: UPDATE pa_fp_webadi_upload_inf
939: SET val_error_flag = 'Y',
946: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
947:
948: x_return_status := FND_API.G_RET_STS_ERROR;
949: IF l_debug_mode = 'Y' THEN
950: pa_debug.reset_curr_function;
951: END IF;
952:
953: RETURN;
954:
970: END IF;
971: x_return_status := FND_API.G_RET_STS_ERROR;
972:
973: IF l_debug_mode = 'Y' THEN
974: pa_debug.reset_curr_function;
975: END IF;
976: RETURN;
977:
978: WHEN OTHERS THEN
982:
983: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
984: ,p_procedure_name => 'prepare_val_input');
985: IF l_debug_mode = 'Y' THEN
986: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
988: END IF;
989:
990: IF l_debug_mode = 'Y' THEN
983: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
984: ,p_procedure_name => 'prepare_val_input');
985: IF l_debug_mode = 'Y' THEN
986: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
988: END IF;
989:
990: IF l_debug_mode = 'Y' THEN
991: pa_debug.reset_curr_function;
987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
988: END IF;
989:
990: IF l_debug_mode = 'Y' THEN
991: pa_debug.reset_curr_function;
992: END IF;
993: RAISE;
994:
995: END validate_header_info; -- of validate_header_info
1034: l_data VARCHAR2(2000);
1035: l_periodic_flag VARCHAR2(1);
1036:
1037: BEGIN
1038: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1039: x_msg_count := 0;
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041: IF l_debug_mode = 'Y' THEN
1042: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1038: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1039: x_msg_count := 0;
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041: IF l_debug_mode = 'Y' THEN
1042: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1043: p_debug_mode => l_debug_mode );
1044: END IF;
1045: IF l_debug_mode = 'Y' THEN
1046: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1042: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1043: p_debug_mode => l_debug_mode );
1044: END IF;
1045: IF l_debug_mode = 'Y' THEN
1046: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1047: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1048: END IF;
1049:
1050: --log1('PE 1'||p_error_code_tbl.COUNT);
1043: p_debug_mode => l_debug_mode );
1044: END IF;
1045: IF l_debug_mode = 'Y' THEN
1046: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.process_errors';
1047: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1048: END IF;
1049:
1050: --log1('PE 1'||p_error_code_tbl.COUNT);
1051: --log1('PE 2'||p_periodic_flag);
1121: AND val_error_flag IS NULL
1122: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
1123: ELSE -- no other valid not null context
1124: IF l_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Not a valid calling context passed';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1127: END IF;
1128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1129: END IF;
1122: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
1123: ELSE -- no other valid not null context
1124: IF l_debug_mode = 'Y' THEN
1125: pa_debug.g_err_stage := 'Not a valid calling context passed';
1126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1127: END IF;
1128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1129: END IF;
1130:
1154: AND ROWNUM=1;
1155:
1156: ELSE -- input table length not same
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162: END IF;
1155:
1156: ELSE -- input table length not same
1157: IF l_debug_mode = 'Y' THEN
1158: pa_debug.g_err_stage := 'Information mismatch to process: periodic';
1159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1160: END IF;
1161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1162: END IF;
1163:
1181: AND Nvl(p_request_id, -99) = Nvl(inf.request_id, -99)
1182: AND ROWNUM=1;
1183:
1184: IF l_debug_mode = 'Y' THEN
1185: pa_debug.g_err_stage := 'SQL%COUNT' || SQL%ROWCOUNT;
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1187: END IF;
1188: ELSE
1189: IF l_debug_mode = 'Y' THEN
1182: AND ROWNUM=1;
1183:
1184: IF l_debug_mode = 'Y' THEN
1185: pa_debug.g_err_stage := 'SQL%COUNT' || SQL%ROWCOUNT;
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1187: END IF;
1188: ELSE
1189: IF l_debug_mode = 'Y' THEN
1190: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1187: END IF;
1188: ELSE
1189: IF l_debug_mode = 'Y' THEN
1190: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1192: END IF;
1193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1194: END IF;
1187: END IF;
1188: ELSE
1189: IF l_debug_mode = 'Y' THEN
1190: pa_debug.g_err_stage := 'Information mismatch to process: non periodic';
1191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1192: END IF;
1193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1194: END IF;
1195: END IF;
1195: END IF;
1196:
1197: ELSE -- lenght of error code table is 0 when context is not passed
1198: IF l_debug_mode = 'Y' THEN
1199: pa_debug.g_err_stage := 'No error code passed, returning';
1200: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1201: END IF;
1202: IF l_debug_mode = 'Y' THEN
1203: pa_debug.reset_curr_function;
1196:
1197: ELSE -- lenght of error code table is 0 when context is not passed
1198: IF l_debug_mode = 'Y' THEN
1199: pa_debug.g_err_stage := 'No error code passed, returning';
1200: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1201: END IF;
1202: IF l_debug_mode = 'Y' THEN
1203: pa_debug.reset_curr_function;
1204: END IF;
1199: pa_debug.g_err_stage := 'No error code passed, returning';
1200: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1201: END IF;
1202: IF l_debug_mode = 'Y' THEN
1203: pa_debug.reset_curr_function;
1204: END IF;
1205: RETURN;
1206: END IF;
1207: END IF; -- p_context
1209: -- placing a commit here to retain all the error codes stamped.
1210: -- COMMIT;
1211:
1212: IF l_debug_mode = 'Y' THEN
1213: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1214: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1215: END IF;
1216: IF l_debug_mode = 'Y' THEN
1217: pa_debug.reset_curr_function;
1210: -- COMMIT;
1211:
1212: IF l_debug_mode = 'Y' THEN
1213: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1214: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1215: END IF;
1216: IF l_debug_mode = 'Y' THEN
1217: pa_debug.reset_curr_function;
1218: END IF;
1213: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.process_errors';
1214: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1215: END IF;
1216: IF l_debug_mode = 'Y' THEN
1217: pa_debug.reset_curr_function;
1218: END IF;
1219:
1220: EXCEPTION
1221: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1236: END IF;
1237: x_return_status := FND_API.G_RET_STS_ERROR;
1238:
1239: IF l_debug_mode = 'Y' THEN
1240: pa_debug.reset_curr_function;
1241: END IF;
1242: RETURN;
1243:
1244: WHEN OTHERS THEN
1248:
1249: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1250: ,p_procedure_name => 'process_errors');
1251: IF l_debug_mode = 'Y' THEN
1252: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1253: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1254: END IF;
1255:
1256: IF l_debug_mode = 'Y' THEN
1249: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1250: ,p_procedure_name => 'process_errors');
1251: IF l_debug_mode = 'Y' THEN
1252: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1253: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1254: END IF;
1255:
1256: IF l_debug_mode = 'Y' THEN
1257: pa_debug.reset_curr_function;
1253: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1254: END IF;
1255:
1256: IF l_debug_mode = 'Y' THEN
1257: pa_debug.reset_curr_function;
1258: END IF;
1259: RAISE;
1260: END process_errors;
1261:
1288: l_err_rlm_id_tbl SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE();
1289: l_err_txn_curr_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
1290:
1291: BEGIN
1292: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1293: x_msg_count := 0;
1294: x_return_status := FND_API.G_RET_STS_SUCCESS;
1295: IF l_debug_mode = 'Y' THEN
1296: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1292: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1293: x_msg_count := 0;
1294: x_return_status := FND_API.G_RET_STS_SUCCESS;
1295: IF l_debug_mode = 'Y' THEN
1296: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1297: p_debug_mode => l_debug_mode );
1298: END IF;
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1296: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1297: p_debug_mode => l_debug_mode );
1298: END IF;
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1301: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1302: END IF;
1303:
1304: -- checking if there is some value in the global table
1297: p_debug_mode => l_debug_mode );
1298: END IF;
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.read_global_var_to_report_err';
1301: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1302: END IF;
1303:
1304: -- checking if there is some value in the global table
1305: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1303:
1304: -- checking if there is some value in the global table
1305: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1306: IF l_debug_mode = 'Y' THEN
1307: pa_debug.g_err_stage := 'There are some values in the global table';
1308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1309: END IF;
1310:
1311: -- processing starts
1304: -- checking if there is some value in the global table
1305: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1306: IF l_debug_mode = 'Y' THEN
1307: pa_debug.g_err_stage := 'There are some values in the global table';
1308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1309: END IF;
1310:
1311: -- processing starts
1312: FOR i IN g_fp_webadi_rec_tbl.FIRST .. g_fp_webadi_rec_tbl.LAST LOOP
1338: g_fp_webadi_rec_tbl.DELETE;
1339: END IF;
1340: ELSE
1341: IF l_debug_mode = 'Y' THEN
1342: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1344: END IF;
1345: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1346: END IF;
1339: END IF;
1340: ELSE
1341: IF l_debug_mode = 'Y' THEN
1342: pa_debug.g_err_stage := 'There is no value stored in the global table, returning';
1343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1344: END IF;
1345: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1346: END IF;
1347: IF l_debug_mode = 'Y' THEN
1344: END IF;
1345: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1346: END IF;
1347: IF l_debug_mode = 'Y' THEN
1348: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1349: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1350: END IF;
1351: IF l_debug_mode = 'Y' THEN
1352: pa_debug.reset_curr_function;
1345: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1346: END IF;
1347: IF l_debug_mode = 'Y' THEN
1348: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1349: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1350: END IF;
1351: IF l_debug_mode = 'Y' THEN
1352: pa_debug.reset_curr_function;
1353: END IF;
1348: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.read_global_var_to_report_err';
1349: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1350: END IF;
1351: IF l_debug_mode = 'Y' THEN
1352: pa_debug.reset_curr_function;
1353: END IF;
1354: EXCEPTION
1355: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1356: IF l_debug_mode = 'Y' THEN
1353: END IF;
1354: EXCEPTION
1355: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1356: IF l_debug_mode = 'Y' THEN
1357: pa_debug.reset_curr_function;
1358: END IF;
1359: RETURN;
1360: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1361:
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383:
1384: IF l_debug_mode = 'Y' THEN
1385: pa_debug.reset_curr_function;
1386: END IF;
1387: RETURN;
1388:
1389: WHEN OTHERS THEN
1398:
1399: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1400: ,p_procedure_name => 'read_global_var_to_report_err');
1401: IF l_debug_mode = 'Y' THEN
1402: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1403: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1404: END IF;
1405:
1406: IF l_debug_mode = 'Y' THEN
1399: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1400: ,p_procedure_name => 'read_global_var_to_report_err');
1401: IF l_debug_mode = 'Y' THEN
1402: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1403: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1404: END IF;
1405:
1406: IF l_debug_mode = 'Y' THEN
1407: pa_debug.reset_curr_function;
1403: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1404: END IF;
1405:
1406: IF l_debug_mode = 'Y' THEN
1407: pa_debug.reset_curr_function;
1408: END IF;
1409: RAISE;
1410: END read_global_var_to_report_err;
1411:
1438: l_task_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1439: l_rlm_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1440:
1441: BEGIN
1442: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1443: x_msg_count := 0;
1444: x_return_status := FND_API.G_RET_STS_SUCCESS;
1445: IF l_debug_mode = 'Y' THEN
1446: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1442: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1443: x_msg_count := 0;
1444: x_return_status := FND_API.G_RET_STS_SUCCESS;
1445: IF l_debug_mode = 'Y' THEN
1446: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1447: p_debug_mode => l_debug_mode );
1448: END IF;
1449: IF l_debug_mode = 'Y' THEN
1450: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1446: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1447: p_debug_mode => l_debug_mode );
1448: END IF;
1449: IF l_debug_mode = 'Y' THEN
1450: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1452: END IF;
1453:
1454: -- validating input params.
1447: p_debug_mode => l_debug_mode );
1448: END IF;
1449: IF l_debug_mode = 'Y' THEN
1450: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1452: END IF;
1453:
1454: -- validating input params.
1455: IF p_budget_line_tbl.COUNT < 1 THEN
1453:
1454: -- validating input params.
1455: IF p_budget_line_tbl.COUNT < 1 THEN
1456: IF l_debug_mode = 'Y' THEN
1457: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1458: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1459: END IF;
1460: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1461: ELSE
1454: -- validating input params.
1455: IF p_budget_line_tbl.COUNT < 1 THEN
1456: IF l_debug_mode = 'Y' THEN
1457: pa_debug.g_err_stage:=' Nothing to be updated, returning';
1458: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1459: END IF;
1460: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1461: ELSE
1462: IF l_debug_mode = 'Y' THEN
1459: END IF;
1460: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1461: ELSE
1462: IF l_debug_mode = 'Y' THEN
1463: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1465: END IF;
1466:
1467: FOR i IN p_budget_line_tbl.FIRST .. p_budget_line_tbl.LAST LOOP
1460: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
1461: ELSE
1462: IF l_debug_mode = 'Y' THEN
1463: pa_debug.g_err_stage:=' Values passed, checking for null txn curr recs.';
1464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1465: END IF;
1466:
1467: FOR i IN p_budget_line_tbl.FIRST .. p_budget_line_tbl.LAST LOOP
1468: -- looping through both the table types
1476: END LOOP;
1477: END IF;
1478:
1479: IF l_debug_mode = 'Y' THEN
1480: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1482: END IF;
1483: IF l_debug_mode = 'Y' THEN
1484: pa_debug.reset_curr_function;
1477: END IF;
1478:
1479: IF l_debug_mode = 'Y' THEN
1480: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1482: END IF;
1483: IF l_debug_mode = 'Y' THEN
1484: pa_debug.reset_curr_function;
1485: END IF;
1480: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.check_and_update_txn_curr_code';
1481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1482: END IF;
1483: IF l_debug_mode = 'Y' THEN
1484: pa_debug.reset_curr_function;
1485: END IF;
1486: EXCEPTION
1487: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1488: IF l_debug_mode = 'Y' THEN
1485: END IF;
1486: EXCEPTION
1487: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
1488: IF l_debug_mode = 'Y' THEN
1489: pa_debug.reset_curr_function;
1490: END IF;
1491: RETURN;
1492: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1493: l_msg_count := FND_MSG_PUB.count_msg;
1507: END IF;
1508: x_return_status := FND_API.G_RET_STS_ERROR;
1509:
1510: IF l_debug_mode = 'Y' THEN
1511: pa_debug.reset_curr_function;
1512: END IF;
1513: RETURN;
1514:
1515: WHEN OTHERS THEN
1519:
1520: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1521: ,p_procedure_name => 'check_and_update_txn_curr_code');
1522: IF l_debug_mode = 'Y' THEN
1523: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1525: END IF;
1526:
1527: IF l_debug_mode = 'Y' THEN
1520: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1521: ,p_procedure_name => 'check_and_update_txn_curr_code');
1522: IF l_debug_mode = 'Y' THEN
1523: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1525: END IF;
1526:
1527: IF l_debug_mode = 'Y' THEN
1528: pa_debug.reset_curr_function;
1524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1525: END IF;
1526:
1527: IF l_debug_mode = 'Y' THEN
1528: pa_debug.reset_curr_function;
1529: END IF;
1530: RAISE;
1531: END check_and_update_txn_curr_code;
1532:
1555: l_project_rate_date pa_fp_webadi_upload_inf.project_rate_date%TYPE;
1556:
1557:
1558: BEGIN
1559: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1560:
1561: IF l_debug_mode = 'Y' THEN
1562: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1563: p_debug_mode => l_debug_mode );
1558: BEGIN
1559: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1560:
1561: IF l_debug_mode = 'Y' THEN
1562: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1563: p_debug_mode => l_debug_mode );
1564: END IF;
1565: IF l_debug_mode = 'Y' THEN
1566: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1562: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1563: p_debug_mode => l_debug_mode );
1564: END IF;
1565: IF l_debug_mode = 'Y' THEN
1566: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1568: END IF;
1569:
1570: conv_attrb_displayed := 'N';
1563: p_debug_mode => l_debug_mode );
1564: END IF;
1565: IF l_debug_mode = 'Y' THEN
1566: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.conv_attributes_displayed';
1567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1568: END IF;
1569:
1570: conv_attrb_displayed := 'N';
1571:
1570: conv_attrb_displayed := 'N';
1571:
1572: IF p_run_id IS NULL THEN
1573: IF l_debug_mode = 'Y' THEN
1574: pa_debug.g_err_stage := 'p_run_id is passed as null';
1575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1576: END IF;
1577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1578: END IF;
1571:
1572: IF p_run_id IS NULL THEN
1573: IF l_debug_mode = 'Y' THEN
1574: pa_debug.g_err_stage := 'p_run_id is passed as null';
1575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1576: END IF;
1577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1578: END IF;
1579:
1577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1578: END IF;
1579:
1580: IF l_debug_mode = 'Y' THEN
1581: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1582: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1583: END IF;
1584:
1585: BEGIN
1578: END IF;
1579:
1580: IF l_debug_mode = 'Y' THEN
1581: pa_debug.g_err_stage := 'Checking for the values in conv attrb cols';
1582: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1583: END IF;
1584:
1585: BEGIN
1586: SELECT projfunc_rate_type,
1605: l_project_rate_type <> g_hidden_col_char OR
1606: l_project_rate_date_type <> g_hidden_col_char OR
1607: l_project_rate_date <> g_hidden_col_date THEN
1608: IF l_debug_mode = 'Y' THEN
1609: pa_debug.g_err_stage := 'Conv attrb cols displayed in layout';
1610: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1611: END IF;
1612: conv_attrb_displayed := 'Y';
1613: END IF;
1606: l_project_rate_date_type <> g_hidden_col_char OR
1607: l_project_rate_date <> g_hidden_col_date THEN
1608: IF l_debug_mode = 'Y' THEN
1609: pa_debug.g_err_stage := 'Conv attrb cols displayed in layout';
1610: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1611: END IF;
1612: conv_attrb_displayed := 'Y';
1613: END IF;
1614: EXCEPTION
1613: END IF;
1614: EXCEPTION
1615: WHEN NO_DATA_FOUND THEN
1616: IF l_debug_mode = 'Y' THEN
1617: pa_debug.g_err_stage := 'No rows in the interface table';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1619: END IF;
1620: conv_attrb_displayed := 'N';
1621: END;
1614: EXCEPTION
1615: WHEN NO_DATA_FOUND THEN
1616: IF l_debug_mode = 'Y' THEN
1617: pa_debug.g_err_stage := 'No rows in the interface table';
1618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1619: END IF;
1620: conv_attrb_displayed := 'N';
1621: END;
1622:
1621: END;
1622:
1623:
1624: IF l_debug_mode = 'Y' THEN
1625: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1626: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1627: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1629: END IF;
1622:
1623:
1624: IF l_debug_mode = 'Y' THEN
1625: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1626: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1627: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1629: END IF;
1630: IF l_debug_mode = 'Y' THEN
1623:
1624: IF l_debug_mode = 'Y' THEN
1625: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1626: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1627: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1629: END IF;
1630: IF l_debug_mode = 'Y' THEN
1631: pa_debug.reset_curr_function;
1624: IF l_debug_mode = 'Y' THEN
1625: pa_debug.g_err_stage := 'Leaving into pa_fp_webadi_pkg.conv_attributes_displayed';
1626: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1627: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1629: END IF;
1630: IF l_debug_mode = 'Y' THEN
1631: pa_debug.reset_curr_function;
1632: END IF;
1627: pa_debug.g_err_stage := 'conv_attrb_displayed: ' || conv_attrb_displayed;
1628: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1629: END IF;
1630: IF l_debug_mode = 'Y' THEN
1631: pa_debug.reset_curr_function;
1632: END IF;
1633:
1634: -- returning
1635: RETURN conv_attrb_displayed;
1636:
1637: EXCEPTION
1638: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1639: IF l_debug_mode = 'Y' THEN
1640: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1642: END IF;
1643: IF l_debug_mode = 'Y' THEN
1644: pa_debug.reset_curr_function;
1637: EXCEPTION
1638: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1639: IF l_debug_mode = 'Y' THEN
1640: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1642: END IF;
1643: IF l_debug_mode = 'Y' THEN
1644: pa_debug.reset_curr_function;
1645: END IF;
1640: pa_debug.g_err_stage:='Invalid_Arg_Exc raised in conv_attributes_displayed';
1641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1642: END IF;
1643: IF l_debug_mode = 'Y' THEN
1644: pa_debug.reset_curr_function;
1645: END IF;
1646: RAISE;
1647:
1648: WHEN OTHERS THEN
1648: WHEN OTHERS THEN
1649: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1650: ,p_procedure_name => 'conv_attributes_displayed');
1651: IF l_debug_mode = 'Y' THEN
1652: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1653: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1654: END IF;
1655:
1656: IF l_debug_mode = 'Y' THEN
1649: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1650: ,p_procedure_name => 'conv_attributes_displayed');
1651: IF l_debug_mode = 'Y' THEN
1652: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
1653: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1654: END IF;
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.reset_curr_function;
1653: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1654: END IF;
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.reset_curr_function;
1658: END IF;
1659: RAISE;
1660: END conv_attributes_displayed;
1661:
1998: l_period_plan_start_date_tbl date_tbl_type;
1999: l_period_plan_end_date_tbl date_tbl_type;
2000: BEGIN
2001:
2002: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2003: x_msg_count := 0;
2004: x_return_status := FND_API.G_RET_STS_SUCCESS;
2005:
2006: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
2002: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2003: x_msg_count := 0;
2004: x_return_status := FND_API.G_RET_STS_SUCCESS;
2005:
2006: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
2007: p_debug_mode => l_debug_mode );
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
2006: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
2007: p_debug_mode => l_debug_mode );
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
2011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2012: END IF;
2013:
2014: --log1('----- Entering into prepare_val_input-------');
2007: p_debug_mode => l_debug_mode );
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage := 'Entering into pa_fp_webadi_pkg.prepare_val_input';
2011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2012: END IF;
2013:
2014: --log1('----- Entering into prepare_val_input-------');
2015: -- deriving all the required version level info
2013:
2014: --log1('----- Entering into prepare_val_input-------');
2015: -- deriving all the required version level info
2016: IF l_debug_mode = 'Y' THEN
2017: pa_debug.g_err_stage := 'validating input';
2018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2019: END IF;
2020: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2021: IF p_version_info_rec.x_project_id IS NULL THEN
2014: --log1('----- Entering into prepare_val_input-------');
2015: -- deriving all the required version level info
2016: IF l_debug_mode = 'Y' THEN
2017: pa_debug.g_err_stage := 'validating input';
2018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2019: END IF;
2020: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2021: IF p_version_info_rec.x_project_id IS NULL THEN
2022: IF l_debug_mode = 'Y' THEN
2019: END IF;
2020: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2021: IF p_version_info_rec.x_project_id IS NULL THEN
2022: IF l_debug_mode = 'Y' THEN
2023: pa_debug.g_err_stage := 'project_id not passed';
2024: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2025: END IF;
2026: pa_utils.add_message
2027: (p_app_short_name => 'PA',
2020: l_fin_struct_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUCTURE_ID(p_version_info_rec.x_project_id); /* Bug 4929163 */
2021: IF p_version_info_rec.x_project_id IS NULL THEN
2022: IF l_debug_mode = 'Y' THEN
2023: pa_debug.g_err_stage := 'project_id not passed';
2024: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2025: END IF;
2026: pa_utils.add_message
2027: (p_app_short_name => 'PA',
2028: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2035: IF (p_prd_start_date_tbl.COUNT > 0 OR
2036: p_prd_end_date_tbl.COUNT > 0 ) AND
2037: p_org_id IS NULL THEN
2038: IF l_debug_mode = 'Y' THEN
2039: pa_debug.g_err_stage := 'org_id not passed for periodic layouts';
2040: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2041: END IF;
2042: pa_utils.add_message
2043: (p_app_short_name => 'PA',
2036: p_prd_end_date_tbl.COUNT > 0 ) AND
2037: p_org_id IS NULL THEN
2038: IF l_debug_mode = 'Y' THEN
2039: pa_debug.g_err_stage := 'org_id not passed for periodic layouts';
2040: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2041: END IF;
2042: pa_utils.add_message
2043: (p_app_short_name => 'PA',
2044: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2059: -- updating the temp table with the task_id for the task name/ task number
2060: -- given in the excel after deriving the same. if not a valid task, leaving
2061: -- task_id column null
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Updating task_id for the task name/number given';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066:
2067: --log1('----- STAGE 1-------');
2060: -- given in the excel after deriving the same. if not a valid task, leaving
2061: -- task_id column null
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Updating task_id for the task name/number given';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066:
2067: --log1('----- STAGE 1-------');
2068: BEGIN
2481: END IF; -- uncategorized flag
2482: EXCEPTION
2483: WHEN OTHERS THEN
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2487: --DEBUG_NS('Exception :: ' || SQLERRM);
2488: END IF;
2489:
2482: EXCEPTION
2483: WHEN OTHERS THEN
2484: IF l_debug_mode = 'Y' THEN
2485: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2486: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2487: --DEBUG_NS('Exception :: ' || SQLERRM);
2488: END IF;
2489:
2490: RAISE;
2489:
2490: RAISE;
2491: END;
2492: IF l_debug_mode = 'Y' THEN
2493: pa_debug.g_err_stage := 'Task ids updated';
2494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2495: END IF;
2496:
2497: --log1('----- STAGE 2-------');
2490: RAISE;
2491: END;
2492: IF l_debug_mode = 'Y' THEN
2493: pa_debug.g_err_stage := 'Task ids updated';
2494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2495: END IF;
2496:
2497: --log1('----- STAGE 2-------');
2498: -- checking, if the layout is periodic one
2496:
2497: --log1('----- STAGE 2-------');
2498: -- checking, if the layout is periodic one
2499: IF l_debug_mode = 'Y' THEN
2500: pa_debug.g_err_stage := 'Checking for periodic setup';
2501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2502: END IF;
2503:
2504: BEGIN
2497: --log1('----- STAGE 2-------');
2498: -- checking, if the layout is periodic one
2499: IF l_debug_mode = 'Y' THEN
2500: pa_debug.g_err_stage := 'Checking for periodic setup';
2501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2502: END IF;
2503:
2504: BEGIN
2505: SELECT 'Y'
2517:
2518: --DEBUG_NS('is_periodic_setup :: ' || is_periodic_setup);
2519:
2520: IF l_debug_mode = 'Y' THEN
2521: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2523: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2525: END IF;
2518: --DEBUG_NS('is_periodic_setup :: ' || is_periodic_setup);
2519:
2520: IF l_debug_mode = 'Y' THEN
2521: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2523: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2525: END IF;
2526: --The following update on the interface will be used for
2519:
2520: IF l_debug_mode = 'Y' THEN
2521: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2523: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2525: END IF;
2526: --The following update on the interface will be used for
2527: ----Updating the error codes where task/resource info is missing
2520: IF l_debug_mode = 'Y' THEN
2521: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
2522: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2523: pa_debug.g_err_stage := 'Getting the fixed date spread curve id/name';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2525: END IF;
2526: --The following update on the interface will be used for
2527: ----Updating the error codes where task/resource info is missing
2528: ----Updating the amount type codes for the corresponding amount type names in case of periodic layout
2604: --insert_test_dump1;
2605:
2606: --log1('----- STAGE 5-------');
2607: IF l_debug_mode = 'Y' THEN
2608: pa_debug.g_err_stage := 'plan class code of the version: ' || p_version_info_rec.x_plan_class_code;
2609: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2610: END IF;
2611:
2612:
2605:
2606: --log1('----- STAGE 5-------');
2607: IF l_debug_mode = 'Y' THEN
2608: pa_debug.g_err_stage := 'plan class code of the version: ' || p_version_info_rec.x_plan_class_code;
2609: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2610: END IF;
2611:
2612:
2613: IF p_version_info_rec.x_plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_FORECAST THEN
2614: is_forecast_version := 'Y';
2615:
2616: -- calling an api to derive the etc_start_date
2617: IF l_debug_mode = 'Y' THEN
2618: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_etc_start_date';
2619: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2620: END IF;
2621:
2622: l_etc_start_date := pa_fp_gen_amount_utils.get_etc_start_date(p_version_info_rec.x_budget_version_id);
2615:
2616: -- calling an api to derive the etc_start_date
2617: IF l_debug_mode = 'Y' THEN
2618: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_etc_start_date';
2619: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2620: END IF;
2621:
2622: l_etc_start_date := pa_fp_gen_amount_utils.get_etc_start_date(p_version_info_rec.x_budget_version_id);
2623: END IF;
2635: AND t.language = userenv('LANG');
2636: EXCEPTION
2637: WHEN OTHERS THEN
2638: IF l_debug_mode = 'Y' THEN
2639: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2640: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2641: END IF;
2642:
2643: RAISE;
2636: EXCEPTION
2637: WHEN OTHERS THEN
2638: IF l_debug_mode = 'Y' THEN
2639: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2640: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2641: END IF;
2642:
2643: RAISE;
2644: END;
2702: AND fin_plan_preference_code = 'COST_AND_REV_SAME';
2703: EXCEPTION
2704: WHEN OTHERS THEN
2705: IF l_debug_mode = 'Y' THEN
2706: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2707: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2708: END IF;
2709:
2710: RAISE;
2703: EXCEPTION
2704: WHEN OTHERS THEN
2705: IF l_debug_mode = 'Y' THEN
2706: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2707: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2708: END IF;
2709:
2710: RAISE;
2711: END;
2728: WHERE proj_fp_options_id = p_version_info_rec.x_proj_fp_options_id;
2729: EXCEPTION
2730: WHEN OTHERS THEN
2731: IF l_debug_mode = 'Y' THEN
2732: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2733: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2734: END IF;
2735:
2736: RAISE;
2729: EXCEPTION
2730: WHEN OTHERS THEN
2731: IF l_debug_mode = 'Y' THEN
2732: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
2733: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2734: END IF;
2735:
2736: RAISE;
2737: END;
2741: l_plan_trans_attr_copied_flag := 'N';
2742: l_cost_conv_attr_copied_flag := 'N';
2743: l_rev_conv_attr_copied_flag := 'N';
2744: IF l_debug_mode = 'Y' THEN
2745: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2746: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2747: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2748: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2749: END IF;
2742: l_cost_conv_attr_copied_flag := 'N';
2743: l_rev_conv_attr_copied_flag := 'N';
2744: IF l_debug_mode = 'Y' THEN
2745: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2746: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2747: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2748: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2749: END IF;
2750:
2743: l_rev_conv_attr_copied_flag := 'N';
2744: IF l_debug_mode = 'Y' THEN
2745: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2746: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2747: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2748: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2749: END IF;
2750:
2751: --Initialize the OUT variables
2744: IF l_debug_mode = 'Y' THEN
2745: pa_debug.g_err_stage := 'l_plan_trans_attr_copied_flag initialized to N';
2746: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2747: pa_debug.g_err_stage := 'Opening cursor inf_tbl_data_csr';
2748: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2749: END IF;
2750:
2751: --Initialize the OUT variables
2752: x_etc_quantity_tbl := SYSTEM.pa_num_tbl_type();
3046: WHERE resource_list_member_id = l_inf_tbl_data_curr_rec.resource_list_member_id;
3047: EXCEPTION
3048: WHEN OTHERS THEN
3049: IF l_debug_mode = 'Y' THEN
3050: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
3051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3052: END IF;
3053:
3054: RAISE;
3047: EXCEPTION
3048: WHEN OTHERS THEN
3049: IF l_debug_mode = 'Y' THEN
3050: pa_debug.g_err_stage:= 'Unexpected Error - ' || SQLERRM;
3051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3052: END IF;
3053:
3054: RAISE;
3055: END;
4258: IF is_periodic_setup = 'Y' THEN
4259: IF l_inf_tbl_data_curr_rec.amount_type_code = l_inf_tbl_data_next_rec.amount_type_code THEN
4260: -- populating the error codes to call process_errors at the end
4261: IF l_debug_mode = 'Y' THEN
4262: pa_debug.g_err_stage := 'Duplicate record found';
4263: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4264: END IF;
4265:
4266: l_err_val_code_tbl.extend(1);
4259: IF l_inf_tbl_data_curr_rec.amount_type_code = l_inf_tbl_data_next_rec.amount_type_code THEN
4260: -- populating the error codes to call process_errors at the end
4261: IF l_debug_mode = 'Y' THEN
4262: pa_debug.g_err_stage := 'Duplicate record found';
4263: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4264: END IF;
4265:
4266: l_err_val_code_tbl.extend(1);
4267: l_err_val_code_tbl(l_err_val_code_tbl.COUNT) := 'PA_FP_WA_DUPL_REC_PASSED';
4279: END IF;
4280: ELSE
4281: -- populating the error codes to call process_errors at the end
4282: IF l_debug_mode = 'Y' THEN
4283: pa_debug.g_err_stage := 'Duplicate record found';
4284: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4285: END IF;
4286:
4287: l_err_val_code_tbl.extend(1);
4280: ELSE
4281: -- populating the error codes to call process_errors at the end
4282: IF l_debug_mode = 'Y' THEN
4283: pa_debug.g_err_stage := 'Duplicate record found';
4284: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4285: END IF;
4286:
4287: l_err_val_code_tbl.extend(1);
4288: l_err_val_code_tbl(l_err_val_code_tbl.COUNT) := 'PA_FP_WA_DUPL_REC_PASSED';
5460: END IF;
5461: ELSE
5462: --log1('----- STAGE 104-------');
5463: IF l_debug_mode = 'Y' THEN
5464: pa_debug.g_err_stage := 'Opening Cursor non_prd_lyt_null_val_cur';
5465: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5466: END IF;
5467: OPEN non_prd_lyt_null_val_cur( l_inf_tbl_data_curr_rec.budget_version_id,
5468: l_inf_tbl_data_curr_rec.task_id,
5461: ELSE
5462: --log1('----- STAGE 104-------');
5463: IF l_debug_mode = 'Y' THEN
5464: pa_debug.g_err_stage := 'Opening Cursor non_prd_lyt_null_val_cur';
5465: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5466: END IF;
5467: OPEN non_prd_lyt_null_val_cur( l_inf_tbl_data_curr_rec.budget_version_id,
5468: l_inf_tbl_data_curr_rec.task_id,
5469: l_inf_tbl_data_curr_rec.resource_list_member_id,
5483: l_ratxn_bill_over_rate,
5484: l_ra_rate_based_flag;
5485: CLOSE non_prd_lyt_null_val_cur;
5486: IF l_debug_mode = 'Y' THEN
5487: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5484: l_ra_rate_based_flag;
5485: CLOSE non_prd_lyt_null_val_cur;
5486: IF l_debug_mode = 'Y' THEN
5487: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5485: CLOSE non_prd_lyt_null_val_cur;
5486: IF l_debug_mode = 'Y' THEN
5487: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5486: IF l_debug_mode = 'Y' THEN
5487: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5487: pa_debug.g_err_stage := 'l_ratxn_total_quantity' || l_ratxn_total_quantity;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5489: pa_debug.g_err_stage := 'l_ratxn_total_raw_cost' || l_ratxn_total_raw_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5490: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5491: pa_debug.g_err_stage := 'l_ratxn_total_burdened_cost' || l_ratxn_total_burdened_cost;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5493: pa_debug.g_err_stage := 'l_ratxn_etc_quantity' || l_ratxn_etc_quantity;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5495: pa_debug.g_err_stage := 'l_ratxn_etc_raw_cost' || l_ratxn_etc_raw_cost;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5496: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5497: pa_debug.g_err_stage := 'l_ratxn_etc_burdened_cost' || l_ratxn_etc_burdened_cost;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5506: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5499: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5506: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5507: END IF;
5500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5506: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5507: END IF;
5508:
5501: pa_debug.g_err_stage := 'l_ratxn_etc_revenue' || l_ratxn_etc_revenue;
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5506: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5507: END IF;
5508:
5509:
5502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5503: pa_debug.g_err_stage := 'l_ratxn_bill_over_rate' || l_ratxn_bill_over_rate;
5504: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5505: pa_debug.g_err_stage := 'l_ra_rate_based_flag' || l_ra_rate_based_flag;
5506: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5507: END IF;
5508:
5509:
5510: IF l_ratxn_total_quantity IS NULL AND (l_inf_tbl_data_curr_rec.quantity = l_fnd_miss_num) THEN
5800: EXCEPTION -- inside the loop to catch skip_ra_exc
5801: WHEN Fp_Webadi_Skip_Dup_Rec_Exc THEN
5802: -- exception to skip processing of the duplicate records entered
5803: IF l_debug_mode = 'Y' THEN
5804: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Dup_Rec_Exc Raised';
5805: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5806: END IF;
5807: LOOP
5808: l_inf_tbl_data_skip_rec:=NULL;
5801: WHEN Fp_Webadi_Skip_Dup_Rec_Exc THEN
5802: -- exception to skip processing of the duplicate records entered
5803: IF l_debug_mode = 'Y' THEN
5804: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Dup_Rec_Exc Raised';
5805: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5806: END IF;
5807: LOOP
5808: l_inf_tbl_data_skip_rec:=NULL;
5809: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5824: -- exception to skip processing of the record, if any validation
5825: -- failure occurs in the current record, so that there would be
5826: -- at max one error code populated for any particular record.
5827: IF l_debug_mode = 'Y' THEN
5828: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Rec_Proc_Exc Raised';
5829: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5830: END IF;
5831: IF l_inf_tbl_data_next_rec.task_id IS NULL THEN
5832: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_next_rec;
5825: -- failure occurs in the current record, so that there would be
5826: -- at max one error code populated for any particular record.
5827: IF l_debug_mode = 'Y' THEN
5828: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Rec_Proc_Exc Raised';
5829: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5830: END IF;
5831: IF l_inf_tbl_data_next_rec.task_id IS NULL THEN
5832: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_next_rec;
5833: END IF;
5836: -- exception to skip processing of the next record, if any validation
5837: -- failure occurs in that record, so that there would be
5838: -- at max one error code populated for any particular record.
5839: IF l_debug_mode = 'Y' THEN
5840: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Next_Rec_Exc Raised';
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5842: END IF;
5843: l_inf_tbl_data_skip_rec:=NULL;
5844: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5837: -- failure occurs in that record, so that there would be
5838: -- at max one error code populated for any particular record.
5839: IF l_debug_mode = 'Y' THEN
5840: pa_debug.g_err_stage := 'Fp_Webadi_Skip_Next_Rec_Exc Raised';
5841: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5842: END IF;
5843: l_inf_tbl_data_skip_rec:=NULL;
5844: FETCH inf_tbl_data_csr INTO l_inf_tbl_data_skip_rec;
5845: l_inf_tbl_data_next_rec := l_inf_tbl_data_skip_rec;
5862:
5863: -- calling process_errors
5864: IF l_err_val_code_tbl.COUNT > 0 THEN
5865: IF l_debug_mode = 'Y' THEN
5866: pa_debug.g_err_stage := 'Error Code Exists.Calling process_errors';
5867: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5868: END IF;
5869: process_errors ( p_run_id => p_run_id,
5870: p_periodic_flag => is_periodic_setup,
5863: -- calling process_errors
5864: IF l_err_val_code_tbl.COUNT > 0 THEN
5865: IF l_debug_mode = 'Y' THEN
5866: pa_debug.g_err_stage := 'Error Code Exists.Calling process_errors';
5867: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5868: END IF;
5869: process_errors ( p_run_id => p_run_id,
5870: p_periodic_flag => is_periodic_setup,
5871: p_error_code_tbl => l_err_val_code_tbl,
5878: x_msg_data => l_msg_data,
5879: x_msg_count => l_msg_count);
5880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5881: IF l_debug_mode = 'Y' THEN
5882: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5884: END IF;
5885: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5886: END IF;
5879: x_msg_count => l_msg_count);
5880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5881: IF l_debug_mode = 'Y' THEN
5882: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5884: END IF;
5885: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5886: END IF;
5887: END IF;
5923: x_cbs_elem_id_tbl := l_cbs_elem_id_tbl;
5924: x_amt_type_tbl := l_amount_type_tbl;
5925:
5926: IF l_debug_mode = 'Y' THEN
5927: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5929: END IF;
5930:
5931: pa_debug.reset_curr_function;
5924: x_amt_type_tbl := l_amount_type_tbl;
5925:
5926: IF l_debug_mode = 'Y' THEN
5927: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5929: END IF;
5930:
5931: pa_debug.reset_curr_function;
5932:
5927: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_val_input';
5928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5929: END IF;
5930:
5931: pa_debug.reset_curr_function;
5932:
5933: --log1('----- Leaving prepare_val_input-------');
5934:
5935: EXCEPTION
5950: x_msg_count := l_msg_count;
5951: END IF;
5952: x_return_status := FND_API.G_RET_STS_ERROR;
5953:
5954: pa_debug.reset_curr_function;
5955:
5956: RETURN;
5957:
5958: WHEN OTHERS THEN
5962:
5963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
5964: ,p_procedure_name => 'prepare_val_input');
5965: IF l_debug_mode = 'Y' THEN
5966: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5967: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5968: END IF;
5969:
5970: pa_debug.reset_curr_function;
5963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
5964: ,p_procedure_name => 'prepare_val_input');
5965: IF l_debug_mode = 'Y' THEN
5966: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5967: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5968: END IF;
5969:
5970: pa_debug.reset_curr_function;
5971:
5966: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
5967: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5968: END IF;
5969:
5970: pa_debug.reset_curr_function;
5971:
5972: RAISE;
5973:
5974: END prepare_val_input;
5987: l_module_name VARCHAR2(100) := 'pa_fp_webadi_pkg.get_amount_in_prd_x';
5988: l_debug_mode VARCHAR2(1) := 'N';
5989: l_amount NUMBER;
5990: BEGIN
5991: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
5992:
5993:
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5991: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
5992:
5993:
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5996: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5997: pa_debug.g_err_stage := 'Validating input parameters';
5998: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5999: END IF;
5992:
5993:
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5996: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5997: pa_debug.g_err_stage := 'Validating input parameters';
5998: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5999: END IF;
6000:
5993:
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5996: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5997: pa_debug.g_err_stage := 'Validating input parameters';
5998: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5999: END IF;
6000:
6001: IF l_debug_mode = 'Y' THEN
5994: IF l_debug_mode = 'Y' THEN
5995: pa_debug.g_err_stage := 'Entering into get_amount_in_prd_x';
5996: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5997: pa_debug.g_err_stage := 'Validating input parameters';
5998: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5999: END IF;
6000:
6001: IF l_debug_mode = 'Y' THEN
6002: pa_debug.Set_Curr_Function
5998: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
5999: END IF;
6000:
6001: IF l_debug_mode = 'Y' THEN
6002: pa_debug.Set_Curr_Function
6003: (p_function => l_module_name,
6004: p_debug_mode => l_debug_mode);
6005: END IF;
6006:
6007: IF p_prd IS NULL THEN
6008:
6009: IF l_debug_mode = 'Y' THEN
6010:
6011: pa_debug.g_err_stage := 'p_rec is null';
6012: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6013: pa_debug.g_err_stage := 'p_prd is null';
6014: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6015: pa_debug.reset_curr_function;
6008:
6009: IF l_debug_mode = 'Y' THEN
6010:
6011: pa_debug.g_err_stage := 'p_rec is null';
6012: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6013: pa_debug.g_err_stage := 'p_prd is null';
6014: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6015: pa_debug.reset_curr_function;
6016:
6009: IF l_debug_mode = 'Y' THEN
6010:
6011: pa_debug.g_err_stage := 'p_rec is null';
6012: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6013: pa_debug.g_err_stage := 'p_prd is null';
6014: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6015: pa_debug.reset_curr_function;
6016:
6017: END IF;
6010:
6011: pa_debug.g_err_stage := 'p_rec is null';
6012: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6013: pa_debug.g_err_stage := 'p_prd is null';
6014: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6015: pa_debug.reset_curr_function;
6016:
6017: END IF;
6018: RETURN NULL;
6011: pa_debug.g_err_stage := 'p_rec is null';
6012: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6013: pa_debug.g_err_stage := 'p_prd is null';
6014: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6015: pa_debug.reset_curr_function;
6016:
6017: END IF;
6018: RETURN NULL;
6019:
6019:
6020: END IF;
6021:
6022: IF l_debug_mode = 'Y' THEN
6023: pa_debug.g_err_stage := 'p_prd is '||p_prd;
6024: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6025: END IF;
6026:
6027: IF p_prd ='PD' THEN
6020: END IF;
6021:
6022: IF l_debug_mode = 'Y' THEN
6023: pa_debug.g_err_stage := 'p_prd is '||p_prd;
6024: pa_debug.write(l_module_name, pa_debug.g_err_stage, 3);
6025: END IF;
6026:
6027: IF p_prd ='PD' THEN
6028: l_amount := p_rec.pd_prd;
6134: l_amount := p_rec.prd52;
6135: END IF;
6136:
6137: IF l_debug_mode = 'Y' THEN
6138: pa_debug.reset_curr_function;
6139: END IF;
6140:
6141: RETURN l_amount;
6142:
6145:
6146: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6147: ,p_procedure_name => 'get_amount_in_prd_x');
6148: IF l_debug_mode = 'Y' THEN
6149: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6150: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6151: END IF;
6152:
6153: IF l_debug_mode = 'Y' THEN
6146: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6147: ,p_procedure_name => 'get_amount_in_prd_x');
6148: IF l_debug_mode = 'Y' THEN
6149: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6150: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6151: END IF;
6152:
6153: IF l_debug_mode = 'Y' THEN
6154: pa_debug.reset_curr_function;
6150: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6151: END IF;
6152:
6153: IF l_debug_mode = 'Y' THEN
6154: pa_debug.reset_curr_function;
6155: END IF;
6156: RAISE;
6157: END get_amount_in_prd_x;
6158:
6231: BEGIN
6232: x_msg_count := 0;
6233: x_return_status := FND_API.G_RET_STS_SUCCESS;
6234:
6235: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6236: l_debug_mode := NVL(l_debug_mode, 'Y');
6237:
6238: --DEBUG_NS('p_project_id :: '|| p_project_id);
6239:
6239:
6240: -- Set curr function
6241: IF l_debug_mode='Y' THEN
6242:
6243: pa_debug.set_curr_function(
6244: p_function =>'PAFPWAPB.get_total_fcst_amounts'
6245: ,p_debug_mode => l_debug_mode );
6246: END IF;
6247:
6256: THEN
6257:
6258: IF l_debug_mode = 'Y' THEN
6259:
6260: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6261: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6262:
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6257:
6258: IF l_debug_mode = 'Y' THEN
6259:
6260: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6261: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6262:
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6265:
6259:
6260: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6261: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6262:
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6265:
6266: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6267: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6260: pa_debug.g_err_stage:='p_task_id is'|| p_task_id;
6261: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6262:
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6265:
6266: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6267: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6268:
6262:
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6265:
6266: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6267: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6268:
6269:
6270: END IF;
6263: pa_debug.g_err_stage:='p_resource_list_member_id is'|| p_resource_list_member_id ;
6264: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6265:
6266: pa_debug.g_err_stage:='p_txn_currency_code is'|| p_txn_currency_code;
6267: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6268:
6269:
6270: END IF;
6271:
6365: l_amt_typs_to_be_populated_tbl(l_amt_typ_index):='REVENUE';
6366: END IF;
6367:
6368: IF l_debug_mode = 'Y' THEN
6369: pa_debug.g_err_stage:='l_amt_typs_to_be_populated_tbl.COUNT '||l_amt_typs_to_be_populated_tbl.COUNT;
6370: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6371: END IF;
6372:
6373: --DEBUG_NS('l_amt_typs_to_be_populated_tbl.COUNT :: '|| l_amt_typs_to_be_populated_tbl.COUNT);
6366: END IF;
6367:
6368: IF l_debug_mode = 'Y' THEN
6369: pa_debug.g_err_stage:='l_amt_typs_to_be_populated_tbl.COUNT '||l_amt_typs_to_be_populated_tbl.COUNT;
6370: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6371: END IF;
6372:
6373: --DEBUG_NS('l_amt_typs_to_be_populated_tbl.COUNT :: '|| l_amt_typs_to_be_populated_tbl.COUNT);
6374:
6706:
6707: END IF;--IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6708:
6709: IF l_debug_mode = 'Y' THEN
6710: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6712: pa_debug.reset_curr_function;
6713: END IF;
6714:
6707: END IF;--IF l_amt_typs_to_be_populated_tbl.COUNT>0 THEN
6708:
6709: IF l_debug_mode = 'Y' THEN
6710: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6712: pa_debug.reset_curr_function;
6713: END IF;
6714:
6715: EXCEPTION
6708:
6709: IF l_debug_mode = 'Y' THEN
6710: pa_debug.g_err_stage:='Leaving get_total_fcst_amounts';
6711: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6712: pa_debug.reset_curr_function;
6713: END IF;
6714:
6715: EXCEPTION
6716:
6732: END IF;
6733: x_return_status := FND_API.G_RET_STS_ERROR;
6734:
6735: IF l_debug_mode = 'Y' THEN
6736: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6737: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6738: -- reset curr function
6739: pa_debug.reset_curr_function();
6740:
6733: x_return_status := FND_API.G_RET_STS_ERROR;
6734:
6735: IF l_debug_mode = 'Y' THEN
6736: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6737: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6738: -- reset curr function
6739: pa_debug.reset_curr_function();
6740:
6741: END IF;
6735: IF l_debug_mode = 'Y' THEN
6736: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6737: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6738: -- reset curr function
6739: pa_debug.reset_curr_function();
6740:
6741: END IF;
6742:
6743: RETURN;
6749: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6750: ,p_procedure_name => 'get_total_fcst_amounts');
6751:
6752: IF l_debug_mode = 'Y' THEN
6753: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6754: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6755: -- reset curr function
6756: pa_debug.Reset_Curr_Function();
6757: END IF;
6750: ,p_procedure_name => 'get_total_fcst_amounts');
6751:
6752: IF l_debug_mode = 'Y' THEN
6753: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6754: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6755: -- reset curr function
6756: pa_debug.Reset_Curr_Function();
6757: END IF;
6758: RAISE;
6752: IF l_debug_mode = 'Y' THEN
6753: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6754: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6755: -- reset curr function
6756: pa_debug.Reset_Curr_Function();
6757: END IF;
6758: RAISE;
6759:
6760: END get_total_fcst_amounts;
6918:
6919: tt NUMBER;
6920:
6921: BEGIN
6922: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
6923:
6924: x_return_status := FND_API.G_RET_STS_SUCCESS;
6925: x_msg_count := 0;
6926:
6924: x_return_status := FND_API.G_RET_STS_SUCCESS;
6925: x_msg_count := 0;
6926:
6927: IF l_debug_mode = 'Y' THEN
6928: pa_debug.Set_Curr_Function
6929: (p_function => l_module_name,
6930: p_debug_mode => l_debug_mode);
6931: END IF;
6932:
6930: p_debug_mode => l_debug_mode);
6931: END IF;
6932:
6933: IF l_debug_mode = 'Y' THEN
6934: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6935: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6936: pa_debug.g_err_stage := 'Validating input parameters';
6937: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6938: END IF;
6931: END IF;
6932:
6933: IF l_debug_mode = 'Y' THEN
6934: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6935: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6936: pa_debug.g_err_stage := 'Validating input parameters';
6937: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6938: END IF;
6939:
6932:
6933: IF l_debug_mode = 'Y' THEN
6934: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6935: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6936: pa_debug.g_err_stage := 'Validating input parameters';
6937: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6938: END IF;
6939:
6940:
6933: IF l_debug_mode = 'Y' THEN
6934: pa_debug.g_err_stage := 'Entering into prepare_pbl_input';
6935: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6936: pa_debug.g_err_stage := 'Validating input parameters';
6937: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6938: END IF;
6939:
6940:
6941: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6940:
6941: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6942: IF p_context IS NULL THEN
6943: IF l_debug_mode = 'Y' THEN
6944: pa_debug.g_err_stage := 'p_context is passed as null';
6945: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6946: END IF;
6947: pa_utils.add_message(p_app_short_name => 'PA',
6948: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6941: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
6942: IF p_context IS NULL THEN
6943: IF l_debug_mode = 'Y' THEN
6944: pa_debug.g_err_stage := 'p_context is passed as null';
6945: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
6946: END IF;
6947: pa_utils.add_message(p_app_short_name => 'PA',
6948: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6949: p_token1 => 'PROCEDURENAME',
6955: --If there are no records to process return
6956: IF p_budget_lines_tbl.COUNT=0 THEN
6957:
6958: IF l_debug_mode = 'Y' THEN
6959: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6960: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6961: pa_debug.reset_curr_function;
6962: END IF;
6963: RETURN;
6956: IF p_budget_lines_tbl.COUNT=0 THEN
6957:
6958: IF l_debug_mode = 'Y' THEN
6959: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6960: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6961: pa_debug.reset_curr_function;
6962: END IF;
6963: RETURN;
6964:
6957:
6958: IF l_debug_mode = 'Y' THEN
6959: pa_debug.g_err_stage := 'p_budget_lines_tbl is empty';
6960: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
6961: pa_debug.reset_curr_function;
6962: END IF;
6963: RETURN;
6964:
6965: END IF;
7004:
7005:
7006: IF l_debug_mode = 'Y' THEN
7007:
7008: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
7009: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7010:
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7005:
7006: IF l_debug_mode = 'Y' THEN
7007:
7008: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
7009: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7010:
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7013:
7007:
7008: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
7009: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7010:
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7013:
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7008: pa_debug.g_err_stage := ' p_planning_start_date_tbl.COUNT '|| p_planning_start_date_tbl.COUNT;
7009: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7010:
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7013:
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7016:
7010:
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7013:
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7016:
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7011: pa_debug.g_err_stage := ' p_planning_end_date_tbl.COUNT '|| p_planning_end_date_tbl.COUNT;
7012: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7013:
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7016:
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7019:
7013:
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7016:
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7019:
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7014: pa_debug.g_err_stage := ' p_budget_lines_tbl.COUNT '|| p_budget_lines_tbl.COUNT;
7015: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7016:
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7019:
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7022:
7016:
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7019:
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7022:
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7017: pa_debug.g_err_stage := ' p_raw_cost_rate_tbl.COUNT '|| p_raw_cost_rate_tbl.COUNT;
7018: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7019:
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7022:
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7025:
7019:
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7022:
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7025:
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7020: pa_debug.g_err_stage := ' p_burd_cost_rate_tbl.COUNT '|| p_burd_cost_rate_tbl.COUNT;
7021: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7022:
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7025:
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7028:
7022:
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7025:
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7028:
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7023: pa_debug.g_err_stage := ' p_bill_rate_tbl.COUNT '|| p_bill_rate_tbl.COUNT;
7024: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7025:
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7028:
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7031:
7025:
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7028:
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7031:
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7026: pa_debug.g_err_stage := ' p_spread_curve_id_tbl.COUNT '|| p_spread_curve_id_tbl.COUNT;
7027: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7028:
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7031:
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7034:
7028:
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7031:
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7034:
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7029: pa_debug.g_err_stage := ' p_mfc_cost_type_id_tbl.COUNT '|| p_mfc_cost_type_id_tbl.COUNT;
7030: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7031:
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7034:
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7037:
7031:
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7034:
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7037:
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7032: pa_debug.g_err_stage := ' p_etc_method_code_tbl.COUNT '|| p_etc_method_code_tbl.COUNT;
7033: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7034:
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7037:
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7040:
7034:
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7037:
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7040:
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7035: pa_debug.g_err_stage := ' p_sp_fixed_date_tbl.COUNT '|| p_sp_fixed_date_tbl.COUNT;
7036: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7037:
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7040:
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7043:
7037:
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7040:
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7043:
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7038: pa_debug.g_err_stage := ' p_delete_flag_tbl.COUNT '|| p_delete_flag_tbl.COUNT;
7039: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7040:
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7043:
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7046:
7040:
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7043:
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7046:
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7041: pa_debug.g_err_stage := ' p_ra_id_tbl.COUNT '|| p_ra_id_tbl.COUNT;
7042: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7043:
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7046:
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7049:
7043:
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7046:
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7049:
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7044: pa_debug.g_err_stage := ' p_res_class_code_tbl.COUNT '|| p_res_class_code_tbl.COUNT;
7045: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7046:
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7049:
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7052:
7046:
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7049:
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7052:
7053: pa_debug.g_err_stage := ' p_cbs_elem_id_tbl.COUNT '|| p_cbs_elem_id_tbl.COUNT;
7054: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7047: pa_debug.g_err_stage := ' p_rate_based_flag_tbl.COUNT '|| p_rate_based_flag_tbl.COUNT;
7048: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7049:
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7052:
7053: pa_debug.g_err_stage := ' p_cbs_elem_id_tbl.COUNT '|| p_cbs_elem_id_tbl.COUNT;
7054: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7055:
7049:
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7052:
7053: pa_debug.g_err_stage := ' p_cbs_elem_id_tbl.COUNT '|| p_cbs_elem_id_tbl.COUNT;
7054: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7055:
7056: END IF;
7057: pa_utils.add_message(p_app_short_name => 'PA',
7050: pa_debug.g_err_stage := ' p_rbs_elem_id_tbl.COUNT '|| p_rbs_elem_id_tbl.COUNT;
7051: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7052:
7053: pa_debug.g_err_stage := ' p_cbs_elem_id_tbl.COUNT '|| p_cbs_elem_id_tbl.COUNT;
7054: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level5);
7055:
7056: END IF;
7057: pa_utils.add_message(p_app_short_name => 'PA',
7058: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
7140: l_prd_mask_end_date_tbl.extend;
7141:
7142: --log1('----- STAGE 3P-------');
7143: IF l_debug_mode = 'Y' THEN
7144: pa_debug.g_err_stage := 'About to loop thru inf_tbl_data_csr';
7145: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7146: END IF;
7147: IF p_version_info_rec.x_version_type = 'COST' THEN
7148: l_allow_qty_flag := p_version_info_rec.x_cost_quantity_flag;
7141:
7142: --log1('----- STAGE 3P-------');
7143: IF l_debug_mode = 'Y' THEN
7144: pa_debug.g_err_stage := 'About to loop thru inf_tbl_data_csr';
7145: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7146: END IF;
7147: IF p_version_info_rec.x_version_type = 'COST' THEN
7148: l_allow_qty_flag := p_version_info_rec.x_cost_quantity_flag;
7149: ELSIF p_version_info_rec.x_version_type = 'REVENUE' THEN
7231: ((l_Cbs_Enabled = 'Y' and l_curr_rec.cbs_element_id<>l_prev_cbs_element_id) OR l_Cbs_Enabled = 'N') -- cbs enhancement changes bug#16445106
7232: THEN
7233:
7234: IF l_debug_mode = 'Y' THEN
7235: 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;
7236: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7237: END IF;
7238:
7239: /*IF l_debug_mode = 'Y' THEN
7232: THEN
7233:
7234: IF l_debug_mode = 'Y' THEN
7235: 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;
7236: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7237: END IF;
7238:
7239: /*IF l_debug_mode = 'Y' THEN
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7236: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7237: END IF;
7238:
7239: /*IF l_debug_mode = 'Y' THEN
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7237: END IF;
7238:
7239: /*IF l_debug_mode = 'Y' THEN
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7238:
7239: /*IF l_debug_mode = 'Y' THEN
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7239: /*IF l_debug_mode = 'Y' THEN
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7240: pa_debug.g_err_stage := 'p_version_info_rec.x_org_id: ' || p_version_info_rec.x_org_id;
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7241: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7249: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7242: pa_debug.g_err_stage := 'l_bl_index: ' || l_bl_index;
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7249: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7250: END IF;*/
7243: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7249: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7250: END IF;*/
7251: --Populate the preceeding and succeeding buckets in the period mask table
7244: pa_debug.g_err_stage := 'p_planning_start_date_tbl(l_bl_index): ' || p_planning_start_date_tbl(l_bl_index);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7249: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7250: END IF;*/
7251: --Populate the preceeding and succeeding buckets in the period mask table
7252: --log1('----- STAGE X3.1------- '||p_version_info_rec.x_org_id);
7245: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7246: pa_debug.g_err_stage := 'p_version_info_rec.x_time_phased_code: ' || p_version_info_rec.x_time_phased_code;
7247: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7248: pa_debug.g_err_stage := 'p_planning_end_date_tbl(l_bl_index): ' || p_planning_end_date_tbl(l_bl_index);
7249: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
7250: END IF;*/
7251: --Populate the preceeding and succeeding buckets in the period mask table
7252: --log1('----- STAGE X3.1------- '||p_version_info_rec.x_org_id);
7253: --log1('----- STAGE X3.2------- '||l_bl_index);
7593: x_msg_data =>x_msg_data );
7594:
7595: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7596: IF l_debug_mode = 'Y' THEN
7597: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7598: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7599: END IF;
7600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7601: END IF;
7594:
7595: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7596: IF l_debug_mode = 'Y' THEN
7597: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7598: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7599: END IF;
7600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7601: END IF;
7602:
7650: x_msg_data =>x_msg_data );
7651:
7652: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7653: IF l_debug_mode = 'Y' THEN
7654: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7656: END IF;
7657: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7658: END IF;
7651:
7652: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7653: IF l_debug_mode = 'Y' THEN
7654: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7656: END IF;
7657: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7658: END IF;
7659:
7707: x_msg_data =>x_msg_data );
7708:
7709: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7710: IF l_debug_mode = 'Y' THEN
7711: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7713: END IF;
7714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7715: END IF;
7708:
7709: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7710: IF l_debug_mode = 'Y' THEN
7711: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7713: END IF;
7714: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7715: END IF;
7716:
7764: x_msg_data =>x_msg_data );
7765:
7766: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7767: IF l_debug_mode = 'Y' THEN
7768: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7769: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7770: END IF;
7771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7772: END IF;
7765:
7766: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7767: IF l_debug_mode = 'Y' THEN
7768: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7769: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7770: END IF;
7771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7772: END IF;
7773:
8050: x_msg_data =>x_msg_data );
8051:
8052: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8053: IF l_debug_mode = 'Y' THEN
8054: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
8055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
8056: END IF;
8057: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8058: END IF;
8051:
8052: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8053: IF l_debug_mode = 'Y' THEN
8054: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
8055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
8056: END IF;
8057: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8058: END IF;
8059:
8064: END IF; --p_context
8065:
8066:
8067: IF l_debug_mode = 'Y' THEN
8068: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_pbl_input';
8069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8070: END IF;
8071:
8072: IF l_debug_mode = 'Y' THEN
8065:
8066:
8067: IF l_debug_mode = 'Y' THEN
8068: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.prepare_pbl_input';
8069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8070: END IF;
8071:
8072: IF l_debug_mode = 'Y' THEN
8073: pa_debug.reset_curr_function;
8069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8070: END IF;
8071:
8072: IF l_debug_mode = 'Y' THEN
8073: pa_debug.reset_curr_function;
8074: END IF;
8075:
8076: EXCEPTION
8077: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8091: END IF;
8092: x_return_status := FND_API.G_RET_STS_ERROR;
8093:
8094: IF l_debug_mode = 'Y' THEN
8095: pa_debug.reset_curr_function;
8096: END IF;
8097: RETURN;
8098:
8099: WHEN OTHERS THEN
8103:
8104: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
8105: ,p_procedure_name => 'prepare_pbl_input');
8106: IF l_debug_mode = 'Y' THEN
8107: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8108: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8109: END IF;
8110:
8111: IF l_debug_mode = 'Y' THEN
8104: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
8105: ,p_procedure_name => 'prepare_pbl_input');
8106: IF l_debug_mode = 'Y' THEN
8107: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8108: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8109: END IF;
8110:
8111: IF l_debug_mode = 'Y' THEN
8112: pa_debug.reset_curr_function;
8108: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8109: END IF;
8110:
8111: IF l_debug_mode = 'Y' THEN
8112: pa_debug.reset_curr_function;
8113: END IF;
8114: RAISE;
8115:
8116: END prepare_pbl_input;
8423: l_extra_bls_exists VARCHAR2(1);
8424: j INTEGER;
8425: BEGIN
8426: --log1('PBL Begin '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8427: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
8428:
8429: x_return_status := FND_API.G_RET_STS_SUCCESS;
8430: x_msg_count := 0;
8431: --log1('----- STAGE PBL1.0-------');
8430: x_msg_count := 0;
8431: --log1('----- STAGE PBL1.0-------');
8432:
8433: IF l_debug_mode = 'Y' THEN
8434: pa_debug.Set_Curr_Function
8435: (p_function => l_module_name,
8436: p_debug_mode => l_debug_mode);
8437: END IF;
8438:
8436: p_debug_mode => l_debug_mode);
8437: END IF;
8438:
8439: IF l_debug_mode = 'Y' THEN
8440: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8441: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8442: pa_debug.g_err_stage := 'Validating input parameters';
8443: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8444: END IF;
8437: END IF;
8438:
8439: IF l_debug_mode = 'Y' THEN
8440: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8441: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8442: pa_debug.g_err_stage := 'Validating input parameters';
8443: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8444: END IF;
8445:
8438:
8439: IF l_debug_mode = 'Y' THEN
8440: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8441: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8442: pa_debug.g_err_stage := 'Validating input parameters';
8443: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8444: END IF;
8445:
8446: -- validate the mandatory input parameters
8439: IF l_debug_mode = 'Y' THEN
8440: pa_debug.g_err_stage := 'Entering into process_budget_lines';
8441: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8442: pa_debug.g_err_stage := 'Validating input parameters';
8443: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8444: END IF;
8445:
8446: -- validate the mandatory input parameters
8447:
8447:
8448: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
8449: IF p_context IS NULL THEN
8450: IF l_debug_mode = 'Y' THEN
8451: pa_debug.g_err_stage := 'p_context is passed as null';
8452: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8453: END IF;
8454: pa_utils.add_message(p_app_short_name => 'PA',
8455: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8448: -- valid p_context are WEBADI_PERIODIC and WEBADI_NON_PERIODIC
8449: IF p_context IS NULL THEN
8450: IF l_debug_mode = 'Y' THEN
8451: pa_debug.g_err_stage := 'p_context is passed as null';
8452: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8453: END IF;
8454: pa_utils.add_message(p_app_short_name => 'PA',
8455: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8456: p_token1 => 'PROCEDURENAME',
8461:
8462: -- budget_version_id is not passed
8463: IF p_budget_version_id IS NULL THEN
8464: IF l_debug_mode = 'Y' THEN
8465: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
8466: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8467: END IF;
8468: pa_utils.add_message(p_app_short_name => 'PA',
8469: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8462: -- budget_version_id is not passed
8463: IF p_budget_version_id IS NULL THEN
8464: IF l_debug_mode = 'Y' THEN
8465: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
8466: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8467: END IF;
8468: pa_utils.add_message(p_app_short_name => 'PA',
8469: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8470: p_token1 => 'PROCEDURENAME',
8474: END IF;
8475: -- version_info_rec type is null
8476: IF p_version_info_rec.x_project_id IS NULL THEN
8477: IF l_debug_mode = 'Y' THEN
8478: pa_debug.g_err_stage := 'p_version_info_rec is passed as null';
8479: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8480: END IF;
8481: pa_utils.add_message(p_app_short_name => 'PA',
8482: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8475: -- version_info_rec type is null
8476: IF p_version_info_rec.x_project_id IS NULL THEN
8477: IF l_debug_mode = 'Y' THEN
8478: pa_debug.g_err_stage := 'p_version_info_rec is passed as null';
8479: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8480: END IF;
8481: pa_utils.add_message(p_app_short_name => 'PA',
8482: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8483: p_token1 => 'PROCEDURENAME',
8488:
8489: -- if no data is present in the task id table
8490: IF NOT p_task_id_tbl.EXISTS(1) THEN
8491: IF l_debug_mode = 'Y' THEN
8492: pa_debug.g_err_stage := 'task id table is passed as null';
8493: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8494: END IF;
8495: RETURN;
8496: END IF;
8489: -- if no data is present in the task id table
8490: IF NOT p_task_id_tbl.EXISTS(1) THEN
8491: IF l_debug_mode = 'Y' THEN
8492: pa_debug.g_err_stage := 'task id table is passed as null';
8493: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8494: END IF;
8495: RETURN;
8496: END IF;
8497:
8590: --log1(' 38 '||p_description_tbl.COUNT);
8591: --log1(' 39 '||p_delete_flag_tbl.COUNT );
8592:
8593: IF l_debug_mode = 'Y' THEN
8594: pa_debug.g_err_stage := 'Required input tables are not equal in length';
8595: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8596: END IF;
8597: pa_utils.add_message(p_app_short_name => 'PA',
8598: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8591: --log1(' 39 '||p_delete_flag_tbl.COUNT );
8592:
8593: IF l_debug_mode = 'Y' THEN
8594: pa_debug.g_err_stage := 'Required input tables are not equal in length';
8595: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
8596: END IF;
8597: pa_utils.add_message(p_app_short_name => 'PA',
8598: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8599: p_token1 => 'PROCEDURENAME',
8607:
8608: -- checking for the context and if its non periodic context, then
8609: -- filtering out the records with delete flag <> Y
8610: IF l_debug_mode = 'Y' THEN
8611: pa_debug.g_err_stage := 'p_context is: ' || p_context;
8612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8613: END IF;
8614:
8615: --log1('PBL 1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8608: -- checking for the context and if its non periodic context, then
8609: -- filtering out the records with delete flag <> Y
8610: IF l_debug_mode = 'Y' THEN
8611: pa_debug.g_err_stage := 'p_context is: ' || p_context;
8612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8613: END IF;
8614:
8615: --log1('PBL 1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8616: IF p_context = 'WEBADI_NON_PERIODIC' THEN
8827: --log1('PBL 2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8828:
8829: --log1('----- STAGE PBL1.3-------');
8830: IF l_debug_mode = 'Y' THEN
8831: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8833: pa_debug.g_err_stage := 'Checking for existing RAs';
8834: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8835: END IF;
8828:
8829: --log1('----- STAGE PBL1.3-------');
8830: IF l_debug_mode = 'Y' THEN
8831: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8833: pa_debug.g_err_stage := 'Checking for existing RAs';
8834: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8835: END IF;
8836:
8829: --log1('----- STAGE PBL1.3-------');
8830: IF l_debug_mode = 'Y' THEN
8831: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8833: pa_debug.g_err_stage := 'Checking for existing RAs';
8834: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8835: END IF;
8836:
8837: --log1('PBL 3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8830: IF l_debug_mode = 'Y' THEN
8831: pa_debug.g_err_stage := 'Input parameters are copied to local variables';
8832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8833: pa_debug.g_err_stage := 'Checking for existing RAs';
8834: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8835: END IF;
8836:
8837: --log1('PBL 3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8838: -- noting down the number of records passed
8863: EXCEPTION
8864: WHEN NO_DATA_FOUND THEN
8865: --log1('----- STAGE PBL6-------');
8866: IF l_debug_mode = 'Y' THEN
8867: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8869: END IF;
8870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8871: END;
8864: WHEN NO_DATA_FOUND THEN
8865: --log1('----- STAGE PBL6-------');
8866: IF l_debug_mode = 'Y' THEN
8867: pa_debug.g_err_stage := 'No Elem Version Id found for the task id passed';
8868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8869: END IF;
8870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8871: END;
8872: ELSE
8897:
8898: IF l_new_elem_ver_id_tbl.COUNT > 0 THEN
8899: -- there are new task-resource records to be inserted
8900: IF l_debug_mode = 'Y' THEN
8901: pa_debug.g_err_stage := 'Inputs prepared for add_plan_txn and calling';
8902: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8903: END IF;
8904: -- Calling add_planning_transaction for those records for which RA doesnot exists
8905:
8898: IF l_new_elem_ver_id_tbl.COUNT > 0 THEN
8899: -- there are new task-resource records to be inserted
8900: IF l_debug_mode = 'Y' THEN
8901: pa_debug.g_err_stage := 'Inputs prepared for add_plan_txn and calling';
8902: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8903: END IF;
8904: -- Calling add_planning_transaction for those records for which RA doesnot exists
8905:
8906: --Note down the current value of pa_resource_assignments_s.nextval
8913: --log1('----- STAGE PBL16-------');
8914: EXCEPTION
8915: WHEN OTHERS THEN
8916: IF l_debug_mode = 'Y' THEN
8917: pa_debug.g_err_stage := 'Error while getting RA Id sequence';
8918: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8919: END IF;
8920: RAISE;
8921: END;
8914: EXCEPTION
8915: WHEN OTHERS THEN
8916: IF l_debug_mode = 'Y' THEN
8917: pa_debug.g_err_stage := 'Error while getting RA Id sequence';
8918: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8919: END IF;
8920: RAISE;
8921: END;
8922: --log1('----- STAGE PBL17-------');
8942: ,x_msg_count => l_msg_count);
8943:
8944: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8945: IF l_debug_mode = 'Y' THEN
8946: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8948: END IF;
8949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8950: END IF;
8943:
8944: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8945: IF l_debug_mode = 'Y' THEN
8946: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8948: END IF;
8949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8950: END IF;
8951: IF l_debug_mode = 'Y' THEN
8948: END IF;
8949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8950: END IF;
8951: IF l_debug_mode = 'Y' THEN
8952: pa_debug.g_err_stage := 'Add_planning_transaction called';
8953: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8954: END IF;
8955: END IF; -- new RAs
8956: --log1('PBL 5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8950: END IF;
8951: IF l_debug_mode = 'Y' THEN
8952: pa_debug.g_err_stage := 'Add_planning_transaction called';
8953: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8954: END IF;
8955: END IF; -- new RAs
8956: --log1('PBL 5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8957:
8997: IF p_context = 'WEBADI_NON_PERIODIC' THEN
8998: -- checking if there is any reord with delete_flag = Y
8999: IF l_df_ra_id_tbl.COUNT > 0 THEN
9000: IF l_debug_mode = 'Y' THEN
9001: pa_debug.g_err_stage := 'Deleting from pa_budget_lines for the records with delete_flag = Y';
9002: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9003: END IF;
9004: --log1('PBL 11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9005:
8998: -- checking if there is any reord with delete_flag = Y
8999: IF l_df_ra_id_tbl.COUNT > 0 THEN
9000: IF l_debug_mode = 'Y' THEN
9001: pa_debug.g_err_stage := 'Deleting from pa_budget_lines for the records with delete_flag = Y';
9002: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9003: END IF;
9004: --log1('PBL 11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9005:
9006: /* Bug 5144013 : Modified the logic so that the attributes of the transaction
9141: from pa_budget_lines and from new entity when delete flag is set as 'Y' in Excel for a
9142: planning transaction. This is done as part of merging the MRUP3 changes done in 11i into R12.
9143: */
9144: IF l_debug_mode = 'Y' THEN
9145: pa_debug.g_err_stage := 'Before Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
9146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9147: END IF;
9148: pa_fp_planning_transaction_pub.delete_planning_transactions(
9149: p_context => 'BUDGET'
9142: planning transaction. This is done as part of merging the MRUP3 changes done in 11i into R12.
9143: */
9144: IF l_debug_mode = 'Y' THEN
9145: pa_debug.g_err_stage := 'Before Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
9146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9147: END IF;
9148: pa_fp_planning_transaction_pub.delete_planning_transactions(
9149: p_context => 'BUDGET'
9150: ,p_task_or_res => 'ASSIGNMENT'
9154: ,x_msg_count => l_msg_count
9155: ,x_msg_data => l_msg_data);
9156: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9157: IF l_debug_mode = 'Y' THEN
9158: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
9159: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9160: END IF;
9161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9162: END IF;
9155: ,x_msg_data => l_msg_data);
9156: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9157: IF l_debug_mode = 'Y' THEN
9158: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
9159: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9160: END IF;
9161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9162: END IF;
9163: IF l_debug_mode = 'Y' THEN
9160: END IF;
9161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9162: END IF;
9163: IF l_debug_mode = 'Y' THEN
9164: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
9165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9166: END IF;
9167:
9168: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9161: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9162: END IF;
9163: IF l_debug_mode = 'Y' THEN
9164: pa_debug.g_err_stage := 'After Calling pa_fp_planning_transaction_pub.delete_planning_transactions';
9165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9166: END IF;
9167:
9168: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9169: IF l_debug_mode = 'Y' THEN
9166: END IF;
9167:
9168: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9169: IF l_debug_mode = 'Y' THEN
9170: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9172: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9174: END IF;
9167:
9168: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9169: IF l_debug_mode = 'Y' THEN
9170: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9172: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9174: END IF;
9175:
9168: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9169: IF l_debug_mode = 'Y' THEN
9170: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9172: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9174: END IF;
9175:
9176: --log1('Preparing ra attr tbls for rollup tmp ins');
9169: IF l_debug_mode = 'Y' THEN
9170: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9172: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9174: END IF;
9175:
9176: --log1('Preparing ra attr tbls for rollup tmp ins');
9177:
9184:
9185: -- calling calculate api for budget line context for all the elligible records
9186: IF l_ra_id_tbl.COUNT > 0 THEN
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9189: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9190: END IF;
9191: IF p_context = 'WEBADI_PERIODIC' THEN
9192: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9185: -- calling calculate api for budget line context for all the elligible records
9186: IF l_ra_id_tbl.COUNT > 0 THEN
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.g_err_stage := 'Calling calculate to spread amount';
9189: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9190: END IF;
9191: IF p_context = 'WEBADI_PERIODIC' THEN
9192: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_BUDGET_LINE;
9193: ELSIF p_context = 'WEBADI_NON_PERIODIC' THEN
9196: l_calc_calling_context := PA_FP_CONSTANTS_PKG.G_CALC_API_RESOURCE_CONTEXT;
9197: END IF;
9198:
9199: IF l_debug_mode = 'Y' THEN
9200: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9202: END IF;
9203:
9204: --log1('PBL 8 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9197: END IF;
9198:
9199: IF l_debug_mode = 'Y' THEN
9200: pa_debug.g_err_stage := 'Calling context' || l_calc_calling_context;
9201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9202: END IF;
9203:
9204: --log1('PBL 8 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9205: --log1('Before callling calc in pbl');
9262: --log1('PBL 10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9264:
9265: IF l_debug_mode = 'Y' THEN
9266: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9267: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9268: END IF;
9269: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9270: END IF;
9263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9264:
9265: IF l_debug_mode = 'Y' THEN
9266: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9267: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9268: END IF;
9269: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9270: END IF;
9271:
9290: IF l_df_ra_id_tbl.COUNT > 0 THEN
9291: --log1('PBL 12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9292: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9293: IF l_debug_mode = 'Y' THEN
9294: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9296: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9297: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9298: END IF;
9291: --log1('PBL 12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9292: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9293: IF l_debug_mode = 'Y' THEN
9294: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9296: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9297: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9298: END IF;
9299:
9292: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9293: IF l_debug_mode = 'Y' THEN
9294: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9296: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9297: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9298: END IF;
9299:
9300: --log1('Preparing ra attr tbls for rollup tmp ins');
9293: IF l_debug_mode = 'Y' THEN
9294: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9296: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9297: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9298: END IF;
9299:
9300: --log1('Preparing ra attr tbls for rollup tmp ins');
9301:
9388: l_bl_del_fg_pf_cnv_rej_cd_tbl(i),
9389: l_bl_del_flag_o_rej_code_tbl(i));
9390: --log1('PBL 14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9391: IF l_debug_mode = 'Y' THEN
9392: pa_debug.g_err_stage := 'records inserted into pa_fp_rollup_tmp';
9393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9394: END IF;
9395: */
9396: ELSE
9389: l_bl_del_flag_o_rej_code_tbl(i));
9390: --log1('PBL 14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9391: IF l_debug_mode = 'Y' THEN
9392: pa_debug.g_err_stage := 'records inserted into pa_fp_rollup_tmp';
9393: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9394: END IF;
9395: */
9396: ELSE
9397: -- no records deleted from pa_budget_lines
9395: */
9396: ELSE
9397: -- no records deleted from pa_budget_lines
9398: IF l_debug_mode = 'Y' THEN
9399: pa_debug.g_err_stage := 'No records deleted from pa_budget_lines';
9400: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9401: END IF;
9402: END IF;
9403: END IF; -- records with delete_flag
9396: ELSE
9397: -- no records deleted from pa_budget_lines
9398: IF l_debug_mode = 'Y' THEN
9399: pa_debug.g_err_stage := 'No records deleted from pa_budget_lines';
9400: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9401: END IF;
9402: END IF;
9403: END IF; -- records with delete_flag
9404:
9483:
9484: END IF; -- p_context = WEBADI_NON_PERIODIC
9485:
9486: IF l_debug_mode = 'Y' THEN
9487: pa_debug.g_err_stage:='Updating pa_budget_lines with change reason code, desc and conv attr';
9488: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9489: END IF;
9490:
9491: -- updating conversion attributes if the version is enabled for multi currency
9484: END IF; -- p_context = WEBADI_NON_PERIODIC
9485:
9486: IF l_debug_mode = 'Y' THEN
9487: pa_debug.g_err_stage:='Updating pa_budget_lines with change reason code, desc and conv attr';
9488: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9489: END IF;
9490:
9491: -- updating conversion attributes if the version is enabled for multi currency
9492: -- Bug 4424457 : In all the below updates replaced pa_budget_lines with pa_fp_rollup_tmp. These
9604: END IF; -- there are records in local ra tbl
9605: END IF; -- end of update
9606:
9607: IF l_debug_mode = 'Y' THEN
9608: pa_debug.g_err_stage:='pa_budget_lines updated with change reason code, desc and conv attr';
9609: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9610: END IF;
9611:
9612:
9605: END IF; -- end of update
9606:
9607: IF l_debug_mode = 'Y' THEN
9608: pa_debug.g_err_stage:='pa_budget_lines updated with change reason code, desc and conv attr';
9609: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9610: END IF;
9611:
9612:
9613: --log1('----- STAGE PBL18.3------- ');
9611:
9612:
9613: --log1('----- STAGE PBL18.3------- ');
9614: IF l_debug_mode = 'Y' THEN
9615: pa_debug.g_err_stage := 'Calling multi currency pkg';
9616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9617: END IF;
9618: --log1('PBL 26 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9619: -- Bug 4424457. Call MC API only if there are some budget lines that are processed by calculate API
9612:
9613: --log1('----- STAGE PBL18.3------- ');
9614: IF l_debug_mode = 'Y' THEN
9615: pa_debug.g_err_stage := 'Calling multi currency pkg';
9616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9617: END IF;
9618: --log1('PBL 26 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9619: -- Bug 4424457. Call MC API only if there are some budget lines that are processed by calculate API
9620: IF l_bls_proccessed_flag ='Y' THEN
9627: ,x_msg_data => l_msg_data );
9628: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9630: IF l_debug_mode = 'Y' THEN
9631: pa_debug.g_err_stage:='convert_txn_currency returned error';
9632: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9633: END IF;
9634: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9635: END IF;
9628: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9630: IF l_debug_mode = 'Y' THEN
9631: pa_debug.g_err_stage:='convert_txn_currency returned error';
9632: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9633: END IF;
9634: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9635: END IF;
9636:
9636:
9637: END IF;
9638:
9639: IF l_debug_mode = 'Y' THEN
9640: pa_debug.g_err_stage := 'Preparing data for the call to PJI api';
9641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9642: END IF;
9643:
9644: IF l_debug_mode = 'Y' THEN
9637: END IF;
9638:
9639: IF l_debug_mode = 'Y' THEN
9640: pa_debug.g_err_stage := 'Preparing data for the call to PJI api';
9641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9642: END IF;
9643:
9644: IF l_debug_mode = 'Y' THEN
9645: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9642: END IF;
9643:
9644: IF l_debug_mode = 'Y' THEN
9645: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9646: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9647: END IF;
9648:
9649: --bug 5962744 moved below bulk select out of if condition
9642: END IF;
9643:
9644: IF l_debug_mode = 'Y' THEN
9645: pa_debug.g_err_stage := 'About to select data for updating the budget lines '||l_bls_proccessed_flag;
9646: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9647: END IF;
9648:
9649: --bug 5962744 moved below bulk select out of if condition
9650: --Bug 4424457. Rollup tmp can contain multiple records for the same budget line id. This will happen when
9911: l_upd_delete_flag_tbl(i) <> 'Y');
9912: END IF; --if p_version_info_rec.x_time_phased_code = 'N'
9913: --bug 5962744
9914: IF l_debug_mode = 'Y' THEN
9915: pa_debug.g_err_stage := 'Stampping Amounts and rejection codes in budget lines';
9916: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9917: END IF;
9918:
9919: -- Bug 4424457. If there are budget lines that either got deleted or updated/created then
9912: END IF; --if p_version_info_rec.x_time_phased_code = 'N'
9913: --bug 5962744
9914: IF l_debug_mode = 'Y' THEN
9915: pa_debug.g_err_stage := 'Stampping Amounts and rejection codes in budget lines';
9916: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9917: END IF;
9918:
9919: -- Bug 4424457. If there are budget lines that either got deleted or updated/created then
9920: -- stamp the derived pc/pfc amounts back on budget lines and call PJI API
9983: to populate the display_quantity in pa_budget_lines. This is done as part of merging the MRUP3
9984: changes done in 11i into R12.
9985: */
9986: IF l_debug_mode = 'Y' THEN
9987: pa_debug.g_err_stage := 'Before calling Populate Display Qty api';
9988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9989: END IF;
9990: PA_BUDGET_LINES_UTILS.populate_display_qty
9991: ( p_budget_version_id => p_budget_version_id
9984: changes done in 11i into R12.
9985: */
9986: IF l_debug_mode = 'Y' THEN
9987: pa_debug.g_err_stage := 'Before calling Populate Display Qty api';
9988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9989: END IF;
9990: PA_BUDGET_LINES_UTILS.populate_display_qty
9991: ( p_budget_version_id => p_budget_version_id
9992: ,p_context => 'FINANCIAL'
9992: ,p_context => 'FINANCIAL'
9993: ,x_return_status => x_return_status);
9994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9995: IF l_debug_mode = 'Y' THEN
9996: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9997: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9998: END IF;
9999: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10000: END IF;
9993: ,x_return_status => x_return_status);
9994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9995: IF l_debug_mode = 'Y' THEN
9996: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9997: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9998: END IF;
9999: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10000: END IF;
10001: IF l_debug_mode = 'Y' THEN
9998: END IF;
9999: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10000: END IF;
10001: IF l_debug_mode = 'Y' THEN
10002: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
10003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10004: END IF;
10005: -- Call is made to maintain_data api to rollup the data in new entity.
10006: IF l_debug_mode = 'Y' THEN
9999: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10000: END IF;
10001: IF l_debug_mode = 'Y' THEN
10002: pa_debug.g_err_stage := 'After calling Populate Display Qty api';
10003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10004: END IF;
10005: -- Call is made to maintain_data api to rollup the data in new entity.
10006: IF l_debug_mode = 'Y' THEN
10007: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
10003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10004: END IF;
10005: -- Call is made to maintain_data api to rollup the data in new entity.
10006: IF l_debug_mode = 'Y' THEN
10007: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
10008: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10009: END IF;
10010: PA_RES_ASG_CURRENCY_PUB.maintain_data(
10011: p_fp_cols_rec => p_version_info_rec
10004: END IF;
10005: -- Call is made to maintain_data api to rollup the data in new entity.
10006: IF l_debug_mode = 'Y' THEN
10007: pa_debug.g_err_stage := 'Before calling maintanance api maintain_data';
10008: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10009: END IF;
10010: PA_RES_ASG_CURRENCY_PUB.maintain_data(
10011: p_fp_cols_rec => p_version_info_rec
10012: ,p_calling_module => 'WEBADI'
10016: ,x_msg_count => l_msg_count
10017: ,x_msg_data => l_msg_data);
10018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10022: END IF;
10023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10024: END IF;
10017: ,x_msg_data => l_msg_data);
10018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10022: END IF;
10023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10024: END IF;
10025: IF l_debug_mode = 'Y' THEN
10022: END IF;
10023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10024: END IF;
10025: IF l_debug_mode = 'Y' THEN
10026: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
10027: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10028: END IF;
10029: /* End of fix for Bug : 5144013*/
10030:
10023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10024: END IF;
10025: IF l_debug_mode = 'Y' THEN
10026: pa_debug.g_err_stage := 'After calling maintanance api maintain_data';
10027: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10028: END IF;
10029: /* End of fix for Bug : 5144013*/
10030:
10031: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10029: /* End of fix for Bug : 5144013*/
10030:
10031: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10032: IF l_debug_mode = 'Y' THEN
10033: pa_debug.g_err_stage := 'Calling rollup budget version api';
10034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10035: END IF;
10036: --log1('----- STAGE PBL18.3------- ');
10037: --log1('PBL 30 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10030:
10031: --log1('PBL 29 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10032: IF l_debug_mode = 'Y' THEN
10033: pa_debug.g_err_stage := 'Calling rollup budget version api';
10034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10035: END IF;
10036: --log1('----- STAGE PBL18.3------- ');
10037: --log1('PBL 30 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10038: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
10043: ,x_msg_data => l_msg_data);
10044:
10045: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10046: IF l_debug_mode = 'Y' THEN
10047: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10048: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10049: END IF;
10050: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10051: END IF;
10044:
10045: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10046: IF l_debug_mode = 'Y' THEN
10047: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10048: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10049: END IF;
10050: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10051: END IF;
10052: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10050: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10051: END IF;
10052: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10053: IF l_debug_mode = 'Y' THEN
10054: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
10055: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10056: END IF;
10057: --log1('----- STAGE PBL18.4------- ');
10058:
10051: END IF;
10052: --log1('PBL 31 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10053: IF l_debug_mode = 'Y' THEN
10054: pa_debug.g_err_stage := 'Checking whether MRC api needs to be called';
10055: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10056: END IF;
10057: --log1('----- STAGE PBL18.4------- ');
10058:
10059: /**************MRC ELIMINATION CHANGES: ********************************
10065: x_msg_data => l_msg_data);
10066:
10067: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
10070: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10073: END IF;
10066:
10067: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
10070: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10073: END IF;
10074:
10076: -- checking for valid requiered parameter values to call the MRC api
10077: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
10078: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
10079: IF l_debug_mode = 'Y' THEN
10080: pa_debug.g_err_stage := 'Calling MRC api ';
10081: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10082: END IF;
10083: --log1('PBL 33 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10084: PA_MRC_FINPLAN.maintain_all_mc_budget_lines
10077: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
10078: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
10079: IF l_debug_mode = 'Y' THEN
10080: pa_debug.g_err_stage := 'Calling MRC api ';
10081: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10082: END IF;
10083: --log1('PBL 33 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10084: PA_MRC_FINPLAN.maintain_all_mc_budget_lines
10085: (p_fin_plan_version_id => p_budget_version_id,
10088: x_msg_count => l_msg_count,
10089: x_msg_data => l_msg_data);
10090: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10091: IF l_debug_mode = 'Y' THEN
10092: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
10093: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10094: END IF;
10095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10096: END IF;
10089: x_msg_data => l_msg_data);
10090: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10091: IF l_debug_mode = 'Y' THEN
10092: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
10093: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10094: END IF;
10095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10096: END IF;
10097: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10096: END IF;
10097: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10098: ELSE
10099: IF l_debug_mode = 'Y' THEN
10100: pa_debug.g_err_stage := 'MRC api need not be called';
10101: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10102: END IF;
10103: END IF;
10104: ***************End of MRC ELIMINATION CHANGES: ***********************/
10097: --log1('PBL 34 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10098: ELSE
10099: IF l_debug_mode = 'Y' THEN
10100: pa_debug.g_err_stage := 'MRC api need not be called';
10101: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10102: END IF;
10103: END IF;
10104: ***************End of MRC ELIMINATION CHANGES: ***********************/
10105:
10104: ***************End of MRC ELIMINATION CHANGES: ***********************/
10105:
10106: --log1('----- STAGE PBL18.5------- ');
10107: IF l_debug_mode = 'Y' THEN
10108: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
10109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10110: pa_debug.Reset_Curr_Function;
10111: END IF;
10112: --log1('----- STAGE PBL18.6------- ');
10105:
10106: --log1('----- STAGE PBL18.5------- ');
10107: IF l_debug_mode = 'Y' THEN
10108: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
10109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10110: pa_debug.Reset_Curr_Function;
10111: END IF;
10112: --log1('----- STAGE PBL18.6------- ');
10113: --log1('PBL 37'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10106: --log1('----- STAGE PBL18.5------- ');
10107: IF l_debug_mode = 'Y' THEN
10108: pa_debug.g_err_stage := 'Data prepared for the call to PJI api';
10109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10110: pa_debug.Reset_Curr_Function;
10111: END IF;
10112: --log1('----- STAGE PBL18.6------- ');
10113: --log1('PBL 37'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10114: --Bug 4424457. Replaced the call to plan_update with plan_delete and plan_create
10120: x_msg_code => l_error_msg_code);
10121:
10122: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
10123: IF l_debug_mode = 'Y' THEN
10124: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
10125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10126: END IF;
10127:
10128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10121:
10122: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
10123: IF l_debug_mode = 'Y' THEN
10124: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
10125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10126: END IF;
10127:
10128: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10129:
10194: -- l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
10195:
10196: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10197: IF l_debug_mode = 'Y' THEN
10198: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10200: pa_debug.Reset_Curr_Function;
10201: END IF;
10202: EXCEPTION
10195:
10196: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10197: IF l_debug_mode = 'Y' THEN
10198: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10200: pa_debug.Reset_Curr_Function;
10201: END IF;
10202: EXCEPTION
10203: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10196: --log1('PBL 39 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10197: IF l_debug_mode = 'Y' THEN
10198: pa_debug.g_err_stage := 'Leaving process_budget_lines';
10199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10200: pa_debug.Reset_Curr_Function;
10201: END IF;
10202: EXCEPTION
10203: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10204: IF l_debug_mode = 'Y' THEN
10201: END IF;
10202: EXCEPTION
10203: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
10204: IF l_debug_mode = 'Y' THEN
10205: pa_debug.reset_curr_function;
10206: END IF;
10207: RETURN;
10208: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10209: l_msg_count := FND_MSG_PUB.count_msg;
10222: x_msg_count := l_msg_count;
10223: END IF;
10224: x_return_status := FND_API.G_RET_STS_ERROR;
10225: IF l_debug_mode = 'Y' THEN
10226: pa_debug.reset_curr_function;
10227: END IF;
10228: RETURN;
10229:
10230: WHEN OTHERS THEN
10234:
10235: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10236: ,p_procedure_name => 'process_budget_lines');
10237: IF l_debug_mode = 'Y' THEN
10238: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10240: END IF;
10241:
10242: IF l_debug_mode = 'Y' THEN
10235: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10236: ,p_procedure_name => 'process_budget_lines');
10237: IF l_debug_mode = 'Y' THEN
10238: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
10239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10240: END IF;
10241:
10242: IF l_debug_mode = 'Y' THEN
10243: pa_debug.reset_curr_function;
10239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10240: END IF;
10241:
10242: IF l_debug_mode = 'Y' THEN
10243: pa_debug.reset_curr_function;
10244: END IF;
10245: RAISE;
10246:
10247: END process_budget_lines;
10508: 7. As a result if we dont commit in the beginning when SWITCHER API is called, then when
10509: Stamp_Client_Extn_Errors APi is invoked there will be no records in PA_FP_WEBADI_UPLOAD_INF.
10510: */
10511:
10512: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
10513:
10514:
10515: x_return_status := FND_API.G_RET_STS_SUCCESS;
10516: x_msg_count := 0;
10520: (APPIN => 'PA',
10521: NAMEIN => 'PA_FP_UPL_ONLINE_SUCC_MSG');
10522:
10523: IF l_debug_mode = 'Y' THEN
10524: pa_debug.Set_Curr_Function
10525: (p_function => l_module_name,
10526: p_debug_mode => l_debug_mode);
10527: END IF;
10528:
10532:
10533: -- validating input parameter
10534: IF p_run_id IS NULL THEN
10535: IF l_debug_mode = 'Y' THEN
10536: pa_debug.g_err_stage := 'p_run_id is passed as null';
10537: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10538: END IF;
10539: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10540: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10533: -- validating input parameter
10534: IF p_run_id IS NULL THEN
10535: IF l_debug_mode = 'Y' THEN
10536: pa_debug.g_err_stage := 'p_run_id is passed as null';
10537: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10538: END IF;
10539: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10540: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10541: p_token1 => 'PROCEDURENAME',
10543: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10544: END IF;
10545:
10546: IF l_debug_mode = 'Y' THEN
10547: pa_debug.g_err_stage := 'Entering into switcher';
10548: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10549: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10550: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10551: END IF;
10544: END IF;
10545:
10546: IF l_debug_mode = 'Y' THEN
10547: pa_debug.g_err_stage := 'Entering into switcher';
10548: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10549: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10550: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10551: END IF;
10552:
10545:
10546: IF l_debug_mode = 'Y' THEN
10547: pa_debug.g_err_stage := 'Entering into switcher';
10548: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10549: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10550: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10551: END IF;
10552:
10553: l_submit_flag:='N';
10546: IF l_debug_mode = 'Y' THEN
10547: pa_debug.g_err_stage := 'Entering into switcher';
10548: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10549: pa_debug.g_err_stage := 'Fetching the header level info from tmp tbl';
10550: pa_debug.write(l_module_name, pa_debug.g_err_stage, l_debug_level3);
10551: END IF;
10552:
10553: l_submit_flag:='N';
10554: IF p_submit_forecast_flag='Y' OR p_submit_budget_flag ='Y' THEN
10571: AND rownum = 1;
10572: EXCEPTION
10573: WHEN NO_DATA_FOUND THEN
10574: IF l_debug_mode = 'Y' THEN
10575: pa_debug.g_err_stage := 'No data found while reading header info';
10576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10577: END IF;
10578: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10579: END;
10572: EXCEPTION
10573: WHEN NO_DATA_FOUND THEN
10574: IF l_debug_mode = 'Y' THEN
10575: pa_debug.g_err_stage := 'No data found while reading header info';
10576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10577: END IF;
10578: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10579: END;
10580:
10595: is_periodic_setup := 'N';
10596: END;
10597:
10598: IF l_debug_mode = 'Y' THEN
10599: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
10600: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10601: END IF;
10602:
10603: -- throwing error if the header level info is missing
10596: END;
10597:
10598: IF l_debug_mode = 'Y' THEN
10599: pa_debug.g_err_stage := 'is_periodic_setup: =' || is_periodic_setup;
10600: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10601: END IF;
10602:
10603: -- throwing error if the header level info is missing
10604: IF l_budget_version_id IS NULL OR
10604: IF l_budget_version_id IS NULL OR
10605: l_rec_version_number IS NULL OR
10606: (is_periodic_setup='Y' AND l_pm_rec_version_number IS NULL) THEN
10607: IF l_debug_mode = 'Y' THEN
10608: pa_debug.g_err_stage := 'Header level values are null in interface table';
10609: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10610: END IF;
10611: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10612: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10605: l_rec_version_number IS NULL OR
10606: (is_periodic_setup='Y' AND l_pm_rec_version_number IS NULL) THEN
10607: IF l_debug_mode = 'Y' THEN
10608: pa_debug.g_err_stage := 'Header level values are null in interface table';
10609: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
10610: END IF;
10611: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10612: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10613: p_token1 => 'PROCEDURENAME',
10618:
10619: --log1('----- STAGE 1-------');
10620:
10621: IF l_debug_mode = 'Y' THEN
10622: pa_debug.g_err_stage := 'Deriving project id';
10623: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10624: END IF;
10625:
10626: BEGIN
10619: --log1('----- STAGE 1-------');
10620:
10621: IF l_debug_mode = 'Y' THEN
10622: pa_debug.g_err_stage := 'Deriving project id';
10623: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10624: END IF;
10625:
10626: BEGIN
10627: SELECT bv.project_id,
10636: AND bv.project_id = pl.project_id;
10637: EXCEPTION
10638: WHEN NO_DATA_FOUND THEN
10639: IF l_debug_mode = 'Y' THEN
10640: pa_debug.g_err_stage := 'No data found while reading project id ..';
10641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10642: END IF;
10643: UPDATE pa_fp_webadi_upload_inf
10644: SET val_error_flag = 'Y',
10637: EXCEPTION
10638: WHEN NO_DATA_FOUND THEN
10639: IF l_debug_mode = 'Y' THEN
10640: pa_debug.g_err_stage := 'No data found while reading project id ..';
10641: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10642: END IF;
10643: UPDATE pa_fp_webadi_upload_inf
10644: SET val_error_flag = 'Y',
10645: val_error_code = 'PA_FP_WEBADI_VER_MODIFIED',
10651: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
10652:
10653: x_return_status := FND_API.G_RET_STS_ERROR;
10654: IF l_debug_mode = 'Y' THEN
10655: pa_debug.reset_curr_function;
10656: END IF;
10657:
10658: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10659: END;
10662:
10663: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_org_id);
10664:
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_plan_version_dtls';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10669: --log1('----- STAGE 2.1-------'||l_project_id);
10670: --log1('----- STAGE 2.2-------'||l_budget_version_id);
10663: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_org_id);
10664:
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Calling pa_fp_gen_amount_utils.get_plan_version_dtls';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10669: --log1('----- STAGE 2.1-------'||l_project_id);
10670: --log1('----- STAGE 2.2-------'||l_budget_version_id);
10671: pa_fp_gen_amount_utils.get_plan_version_dtls
10677: x_msg_data => l_msg_data);
10678:
10679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10680: IF l_debug_mode = 'Y' THEN
10681: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10682: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10683: END IF;
10684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10685: END IF;
10678:
10679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10680: IF l_debug_mode = 'Y' THEN
10681: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10682: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10683: END IF;
10684: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10685: END IF;
10686: --log1('----- STAGE 2.3-------'||x_return_status);
10686: --log1('----- STAGE 2.3-------'||x_return_status);
10687: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10688:
10689: IF l_debug_mode = 'Y' THEN
10690: pa_debug.g_err_stage := 'Calling validate_header_info';
10691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10692: END IF;
10693:
10694: --log1('----- STAGE 3-------');
10687: --log1('----- STAGE 2.4-------'||l_budget_version_id);
10688:
10689: IF l_debug_mode = 'Y' THEN
10690: pa_debug.g_err_stage := 'Calling validate_header_info';
10691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10692: END IF;
10693:
10694: --log1('----- STAGE 3-------');
10695: --log1('1 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10708: --log1('2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10709:
10710: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10714: END IF;
10715: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10716: END IF;
10709:
10710: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10714: END IF;
10715: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10716: END IF;
10717:
10716: END IF;
10717:
10718: -- checking, if the layout is periodic one
10719: IF l_debug_mode = 'Y' THEN
10720: pa_debug.g_err_stage := 'Checking for periodic setup';
10721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10722: END IF;
10723:
10724: --log1('----- STAGE 4-------');
10717:
10718: -- checking, if the layout is periodic one
10719: IF l_debug_mode = 'Y' THEN
10720: pa_debug.g_err_stage := 'Checking for periodic setup';
10721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10722: END IF;
10723:
10724: --log1('----- STAGE 4-------');
10725:
10755: --dbms_output.put_line('--------l_prd_start_date_tbl.COUNT ---------' || l_prd_start_date_tbl.COUNT);
10756: --dbms_output.put_line('--------l_prd_end_date_tbl.COUNT ---------' || l_prd_end_date_tbl.COUNT);
10757:
10758: IF l_debug_mode = 'Y' THEN
10759: pa_debug.g_err_stage := 'Calling prepare_val_input';
10760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10761: END IF;
10762:
10763: --log1('----- STAGE 6-------');
10756: --dbms_output.put_line('--------l_prd_end_date_tbl.COUNT ---------' || l_prd_end_date_tbl.COUNT);
10757:
10758: IF l_debug_mode = 'Y' THEN
10759: pa_debug.g_err_stage := 'Calling prepare_val_input';
10760: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10761: END IF;
10762:
10763: --log1('----- STAGE 6-------');
10764: --log1('3 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
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 prepare_val_input 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 prepare_val_input 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: ELSE
10852: x_msg_data => l_msg_data);
10853:
10854: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10855: IF l_debug_mode = 'Y' THEN
10856: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10858: END IF;
10859: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10860: END IF;
10853:
10854: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10855: IF l_debug_mode = 'Y' THEN
10856: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10858: END IF;
10859: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10860: END IF;
10861: END IF; -- periodic check
10873: l_allow_qty_flag := l_version_info_rec.x_all_quantity_flag;
10874: END IF;
10875:
10876: IF l_debug_mode = 'Y' THEN
10877: pa_debug.g_err_stage := 'Calling validate_budget_lines';
10878: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10879: END IF;
10880: --log1('4 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10881:
10874: END IF;
10875:
10876: IF l_debug_mode = 'Y' THEN
10877: pa_debug.g_err_stage := 'Calling validate_budget_lines';
10878: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10879: END IF;
10880: --log1('4 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10881:
10882: l_spread_curve_id_tbl_1 := l_spread_curve_id_tbl;
10944: ,x_return_status => x_return_status);
10945: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10946: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10947: IF l_debug_mode = 'Y' THEN
10948: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10949: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10950: END IF;
10951: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10952: END IF;
10945: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10946: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10947: IF l_debug_mode = 'Y' THEN
10948: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10949: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10950: END IF;
10951: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10952: END IF;
10953: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10952: END IF;
10953: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10954:
10955: IF l_debug_mode = 'Y' THEN
10956: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10958: pa_debug.g_err_stage := 'Checking for errors';
10959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10960: END IF;
10953: --log1('----- STAGE 9------- l_budget_line_in_tbl.count '||l_budget_line_in_tbl.count);
10954:
10955: IF l_debug_mode = 'Y' THEN
10956: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10958: pa_debug.g_err_stage := 'Checking for errors';
10959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10960: END IF;
10961:
10954:
10955: IF l_debug_mode = 'Y' THEN
10956: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10958: pa_debug.g_err_stage := 'Checking for errors';
10959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10960: END IF;
10961:
10962: --DEBUG_NS('l_budget_line_in_tbl.count :: '|| l_budget_line_in_tbl.count);
10955: IF l_debug_mode = 'Y' THEN
10956: pa_debug.g_err_stage := 'Call to validate_budget_lines is complete';
10957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10958: pa_debug.g_err_stage := 'Checking for errors';
10959: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10960: END IF;
10961:
10962: --DEBUG_NS('l_budget_line_in_tbl.count :: '|| l_budget_line_in_tbl.count);
10963: --DEBUG_NS('After pa_budget_pvt.validate_budget_lines :: '|| x_msg_data);
10993: l_error_indicator_flag := 'N';
10994: END;
10995:
10996: IF l_debug_mode = 'Y' THEN
10997: pa_debug.g_err_stage := 'l_error_indicator_flag: ' || l_error_indicator_flag;
10998: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10999: END IF;
11000:
11001: --DEBUG_NS('l_error_indicator_flag :: '|| l_error_indicator_flag);
10994: END;
10995:
10996: IF l_debug_mode = 'Y' THEN
10997: pa_debug.g_err_stage := 'l_error_indicator_flag: ' || l_error_indicator_flag;
10998: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10999: END IF;
11000:
11001: --DEBUG_NS('l_error_indicator_flag :: '|| l_error_indicator_flag);
11002:
11002:
11003: --log1('----- STAGE 10-------');
11004: IF l_error_indicator_flag = 'X' THEN
11005: IF l_debug_mode = 'Y' THEN
11006: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
11007: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11008: END IF;
11009:
11010: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11003: --log1('----- STAGE 10-------');
11004: IF l_error_indicator_flag = 'X' THEN
11005: IF l_debug_mode = 'Y' THEN
11006: pa_debug.g_err_stage := 'Errors reported in the tmp tbl';
11007: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11008: END IF;
11009:
11010: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11011: END IF;
11024: x_msg_data => l_msg_data);
11025:
11026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11027: IF l_debug_mode = 'Y' THEN
11028: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
11029: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11030: END IF;
11031: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11032: END IF;
11025:
11026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11027: IF l_debug_mode = 'Y' THEN
11028: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
11029: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11030: END IF;
11031: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11032: END IF;
11033: END IF;
11131: x_success_msg := FND_MESSAGE.GET;
11132: END IF;
11133:
11134: IF l_debug_mode = 'Y' THEN
11135: pa_debug.reset_curr_function;
11136: END IF;
11137:
11138: RETURN;
11139:
11155:
11156: -- calling prepare_pbl_input to prepare inputs for the process_budget_lines api from data passed
11157: -- back from validate_budget_lines
11158: IF l_debug_mode = 'Y' THEN
11159: pa_debug.g_err_stage := 'Calling prepare_pbl_input';
11160: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11161: END IF;
11162: --log1('6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11163:
11156: -- calling prepare_pbl_input to prepare inputs for the process_budget_lines api from data passed
11157: -- back from validate_budget_lines
11158: IF l_debug_mode = 'Y' THEN
11159: pa_debug.g_err_stage := 'Calling prepare_pbl_input';
11160: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11161: END IF;
11162: --log1('6 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11163:
11164: l_spread_curve_id_tbl_1 := l_spread_curve_id_tbl;
11250: x_msg_data => l_msg_data);
11251:
11252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11253: IF l_debug_mode = 'Y' THEN
11254: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11256: END IF;
11257: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11258: END IF;
11251:
11252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11253: IF l_debug_mode = 'Y' THEN
11254: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11256: END IF;
11257: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11258: END IF;
11259:
11257: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11258: END IF;
11259:
11260: IF l_debug_mode = 'Y' THEN
11261: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11262: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11263: END IF;
11264: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11265: --log1('----- STAGE 12-------');
11258: END IF;
11259:
11260: IF l_debug_mode = 'Y' THEN
11261: pa_debug.g_err_stage := 'Call to prepare_pbl_input done';
11262: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11263: END IF;
11264: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11265: --log1('----- STAGE 12-------');
11266: -- calling process_budget_lines to commit the validated data in DB
11264: --log1('7 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11265: --log1('----- STAGE 12-------');
11266: -- calling process_budget_lines to commit the validated data in DB
11267: IF l_debug_mode = 'Y' THEN
11268: pa_debug.g_err_stage := 'Calling process_budget_lines';
11269: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11270: END IF;
11271:
11272: --Till this point all the DMLs would have been executed on PA_FP_WEBADI_UPLOAD_INF. In case of any error
11265: --log1('----- STAGE 12-------');
11266: -- calling process_budget_lines to commit the validated data in DB
11267: IF l_debug_mode = 'Y' THEN
11268: pa_debug.g_err_stage := 'Calling process_budget_lines';
11269: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11270: END IF;
11271:
11272: --Till this point all the DMLs would have been executed on PA_FP_WEBADI_UPLOAD_INF. In case of any error
11273: --those changes need not be rolled back. process_budget_lines API will update the core B/F tables and hence
11335: x_msg_data => l_msg_data);
11336: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11338: IF l_debug_mode = 'Y' THEN
11339: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11340: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11341: END IF;
11342: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11343: END IF;
11336: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11338: IF l_debug_mode = 'Y' THEN
11339: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11340: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11341: END IF;
11342: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11343: END IF;
11344: -- Bug 4431269: Clearing the global variables used in calculate api
11345: -- for error reporting purpose
11346: G_FP_WA_CALC_CALLING_CONTEXT := null;
11347:
11348: IF l_debug_mode = 'Y' THEN
11349: pa_debug.g_err_stage := 'Call to process_budget_lines done';
11350: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11351: END IF;
11352: --log1('10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11353: -- if the submit flag is passed as Y, then calling api to submit the version
11346: G_FP_WA_CALC_CALLING_CONTEXT := null;
11347:
11348: IF l_debug_mode = 'Y' THEN
11349: pa_debug.g_err_stage := 'Call to process_budget_lines done';
11350: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11351: END IF;
11352: --log1('10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11353: -- if the submit flag is passed as Y, then calling api to submit the version
11354: IF p_submit_budget_flag = 'Y' OR
11353: -- if the submit flag is passed as Y, then calling api to submit the version
11354: IF p_submit_budget_flag = 'Y' OR
11355: p_submit_forecast_flag = 'Y' THEN
11356: IF l_debug_mode = 'Y' THEN
11357: pa_debug.g_err_stage := 'Calling pa_fin_plan_pub.Submit_Current_Working';
11358: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11359: END IF;
11360: pa_fin_plan_pub.Submit_Current_Working
11361: (p_project_id => l_version_info_rec.x_project_id,
11354: IF p_submit_budget_flag = 'Y' OR
11355: p_submit_forecast_flag = 'Y' THEN
11356: IF l_debug_mode = 'Y' THEN
11357: pa_debug.g_err_stage := 'Calling pa_fin_plan_pub.Submit_Current_Working';
11358: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11359: END IF;
11360: pa_fin_plan_pub.Submit_Current_Working
11361: (p_project_id => l_version_info_rec.x_project_id,
11362: p_budget_version_id => l_budget_version_id,
11366: x_msg_data => l_msg_data);
11367:
11368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11369: IF l_debug_mode = 'Y' THEN
11370: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11372: END IF;
11373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11374: END IF;
11367:
11368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11369: IF l_debug_mode = 'Y' THEN
11370: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11372: END IF;
11373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11374: END IF;
11375: END IF;
11377: --log1('----- STAGE 13-------');
11378: -- If upload is successful then delete all the records
11379: -- from interface table
11380: IF l_debug_mode = 'Y' THEN
11381: pa_debug.g_err_stage := 'deleting from upload temp table';
11382: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
11383: END IF;
11384: --log1('12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11385:
11378: -- If upload is successful then delete all the records
11379: -- from interface table
11380: IF l_debug_mode = 'Y' THEN
11381: pa_debug.g_err_stage := 'deleting from upload temp table';
11382: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
11383: END IF;
11384: --log1('12 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11385:
11386: pa_fp_webadi_pkg.DELETE_XFACE
11393: COMMIT; /* to commit the data in DB after successful processing */
11394: --log1('14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11395: --log1('----- STAGE 14-------');
11396: IF l_debug_mode = 'Y' THEN
11397: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11399: pa_debug.reset_curr_function;
11400: END IF;
11401:
11394: --log1('14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11395: --log1('----- STAGE 14-------');
11396: IF l_debug_mode = 'Y' THEN
11397: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11399: pa_debug.reset_curr_function;
11400: END IF;
11401:
11402: --log1('----- Leaving Switcher api ------- '||x_return_status);
11395: --log1('----- STAGE 14-------');
11396: IF l_debug_mode = 'Y' THEN
11397: pa_debug.g_err_stage := 'Leaving pa_fp_webadi_pkg.switcher';
11398: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11399: pa_debug.reset_curr_function;
11400: END IF;
11401:
11402: --log1('----- Leaving Switcher api ------- '||x_return_status);
11403: --log1('End '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11404: EXCEPTION
11405:
11406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11407: IF l_debug_mode = 'Y' THEN
11408: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11410: pa_debug.g_err_stage := 'Checking for errors';
11411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11412: END IF;
11405:
11406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11407: IF l_debug_mode = 'Y' THEN
11408: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11410: pa_debug.g_err_stage := 'Checking for errors';
11411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11412: END IF;
11413:
11406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11407: IF l_debug_mode = 'Y' THEN
11408: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11410: pa_debug.g_err_stage := 'Checking for errors';
11411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11412: END IF;
11413:
11414: -- Bug 4431269: Clearing the global variables used in calculate api
11407: IF l_debug_mode = 'Y' THEN
11408: pa_debug.g_err_stage := 'Invalid Arg Exception Raised in Switcher';
11409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11410: pa_debug.g_err_stage := 'Checking for errors';
11411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11412: END IF;
11413:
11414: -- Bug 4431269: Clearing the global variables used in calculate api
11415: -- for error reporting purpose
11415: -- for error reporting purpose
11416: G_FP_WA_CALC_CALLING_CONTEXT := null;
11417: IF l_rollback_flag='Y' THEN
11418: IF l_debug_mode = 'Y' THEN
11419: pa_debug.g_err_stage := 'Rolling back to switcher';
11420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11421: END IF;
11422: ROLLBACK TO SWITCHER;
11423: IF l_debug_mode = 'Y' THEN
11416: G_FP_WA_CALC_CALLING_CONTEXT := null;
11417: IF l_rollback_flag='Y' THEN
11418: IF l_debug_mode = 'Y' THEN
11419: pa_debug.g_err_stage := 'Rolling back to switcher';
11420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11421: END IF;
11422: ROLLBACK TO SWITCHER;
11423: IF l_debug_mode = 'Y' THEN
11424: pa_debug.g_err_stage := 'Roll back to switcher done';
11420: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11421: END IF;
11422: ROLLBACK TO SWITCHER;
11423: IF l_debug_mode = 'Y' THEN
11424: pa_debug.g_err_stage := 'Roll back to switcher done';
11425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11426: END IF;
11427: END IF;
11428:
11421: END IF;
11422: ROLLBACK TO SWITCHER;
11423: IF l_debug_mode = 'Y' THEN
11424: pa_debug.g_err_stage := 'Roll back to switcher done';
11425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11426: END IF;
11427: END IF;
11428:
11429: -- checking if calculate has populated any errors in the global table
11468:
11469: x_return_status := FND_API.G_RET_STS_ERROR;
11470:
11471: IF l_debug_mode = 'Y' THEN
11472: pa_debug.reset_curr_function;
11473: END IF;
11474: RETURN;
11475:
11476: WHEN OTHERS THEN
11509:
11510: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11511: ,p_procedure_name => 'switcher');
11512: IF l_debug_mode = 'Y' THEN
11513: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11514: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11515: END IF;
11516:
11517: IF l_debug_mode = 'Y' THEN
11510: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11511: ,p_procedure_name => 'switcher');
11512: IF l_debug_mode = 'Y' THEN
11513: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11514: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11515: END IF;
11516:
11517: IF l_debug_mode = 'Y' THEN
11518: pa_debug.reset_curr_function;
11514: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
11515: END IF;
11516:
11517: IF l_debug_mode = 'Y' THEN
11518: pa_debug.reset_curr_function;
11519: END IF;
11520: RAISE;
11521:
11522: END switcher;
11586:
11587: BEGIN
11588: -- SAVEPOINT process_MSExcel_data;
11589: retcode:='0';
11590: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11591: l_debug_mode := NVL(l_debug_mode, 'Y');
11592: --log1('----- STAGE CR1-------');
11593: -- Set curr function
11594: IF l_debug_mode='Y' THEN
11591: l_debug_mode := NVL(l_debug_mode, 'Y');
11592: --log1('----- STAGE CR1-------');
11593: -- Set curr function
11594: IF l_debug_mode='Y' THEN
11595: pa_debug.set_curr_function(
11596: p_function =>'PAFPWAPB.process_MSExcel_data'
11597: ,p_debug_mode => l_debug_mode );
11598: END IF;
11599:
11622: AND fin.fin_plan_type_id = pbv.fin_plan_type_id;
11623:
11624: --log1('----- STAGE CR3-------');
11625: IF l_debug_mode='Y' THEN
11626: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11627: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11628:
11629: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11630: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11623:
11624: --log1('----- STAGE CR3-------');
11625: IF l_debug_mode='Y' THEN
11626: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11627: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11628:
11629: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11630: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11631:
11625: IF l_debug_mode='Y' THEN
11626: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11627: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11628:
11629: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11630: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11631:
11632: END IF;
11633: --log1('----- STAGE CR4-------');
11626: pa_debug.g_err_stage:='l_request_id '||l_request_id;
11627: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11628:
11629: pa_debug.g_err_stage:='Callng update_xl_data_for_new_req';
11630: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
11631:
11632: END IF;
11633: --log1('----- STAGE CR4-------');
11634: update_xl_data_for_new_req
11663: --log1('----- STAGE CR8-------');
11664: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11665: --log1('----- STAGE CR9-------');
11666: IF l_debug_mode = 'Y' THEN
11667: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11668: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11669: END IF;
11670: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11671: END IF;
11664: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11665: --log1('----- STAGE CR9-------');
11666: IF l_debug_mode = 'Y' THEN
11667: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11668: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11669: END IF;
11670: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11671: END IF;
11672:
11679:
11680: COMMIT; -- is required to query the interface table from conc prog.
11681: --log1('----- STAGE 10-------');
11682: IF l_debug_mode = 'Y' THEN
11683: pa_debug.reset_curr_function;
11684: END IF;
11685:
11686: EXCEPTION
11687: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11705: --log1('----- STAGE CR10-------');
11706: -- preparing an output error log to display all the validation failures, if any,
11707: -- corresponding to a particular record in the interface table
11708: IF l_debug_mode = 'Y' THEN
11709: --Before calling pa_debug.write_file we shd call pa_debug.set_process if we want write_file to write to the log file.
11710: pa_debug.set_process( x_process => 'PLSQL'
11711: ,x_write_file => 'LOG'
11712: ,x_debug_mode => l_debug_mode
11713: );
11706: -- preparing an output error log to display all the validation failures, if any,
11707: -- corresponding to a particular record in the interface table
11708: IF l_debug_mode = 'Y' THEN
11709: --Before calling pa_debug.write_file we shd call pa_debug.set_process if we want write_file to write to the log file.
11710: pa_debug.set_process( x_process => 'PLSQL'
11711: ,x_write_file => 'LOG'
11712: ,x_debug_mode => l_debug_mode
11713: );
11714: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11710: pa_debug.set_process( x_process => 'PLSQL'
11711: ,x_write_file => 'LOG'
11712: ,x_debug_mode => l_debug_mode
11713: );
11714: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11715: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11716: pa_debug.g_err_stage := '------------------------------------------------------------------';
11717: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11718:
11711: ,x_write_file => 'LOG'
11712: ,x_debug_mode => l_debug_mode
11713: );
11714: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11715: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11716: pa_debug.g_err_stage := '------------------------------------------------------------------';
11717: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11718:
11719: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11712: ,x_debug_mode => l_debug_mode
11713: );
11714: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11715: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11716: pa_debug.g_err_stage := '------------------------------------------------------------------';
11717: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11718:
11719: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11720: LOOP
11713: );
11714: pa_debug.g_err_stage := '- Task Number/Task Name, Resource, Currency, Amount Type, Error - ';
11715: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11716: pa_debug.g_err_stage := '------------------------------------------------------------------';
11717: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11718:
11719: OPEN l_get_error_msg_to_report_csr(p_run_id, l_plan_class_code, l_version_type, l_request_id);
11720: LOOP
11721: FETCH l_get_error_msg_to_report_csr
11723:
11724: --EXIT WHEN l_error_info_rec.task_info IS NULL; --Bug 8839857
11725: EXIT when l_get_error_msg_to_report_csr%NOTFOUND; --Bug 8839857
11726:
11727: pa_debug.g_err_stage := l_error_info_rec.task_info || ', ' || l_error_info_rec.resource_info || ', ' ||
11728: l_error_info_rec.currency || ', ' || l_error_info_rec.amount_type || ', ' ||
11729: l_error_info_rec.error;
11730: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11731: END LOOP;
11726:
11727: pa_debug.g_err_stage := l_error_info_rec.task_info || ', ' || l_error_info_rec.resource_info || ', ' ||
11728: l_error_info_rec.currency || ', ' || l_error_info_rec.amount_type || ', ' ||
11729: l_error_info_rec.error;
11730: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11731: END LOOP;
11732: CLOSE l_get_error_msg_to_report_csr;
11733:
11734: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11732: CLOSE l_get_error_msg_to_report_csr;
11733:
11734: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11735: --program log in addition to the interface table.
11736: pa_debug.g_err_stage := '-----------------Additional Errors--------------------------------';
11737: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11738: FOR msg_count IN 1 .. l_msg_count
11739: LOOP
11740: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11733:
11734: --Bug 4504482: Added code to read the msg stack and populate the concurrent
11735: --program log in addition to the interface table.
11736: pa_debug.g_err_stage := '-----------------Additional Errors--------------------------------';
11737: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11738: FOR msg_count IN 1 .. l_msg_count
11739: LOOP
11740: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11741: p_msg_out => l_data);
11738: FOR msg_count IN 1 .. l_msg_count
11739: LOOP
11740: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11741: p_msg_out => l_data);
11742: pa_debug.g_err_stage := l_data;
11743: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11744: END LOOP;
11745:
11746: END IF;
11739: LOOP
11740: PA_UTILS.Get_Encoded_Msg(p_index => msg_count,
11741: p_msg_out => l_data);
11742: pa_debug.g_err_stage := l_data;
11743: pa_debug.write_file('LOG', pa_debug.g_err_stage);
11744: END LOOP;
11745:
11746: END IF;
11747:
11745:
11746: END IF;
11747:
11748: IF l_debug_mode = 'Y' THEN
11749: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11750: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11751: -- reset curr function
11752: pa_debug.reset_curr_function();
11753: END IF;
11746: END IF;
11747:
11748: IF l_debug_mode = 'Y' THEN
11749: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11750: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11751: -- reset curr function
11752: pa_debug.reset_curr_function();
11753: END IF;
11754: --log1('----- STAGE CR11-------');
11748: IF l_debug_mode = 'Y' THEN
11749: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
11750: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11751: -- reset curr function
11752: pa_debug.reset_curr_function();
11753: END IF;
11754: --log1('----- STAGE CR11-------');
11755: update_xl_data_for_new_req
11756: (p_request_id => l_request_id,
11771: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11772: ,p_procedure_name => 'process_MSExcel_data');
11773:
11774: IF l_debug_mode = 'Y' THEN
11775: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11776: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11777: -- reset curr function
11778: pa_debug.Reset_Curr_Function();
11779: END IF;
11772: ,p_procedure_name => 'process_MSExcel_data');
11773:
11774: IF l_debug_mode = 'Y' THEN
11775: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11776: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11777: -- reset curr function
11778: pa_debug.Reset_Curr_Function();
11779: END IF;
11780: retcode := '2';
11774: IF l_debug_mode = 'Y' THEN
11775: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11776: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11777: -- reset curr function
11778: pa_debug.Reset_Curr_Function();
11779: END IF;
11780: retcode := '2';
11781:
11782: update_xl_data_for_new_req
11876: x NUMBER := 1;
11877: BEGIN
11878: x_msg_count := 0;
11879: x_return_status := FND_API.G_RET_STS_SUCCESS;
11880: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11881:
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11884: p_debug_mode => l_debug_mode);
11879: x_return_status := FND_API.G_RET_STS_SUCCESS;
11880: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11881:
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11884: p_debug_mode => l_debug_mode);
11885: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11886: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11887: END IF;
11881:
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11884: p_debug_mode => l_debug_mode);
11885: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11886: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11884: p_debug_mode => l_debug_mode);
11885: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.GET_PERIOD_INFORMATION';
11886: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11890: pa_debug.g_err_stage := 'Validating Input parameters';
11886: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11890: pa_debug.g_err_stage := 'Validating Input parameters';
11891: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11892: END IF;
11893:
11894: IF p_period_mask_id IS NULL THEN
11887: END IF;
11888: --Validation is done for the input parameters.
11889: IF l_debug_mode = 'Y' THEN
11890: pa_debug.g_err_stage := 'Validating Input parameters';
11891: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11892: END IF;
11893:
11894: IF p_period_mask_id IS NULL THEN
11895: IF l_debug_mode = 'Y' THEN
11892: END IF;
11893:
11894: IF p_period_mask_id IS NULL THEN
11895: IF l_debug_mode = 'Y' THEN
11896: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11897: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11898: END IF;
11899: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11900: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11893:
11894: IF p_period_mask_id IS NULL THEN
11895: IF l_debug_mode = 'Y' THEN
11896: pa_debug.g_err_stage := 'p_period_mask_id is passed as null';
11897: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11898: END IF;
11899: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11900: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11901: p_token1 => 'PROCEDURENAME',
11904: END IF;
11905:
11906: IF p_time_phased_code IS NULL THEN
11907: IF l_debug_mode = 'Y' THEN
11908: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11909: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11910: END IF;
11911: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11912: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11905:
11906: IF p_time_phased_code IS NULL THEN
11907: IF l_debug_mode = 'Y' THEN
11908: pa_debug.g_err_stage := 'p_time_phased_code is passed as null';
11909: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11910: END IF;
11911: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11912: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11913: p_token1 => 'PROCEDURENAME',
11916: END IF;
11917:
11918: IF p_org_id IS NULL THEN
11919: IF l_debug_mode = 'Y' THEN
11920: pa_debug.g_err_stage := 'p_org_id is passed as null';
11921: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11922: END IF;
11923: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11924: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11917:
11918: IF p_org_id IS NULL THEN
11919: IF l_debug_mode = 'Y' THEN
11920: pa_debug.g_err_stage := 'p_org_id is passed as null';
11921: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11922: END IF;
11923: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11924: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11925: p_token1 => 'PROCEDURENAME',
11928: END IF;
11929:
11930: IF p_current_planning_period IS NULL THEN
11931: IF l_debug_mode = 'Y' THEN
11932: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11933: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11934: END IF;
11935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11929:
11930: IF p_current_planning_period IS NULL THEN
11931: IF l_debug_mode = 'Y' THEN
11932: pa_debug.g_err_stage := 'p_current_planning_period is passed as null';
11933: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11934: END IF;
11935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11936: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11937: p_token1 => 'PROCEDURENAME',
11946: FETCH period_mask_cur BULK COLLECT INTO l_period_mask_tbl;
11947: CLOSE period_mask_cur;
11948: IF l_period_mask_tbl.count = 0 THEN
11949: IF l_debug_mode = 'Y' THEN
11950: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11951: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11952: END IF;
11953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11954: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11947: CLOSE period_mask_cur;
11948: IF l_period_mask_tbl.count = 0 THEN
11949: IF l_debug_mode = 'Y' THEN
11950: pa_debug.g_err_stage := 'Period Mask Details not found for the budget version';
11951: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11952: END IF;
11953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11954: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11955: p_token1 => 'PROCEDURENAME',
11982: END IF;
11983: END LOOP;
11984: ELSE
11985: IF l_debug_mode = 'Y' THEN
11986: pa_debug.g_err_stage := 'Period information not found for the budget version';
11987: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11988: END IF;
11989: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11990: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11983: END LOOP;
11984: ELSE
11985: IF l_debug_mode = 'Y' THEN
11986: pa_debug.g_err_stage := 'Period information not found for the budget version';
11987: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11988: END IF;
11989: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11990: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11991: p_token1 => 'PROCEDURENAME',
12035: x_msg_count := l_msg_count;
12036: END IF;
12037: x_return_status := FND_API.G_RET_STS_ERROR;
12038: IF l_debug_mode = 'Y' THEN
12039: pa_debug.reset_curr_function;
12040: END IF;
12041: RETURN;
12042:
12043: WHEN OTHERS THEN
12046: x_msg_data := SQLERRM;
12047: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12048: ,p_procedure_name => 'get_period_information');
12049: IF l_debug_mode = 'Y' THEN
12050: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12052: pa_debug.reset_curr_function;
12053: END IF;
12054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12047: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12048: ,p_procedure_name => 'get_period_information');
12049: IF l_debug_mode = 'Y' THEN
12050: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12052: pa_debug.reset_curr_function;
12053: END IF;
12054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12055: END GET_PERIOD_INFORMATION;
12048: ,p_procedure_name => 'get_period_information');
12049: IF l_debug_mode = 'Y' THEN
12050: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12052: pa_debug.reset_curr_function;
12053: END IF;
12054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12055: END GET_PERIOD_INFORMATION;
12056:
12312:
12313: BEGIN
12314: x_msg_count := 0;
12315: x_return_status := FND_API.G_RET_STS_SUCCESS;
12316: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12317:
12318:
12319: IF l_debug_mode = 'Y' THEN
12320: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12316: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12317:
12318:
12319: IF l_debug_mode = 'Y' THEN
12320: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12321: ,p_debug_mode => l_debug_mode );
12322: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12324: END IF;
12318:
12319: IF l_debug_mode = 'Y' THEN
12320: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12321: ,p_debug_mode => l_debug_mode );
12322: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12324: END IF;
12325:
12326: l_budget_version_id := p_budget_version_id;
12319: IF l_debug_mode = 'Y' THEN
12320: pa_debug.set_curr_function( p_function => 'INSERT_PERIODIC_TMP_TABLE'
12321: ,p_debug_mode => l_debug_mode );
12322: pa_debug.g_err_stage := ':In pa_fp_webadi_pkg.INSERT_PERIODIC_TMP_TABLE' ;
12323: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12324: END IF;
12325:
12326: l_budget_version_id := p_budget_version_id;
12327:
12330:
12331: --Validating Input Parameters.
12332: IF p_budget_version_id IS NULL THEN
12333: IF l_debug_mode = 'Y' THEN
12334: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12335: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12336: END IF;
12337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12338: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12331: --Validating Input Parameters.
12332: IF p_budget_version_id IS NULL THEN
12333: IF l_debug_mode = 'Y' THEN
12334: pa_debug.g_err_stage := 'p_budget_version_id is passed as null';
12335: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12336: END IF;
12337: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12338: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12339: p_token1 => 'PROCEDURENAME',
12340: p_value1 => l_module_name);
12341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12342: ELSE
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Fetching Project Information of 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:
12348: --Fetching Project Information of the budget version and storing them in local variables.
12341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12342: ELSE
12343: IF l_debug_mode = 'Y' THEN
12344: pa_debug.g_err_stage := 'Fetching Project Information of 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:
12348: --Fetching Project Information of the budget version and storing them in local variables.
12349: BEGIN
12361: AND pbv.project_id = ppa.project_id;
12362: EXCEPTION
12363: WHEN NO_DATA_FOUND THEN
12364: IF l_debug_mode = 'Y' THEN
12365: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12366: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12367: END IF;
12368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12369: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12362: EXCEPTION
12363: WHEN NO_DATA_FOUND THEN
12364: IF l_debug_mode = 'Y' THEN
12365: pa_debug.g_err_stage := 'Error getting Project Information for the budget version';
12366: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12367: END IF;
12368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12369: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12370: p_token1 => 'PROCEDURENAME',
12372: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12373: END;
12374: END IF;
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12373: END;
12374: END IF;
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12381:
12374: END IF;
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12381:
12382: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12375: IF l_debug_mode = 'Y' THEN
12376: pa_debug.g_err_stage := '-----Project Id : '||l_project_id||'-----';
12377: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12378: pa_debug.g_err_stage := 'Getting Budget Version Details';
12379: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12380: END IF;
12381:
12382: /*Getting Budget Version Details by calling the GET_PLAN_VERSION_DTLS api.
12383: The returned PL/SQL record l_version_info will contain the budget version details
12390: x_msg_data => l_msg_data);
12391:
12392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12393: IF l_debug_mode = 'Y' THEN
12394: pa_debug.g_err_stage := 'Budget Version Details not found';
12395: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12396: END IF;
12397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12398: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12391:
12392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12393: IF l_debug_mode = 'Y' THEN
12394: pa_debug.g_err_stage := 'Budget Version Details not found';
12395: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12396: END IF;
12397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12398: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12399: p_token1 => 'PROCEDURENAME',
12402: END IF;
12403:
12404: --Getting Structure Version Details and storing them in local variables.
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12407: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12408: END IF;
12409: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12410: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12403:
12404: --Getting Structure Version Details and storing them in local variables.
12405: IF l_debug_mode = 'Y' THEN
12406: pa_debug.g_err_stage := 'Getting the Structure version information of the budget version';
12407: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12408: END IF;
12409: l_project_structure_version_id := l_version_info_rec.x_project_structure_version_id;
12410: l_struct_status_flag := PA_PROJECT_STRUCTURE_UTILS.check_struc_ver_published(l_project_id,
12411: l_project_structure_version_id);
12418: */
12419: /* --Bug 5144013.
12420: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12421: IF l_debug_mode = 'Y' THEN
12422: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12423: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12424: END IF;
12425: BEGIN
12426: SELECT ci_id,
12419: /* --Bug 5144013.
12420: --Getting CI Id and Approved Revenue Flag of the budget version and storing them in local variables.
12421: IF l_debug_mode = 'Y' THEN
12422: pa_debug.g_err_stage := 'Getting CI id and Approved Revenue flag of the budget version';
12423: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12424: END IF;
12425: BEGIN
12426: SELECT ci_id,
12427: approved_rev_plan_type_flag
12431: WHERE budget_version_id = l_budget_version_id;
12432: EXCEPTION
12433: WHEN NO_DATA_FOUND THEN
12434: IF l_debug_mode = 'Y' THEN
12435: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12437: END IF;
12438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12439: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12432: EXCEPTION
12433: WHEN NO_DATA_FOUND THEN
12434: IF l_debug_mode = 'Y' THEN
12435: pa_debug.g_err_stage := 'Error getting CI Id and Approved Revenue flag for the budget version';
12436: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12437: END IF;
12438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12439: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12440: p_token1 => 'PROCEDURENAME',
12441: p_value1 => l_module_name);
12442: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12443: END;
12444: IF l_debug_mode = 'Y' THEN
12445: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12447: END IF;
12448: */ --Bug 5144013.
12449:
12442: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12443: END;
12444: IF l_debug_mode = 'Y' THEN
12445: pa_debug.g_err_stage := '-----CI Id : '||l_ci_id||' , Approved Revenue Flag : '||l_AR_flag||'-----';
12446: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12447: END IF;
12448: */ --Bug 5144013.
12449:
12450: /*Getting the Agreement Details of the budget version if the budget version is CI version and and of
12451: Approved Revenue Plan Type.
12452: */
12453: /* --Bug 5144013.
12454: IF l_debug_mode = 'Y' THEN
12455: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12457: END IF;
12458: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12459: PA_FIN_PLAN_UTILS2.get_agreement_details(
12452: */
12453: /* --Bug 5144013.
12454: IF l_debug_mode = 'Y' THEN
12455: pa_debug.g_err_stage := 'Getting Agreement details if the budget versions is CI version and of Approved Revenue plan type';
12456: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12457: END IF;
12458: IF l_ci_id is not null AND L_AR_FLAG = 'Y' THEN
12459: PA_FIN_PLAN_UTILS2.get_agreement_details(
12460: p_budget_version_id => l_budget_version_id,
12463: x_agr_conv_reqd_flag => l_agr_conv_reqd_flag,
12464: x_return_status => l_return_status);
12465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12466: IF l_debug_mode = 'Y' THEN
12467: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12468: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12469: END IF;
12470: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12471: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12464: x_return_status => l_return_status);
12465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12466: IF l_debug_mode = 'Y' THEN
12467: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12468: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12469: END IF;
12470: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12471: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12472: p_token1 => 'PROCEDURENAME',
12474: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12475: END IF;
12476: END IF;
12477: IF l_debug_mode = 'Y' THEN
12478: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12479: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12480: END IF;
12481: */ --Bug 5144013.
12482:
12475: END IF;
12476: END IF;
12477: IF l_debug_mode = 'Y' THEN
12478: pa_debug.g_err_stage := '-----Agreement Currency Code : '||l_agr_curr_code||'-----';
12479: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12480: END IF;
12481: */ --Bug 5144013.
12482:
12483: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12483: /*Getting Plan Settings level information of the budget version and storing them in a PL/SQL record.
12484: The record l_proj_fp_options_rec will contain Plan Settings level information
12485: */
12486: IF l_debug_mode = 'Y' THEN
12487: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12488: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12489: END IF;
12490: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12491: l_version_type := l_version_info_rec.x_version_type;
12484: The record l_proj_fp_options_rec will contain Plan Settings level information
12485: */
12486: IF l_debug_mode = 'Y' THEN
12487: pa_debug.g_err_stage := 'Getting Plan Settings level information of the budget version';
12488: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12489: END IF;
12490: l_fin_plan_type_id := l_version_info_rec.x_fin_plan_type_id;
12491: l_version_type := l_version_info_rec.x_version_type;
12492: l_proj_fp_options_id := l_version_info_rec.x_proj_fp_options_id;
12509: WHERE proj_fp_options_id = l_proj_fp_options_id;
12510: EXCEPTION
12511: WHEN NO_DATA_FOUND THEN
12512: IF l_debug_mode = 'Y' THEN
12513: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12514: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12515: END IF;
12516: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12517: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12510: EXCEPTION
12511: WHEN NO_DATA_FOUND THEN
12512: IF l_debug_mode = 'Y' THEN
12513: pa_debug.g_err_stage := 'error getting Plan Settings level information of the budget version';
12514: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12515: END IF;
12516: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12517: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12518: p_token1 => 'PROCEDURENAME',
12525: associated with the budget version.
12526: */
12527: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12528: IF l_debug_mode = 'Y' THEN
12529: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12530: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12531: END IF;
12532: BEGIN
12533: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12526: */
12527: l_plan_class_code := l_version_info_rec.x_plan_class_code;
12528: IF l_debug_mode = 'Y' THEN
12529: pa_debug.g_err_stage := 'Getting Amount Types associated with the budget version';
12530: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12531: END IF;
12532: BEGIN
12533: OPEN amt_type_cur(l_project_id,l_fin_plan_type_id,l_version_type,l_plan_class_code);
12534: FETCH amt_type_cur
12535: BULK COLLECT INTO l_amt_type_tbl;
12536: CLOSE amt_type_cur;
12537: IF l_amt_type_tbl.count = 0 THEN
12538: IF l_debug_mode = 'Y' THEN
12539: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12540: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12541: END IF;
12542: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12543: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12536: CLOSE amt_type_cur;
12537: IF l_amt_type_tbl.count = 0 THEN
12538: IF l_debug_mode = 'Y' THEN
12539: pa_debug.g_err_stage := 'No Amount Types found for the budget version';
12540: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12541: END IF;
12542: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12543: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12544: p_token1 => 'PROCEDURENAME',
12555: l_time_phased_code := l_version_info_rec.x_time_phased_code;
12556: l_org_id := l_version_info_rec.x_org_id;
12557: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12558: IF l_debug_mode = 'Y' THEN
12559: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12560: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12561: END IF;
12562: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12563: p_time_phased_code => l_time_phased_code,
12556: l_org_id := l_version_info_rec.x_org_id;
12557: l_current_planning_period := l_version_info_rec.x_current_planning_period;
12558: IF l_debug_mode = 'Y' THEN
12559: pa_debug.g_err_stage := 'Getting Group Period Information and Start/End dates of the periods';
12560: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12561: END IF;
12562: GET_PERIOD_INFORMATION(p_period_mask_id => l_period_mask_id,
12563: p_time_phased_code => l_time_phased_code,
12564: p_org_id => l_org_id,
12569: x_msg_data => l_msg_data);
12570:
12571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12572: IF l_debug_mode = 'Y' THEN
12573: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12574: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12575: END IF;
12576: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12570:
12571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12572: IF l_debug_mode = 'Y' THEN
12573: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12574: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12575: END IF;
12576: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12577: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12578: p_token1 => 'PROCEDURENAME',
12580: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12581: END IF;
12582: IF l_periods_tbl.count = 0 THEN
12583: IF l_debug_mode = 'Y' THEN
12584: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12585: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12586: END IF;
12587: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12588: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12581: END IF;
12582: IF l_periods_tbl.count = 0 THEN
12583: IF l_debug_mode = 'Y' THEN
12584: pa_debug.g_err_stage := 'Period Informations not found for the budget version';
12585: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12586: END IF;
12587: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12588: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12589: p_token1 => 'PROCEDURENAME',
12605: l_projfunc_currency_code := l_version_info_rec.x_projfunc_currency_code;
12606: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12607: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12608: IF l_debug_mode = 'Y' THEN
12609: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12610: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12611: END IF;
12612:
12613: BEGIN
12606: l_project_currency_code := l_version_info_rec.x_project_currency_code;
12607: l_multi_curr_flag := l_version_info_rec.x_plan_in_multi_curr_flag;
12608: IF l_debug_mode = 'Y' THEN
12609: pa_debug.g_err_stage := 'Getting Transaction Currency rates associated with the budget version';
12610: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12611: END IF;
12612:
12613: BEGIN
12614: */ --Bug 5144013.
12649: and pbl.txn_currency_code = pftc.txn_currency_code;
12650:
12651: IF l_txn_curr_tbl.count = 0 THEN
12652: IF l_debug_mode = 'Y' THEN
12653: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12655: END IF;
12656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12657: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12650:
12651: IF l_txn_curr_tbl.count = 0 THEN
12652: IF l_debug_mode = 'Y' THEN
12653: pa_debug.g_err_stage := 'No transaction currency found for the budget version';
12654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12655: END IF;
12656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12657: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12658: p_token1 => 'PROCEDURENAME',
12667: The PL/SQL table l_res_ass_tbl will contain all the Resource Assignment
12668: information associated with the budget version.
12669: */
12670: IF l_debug_mode = 'Y' THEN
12671: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12672: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12673: END IF;
12674: BEGIN
12675: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12668: information associated with the budget version.
12669: */
12670: IF l_debug_mode = 'Y' THEN
12671: pa_debug.g_err_stage := 'Getting the Resource Assignment details of the budget version';
12672: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12673: END IF;
12674: BEGIN
12675: /* Start of coding done for bug 5641300: Using the bulk collect logic instead of for loop
12676: as res_ass_tbl is converted to ordinary pl/sql table from index by pl/sql table.
12687: CLOSE res_ass_cur;
12688: /* End of coding done for bug 5641300.*/
12689: IF l_res_ass_tbl.count = 0 THEN
12690: IF l_debug_mode = 'Y' THEN
12691: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12692: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12693: END IF;
12694: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12695: /*
12688: /* End of coding done for bug 5641300.*/
12689: IF l_res_ass_tbl.count = 0 THEN
12690: IF l_debug_mode = 'Y' THEN
12691: pa_debug.g_err_stage := 'No Resource Assignments found for the budget version';
12692: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12693: END IF;
12694: -- Bug 5360205: Commented out the following and raised NO_RA_EXC.
12695: /*
12696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12707: /*Getting the values of all the Amount Types for each Resource Assignment and Transaction
12708: Currency combination for all the periods associated with the budget version
12709: */
12710: IF l_debug_mode = 'Y' THEN
12711: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12712: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12713: END IF;
12714: BEGIN
12715: l_global_tmp_tbl := global_tmp_tbl();
12708: Currency combination for all the periods associated with the budget version
12709: */
12710: IF l_debug_mode = 'Y' THEN
12711: pa_debug.g_err_stage := 'Getting Amounts of all the Periods associated with the budget version';
12712: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12713: END IF;
12714: BEGIN
12715: l_global_tmp_tbl := global_tmp_tbl();
12716: l_global_tmp_rec.budget_version_id := l_budget_version_id;
12963: /*Populating Global Temparory Table pa_fp_webadi_xface_tmp using the PL/SQL
12964: table l_global_tmp_tbl which contains all the budget line details.
12965: */
12966: IF l_debug_mode = 'Y' THEN
12967: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12969: END IF;
12970: BEGIN
12971: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12964: table l_global_tmp_tbl which contains all the budget line details.
12965: */
12966: IF l_debug_mode = 'Y' THEN
12967: pa_debug.g_err_stage := 'Before inerting into Global Temporary Table';
12968: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12969: END IF;
12970: BEGIN
12971: /* FOR tmp IN l_global_tmp_tbl.first..l_global_tmp_tbl.last
12972: LOOP
12981: WHEN OTHERS THEN
12982: RAISE;
12983: END;
12984: IF l_debug_mode = 'Y' THEN
12985: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12986: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12987: END IF;
12988: --Resetting the value of the Global PL/SQL table to NULL.
12989: l_global_tmp_tbl := null;
12982: RAISE;
12983: END;
12984: IF l_debug_mode = 'Y' THEN
12985: pa_debug.g_err_stage := 'Finished inserting into Global temparory table';
12986: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12987: END IF;
12988: --Resetting the value of the Global PL/SQL table to NULL.
12989: l_global_tmp_tbl := null;
12990:
13005: x_msg_count := l_msg_count;
13006: END IF;
13007: x_return_status := FND_API.G_RET_STS_ERROR;
13008: IF l_debug_mode = 'Y' THEN
13009: pa_debug.reset_curr_function;
13010: END IF;
13011: RETURN;
13012:
13013: -- Bug 5360205: Added NO_RA_EXC block.
13016: --bug#12703175
13017: INSERT INTO pa_fp_webadi_xface_tmp (BUDGET_VERSION_ID, PROJECT_ID, PROJECT_NAME, PROJECT_NUMBER, RECORD_VERSION_NUMBER)
13018: VALUES (l_budget_version_id, l_project_id, l_project_name, l_project_number, l_rec_version_number);
13019: IF l_debug_mode = 'Y' THEN
13020: pa_debug.reset_curr_function;
13021: END IF;
13022: RETURN;
13023:
13024: WHEN OTHERS THEN
13027: x_msg_data := SQLERRM;
13028: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
13029: ,p_procedure_name => 'insert_periodic_tmp_table');
13030: IF l_debug_mode = 'Y' THEN
13031: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
13032: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
13033: pa_debug.reset_curr_function;
13034: END IF;
13035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13028: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
13029: ,p_procedure_name => 'insert_periodic_tmp_table');
13030: IF l_debug_mode = 'Y' THEN
13031: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
13032: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
13033: pa_debug.reset_curr_function;
13034: END IF;
13035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13036:
13029: ,p_procedure_name => 'insert_periodic_tmp_table');
13030: IF l_debug_mode = 'Y' THEN
13031: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
13032: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
13033: pa_debug.reset_curr_function;
13034: END IF;
13035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13036:
13037: