328: x_msg_count := 0;
329: x_msg_data := NULL;
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: pa_debug.init_err_stack('PA_DATE_RANGE_PKG.DATE_RANGE_UPGRD');
333: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
329: x_msg_data := NULL;
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: pa_debug.init_err_stack('PA_DATE_RANGE_PKG.DATE_RANGE_UPGRD');
333: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
331:
332: pa_debug.init_err_stack('PA_DATE_RANGE_PKG.DATE_RANGE_UPGRD');
333: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
339:
333: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
339:
340: pa_debug.g_err_stage := 'Checking for valid parameters';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
334: l_debug_mode := NVL(l_debug_mode, 'Y');
335: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
336: IF l_debug_mode = 'Y' THEN
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
339:
340: pa_debug.g_err_stage := 'Checking for valid parameters';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
342: END IF;
336: IF l_debug_mode = 'Y' THEN
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
339:
340: pa_debug.g_err_stage := 'Checking for valid parameters';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
342: END IF;
343:
344:
337: pa_debug.g_err_stage := 'Entered Date Range Upgrade';
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
339:
340: pa_debug.g_err_stage := 'Checking for valid parameters';
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
342: END IF;
343:
344:
345:
344:
345:
346: if (p_budget_versions.count <= 0 ) then
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage := 'Budget Versions Not Passed as Input';
349: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
350: END IF;
351: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
352: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
345:
346: if (p_budget_versions.count <= 0 ) then
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage := 'Budget Versions Not Passed as Input';
349: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
350: END IF;
351: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
352: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
378:
379:
380: --NOT Plan-Version: SKIP to the Next Budget Version
381: IF l_debug_mode = 'Y' THEN
382: pa_debug.g_err_stage := 'SKIPPED NON-Plan-Version Budget Version='||to_char(l_budget_version_id);
383: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
384: END IF;
385:
386: GOTO skip_version; -- goto end of budget version loop
379:
380: --NOT Plan-Version: SKIP to the Next Budget Version
381: IF l_debug_mode = 'Y' THEN
382: pa_debug.g_err_stage := 'SKIPPED NON-Plan-Version Budget Version='||to_char(l_budget_version_id);
383: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
384: END IF;
385:
386: GOTO skip_version; -- goto end of budget version loop
387:
527:
528: -- End Bug 3673111, 07-JUN-04, jwhite ------------------------------------------------------
529:
530: IF l_debug_mode = 'Y' THEN
531: pa_debug.g_err_stage := 'Mode of the upgrade';
532: pa_debug.write(l_module_name,'Upgrade Mode is' || g_upgrade_mode,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
533: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
534: end if;
535:
528: -- End Bug 3673111, 07-JUN-04, jwhite ------------------------------------------------------
529:
530: IF l_debug_mode = 'Y' THEN
531: pa_debug.g_err_stage := 'Mode of the upgrade';
532: pa_debug.write(l_module_name,'Upgrade Mode is' || g_upgrade_mode,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
533: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
534: end if;
535:
536:
529:
530: IF l_debug_mode = 'Y' THEN
531: pa_debug.g_err_stage := 'Mode of the upgrade';
532: pa_debug.write(l_module_name,'Upgrade Mode is' || g_upgrade_mode,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
533: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
534: end if;
535:
536:
537: IF l_debug_mode = 'Y' THEN
534: end if;
535:
536:
537: IF l_debug_mode = 'Y' THEN
538: pa_debug.g_err_stage := 'Updating pa_proj_fp_options table';
539: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
540: end if;
541:
542: -- Bug 3804286, 12-AUG-03, jwhite -------------------------------------------------------------
535:
536:
537: IF l_debug_mode = 'Y' THEN
538: pa_debug.g_err_stage := 'Updating pa_proj_fp_options table';
539: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
540: end if;
541:
542: -- Bug 3804286, 12-AUG-03, jwhite -------------------------------------------------------------
543:
712: none of the below processing would be done for them */
713:
714: if g_upgrade_mode = 'Non_Time_Phase_Multi_Line' then
715: IF l_debug_mode = 'Y' THEN
716: pa_debug.g_err_stage := 'Entered Non Time Phase Multi Line';
717: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
718: end if;
719: -- Loop for each budget line for the given version
720: for l_get_non_time_multi_csr in get_non_time_multi_csr(l_get_elig_bud_ver_csr.budget_version_id)
713:
714: if g_upgrade_mode = 'Non_Time_Phase_Multi_Line' then
715: IF l_debug_mode = 'Y' THEN
716: pa_debug.g_err_stage := 'Entered Non Time Phase Multi Line';
717: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
718: end if;
719: -- Loop for each budget line for the given version
720: for l_get_non_time_multi_csr in get_non_time_multi_csr(l_get_elig_bud_ver_csr.budget_version_id)
721: loop
931: end if;
932: if (g_upgrade_mode = 'PA_Period_Upgrade') or (g_upgrade_mode = 'GL_Period_Upgrade') then
933:
934: IF l_debug_mode = 'Y' THEN
935: pa_debug.g_err_stage := 'Entered PA/GL Period Upgrade';
936: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
937: end if;
938:
939: -- Loop for Resource Assignment Id for given Budget Version
932: if (g_upgrade_mode = 'PA_Period_Upgrade') or (g_upgrade_mode = 'GL_Period_Upgrade') then
933:
934: IF l_debug_mode = 'Y' THEN
935: pa_debug.g_err_stage := 'Entered PA/GL Period Upgrade';
936: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
937: end if;
938:
939: -- Loop for Resource Assignment Id for given Budget Version
940: select decode(g_upgrade_mode,'PA_Period_Upgrade',l_pa_period_type,l_accounted_per_type) into l_per_type from dual;
1010:
1011:
1012:
1013: IF l_debug_mode = 'Y' THEN
1014: pa_debug.g_err_stage := 'Inserting into Backup Table';
1015: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1016: end if;
1017:
1018: insert into pa_budget_lines_m_upg_dtrange
1011:
1012:
1013: IF l_debug_mode = 'Y' THEN
1014: pa_debug.g_err_stage := 'Inserting into Backup Table';
1015: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1016: end if;
1017:
1018: insert into pa_budget_lines_m_upg_dtrange
1019: (
1403:
1404:
1405: -- Loop to traverse through the array or records.
1406: IF l_debug_mode = 'Y' THEN
1407: pa_debug.g_err_stage := 'Deleting from pa_budget_lines table';
1408: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1409: end if;
1410: for i in l_get_budget_lines_tbl.first .. l_get_budget_lines_tbl.last
1411: loop
1404:
1405: -- Loop to traverse through the array or records.
1406: IF l_debug_mode = 'Y' THEN
1407: pa_debug.g_err_stage := 'Deleting from pa_budget_lines table';
1408: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1409: end if;
1410: for i in l_get_budget_lines_tbl.first .. l_get_budget_lines_tbl.last
1411: loop
1412: delete pa_budget_lines
1521: end loop;
1522:
1523: -- Loop to traverse through the array or records for insertion ends.
1524: IF l_debug_mode = 'Y' THEN
1525: pa_debug.g_err_stage := 'Updating pa_budget_lines table';
1526: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1527: end if;
1528: update pa_budget_lines
1529: set
1522:
1523: -- Loop to traverse through the array or records for insertion ends.
1524: IF l_debug_mode = 'Y' THEN
1525: pa_debug.g_err_stage := 'Updating pa_budget_lines table';
1526: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1527: end if;
1528: update pa_budget_lines
1529: set
1530: attribute_category = l_attribute_category ,
1583: x_msg_data := l_msg_data;
1584: END IF;
1585:
1586: IF l_debug_mode = 'Y' THEN
1587: pa_debug.g_err_stage:='Invalid Arguments Passed';
1588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1589: END IF;
1590: x_return_status:= FND_API.G_RET_STS_ERROR;
1591: pa_debug.reset_err_stack;
1584: END IF;
1585:
1586: IF l_debug_mode = 'Y' THEN
1587: pa_debug.g_err_stage:='Invalid Arguments Passed';
1588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1589: END IF;
1590: x_return_status:= FND_API.G_RET_STS_ERROR;
1591: pa_debug.reset_err_stack;
1592: -- ROLLBACK; /* Commented-out to maintain the savepoint for the concurrent program. */
1587: pa_debug.g_err_stage:='Invalid Arguments Passed';
1588: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1589: END IF;
1590: x_return_status:= FND_API.G_RET_STS_ERROR;
1591: pa_debug.reset_err_stack;
1592: -- ROLLBACK; /* Commented-out to maintain the savepoint for the concurrent program. */
1593: RAISE;
1594:
1595: WHEN OTHERS THEN
1637: x_msg_data := SQLERRM;
1638:
1639: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DATE_RANGE_PKG',p_procedure_name => 'DATE_RANGE_UPGRD');
1640: IF l_debug_mode = 'Y' THEN
1641: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1642: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1643: END IF;
1644:
1645: pa_debug.write_file('DATE_RANGE_UPGRD: Upgrade has failed for the budget version '||l_budget_version_id,5);
1638:
1639: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DATE_RANGE_PKG',p_procedure_name => 'DATE_RANGE_UPGRD');
1640: IF l_debug_mode = 'Y' THEN
1641: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1642: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1643: END IF;
1644:
1645: pa_debug.write_file('DATE_RANGE_UPGRD: Upgrade has failed for the budget version '||l_budget_version_id,5);
1646: pa_debug.write_file('DATE_RANGE_UPGRD: Failure Reason:'||pa_debug.G_Err_Stack,5);
1641: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1642: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1643: END IF;
1644:
1645: pa_debug.write_file('DATE_RANGE_UPGRD: Upgrade has failed for the budget version '||l_budget_version_id,5);
1646: pa_debug.write_file('DATE_RANGE_UPGRD: Failure Reason:'||pa_debug.G_Err_Stack,5);
1647: pa_debug.reset_err_stack;
1648: --ROLLBACK; /* Commented-out to maintain the savepoint for the concurrent program. */
1649: RAISE;
1642: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1643: END IF;
1644:
1645: pa_debug.write_file('DATE_RANGE_UPGRD: Upgrade has failed for the budget version '||l_budget_version_id,5);
1646: pa_debug.write_file('DATE_RANGE_UPGRD: Failure Reason:'||pa_debug.G_Err_Stack,5);
1647: pa_debug.reset_err_stack;
1648: --ROLLBACK; /* Commented-out to maintain the savepoint for the concurrent program. */
1649: RAISE;
1650: end DATE_RANGE_UPGRD;
1643: END IF;
1644:
1645: pa_debug.write_file('DATE_RANGE_UPGRD: Upgrade has failed for the budget version '||l_budget_version_id,5);
1646: pa_debug.write_file('DATE_RANGE_UPGRD: Failure Reason:'||pa_debug.G_Err_Stack,5);
1647: pa_debug.reset_err_stack;
1648: --ROLLBACK; /* Commented-out to maintain the savepoint for the concurrent program. */
1649: RAISE;
1650: end DATE_RANGE_UPGRD;
1651: