502: L_PROJ_VALIDATION_ID NUMBER;
503:
504: BEGIN
505:
506: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
508: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 1.begin',
509: 'Entering FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 1.');
510: END IF;
503:
504: BEGIN
505:
506: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
508: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 1.begin',
509: 'Entering FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 1.');
510: END IF;
511:
664: l_type VARCHAR2(10);
665:
666: BEGIN
667:
668: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
669: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
670: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
671: 'Entering FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.begin');
672: END IF;
665:
666: BEGIN
667:
668: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
669: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
670: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
671: 'Entering FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.begin');
672: END IF;
673:
683: WHERE IS_INITIAL_SCENARIO = 1 AND PLANNING_CYCLE = P_HEADER_OBJECT_ID;
684:
685: END IF;
686:
687: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
688: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
689: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
690: 'Querying FPA_VALIDATION_LINES to obtain current validation ID. Values are, scenario id: ' || l_scenario_id || ', Validation Type: ' || p_validation_set);
691: END IF;
684:
685: END IF;
686:
687: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
688: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
689: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
690: 'Querying FPA_VALIDATION_LINES to obtain current validation ID. Values are, scenario id: ' || l_scenario_id || ', Validation Type: ' || p_validation_set);
691: END IF;
692:
721: HEADER_ID IS NULL AND
722: VALIDATION_TYPE = P_VALIDATION_SET;
723: */
724:
725: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
726: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
727: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
728: 'Constructing dynamic SQL to query Budget Version information.');
729: END IF;
722: VALIDATION_TYPE = P_VALIDATION_SET;
723: */
724:
725: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
726: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
727: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
728: 'Constructing dynamic SQL to query Budget Version information.');
729: END IF;
730:
738: || 'AND fnd_profile.value(''PJP_FINANCIAL_PLAN_TYPE_BENEFIT'') = B.FIN_PLAN_TYPE_ID (+) '
739: || 'AND P.PROJECT_ID = C.PROJECT_ID (+) AND P.PROJECT_ID = B.PROJECT_ID (+) '
740: || 'AND P.PROJECT_ID = :1';
741:
742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
743: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
744: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
745: 'Entering loop for insert or updates into FPA_VALIDATION_LINES. Operation to be performed is: ' || l_type);
746: END IF;
739: || 'AND P.PROJECT_ID = C.PROJECT_ID (+) AND P.PROJECT_ID = B.PROJECT_ID (+) '
740: || 'AND P.PROJECT_ID = :1';
741:
742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
743: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
744: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
745: 'Entering loop for insert or updates into FPA_VALIDATION_LINES. Operation to be performed is: ' || l_type);
746: END IF;
747:
753: CLOSE l_budget_vers_csr;
754:
755: IF(l_type = 'CREATE') THEN
756:
757: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
758: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
759: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
760: 'Calling procedure Create_Proj_Budget_Versions.');
761: END IF;
754:
755: IF(l_type = 'CREATE') THEN
756:
757: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
758: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
759: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
760: 'Calling procedure Create_Proj_Budget_Versions.');
761: END IF;
762:
773: x_msg_data => l_msg_data);
774:
775: ELSIF(l_type = 'UPDATE') THEN
776:
777: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
778: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
779: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
780: 'Calling procedure Update_Proj_Budget_Versions.');
781: END IF;
774:
775: ELSIF(l_type = 'UPDATE') THEN
776:
777: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
778: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
779: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
780: 'Calling procedure Update_Proj_Budget_Versions.');
781: END IF;
782:
793: x_msg_data => l_msg_data);
794:
795: END IF;
796:
797: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
799: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
800: 'Checking return status inside loop for inserting creating FPA_VALIDATION_LINES.');
801: END IF;
794:
795: END IF;
796:
797: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
799: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
800: 'Checking return status inside loop for inserting creating FPA_VALIDATION_LINES.');
801: END IF;
802:
809: end if;
810:
811: END LOOP;
812:
813: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
814: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
815: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
816: 'Finished loop for inserting updating FPA_VALIDATION_LINES.');
817: END IF;
810:
811: END LOOP;
812:
813: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
814: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
815: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
816: 'Finished loop for inserting updating FPA_VALIDATION_LINES.');
817: END IF;
818:
815: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
816: 'Finished loop for inserting updating FPA_VALIDATION_LINES.');
817: END IF;
818:
819: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
820: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
821: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
822: 'Calling FPA_UTILITIES_PVT.G_RET_STS_SUCCESS.');
823: END IF;
816: 'Finished loop for inserting updating FPA_VALIDATION_LINES.');
817: END IF;
818:
819: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
820: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
821: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
822: 'Calling FPA_UTILITIES_PVT.G_RET_STS_SUCCESS.');
823: END IF;
824:
823: END IF;
824:
825: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
826:
827: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
828: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
829: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
830: 'Calling FPA_UTILITIES_PVT.END_ACTIVITY.');
831: END IF;
824:
825: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
826:
827: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
828: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
829: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
830: 'Calling FPA_UTILITIES_PVT.END_ACTIVITY.');
831: END IF;
832:
836: p_msg_log => null,
837: x_msg_count => x_msg_count,
838: x_msg_data => x_msg_data);
839:
840: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
841: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
842: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.end.',
843: 'Finishing FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.');
844: END IF;
837: x_msg_count => x_msg_count,
838: x_msg_data => x_msg_data);
839:
840: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
841: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
842: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.end.',
843: 'Finishing FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.');
844: END IF;
845:
1151:
1152: FOR i IN p_projects_tbl.first .. p_projects_tbl.last
1153: LOOP
1154:
1155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1156: FND_LOG.STRING
1157: (
1158: FND_LOG.LEVEL_PROCEDURE,
1159: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Validate_Project_Refresh',
1152: FOR i IN p_projects_tbl.first .. p_projects_tbl.last
1153: LOOP
1154:
1155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1156: FND_LOG.STRING
1157: (
1158: FND_LOG.LEVEL_PROCEDURE,
1159: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Validate_Project_Refresh',
1160: 'processing project = '||p_projects_tbl(i)
1154:
1155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1156: FND_LOG.STRING
1157: (
1158: FND_LOG.LEVEL_PROCEDURE,
1159: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Validate_Project_Refresh',
1160: 'processing project = '||p_projects_tbl(i)
1161: );
1162: END IF;
1350: return l_object_name;
1351:
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1355: FND_LOG.String(
1356: FND_LOG.LEVEL_PROCEDURE,
1357: 'fpa.sql.FPA_VALIDATIONS_PROCESS_PVT.Object_Name',
1358: 'EXCEPTION:'||sqlerrm||p_object_id||','||p_object_type);
1351:
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1355: FND_LOG.String(
1356: FND_LOG.LEVEL_PROCEDURE,
1357: 'fpa.sql.FPA_VALIDATIONS_PROCESS_PVT.Object_Name',
1358: 'EXCEPTION:'||sqlerrm||p_object_id||','||p_object_type);
1359: end if;
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1355: FND_LOG.String(
1356: FND_LOG.LEVEL_PROCEDURE,
1357: 'fpa.sql.FPA_VALIDATIONS_PROCESS_PVT.Object_Name',
1358: 'EXCEPTION:'||sqlerrm||p_object_id||','||p_object_type);
1359: end if;
1360: return null;