[Home] [Help]
9486: X_MSG_DATA => l_msg_data
9487: );
9488:
9489: Pa_Task_Pub1.G_CALL_PJI_ROLLUP := null ; -- Bug 4186007
9490: delete from PA_PROG_ACT_BY_PERIOD_TEMP where project_id = p_project_id
9491: AND structure_version_id = l_structure_version_id;
9492: -- 3994165 : Deletion is now moved here.
9493: EXCEPTION
9494: WHEN OTHERS THEN
10429: RAISE FND_API.G_EXC_ERROR;
10430: END;
10431:
10432: -- Bug 4186007 Begin
10433: -- Now we will not use POPULATE_PRG_ACT_TBL_SINGLE to poulate the PA_PROG_ACT_BY_PERIOD_TEMP
10434: -- it was populating the cumulative amount.
10435: -- Now we will populate the incrmental amount and will call API MAINTAIN_ACTUAL_AMT_WRP
10436: -- with p_extraction_type as INCRMENTAL
10437: l_structure_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id); -- Bug 3586648
10442: l_split_workplan := 'N';
10443: END IF;
10444:
10445: IF NVL(l_split_workplan, 'N') = 'Y' AND p_resource_assignment_id IS NOT NULL THEN
10446: --delete from PA_PROG_ACT_BY_PERIOD_TEMP;
10447: -- 3994165 : Deletion is now moved to the wrapper Bulk API.
10448:
10449: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
10450: project_id
10445: IF NVL(l_split_workplan, 'N') = 'Y' AND p_resource_assignment_id IS NOT NULL THEN
10446: --delete from PA_PROG_ACT_BY_PERIOD_TEMP;
10447: -- 3994165 : Deletion is now moved to the wrapper Bulk API.
10448:
10449: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
10450: project_id
10451: , structure_version_id
10452: , task_id
10453: , resource_assignment_id
18128: ,ETC_PFC_CURRENCY_CODE(i));
18129:
18130: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
18131:
18132: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
18133: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
18134:
18135: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
18136:
18129:
18130: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
18131:
18132: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
18133: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
18134:
18135: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
18136:
18137: FORALL i IN 1..l_t_index
18131:
18132: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
18133: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
18134:
18135: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
18136:
18137: FORALL i IN 1..l_t_index
18138: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
18139: project_id
18134:
18135: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
18136:
18137: FORALL i IN 1..l_t_index
18138: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
18139: project_id
18140: ,structure_version_id
18141: ,task_id
18142: ,resource_assignment_id
18252: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
18253: p_err_flag => l_act_err_flag(l_index),
18254: p_err_msg => l_act_err_msg(l_index));
18255: DELETE PJI_FM_EXTR_PLAN_LINES where PROJECT_ID = proj_ids_tbl(l_index);
18256: DELETE PA_PROG_ACT_BY_PERIOD_TEMP where PROJECT_ID = proj_ids_tbl(l_index);
18257: else
18258: if (p_plan_res_level = 'Y') and l_get_summ_call_contxt in ('P', 'W') then
18259: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
18260: p_calendar_type => calendar_type_tbl(l_index),
18335: PJI_FM_XBS_ACCUM_UTILS.DELETE_FIN8 (p_project_id => proj_ids_tbl(l_index),
18336: p_err_flag => l_act_err_flag(l_index),
18337: p_err_msg => l_act_err_msg(l_index));
18338: DELETE PJI_FM_EXTR_PLAN_LINES where PROJECT_ID = proj_ids_tbl(l_index);
18339: DELETE PA_PROG_ACT_BY_PERIOD_TEMP where PROJECT_ID = proj_ids_tbl(l_index);
18340: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE(proj_ids_tbl(l_index),
18341: latest_wp_struct_ver_ids_tbl(l_index),
18342: 'PRE',
18343: l_conc_request_id,
21891: IF l_action = 'PUBLISH' AND l_split_workplan = 'Y' AND l_budget_call_required_tbl(i) = 'Y' AND p_structure_type = 'WORKPLAN'
21892: -- Removed for Bug 4416432 Issue 11 : AND p_object_type_tbl(i) <> 'PA_DELIVERABLES' -- Bug 4370820 : Added <> DELIVERABLES
21893: THEN
21894: IF g1_debug_mode = 'Y' THEN
21895: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'Check existnece of records in PA_PROG_ACT_BY_PERIOD_TEMP', x_Log_Level=> 3);
21896: END IF;
21897: BEGIN -- 4482295
21898: -- Bug 4416432 Issue 11 Added following Check
21899: l_check := 'N';
21901: INTO l_check
21902: FROM DUAL
21903: WHERE EXISTS
21904: (SELECT 'xyz'
21905: from PA_PROG_ACT_BY_PERIOD_TEMP
21906: where project_id = p_project_id_tbl(i)
21907: AND structure_version_id = l_structure_version_id_tbl(i));
21908: EXCEPTION -- 4482295
21909: WHEN NO_DATA_FOUND THEN
21908: EXCEPTION -- 4482295
21909: WHEN NO_DATA_FOUND THEN
21910: l_check := 'N';
21911: IF g1_debug_mode = 'Y' THEN
21912: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'No Records in PA_PROG_ACT_BY_PERIOD_TEMP', x_Log_Level=> 3);
21913: END IF;
21914: END; -- 4482295
21915:
21916: IF g1_debug_mode = 'Y' THEN
21957: x_msg_count := l_msg_count;
21958: RAISE FND_API.G_EXC_ERROR;
21959: END IF;
21960: Pa_Task_Pub1.G_CALL_PJI_ROLLUP := null ;
21961: delete from PA_PROG_ACT_BY_PERIOD_TEMP where project_id = p_project_id_tbl(i) AND structure_version_id = l_structure_version_id_tbl(i);
21962: EXCEPTION
21963: WHEN OTHERS THEN
21964: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21965: p_procedure_name => 'UPDATE_PROGRESS_BULK',