[Home] [Help]
1413: IF p_calling_module = 'AMG' THEN
1414: BEGIN
1415: --bug 3824042
1416: SELECT
1417: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
1418: nvl(pfxat.prj_brdn_cost,0) planned_cost, nvl(pfxat.labor_hours,0)+nvl(pfxat.equipment_hours,0) planned_effort
1419: INTO l_planned_cost, l_planned_effort
1420: FROM pji_fm_xbs_accum_tmp1 pfxat
1421: WHERE pfxat.project_id = p_project_id
1416: SELECT
1417: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
1418: nvl(pfxat.prj_brdn_cost,0) planned_cost, nvl(pfxat.labor_hours,0)+nvl(pfxat.equipment_hours,0) planned_effort
1419: INTO l_planned_cost, l_planned_effort
1420: FROM pji_fm_xbs_accum_tmp1 pfxat
1421: WHERE pfxat.project_id = p_project_id
1422: AND pfxat.struct_version_id = p_structure_version_id
1423: AND pfxat.project_element_id = p_object_id
1424: AND pfxat.calendar_type = 'A'
2266:
2267: /* Begin fix for Bug # 4050324. */
2268: BEGIN
2269: SELECT
2270: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
2271: nvl(pfxat.prj_base_brdn_cost,0)
2272: , (nvl(pfxat.base_labor_hours,0)+nvl(pfxat.base_equip_hours,0))
2273: INTO l_base_planned_cost
2274: , l_base_planned_effort
2271: nvl(pfxat.prj_base_brdn_cost,0)
2272: , (nvl(pfxat.base_labor_hours,0)+nvl(pfxat.base_equip_hours,0))
2273: INTO l_base_planned_cost
2274: , l_base_planned_effort
2275: FROM pji_fm_xbs_accum_tmp1 pfxat
2276: WHERE pfxat.project_id = p_project_id
2277: AND pfxat.struct_version_id = p_structure_version_id
2278: AND pfxat.project_element_id = p_object_id
2279: AND pfxat.calendar_type = 'A'
8241: RAISE FND_API.G_EXC_ERROR;
8242: END IF;
8243:
8244: -- 3.2). Calling PJI API: PJI_FM_XBS_ACCUM_UTILS.POPULATE_WORKPLAN_DATA() to populate
8245: -- the temporary table: PJI_FM_XBS_ACCUM_TMP1.This is done once here instead of, for each of the lowest tasks by calling
8246: -- PA_PROGRESS_PUB.push_workplan_actuals() with p_call_pji_apis_flag = 'Y'.
8247: -- Bug 3834339 : reducing the scope of IF so that populate_workplan_data gets called in version disabled case too
8248: END IF; -- IF (l_version_enabled_flag = 'Y') THEN
8249:
8292:
8293: DECLARE
8294: CURSOR tmp1 IS
8295: SELECT
8296: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
8297: * FROM pji_fm_xbs_accum_tmp1 WHERE project_id = p_project_id
8298: AND struct_version_id =p_working_str_version_id
8299: ;
8300: BEGIN
8293: DECLARE
8294: CURSOR tmp1 IS
8295: SELECT
8296: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
8297: * FROM pji_fm_xbs_accum_tmp1 WHERE project_id = p_project_id
8298: AND struct_version_id =p_working_str_version_id
8299: ;
8300: BEGIN
8301: FOR tmp1_rec IN tmp1 LOOP
13169: ETC_RATE_BASED_FLAG PA_PLSQL_DATATYPES.Char1TabTyp;
13170: ETC_PRJ_CURRENCY_CODE PA_PLSQL_DATATYPES.Char30TabTyp;
13171: ETC_PFC_CURRENCY_CODE PA_PLSQL_DATATYPES.Char30TabTyp;
13172:
13173: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
13174:
13175: t_PROJECT_ID PA_PLSQL_DATATYPES.Num15TabTyp;
13176: t_STRUCTURE_VERSION_ID PA_PLSQL_DATATYPES.Num15TabTyp;
13177: t_TASK_ID PA_PLSQL_DATATYPES.Num15TabTyp;
13202: l_period_flag VARCHAR2(1);
13203: l_last_period_flag VARCHAR2(1);
13204: l_extraction_type VARCHAR2(30);
13205:
13206: -- END: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
13207:
13208: -- cursor to get rollup record for as of date
13209: cursor rollup_rec_asofdate is
13210: select PROGRESS_ROLLUP_ID,
13670:
13671: -- cursor to get all objects from summ temp table
13672: cursor all_objects_in_temp is
13673: select
13674: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Bug # 4162534.
13675: *
13676: from pji_fm_xbs_accum_tmp1
13677: where project_id = l_project_id
13678: and struct_version_id = l_latest_wp_struct_ver_id
13672: cursor all_objects_in_temp is
13673: select
13674: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Bug # 4162534.
13675: *
13676: from pji_fm_xbs_accum_tmp1
13677: where project_id = l_project_id
13678: and struct_version_id = l_latest_wp_struct_ver_id
13679: and nvl(plan_version_id,-1) = decode(p_plan_res_level,'Y',-1,nvl(plan_version_id,-1))
13680: and project_element_id > 0
13747: /* Begin: Fix for Bug # 4018249. */
13748:
13749: cursor cur_record_count(l_cur_project_id NUMBER) is
13750: select
13751: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
13752: count(*)
13753: from pji_fm_xbs_accum_tmp1
13754: where project_id = l_cur_project_id;
13755:
13749: cursor cur_record_count(l_cur_project_id NUMBER) is
13750: select
13751: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
13752: count(*)
13753: from pji_fm_xbs_accum_tmp1
13754: where project_id = l_cur_project_id;
13755:
13756: l_record_count NUMBER := null;
13757:
14576: l_object_type <> l_last_object_Type or
14577: nvl(l_period_flag,'N') <> nvl(l_last_period_flag,'N') or
14578: (l_object_Type = 'PA_ASSIGNMENTS' and (nvl(l_last_res_list_mem_id,-99) <> nvl(l_new_res_list_member_id,-99)))) then --22
14579:
14580: -- BEGIN: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
14581:
14582: if (l_object_Type = 'PA_ASSIGNMENTS') then
14583:
14584: -- create a new record in the temp table:
14615: t_max_end_date(l_t_index) := all_objects_in_temp_rec.max_end_date;
14616:
14617: end if;
14618:
14619: -- END: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
14620:
14621: open w_rollup_rec_asofdate;
14622: fetch w_rollup_rec_asofdate into l_w_rollup_rec_asofdate;
14623: if w_rollup_rec_asofdate%notfound then
18126: ,ETC_RATE_BASED_FLAG(i)
18127: ,ETC_PRJ_CURRENCY_CODE(i)
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:
18191: ,to_number(null)
18192: ,t_min_start_date(i)
18193: ,t_max_end_date(i));
18194:
18195: -- END: Changes to take care of period flagged rows from the pji temporary table: pji_fm_xbs_accum_tmp1.
18196:
18197: /* Begin: Fix for Bug # 5526638. */
18198: /* Added If for Bug # 5659575*/
18199: if p_extraction_type <> 'PUBLISH' then