[Home] [Help]
9919: X_MSG_DATA => l_msg_data
9920: );
9921:
9922: Pa_Task_Pub1.G_CALL_PJI_ROLLUP := null ; -- Bug 4186007
9923: delete from PA_PROG_ACT_BY_PERIOD_TEMP where project_id = p_project_id
9924: AND structure_version_id = l_structure_version_id;
9925: -- 3994165 : Deletion is now moved here.
9926: EXCEPTION
9927: WHEN OTHERS THEN
10871: RAISE FND_API.G_EXC_ERROR;
10872: END;
10873:
10874: -- Bug 4186007 Begin
10875: -- Now we will not use POPULATE_PRG_ACT_TBL_SINGLE to poulate the PA_PROG_ACT_BY_PERIOD_TEMP
10876: -- it was populating the cumulative amount.
10877: -- Now we will populate the incrmental amount and will call API MAINTAIN_ACTUAL_AMT_WRP
10878: -- with p_extraction_type as INCRMENTAL
10879: l_structure_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id); -- Bug 3586648
10884: l_split_workplan := 'N';
10885: END IF;
10886:
10887: IF NVL(l_split_workplan, 'N') = 'Y' AND p_resource_assignment_id IS NOT NULL THEN
10888: --delete from PA_PROG_ACT_BY_PERIOD_TEMP;
10889: -- 3994165 : Deletion is now moved to the wrapper Bulk API.
10890:
10891: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
10892: project_id
10887: IF NVL(l_split_workplan, 'N') = 'Y' AND p_resource_assignment_id IS NOT NULL THEN
10888: --delete from PA_PROG_ACT_BY_PERIOD_TEMP;
10889: -- 3994165 : Deletion is now moved to the wrapper Bulk API.
10890:
10891: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
10892: project_id
10893: , structure_version_id
10894: , task_id
10895: , resource_assignment_id
19573:
19574:
19575: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
19576:
19577: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
19578: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
19579:
19580: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
19581:
19574:
19575: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
19576:
19577: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
19578: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
19579:
19580: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
19581:
19582: FORALL i IN 1..l_t_index
19576:
19577: -- Bulk insert into the table: PA_PROG_ACT_BY_PERIOD_TEMP.
19578: pa_debug.log_message('GET_SUMM_ACT: Before inserting records in PA_PROG_ACT_BY_PERIOD_TEMP. Record Count = '||l_t_index, 1);
19579:
19580: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
19581:
19582: FORALL i IN 1..l_t_index
19583: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
19584: project_id
19579:
19580: delete from PA_PROG_ACT_BY_PERIOD_TEMP;
19581:
19582: FORALL i IN 1..l_t_index
19583: INSERT INTO PA_PROG_ACT_BY_PERIOD_TEMP(
19584: project_id
19585: ,structure_version_id
19586: ,task_id
19587: ,resource_assignment_id
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);
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),
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);
19785: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE(proj_ids_tbl(l_index),
19786: latest_wp_struct_ver_ids_tbl(l_index),
19787: 'PRE',
19788: l_conc_request_id,
23379: IF l_action = 'PUBLISH' AND l_split_workplan = 'Y' AND l_budget_call_required_tbl(i) = 'Y' AND p_structure_type = 'WORKPLAN'
23380: -- Removed for Bug 4416432 Issue 11 : AND p_object_type_tbl(i) <> 'PA_DELIVERABLES' -- Bug 4370820 : Added <> DELIVERABLES
23381: THEN
23382: IF g1_debug_mode = 'Y' THEN
23383: 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);
23384: END IF;
23385: BEGIN -- 4482295
23386: -- Bug 4416432 Issue 11 Added following Check
23387: l_check := 'N';
23389: INTO l_check
23390: FROM DUAL
23391: WHERE EXISTS
23392: (SELECT 'xyz'
23393: from PA_PROG_ACT_BY_PERIOD_TEMP
23394: where project_id = p_project_id_tbl(i)
23395: AND structure_version_id = l_structure_version_id_tbl(i));
23396: EXCEPTION -- 4482295
23397: WHEN NO_DATA_FOUND THEN
23396: EXCEPTION -- 4482295
23397: WHEN NO_DATA_FOUND THEN
23398: l_check := 'N';
23399: IF g1_debug_mode = 'Y' THEN
23400: 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);
23401: END IF;
23402: END; -- 4482295
23403:
23404: IF g1_debug_mode = 'Y' THEN
23445: x_msg_count := l_msg_count;
23446: RAISE FND_API.G_EXC_ERROR;
23447: END IF;
23448: Pa_Task_Pub1.G_CALL_PJI_ROLLUP := null ;
23449: 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);
23450: EXCEPTION
23451: WHEN OTHERS THEN
23452: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
23453: p_procedure_name => 'UPDATE_PROGRESS_BULK',