[Home] [Help]
214:
215: X_ROW_ID VARCHAR2(255);
216:
217: -- xxlu added task DFF attributes
218: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
215: X_ROW_ID VARCHAR2(255);
216:
217: -- xxlu added task DFF attributes
218: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
216:
217: -- xxlu added task DFF attributes
218: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
217: -- xxlu added task DFF attributes
218: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
218: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
219: l_tk_attribute1 pa_tasks.attribute1%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
220: l_tk_attribute2 pa_tasks.attribute2%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
228: l_tk_attribute10 pa_tasks.attribute10%TYPE;
221: l_tk_attribute3 pa_tasks.attribute3%TYPE;
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
228: l_tk_attribute10 pa_tasks.attribute10%TYPE;
229: -- end xxlu changes
222: l_tk_attribute4 pa_tasks.attribute4%TYPE;
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
228: l_tk_attribute10 pa_tasks.attribute10%TYPE;
229: -- end xxlu changes
230:
223: l_tk_attribute5 pa_tasks.attribute5%TYPE;
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
228: l_tk_attribute10 pa_tasks.attribute10%TYPE;
229: -- end xxlu changes
230:
231: -- Bug#3491609 : Workflow Chanegs FP M
224: l_tk_attribute6 pa_tasks.attribute6%TYPE;
225: l_tk_attribute7 pa_tasks.attribute7%TYPE;
226: l_tk_attribute8 pa_tasks.attribute8%TYPE;
227: l_tk_attribute9 pa_tasks.attribute9%TYPE;
228: l_tk_attribute10 pa_tasks.attribute10%TYPE;
229: -- end xxlu changes
230:
231: -- Bug#3491609 : Workflow Chanegs FP M
232: l_wf_item_type pa_proj_elements.wf_item_type%TYPE;
234: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
235: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
236: -- Bug#3491609 : Workflow Chanegs FP M
237:
238: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
239: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
240: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
241:
242: cursor get_page_name(c_page_id NUMBER)
289:
290: -- should be checking for tasks in pa_proj_elements table.
291:
292: /*4156271 : Performance Fix - Commented the following Query for Performance reasons
293: CURSOR cur_chk_pa_tasks
294: IS
295: SELECT 'x'
296: FROM pa_tasks pt, pa_proj_elements ppe
297: WHERE pt.project_id = p_project_id
292: /*4156271 : Performance Fix - Commented the following Query for Performance reasons
293: CURSOR cur_chk_pa_tasks
294: IS
295: SELECT 'x'
296: FROM pa_tasks pt, pa_proj_elements ppe
297: WHERE pt.project_id = p_project_id
298: AND pt.task_id = ppe.proj_element_id
299: AND ppe.link_task_flag = 'N';
300: */
297: WHERE pt.project_id = p_project_id
298: AND pt.task_id = ppe.proj_element_id
299: AND ppe.link_task_flag = 'N';
300: */
301: /* 4156271 : Same Cursor cur_chk_pa_tasks with better performance follows */
302: CURSOR cur_chk_pa_tasks
303: IS
304: SELECT 'x'
305: FROM pa_tasks pt
298: AND pt.task_id = ppe.proj_element_id
299: AND ppe.link_task_flag = 'N';
300: */
301: /* 4156271 : Same Cursor cur_chk_pa_tasks with better performance follows */
302: CURSOR cur_chk_pa_tasks
303: IS
304: SELECT 'x'
305: FROM pa_tasks pt
306: WHERE pt.project_id = p_project_id
301: /* 4156271 : Same Cursor cur_chk_pa_tasks with better performance follows */
302: CURSOR cur_chk_pa_tasks
303: IS
304: SELECT 'x'
305: FROM pa_tasks pt
306: WHERE pt.project_id = p_project_id
307: AND EXISTS(SELECT 1
308: FROM PA_PROJ_ELEMENTS ppe
309: WHERE ppe.link_task_flag = 'N'
350: l_parent_task_id NUMBER;
351: l_top_task_id NUMBER;
352:
353: CURSOR get_parent_task_id( c_task_id NUMBER ) IS
354: SELECT parent_task_id, top_task_id FROM pa_tasks
355: WHERE project_id = p_project_id and task_id = c_task_id;
356:
357: --End Bug 2947492
358: --bug 3305199
361: --Bug 3705333
362: CURSOR get_task_name_or_number(c_project_id NUMBER,c_task_id NUMBER )
363: IS
364: SELECT task_name, task_number
365: FROM pa_tasks
366: WHERE project_id = c_project_id
367: AND task_id = c_task_id;
368: --end bug 3705333
369:
385: IF (p_debug_mode = 'Y') THEN
386: pa_debug.debug('Performing validations');
387: END IF;
388:
389: IF p_object_type <> 'PA_TASKS'
390: THEN
391: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NOT_TASK_OBJECT');
392: l_msg_data := 'PA_PS_NOT_TASK_OBJECT';
393: END IF;
428: p_element_number => l_task_number --Bug 3705333 Changed from p_task_number to l_task_number
429: ,p_element_id => null
430: ,p_project_id => p_project_id
431: ,p_structure_id => p_parent_structure_id
432: ,p_object_type => 'PA_TASKS'
433: ) = 'N'
434: THEN
435: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
436: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ');
546: END IF;
547:
548: IF ( p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_TYPE_ID IS NULL )
549: THEN
550: --IF (p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_object_type = 'PA_TASKS') THEN
551: IF (p_object_type = 'PA_TASKS') THEN
552: l_TYPE_ID := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
553: ELSE
554: l_TYPE_ID := NULL;
547:
548: IF ( p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_TYPE_ID IS NULL )
549: THEN
550: --IF (p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_object_type = 'PA_TASKS') THEN
551: IF (p_object_type = 'PA_TASKS') THEN
552: l_TYPE_ID := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
553: ELSE
554: l_TYPE_ID := NULL;
555: END IF;
958: CLOSE get_page_name;
959:
960: PA_PROGRESS_REPORT_PUB.DEFINE_PROGRESS_REPORT_SETUP(
961: p_object_id => x_task_id
962: ,p_object_type => 'PA_TASKS'
963: ,p_page_type_code => 'AI'
964: ,p_page_id => l_task_progress_entry_page_id
965: ,p_page_name => l_page_name
966: ,x_return_status => l_return_status
1056: --end changes
1057: --dbms_output.put_line( 'Before Existing Create_task API '||p_project_id );
1058:
1059: l_dummy_char := null;
1060: open cur_chk_pa_tasks;
1061: fetch cur_chk_pa_tasks INTO l_dummy_char;
1062: close cur_chk_pa_tasks;
1063:
1064: --dbms_output.put_line('<'||l_dummy_char||'>, null = pa task is empty');
1057: --dbms_output.put_line( 'Before Existing Create_task API '||p_project_id );
1058:
1059: l_dummy_char := null;
1060: open cur_chk_pa_tasks;
1061: fetch cur_chk_pa_tasks INTO l_dummy_char;
1062: close cur_chk_pa_tasks;
1063:
1064: --dbms_output.put_line('<'||l_dummy_char||'>, null = pa task is empty');
1065:
1058:
1059: l_dummy_char := null;
1060: open cur_chk_pa_tasks;
1061: fetch cur_chk_pa_tasks INTO l_dummy_char;
1062: close cur_chk_pa_tasks;
1063:
1064: --dbms_output.put_line('<'||l_dummy_char||'>, null = pa task is empty');
1065:
1066: l_dummy_char2 := null;
1074: IF ( p_ref_task_id IS NULL AND l_dummy_char IS NOT NULL ) OR
1075: ( p_ref_task_id IS NOT NULL AND l_dummy_char IS NULL )
1076: --( l_dummy_char2 IS NOT NULL ) --is a structure version id not a valid ref task id from pa_task
1077: THEN
1078: --Not a valid ref task. Tasks exists in pa_tasks
1079: --dbms_output.put_line('error with ref tsk');
1080: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
1081: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
1082: -- start of bug 3459905
1135: -- date and transaction end date in case of financial tasks
1136: -- Bug 3810252 : Reverted the fix of Bug 3804265
1137:
1138: --Bug 3935874 : Changed SUBSTR to SUBSTRB for avoiding MLS problem
1139: -- Also ,Truncated Description to 250 chars as PA_TASKS can hold
1140: -- Only Description upto 250 chars (l_task_description can be upto 2000 chars)
1141: PA_TASKS_MAINT_PUB.CREATE_TASK
1142: (
1143: p_api_version => p_api_version
1137:
1138: --Bug 3935874 : Changed SUBSTR to SUBSTRB for avoiding MLS problem
1139: -- Also ,Truncated Description to 250 chars as PA_TASKS can hold
1140: -- Only Description upto 250 chars (l_task_description can be upto 2000 chars)
1141: PA_TASKS_MAINT_PUB.CREATE_TASK
1142: (
1143: p_api_version => p_api_version
1144: ,p_init_msg_list => p_init_msg_list
1145: ,p_commit => p_commit
1549: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1550: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1551:
1552: -- xxlu added task DFF attributes
1553: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1550: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1551:
1552: -- xxlu added task DFF attributes
1553: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1551:
1552: -- xxlu added task DFF attributes
1553: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1552: -- xxlu added task DFF attributes
1553: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1553: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1554: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1555: l_tk_attribute2 pa_tasks.attribute2%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1563: l_tk_attribute10 pa_tasks.attribute10%TYPE;
1556: l_tk_attribute3 pa_tasks.attribute3%TYPE;
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1563: l_tk_attribute10 pa_tasks.attribute10%TYPE;
1564: -- end xxlu changes
1557: l_tk_attribute4 pa_tasks.attribute4%TYPE;
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1563: l_tk_attribute10 pa_tasks.attribute10%TYPE;
1564: -- end xxlu changes
1565:
1558: l_tk_attribute5 pa_tasks.attribute5%TYPE;
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1563: l_tk_attribute10 pa_tasks.attribute10%TYPE;
1564: -- end xxlu changes
1565:
1566: --hsiu added for task status
1559: l_tk_attribute6 pa_tasks.attribute6%TYPE;
1560: l_tk_attribute7 pa_tasks.attribute7%TYPE;
1561: l_tk_attribute8 pa_tasks.attribute8%TYPE;
1562: l_tk_attribute9 pa_tasks.attribute9%TYPE;
1563: l_tk_attribute10 pa_tasks.attribute10%TYPE;
1564: -- end xxlu changes
1565:
1566: --hsiu added for task status
1567: l_task_status_changed varchar2(1);
1566: --hsiu added for task status
1567: l_task_status_changed varchar2(1);
1568: --end task status changes
1569:
1570: -- Changed Pa_tasks to pa_proj_elements for Bug 3809523
1571: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
1572: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
1573: cursor get_page_name(c_page_id NUMBER)
1574: IS
1581: IS
1582: SELECT object_page_layout_id, record_version_number
1583: from pa_object_page_layouts
1584: where object_id = c_object_id
1585: and object_type = 'PA_TASKS'
1586: and page_type_code = 'AI';
1587:
1588: l_opl_id NUMBER;
1589: l_page_name pa_page_layouts.page_name%TYPE;
1755: --Bug 3705333 start
1756: CURSOR get_task_name_or_number(c_project_id NUMBER,c_task_id NUMBER )
1757: IS
1758: SELECT task_name, task_number
1759: FROM pa_tasks
1760: WHERE project_id = c_project_id
1761: AND task_id = c_task_id;
1762: --Bug 3705333 end
1763: l_base_perc_comp_deriv_code VARCHAR2(30);
2585: CLOSE get_current_page;
2586:
2587: PA_PROGRESS_REPORT_PUB.DEFINE_PROGRESS_REPORT_SETUP(
2588: p_object_id => p_task_id
2589: ,p_object_type => 'PA_TASKS'
2590: ,p_page_type_code => 'AI'
2591: ,p_page_id => l_task_progress_entry_page_id
2592: ,p_page_name => l_page_name
2593: ,p_object_page_layout_id => l_opl_id
2623: PA_PROJ_ELEMENTS_PKG.Update_Row(
2624: X_ROW_ID => v_cur_proj_elems_rec.rowid
2625: ,X_PROJ_ELEMENT_ID => p_task_id
2626: ,X_PROJECT_ID => v_cur_proj_elems_rec.PROJECT_ID
2627: ,X_OBJECT_TYPE => 'PA_TASKS'
2628: ,X_ELEMENT_NUMBER => l_task_number --Bug 3705333 changed from p_task_number to l_task_number
2629: ,X_NAME => la_task_name --Bug 3705333 changed from p_task_namer to la_task_name
2630: ,X_DESCRIPTION => l_task_DESCRIPTION
2631: ,X_STATUS_CODE => l_STATUS_CODE
2729: END IF;
2730:
2731: CLOSE cur_proj_elems;
2732:
2733: --Since FORMS and AMG env. update pa_tasks explicity we do not need to
2734: --call this apis again.
2735: IF p_calling_module NOT IN ( 'FORMS', 'AMG' )
2736: THEN
2737: --Get the structure id
2774: THEN
2775: -- IF NVL( l_published_version, 'N' ) = 'N'
2776: -- THEN
2777: --end changes
2778: --The followig logic is added to support hierarchy change in PA_TASKS
2779: IF p_ref_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ref_task_id IS NOT NULL
2780: THEN
2781: sELECT wbs_level, parent_task_id, top_task_id
2782: INTO l_wbs_level, l_parent_task_id, l_top_task_id
2779: IF p_ref_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ref_task_id IS NOT NULL
2780: THEN
2781: sELECT wbs_level, parent_task_id, top_task_id
2782: INTO l_wbs_level, l_parent_task_id, l_top_task_id
2783: FROM pa_tasks
2784: WHERE task_id = p_ref_task_id;
2785:
2786: IF p_peer_or_sub = 'SUB'
2787: THEN
2801: -- xxlu added p_long_task_name
2802:
2803: -- avaithia ,Changed SUBSTR to SUBSTRB as SUBSTR doesnt provide Multi Language Support
2804: -- Included SUBSTRB for Task Description also ,because Task Description size
2805: -- is only 250 char in PA_TASKS Table ,whereas it can be upto 2000 char in pa_proj_elements
2806: -- These changes have been done for Bug 3935874
2807:
2808: PA_TASKS_MAINT_PUB.UPDATE_TASK
2809: (
2804: -- Included SUBSTRB for Task Description also ,because Task Description size
2805: -- is only 250 char in PA_TASKS Table ,whereas it can be upto 2000 char in pa_proj_elements
2806: -- These changes have been done for Bug 3935874
2807:
2808: PA_TASKS_MAINT_PUB.UPDATE_TASK
2809: (
2810: p_project_id => l_project_id
2811: ,p_task_id => p_task_id
2812: ,p_task_number => SUBSTRB( l_task_number, 1, 25 ) --Bug 3705333 changed from p_task_number to l_task_number
2857: -- xxlu add task DFF attributes
2858: --bug 3690807
2859:
2860: -- Changed SUBSTR to SUBSTRB for 3935874
2861: -- Also Truncated Description to 250 chars as PA_TASKS can hold only upto 250 char description
2862: -- whereas l_task_description can be upto 2000 chars
2863: PA_TASKS_MAINT_PUB.UPDATE_TASK
2864: (
2865: p_project_id => l_project_id
2859:
2860: -- Changed SUBSTR to SUBSTRB for 3935874
2861: -- Also Truncated Description to 250 chars as PA_TASKS can hold only upto 250 char description
2862: -- whereas l_task_description can be upto 2000 chars
2863: PA_TASKS_MAINT_PUB.UPDATE_TASK
2864: (
2865: p_project_id => l_project_id
2866: ,p_task_id => p_task_id
2867: ,p_task_number => SUBSTRB( l_task_NUMBER, 1, 25 ) --Bug 3705333 changed from p_task_number to l_task_number
2937: p_task_status => p_STATUS_CODE
2938: ,p_project_id => l_project_id
2939: ,p_object_id => p_task_id
2940: ,p_object_version_id => l_latest_task_ver_rec.element_version_id
2941: ,p_object_type => 'PA_TASKS'
2942: ,x_return_status => l_return_status
2943: ,x_msg_count => l_msg_count
2944: ,x_msg_data => l_msg_data
2945: );
3414: l_structure_id_to := v_cur_proj_elems_rec.proj_element_id;
3415:
3416: --dbms_output.put_line( 'In IF condition' );
3417:
3418: ELSIF v_cur_proj_elems_rec.object_type = 'PA_TASKS'
3419: THEN
3420: --If the task version is not a top level within the structure version
3421:
3422: l_parent_struc_ver_id := v_cur_proj_elems_rec.parent_structure_version_id;
3534: PA_PROJ_ELEMENT_VERSIONS_PKG.Insert_Row(
3535: X_ROW_ID => X_row_id
3536: ,X_ELEMENT_VERSION_ID => x_task_version_id
3537: ,X_PROJ_ELEMENT_ID => p_task_id
3538: ,X_OBJECT_TYPE => 'PA_TASKS'
3539: ,X_PROJECT_ID => v_cur_proj_elems_rec.project_id
3540: ,X_PARENT_STRUCTURE_VERSION_ID => l_parent_struc_ver_id
3541: ,X_DISPLAY_SEQUENCE => l_DISPLAY_SEQUENCE
3542: ,X_WBS_LEVEL => l_WBS_LEVEL
3579: SET display_sequence = display_sequence + 1
3580: WHERE display_sequence > l_ref_seq_no
3581: AND element_version_id <> x_task_version_id
3582: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3583: AND object_type = 'PA_TASKS'
3584: -- AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3585: ;
3586: ELSE
3587: IF p_peer_or_sub = 'PEER' --Bug 4046026
3590: SET display_sequence = display_sequence + 1
3591: WHERE display_sequence > l_ref_seq_no
3592: AND element_version_id <> x_task_version_id
3593: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3594: AND object_type = 'PA_TASKS'
3595: --AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3596: ;
3597: END IF;
3598: END IF; --Added for Bug 4046026 Commented for 4057190 /** Uncommented it again for BUg 4046026 **/
3838: attribute6, attribute7, attribute8, attribute9, attribute10, attribute11, attribute12,
3839: attribute13, attribute14, attribute15, TASK_UNPUB_VER_STATUS_CODE
3840: FROM pa_proj_element_versions
3841: WHERE element_version_id = p_task_version_id
3842: AND object_type = 'PA_TASKS';
3843:
3844: CURSOR cur_child_tasks( c_task_version_id NUMBER )
3845: IS SELECT a.object_id_from1, a.object_id_to1, b.parent_structure_version_id, b.display_sequence
3846: FROM
3940: cursor get_task_weighting(c_task_version_id NUMBER) IS
3941: select a.object_id_from1, a.weighting_percentage
3942: from pa_object_relationships a
3943: where a.object_id_to1 = c_task_version_id
3944: and a.object_type_to = 'PA_TASKS'
3945: and a.relationship_type = 'S'
3946: and a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
3947: l_old_parent_id NUMBER;
3948:
3942: from pa_object_relationships a
3943: where a.object_id_to1 = c_task_version_id
3944: and a.object_type_to = 'PA_TASKS'
3945: and a.relationship_type = 'S'
3946: and a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
3947: l_old_parent_id NUMBER;
3948:
3949: -- anlee task weighting changes
3950: cursor get_sub_tasks(c_task_version_id NUMBER) IS
3950: cursor get_sub_tasks(c_task_version_id NUMBER) IS
3951: select '1'
3952: from pa_object_relationships
3953: where object_id_from1 = c_task_version_id
3954: and object_type_from IN ('PA_TASKS', 'PA_STRUCTURES')
3955: and relationship_type = 'S';
3956: l_dummy varchar2(1);
3957:
3958: l_version_from NUMBER;
4142:
4143: --dbms_output.put_line( 'p_action '|| p_action );
4144:
4145:
4146: IF v_cur_ref_task_rec.object_type = 'PA_TASKS' --Moving under a task
4147: THEN
4148: IF p_peer_or_sub = 'PEER'
4149: THEN
4150: l_wbs_level := v_cur_ref_task_rec.wbs_level; --wbs level of reference
4894: FROM pa_proj_elem_ver_structure
4895: -- HY FROM pa_projects_all
4896: WHERE project_id = p_project_id;
4897:
4898: CURSOR cur_pa_tasks( p_task_id NUMBER )
4899: IS
4900: SELECT record_version_number
4901: FROM pa_tasks
4902: WHERE task_id = p_task_id;
4897:
4898: CURSOR cur_pa_tasks( p_task_id NUMBER )
4899: IS
4900: SELECT record_version_number
4901: FROM pa_tasks
4902: WHERE task_id = p_task_id;
4903:
4904: CURSOR cur_chk_vers( x_proj_element_id NUMBER, x_task_version NUMBER )
4905: IS
4934: pa_object_relationships b,
4935: pa_proj_element_versions c,
4936: pa_proj_elements d
4937: where a.object_id_to1 = p_task_version_id
4938: and a.object_type_to = 'PA_TASKS'
4939: and a.object_id_from1 = b.object_id_from1
4940: and a.object_type_from = b.object_type_from
4941: and b.object_type_to = 'PA_TASKS'
4942: and b.object_id_to1 <> p_task_version_id
4937: where a.object_id_to1 = p_task_version_id
4938: and a.object_type_to = 'PA_TASKS'
4939: and a.object_id_from1 = b.object_id_from1
4940: and a.object_type_from = b.object_type_from
4941: and b.object_type_to = 'PA_TASKS'
4942: and b.object_id_to1 <> p_task_version_id
4943: and a.relationship_type = 'S'
4944: and b.relationship_type = 'S'
4945: and b.object_id_to1 = c.element_version_id
4954: CURSOR get_parent_version_id IS
4955: select object_id_from1
4956: from pa_object_relationships
4957: where object_id_to1 = p_task_version_id
4958: and object_type_to = 'PA_TASKS'
4959: and relationship_type = 'S'
4960: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
4961: l_old_parent_ver_id NUMBER;
4962: --end task weighting changes
4956: from pa_object_relationships
4957: where object_id_to1 = p_task_version_id
4958: and object_type_to = 'PA_TASKS'
4959: and relationship_type = 'S'
4960: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
4961: l_old_parent_ver_id NUMBER;
4962: --end task weighting changes
4963:
4964: x_row_id VARCHAR2(255);
5000:
5001: l_Structure_Version_ID NUMBER; -- FP_M changes 3305199
5002:
5003: CURSOR get_parent_task_id( c_project_id NUMBER , c_task_id NUMBER ) IS
5004: SELECT parent_task_id, top_task_id, record_version_number FROM pa_tasks
5005: WHERE project_id = c_project_id and task_id = c_task_id;
5006:
5007: --End Bug 2947492
5008:
5054: AND pors1.relationship_type = 'S'
5055: --bug 4573340
5056: AND pors.relationship_type IN ('LW','LF')
5057: AND pors.object_id_from2 <> pors.object_id_to2
5058: AND pors.object_type_from = 'PA_TASKS'
5059: AND pors.object_type_to = 'PA_STRUCTURES';
5060: get_subproj_relation_rec get_subproj_relation%ROWTYPE;
5061:
5062: l_task_id NUMBER; --bug 4006401
5066: select object_id_to1 task_ver_id
5067: from pa_object_relationships pors
5068: start with object_id_from1 = c_task_version_id
5069: and relationship_type = 'S'
5070: and object_type_from = 'PA_TASKS'
5071: and object_type_to = 'PA_TASKS'
5072: connect by relationship_type = prior relationship_type
5073: and prior object_type_to = object_type_from
5074: and prior object_id_to1 = object_id_from1
5067: from pa_object_relationships pors
5068: start with object_id_from1 = c_task_version_id
5069: and relationship_type = 'S'
5070: and object_type_from = 'PA_TASKS'
5071: and object_type_to = 'PA_TASKS'
5072: connect by relationship_type = prior relationship_type
5073: and prior object_type_to = object_type_from
5074: and prior object_id_to1 = object_id_from1
5075: UNION
5080:
5081: --bug 4110957
5082: CURSOR get_tsk_cnt(c_struc_ver_id NUMBER) IS
5083: select count(1) from pa_proj_element_versions
5084: where object_type = 'PA_TASKS'
5085: and parent_structure_version_id = c_struc_ver_id;
5086: l_tsk_ver_cnt NUMBER;
5087: --end bug 4110957
5088:
5145: -- Tracking bug 3305199
5146: If p_Structure_Type = 'FINANCIAL' and
5147: PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_Project_id )= 'SHARE_PARTIAL'
5148: then
5149: PA_Tasks_Maint_Utils.Check_WorkPlan_Task_Exists (
5150: p_api_version => p_api_version
5151: , p_calling_module => p_calling_module
5152: , p_debug_mode => p_debug_mode
5153: , p_task_version_id => p_task_version_id
5334: CLOSE get_parent_task_id;
5335:
5336: IF p_called_from_api <> 'MOVE_TASK_VERSION' AND
5337: p_calling_module NOT IN ( 'FORMS', 'AMG' ) --Added condition to call this api from forms and AMG apis.
5338: --Since forms and AMG already deletes from pa_tasks we do not have to call the following api again.
5339: THEN
5340: PA_TASKS_MAINT_PUB.DELETE_TASK(
5341: p_api_version => p_api_version
5342: ,p_init_msg_list => p_init_msg_list
5336: IF p_called_from_api <> 'MOVE_TASK_VERSION' AND
5337: p_calling_module NOT IN ( 'FORMS', 'AMG' ) --Added condition to call this api from forms and AMG apis.
5338: --Since forms and AMG already deletes from pa_tasks we do not have to call the following api again.
5339: THEN
5340: PA_TASKS_MAINT_PUB.DELETE_TASK(
5341: p_api_version => p_api_version
5342: ,p_init_msg_list => p_init_msg_list
5343: ,p_commit => p_commit
5344: ,p_validate_only => p_validate_only
5554: --THEN
5555:
5556: -- Bug#3834117
5557: -- For a split case if task is deleted from SS page
5558: -- the tasks were not getting deleted from PA_TASKS
5559: -- table. In SPLIT case fin tasks should always get deleted
5560: -- from PA_TASKS table
5561: IF nvl(l_shared,'N') = 'N' THEN
5562: l_delete_flag := 'Y';
5556: -- Bug#3834117
5557: -- For a split case if task is deleted from SS page
5558: -- the tasks were not getting deleted from PA_TASKS
5559: -- table. In SPLIT case fin tasks should always get deleted
5560: -- from PA_TASKS table
5561: IF nvl(l_shared,'N') = 'N' THEN
5562: l_delete_flag := 'Y';
5563: ELSE
5564: SELECT proj_element_id INTO l_structure_id
5621: OPEN cur_pa_projs( x_project_id );
5622: FETCH cur_pa_projs INTO x_wbs_rec_version_number;
5623: CLOSE cur_pa_projs;
5624:
5625: -- OPEN cur_pa_tasks( l_proj_element_id );
5626: -- FETCH cur_pa_tasks INTO x_task_rec_version_number;
5627: -- CLOSE cur_pa_tasks; --commented out and merged with the cursor get_parent_task_id below for performance for bug 2947492
5628:
5629: --Bug 2947492
5622: FETCH cur_pa_projs INTO x_wbs_rec_version_number;
5623: CLOSE cur_pa_projs;
5624:
5625: -- OPEN cur_pa_tasks( l_proj_element_id );
5626: -- FETCH cur_pa_tasks INTO x_task_rec_version_number;
5627: -- CLOSE cur_pa_tasks; --commented out and merged with the cursor get_parent_task_id below for performance for bug 2947492
5628:
5629: --Bug 2947492
5630: --call plannable tasks api here. This will be executed whenever a task is deleted regardless from
5623: CLOSE cur_pa_projs;
5624:
5625: -- OPEN cur_pa_tasks( l_proj_element_id );
5626: -- FETCH cur_pa_tasks INTO x_task_rec_version_number;
5627: -- CLOSE cur_pa_tasks; --commented out and merged with the cursor get_parent_task_id below for performance for bug 2947492
5628:
5629: --Bug 2947492
5630: --call plannable tasks api here. This will be executed whenever a task is deleted regardless from
5631: --which environement FORMS, Self Service or AMG.
5674:
5675: --dbms_output.put_line( 'before delete_task ' );
5676: IF p_called_from_api <> 'MOVE_TASK_VERSION' AND
5677: p_calling_module NOT IN ( 'FORMS', 'AMG' ) --Added condition to call this api from forms and AMG apis.
5678: --Since forms and AMG already deletes from pa_tasks we do not have to call the following api again.
5679: THEN
5680: PA_TASKS_MAINT_PUB.DELETE_TASK
5681: (
5682: p_api_version => p_api_version
5676: IF p_called_from_api <> 'MOVE_TASK_VERSION' AND
5677: p_calling_module NOT IN ( 'FORMS', 'AMG' ) --Added condition to call this api from forms and AMG apis.
5678: --Since forms and AMG already deletes from pa_tasks we do not have to call the following api again.
5679: THEN
5680: PA_TASKS_MAINT_PUB.DELETE_TASK
5681: (
5682: p_api_version => p_api_version
5683: ,p_init_msg_list => p_init_msg_list
5684: ,p_commit => p_commit
6035: -- Hence commenting out the update of RVN here.
6036:
6037: BEGIN
6038: UPDATE PA_PROJ_ELEMENT_VERSIONS
6039: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
6040: -- record_version_number = record_version_number + 1
6041: WHERE parent_structure_version_id = x_parent_struc_ver_id
6042: AND (display_sequence > l_selected_seq_num)
6043: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
7226: and ppc.task_id = c_element_id
7227: and ppc.current_flag = 'Y'
7228: and ppc.project_Id = ppru.project_id
7229: and ppc.task_id = ppru.object_id
7230: and ppru.object_type = 'PA_TASKS';
7231:
7232: CURSOR get_info IS
7233: select proj_element_id, project_id
7234: from pa_proj_elem_ver_schedule
8373: from pa_proj_element_versions a,
8374: pa_object_relationships b,
8375: pa_proj_elements c
8376: where b.object_id_to1 = p_task_version_id
8377: and b.object_type_to = 'PA_TASKS'
8378: and b.relationship_type = 'S'
8379: and b.object_type_from = 'PA_TASKS'
8380: and b.object_id_from1 = a.element_version_id
8381: and a.project_id = c.project_id
8375: pa_proj_elements c
8376: where b.object_id_to1 = p_task_version_id
8377: and b.object_type_to = 'PA_TASKS'
8378: and b.relationship_type = 'S'
8379: and b.object_type_from = 'PA_TASKS'
8380: and b.object_id_from1 = a.element_version_id
8381: and a.project_id = c.project_id
8382: and a.proj_element_id = c.proj_element_id;
8383: l_parent_type_attr_rec get_parent_task_type_attr%ROWTYPE;
8567: CURSOR get_weighting_sum IS
8568: select sum(weighting_percentage)
8569: from pa_object_relationships
8570: where object_id_from1 = p_task_version_id
8571: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8572: and relationship_type = 'S';
8573:
8574: CURSOR get_child_weighting IS
8575: select object_relationship_id, weighting_percentage,
8575: select object_relationship_id, weighting_percentage,
8576: record_version_number, object_id_to1
8577: from pa_object_relationships
8578: where object_id_from1 = p_task_version_id
8579: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8580: and relationship_type = 'S';
8581:
8582: l_sum NUMBER(17,2);
8583: l_weighting NUMBER(17,2);
8750: CURSOR get_task_versions IS
8751: select object_id_to1
8752: from pa_object_relationships
8753: where relationship_type = 'S'
8754: and object_type_from = 'PA_TASKS'
8755: and object_type_to = 'PA_TASKS'
8756: and relationship_type = 'S'
8757: start with object_id_to1 = p_task_version_id
8758: connect by prior object_id_to1 = object_id_from1
8751: select object_id_to1
8752: from pa_object_relationships
8753: where relationship_type = 'S'
8754: and object_type_from = 'PA_TASKS'
8755: and object_type_to = 'PA_TASKS'
8756: and relationship_type = 'S'
8757: start with object_id_to1 = p_task_version_id
8758: connect by prior object_id_to1 = object_id_from1
8759: and relationship_type = prior relationship_type --bug 3919266
8884: FROM pa_proj_elem_ver_structure
8885: -- HY FROM pa_projects_all
8886: WHERE project_id = p_project_id;
8887:
8888: CURSOR cur_pa_tasks( p_task_id NUMBER )
8889: IS
8890: SELECT record_version_number
8891: FROM pa_tasks
8892: WHERE task_id = p_task_id;
8887:
8888: CURSOR cur_pa_tasks( p_task_id NUMBER )
8889: IS
8890: SELECT record_version_number
8891: FROM pa_tasks
8892: WHERE task_id = p_task_id;
8893:
8894: CURSOR cur_chk_vers( x_proj_element_id NUMBER, x_task_version NUMBER )
8895: IS
8922: select b.object_id_to1 object_id_to1
8923: from pa_object_relationships a,
8924: pa_object_relationships b
8925: where a.object_id_to1 = p_task_version_id
8926: and a.object_type_to = 'PA_TASKS'
8927: and a.object_id_from1 = b.object_id_from1
8928: and a.object_type_from = b.object_type_from
8929: and b.object_type_to = 'PA_TASKS'
8930: and b.object_id_to1 <> p_task_version_id
8925: where a.object_id_to1 = p_task_version_id
8926: and a.object_type_to = 'PA_TASKS'
8927: and a.object_id_from1 = b.object_id_from1
8928: and a.object_type_from = b.object_type_from
8929: and b.object_type_to = 'PA_TASKS'
8930: and b.object_id_to1 <> p_task_version_id
8931: and a.relationship_type = 'S'
8932: and b.relationship_type = 'S';
8933: c_get_peer_tasks get_peer_tasks%ROWTYPE;
8938: CURSOR get_parent_version_id IS
8939: select object_id_from1
8940: from pa_object_relationships
8941: where object_id_to1 = p_task_version_id
8942: and object_type_to = 'PA_TASKS'
8943: and relationship_type = 'S'
8944: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8945: l_old_parent_ver_id NUMBER;
8946: --end task weighting changes
8940: from pa_object_relationships
8941: where object_id_to1 = p_task_version_id
8942: and object_type_to = 'PA_TASKS'
8943: and relationship_type = 'S'
8944: and object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8945: l_old_parent_ver_id NUMBER;
8946: --end task weighting changes
8947:
8948: x_row_id VARCHAR2(255);
9014: AND pors1.relationship_type = 'S'
9015: --bug 4573340
9016: AND pors.relationship_type IN ('LW','LF')
9017: AND pors.object_id_from2 <> pors.object_id_to2
9018: AND pors.object_type_from = 'PA_TASKS'
9019: AND pors.object_type_to = 'PA_STRUCTURES';
9020: get_subproj_relation_rec get_subproj_relation%ROWTYPE;
9021: --
9022: l_call_del_plan_txn VARCHAR2(1) := 'N'; --bug 4172646
9184: OPEN cur_pa_projs( x_project_id );
9185: FETCH cur_pa_projs INTO x_wbs_rec_version_number;
9186: CLOSE cur_pa_projs;
9187:
9188: OPEN cur_pa_tasks( l_proj_element_id );
9189: FETCH cur_pa_tasks INTO x_task_rec_version_number;
9190: IF p_calling_module NOT IN ( 'FORMS', 'AMG' ) AND cur_pa_tasks%FOUND THEN
9191: --Added condition to call this api from forms and AMG apis.
9192: --Since forms and AMG already deletes from pa_tasks
9185: FETCH cur_pa_projs INTO x_wbs_rec_version_number;
9186: CLOSE cur_pa_projs;
9187:
9188: OPEN cur_pa_tasks( l_proj_element_id );
9189: FETCH cur_pa_tasks INTO x_task_rec_version_number;
9190: IF p_calling_module NOT IN ( 'FORMS', 'AMG' ) AND cur_pa_tasks%FOUND THEN
9191: --Added condition to call this api from forms and AMG apis.
9192: --Since forms and AMG already deletes from pa_tasks
9193: --we do not have to call the following api again.
9186: CLOSE cur_pa_projs;
9187:
9188: OPEN cur_pa_tasks( l_proj_element_id );
9189: FETCH cur_pa_tasks INTO x_task_rec_version_number;
9190: IF p_calling_module NOT IN ( 'FORMS', 'AMG' ) AND cur_pa_tasks%FOUND THEN
9191: --Added condition to call this api from forms and AMG apis.
9192: --Since forms and AMG already deletes from pa_tasks
9193: --we do not have to call the following api again.
9194:
9188: OPEN cur_pa_tasks( l_proj_element_id );
9189: FETCH cur_pa_tasks INTO x_task_rec_version_number;
9190: IF p_calling_module NOT IN ( 'FORMS', 'AMG' ) AND cur_pa_tasks%FOUND THEN
9191: --Added condition to call this api from forms and AMG apis.
9192: --Since forms and AMG already deletes from pa_tasks
9193: --we do not have to call the following api again.
9194:
9195: --hsiu: bug 2800553: for deleteing structure performance improvement changes
9196: IF (p_calling_module = 'DEL_STRUCT') THEN
9209:
9210: If (l_err_code <> 0) THEN
9211: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9212: p_msg_name => substrb(l_err_stage,1,30)); --3935874 : Changed Substr to Substrb
9213: CLOSE cur_pa_tasks;
9214: raise FND_API.G_EXC_ERROR;
9215: END IF;
9216: END IF; --called_from_api chk.
9217: CLOSE cur_pa_tasks;
9213: CLOSE cur_pa_tasks;
9214: raise FND_API.G_EXC_ERROR;
9215: END IF;
9216: END IF; --called_from_api chk.
9217: CLOSE cur_pa_tasks;
9218:
9219: -- hsiu: bug 2800553: commented for performance improvement
9220: -- PA_TASKS_MAINT_PUB.DELETE_TASK(
9221: -- p_api_version => p_api_version
9216: END IF; --called_from_api chk.
9217: CLOSE cur_pa_tasks;
9218:
9219: -- hsiu: bug 2800553: commented for performance improvement
9220: -- PA_TASKS_MAINT_PUB.DELETE_TASK(
9221: -- p_api_version => p_api_version
9222: -- ,p_init_msg_list => p_init_msg_list
9223: -- ,p_commit => p_commit
9224: -- ,p_validate_only => p_validate_only
9509:
9510:
9511: BEGIN
9512: UPDATE PA_PROJ_ELEMENT_VERSIONS
9513: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
9514: -- record_version_number = record_version_number + 1
9515: WHERE parent_structure_version_id = x_parent_struc_ver_id
9516: AND (display_sequence > l_selected_seq_num)
9517: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
9689: where a.parent_structure_version_id = b.element_version_id
9690: and a.project_id = b.project_id
9691: and a.proj_element_id = p_task_id
9692: and a.element_version_id = c.object_id_to1
9693: and c.object_type_to = 'PA_TASKS'
9694: and c.relationship_type = 'S'
9695: and b.status_code <> 'STRUCTURE_PUBLISHED'
9696: and 1 = c_option
9697: UNION
9702: where a.parent_structure_version_id = b.element_version_id
9703: and a.project_id = b.project_id
9704: and a.proj_element_id = p_task_id
9705: and a.element_version_id = c.object_id_to1
9706: and c.object_type_to = 'PA_TASKS'
9707: and c.relationship_type = 'S'
9708: and b.status_code = 'STRUCTURE_PUBLISHED'
9709: and 2 = c_option;
9710: l_working_ver_id NUMBER;
9744: update pa_object_relationships
9745: set WEIGHTING_PERCENTAGE = p_weighting
9746: where object_id_to1 = l_working_ver_id
9747: and relationship_type = 'S'
9748: and object_type_to = 'PA_TASKS';
9749: --pro-rate peer task weightings
9750: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
9751: p_task_version_id => l_working_parent_id
9752: ,x_return_status => x_return_status
9797: FROM pa_proj_element_versions ppev
9798: WHERE ppev.proj_element_id = p_task_id
9799: AND ppev.parent_structure_version_id = c_parent_structure_version_id
9800: AND project_id = p_project_id
9801: AND object_type = 'PA_TASKS')
9802: connect by object_id_from1 = prior object_id_to1
9803: and relationship_type = prior relationship_type --bug 3919266
9804: and relationship_type = 'S'
9805: ) pobj
10002: CURSOR cur_get_parent_tasks(c_elem_ver_id number)
10003: IS
10004: SELECT object_id_from1
10005: FROM pa_object_relationships
10006: WHERE object_type_from IN ('PA_TASKS', 'PA_STRUCTURES')
10007: AND object_type_to = 'PA_TASKS'
10008: AND relationship_type ='S'
10009: CONNECT BY PRIOR OBJECT_ID_FROM1 = OBJECT_ID_TO1
10010: AND PRIOR relationship_type = relationship_type --bug 3919266
10003: IS
10004: SELECT object_id_from1
10005: FROM pa_object_relationships
10006: WHERE object_type_from IN ('PA_TASKS', 'PA_STRUCTURES')
10007: AND object_type_to = 'PA_TASKS'
10008: AND relationship_type ='S'
10009: CONNECT BY PRIOR OBJECT_ID_FROM1 = OBJECT_ID_TO1
10010: AND PRIOR relationship_type = relationship_type --bug 3919266
10011: AND relationship_type = 'S'