[Home] [Help]
4381: );
4382:
4383: --Project Connect 4.0
4384:
4385: --syns up pa_proj_elements with pa_tasks
4386: /* not required this anymore
4387:
4388: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4389: --although they had not been created in pa_tasks.
4384:
4385: --syns up pa_proj_elements with pa_tasks
4386: /* not required this anymore
4387:
4388: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4389: --although they had not been created in pa_tasks.
4390:
4391: PA_PROJ_TASK_STRUC_PUB.Clean_unwanted_tasks(
4392: p_project_id => l_project_id
5011: IF NVL(PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED,'N') = 'Y'
5012: THEN
5013: l_d_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
5014: ELSE
5015: l_d_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID( l_project_id, 'WORKPLAN');
5016: END IF;
5017:
5018: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_structure_version_id
5019: ,p_task_id => l_d_task_id);
5014: ELSE
5015: l_d_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID( l_project_id, 'WORKPLAN');
5016: END IF;
5017:
5018: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_structure_version_id
5019: ,p_task_id => l_d_task_id);
5020:
5021: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
5022: ,p_delimeter => l_task_in_rec.pred_delimiter
6905: THEN
6906: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id) = 'Y') THEN
6907: l_d_struct_ver_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(p_pa_project_id);
6908: ELSE
6909: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
6910: END IF;
6911: ELSE
6912: l_d_struct_ver_id := p_structure_version_id;
6913: END IF;
6911: ELSE
6912: l_d_struct_ver_id := p_structure_version_id;
6913: END IF;
6914:
6915: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_d_struct_ver_id
6916: ,p_task_id => l_d_task_id);
6917:
6918: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
6919: ,p_delimeter => l_task_in_rec.pred_delimiter
7105: END IF;
7106: END IF;
7107: IF (G_PROJECT_SHARING_TYPE = 'SHARE_PARTIAL' and l_structure_type /*p_structure_type 3746912*/= 'FINANCIAL') THEN
7108: --Get the task Version Id
7109: --l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id, l_task_id);
7110: OPEN c_get_pa_record_version_number ( l_task_version_id , l_project_id);
7111: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
7112: CLOSE c_get_pa_record_version_number;
7113: IF
17361:
17362: /** Code change begin by aditi for Bug 4120380 **/
17363: /** The code below will update the task_numbers of the tasks passed via update_project script
17364: back to their original value viz. it'll crop the '-' added to aviod the constraint check in
17365: PA_TASKS and PA_PROJ_ELEMENTS. **/
17366:
17367: /* bug #5243018: Reverting the fix in bug 4120380.
17368: i := 1;
17369: IF p_tasks_in.exists(i)
17373: SET task_number = p_tasks_in(i).pa_task_number
17374: WHERE task_number = '-'||p_tasks_in(i).pa_task_number
17375: AND project_id = l_project_id; -- BUG 4174041, rtarway
17376: ----dbms_output.put_line('value of sql%rowcount'||sql%rowcount);
17377: UPDATE pa_proj_elements
17378: SET element_number = p_tasks_in(i).pa_task_number
17379: WHERE element_number = '-'||p_tasks_in(i).pa_task_number
17380: AND project_id = l_project_id; -- BUG 4174041, rtarway
17381: ----dbms_output.put_line('value of recod updates in pa_proj_elements'||sql%rowcount);
17377: UPDATE pa_proj_elements
17378: SET element_number = p_tasks_in(i).pa_task_number
17379: WHERE element_number = '-'||p_tasks_in(i).pa_task_number
17380: AND project_id = l_project_id; -- BUG 4174041, rtarway
17381: ----dbms_output.put_line('value of recod updates in pa_proj_elements'||sql%rowcount);
17382: i := p_tasks_in.next(i);
17383: END LOOP;
17384: End if;
17385: Revert end bug #5243018 */
21368: END IF;
21369: END IF;
21370: --maansari5/18
21371:
21372: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_update_structure_version_id
21373: ,p_task_id => l_d_task_id);
21374:
21375: pa_proj_task_struc_pub.parse_predecessor_import(p_string => l_task_in_rec.pred_string
21376: ,p_delimeter => l_task_in_rec.pred_delimiter
23542: --l_structure_version_id := p_structure_version_id;
23543: --Added by rtarway for BUG 4106154
23544: if (l_update_pa_tasks = 'Y' AND
23545: --Added by rtarway for bug 4321313
23546: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_pa_task_id) = 'Y'
23547: ) then
23548:
23549: --In case of Shared Structures, we do not need to update dff attributes in pa_tasks, instead
23550: --dff fields of pa_proj_elem_ver_schedule are updated
23818: --Begin Add by rtarway FP.M chages for Set Financial Task
23819: IF (G_PROJECT_SHARING_TYPE = 'SHARE_PARTIAL' and nvl(l_is_wp_separate_from_fn,'N') = 'N') THEN --l_structure_type
23820: --Get the task Version Id
23821: --BUG 3919800,p_structure_version_id and p_pa_task_id are replaced
23822: l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(l_structure_version_id, l_pa_task_id);
23823: OPEN c_get_pa_record_version_number ( l_task_version_id , l_project_id ); --Bug#3747312
23824: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
23825: CLOSE c_get_pa_record_version_number;
23826: IF ( p_financial_task_flag IS NOT NULL AND p_financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
23865: IF PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS( l_project_id ) = 'Y'
23866: THEN
23867: IF l_task_version_id IS NULL
23868: THEN
23869: l_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(l_structure_version_id, l_pa_task_id);
23870: END IF;
23871: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
23872: p_tasks_in => l_tasks_out
23873: ,p_task_version_id => l_task_version_id
23978: /*
23979: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id) = 'Y') THEN
23980: l_d_struct_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_d_task_id);
23981: ELSE
23982: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
23983: END IF;
23984: */ --we dont need this. The structure version id is derived.
23985:
23986: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_structure_version_id
23982: l_d_struct_ver_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(p_pa_project_id, 'WORKPLAN');
23983: END IF;
23984: */ --we dont need this. The structure version id is derived.
23985:
23986: l_d_task_ver_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID(p_structure_version_id => l_structure_version_id
23987: ,p_task_id => l_d_task_id);
23988:
23989: pa_proj_task_struc_pub.parse_predecessor_import(p_string => p_pred_string
23990: ,p_delimeter => p_pred_delimiter
29463:
29464: l_project_id NUMBER;
29465: l_task_id NUMBER;
29466: l_project_number Pa_Projects_All.Segment1%TYPE;
29467: l_task_number Pa_Proj_Elements.Name%TYPE;
29468: l_task_source_reference VARCHAR2(240);
29469: l_deliverable_element_id NUMBER;
29470: l_deliverable_version_id NUMBER;
29471: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
29470: l_deliverable_version_id NUMBER;
29471: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
29472: l_dlvr_action_enabled VARCHAR2(1) := NULL;
29473: l_dlvr_enabled VARCHAR2(1) := NULL;
29474: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
29475:
29476: l_unique_flag VARCHAR2(1) := null;
29477: l_err_message Fnd_New_Messages.Message_text%TYPE; -- for AMG message
29478:
29491: l_pm_product_code VARCHAR2(2) :='Z'; /* Bug 3651113 */
29492:
29493: -- 3651542 added local variable
29494:
29495: l_dlvr_owner_id PA_PROJ_ELEMENTS.MANAGER_PERSON_ID%TYPE;
29496: l_dlvr_owner_name PER_ALL_PEOPLE_F.FULL_NAME%TYPE;
29497: l_default_date DATE;
29498:
29499: /*cursor added for Bug 3651113 */
29636:
29637: -- 5462298 Added below code to validate passed task id
29638: -- if it is not workplan task , throw error message
29639:
29640: l_wp_task_flag := PA_PROJ_ELEMENTS_UTILS.CHECK_IS_WORKPLAN_TASK (
29641: p_project_id => l_project_id
29642: , p_proj_element_id => l_task_id );
29643:
29644: IF l_wp_task_flag <> 'Y' THEN
29680: -- Fetching Task Name , Project Name to use as token in Error Messages.
29681:
29682: IF (l_task_id IS NOT NULL) THEN
29683: SELECT name INTO l_task_number
29684: FROM Pa_Proj_Elements
29685: WHERE proj_element_id = l_task_id;
29686: ELSE
29687: l_task_number := null;
29688: END IF;
30127:
30128: -- 3749462 changed the cursor, added two parameters and using it
30129: Cursor C_dlvr_type(l_project_id NUMBER, l_deliverable_id NUMBER) IS
30130: SELECT type_id
30131: FROM PA_PROJ_ELEMENTS
30132: WHERE proj_element_id = l_deliverable_id
30133: AND project_id = l_project_id
30134: AND OBJECT_TYPE = 'PA_DELIVERABLES';
30135:
30140:
30141: l_project_id NUMBER;
30142: l_task_id NUMBER;
30143: l_project_number Pa_Projects_All.Segment1%TYPE;
30144: l_task_number Pa_Proj_Elements.Name%TYPE;
30145: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30146:
30147: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30148: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30141: l_project_id NUMBER;
30142: l_task_id NUMBER;
30143: l_project_number Pa_Projects_All.Segment1%TYPE;
30144: l_task_number Pa_Proj_Elements.Name%TYPE;
30145: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30146:
30147: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30148: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30149: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
30145: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30146:
30147: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
30148: l_dlvr_action_enabled VARCHAR2(1) := NULL;
30149: l_status_code PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
30150:
30151: l_msg_index_out NUMBER;
30152: l_msg_count NUMBER ;
30153: l_data VARCHAR2(2000);
30650:
30651: Cursor C_vers (p_proj_element_id NUMBER) IS
30652: SELECT vers.element_version_id
30653: FROM pa_proj_element_versions vers
30654: , pa_proj_elements elem
30655: WHERE vers.proj_element_id = elem.proj_element_id
30656: AND elem.project_id = vers.project_id
30657: AND elem.proj_element_id = p_proj_element_id
30658: AND elem.project_id = vers.project_id
31864: l_action_id NUMBER;
31865: l_action_version_id NUMBER;
31866: l_deliverable_id NUMBER;
31867: l_dlvr_version_id NUMBER;
31868: l_function_code Pa_Proj_Elements.function_code%TYPE;
31869:
31870: l_function_allowed VARCHAR2(1);
31871: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
31872:
32161: l_task_id NUMBER;
32162: l_task_reference VARCHAR2(240);
32163: l_deliverable_id NUMBER;
32164: l_dlvr_version_id NUMBER;
32165: l_function_code Pa_Proj_Elements.function_code%TYPE;
32166: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32167: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32168:
32169: l_function_allowed VARCHAR2(1);
32449: l_task_id NUMBER;
32450: l_task_reference VARCHAR2(240);
32451: l_deliverable_id NUMBER;
32452: l_dlvr_version_id NUMBER;
32453: l_function_code Pa_Proj_Elements.function_code%TYPE;
32454: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32455:
32456: l_function_allowed VARCHAR2(1);
32457: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32566:
32567: -- 5462298 Added below code to validate passed task id
32568: -- if it is not workplan task , throw error message
32569:
32570: l_wp_task_flag := PA_PROJ_ELEMENTS_UTILS.CHECK_IS_WORKPLAN_TASK (
32571: p_project_id => l_project_id
32572: , p_proj_element_id => l_task_id );
32573:
32574: IF l_wp_task_flag <> 'Y' THEN
32737: l_task_assign_id NUMBER;
32738: l_task_assign_reference VARCHAR2(240);
32739: l_deliverable_id NUMBER;
32740: l_dlvr_version_id NUMBER;
32741: l_function_code Pa_Proj_Elements.function_code%TYPE;
32742: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32743: l_task_assignment_id NUMBER ;
32744:
32745: l_function_allowed VARCHAR2(1);
33016: l_task_assign_id NUMBER;
33017: l_task_assign_reference VARCHAR2(240);
33018: l_deliverable_id NUMBER;
33019: l_dlvr_version_id NUMBER;
33020: l_function_code Pa_Proj_Elements.function_code%TYPE;
33021: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
33022: l_task_assignment_id NUMBER ;
33023:
33024: l_function_allowed VARCHAR2(1);
33492: )
33493: THEN
33494:
33495: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
33496: l_wp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
33497: IF (l_wp_structure_version_id = -1 OR l_wp_structure_version_id = NULL)
33498: THEN
33499: l_wp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
33500: END IF;
33503: THEN
33504: l_wp_structure_version_id :=p_wp_structure_version_id;
33505: END IF;
33506: --1.2.1.1 get the l_wp_task_version_id
33507: l_wp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
33508: (
33509: p_structure_version_id => l_wp_structure_version_id
33510: , p_task_id => l_wp_task_id
33511: );
33847: -- Avoid this call if wkp task name and wkp task version ids are passed
33848: IF (l_wkp_task_id IS NOT NULL AND l_wkp_structure_version_id IS NULL ) THEN
33849:
33850: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
33851: l_wkp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
33852: IF (l_wkp_structure_version_id = -1 OR l_wkp_structure_version_id = NULL)
33853: THEN
33854: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
33855: END IF;
33854: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
33855: END IF;
33856: END IF;
33857: END IF;
33858: l_wkp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
33859: (
33860: p_structure_version_id => l_wkp_structure_version_id
33861: , p_task_id => l_wkp_task_id
33862: );
34195: --Get the task version id from Wkp task Id
34196: -- Avoid this call if wkp task name and wkp task version ids are passed
34197: IF (l_wkp_task_id IS NOT NULL AND l_wkp_structure_version_id IS NULL ) THEN
34198: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN
34199: l_wkp_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID(l_project_id, 'WORKPLAN');
34200: IF (l_wkp_structure_version_id IS NULL OR l_wkp_structure_version_id = -1) THEN
34201: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34202: END IF;
34203: END IF;
34201: l_wkp_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
34202: END IF;
34203: END IF;
34204: END IF;
34205: l_wkp_task_version_id := PA_PROJ_ELEMENTS_UTILS.GET_TASK_VERSION_ID
34206: (
34207: p_structure_version_id => l_wkp_structure_version_id
34208: , p_task_id => l_wkp_task_id
34209: );
34495: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
34496: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
34497: IS
34498: select ppev.element_version_id
34499: from pa_proj_elements ppe, pa_proj_element_versions ppev
34500: where ppe.project_id = c_project_id
34501: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
34502: and ppe.project_id = ppev.project_Id
34503: and ppe.proj_element_id = ppev.proj_element_id
34505:
34506: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
34507: IS
34508: select ppev.element_version_id
34509: from pa_proj_elements ppe, pa_proj_element_versions ppev
34510: where ppe.project_id = c_project_id
34511: and ppe.proj_element_id = c_task_id
34512: and ppe.project_id = ppev.project_Id
34513: and ppe.proj_element_id = ppev.proj_element_id
34648: END IF;
34649: --end bug 3880403
34650: --
34651: -- Bug 3768933 Validating the relationship_subtype
34652: IF PA_PROJ_ELEMENTS_UTILS.check_pa_lookup_exists('PA_OBJECT_DEPENDENCY_TYPES',p_type) <> 'Y' THEN
34653: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
34654: p_msg_name => 'PA_PS_INV_REL_SUBTYPE_VAL');
34655: RAISE FND_API.G_EXC_ERROR;
34656: END IF;
34746: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
34747: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
34748: IS
34749: select ppev.element_version_id
34750: from pa_proj_elements ppe, pa_proj_element_versions ppev
34751: where ppe.project_id = c_project_id
34752: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
34753: and ppe.project_id = ppev.project_Id
34754: and ppe.proj_element_id = ppev.proj_element_id
34756:
34757: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
34758: IS
34759: select ppev.element_version_id
34760: from pa_proj_elements ppe, pa_proj_element_versions ppev
34761: where ppe.project_id = c_project_id
34762: and ppe.proj_element_id = c_task_id
34763: and ppe.project_id = ppev.project_Id
34764: and ppe.proj_element_id = ppev.proj_element_id
35007: -- CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference NUMBER) --Bug 3735799
35008: CURSOR get_task_ver_id(c_project_id NUMBER, c_pm_task_reference VARCHAR2) --Bug 3735799
35009: IS
35010: select ppev.element_version_id
35011: from pa_proj_elements ppe, pa_proj_element_versions ppev
35012: where ppe.project_id = c_project_id
35013: and ppe.PM_SOURCE_REFERENCE = c_pm_task_reference
35014: and ppe.project_id = ppev.project_Id
35015: and ppe.proj_element_id = ppev.proj_element_id
35017:
35018: CURSOR get_task_ver_id2(c_project_id NUMBER, c_task_id NUMBER) --Bug 3880403
35019: IS
35020: select ppev.element_version_id
35021: from pa_proj_elements ppe, pa_proj_element_versions ppev
35022: where ppe.project_id = c_project_id
35023: and ppe.proj_element_id = c_task_id
35024: and ppe.project_id = ppev.project_Id
35025: and ppe.proj_element_id = ppev.proj_element_id
35257:
35258: cursor c_valid_task_id(c_task_id NUMBER,c_project_id NUMBER)
35259: is
35260: select 'Y'
35261: from pa_proj_elements
35262: where proj_element_id = c_task_id
35263: and project_id = c_project_id ;
35264:
35265: cursor get_task_ver_id(c_task_id NUMBER)
35286: -- The Following cursor has been commented for Performance Bug 4878722 SQL ID 14909071
35287: -- The purpose of this cursor per usage in this API is to verify whether the task exists in any of the previously published versions
35288: -- cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35289: -- select ppe.element_number
35290: -- from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35291: -- where ppe.proj_element_id = p_pa_task_id
35292: -- and ppe.parent_structure_id = ppevs.proj_element_id
35293: -- and ppevs.status_code = 'STRUCTURE_PUBLISHED';
35294:
35323:
35324: cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35325: select 1 from dual
35326: where exists (select ppe.element_number
35327: from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35328: where ppe.proj_element_id = p_pa_task_id
35329: and ppe.object_type = 'PA_TASKS'
35330: and ppe.parent_structure_id = ppevs.proj_element_id
35331: and ppe.project_id = ppevs.project_id
36391: and pst.structure_type = c_structure_type;
36392:
36393: cursor l_cur_project_id1(c_task_id NUMBER) is
36394: select ppe.project_id
36395: from pa_proj_elements ppe
36396: where ppe.proj_element_id = c_task_id;
36397:
36398: cursor l_cur_project_id2(c_task_version_id NUMBER) is
36399: select ppev.project_id, ppev.proj_element_id
36425: where ppa.project_id = c_project_id;
36426:
36427: cursor l_cur_task_name (c_task_ver_id NUMBER) is
36428: select ppe.name
36429: from pa_proj_elements ppe, pa_proj_element_versions ppev
36430: where ppe.project_id = ppev.project_id
36431: and ppe.proj_element_id = ppev.proj_element_id
36432: and ppev.element_version_id = c_task_ver_id;
36433:
36636: end if;
36637:
36638: -- Check if the task version id corresponds to a summary task.
36639: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration
36640: if (pa_proj_elements_utils.is_summary_task_or_structure(l_task_version_id) = 'Y') then
36641: -- The task is a summary task.
36642: open l_cur_prog_name(l_task_version_id);
36643: fetch l_cur_prog_name into l_program_name;
36644: close l_cur_prog_name;
37003: where ppa.project_id = c_project_id;
37004:
37005: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37006: select ppe.name
37007: from pa_proj_elements ppe, pa_proj_element_versions ppev
37008: where ppe.project_id = ppev.project_id
37009: and ppe.proj_element_id = ppev.proj_element_id
37010: and ppev.element_version_id = c_task_ver_id;
37011:
37586: where ppa.project_id = c_project_id;
37587:
37588: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37589: select ppe.name
37590: from pa_proj_elements ppe, pa_proj_element_versions ppev
37591: where ppe.project_id = ppev.project_id
37592: and ppe.proj_element_id = ppev.proj_element_id
37593: and ppev.element_version_id = c_task_ver_id;
37594: