[Home] [Help]
96: and t.structure_type_class_code = c_struc_type;
97:
98: CURSOR Get_Element_Id(c_elem_ver_id NUMBER) IS
99: select proj_element_id, object_type
100: from pa_proj_element_versions
101: where element_version_id = c_elem_ver_id;
102:
103: CURSOR Get_Parent_Struc_Ver_Id(c_elem_ver_id NUMBER) IS
104: select parent_structure_Version_id
101: where element_version_id = c_elem_ver_id;
102:
103: CURSOR Get_Parent_Struc_Ver_Id(c_elem_ver_id NUMBER) IS
104: select parent_structure_Version_id
105: from pa_proj_element_versions
106: where element_version_id = c_elem_ver_id;
107:
108: CURSOR Get_Top_Task_ID(c_project_id NUMBER, c_structure_id NUMBER) IS
109: select pev.proj_element_id
106: where element_version_id = c_elem_ver_id;
107:
108: CURSOR Get_Top_Task_ID(c_project_id NUMBER, c_structure_id NUMBER) IS
109: select pev.proj_element_id
110: from pa_proj_element_versions pev,
111: pa_proj_element_versions pev2,
112: pa_object_relationships rel
113: where pev2.project_id = c_project_id
114: and pev2.object_type = 'PA_STRUCTURES'
107:
108: CURSOR Get_Top_Task_ID(c_project_id NUMBER, c_structure_id NUMBER) IS
109: select pev.proj_element_id
110: from pa_proj_element_versions pev,
111: pa_proj_element_versions pev2,
112: pa_object_relationships rel
113: where pev2.project_id = c_project_id
114: and pev2.object_type = 'PA_STRUCTURES'
115: and pev2.proj_element_id = c_structure_id
133: and pevs.latest_eff_published_flag = 'Y';
134:
135: CURSOR Get_Scheduled_Dates(c_element_version_id NUMBER) IS
136: select a.scheduled_start_date, a.scheduled_finish_date
137: from pa_proj_elem_ver_schedule a, pa_proj_element_versions b
138: where b.element_version_id = c_element_version_id
139: and a.project_id = b.project_id
140: and a.element_version_id = b.element_version_id;
141:
962: If (l_link_task_ver.relationship_type = 'L') THEN
963: --need to delete link task if removing links.
964: select record_version_number
965: into l_task_version_rvn
966: from pa_proj_element_versions
967: where element_version_id = l_link_task_ver.object_id_from1;
968:
969: PA_TASK_PUB1.DELETE_TASK_VERSION(p_commit => 'N',
970: p_debug_mode => p_debug_mode,
1095:
1096: CURSOR get_src_str_status
1097: IS
1098: SELECT status_code
1099: FROM pa_proj_element_versions ppev,
1100: pa_proj_elem_ver_structure ppevs
1101: WHERE ppev.project_id = p_src_proj_id
1102: AND ppev.element_version_id = p_src_task_ver_id
1103: AND ppev.parent_structure_version_id = ppevs.element_version_id
1106:
1107: CURSOR get_dest_task_ver_id
1108: IS
1109: SELECT pev2.element_version_id, 'STRUCTURE_WORKING' status_code
1110: FROM pa_proj_element_versions pev,
1111: pa_proj_elem_ver_structure str,
1112: pa_proj_element_versions pev2
1113: WHERE pev.proj_element_id = pev2.proj_element_id
1114: AND pev.project_id = pev2.project_id
1108: IS
1109: SELECT pev2.element_version_id, 'STRUCTURE_WORKING' status_code
1110: FROM pa_proj_element_versions pev,
1111: pa_proj_elem_ver_structure str,
1112: pa_proj_element_versions pev2
1113: WHERE pev.proj_element_id = pev2.proj_element_id
1114: AND pev.project_id = pev2.project_id
1115: AND pev2.parent_structure_version_id = str.element_version_id
1116: AND pev2.project_id = str.project_id
1118: AND str.status_code <> 'STRUCTURE_PUBLISHED'
1119: AND pev.element_version_id = p_dest_task_ver_id
1120: UNION ALL
1121: SELECT pev2.element_version_id, 'STRUCTURE_PUBLISHED' status_code
1122: FROM pa_proj_element_versions pev,
1123: pa_proj_elem_ver_structure str,
1124: pa_proj_element_versions pev2
1125: WHERE pev.proj_element_id = pev2.proj_element_id
1126: AND pev.project_id = pev2.project_id
1120: UNION ALL
1121: SELECT pev2.element_version_id, 'STRUCTURE_PUBLISHED' status_code
1122: FROM pa_proj_element_versions pev,
1123: pa_proj_elem_ver_structure str,
1124: pa_proj_element_versions pev2
1125: WHERE pev.proj_element_id = pev2.proj_element_id
1126: AND pev.project_id = pev2.project_id
1127: AND pev2.parent_structure_version_id = str.element_version_id
1128: AND pev2.project_id = str.project_id
1672: AND por1.relationship_type = 'D'
1673: AND por1.object_id_from1 = por2.object_id_from1
1674: AND por2.object_id_to1 IN (
1675: select ppev1.element_version_id
1676: from pa_proj_element_versions ppev1,
1677: pa_proj_element_versions ppev2
1678: where ppev2.element_version_id = por1.object_id_to1
1679: and ppev2.project_id = ppev1.project_id
1680: and ppev2.proj_element_Id = ppev1.proj_element_id);
1673: AND por1.object_id_from1 = por2.object_id_from1
1674: AND por2.object_id_to1 IN (
1675: select ppev1.element_version_id
1676: from pa_proj_element_versions ppev1,
1677: pa_proj_element_versions ppev2
1678: where ppev2.element_version_id = por1.object_id_to1
1679: and ppev2.project_id = ppev1.project_id
1680: and ppev2.proj_element_Id = ppev1.proj_element_id);
1681: --
1684: CURSOR cur_get_struc_det(cp_object_relationship_id NUMBER)
1685: IS
1686: SELECT parent_structure_version_id,project_id
1687: FROM pa_object_relationships por,
1688: pa_proj_element_versions ppev
1689: WHERE por.object_relationship_id = cp_object_relationship_id
1690: AND ppev.element_version_id = por.object_id_from1;
1691: l_project_id NUMBER;
1692: l_struc_ver_id NUMBER;
1829: a.project_id,
1830: r.relationship_subtype,
1831: r.lag_day,
1832: r.comments
1833: from pa_proj_element_versions a,
1834: pa_proj_element_versions b,
1835: pa_proj_element_versions c,
1836: pa_proj_element_versions d,
1837: pa_object_relationships r
1830: r.relationship_subtype,
1831: r.lag_day,
1832: r.comments
1833: from pa_proj_element_versions a,
1834: pa_proj_element_versions b,
1835: pa_proj_element_versions c,
1836: pa_proj_element_versions d,
1837: pa_object_relationships r
1838: where a.project_id = b.project_id
1831: r.lag_day,
1832: r.comments
1833: from pa_proj_element_versions a,
1834: pa_proj_element_versions b,
1835: pa_proj_element_versions c,
1836: pa_proj_element_versions d,
1837: pa_object_relationships r
1838: where a.project_id = b.project_id
1839: and a.proj_element_id = b.proj_element_id
1832: r.comments
1833: from pa_proj_element_versions a,
1834: pa_proj_element_versions b,
1835: pa_proj_element_versions c,
1836: pa_proj_element_versions d,
1837: pa_object_relationships r
1838: where a.project_id = b.project_id
1839: and a.proj_element_id = b.proj_element_id
1840: and a.parent_structure_version_id = P_source_struc_ver_id
1862: l_dependency_rec get_dependency%ROWTYPE;
1863:
1864: CURSOR get_parent_struc_ver_id(c_elem_ver_id NUMBER) IS
1865: select parent_structure_version_id, project_id
1866: from pa_proj_element_versions
1867: where element_version_id = c_elem_ver_id;
1868: l_parent_ver_id1 NUMBER;
1869: l_parent_ver_id2 NUMBER;
1870: l_project_id1 NUMBER;
2040: */
2041:
2042: cursor l_cur_all_tasks(c_task_ver_id NUMBER) is
2043: select count(ppev.element_version_id)
2044: from pa_proj_element_versions ppev
2045: where ppev.parent_structure_version_id = (select ppev2.parent_structure_version_id
2046: from pa_proj_element_versions ppev2
2047: where ppev2.element_version_id = c_task_ver_id)
2048: and ppev.object_type = 'PA_TASKS'
2042: cursor l_cur_all_tasks(c_task_ver_id NUMBER) is
2043: select count(ppev.element_version_id)
2044: from pa_proj_element_versions ppev
2045: where ppev.parent_structure_version_id = (select ppev2.parent_structure_version_id
2046: from pa_proj_element_versions ppev2
2047: where ppev2.element_version_id = c_task_ver_id)
2048: and ppev.object_type = 'PA_TASKS'
2049: and ppev.element_version_id not in (select pcdt.src_task_ver_id
2050: from pa_copy_dep_temp pcdt);
2534: --
2535: IF l_found_flag = 1 THEN
2536: SELECT project_id
2537: INTO l_src_proj_id
2538: FROM pa_proj_element_versions ppev
2539: WHERE ppev.element_version_id = p_destin_ver_tbl(i);
2540: --
2541: PA_Relationship_Pvt.Create_dependency (
2542: p_src_proj_id => l_src_proj_id
2600:
2601: CURSOR Check_Prev_Ver_Exists IS
2602: Select rel.object_relationship_id, rel.Record_Version_Number
2603: From pa_object_relationships rel,
2604: pa_proj_element_versions ppev1
2605: Where rel.relationship_type = 'D'
2606: and rel.object_id_from1 = ppev1.element_version_id
2607: and rel.object_id_to2 <> rel.object_id_from2
2608: and ppev1.parent_structure_version_id = P_Previous_Pub_Struc_Ver_ID;
2608: and ppev1.parent_structure_version_id = P_Previous_Pub_Struc_Ver_ID;
2609: /* --bug 3970398
2610: Select rel.object_relationship_id, rel.Record_Version_Number
2611: From pa_object_relationships rel,
2612: pa_proj_element_versions ppev1,
2613: pa_proj_element_versions ppev2
2614: Where rel.relationship_type = 'D'
2615: and rel.object_id_from1 = ppev1.element_version_id
2616: and rel.object_id_to1 = ppev2.element_version_id
2609: /* --bug 3970398
2610: Select rel.object_relationship_id, rel.Record_Version_Number
2611: From pa_object_relationships rel,
2612: pa_proj_element_versions ppev1,
2613: pa_proj_element_versions ppev2
2614: Where rel.relationship_type = 'D'
2615: and rel.object_id_from1 = ppev1.element_version_id
2616: and rel.object_id_to1 = ppev2.element_version_id
2617: and rel.object_id_to2 <> rel.object_id_from2
2619: --
2620: and Not Exists (
2621: Select 1
2622: From pa_object_relationships rel2,
2623: pa_proj_element_versions ppev3,
2624: pa_proj_element_versions ppev4
2625: where rel2.relationship_type = 'D'
2626: and rel2.object_id_to2 <> rel2.object_id_from2
2627: and rel.object_id_from1 = ppev3.element_version_id
2620: and Not Exists (
2621: Select 1
2622: From pa_object_relationships rel2,
2623: pa_proj_element_versions ppev3,
2624: pa_proj_element_versions ppev4
2625: where rel2.relationship_type = 'D'
2626: and rel2.object_id_to2 <> rel2.object_id_from2
2627: and rel.object_id_from1 = ppev3.element_version_id
2628: and rel.object_id_to1 = ppev4.element_version_id
2638: select ppev2.element_version_id, ppev2.project_id,
2639: rel1.object_id_to1, rel1.object_id_to2, rel1.lag_day, rel1.comments,
2640: rel1.relationship_subtype
2641: from pa_object_relationships rel1,
2642: pa_proj_element_versions ppev,
2643: pa_proj_element_versions ppev2
2644: where rel1.relationship_type = 'D'
2645: and rel1.object_id_to2 <> rel1.object_id_from2
2646: and rel1.object_id_from1 = ppev.element_version_id
2639: rel1.object_id_to1, rel1.object_id_to2, rel1.lag_day, rel1.comments,
2640: rel1.relationship_subtype
2641: from pa_object_relationships rel1,
2642: pa_proj_element_versions ppev,
2643: pa_proj_element_versions ppev2
2644: where rel1.relationship_type = 'D'
2645: and rel1.object_id_to2 <> rel1.object_id_from2
2646: and rel1.object_id_from1 = ppev.element_version_id
2647: and ppev.project_id = ppev2.project_id
2660: ,MAX(rel1.lag_day), MAX(rel1.comments), MAX(rel1.relationship_subtype)
2661: -- , rel1.object_relationship_id -- Fix for Bug # 4349093.
2662: -- , rel1.record_version_number
2663: from pa_object_relationships rel1,
2664: pa_proj_element_versions ppev,
2665: pa_proj_element_versions ppev2
2666: where rel1.relationship_type = 'D'
2667: and rel1.object_id_to2 <> rel1.object_id_from2
2668: and rel1.object_id_to1 = ppev.element_version_id
2661: -- , rel1.object_relationship_id -- Fix for Bug # 4349093.
2662: -- , rel1.record_version_number
2663: from pa_object_relationships rel1,
2664: pa_proj_element_versions ppev,
2665: pa_proj_element_versions ppev2
2666: where rel1.relationship_type = 'D'
2667: and rel1.object_id_to2 <> rel1.object_id_from2
2668: and rel1.object_id_to1 = ppev.element_version_id
2669: and ppev.project_id = ppev2.project_id
2680: rel1.object_id_to1, rel1.object_id_to2,
2681: ppev2.element_version_id,
2682: ppev2.project_id, rel1.lag_day, rel1.comments, rel1.relationship_subtype
2683: from pa_object_relationships rel1,
2684: pa_proj_element_versions ppev,
2685: pa_proj_element_versions ppev2
2686: where rel1.relationship_type = 'D'
2687: and rel1.object_id_to2 <> rel1.object_id_from2
2688: and rel1.object_id_to1 = ppev.element_version_id
2681: ppev2.element_version_id,
2682: ppev2.project_id, rel1.lag_day, rel1.comments, rel1.relationship_subtype
2683: from pa_object_relationships rel1,
2684: pa_proj_element_versions ppev,
2685: pa_proj_element_versions ppev2
2686: where rel1.relationship_type = 'D'
2687: and rel1.object_id_to2 <> rel1.object_id_from2
2688: and rel1.object_id_to1 = ppev.element_version_id
2689: and ppev.project_id = ppev2.project_id
2697: -- If published version is NULL, use this SQL
2698: CURSOR Delete_Publ_Ver IS
2699: select rel.object_relationship_id, rel.Record_Version_Number
2700: from pa_object_relationships rel,
2701: pa_proj_element_versions ppev
2702: where rel.relationship_type = 'D'
2703: and rel.object_id_from1 = ppev.element_version_id
2704: and ppev.parent_structure_version_id = P_Previous_Pub_Struc_Ver_ID
2705: --
2706: and rel.object_id_from2 <> rel.object_id_to2
2707: UNION
2708: select rel.object_relationship_id, rel.Record_Version_Number
2709: from pa_object_relationships rel,
2710: pa_proj_element_versions ppev
2711: where rel.relationship_type = 'D'
2712: and rel.object_id_to1 = ppev.element_version_id
2713: and ppev.parent_structure_version_id = P_Previous_Pub_Struc_Ver_ID
2714: --
3120: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3123: --
3124: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3125: /* This API call create task in pa_proj_element_versions and creates relationship between */
3126: /* linking task and its parent task in the pa_object_relationships table */
3127: PA_TASK_PUB1.CREATE_TASK_VERSION
3128: ( p_validate_only => FND_API.G_FALSE
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3123: --
3124: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3125: /* This API call create task in pa_proj_element_versions and creates relationship between */
3126: /* linking task and its parent task in the pa_object_relationships table */
3127: PA_TASK_PUB1.CREATE_TASK_VERSION
3128: ( p_validate_only => FND_API.G_FALSE
3129: ,p_validation_level => 0
3444: -- p_commit IN VARCHAR2 :=FND_API.G_FALSE
3445: -- p_debug_mode IN VARCHAR2 :='N'
3446: -- p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3447: -- p_src_proj_id IN pa_projects_all.project_id%type
3448: -- p_task_ver_id IN pa_proj_element_versions.element_version_id%type
3449: -- p_dest_proj_id IN pa_projects_all.project_id%type
3450: -- p_dest_proj_name IN pa_projects_all.name%type
3451: -- p_comment IN pa_object_relationships.comments%type
3452: -- x_return_status OUT VARCHAR2
3472: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3473: p_debug_mode IN VARCHAR2 :='N',
3474: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3475: p_src_proj_id IN pa_projects_all.project_id%type,
3476: p_task_ver_id IN pa_proj_element_versions.element_version_id%type,
3477: p_dest_proj_id IN pa_projects_all.project_id%type,
3478: p_dest_proj_name IN pa_projects_all.name%type,
3479: p_comment IN pa_object_relationships.comments%type,
3480: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
3484: l_src_proj_sharing_code pa_projects_all.structure_sharing_code%type;
3485: l_dest_proj_sharing_code pa_projects_all.structure_sharing_code%type;
3486: --
3487: l_src_struc_elem_id pa_proj_elements.proj_element_id%type;
3488: l_src_struc_elem_ver_id pa_proj_element_versions.element_version_id%type;
3489: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3490: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3491: --
3492: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3486: --
3487: l_src_struc_elem_id pa_proj_elements.proj_element_id%type;
3488: l_src_struc_elem_ver_id pa_proj_element_versions.element_version_id%type;
3489: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3490: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3491: --
3492: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3493: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3494: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3488: l_src_struc_elem_ver_id pa_proj_element_versions.element_version_id%type;
3489: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3490: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3491: --
3492: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3493: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3494: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3495: l_dest_fin_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3496: --
3489: l_src_task_elem_id pa_proj_elements.proj_element_id%type;
3490: l_src_task_financial_flag pa_proj_element_versions.financial_task_flag%type;
3491: --
3492: l_dest_fin_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3493: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3494: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3495: l_dest_fin_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3496: --
3497: l_parent_strucutre_version_id pa_proj_element_versions.element_version_id%type;
3493: l_dest_wp_str_ver_id pa_proj_element_versions.element_version_id%type:=0;
3494: l_dest_wp_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3495: l_dest_fin_struct_element_id pa_proj_elements.proj_element_id%type:=0;
3496: --
3497: l_parent_strucutre_version_id pa_proj_element_versions.element_version_id%type;
3498: --
3499: l_src_str_fin_enable_fl CHAR(1):='N';
3500: l_src_str_wp_enable_fl CHAR(1):='N';
3501: l_row_id VARCHAR2(100);
3500: l_src_str_wp_enable_fl CHAR(1):='N';
3501: l_row_id VARCHAR2(100);
3502: --
3503: l_lnk_task_elem_id number;
3504: l_lnk_task_elem_ver_id pa_proj_element_versions.element_version_id%type;
3505: l_pev_schedule_id number;
3506: l_task_name_number varchar2(240);
3507: l_msg_count NUMBER;
3508: l_msg_data varchar2(250);
3547: where ppa.project_id = c_project_id;
3548:
3549: cursor cur_task_name (c_task_ver_id NUMBER) is
3550: select ppe.name
3551: from pa_proj_elements ppe, pa_proj_element_versions ppev
3552: where ppe.project_id = ppev.project_id
3553: and ppe.proj_element_id = ppev.proj_element_id
3554: and ppev.element_version_id = c_task_ver_id;
3555:
3617: INTO l_src_struc_elem_id,
3618: l_src_struc_elem_ver_id,
3619: l_src_task_financial_flag,
3620: l_src_task_elem_id
3621: FROM pa_proj_element_versions ppev1,
3622: pa_proj_element_versions ppev2
3623: WHERE ppev1.element_version_id = p_task_ver_id
3624: AND ppev1.object_type = 'PA_TASKS'
3625: AND ppev1.project_id = p_src_proj_id
3618: l_src_struc_elem_ver_id,
3619: l_src_task_financial_flag,
3620: l_src_task_elem_id
3621: FROM pa_proj_element_versions ppev1,
3622: pa_proj_element_versions ppev2
3623: WHERE ppev1.element_version_id = p_task_ver_id
3624: AND ppev1.object_type = 'PA_TASKS'
3625: AND ppev1.project_id = p_src_proj_id
3626: AND ppev2.element_version_id = ppev1.parent_structure_version_id
3717: IF (l_dest_wp_str_ver_id >=0) THEN --SMukka
3718: BEGIN
3719: SELECT proj_element_id
3720: INTO l_dest_wp_struct_element_id
3721: FROM pa_proj_element_versions
3722: WHERE element_version_id = l_dest_wp_str_ver_id;
3723: EXCEPTION
3724: WHEN NO_DATA_FOUND THEN
3725: RAISE;
3739: IF (l_dest_fin_str_ver_id >= 0) THEN --SMukka
3740: BEGIN
3741: SELECT proj_element_id
3742: INTO l_dest_fin_struct_element_id
3743: FROM pa_proj_element_versions
3744: WHERE element_version_id = l_dest_fin_str_ver_id;
3745: EXCEPTION
3746: WHEN NO_DATA_FOUND THEN
3747: RAISE;
4457: IS
4458: -- Deleting sub-project association
4459: -- Input parameters for this API are
4460: -- object_relationship_id= p_object_relationships_id
4461: l_src_lnk_task_ver_id pa_proj_element_versions.element_version_id%type;
4462: l_dest_str_ver_id pa_proj_element_versions.element_version_id%type;
4463: l_src_proj_id pa_projects_all.project_id%type;
4464: l_dest_proj_id pa_projects_all.project_id%type;
4465: l_src_task_ver_id pa_proj_element_versions.element_version_id%type;
4458: -- Deleting sub-project association
4459: -- Input parameters for this API are
4460: -- object_relationship_id= p_object_relationships_id
4461: l_src_lnk_task_ver_id pa_proj_element_versions.element_version_id%type;
4462: l_dest_str_ver_id pa_proj_element_versions.element_version_id%type;
4463: l_src_proj_id pa_projects_all.project_id%type;
4464: l_dest_proj_id pa_projects_all.project_id%type;
4465: l_src_task_ver_id pa_proj_element_versions.element_version_id%type;
4466: l_task_version_rvn NUMBER;
4461: l_src_lnk_task_ver_id pa_proj_element_versions.element_version_id%type;
4462: l_dest_str_ver_id pa_proj_element_versions.element_version_id%type;
4463: l_src_proj_id pa_projects_all.project_id%type;
4464: l_dest_proj_id pa_projects_all.project_id%type;
4465: l_src_task_ver_id pa_proj_element_versions.element_version_id%type;
4466: l_task_version_rvn NUMBER;
4467: l_upd_prog_grp_status NUMBER:=0;
4468: --
4469: l_data VARCHAR2(250);
4480: get_lnk_obj_rel_attr_rec get_lnk_obj_rel_attr%ROWTYPE;
4481: --
4482: CURSOR get_rec_ver_num(cp_lnk_task_ver_id NUMBER) IS
4483: SELECT record_version_number --task_Version_rvn
4484: FROM pa_proj_element_versions
4485: WHERE element_version_id = cp_lnk_task_ver_id;
4486: get_rec_ver_num_rec get_rec_ver_num%ROWTYPE;
4487:
4488: CURSOR get_src_task_ver_id(cp_src_lnk_task_ver_id NUMBER) IS
4499: pora.object_id_to1 lnk_task_ver_id,
4500: porb.object_relationship_id lnk_obj_rel_id,
4501: porb.object_id_to1 lnk_dest_str_ver_id
4502: , porb.record_version_number lnk_record_ver_number -- Bug # 5072032.
4503: FROM pa_proj_element_versions ppev,
4504: pa_object_relationships pora,
4505: pa_object_relationships porb,
4506: pa_proj_elements ppe
4507: WHERE pora.relationship_type = 'S'
4522: --bug 4370533 --Issue #3 delete link
4523: CURSOR cur_src_structure_ver_id(c_src_task_ver_id NUMBER)
4524: IS
4525: SELECT project_id, parent_structure_version_id
4526: FROM pa_proj_element_versions
4527: WHERE element_version_id = c_src_task_ver_id
4528: ;
4529: l_src_structure_ver_id NUMBER;
4530: l_src_project_id NUMBER;
4906: CURSOR get_linking_task_info(cp_src_str_ver_id NUMBER) IS
4907: SELECT ppev.element_version_id lnk_task_ver_id,
4908: ppe.proj_element_id lnk_task_id
4909: FROM pa_proj_elements ppe,
4910: pa_proj_element_versions ppev
4911: WHERE ppe.proj_element_id = ppev.proj_element_id
4912: AND ppe.link_task_flag = 'Y'
4913: AND ppev.parent_structure_version_id = cp_src_str_ver_id
4914: AND ppe.project_id = ppev.project_id;
4939: --
4940:
4941: CURSOR get_new_pub_lnk_task_ver_id(c_dest_str_version_id NUMBER, c_link_task_id NUMBER) IS
4942: SELECT element_version_id
4943: FROM pa_proj_element_versions
4944: WHERE parent_structure_Version_id = c_dest_str_version_id
4945: AND proj_element_id = c_link_task_id;
4946: BEGIN
4947: --
4980: /*
4981: BEGIN
4982: SELECT element_version_id
4983: INTO l_new_pub_lnk_task_ver_id
4984: FROM pa_proj_element_versions
4985: WHERE parent_structure_Version_id = p_dest_str_version_id
4986: AND proj_element_id = get_linking_task_info_rec.lnk_task_id;
4987: IF (p_debug_mode = 'Y') THEN
4988: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id after select=> '||l_new_pub_lnk_task_ver_id);
5183: l_pub_str_ver_enable VARCHAR2(1);
5184: l_upd_prog_grp_status NUMBER:=0;
5185: --
5186: CURSOR get_working_ver(c_ver_id NUMBER) IS
5187: Select 1 from pa_proj_element_versions a, pa_proj_elem_ver_structure b
5188: where a.element_version_id = c_ver_id
5189: and a.project_id = b.project_id
5190: and a.parent_structure_version_id = b.element_version_id
5191: and b.status_code <> 'STRUCTURE_PUBLISHED';
5229: IF p_publish_fl = 'Y' THEN
5230: /* Will tell if versioning is enabled or not on the pub str*/
5231: SELECT project_id
5232: INTO l_proj_id
5233: FROM pa_proj_element_versions
5234: WHERE element_Version_id = get_coming_in_lnk_info_rec.object_id_from1;
5235: l_pub_str_ver_enable:=PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_proj_id);
5236: IF l_pub_str_ver_enable = 'N' THEN
5237: l_move_link_fl:='Y';
5609: SET PROCESS_UPDATE_WBS_FLAG = 'Y',
5610: process_code = 'CPI'
5611: WHERE project_id = cur_obj_rel_rec.object_id_from2
5612: AND element_version_id=(select parent_structure_version_id
5613: FROM pa_proj_element_versions
5614: WHERE project_id=cur_obj_rel_rec.object_id_from2
5615: AND element_version_id= cur_obj_rel_rec.object_id_from1
5616: );
5617: END LOOP;