[Home] [Help]
1: package body FPA_PROJECT_PVT as
2: /* $Header: FPAVPRJB.pls 120.18 2011/08/09 01:14:49 skkoppul ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_PROJECT_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := FPA_UTILITIES_PVT.G_APP_NAME;
1: package body FPA_PROJECT_PVT as
2: /* $Header: FPAVPRJB.pls 120.18 2011/08/09 01:14:49 skkoppul ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_PROJECT_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := FPA_UTILITIES_PVT.G_APP_NAME;
6: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
7: L_API_NAME CONSTANT VARCHAR2(35) := 'PROJECT';
8:
338: BEGIN
339:
340: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
341: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
342: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
343: 'Entering fpa_project_pvt.Verify_Budget_Versions');
344: END IF;
345:
346:
339:
340: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
341: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
342: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
343: 'Entering fpa_project_pvt.Verify_Budget_Versions');
344: END IF;
345:
346:
347: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345:
346:
347: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
348: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
349: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
350: 'Parameters are Scenario Id: ' || p_scenario_id ||
351: ' Project Id: ' || p_project_id);
352: END IF;
353:
357: if p_project_id is null then
358:
359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
360: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
361: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
362: 'About to query and fetch all projects from the scenario.');
363: end if;
364:
365: open all_projs;
370: close all_projs;
371:
372: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
373: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
374: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
375: 'Done fetching all projects from the scenario.');
376: end if;
377:
378: /** If p_project_id is not null then we are querying an individual project.
380: else
381:
382: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
383: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
384: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
385: 'Fetching single project: ' || p_project_id);
386: end if;
387:
388: open one_proj;
390: close one_proj;
391:
392: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
393: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
394: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions.begin',
395: 'Done fetching single project: ' || p_project_id);
396: end if;
397:
398:
406: for i in new_projs.first..new_projs.last loop
407:
408: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
409: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
410: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions',
411: 'Querying Cost and Benefit Plan IDs.');
412: END IF;
413:
414: SELECT
429:
430:
431: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
432: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
433: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions',
434: 'Querying Validation Lines to get latest pulled Plan Version IDs.');
435: END IF;
436:
437:
461: -- AND P.OBJECT_ID = P_PROJECT_ID;
462:
463: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
464: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
465: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions',
466: 'After queries values were ' ||
467: ' Cost version id in PJP: ' || l_cost_version_id ||
468: ' Cost version id in PJT: ' || l_new_cost_version_id ||
469: ' Budget version id in PJP: ' || l_benefit_version_id ||
487: **/
488: else
489: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
490: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
491: 'fpa.sql.fpa_project_pvt.Verify_Budget_Versions',
492: 'Project ID is null. The current value is: ' || new_projs(i).project_id ||
493: ' and the last project is: ' || new_projs(new_projs.last).project_id);
494: END IF;
495:
1032: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1033: FND_LOG.String
1034: (
1035: FND_LOG.LEVEL_PROCEDURE,
1036: 'fpa.sql.FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS.begin',
1037: 'Entering FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS'
1038: );
1039: END IF;
1040:
1033: FND_LOG.String
1034: (
1035: FND_LOG.LEVEL_PROCEDURE,
1036: 'fpa.sql.FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS.begin',
1037: 'Entering FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS'
1038: );
1039: END IF;
1040:
1041:
1092: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1093: FND_LOG.String
1094: (
1095: FND_LOG.LEVEL_PROCEDURE,
1096: 'fpa.sql.FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS.end',
1097: 'Entering FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS'
1098: );
1099: END IF;
1100:
1093: FND_LOG.String
1094: (
1095: FND_LOG.LEVEL_PROCEDURE,
1096: 'fpa.sql.FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS.end',
1097: 'Entering FPA_PROJECT_PVT.UPDATE_PROJ_FUNDING_STATUS'
1098: );
1099: END IF;
1100:
1101:
1103:
1104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1105:
1106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1107: fnd_msg_pub.add_exc_msg(p_pkg_name => 'FPA_PROJECT_PVT',
1108: p_procedure_name => 'UPDATE_PROJ_FUNDING_STATUS',
1109: p_error_text => SUBSTRB(SQLERRM,1,240));
1110:
1111: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1127: IF p_commit = FND_API.G_TRUE THEN
1128: ROLLBACK;
1129: END IF;
1130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1131: fnd_msg_pub.add_exc_msg(p_pkg_name => 'FPA_PROJECT_PVT',
1132: p_procedure_name => 'UPDATE_PROJ_FUNDING_STATUS',
1133: p_error_text => SUBSTRB(SQLERRM,1,240));
1134:
1135: RAISE;
1136:
1137: END UPDATE_PROJ_FUNDING_STATUS;
1138:
1139:
1140: END FPA_PROJECT_PVT;