503: CAL_PARAMETERS_INVALID EXCEPTION;
504: l_str varchar2(2000);
505: BEGIN
506:
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: (
510: FND_LOG.LEVEL_PROCEDURE,
511: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.begin',
504: l_str varchar2(2000);
505: BEGIN
506:
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: (
510: FND_LOG.LEVEL_PROCEDURE,
511: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.begin',
512: 'Entering FPA_Utilities_Pvt.load_gl_calendar'
506:
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: (
510: FND_LOG.LEVEL_PROCEDURE,
511: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.begin',
512: 'Entering FPA_Utilities_Pvt.load_gl_calendar'
513: );
514: END IF;
532: dbms_aw.execute('UPDATE');
533: COMMIT;
534: END IF;
535:
536: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
537: FND_LOG.String
538: (
539: FND_LOG.LEVEL_PROCEDURE,
540: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.end',
533: COMMIT;
534: END IF;
535:
536: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
537: FND_LOG.String
538: (
539: FND_LOG.LEVEL_PROCEDURE,
540: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.end',
541: 'Entering FPA_Utilities_Pvt.load_gl_calendar'
535:
536: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
537: FND_LOG.String
538: (
539: FND_LOG.LEVEL_PROCEDURE,
540: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar.end',
541: 'Entering FPA_Utilities_Pvt.load_gl_calendar'
542: );
543: END IF;
547: WHEN OTHERS then
548:
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550:
551: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_ERROR,
555: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar',
548:
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550:
551: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_ERROR,
555: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar',
556: SQLERRM
550:
551: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_ERROR,
555: 'fpa.sql.FPA_Utilities_Pvt.load_gl_calendar',
556: SQLERRM
557: );
558: END IF;
572: l_scenario_count number;
573: l_scen_recommended varchar2(1);
574: BEGIN
575:
576: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
577: FND_LOG.String
578: (
579: FND_LOG.LEVEL_PROCEDURE,
580: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.start',
573: l_scen_recommended varchar2(1);
574: BEGIN
575:
576: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
577: FND_LOG.String
578: (
579: FND_LOG.LEVEL_PROCEDURE,
580: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.start',
581: 'Entering FPA_Utils_Pvt.scenarios_recommended'
575:
576: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
577: FND_LOG.String
578: (
579: FND_LOG.LEVEL_PROCEDURE,
580: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.start',
581: 'Entering FPA_Utils_Pvt.scenarios_recommended'
582: );
583: END IF;
593: else
594: l_scen_recommended := 'F';
595: end if;
596:
597: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
598: FND_LOG.String
599: (
600: FND_LOG.LEVEL_PROCEDURE,
601: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.end',
594: l_scen_recommended := 'F';
595: end if;
596:
597: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
598: FND_LOG.String
599: (
600: FND_LOG.LEVEL_PROCEDURE,
601: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.end',
602: 'Exiting FPA_Utils_Pvt.scenarios_recommended'
596:
597: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
598: FND_LOG.String
599: (
600: FND_LOG.LEVEL_PROCEDURE,
601: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended.end',
602: 'Exiting FPA_Utils_Pvt.scenarios_recommended'
603: );
604: END IF;
608:
609: EXCEPTION
610:
611: WHEN OTHERS then
612: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
613: FND_LOG.String
614: (
615: FND_LOG.LEVEL_ERROR,
616: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended',
609: EXCEPTION
610:
611: WHEN OTHERS then
612: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
613: FND_LOG.String
614: (
615: FND_LOG.LEVEL_ERROR,
616: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended',
617: SQLERRM
611: WHEN OTHERS then
612: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
613: FND_LOG.String
614: (
615: FND_LOG.LEVEL_ERROR,
616: 'fpa.sql.FPA_Utils_Pvt.scenarios_recommended',
617: SQLERRM
618: );
619: END IF;
628: l_scenario_count number;
629: l_scen_approved varchar2(1) := 'F';
630: BEGIN
631:
632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
633: FND_LOG.String
634: (
635: FND_LOG.LEVEL_PROCEDURE,
636: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.start',
629: l_scen_approved varchar2(1) := 'F';
630: BEGIN
631:
632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
633: FND_LOG.String
634: (
635: FND_LOG.LEVEL_PROCEDURE,
636: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.start',
637: 'Entering FPA_Utils_Pvt.scenario_approved'
631:
632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
633: FND_LOG.String
634: (
635: FND_LOG.LEVEL_PROCEDURE,
636: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.start',
637: 'Entering FPA_Utils_Pvt.scenario_approved'
638: );
639: END IF;
649: else
650: l_scen_approved := 'F';
651: end if;
652:
653: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
654: FND_LOG.String
655: (
656: FND_LOG.LEVEL_PROCEDURE,
657: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.end',
650: l_scen_approved := 'F';
651: end if;
652:
653: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
654: FND_LOG.String
655: (
656: FND_LOG.LEVEL_PROCEDURE,
657: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.end',
658: 'Exiting FPA_Utils_Pvt.scenario_approved'
652:
653: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
654: FND_LOG.String
655: (
656: FND_LOG.LEVEL_PROCEDURE,
657: 'fpa.sql.FPA_Utils_Pvt.scenario_approved.end',
658: 'Exiting FPA_Utils_Pvt.scenario_approved'
659: );
660: END IF;
664:
665: EXCEPTION
666:
667: WHEN OTHERS then
668: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
669: FND_LOG.String
670: (
671: FND_LOG.LEVEL_ERROR,
672: 'fpa.sql.FPA_Utils_Pvt.scenario_approved',
665: EXCEPTION
666:
667: WHEN OTHERS then
668: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
669: FND_LOG.String
670: (
671: FND_LOG.LEVEL_ERROR,
672: 'fpa.sql.FPA_Utils_Pvt.scenario_approved',
673: SQLERRM
667: WHEN OTHERS then
668: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
669: FND_LOG.String
670: (
671: FND_LOG.LEVEL_ERROR,
672: 'fpa.sql.FPA_Utils_Pvt.scenario_approved',
673: SQLERRM
674: );
675: END IF;
768:
769: return l_unit;
770: EXCEPTION
771: WHEN OTHERS then
772: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
773: FND_LOG.String
774: (
775: FND_LOG.LEVEL_ERROR,
776: 'fpa.sql.FPA_Utils_Pvt.Get_Fin_Metric_Unit',
769: return l_unit;
770: EXCEPTION
771: WHEN OTHERS then
772: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
773: FND_LOG.String
774: (
775: FND_LOG.LEVEL_ERROR,
776: 'fpa.sql.FPA_Utils_Pvt.Get_Fin_Metric_Unit',
777: SQLERRM
771: WHEN OTHERS then
772: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
773: FND_LOG.String
774: (
775: FND_LOG.LEVEL_ERROR,
776: 'fpa.sql.FPA_Utils_Pvt.Get_Fin_Metric_Unit',
777: SQLERRM
778: );
779: END IF;