[Home] [Help]
6902: l_base_struct_ver_id := l_structure_version_id;
6903: END IF;
6904:
6905: BEGIN
6906: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(
6907: p_project_id => p_project_id,
6908: p_struct_ver_id => l_structure_version_id,
6909: p_base_struct_ver_id => l_base_struct_ver_id,
6910: x_return_status => x_return_status,
6913: EXCEPTION
6914: WHEN OTHERS THEN
6915: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6916: p_procedure_name => 'PUSH_DOWN_TASK_STATUS',
6917: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
6918: RAISE FND_API.G_EXC_ERROR;
6919: END;
6920:
6921: IF x_return_status <> 'S' THEN
8658: x_return_status := 'E';
8659: RAISE FND_API.G_EXC_ERROR;
8660: END IF;
8661:
8662: -- 3.2). Calling PJI API: PJI_FM_XBS_ACCUM_UTILS.POPULATE_WORKPLAN_DATA() to populate
8663: -- the temporary table: PJI_FM_XBS_ACCUM_TMP1.This is done once here instead of, for each of the lowest tasks by calling
8664: -- PA_PROGRESS_PUB.push_workplan_actuals() with p_call_pji_apis_flag = 'Y'.
8665: -- Bug 3834339 : reducing the scope of IF so that populate_workplan_data gets called in version disabled case too
8666: END IF; -- IF (l_version_enabled_flag = 'Y') THEN
8694: ,x_msg_data => l_msg_data
8695: );
8696:
8697: /*
8698: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data (
8699: p_project_id => p_project_id
8700: ,p_struct_ver_id => p_working_str_version_id
8701: ,p_base_struct_ver_id => l_baselined_str_ver_id
8702: ,x_return_status => l_return_status
9994: END IF;
9995:
9996: /*
9997: BEGIN
9998: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(
9999: p_project_id => p_project_id,
10000: p_struct_ver_id => l_structure_version_id,
10001: p_base_struct_ver_id => l_base_struct_ver_id,
10002: p_as_of_date => p_as_of_date, -- Fix for Bug # 4251406.
10006: EXCEPTION
10007: WHEN OTHERS THEN
10008: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10009: p_procedure_name => 'update_progress',
10010: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
10011: RAISE FND_API.G_EXC_ERROR;
10012: END;
10013: */
10014: END IF;-- p_structure_type = 'WORKPLAN' THEN
10339:
10340: BEGIN
10341: -- Bug 3627315 : Added code to conditionally call PJI API with diff parameters
10342: IF p_structure_type = 'WORKPLAN' THEN
10343: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data (
10344: p_project_id => p_project_id,
10345: p_struct_ver_id => p_structure_version_id,
10346: p_base_struct_ver_id => l_baselined_str_ver_id,
10347: p_project_element_id => p_project_element_id, ----bug 4183307
10354: ELSE --FINANCIAL
10355:
10356: IF (l_plan_version_id is not null) THEN -- Added to fix Bug # 3813130.
10357:
10358: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(
10359: p_project_id => p_project_id,
10360: p_struct_ver_id => l_structure_version_id,
10361: p_workplan_flag => 'N', --This will populate financial data in pji tmp1 table.
10362: p_plan_version_id => l_plan_version_id,
10370: EXCEPTION
10371: WHEN OTHERS THEN
10372: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10373: p_procedure_name => 'POPULATE_PJI_TAB_FOR_PLAN',
10374: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data Failed. SQLERRM='||SQLERRM,1,120));
10375: RAISE FND_API.G_EXC_ERROR;
10376: END;
10377:
10378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13385: proj_pgm_level_tbl SYSTEM.pa_num_tbl_type:= SYSTEM.pa_num_tbl_type();
13386:
13387: -- Added for bug 5464875
13388: base_struct_ver_ids_tbl SYSTEM.pa_num_tbl_type:= SYSTEM.pa_num_tbl_type();
13389: populate_in_tbl PJI_FM_XBS_ACCUM_UTILS.populate_in_tbl_type;
13390:
13391: /* Begin: Fix for Bug # 5526638. */
13392: l_act_err_flag SYSTEM.pa_num_tbl_type:= SYSTEM.pa_num_tbl_type();
13393: --l_act_err_msg SYSTEM.pa_varchar2_240_tbl_type:= SYSTEM.pa_varchar2_240_tbl_type();
14555: and structure_type = 'WORKPLAN';
14556:
14557: begin
14558: if (p_plan_res_level = 'Y') then
14559: pa_debug.log_message('GET_SUMM_ACT: Calling pji_fm_xbs_accum_utils.get_summarized_data', 1);
14560: --- Call Reporting API to populate temp table with summarized actuals
14561: pji_fm_xbs_accum_utils.get_summarized_data(p_project_ids => proj_ids_tbl,
14562: p_resource_list_ids => res_list_ids_tbl,
14563: p_struct_ver_ids => latest_wp_struct_ver_ids_tbl,
14557: begin
14558: if (p_plan_res_level = 'Y') then
14559: pa_debug.log_message('GET_SUMM_ACT: Calling pji_fm_xbs_accum_utils.get_summarized_data', 1);
14560: --- Call Reporting API to populate temp table with summarized actuals
14561: pji_fm_xbs_accum_utils.get_summarized_data(p_project_ids => proj_ids_tbl,
14562: p_resource_list_ids => res_list_ids_tbl,
14563: p_struct_ver_ids => latest_wp_struct_ver_ids_tbl,
14564: p_end_Date => proj_thru_dates_tbl,
14565: p_calendar_type => calendar_type_tbl,
14577: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
14578: p_msg_name => x_msg_code);
14579: x_msg_data := x_msg_code;
14580: x_return_status := 'E';
14581: pa_debug.log_message('GET_SUMM_ACT: Error in pji_fm_xbs_accum_utils.get_summarized_data', 1);
14582: RAISE l_pji_wp_exception;
14583: END IF;
14584: /* End: Added for bug 5526638*/
14585:
14584: /* End: Added for bug 5526638*/
14585:
14586: IF g1_debug_mode = 'Y' THEN
14587: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
14588: x_Msg => 'Done with pji_fm_xbs_accum_utils.get_summarized_data',
14589: x_Log_Level=> 3);
14590: END IF;
14591: end if;
14592: exception when others then
14592: exception when others then
14593: pa_debug.log_message('GET_SUMM_ACT: get_summarized_data failed with exception', 1);
14594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
14595: p_procedure_name => 'GET_SUMMARIZED_ACTUALS',
14596: p_error_text => SUBSTRB('pji_fm_xbs_accum_utils.get_summarized_data:'||SQLERRM,1,120));
14597: raise;
14598: end;
14599:
14600: -- Added for bug 5464875. Used Bulk Processing
14618: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.POPULATE_PJI_TAB_FOR_PLAN', x_Msg => 'populate_in_tbl(i).project_element_id='||populate_in_tbl(i).project_element_id, x_Log_Level=> 3);
14619:
14620: end loop;
14621:
14622: pa_debug.log_message('GET_SUMM_ACT: Calling pji_fm_xbs_accum_utils.populate_workplan_data', 1);
14623: --- Call Reporting API to populate temp table with workplan data
14624: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(p_populate_in_tbl => populate_in_tbl,
14625: p_calling_context => 'SUMMARIZE',
14626: p_program_rollup_flag => 'Y',
14620: end loop;
14621:
14622: pa_debug.log_message('GET_SUMM_ACT: Calling pji_fm_xbs_accum_utils.populate_workplan_data', 1);
14623: --- Call Reporting API to populate temp table with workplan data
14624: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(p_populate_in_tbl => populate_in_tbl,
14625: p_calling_context => 'SUMMARIZE',
14626: p_program_rollup_flag => 'Y',
14627: x_return_status => x_return_status,
14628: x_msg_code => x_msg_code );
14632: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
14633: p_msg_name => x_msg_code);
14634: x_msg_data := x_msg_code;
14635: x_return_status := 'E';
14636: pa_debug.log_message('GET_SUMM_ACT: Error in pji_fm_xbs_accum_utils.populate_workplan_data', 1);
14637: RAISE l_pji_wp_exception;
14638: END IF;
14639: /* End: Added for bug 5526638*/
14640:
14639: /* End: Added for bug 5526638*/
14640:
14641: IF g1_debug_mode = 'Y' THEN
14642: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
14643: x_Msg => 'Done with pji_fm_xbs_accum_utils.populate_workplan_data',
14644: x_Log_Level=> 3);
14645: END IF;
14646: exception when others then
14647: pa_debug.log_message('GET_SUMM_ACT: populate_workplan_data failed with exception', 1);
14646: exception when others then
14647: pa_debug.log_message('GET_SUMM_ACT: populate_workplan_data failed with exception', 1);
14648: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
14649: p_procedure_name => 'GET_SUMMARIZED_ACTUALS',
14650: p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
14651: raise;
14652: end;
14653: end if;
14654:
14762: if (l_base_struct_ver_id = -1) then
14763: l_base_struct_ver_id := null;
14764: end if;
14765: begin
14766: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data(p_project_id => l_project_id,
14767: p_struct_ver_id => l_latest_wp_struct_ver_id,
14768: p_base_struct_ver_id => l_base_struct_ver_id,
14769: p_as_of_date => l_temp_as_of_date,
14770: p_program_rollup_flag => 'Y',
14774: exception when others then
14775: pa_debug.log_message('GET_SUMM_ACT: populate_workplan_data failed with exception', 1);
14776: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
14777: p_procedure_name => 'GET_SUMMARIZED_ACTUALS',
14778: p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
14779: raise;
14780: end;
14781: end if;
14782: ****/
19500:
19501: else
19502: pa_debug.log_message('GET_SUMM_ACT: Get_summarized_data returned error.', 1);
19503: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
19504: x_Msg => 'pji_fm_xbs_accum_utils.get_summarized_data returned error',
19505: x_Log_Level=> 3);
19506: end if; -- if status is not success
19507:
19508: ---here call the budget lines api
19693: /* Commented an moved out of if block for bug#5659575
19694: if NVL(l_act_out_report,'N') = 'Y' then
19695: For l_index in 1..proj_ids_tbl.COUNT loop --- FOR each PROJECT
19696: if l_act_err_flag(l_index) = 1 then
19697: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19698: p_err_flag => l_act_err_flag(l_index),
19699: p_err_msg => l_act_err_msg(l_index));
19700: DELETE PJI_FM_EXTR_PLAN_LINES where PROJECT_ID = proj_ids_tbl(l_index);
19701: DELETE PA_PROG_ACT_BY_PERIOD_TEMP where PROJECT_ID = proj_ids_tbl(l_index);
19700: DELETE PJI_FM_EXTR_PLAN_LINES where PROJECT_ID = proj_ids_tbl(l_index);
19701: DELETE PA_PROG_ACT_BY_PERIOD_TEMP where PROJECT_ID = proj_ids_tbl(l_index);
19702: else
19703: if (p_plan_res_level = 'Y') and l_get_summ_call_contxt in ('P', 'W') then
19704: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19705: p_calendar_type => calendar_type_tbl(l_index),
19706: p_end_Date => proj_thru_dates_tbl(l_index));
19707: end if;
19708: end if;
19709: End Loop;
19710: else
19711: if (p_plan_res_level = 'Y') and l_get_summ_call_contxt in ('P', 'W')then
19712: For l_index in 1..proj_ids_tbl.COUNT loop
19713: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19714: p_calendar_type => calendar_type_tbl(l_index),
19715: p_end_Date => proj_thru_dates_tbl(l_index));
19716: End Loop;
19717: end if;
19776: /* Added for bug #5659575 If block executes only in PJI flow*/
19777: if NVL(l_act_out_report,'N') = 'Y' then
19778: For l_index in 1..proj_ids_tbl.COUNT loop --- FOR each PROJECT
19779: if l_act_err_flag(l_index) = 1 then
19780: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19781: p_err_flag => l_act_err_flag(l_index),
19782: p_err_msg => l_act_err_msg(l_index));
19783: DELETE PJI_FM_EXTR_PLAN_LINES where PROJECT_ID = proj_ids_tbl(l_index);
19784: DELETE PA_PROG_ACT_BY_PERIOD_TEMP where PROJECT_ID = proj_ids_tbl(l_index);
19789: l_return_status);
19790:
19791: else
19792: if (p_plan_res_level = 'Y') and l_get_summ_call_contxt in ('P', 'W')then
19793: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19794: p_calendar_type => calendar_type_tbl(l_index),
19795: p_end_Date => proj_thru_dates_tbl(l_index));
19796: end if;
19797: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE(proj_ids_tbl(l_index),
19804: End Loop;
19805: else
19806: if (p_plan_res_level = 'Y') and l_get_summ_call_contxt in ('P', 'W') then
19807: For l_index in 1..proj_ids_tbl.COUNT loop
19808: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
19809: p_calendar_type => calendar_type_tbl(l_index),
19810: p_end_Date => proj_thru_dates_tbl(l_index));
19811: if p_extraction_type <> 'PUBLISH' then
19812: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE(proj_ids_tbl(l_index),
21190: ,x_msg_count => l_msg_count
21191: ,x_msg_data => l_msg_data
21192: );
21193: /*
21194: PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data (
21195: p_project_id => rec.project_id,
21196: p_struct_ver_id => rec.structure_version_id,
21197: p_base_struct_ver_id => l_baseline_version_id,
21198: x_return_status => l_return_status,