[Home] [Help]
2894: IF p_structure_type = 'WORKPLAN' THEN
2895: BEGIN
2896: SELECT
2897:
2898: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
2899: PERIOD_NAME
2900: , ACT_PRJ_BRDN_COST-ACT_PRJ_EQUIP_BRDN_COST-ACT_PRJ_LABOR_BRDN_COST
2901: , ACT_PRJ_LABOR_BRDN_COST
2902: , ACT_PRJ_EQUIP_BRDN_COST
2982: , l_POU_EQUIP_RAW_COST
2983: , l_PRJ_EQUIP_RAW_COST
2984: , l_POU_OTH_RAW_COST
2985: , l_PRJ_OTH_RAW_COST
2986: FROM PJI_FM_XBS_ACCUM_TMP1
2987: WHERE project_id = p_project_id
2988: AND struct_version_id = p_structure_version_id
2989: AND project_element_id = cur_reverse_tree_rec.proj_element_id
2990: AND plan_version_id > 0
2996: null;
2997: WHEN OTHERS THEN
2998: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PVT',
2999: p_procedure_name => 'ROLLUP_PROGRESS_PVT',
3000: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_TMP1 Failed:'||SQLERRM,1,120));
3001: RAISE FND_API.G_EXC_ERROR;
3002: END;
3003:
3004:
4928:
4929: BEGIN
4930: SELECT
4931: */
4932: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
4933: /*
4934: PERIOD_NAME
4935: , ACT_PRJ_BRDN_COST-ACT_PRJ_EQUIP_BRDN_COST-ACT_PRJ_LABOR_BRDN_COST
4936: , ACT_PRJ_LABOR_BRDN_COST
5016: , l_POU_EQUIP_RAW_COST
5017: , l_PRJ_EQUIP_RAW_COST
5018: , l_POU_OTH_RAW_COST
5019: , l_PRJ_OTH_RAW_COST
5020: FROM PJI_FM_XBS_ACCUM_TMP1
5021: WHERE project_id = l_c1rec.parent_project_id
5022: AND struct_version_id = l_c1rec.parent_structure_ver_id
5023: AND project_element_id = l_c1rec.parent_task_id
5024: AND plan_version_id > 0
5030: null;
5031: WHEN OTHERS THEN
5032: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PVT',
5033: p_procedure_name => 'PROGRAM_ROLLUP_PVT',
5034: p_error_text => SUBSTRB('Select from PJI_FM_XBS_ACCUM_TMP1 Failed: SQLERRM'||SQLERRM,1,120));
5035: RAISE FND_API.G_EXC_ERROR;
5036: END;
5037:
5038:
6001: AND ppr.structure_version_id is null
6002: -- This query returns etc value = planned value when ther is no progress for the immediate sub-tasks.
6003: UNION ALL
6004: SELECT
6005: /*+ INDEX(pji_fm_xbs_accum_tmp1 pji_fm_xbs_accum_tmp1_n1)*/ -- Fix for Bug # 4162534.
6006: obj.object_id_from1 object_id_from1
6007: , ppev1.object_type parent_object_type
6008: , ppev1.wbs_level-1 parent_wbs_level
6009: , ppev2.element_version_id object_id_to1
6122: , 'N' base_progress_status_code
6123: FROM pa_proj_element_versions ppev1,
6124: pa_proj_element_versions ppev2,
6125: pa_object_relationships obj,
6126: pji_fm_xbs_accum_tmp1 pfxat,
6127: pa_proj_elements ppe -- 4392189
6128: WHERE obj.object_id_from1 = c_task_ver_id
6129: AND obj.object_id_from1 = ppev1.element_version_id
6130: AND obj.object_id_to1 = ppev2.element_version_id
6714:
6715: --- sql id: 14906260 bug 4871809
6716: CURSOR c_get_sub_project_progress (c_sub_project_id NUMBER, c_sub_str_version_id NUMBER, c_sub_proj_element_id NUMBER
6717: , c_as_of_date Date, c_task_per_comp_deriv_method VARCHAR2) IS
6718: SELECT /*+ index(pfxat pji_fm_xbs_accum_tmp1_n1) */
6719: ppr.progress_rollup_id
6720: , ppr.as_of_date
6721: , ppr.actual_start_date
6722: , ppr.actual_finish_date
6781: ,pa_project_statuses pps2
6782: ,pa_project_statuses pps3
6783: ,pa_project_statuses pps4
6784: ,pa_proj_elements ppe
6785: ,pji_fm_xbs_accum_tmp1 pfxat
6786: WHERE
6787: ppr.project_id = c_sub_project_id
6788: AND ppe.project_id = c_sub_project_id
6789: AND ppe.object_type = 'PA_STRUCTURES'
8422: ,l_POU_LABOR_RAW_COST
8423: ,l_PRJ_LABOR_RAW_COST
8424: ,l_POU_EQUIP_RAW_COST
8425: ,l_PRJ_EQUIP_RAW_COST
8426: FROM PJI_FM_XBS_ACCUM_TMP1
8427: WHERE project_id = p_project_id
8428: AND struct_version_id = p_structure_version_id
8429: AND project_element_id = p_task_id
8430: AND plan_version_id > 0
8436: null;
8437: WHEN OTHERS THEN
8438: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PVT',
8439: p_procedure_name => 'ASGN_DLV_TO_TASK_ROLLUP_PVT',
8440: p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_TMP1:'||SQLERRM,1,120));
8441: RAISE FND_API.G_EXC_ERROR;
8442: END;
8443: */
8444: --Bug 3614828 End
9051: l_subprj_id NUMBER;
9052: l_subprj_proj_elem_id NUMBER;
9053:
9054: -- We canot use directly the parent project
9055: -- from pji_fm_xbs_accum_tmp1 table
9056: -- because PJI table stores self amounts p_xxx
9057: -- only for PC and not for PFC.
9058:
9059: CURSOR c_get_subproj_act(c_str_version_id NUMBER, c_project_id NUMBER, c_proj_element_id NUMBER) IS
9085: ,ACT_POU_EQUIP_RAW_COST EQPMT_ACT_RAWCOST_TO_DATE_FC
9086: ,ACT_PRJ_EQUIP_RAW_COST EQPMT_ACT_RAWCOST_TO_DATE_PC
9087: ,ETC_POU_EQUIP_RAW_COST EQPMT_ETC_RAWCOST_FC
9088: ,ETC_PRJ_EQUIP_RAW_COST EQPMT_ETC_RAWCOST_PC
9089: FROM pji_fm_xbs_accum_tmp1 pjitmp
9090: WHERE pjitmp.project_id = c_project_id
9091: AND struct_version_id = c_str_version_id
9092: AND project_element_id = c_proj_element_id
9093: AND plan_version_id > 0