[Home] [Help]
4467: );
4468:
4469: --Project Connect 4.0
4470:
4471: --syns up pa_proj_elements with pa_tasks
4472: /* not required this anymore
4473:
4474: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4475: --although they had not been created in pa_tasks.
4470:
4471: --syns up pa_proj_elements with pa_tasks
4472: /* not required this anymore
4473:
4474: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4475: --although they had not been created in pa_tasks.
4476:
4477: PA_PROJ_TASK_STRUC_PUB.Clean_unwanted_tasks(
4478: p_project_id => l_project_id
5126: IF NVL(PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED,'N') = 'Y'
5127: THEN
5128: l_d_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
5129: ELSE
5130: l_d_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID( l_project_id, 'WORKPLAN');
5131: END IF;
5132:
5133: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_structure_version_id
5134: ,p_task_id => l_d_task_id);
5129: ELSE
5130: l_d_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID( l_project_id, 'WORKPLAN');
5131: END IF;
5132:
5133: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_structure_version_id
5134: ,p_task_id => l_d_task_id);
5135:
5136: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
5137: ,p_delimeter => l_task_in_rec.pred_delimiter
7148: THEN
7149: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id) = 'Y') THEN
7150: l_d_struct_ver_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(p_pa_project_id);
7151: ELSE
7152: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
7153: END IF;
7154: ELSE
7155: l_d_struct_ver_id := p_structure_version_id;
7156: END IF;
7154: ELSE
7155: l_d_struct_ver_id := p_structure_version_id;
7156: END IF;
7157:
7158: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_struct_ver_id
7159: ,p_task_id => l_d_task_id);
7160:
7161: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
7162: ,p_delimeter => l_task_in_rec.pred_delimiter
7348: END IF;
7349: END IF;
7350: IF (G_PROJECT_SHARING_TYPE = 'SHARE_PARTIAL' and l_structure_type /*p_structure_type 3746912*/= 'FINANCIAL') THEN
7351: --Get the task Version Id
7352: --l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id, l_task_id);
7353: OPEN c_get_pa_record_version_number ( l_task_version_id , l_project_id);
7354: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
7355: CLOSE c_get_pa_record_version_number;
7356: IF
17746:
17747: /** Code change begin by aditi for Bug 4120380 **/
17748: /** The code below will update the task_numbers of the tasks passed via update_project script
17749: back to their original value viz. it'll crop the '-' added to aviod the constraint check in
17750: PA_TASKS and PA_PROJ_ELEMENTS. **/
17751:
17752: /* bug #5243018: Reverting the fix in bug 4120380.
17753: i := 1;
17754: IF p_tasks_in.exists(i)
17758: SET task_number = p_tasks_in(i).pa_task_number
17759: WHERE task_number = '-'||p_tasks_in(i).pa_task_number
17760: AND project_id = l_project_id; -- BUG 4174041, rtarway
17761: ----dbms_output.put_line('value of sql%rowcount'||sql%rowcount);
17762: UPDATE pa_proj_elements
17763: SET element_number = p_tasks_in(i).pa_task_number
17764: WHERE element_number = '-'||p_tasks_in(i).pa_task_number
17765: AND project_id = l_project_id; -- BUG 4174041, rtarway
17766: ----dbms_output.put_line('value of recod updates in pa_proj_elements'||sql%rowcount);
17762: UPDATE pa_proj_elements
17763: SET element_number = p_tasks_in(i).pa_task_number
17764: WHERE element_number = '-'||p_tasks_in(i).pa_task_number
17765: AND project_id = l_project_id; -- BUG 4174041, rtarway
17766: ----dbms_output.put_line('value of recod updates in pa_proj_elements'||sql%rowcount);
17767: i := p_tasks_in.next(i);
17768: END LOOP;
17769: End if;
17770: Revert end bug #5243018 */
21828: END IF;
21829: END IF;
21830: --maansari5/18
21831:
21832: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_update_structure_version_id
21833: ,p_task_id => l_d_task_id);
21834:
21835: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
21836: ,p_delimeter => l_task_in_rec.pred_delimiter
24154: --l_structure_version_id := p_structure_version_id;
24155: --Added by rtarway for BUG 4106154
24156: if (l_update_pa_tasks = 'Y' AND
24157: --Added by rtarway for bug 4321313
24158: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_pa_task_id) = 'Y'
24159: ) then
24160:
24161: --In case of Shared Structures, we do not need to update dff attributes in pa_tasks, instead
24162: --dff fields of pa_proj_elem_ver_schedule are updated
24432: --Begin Add by rtarway FP.M chages for Set Financial Task
24433: IF (G_PROJECT_SHARING_TYPE = 'SHARE_PARTIAL' and nvl(l_is_wp_separate_from_fn,'N') = 'N') THEN --l_structure_type
24434: --Get the task Version Id
24435: --BUG 3919800,p_structure_version_id and p_pa_task_id are replaced
24436: l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(l_structure_version_id, l_pa_task_id);
24437: OPEN c_get_pa_record_version_number ( l_task_version_id , l_project_id ); --Bug#3747312
24438: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
24439: CLOSE c_get_pa_record_version_number;
24440: IF ( p_financial_task_flag IS NOT NULL AND p_financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
24479: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'Y'
24480: THEN
24481: IF l_task_version_id IS NULL
24482: THEN
24483: l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(l_structure_version_id, l_pa_task_id);
24484: END IF;
24485: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
24486: p_tasks_in => l_tasks_out
24487: ,p_task_version_id => l_task_version_id
24593: /*
24594: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id) = 'Y') THEN
24595: l_d_struct_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_d_task_id);
24596: ELSE
24597: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
24598: END IF;
24599: */ --we dont need this. The structure version id is derived.
24600:
24601: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_structure_version_id
24597: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
24598: END IF;
24599: */ --we dont need this. The structure version id is derived.
24600:
24601: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_structure_version_id
24602: ,p_task_id => l_d_task_id);
24603:
24604: pa_proj_task_struc_pub.parse_predecessor_import(p_string => p_pred_string
24605: ,p_delimeter => p_pred_delimiter
30088:
30089: l_project_id NUMBER;
30090: l_task_id NUMBER;
30091: l_project_number Pa_Projects_All.Segment1%TYPE;
30092: l_task_number Pa_Proj_Elements.Name%TYPE;
30093: l_task_source_reference VARCHAR2(240);
30094: l_deliverable_element_id NUMBER;
30095: l_deliverable_version_id NUMBER;
30096: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30095: l_deliverable_version_id NUMBER;
30096: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30097: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30098: l_dlvr_enabled VARCHAR2(1) := NULL;
30099: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
30100:
30101: l_unique_flag VARCHAR2(1) := null;
30102: l_err_message Fnd_New_Messages.Message_text%TYPE; -- for AMG message
30103:
30116: l_pm_product_code VARCHAR2(2) :='Z'; /* Bug 3651113 */
30117:
30118: -- 3651542 added local variable
30119:
30120: l_dlvr_owner_id PA_PROJ_ELEMENTS.MANAGER_PERSON_ID%TYPE;
30121: l_dlvr_owner_name PER_ALL_PEOPLE_F.FULL_NAME%TYPE;
30122: l_default_date DATE;
30123:
30124: /*cursor added for Bug 3651113 */
30261:
30262: -- 5462298 Added below code to validate passed task id
30263: -- if it is not workplan task , throw error message
30264:
30265: l_wp_task_flag := PA_PROJ_ELEMENTS_UTILS.CHECK_IS_WORKPLAN_TASK (
30266: p_project_id => l_project_id
30267: , p_proj_element_id => l_task_id );
30268:
30269: IF l_wp_task_flag <> 'Y' THEN
30305: -- Fetching Task Name , Project Name to use as token in Error Messages.
30306:
30307: IF (l_task_id IS NOT NULL) THEN
30308: SELECT name INTO l_task_number
30309: FROM Pa_Proj_Elements
30310: WHERE proj_element_id = l_task_id;
30311: ELSE
30312: l_task_number := null;
30313: END IF;
30752:
30753: -- 3749462 changed the cursor, added two parameters and using it
30754: Cursor C_dlvr_type(l_project_id NUMBER, l_deliverable_id NUMBER) IS
30755: SELECT type_id
30756: FROM PA_PROJ_ELEMENTS
30757: WHERE proj_element_id = l_deliverable_id
30758: AND project_id = l_project_id
30759: AND OBJECT_TYPE = 'PA_DELIVERABLES';
30760:
30765:
30766: l_project_id NUMBER;
30767: l_task_id NUMBER;
30768: l_project_number Pa_Projects_All.Segment1%TYPE;
30769: l_task_number Pa_Proj_Elements.Name%TYPE;
30770: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30771:
30772: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30773: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30766: l_project_id NUMBER;
30767: l_task_id NUMBER;
30768: l_project_number Pa_Projects_All.Segment1%TYPE;
30769: l_task_number Pa_Proj_Elements.Name%TYPE;
30770: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30771:
30772: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30773: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30774: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
30770: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30771:
30772: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30773: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30774: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
30775:
30776: l_msg_index_out NUMBER;
30777: l_msg_count NUMBER ;
30778: l_data VARCHAR2(2000);
31275:
31276: Cursor C_vers (p_proj_element_id NUMBER) IS
31277: SELECT vers.element_version_id
31278: FROM pa_proj_element_versions vers
31279: , pa_proj_elements elem
31280: WHERE vers.proj_element_id = elem.proj_element_id
31281: AND elem.project_id = vers.project_id
31282: AND elem.proj_element_id = p_proj_element_id
31283: AND elem.project_id = vers.project_id
32489: l_action_id NUMBER;
32490: l_action_version_id NUMBER;
32491: l_deliverable_id NUMBER;
32492: l_dlvr_version_id NUMBER;
32493: l_function_code Pa_Proj_Elements.function_code%TYPE;
32494:
32495: l_function_allowed VARCHAR2(1);
32496: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32497:
32786: l_task_id NUMBER;
32787: l_task_reference VARCHAR2(240);
32788: l_deliverable_id NUMBER;
32789: l_dlvr_version_id NUMBER;
32790: l_function_code Pa_Proj_Elements.function_code%TYPE;
32791: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32792: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32793:
32794: l_function_allowed VARCHAR2(1);
33074: l_task_id NUMBER;
33075: l_task_reference VARCHAR2(240);
33076: l_deliverable_id NUMBER;
33077: l_dlvr_version_id NUMBER;
33078: l_function_code Pa_Proj_Elements.function_code%TYPE;
33079: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
33080:
33081: l_function_allowed VARCHAR2(1);
33082: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
33191:
33192: -- 5462298 Added below code to validate passed task id
33193: -- if it is not workplan task , throw error message
33194:
33195: l_wp_task_flag := PA_PROJ_ELEMENTS_UTILS.CHECK_IS_WORKPLAN_TASK (
33196: p_project_id => l_project_id
33197: , p_proj_element_id => l_task_id );
33198:
33199: IF l_wp_task_flag <> 'Y' THEN
33362: l_task_assign_id NUMBER;
33363: l_task_assign_reference VARCHAR2(240);
33364: l_deliverable_id NUMBER;
33365: l_dlvr_version_id NUMBER;
33366: l_function_code Pa_Proj_Elements.function_code%TYPE;
33367: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
33368: l_task_assignment_id NUMBER ;
33369:
33370: l_function_allowed VARCHAR2(1);
33641: l_task_assign_id NUMBER;
33642: l_task_assign_reference VARCHAR2(240);
33643: l_deliverable_id NUMBER;
33644: l_dlvr_version_id NUMBER;
33645: l_function_code Pa_Proj_Elements.function_code%TYPE;
33646: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
33647: l_task_assignment_id NUMBER ;
33648:
33649: l_function_allowed VARCHAR2(1);
34117: )
34118: THEN
34119:
34120: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
34121: l_wp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
34122: IF (l_wp_structure_version_id = -1 OR l_wp_structure_version_id = NULL)
34123: THEN
34124: l_wp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34125: END IF;
34128: THEN
34129: l_wp_structure_version_id :=p_wp_structure_version_id;
34130: END IF;
34131: --1.2.1.1 get the l_wp_task_version_id
34132: l_wp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
34133: (
34134: p_structure_version_id => l_wp_structure_version_id
34135: , p_task_id => l_wp_task_id
34136: );
34472: -- Avoid this call if wkp task name and wkp task version ids are passed
34473: IF (l_wkp_task_id IS NOT NULL AND l_wkp_structure_version_id IS NULL ) THEN
34474:
34475: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
34476: l_wkp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
34477: IF (l_wkp_structure_version_id = -1 OR l_wkp_structure_version_id = NULL)
34478: THEN
34479: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34480: END IF;
34479: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34480: END IF;
34481: END IF;
34482: END IF;
34483: l_wkp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
34484: (
34485: p_structure_version_id => l_wkp_structure_version_id
34486: , p_task_id => l_wkp_task_id
34487: );
34820: --Get the task version id from Wkp task Id
34821: -- Avoid this call if wkp task name and wkp task version ids are passed
34822: IF (l_wkp_task_id IS NOT NULL AND l_wkp_structure_version_id IS NULL ) THEN
34823: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
34824: l_wkp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
34825: IF (l_wkp_structure_version_id IS NULL OR l_wkp_structure_version_id = -1) THEN
34826: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34827: END IF;
34828: END IF;
34826: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34827: END IF;
34828: END IF;
34829: END IF;
34830: l_wkp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
34831: (
34832: p_structure_version_id => l_wkp_structure_version_id
34833: , p_task_id => l_wkp_task_id
34834: );
35141: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
35142: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
35143: IS
35144: select ppev.element_version_id
35145: from pa_proj_elements ppe, pa_proj_element_versions ppev
35146: where ppe.project_id = c_project_id
35147: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
35148: and ppe.project_id = ppev.project_Id
35149: and ppe.proj_element_id = ppev.proj_element_id
35151:
35152: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
35153: IS
35154: select ppev.element_version_id
35155: from pa_proj_elements ppe, pa_proj_element_versions ppev
35156: where ppe.project_id = c_project_id
35157: and ppe.proj_element_id = c_task_id
35158: and ppe.project_id = ppev.project_Id
35159: and ppe.proj_element_id = ppev.proj_element_id
35295: --end bug 3880403
35296: --
35297: -- Bug 3768933 Validating the relationship_subtype
35298: -- Bug 8513869 - Replaced lookup type PA_OBJECT_DEPENDENCY_TYPES with PA_DEPENDENCY_TYPE
35299: IF PA_PROJ_ELEMENTS_UTILS.check_pa_lookup_exists('PA_DEPENDENCY_TYPE',p_type) <> 'Y' THEN
35300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35301: p_msg_name => 'PA_PS_INV_REL_SUBTYPE_VAL');
35302: RAISE FND_API.G_EXC_ERROR;
35303: END IF;
35393: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
35394: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
35395: IS
35396: select ppev.element_version_id
35397: from pa_proj_elements ppe, pa_proj_element_versions ppev
35398: where ppe.project_id = c_project_id
35399: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
35400: and ppe.project_id = ppev.project_Id
35401: and ppe.proj_element_id = ppev.proj_element_id
35403:
35404: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
35405: IS
35406: select ppev.element_version_id
35407: from pa_proj_elements ppe, pa_proj_element_versions ppev
35408: where ppe.project_id = c_project_id
35409: and ppe.proj_element_id = c_task_id
35410: and ppe.project_id = ppev.project_Id
35411: and ppe.proj_element_id = ppev.proj_element_id
35654: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
35655: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
35656: IS
35657: select ppev.element_version_id
35658: from pa_proj_elements ppe, pa_proj_element_versions ppev
35659: where ppe.project_id = c_project_id
35660: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
35661: and ppe.project_id = ppev.project_Id
35662: and ppe.proj_element_id = ppev.proj_element_id
35664:
35665: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
35666: IS
35667: select ppev.element_version_id
35668: from pa_proj_elements ppe, pa_proj_element_versions ppev
35669: where ppe.project_id = c_project_id
35670: and ppe.proj_element_id = c_task_id
35671: and ppe.project_id = ppev.project_Id
35672: and ppe.proj_element_id = ppev.proj_element_id
35904:
35905: cursor c_valid_task_id(c_task_id NUMBER,c_project_id NUMBER)
35906: is
35907: select 'Y'
35908: from pa_proj_elements
35909: where proj_element_id = c_task_id
35910: and project_id = c_project_id ;
35911:
35912: cursor get_task_ver_id(c_task_id NUMBER)
35933: -- The Following cursor has been commented for Performance Bug 4878722 SQL ID 14909071
35934: -- The purpose of this cursor per usage in this API is to verify whether the task exists in any of the previously published versions
35935: -- cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35936: -- select ppe.element_number
35937: -- from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35938: -- where ppe.proj_element_id = p_pa_task_id
35939: -- and ppe.parent_structure_id = ppevs.proj_element_id
35940: -- and ppevs.status_code = 'STRUCTURE_PUBLISHED';
35941:
35970:
35971: cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35972: select 1 from dual
35973: where exists (select ppe.element_number
35974: from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35975: where ppe.proj_element_id = p_pa_task_id
35976: and ppe.object_type = 'PA_TASKS'
35977: and ppe.parent_structure_id = ppevs.proj_element_id
35978: and ppe.project_id = ppevs.project_id
37044: and pst.structure_type = c_structure_type;
37045:
37046: cursor l_cur_project_id1(c_task_id NUMBER) is
37047: select ppe.project_id
37048: from pa_proj_elements ppe
37049: where ppe.proj_element_id = c_task_id;
37050:
37051: cursor l_cur_project_id2(c_task_version_id NUMBER) is
37052: select ppev.project_id, ppev.proj_element_id
37078: where ppa.project_id = c_project_id;
37079:
37080: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37081: select ppe.name
37082: from pa_proj_elements ppe, pa_proj_element_versions ppev
37083: where ppe.project_id = ppev.project_id
37084: and ppe.proj_element_id = ppev.proj_element_id
37085: and ppev.element_version_id = c_task_ver_id;
37086:
37290: end if;
37291:
37292: -- Check if the task version id corresponds to a summary task.
37293: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration
37294: if (pa_proj_elements_utils.is_summary_task_or_structure(l_task_version_id) = 'Y') then
37295: -- The task is a summary task.
37296: open l_cur_prog_name(l_task_version_id);
37297: fetch l_cur_prog_name into l_program_name;
37298: close l_cur_prog_name;
37658: where ppa.project_id = c_project_id;
37659:
37660: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37661: select ppe.name
37662: from pa_proj_elements ppe, pa_proj_element_versions ppev
37663: where ppe.project_id = ppev.project_id
37664: and ppe.proj_element_id = ppev.proj_element_id
37665: and ppev.element_version_id = c_task_ver_id;
37666:
38243: where ppa.project_id = c_project_id;
38244:
38245: cursor l_cur_task_name (c_task_ver_id NUMBER) is
38246: select ppe.name
38247: from pa_proj_elements ppe, pa_proj_element_versions ppev
38248: where ppe.project_id = ppev.project_id
38249: and ppe.proj_element_id = ppev.proj_element_id
38250: and ppev.element_version_id = c_task_ver_id;
38251:
40005: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
40006: SELECT ptt.prog_entry_enable_flag
40007: FROM pa_task_types ptt
40008: , pa_proj_element_versions ppev,
40009: pa_proj_elements ppe
40010: WHERE ppev.element_version_id = c_element_version_id
40011: AND ppev.proj_element_id = ppe.proj_element_id
40012: AND ptt.object_type = 'PA_TASKS'
40013: AND ppe.TYPE_ID = ptt.task_type_id;
40148: l_weighting_basis_Code VARCHAR2(30);
40149:
40150: cursor get_task_type_id(c_proj_element_id NUMBER) IS
40151: select type_id
40152: from pa_proj_elements
40153: where proj_element_id = c_proj_element_id;
40154: l_task_type_id NUMBER;
40155: l_wp_process_flag VARCHAR2(1);
40156:
40357: -- Lifecycle Phase validation Changes. Check if task has phase associated with it
40358: IF (p_task_version_id IS NOT NULL) AND
40359: (p_task_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
40360:
40361: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
40362: src_proj_element_id)) THEN
40363: --Indenting a task with phase. Error
40364: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
40365: raise FND_API.G_EXC_ERROR;
40423: CLOSE cur_get_ref_tsk_ver_id;
40424:
40425: END IF;
40426:
40427: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
40428: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40429: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
40430: raise FND_API.G_EXC_ERROR;
40431: END IF;
40430: raise FND_API.G_EXC_ERROR;
40431: END IF;
40432:
40433: --Check if ok to indent this task
40434: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
40435: p_task_ver_id => p_task_version_id
40436: ,x_return_status => l_return_status
40437: ,x_error_message_code => l_error_msg_code
40438: );
40467: END IF;
40468: END IF;
40469: --end bug 3069306
40470:
40471: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
40472: p_parent_task_ver_id => l_parent_ver_id
40473: ,x_return_status => l_return_status
40474: ,x_error_message_code => l_error_msg_code
40475: );
40507: END IF;
40508: --end bug 3069306
40509:
40510:
40511: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
40512: p_parent_task_ver_id => ref_elem_ver_id
40513: ,x_return_status => l_return_status
40514: ,x_error_message_code => l_error_msg_code
40515: );
40548: End If;
40549: End If;
40550:
40551: --check the task is a lowest task bug 3301192
40552: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
40553:
40554: /*** The following part should do the same task as done by PA_TASK_PUB1.Update_Task_Version and Update_wbs_numbers ***/
40555:
40556: -- Logic Added for plsql table
40970: l_project_id);
40971: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
40972: l_project_id);
40973:
40974: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --indent in corresponding task in pa_tasks
40975:
40976: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
40977: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
40978: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
41214: END IF;
41215: END IF;
41216:
41217: --check the task is a lowest task again and check whehter its no more a lowest task.
41218: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
41219:
41220: IF l_lowest_task_flag1 = 'Y' AND
41221: l_lowest_task_flag2 = 'N'
41222: THEN
41416: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
41417: SELECT ptt.prog_entry_enable_flag
41418: FROM pa_task_types ptt
41419: , pa_proj_element_versions ppev,
41420: pa_proj_elements ppe
41421: WHERE ppev.element_version_id = c_element_version_id
41422: AND ppev.proj_element_id = ppe.proj_element_id
41423: AND ppe.TYPE_ID = ptt.task_type_id;
41424:
41623: l_weighting_basis_Code VARCHAR2(30);
41624:
41625: cursor get_task_type_id(c_proj_element_id NUMBER) IS
41626: select type_id
41627: from pa_proj_elements
41628: where proj_element_id = c_proj_element_id;
41629: l_task_type_id NUMBER;
41630: l_wp_process_flag VARCHAR2(1);
41631:
41770: END IF;
41771:
41772: IF (p_structure_version_id IS NOT NULL) AND
41773: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
41774: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
41775: p_structure_version_id,
41776: p_task_version_id)) THEN
41777: --deleting linked task. Error
41778: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
41871:
41872: end if;
41873:
41874: --Check if ok to OUTDENT this task
41875: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
41876: p_task_ver_id => p_task_version_id
41877: ,x_return_status => l_return_status
41878: ,x_error_message_code => l_error_msg_code
41879: );
41905: raise FND_API.G_EXC_ERROR;
41906: END IF;
41907: END IF;
41908:
41909: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
41910: p_parent_task_ver_id => l_parent_ver_id
41911: ,x_return_status => l_return_status
41912: ,x_error_message_code => l_error_msg_code
41913: );
41939: End If;
41940: End If;
41941:
41942: --check the task is a lowest task bug 3301192
41943: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
41944:
41945: -- End of FP_M changes
41946:
41947: /*** The following part should do the same task as done by PA_TASK_PUB1.Update_Task_Version and Update_wbs_numbers ***/
42487: l_project_id);
42488: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
42489: l_project_id);
42490:
42491: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --outdent in corresponding task in pa_tasks
42492:
42493: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
42494: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
42495: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
42730: end if;
42731: END IF;
42732: END IF;
42733: --check the task is a lowest task again and check whehter its no more a lowest task.
42734: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
42735:
42736: IF l_lowest_task_flag1 = 'Y' AND
42737: l_lowest_task_flag2 = 'N'
42738: THEN
43306: WHERE PROJECT_ID=c_proj_id;
43307:
43308: Cursor C2(c_proj_id Number , c_number varchar2) IS
43309: Select proj_element_id
43310: From pa_proj_elements
43311: Where project_id=c_proj_id
43312: and element_number=c_number;
43313:
43314: Cursor C3(c_proj_id Number , c_number varchar2) IS
43318: and task_number=c_number;
43319:
43320: Cursor check_task_exists_wp(c_proj_id Number ,c_task_id Number) IS
43321: Select Count(1)
43322: From pa_proj_elements
43323: Where project_id=c_proj_id
43324: and proj_element_id=c_task_id;
43325:
43326: Cursor check_task_exists_fp(c_proj_id Number ,c_task_id Number) IS
43604: WHERE PROJECT_ID=c_proj_id;
43605:
43606: Cursor C2(c_proj_id Number , c_number varchar2) IS
43607: Select proj_element_id
43608: From pa_proj_elements
43609: Where project_id=c_proj_id
43610: and element_number=c_number;
43611:
43612: Cursor C3(c_proj_id Number , c_number varchar2) IS
43616: and task_number=c_number;
43617:
43618: Cursor check_task_exists_wp(c_proj_id Number ,c_task_id Number) IS
43619: Select Count(1)
43620: From pa_proj_elements
43621: Where project_id=c_proj_id
43622: and proj_element_id=c_task_id;
43623:
43624: Cursor check_task_exists_fp(c_proj_id Number ,c_task_id Number) IS