[Home] [Help]
10492: END IF;
10493: END IF;
10494:
10495: -- IPM changes - delete from new entity --{
10496: -- new entity maintenance api to be called before call to pa_fp_rollup_pkg.rollup_budget_version.
10497: -- Call new entity maintenance api for the budget version id (which has to be derived),
10498: -- if records have been inserted in pa_Resource_asgn_curr_tmp, in the delete flow.
10499: -- Note: Deriving l_budget_version_id may not be the right approach as we avoid calling BV/RA
10500: -- rollup api and pji api when l_budget_version_id is null (No BLs deleted)
10563: l_mode := null;
10564: END IF;
10565:
10566: IF l_budget_version_id IS NOT NULL THEN
10567: pa_debug.g_err_stage:='Calling PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION:l_budget_version_id '||l_budget_version_id;
10568: print_msg(pa_debug.g_err_stage,l_module_name);
10569:
10570: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
10571: ( p_budget_version_id => l_budget_version_id
10566: IF l_budget_version_id IS NOT NULL THEN
10567: pa_debug.g_err_stage:='Calling PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION:l_budget_version_id '||l_budget_version_id;
10568: print_msg(pa_debug.g_err_stage,l_module_name);
10569:
10570: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
10571: ( p_budget_version_id => l_budget_version_id
10572: ,p_entire_version => 'Y'
10573: ,p_context => l_mode -- Bug 4160258
10574: ,x_return_status => x_return_status
10576: ,x_msg_data => l_msg_data);
10577:
10578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10579: IF l_debug_mode = 'Y' THEN
10580: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10581: print_msg(pa_debug.g_err_stage,l_module_name);
10582: END IF;
10583: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10584: END IF;
12006:
12007:
12008: -- Calling the rollup api to correct the amounts related data in
12009: -- pa_budget_versions and pa_resource_assignments for the entire version
12010: PA_FP_ROLLUP_PKG.rollup_budget_version
12011: (p_budget_version_id => p_budget_version_id
12012: ,p_entire_version => 'Y'
12013: ,x_return_status => l_return_status
12014: ,x_msg_count => l_msg_count
12015: ,x_msg_data => l_msg_data);
12016:
12017: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12018: IF l_debug_mode = 'Y' THEN
12019: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version returned error';
12020: pa_debug.write('Refresh_Plan_Txns: ' || g_module_name,pa_debug.g_err_stage,5);
12021: END IF;
12022: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12023: END IF;
13188: -- Bug 3937716 If there is any change to amounts call rollup api
13189: IF nvl(p_resource_list_change, 'N') = 'Y' OR nvl(p_time_phase_change, 'N') = 'Y'
13190: OR nvl(p_track_costs_flag_change, 'N') = 'Y'
13191: THEN
13192: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION
13193: ( p_budget_version_id => l_budget_version_id_tbl(i)
13194: ,p_entire_version => 'Y'
13195: ,x_return_status => x_return_status
13196: ,x_msg_count => x_msg_count
13197: ,x_msg_data => x_msg_data);
13198:
13199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13200: IF l_debug_mode = 'Y' THEN
13201: pa_debug.g_err_stage:='Called API PA_FP_ROLLUP_PKG.rollup_budget_version api returned error';
13202: pa_debug.write('REFRESH_WP_SETTINGS: ' || g_module_name,pa_debug.g_err_stage,5);
13203: END IF;
13204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13205: END IF;