[Home] [Help]
264: p_element_number => rtrim(p_task_number)
265: ,p_element_id => null
266: ,p_project_id => p_project_id
267: ,p_structure_id => p_parent_structure_id
268: ,p_object_type => 'PA_TASKS'
269: ) = 'N'
270: THEN
271: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
272: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ');
335: (p_task_manager_name IS NOT NULL)) OR
336: ((p_task_manager_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
337: (p_task_manager_id IS NOT NULL)) THEN
338: --Call Check API.
339: pa_tasks_maint_utils.check_task_mgr_name_or_id(
340: p_task_mgr_name => p_task_manager_name,
341: p_task_mgr_id => p_task_manager_id,
342: p_project_id => p_project_id,
343: p_check_id_flag => 'Y',
359: (p_task_manager_name IS NOT NULL)) OR
360: ((p_task_manager_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
361: (p_task_manager_id IS NOT NULL)) THEN
362: --Call Check API.
363: pa_tasks_maint_utils.check_task_mgr_name_or_id(
364: p_task_mgr_name => p_task_manager_name,
365: p_task_mgr_id => p_task_manager_id,
366: p_project_id => p_project_id,
367: --p_check_id_flag => PA_STARTUP.G_Check_ID_Flag,
866: WHERE proj_element_id = p_task_id;
867:
868: CURSOR cur_trans_dates ( c_task_id NUMBER ) IS
869: SELECT START_DATE, COMPLETION_DATE
870: FROM pa_tasks
871: WHERE task_id = c_task_id;
872:
873: CURSOR cur_task_attr IS
874: SELECT pe.ELEMENT_NUMBER, pe.NAME, pe.DESCRIPTION, hou.name
878:
879: --Bug 3940203 avaithia
880: CURSOR cur_is_fin_task IS
881: SELECT task_id
882: FROM PA_TASKS
883: WHERE task_id = p_task_id ;
884:
885: l_tsk_id PA_TASKS.task_id%TYPE ;
886: l_err_message fnd_new_messages.message_text%TYPE ;
881: SELECT task_id
882: FROM PA_TASKS
883: WHERE task_id = p_task_id ;
884:
885: l_tsk_id PA_TASKS.task_id%TYPE ;
886: l_err_message fnd_new_messages.message_text%TYPE ;
887: --Bug 3940203 avaithia
888:
889: l_trans_start_date DATE;
918: END IF;
919:
920: --Bug 3940203 avaithia <
921: -- From Forms and SelfService ,User should not be able to null out Organisation Field
922: -- for Financial Tasks (because Organisation field is a NOT NULL Column in pa_tasks table)
923:
924: -- Actually ,If No Org. Value is passed from UI ,(If user explicitly nulls out the org. field)
925: -- in PA_TASKS table , the Org. for the task is defaulted as the Project's Org.
926:
921: -- From Forms and SelfService ,User should not be able to null out Organisation Field
922: -- for Financial Tasks (because Organisation field is a NOT NULL Column in pa_tasks table)
923:
924: -- Actually ,If No Org. Value is passed from UI ,(If user explicitly nulls out the org. field)
925: -- in PA_TASKS table , the Org. for the task is defaulted as the Project's Org.
926:
927: -- Current Behaviour is : Though it is populating default org.id (project's org.id) for task
928: -- in pa_tasks table,In UI it is showing Org. field as NULL
929:
924: -- Actually ,If No Org. Value is passed from UI ,(If user explicitly nulls out the org. field)
925: -- in PA_TASKS table , the Org. for the task is defaulted as the Project's Org.
926:
927: -- Current Behaviour is : Though it is populating default org.id (project's org.id) for task
928: -- in pa_tasks table,In UI it is showing Org. field as NULL
929:
930: -- We should not allow this (Org. field being nulled out )
931: -- Note : Same should be the case with AMG also .Because ,AMG changes will be reflected in UI
932:
1203: OR (l_cur_task_mgr_person_id IS NULL)
1204: OR (p_task_manager_id IS NULL) THEN
1205: --end changes for task manager
1206:
1207: pa_tasks_maint_utils.check_task_mgr_name_or_id(
1208: p_task_mgr_name => p_task_manager_name,
1209: p_task_mgr_id => p_task_manager_id,
1210: p_project_id => l_project_id,
1211: p_check_id_flag => 'Y',
1252: OR (l_cur_task_mgr_person IS NULL)
1253: OR (p_task_manager_name IS NULL) THEN
1254: --end changes for task manager
1255:
1256: pa_tasks_maint_utils.check_task_mgr_name_or_id(
1257: p_task_mgr_name => p_task_manager_name,
1258: p_task_mgr_id => p_task_manager_id,
1259: p_project_id => l_project_id,
1260: p_check_id_flag => 'A', --bug fix 2646762
2141: AND pors.object_id_from1 = pors1.object_id_to1
2142: AND pors1.relationship_type = 'S'
2143: AND pors.relationship_type IN ('LW','LF')
2144: AND pors.object_id_from2 <> pors.object_id_to2
2145: AND pors.object_type_from = 'PA_TASKS'
2146: AND pors.object_type_to = 'PA_STRUCTURES');
2147:
2148: l_linked_task VARCHAR2(1);
2149: --anurag
3444: CURSOR get_cur_task_ver_weighting(c_ver_id NUMBER) IS
3445: select WEIGHTING_PERCENTAGE
3446: from pa_object_relationships
3447: where object_id_to1 = c_ver_id
3448: and object_type_to = 'PA_TASKS'
3449: and relationship_type = 'S';
3450: --end changes
3451:
3452: /* Bug 2680486 -- Performance changes -- Selected project_id also in the following cursor, which will
3684:
3685: -- xxlu added task DFF attributes
3686: CURSOR cur_task_attr (c_task_id IN NUMBER) IS
3687: SELECT *
3688: FROM pa_tasks
3689: WHERE task_id = c_task_id;
3690: l_cur_task_attr cur_task_attr%ROWTYPE;
3691: -- end xxlu changes
3692:
3726: cursor sub_task_exists(l_parent_task_version_id NUMBER) IS
3727: select '1'
3728: from pa_object_relationships
3729: where object_id_from1 = l_parent_task_version_id
3730: and object_type_from IN ('PA_TASKS','PA_STRUCTURES')
3731: and object_type_to IN ('PA_TASKS','PA_STRUCTURES')
3732: and relationship_type = 'S';
3733:
3734: --hsiu added for task version status
3727: select '1'
3728: from pa_object_relationships
3729: where object_id_from1 = l_parent_task_version_id
3730: and object_type_from IN ('PA_TASKS','PA_STRUCTURES')
3731: and object_type_to IN ('PA_TASKS','PA_STRUCTURES')
3732: and relationship_type = 'S';
3733:
3734: --hsiu added for task version status
3735: CURSOR cur_proj_is_template(c_project_id NUMBER)
3756: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
3757: select object_id_from1
3758: from pa_object_relationships
3759: where object_id_to1 = c_elem_ver_id
3760: and object_type_to = 'PA_TASKS'
3761: and relationship_type = 'S';
3762: l_parent_ver_id NUMBER;
3763:
3764: --hsiu added for bug 2669388
3846: WHERE
3847: obj.object_id_to1 = task_ver_id
3848: AND obj.object_id_from1 = struct_ver_id
3849: AND object_type_from = 'PA_STRUCTURES'
3850: AND object_type_to = 'PA_TASKS'
3851: AND relationship_type = 'S'
3852: AND relationship_subtype = 'STRUCTURE_TO_TASK';
3853:
3854: is_top_task_in_dest varchar2(1) := 'N';
3965: PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_dest_project_id)
3966: IN ('SHARE_PARTIAL')
3967: Then
3968:
3969: PA_TASKS_MAINT_UTILS.CHECK_MOVE_FINANCIAL_TASK_OK (
3970: p_task_version_id =>
3971: , p_ref_task_version_id => p_dest_task_version_id
3972: , x_return_status => x_return_status
3973: , x_msg_count => x_msg_count
4364: PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_dest_project_id) = 'SHARE_PARTIAL'
4365: Then
4366: IF p_dest_structure_version_id <> p_dest_task_version_id -- reference should not be str ver
4367: THEN
4368: PA_TASKS_MAINT_UTILS.CHECK_MOVE_FINANCIAL_TASK_OK (
4369: p_task_version_id => l_element_version_id
4370: , p_ref_task_version_id => l_ref_task_version_id
4371: , x_return_status => x_return_status
4372: , x_msg_count => x_msg_count
5177: THEN
5178: l_copy_node_flag := 'P'; ---copy entire project
5179: END IF;
5180:
5181: PA_TASKS_MAINT_PUB.Copy_Task(
5182: p_reference_project_id => l_ref_project_id
5183: ,p_reference_task_id => l_ref_task_id
5184: ,p_project_id => l_project_id
5185: ,p_task_id => l_task_id
5710: select b.object_id_to1 object_id_to1
5711: from pa_object_relationships a,
5712: pa_object_relationships b
5713: where a.object_id_to1 = p_task_version_id
5714: and a.object_type_to = 'PA_TASKS'
5715: and a.relationship_type = 'S' -- Bug # 4622939.
5716: and a.object_id_from1 = b.object_id_from1
5717: and a.object_type_from = b.object_type_from
5718: and b.object_type_to = 'PA_TASKS'
5714: and a.object_type_to = 'PA_TASKS'
5715: and a.relationship_type = 'S' -- Bug # 4622939.
5716: and a.object_id_from1 = b.object_id_from1
5717: and a.object_type_from = b.object_type_from
5718: and b.object_type_to = 'PA_TASKS'
5719: and b.relationship_type = 'S' -- Bug # 4622939.
5720: and b.object_id_to1 <> p_task_version_id;
5721: c_get_peer_tasks get_peer_tasks%ROWTYPE;
5722:
5734: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
5735: select object_id_from1
5736: from pa_object_relationships
5737: where object_id_to1 = c_elem_ver_id
5738: and object_type_to = 'PA_TASKS'
5739: and relationship_type = 'S';
5740: l_parent_ver_id NUMBER;
5741: l_error_msg_code VARCHAR2(30);
5742:
5788: l_old_parent_task_id NUMBER;
5789: l_top_task_id NUMBER;
5790:
5791: CURSOR get_parent_task_id( c_task_id NUMBER, c_project_id NUMBER ) IS
5792: SELECT parent_task_id, top_task_id FROM pa_tasks
5793: WHERE project_id = c_project_id and task_id = c_task_id;
5794:
5795: --End Bug 2947492 ( move )
5796: -- Merged from 85
5813: cursor get_child_ver_id(c_task_ver_id NUMBER) IS
5814: select object_id_to1
5815: from pa_object_relationships
5816: where relationship_type = 'S'
5817: and object_type_to = 'PA_TASKS'
5818: start with object_id_from1 = c_task_ver_id
5819: and object_type_from = 'PA_TASKS'
5820: connect by prior object_id_to1 = object_id_from1
5821: and prior object_type_to = object_type_from
5815: from pa_object_relationships
5816: where relationship_type = 'S'
5817: and object_type_to = 'PA_TASKS'
5818: start with object_id_from1 = c_task_ver_id
5819: and object_type_from = 'PA_TASKS'
5820: connect by prior object_id_to1 = object_id_from1
5821: and prior object_type_to = object_type_from
5822: and prior relationship_type = relationship_type
5823: UNION
5832: Cursor get_top_task_ver_id(c_task_ver_id NUMBER) IS
5833: select object_id_to1
5834: from pa_object_relationships
5835: where relationshiP_type = 'S'
5836: and object_type_to = 'PA_TASKS'
5837: start with object_id_to1 = c_task_ver_id
5838: and object_type_to = 'PA_TASKS'
5839: connect by prior object_id_from1 = object_id_to1
5840: and prior object_type_from = object_type_to
5834: from pa_object_relationships
5835: where relationshiP_type = 'S'
5836: and object_type_to = 'PA_TASKS'
5837: start with object_id_to1 = c_task_ver_id
5838: and object_type_to = 'PA_TASKS'
5839: connect by prior object_id_from1 = object_id_to1
5840: and prior object_type_from = object_type_to
5841: and prior relationship_type = relationship_type
5842: intersect
5939: -- Added for FP_M changes. Bug 3305199 : xxx
5940: If l_sharing_code = 'SHARE_PARTIAL' /*4269830 : Replaced function usage with l_sharing_code*/
5941: Then
5942:
5943: PA_TASKS_MAINT_UTILS.CHECK_MOVE_FINANCIAL_TASK_OK (
5944: p_task_version_id => p_task_version_id
5945: , p_ref_task_version_id => p_ref_task_version_id
5946: , x_return_status => x_return_status
5947: , x_msg_count => x_msg_count
6056: -- get the parent of the task being moved
6057: SELECT object_id_from1, object_type_from
6058: INTO l_parent_id, l_parent_object_type
6059: FROM PA_OBJECT_RELATIONSHIPS
6060: WHERE object_type_to = 'PA_TASKS'
6061: AND object_id_to1 = p_task_version_id
6062: AND relationship_type = 'S'
6063: AND object_type_from in ('PA_STRUCTURES', 'PA_TASKS');
6064:
6059: FROM PA_OBJECT_RELATIONSHIPS
6060: WHERE object_type_to = 'PA_TASKS'
6061: AND object_id_to1 = p_task_version_id
6062: AND relationship_type = 'S'
6063: AND object_type_from in ('PA_STRUCTURES', 'PA_TASKS');
6064:
6065: --hsiu added, for dates rollup
6066: --need to get peer task before it has been moved.
6067: OPEN get_peer_tasks;
6296:
6297: IF l_fin_type = 'Y' -- 4269830 this is equivalent to cur_struc_type%FOUND
6298: THEN
6299:
6300: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(l_proj_element_id); --bug 3301192 move in pa_tasks also if it exists there.
6301:
6302: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y') OR
6303: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
6304: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
6309:
6310: --hsiu Fixed parent_structure_version_id condition
6311: SELECT ppev.proj_element_id, pt.record_version_number, ppa.wbs_record_version_number, ppev.project_id
6312: INTO l_task_id, l_task_record_version_number, l_wbs_record_version_number, l_project_id
6313: FROM PA_TASKS pt,
6314: pa_proj_elem_ver_structure ppa,
6315: PA_PROJ_ELEMENT_VERSIONS ppev
6316: WHERE ppev.element_version_id = p_task_version_id
6317: AND ppev.project_id = ppa.project_id
6326: SELECT record_version_number, parent_task_id --get old parent id for bug 2947492 (move )
6327: ,top_task_id --bug 2967204
6328: INTO l_record_version_number, l_old_parent_task_id
6329: ,l_old_top_task_id --bug 2967204
6330: FROM pa_tasks
6331: WHERE task_id = l_task_id
6332: AND project_id = l_project_id;
6333: -- merged from 85
6334:
6335: x_msg_count := FND_MSG_PUB.count_msg;
6336:
6337: --dbms_output.put_line( 'before move task old '|| x_msg_count );
6338:
6339: PA_TASKS_MAINT_PUB.Move_Task(
6340: p_reference_project_id => l_project_id
6341: ,p_reference_task_id => l_ref_task_id
6342: ,p_project_id => l_project_id
6343: ,p_task_id => l_task_id
6342: ,p_project_id => l_project_id
6343: ,p_task_id => l_task_id
6344: ,p_peer_or_sub => p_peer_or_sub
6345: ,p_record_version_number => l_record_version_number
6346: ,p_wbs_record_version_number => 1 --temporarily passing 1. Lock project is commented out in PA_TASKS_MAIN_PUB.Move_Task api.
6347: ,x_return_status => l_return_status
6348: ,x_msg_count => l_msg_count
6349: ,x_msg_data => l_msg_data );
6350:
6902: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
6903: select object_id_from1
6904: from pa_object_relationships
6905: where object_id_to1 = c_elem_ver_id
6906: and object_type_to = 'PA_TASKS'
6907: and relationship_type = 'S';
6908: l_parent_ver_id NUMBER;
6909: l_error_msg_code VARCHAR2(30);
6910:
7070: SELECT element_version_id
7071: INTO l_ref_task_version_id
7072: FROM PA_PROJ_ELEMENT_VERSIONS
7073: WHERE wbs_level = l_wbs_level + 1
7074: AND object_type = 'PA_TASKS'
7075: AND display_sequence < l_display_sequence
7076: AND parent_structure_version_id = l_parent_structure_version_id
7077: AND display_sequence =
7078: (SELECT max(display_sequence)
7077: AND display_sequence =
7078: (SELECT max(display_sequence)
7079: FROM PA_PROJ_ELEMENT_VERSIONS
7080: WHERE wbs_level = l_wbs_level + 1
7081: AND object_type = 'PA_TASKS'
7082: AND display_sequence < l_display_sequence
7083: AND parent_structure_version_id = l_parent_structure_version_id);
7084: --dbms_output.put_line( 'Indent Task Stage 8 ' );
7085:
7221: --end changes
7222:
7223: SELECT ppev.proj_element_id, pt.record_version_number, ppa.wbs_record_version_number, ppev.project_id
7224: INTO l_task_id, l_task_record_version_number, l_wbs_record_version_number, l_project_id
7225: FROM PA_TASKS pt,
7226: pa_proj_elem_ver_structure ppa,
7227: PA_PROJ_ELEMENT_VERSIONS ppev
7228: WHERE ppev.element_version_id = p_task_version_id
7229: AND ppev.parent_structure_version_id = ppa.element_version_id
7235: FROM PA_PROJ_ELEMENT_VERSIONS
7236: WHERE element_version_id = l_ref_task_version_id;
7237:
7238: SELECT record_version_number INTO l_task_record_version_number
7239: FROM pa_tasks
7240: WHERE task_id = l_task_id
7241: AND project_id = l_project_id;
7242:
7243:
7240: WHERE task_id = l_task_id
7241: AND project_id = l_project_id;
7242:
7243:
7244: PA_TASKS_MAINT_PUB.Edit_Task_Structure(
7245: p_project_id => l_project_id
7246: ,p_task_id => l_task_id
7247: ,p_edit_mode => 'INDENT'
7248: ,p_record_version_number => l_task_record_version_number
7462: select b.object_id_to1 object_id_to1
7463: from pa_object_relationships a,
7464: pa_object_relationships b
7465: where a.object_id_to1 = p_task_version_id
7466: and a.object_type_to = 'PA_TASKS'
7467: and a.object_id_from1 = b.object_id_from1
7468: and a.object_type_from = b.object_type_from
7469: and b.object_type_to = 'PA_TASKS'
7470: and b.object_id_to1 <> p_task_version_id;
7465: where a.object_id_to1 = p_task_version_id
7466: and a.object_type_to = 'PA_TASKS'
7467: and a.object_id_from1 = b.object_id_from1
7468: and a.object_type_from = b.object_type_from
7469: and b.object_type_to = 'PA_TASKS'
7470: and b.object_id_to1 <> p_task_version_id;
7471: c_get_peer_tasks get_peer_tasks%ROWTYPE;
7472:
7473: --Hsiu added, for dates rollup
7479: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
7480: select object_id_from1
7481: from pa_object_relationships
7482: where object_id_to1 = c_elem_ver_id
7483: and object_type_to = 'PA_TASKS'
7484: and relationship_type = 'S';
7485: l_parent_ver_id NUMBER;
7486: l_error_msg_code VARCHAR2(30);
7487: BEGIN
7576: SELECT element_version_id
7577: INTO l_ref_task_version_id
7578: FROM PA_PROJ_ELEMENT_VERSIONS
7579: WHERE wbs_level = l_wbs_level - 1
7580: AND object_type = 'PA_TASKS'
7581: AND parent_structure_version_id = l_parent_structure_version_id
7582: AND display_sequence < l_display_sequence
7583: AND display_sequence =
7584: (SELECT max(display_sequence)
7583: AND display_sequence =
7584: (SELECT max(display_sequence)
7585: FROM PA_PROJ_ELEMENT_VERSIONS
7586: WHERE wbs_level = l_wbs_level - 1
7587: AND object_type = 'PA_TASKS'
7588: AND parent_structure_version_id = l_parent_structure_version_id
7589: AND display_sequence < l_display_sequence);
7590:
7591: --hsiu added for task status
7702: --end changes
7703:
7704: SELECT ppev.proj_element_id, pt.record_version_number, ppa.wbs_record_version_number, ppev.project_id
7705: INTO l_task_id, l_task_record_version_number, l_wbs_record_version_number, l_project_id
7706: FROM PA_TASKS pt,
7707: pa_proj_elem_ver_structure ppa,
7708: PA_PROJ_ELEMENT_VERSIONS ppev
7709: WHERE ppev.element_version_id = p_task_version_id
7710: AND ppev.parent_structure_version_id = ppa.element_version_id
7716: FROM PA_PROJ_ELEMENT_VERSIONS
7717: WHERE element_version_id = l_ref_task_version_id;
7718:
7719: SELECT record_version_number INTO l_task_record_version_number
7720: FROM pa_tasks
7721: WHERE task_id = l_task_id
7722: AND project_id = l_project_id;
7723:
7724: PA_TASKS_MAINT_PUB.Edit_Task_Structure(
7720: FROM pa_tasks
7721: WHERE task_id = l_task_id
7722: AND project_id = l_project_id;
7723:
7724: PA_TASKS_MAINT_PUB.Edit_Task_Structure(
7725: p_project_id => l_project_id
7726: ,p_task_id => l_task_id
7727: ,p_edit_mode => 'OUTDENT'
7728: ,p_record_version_number => l_task_record_version_number
7949: IS
7950: SELECT proj_element_id
7951: FROM pa_proj_element_versions
7952: WHERE element_version_id = p_ref_task_ver_id
7953: AND object_type = 'PA_TASKS';
7954:
7955: --Hsiu added for date rollup
7956: l_tasks_ver_ids PA_NUM_1000_NUM := PA_NUM_1000_NUM();
7957:
7972: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
7973: select object_id_from1
7974: from pa_object_relationships
7975: where object_id_to1 = c_elem_ver_id
7976: and object_type_to = 'PA_TASKS'
7977: and relationship_type = 'S';
7978: l_parent_ver_id NUMBER;
7979: l_error_msg_code VARCHAR2(30);
7980: --end task version status changes
8276: --3035902: end process update flag changes
8277:
8278: PA_TASK_PUB1.CREATE_TASK
8279: ( p_validate_only => FND_API.G_FALSE
8280: ,p_object_type => 'PA_TASKS'
8281: ,p_project_id => p_project_id
8282: ,p_ref_task_id => l_ref_proj_eleme_id
8283: ,p_peer_or_sub => l_peer_or_sub
8284: ,p_structure_id => p_structure_id
8518: -- Hsiu added for date rollup; workplan only
8519: l_tasks_ver_ids.extend;
8520: l_tasks_ver_ids(l_tasks_ver_ids.count) := l_task_version_id;
8521: --anuragag bug 8566495 - we will validate the task start and end date
8522: PA_TASKS_MAINT_UTILS.check_start_date(
8523: p_project_id => p_project_id,
8524: p_parent_task_id => NULL,
8525: p_task_id => l_task_id,
8526: p_start_date => p_scheduled_start_date(i),
8550:
8551: raise API_ERROR;
8552: END IF;
8553:
8554: PA_TASKS_MAINT_UTILS.check_end_date(
8555: p_project_id => p_project_id,
8556: p_parent_task_id => NULL,
8557: p_task_id => l_task_id,
8558: p_end_date => p_scheduled_finish_date(i),
8809: IS
8810: SELECT count(object_id_to1)
8811: FROM PA_OBJECT_RELATIONSHIPS
8812: WHERE object_id_from1 = c_parent_element_version_id
8813: AND object_type_to = 'PA_TASKS'
8814: AND relationship_type = 'S'
8815: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8816:
8817: CURSOR get_summed_duration(c_parent_element_version_id NUMBER)
8811: FROM PA_OBJECT_RELATIONSHIPS
8812: WHERE object_id_from1 = c_parent_element_version_id
8813: AND object_type_to = 'PA_TASKS'
8814: AND relationship_type = 'S'
8815: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8816:
8817: CURSOR get_summed_duration(c_parent_element_version_id NUMBER)
8818: IS
8819: SELECT sum(ppevs.duration)
8822: pa_proj_element_versions ppev,
8823: pa_proj_elements ppe,
8824: pa_task_types ptt
8825: WHERE por.object_id_from1 = c_parent_element_version_id
8826: AND por.object_type_to = 'PA_TASKS'
8827: AND por.relationship_type = 'S'
8828: AND por.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8829: AND por.object_id_to1 = ppevs.element_version_id
8830: AND por.object_id_to1 = ppev.element_version_id
8824: pa_task_types ptt
8825: WHERE por.object_id_from1 = c_parent_element_version_id
8826: AND por.object_type_to = 'PA_TASKS'
8827: AND por.relationship_type = 'S'
8828: AND por.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8829: AND por.object_id_to1 = ppevs.element_version_id
8830: AND por.object_id_to1 = ppev.element_version_id
8831: AND ppev.proj_element_id = ppe.proj_element_id
8832: AND ppe.project_id = ppevs.project_id /* for bug 2822963 */
8830: AND por.object_id_to1 = ppev.element_version_id
8831: AND ppev.proj_element_id = ppe.proj_element_id
8832: AND ppe.project_id = ppevs.project_id /* for bug 2822963 */
8833: AND ppe.TYPE_ID = ptt.task_type_id
8834: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8835: AND ptt.prog_entry_enable_flag = 'Y';
8836:
8837: CURSOR get_task_duration(c_element_version_id NUMBER,c_project_id NUMBER)
8838: IS
8845: IS
8846: SELECT object_id_from1
8847: FROM pa_object_relationships
8848: WHERE object_id_to1 = c_element_version_id
8849: AND object_type_to = 'PA_TASKS'
8850: AND relationship_type = 'S'
8851: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8852:
8853: CURSOR check_progress_allowed(c_element_version_id NUMBER)
8847: FROM pa_object_relationships
8848: WHERE object_id_to1 = c_element_version_id
8849: AND object_type_to = 'PA_TASKS'
8850: AND relationship_type = 'S'
8851: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
8852:
8853: CURSOR check_progress_allowed(c_element_version_id NUMBER)
8854: IS
8855: SELECT ptt.prog_entry_enable_flag, ppe.project_id /* for bug 2822963 */
8857: pa_proj_element_versions ppev,
8858: pa_proj_elements ppe
8859: WHERE ppev.element_version_id = c_element_version_id
8860: AND ppev.proj_element_id = ppe.proj_element_id
8861: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8862: AND ppe.TYPE_ID = ptt.task_type_id;
8863:
8864: CURSOR get_existing_weights(c_parent_element_version_id NUMBER)
8865: IS
8865: IS
8866: SELECT sum(weighting_percentage)
8867: FROM PA_OBJECT_RELATIONSHIPS
8868: WHERE object_id_from1 = c_parent_element_version_id
8869: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8870: AND object_type_to = 'PA_TASKS'
8871: AND relationship_type = 'S';
8872:
8873: -- Bug 3098574. This cursor gives the number of progressible tasks
8866: SELECT sum(weighting_percentage)
8867: FROM PA_OBJECT_RELATIONSHIPS
8868: WHERE object_id_from1 = c_parent_element_version_id
8869: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8870: AND object_type_to = 'PA_TASKS'
8871: AND relationship_type = 'S';
8872:
8873: -- Bug 3098574. This cursor gives the number of progressible tasks
8874: -- under a parent. This count will be used to pro-rate the task weightage
8877: IS
8878: SELECT count(rel.object_id_to1)
8879: FROM PA_OBJECT_RELATIONSHIPS rel,pa_proj_element_versions ver,pa_proj_elements ele,pa_task_types tt
8880: WHERE rel.object_id_from1 = c_parent_element_version_id
8881: AND rel.object_type_to = 'PA_TASKS'
8882: AND rel.relationship_type = 'S'
8883: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8884: AND rel.object_id_to1 = ver.element_version_id
8885: AND ver.proj_element_id = ele.proj_element_id
8879: FROM PA_OBJECT_RELATIONSHIPS rel,pa_proj_element_versions ver,pa_proj_elements ele,pa_task_types tt
8880: WHERE rel.object_id_from1 = c_parent_element_version_id
8881: AND rel.object_type_to = 'PA_TASKS'
8882: AND rel.relationship_type = 'S'
8883: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8884: AND rel.object_id_to1 = ver.element_version_id
8885: AND ver.proj_element_id = ele.proj_element_id
8886: AND ele.type_id = tt.task_type_id
8887: AND tt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8883: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8884: AND rel.object_id_to1 = ver.element_version_id
8885: AND ver.proj_element_id = ele.proj_element_id
8886: AND ele.type_id = tt.task_type_id
8887: AND tt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8888: AND tt.prog_entry_enable_flag = 'Y';
8889:
8890: l_progressible_child_count NUMBER; -- Bug 3098574.
8891:
8973: UPDATE PA_OBJECT_RELATIONSHIPS
8974: SET weighting_percentage = 0
8975: WHERE object_id_from1 = l_parent_element_version_id
8976: AND object_id_to1 = l_element_version_id
8977: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8978: AND object_type_to = 'PA_TASKS'
8979: AND relationship_type = 'S';
8980: elsif l_outline_level = 1 then
8981: if l_is_sub_new is NULL then
8974: SET weighting_percentage = 0
8975: WHERE object_id_from1 = l_parent_element_version_id
8976: AND object_id_to1 = l_element_version_id
8977: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
8978: AND object_type_to = 'PA_TASKS'
8979: AND relationship_type = 'S';
8980: elsif l_outline_level = 1 then
8981: if l_is_sub_new is NULL then
8982: -- Determine whether there we any existing tasks for this level before
8998: UPDATE PA_OBJECT_RELATIONSHIPS
8999: SET weighting_percentage = 0
9000: WHERE object_id_from1 = l_parent_element_version_id
9001: AND object_id_to1 = l_element_version_id
9002: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9003: AND object_type_to = 'PA_TASKS'
9004: AND relationship_type = 'S';
9005: else
9006: -- There were no existing tasks at this level, populate
8999: SET weighting_percentage = 0
9000: WHERE object_id_from1 = l_parent_element_version_id
9001: AND object_id_to1 = l_element_version_id
9002: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9003: AND object_type_to = 'PA_TASKS'
9004: AND relationship_type = 'S';
9005: else
9006: -- There were no existing tasks at this level, populate
9007: -- the correct task weight
9014: UPDATE PA_OBJECT_RELATIONSHIPS
9015: SET weighting_percentage = 0
9016: WHERE object_id_from1 = l_parent_element_version_id
9017: AND object_id_to1 = l_element_version_id
9018: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9019: AND object_type_to = 'PA_TASKS'
9020: AND relationship_type = 'S';
9021: else
9022:
9015: SET weighting_percentage = 0
9016: WHERE object_id_from1 = l_parent_element_version_id
9017: AND object_id_to1 = l_element_version_id
9018: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9019: AND object_type_to = 'PA_TASKS'
9020: AND relationship_type = 'S';
9021: else
9022:
9023: if l_durations.exists(l_parent_element_version_id) then
9154: UPDATE PA_OBJECT_RELATIONSHIPS
9155: SET weighting_percentage = l_task_weight
9156: WHERE object_id_from1 = l_parent_element_version_id
9157: AND object_id_to1 = l_element_version_id
9158: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9159: AND object_type_to = 'PA_TASKS'
9160: AND relationship_type = 'S';
9161: end if;
9162: end if;
9155: SET weighting_percentage = l_task_weight
9156: WHERE object_id_from1 = l_parent_element_version_id
9157: AND object_id_to1 = l_element_version_id
9158: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9159: AND object_type_to = 'PA_TASKS'
9160: AND relationship_type = 'S';
9161: end if;
9162: end if;
9163: else
9172: UPDATE PA_OBJECT_RELATIONSHIPS
9173: SET weighting_percentage = 0
9174: WHERE object_id_from1 = l_parent_element_version_id
9175: AND object_id_to1 = l_element_version_id
9176: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9177: AND object_type_to = 'PA_TASKS'
9178: AND relationship_type = 'S';
9179: else
9180:
9173: SET weighting_percentage = 0
9174: WHERE object_id_from1 = l_parent_element_version_id
9175: AND object_id_to1 = l_element_version_id
9176: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9177: AND object_type_to = 'PA_TASKS'
9178: AND relationship_type = 'S';
9179: else
9180:
9181: if l_durations.exists(l_parent_element_version_id) then
9313: UPDATE PA_OBJECT_RELATIONSHIPS
9314: SET weighting_percentage = l_task_weight
9315: WHERE object_id_from1 = l_parent_element_version_id
9316: AND object_id_to1 = l_element_version_id
9317: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9318: AND object_type_to = 'PA_TASKS'
9319: AND relationship_type = 'S';
9320: end if;
9321: end if;
9314: SET weighting_percentage = l_task_weight
9315: WHERE object_id_from1 = l_parent_element_version_id
9316: AND object_id_to1 = l_element_version_id
9317: AND object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9318: AND object_type_to = 'PA_TASKS'
9319: AND relationship_type = 'S';
9320: end if;
9321: end if;
9322:
9478: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
9479: SELECT object_id_from1
9480: FROM pa_object_relationships
9481: WHERE object_id_to1 = c_elem_ver_id
9482: AND object_type_to = 'PA_TASKS'
9483: AND relationship_type = 'S';
9484:
9485: CURSOR cur_obj_rel( p_child_version_id NUMBER ) IS
9486: SELECT object_id_from1
9497: SELECT a.object_id_from1
9498: , a.weighting_percentage
9499: FROM pa_object_relationships a
9500: WHERE a.object_id_to1 = c_task_version_id
9501: AND a.object_type_to = 'PA_TASKS'
9502: AND a.relationship_type = 'S'
9503: AND a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
9504:
9505: CURSOR get_sub_tasks(c_task_version_id NUMBER) IS
9499: FROM pa_object_relationships a
9500: WHERE a.object_id_to1 = c_task_version_id
9501: AND a.object_type_to = 'PA_TASKS'
9502: AND a.relationship_type = 'S'
9503: AND a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
9504:
9505: CURSOR get_sub_tasks(c_task_version_id NUMBER) IS
9506: SELECT '1'
9507: FROM dual
9508: WHERE EXISTS
9509: (SELECT 'xyz'
9510: FROM pa_object_relationships
9511: WHERE object_id_from1 = c_task_version_id
9512: AND object_type_from IN ('PA_TASKS', 'PA_STRUCTURES')
9513: AND relationship_type = 'S'
9514: );
9515:
9516: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
9519: , pa_proj_element_versions ppev,
9520: pa_proj_elements ppe
9521: WHERE ppev.element_version_id = c_element_version_id
9522: AND ppev.proj_element_id = ppe.proj_element_id
9523: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
9524: AND ppe.TYPE_ID = ptt.task_type_id;
9525:
9526:
9527:
9609: CURSOR get_wbs_number(c_elem_ver_id NUMBER) is
9610: select wbs_number
9611: from pa_proj_element_versions
9612: where element_version_id = c_elem_ver_id
9613: and object_type ='PA_TASKS';
9614:
9615: -- hyau Bug 2852753
9616: l_delete_project_allowed VARCHAR2(1);
9617: l_update_proj_num_allowed VARCHAR2(1);
9659: l_top_task_id NUMBER;
9660: l_old_top_task_id NUMBER; --bug 2967204
9661:
9662: CURSOR get_parent_task_id( c_task_id NUMBER, c_project_id NUMBER ) IS
9663: SELECT parent_task_id, top_task_id FROM pa_tasks
9664: WHERE project_id = c_project_id and task_id = c_task_id;
9665:
9666: --End Bug 2947492 ( indent )
9667: -- Merged from 85
9684: Cursor get_top_task_ver_id(c_task_ver_id NUMBER) IS
9685: select object_id_to1
9686: from pa_object_relationships
9687: where relationshiP_type = 'S'
9688: and object_type_to = 'PA_TASKS'
9689: start with object_id_to1 = c_task_ver_id
9690: and object_type_to = 'PA_TASKS'
9691: and relationship_type = 'S'
9692: connect by prior object_id_from1 = object_id_to1
9686: from pa_object_relationships
9687: where relationshiP_type = 'S'
9688: and object_type_to = 'PA_TASKS'
9689: start with object_id_to1 = c_task_ver_id
9690: and object_type_to = 'PA_TASKS'
9691: and relationship_type = 'S'
9692: connect by prior object_id_from1 = object_id_to1
9693: and prior object_type_from = object_type_to
9694: and prior relationship_type = relationship_type
9720: FROM PA_PROJ_ELEMENT_VERSIONS
9721: WHERE parent_structure_version_id = p_structure_version_id
9722: AND project_id = p_project_id
9723: AND wbs_level = c_src_wbs_level
9724: AND object_type = 'PA_TASKS'
9725: AND display_sequence < src_seq_number
9726: AND display_sequence =
9727: (SELECT max (display_sequence)
9728: FROM pa_proj_element_versions
9729: WHERE project_id = p_project_id
9730: AND parent_structure_version_id = p_structure_version_id
9731: AND wbs_level = c_src_wbs_level
9732: AND display_sequence < src_seq_number
9733: AND object_type = 'PA_TASKS');
9734: --bug 4214825, end
9735:
9736: BEGIN
9737:
9881: FROM PA_PROJ_ELEMENT_VERSIONS
9882: WHERE display_sequence = src_seq_number - 1
9883: AND parent_structure_version_id = p_structure_version_id
9884: AND project_id = p_project_id
9885: AND object_type = 'PA_TASKS';
9886:
9887: IF src_wbs_level > ref_wbs_level then
9888: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
9889: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
9903: FROM PA_PROJ_ELEMENT_VERSIONS
9904: WHERE parent_structure_version_id = p_structure_version_id
9905: AND project_id = p_project_id
9906: AND wbs_level = src_wbs_level+1
9907: AND object_type = 'PA_TASKS'
9908: AND display_sequence < src_seq_number
9909: AND display_sequence =
9910: (SELECT max (display_sequence)
9911: FROM pa_proj_element_versions
9912: WHERE project_id = p_project_id
9913: AND parent_structure_version_id = p_structure_version_id
9914: AND wbs_level = src_wbs_level+1
9915: AND display_sequence < src_seq_number
9916: AND object_type = 'PA_TASKS');
9917:
9918: --bug 4214825, start
9919: OPEN cur_get_ref_tsk_ver_id(src_wbs_level);
9920: FETCH cur_get_ref_tsk_ver_id INTO l_ref_tsk_version_id;
9934: FROM PA_PROJ_ELEMENT_VERSIONS
9935: WHERE parent_structure_version_id = p_structure_version_id
9936: AND project_id = p_project_id
9937: AND (wbs_level = src_wbs_level OR wbs_level = src_wbs_level+1) -- Sub or Peer
9938: AND object_type = 'PA_TASKS'
9939: AND display_sequence < src_seq_number
9940: AND display_sequence =
9941: (SELECT max (display_sequence)
9942: FROM pa_proj_element_versions
9943: WHERE project_id = p_project_id
9944: AND parent_structure_version_id = p_structure_version_id
9945: AND (wbs_level = src_wbs_level OR wbs_level = src_wbs_level+1) -- Sub or Peer
9946: AND display_sequence < src_seq_number
9947: AND object_type = 'PA_TASKS');
9948: EXCEPTION
9949: WHEN OTHERS THEN
9950: raise;
9951: END;
10064: If PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id)
10065: IN ('SHARE_PARTIAL')
10066: Then
10067:
10068: PA_TASKS_MAINT_UTILS.CHECK_MOVE_FINANCIAL_TASK_OK (
10069: p_task_version_id => p_task_version_id
10070: , p_ref_task_version_id => ref_elem_ver_id
10071: , x_return_status => x_return_status
10072: , x_msg_count => x_msg_count
10154: pa_proj_element_versions
10155: WHERE
10156: project_id = p_project_id
10157: AND parent_structure_version_id = p_structure_version_id
10158: AND object_type = 'PA_TASKS'
10159: AND(
10160: element_version_id = p_task_version_id -- Source task itself
10161: OR (element_version_id IN -- All tasks below the source task with wbs_level >= src_wbs_level-1
10162: (select object_id_to1
10161: OR (element_version_id IN -- All tasks below the source task with wbs_level >= src_wbs_level-1
10162: (select object_id_to1
10163: from pa_object_relationships
10164: where relationship_type = 'S'
10165: and object_type_to = 'PA_TASKS'
10166: start with object_id_from1 = l_ref_parent_ver_id
10167: connect by object_id_from1 = PRIOR object_id_to1
10168: and relationship_type = PRIOR relationship_type
10169: and relationship_type = 'S')
10300:
10301:
10302: -- Update Relationship
10303:
10304: IF ref_object_type = 'PA_TASKS'
10305: THEN
10306: IF l_peer_or_sub = 'PEER'
10307: THEN
10308: OPEN cur_obj_rel( ref_elem_ver_id );
10326: l_relationship_subtype := 'TASK_TO_TASK';
10327:
10328:
10329: END IF;
10330: END IF; -- ref_object_type = 'PA_TASKS'
10331: -- No need to check for PA_STRUCTURES as this is indent and you can not indent below a structure
10332:
10333:
10334: --update relatonship of the task version p_task_version.
10485: l_project_id);
10486: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
10487: l_project_id);
10488:
10489: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --indent in corresponding task in pa_tasks
10490:
10491: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
10492: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
10493: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
10494: THEN
10495:
10496: SELECT ppev.proj_element_id, pt.record_version_number, ppa.wbs_record_version_number, ppev.project_id
10497: INTO l_task_id, l_task_record_version_number, l_wbs_record_version_number, l_project_id
10498: FROM PA_TASKS pt,
10499: pa_proj_elem_ver_structure ppa,
10500: PA_PROJ_ELEMENT_VERSIONS ppev
10501: WHERE ppev.element_version_id = p_task_version_id
10502: AND ppev.parent_structure_version_id = ppa.element_version_id
10507: SELECT record_version_number, parent_task_id --get old parent id for bug 2947492 (indent )
10508: ,top_task_id --bug 2967204
10509: INTO l_task_record_version_number, l_old_parent_task_id
10510: ,l_old_top_task_id --bug 2967204
10511: FROM pa_tasks
10512: WHERE task_id = l_task_id
10513: AND project_id = l_project_id;
10514: -- Merged from 85
10515:
10513: AND project_id = l_project_id;
10514: -- Merged from 85
10515:
10516:
10517: PA_TASKS_MAINT_PUB.Edit_Task_Structure(
10518: p_project_id => l_project_id
10519: ,p_task_id => l_task_id
10520: ,p_edit_mode => 'INDENT'
10521: ,p_record_version_number => l_task_record_version_number
10963: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
10964: SELECT object_id_from1
10965: FROM pa_object_relationships
10966: WHERE object_id_to1 = c_elem_ver_id
10967: AND object_type_to = 'PA_TASKS'
10968: AND relationship_type = 'S';
10969:
10970: CURSOR cur_obj_rel( p_child_version_id NUMBER ) IS
10971: SELECT object_id_from1
10982: SELECT a.object_id_from1
10983: , a.weighting_percentage
10984: FROM pa_object_relationships a
10985: WHERE a.object_id_to1 = c_task_version_id
10986: AND a.object_type_to = 'PA_TASKS'
10987: AND a.relationship_type = 'S'
10988: AND a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
10989:
10990: CURSOR get_sub_tasks(c_task_version_id NUMBER) IS
10984: FROM pa_object_relationships a
10985: WHERE a.object_id_to1 = c_task_version_id
10986: AND a.object_type_to = 'PA_TASKS'
10987: AND a.relationship_type = 'S'
10988: AND a.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS');
10989:
10990: CURSOR get_sub_tasks(c_task_version_id NUMBER) IS
10991: SELECT '1'
10992: FROM dual
10993: WHERE EXISTS
10994: (SELECT 'xyz'
10995: FROM pa_object_relationships
10996: WHERE object_id_from1 = c_task_version_id
10997: AND object_type_from IN ('PA_TASKS', 'PA_STRUCTURES')
10998: AND relationship_type = 'S'
10999: );
11000:
11001: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
11011: SELECT b.object_id_to1 object_id_to1
11012: FROM pa_object_relationships a
11013: , pa_object_relationships b
11014: WHERE a.object_id_to1 = p_task_version_id
11015: AND a.object_type_to = 'PA_TASKS'
11016: AND a.object_id_from1 = b.object_id_from1
11017: AND a.object_type_from = b.object_type_from
11018: AND b.object_type_to = 'PA_TASKS'
11019: AND b.object_id_to1 <> p_task_version_id
11014: WHERE a.object_id_to1 = p_task_version_id
11015: AND a.object_type_to = 'PA_TASKS'
11016: AND a.object_id_from1 = b.object_id_from1
11017: AND a.object_type_from = b.object_type_from
11018: AND b.object_type_to = 'PA_TASKS'
11019: AND b.object_id_to1 <> p_task_version_id
11020: AND a.relationship_type = 'S'
11021: AND b.relationship_type = 'S';
11022:
11128: CURSOR get_wbs_number(c_elem_ver_id NUMBER) is
11129: select wbs_number
11130: from pa_proj_element_versions
11131: where element_version_id = c_elem_ver_id
11132: and object_type ='PA_TASKS';
11133:
11134: ref_parent_branch_mask VARCHAR2(1000);
11135:
11136: -- hyau Bug 2852753
11184:
11185: CURSOR get_parent_task_id( c_task_id NUMBER, c_project_id NUMBER )
11186: IS
11187: SELECT parent_task_id, top_task_id
11188: FROM pa_tasks
11189: WHERE project_id = c_project_id
11190: AND task_id = c_task_id;
11191:
11192: CURSOR cur_new_child_task( c_project_id NUMBER, c_wbs_level NUMBER,
11192: CURSOR cur_new_child_task( c_project_id NUMBER, c_wbs_level NUMBER,
11193: c_task_id NUMBER , c_parent_task_id NUMBER )
11194: IS
11195: SELECT pt.task_id, pt.top_task_id, pt.parent_task_id
11196: FROM pa_tasks pt, pa_proj_element_versions ppev
11197: WHERE pt.wbs_level = c_wbs_level
11198: AND parent_task_id = c_parent_task_id
11199: AND pt.project_id = c_project_id
11200: AND pt.task_id = ppev.proj_element_id
11199: AND pt.project_id = c_project_id
11200: AND pt.task_id = ppev.proj_element_id
11201: AND ppev.display_sequence > ( SELECT display_sequence FROM pa_proj_element_versions
11202: WHERE project_id = c_project_id
11203: AND object_type = 'PA_TASKS'
11204: AND proj_element_id = c_task_id );
11205:
11206: --For financial tasks we can directly join with pa_proj-element_version using proj_element_id
11207: --bcoz this api will be called as long as there is only one version for financial otherwise
11228: Cursor get_top_task_ver_id(c_task_ver_id NUMBER) IS
11229: select object_id_to1
11230: from pa_object_relationships
11231: where relationshiP_type = 'S'
11232: and object_type_to = 'PA_TASKS'
11233: start with object_id_to1 = c_task_ver_id
11234: and object_type_to = 'PA_TASKS'
11235: and relationship_type = 'S'
11236: connect by prior object_id_from1 = object_id_to1
11230: from pa_object_relationships
11231: where relationshiP_type = 'S'
11232: and object_type_to = 'PA_TASKS'
11233: start with object_id_to1 = c_task_ver_id
11234: and object_type_to = 'PA_TASKS'
11235: and relationship_type = 'S'
11236: connect by prior object_id_from1 = object_id_to1
11237: and prior object_type_from = object_type_to
11238: and prior relationship_type = relationship_type
11401: FROM PA_PROJ_ELEMENT_VERSIONS
11402: WHERE parent_structure_version_id = p_structure_version_id
11403: AND project_id = p_project_id
11404: AND (wbs_level = src_wbs_level-1)
11405: AND object_type = 'PA_TASKS'
11406: AND display_sequence =
11407: (SELECT max (display_sequence)
11408: FROM pa_proj_element_versions
11409: WHERE project_id = p_project_id
11409: WHERE project_id = p_project_id
11410: AND parent_structure_version_id = p_structure_version_id
11411: AND (wbs_level = src_wbs_level-1)
11412: AND display_sequence < src_seq_number
11413: AND object_type = 'PA_TASKS');
11414: EXCEPTION
11415: WHEN OTHERS THEN
11416: raise;
11417: -- It will never return NO_DATA_FOUND as there will always at least one task with wbs_level-1
11533: If PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id)
11534: IN ('SHARE_PARTIAL')
11535: Then
11536:
11537: PA_TASKS_MAINT_UTILS.CHECK_MOVE_FINANCIAL_TASK_OK (
11538: p_task_version_id => p_task_version_id
11539: , p_ref_task_version_id => ref_elem_ver_id
11540: , x_return_status => x_return_status
11541: , x_msg_count => x_msg_count
11615: pa_proj_element_versions
11616: WHERE
11617: project_id = p_project_id
11618: AND parent_structure_version_id = p_structure_version_id
11619: AND object_type = 'PA_TASKS'
11620: AND(
11621: element_version_id = p_task_version_id -- Source task itself
11622: OR element_version_id IN -- All tasks below the source task
11623: (select object_id_to1
11622: OR element_version_id IN -- All tasks below the source task
11623: (select object_id_to1
11624: from pa_object_relationships
11625: where relationship_type = 'S'
11626: and object_type_to = 'PA_TASKS'
11627: start with object_id_from1 = l_ref_parent_ver_id
11628: connect by object_id_from1 = PRIOR object_id_to1
11629: and relationship_type = prior relationship_type
11630: and relationship_type = 'S')
11840:
11841:
11842: -- Update Relationship
11843:
11844: IF ref_object_type = 'PA_TASKS'
11845: THEN
11846: IF l_peer_or_sub = 'PEER'
11847: THEN
11848: OPEN cur_obj_rel( ref_elem_ver_id );
11876: THEN
11877: l_struc_version_from := ref_elem_ver_id;
11878: l_task_version_from := null;
11879: l_relationship_subtype := 'STRUCTURE_TO_TASK';
11880: END IF; -- ref_object_type = 'PA_TASKS'
11881:
11882:
11883: --update relatonship of the task version p_task_version.
11884: --set structure_version_from and task_version_from accordingly.
12102: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
12103: l_project_id);
12104:
12105: --o IF (NVL( l_published_version, 'N' ) = 'N') OR (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y') THEN
12106: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --outdent in corresponding task in pa_tasks
12107:
12108: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
12109: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
12110: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
12111: THEN
12112:
12113: SELECT ppev.proj_element_id, pt.record_version_number, ppa.wbs_record_version_number, ppev.project_id
12114: INTO l_task_id, l_task_record_version_number, l_wbs_record_version_number, l_project_id
12115: FROM PA_TASKS pt,
12116: pa_proj_elem_ver_structure ppa,
12117: PA_PROJ_ELEMENT_VERSIONS ppev
12118: WHERE ppev.element_version_id = p_task_version_id
12119: AND ppev.parent_structure_version_id = ppa.element_version_id
12124: SELECT record_version_number, parent_task_id, wbs_level --get old parent id for bug 2947492 (outdent )
12125: ,top_task_id
12126: INTO l_task_record_version_number, l_old_parent_task_id, l_old_wbs_level
12127: ,l_old_top_task_id
12128: FROM pa_tasks
12129: WHERE task_id = l_task_id
12130: AND project_id = l_project_id;
12131: -- Merged from 85
12132:
12182: */ ---commenitng out, please check venkatesh mail dated 22 jan 04
12183:
12184: -- Merged from 85
12185:
12186: PA_TASKS_MAINT_PUB.Edit_Task_Structure(
12187: p_project_id => l_project_id
12188: ,p_task_id => l_task_id
12189: ,p_edit_mode => 'OUTDENT'
12190: ,p_record_version_number => l_task_record_version_number
12677: SELECT object_id_to1 task_ver_id
12678: FROM pa_object_relationships pors
12679: START WITH object_id_from1 = c_task_version_id
12680: AND relationship_type = 'S'
12681: AND object_type_from = 'PA_TASKS'
12682: AND object_type_to = 'PA_TASKS'
12683: CONNECT BY relationship_type = PRIOR relationship_type
12684: AND PRIOR object_type_to = object_type_from
12685: AND PRIOR object_id_to1 = object_id_from1
12678: FROM pa_object_relationships pors
12679: START WITH object_id_from1 = c_task_version_id
12680: AND relationship_type = 'S'
12681: AND object_type_from = 'PA_TASKS'
12682: AND object_type_to = 'PA_TASKS'
12683: CONNECT BY relationship_type = PRIOR relationship_type
12684: AND PRIOR object_type_to = object_type_from
12685: AND PRIOR object_id_to1 = object_id_from1
12686: UNION
12970: l_type_to := 'PA_PROJECTS';
12971: l_id_to := p_associated_project_id;
12972:
12973: IF p_associated_task_id is not NULL THEN
12974: l_type_to := 'PA_TASKS';
12975: l_id_to := p_associated_task_id;
12976: END IF;
12977:
12978: -- when creating a new relationship check both ids and object types
12980: IF p_task_id is NULL or l_id_to is NULL THEN
12981: x_return_status := FND_API.G_RET_STS_ERROR;
12982: l_error_msg_code:= 'PA_PS_TASK_NUMBER_NULL';
12983: ELSE
12984: IF p_task_id = l_id_to and l_type_to = 'PA_TASKS' then
12985: x_return_status := FND_API.G_RET_STS_ERROR;
12986: l_error_msg_code:= 'PA_TASK_ID_INVALID';
12987: END IF;
12988: END IF;
12989: END IF;
12990:
12991: -- when updating an existing relationship check both ids and object types
12992: IF p_relationship_id is not null and l_id_to is not null THEN
12993: IF p_task_id = l_id_to and l_type_to = 'PA_TASKS' then
12994: x_return_status := FND_API.G_RET_STS_ERROR;
12995: l_error_msg_code:= 'PA_TASK_ID_INVALID';
12996: END IF;
12997: END IF;
13004: -- Create a new association row
13005: IF p_relationship_id is NULL and x_return_status = FND_API.G_RET_STS_SUCCESS THEN
13006: PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW(
13007: p_user_id => FND_GLOBAL.USER_ID
13008: ,p_object_type_from => 'PA_TASKS'
13009: ,p_object_id_from1 => p_task_id
13010: ,p_object_id_from2 => NULL
13011: ,p_object_id_from3 => NULL
13012: ,p_object_id_from4 => NULL
13036: SET object_id_to1 = l_id_to
13037: ,object_type_to = l_type_to
13038: WHERE object_relationship_id = p_relationship_id;
13039: --WHERE object_id_from1 = p_task_id
13040: --AND object_type_from = 'PA_TASKS'
13041: --AND relationship_type = 'A';
13042: END IF;
13043:
13044: IF p_relationship_id is not null and l_id_to is null THEN
13118: IS
13119: SELECT object_relationship_id
13120: FROM PA_OBJECT_RELATIONSHIPS
13121: WHERE relationship_type = p_relationship_type
13122: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id)
13123: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id));
13124:
13125: l_data VARCHAR2(250);
13126: l_msg_index_out NUMBER;
13119: SELECT object_relationship_id
13120: FROM PA_OBJECT_RELATIONSHIPS
13121: WHERE relationship_type = p_relationship_type
13122: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id)
13123: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id));
13124:
13125: l_data VARCHAR2(250);
13126: l_msg_index_out NUMBER;
13127:
13255: cursor relationship_exists(p_task_id NUMBER) IS
13256: select '1'
13257: from pa_object_relationships
13258: WHERE relationship_type = p_relationship_type
13259: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id
13260: AND object_type_to in ( 'PA_STRUCTURES', 'PA_TASKS')) --bug 4091647
13261: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id
13262: AND object_type_from = 'PA_TASKS')); --bug 4091647
13263: l_dummy_char VARCHAR2(1);
13256: select '1'
13257: from pa_object_relationships
13258: WHERE relationship_type = p_relationship_type
13259: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id
13260: AND object_type_to in ( 'PA_STRUCTURES', 'PA_TASKS')) --bug 4091647
13261: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id
13262: AND object_type_from = 'PA_TASKS')); --bug 4091647
13263: l_dummy_char VARCHAR2(1);
13264:
13257: from pa_object_relationships
13258: WHERE relationship_type = p_relationship_type
13259: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id
13260: AND object_type_to in ( 'PA_STRUCTURES', 'PA_TASKS')) --bug 4091647
13261: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id
13262: AND object_type_from = 'PA_TASKS')); --bug 4091647
13263: l_dummy_char VARCHAR2(1);
13264:
13265: BEGIN
13258: WHERE relationship_type = p_relationship_type
13259: AND ( (object_type_from = 'PA_TASKS' AND object_id_from1 = p_task_id
13260: AND object_type_to in ( 'PA_STRUCTURES', 'PA_TASKS')) --bug 4091647
13261: OR (object_type_to = 'PA_TASKS' AND object_id_to1 = p_task_id
13262: AND object_type_from = 'PA_TASKS')); --bug 4091647
13263: l_dummy_char VARCHAR2(1);
13264:
13265: BEGIN
13266: OPEN relationship_exists(p_task_id);
13284: cursor relationship_exists(p_project_id NUMBER) IS
13285: select '1'
13286: from pa_object_relationships
13287: WHERE relationship_type = p_relationship_type
13288: AND object_type_from = 'PA_TASKS'
13289: AND object_type_to = 'PA_PROJECTS' AND object_id_to1 = p_project_id;
13290:
13291: l_dummy_char VARCHAR2(1);
13292:
13372: IS
13373: SELECT object_relationship_id
13374: FROM PA_OBJECT_RELATIONSHIPS
13375: WHERE relationship_type = p_relationship_type
13376: AND object_type_from = 'PA_TASKS'
13377: AND object_type_to = 'PA_PROJECTS' AND object_id_to1 = p_project_id;
13378:
13379: l_data VARCHAR2(250);
13380: l_msg_index_out NUMBER;
13485: CURSOR task_association( task_id NUMBER, p_relationship_type VARCHAR2 )
13486: IS
13487: Select object_type_to, object_id_to1
13488: from pa_object_relationships
13489: where object_type_from = 'PA_TASKS'
13490: and object_id_from1 = task_id
13491: and relationship_type = p_relationship_type;
13492:
13493: l_object_type_to pa_object_relationships.object_type_to%Type;
13522: IF task_association%found THEN
13523:
13524: PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW(
13525: p_user_id => FND_GLOBAL.USER_ID
13526: ,p_object_type_from => 'PA_TASKS'
13527: ,p_object_id_from1 => task_list_rec.new_task_id
13528: ,p_object_id_from2 => NULL
13529: ,p_object_id_from3 => NULL
13530: ,p_object_id_from4 => NULL
13720: p_project_id IN NUMBER,
13721: p_planned_effort IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13722: p_ETC_effort IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13723: p_structure_version_id IN NUMBER,
13724: p_object_type IN VARCHAR2 := 'PA_TASKS',
13725: p_etc_cost IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13726: p_actual_effort IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13727: p_percent_complete IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13728: p_res_assign_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
13756: where ppr.project_id = p_project_id
13757: and ppr.object_id = p_object_id
13758: and ppr.object_version_id = p_object_version_id
13759: and ppr.structure_version_id = p_structure_version_id
13760: and ppr.object_type in ('PA_TASKS','PA_ASSIGNMENTS','PA_STRUCTURES') -- 4498610 : Added PA_STRUCTURES also
13761: and ppr.current_flag = 'Y'
13762: and ppr.as_of_date = (select max(as_of_date) from pa_progress_rollup ppr2
13763: where ppr2.project_id = p_project_id
13764: and ppr2.object_id = p_object_id
13763: where ppr2.project_id = p_project_id
13764: and ppr2.object_id = p_object_id
13765: and ppr2.object_version_id = p_object_version_id
13766: and ppr2.structure_version_id = p_structure_version_id
13767: and ppr2.object_type in ('PA_TASKS','PA_ASSIGNMENTS','PA_STRUCTURES'));
13768:
13769: cur_progress_rec cur_progress%rowtype;
13770:
13771:
13777: and ppr.object_id = p_object_id
13778: and ppr.object_version_id = p_object_version_id
13779: and ppr.structure_version_id IS NULL
13780: and ppr.current_flag = p_current_flag
13781: and ppr.object_type in ('PA_TASKS','PA_ASSIGNMENTS','PA_STRUCTURES'); -- 4498610 : Added PA_STRUCTURES also
13782: --bug 3959087, following code is commented as it is not needed
13783: /*and ppr.as_of_date = (select max(as_of_date) from pa_progress_rollup ppr2
13784: where ppr2.project_id = p_project_id
13785: and ppr2.object_id = p_object_id
13785: and ppr2.object_id = p_object_id
13786: and ppr2.object_version_id = p_object_version_id
13787: and ppr2.structure_version_id IS NULL
13788: and ppr2.current_flag = p_current_flag --bug 3708948
13789: and ppr2.object_type in ('PA_TASKS','PA_ASSIGNMENTS'));*/
13790:
13791: cursor cur_prev_planned_task_effort(p_project_id NUMBER, p_proj_element_id NUMBER
13792: , p_structure_version_id NUMBER) is
13793: select (labor_effort+equipment_effort)
13873: FROM pa_proj_element_versions
13874: WHERE project_id = p_project_id
13875: and parent_structure_version_id = p_structure_version_id
13876: and element_version_id = p_task_ver_id
13877: and object_type = decode(p_object_type, 'PA_ASSIGNMENTS','PA_TASKS', p_object_type); -- Bug 3856161 : Added Decode
13878:
13879: l_rollup_method VARCHAR2(30);
13880: l_actual_finish_DATE DATE;
13881: l_actual_start_DATE DATE;
13942: where ppr.project_id = p_project_id
13943: and ppr.object_id = p_object_id
13944: and ppr.object_version_id = p_object_version_id
13945: and ppr.structure_version_id = p_structure_version_id
13946: and ppr.object_type IN ('PA_TASKS','PA_STRUCTURES') -- -- Bug 4498610 : Added PA_STRUCTURES
13947: and ppr.current_flag = 'Y';
13948:
13949:
13950: cursor cur_rollup_percent2 (p_project_id NUMBER, p_object_id NUMBER, p_object_version_id NUMBER,
13955: and ppr.object_id = p_object_id
13956: and ppr.object_version_id = p_object_version_id
13957: and ppr.structure_version_id IS NULL
13958: and ppr.current_flag = 'Y'
13959: and ppr.object_type IN ('PA_TASKS','PA_STRUCTURES') -- Bug 4498610 : Added PA_STRUCTURES
13960: ;
13961:
13962: --bug 3959087, end
13963:
13967: from pa_progress_rollup ppr
13968: where ppr.project_id = c_project_id
13969: and ppr.object_id = c_object_id
13970: and ((c_version_enabled_flag = 'N' AND ppr.structure_version_id IS NULL) OR (c_version_enabled_flag = 'Y' AND ppr.structure_version_id = p_structure_version_id))
13971: and ppr.object_type = 'PA_TASKS'
13972: and ppr.structure_type = 'WORKPLAN';
13973:
13974: l_progress_exists VARCHAR2(1):='N';
13975:
14011: END IF;
14012:
14013: l_version_enabled := PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id); --maansari5/9
14014:
14015: --The following actions are to be performed only when p_object_type = 'PA_TASKS'
14016:
14017: --IF (p_object_type = 'PA_TASKS') THEN --- Bug 4498610
14018: IF (p_object_type IN ('PA_TASKS','PA_STRUCTURES')) THEN --- Bug 4498610
14019:
14013: l_version_enabled := PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id); --maansari5/9
14014:
14015: --The following actions are to be performed only when p_object_type = 'PA_TASKS'
14016:
14017: --IF (p_object_type = 'PA_TASKS') THEN --- Bug 4498610
14018: IF (p_object_type IN ('PA_TASKS','PA_STRUCTURES')) THEN --- Bug 4498610
14019:
14020: -- Bug Fix 5726773
14021: -- Support negative quantities and amounts.
14014:
14015: --The following actions are to be performed only when p_object_type = 'PA_TASKS'
14016:
14017: --IF (p_object_type = 'PA_TASKS') THEN --- Bug 4498610
14018: IF (p_object_type IN ('PA_TASKS','PA_STRUCTURES')) THEN --- Bug 4498610
14019:
14020: -- Bug Fix 5726773
14021: -- Support negative quantities and amounts.
14022: -- Commenting out the following validations.
14213: END IF;
14214:
14215: --bug 3959087, start
14216: l_lowest_level_task := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_ver_id );
14217: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id, p_task_ver_id, 'PA_TASKS');
14218:
14219: IF l_debug_mode = 'Y' THEN
14220: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_lowest_level_task='||l_lowest_level_task, x_Log_Level=> 3);
14221: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_assignment_exists='||l_assignment_exists, x_Log_Level=> 3);
14229: PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id, 'WORKPLAN') = 'Y'
14230: -- Progress Management Changes, Bug # 3420093.
14231: --AND PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_task_ver_id,p_object_type) = 'N' --bug 3864543
14232: AND l_assignment_exists = 'N' --bug 3959087
14233: AND p_object_type = 'PA_TASKS'
14234: AND p_calling_module <> 'AMG')
14235: THEN
14236:
14237: OPEN cur_sch;
14363: END IF;
14364: -- Bug 3856161 : Reduced the scope of IF
14365: END IF;*/
14366:
14367: -- 4498610 : Added PA_TASKS condition
14368: IF p_object_type = 'PA_TASKS' AND NVL( l_lowest_level_task, 'N' ) = 'Y' AND l_assignment_exists = 'N'
14369: THEN
14370: OPEN cur_proj_elements(l_task_id);
14371: FETCH cur_proj_elements INTO l_BASE_PERCENT_COMP_DERIV_CODE;
14364: -- Bug 3856161 : Reduced the scope of IF
14365: END IF;*/
14366:
14367: -- 4498610 : Added PA_TASKS condition
14368: IF p_object_type = 'PA_TASKS' AND NVL( l_lowest_level_task, 'N' ) = 'Y' AND l_assignment_exists = 'N'
14369: THEN
14370: OPEN cur_proj_elements(l_task_id);
14371: FETCH cur_proj_elements INTO l_BASE_PERCENT_COMP_DERIV_CODE;
14372: CLOSE cur_proj_elements;
14900: -- end if;--IF Bug 3856161 (nvl(p_percent_complete,0) > 0 AND p_percent_complete <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
14901: END IF; -- Bug 3856161 ( (nvl(p_percent_complete,0) > 0 AND p_percent_complete <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
14902:
14903:
14904: IF p_object_type = 'PA_TASKS' THEN-- Bug 4498610 : Added IF
14905: -- Bug 3976633 : Added cursor cur_progress_exists
14906: OPEN cur_progress_exists (p_project_id, l_task_id, p_structure_version_id, l_version_enabled);
14907: FETCH cur_progress_exists INTO l_progress_exists;
14908: CLOSE cur_progress_exists;
14967: ,x_msg_count => l_msg_count
14968: ,x_msg_data => l_msg_data);
14969: END IF;
14970: END IF ;--IF NVL(l_progress_exists, 'N') = 'Y' THEN
14971: END IF;-- p_object_type = 'PA_TASKS' THEN-- Bug 4498610 : Added END IF
14972: END IF; -- if (p_object_type ='PA_TASKS') then
14973:
14974: -- Code to insert progress records nto the pa_progress_rollup_table.
14975:
14968: ,x_msg_data => l_msg_data);
14969: END IF;
14970: END IF ;--IF NVL(l_progress_exists, 'N') = 'Y' THEN
14971: END IF;-- p_object_type = 'PA_TASKS' THEN-- Bug 4498610 : Added END IF
14972: END IF; -- if (p_object_type ='PA_TASKS') then
14973:
14974: -- Code to insert progress records nto the pa_progress_rollup_table.
14975:
14976: /* END: The above actions are to be performed only when p_object_type = 'PA_TASKS'. */
14972: END IF; -- if (p_object_type ='PA_TASKS') then
14973:
14974: -- Code to insert progress records nto the pa_progress_rollup_table.
14975:
14976: /* END: The above actions are to be performed only when p_object_type = 'PA_TASKS'. */
14977:
14978:
14979: /* BEGIN: The following actions are to be performed only when p_object_type = 'PA_ASSIGNMENTS'. */
14980:
15057: ,p_project_id => p_project_id
15058: ,p_structure_version_id => p_structure_version_id
15059: ,p_calling_module => p_calling_module--BUG 3919800, rtarway
15060: --maansari5/10
15061: ,p_object_type => 'PA_TASKS' -- p_object_type Bug 3856161
15062: ,p_object_id => l_task_id
15063: ,p_object_version_id => p_task_ver_id
15064: ,p_task_version_id => p_task_ver_id
15065: --maansari5/10
16082: INTO l_project_id,
16083: l_parent_task_id,
16084: l_tstart_date,
16085: l_tend_date
16086: FROM pa_tasks pt
16087: WHERE pt.task_id = p_task_id_tbl(i);
16088:
16089: IF ((nvl(p_transaction_start_date_tbl(i),sysdate) <> nvl(l_tstart_date,sysdate))
16090: OR (nvl(p_transaction_finish_date_tbl(i),sysdate) <> nvl(l_tend_date,sysdate))) THEN
16260:
16261: IF (nvl(l_task_dates(l_tcnt).old_start_date,sysdate) <>
16262: nvl(l_task_dates(l_tcnt).new_start_date,sysdate)) THEN
16263:
16264: PA_TASKS_MAINT_UTILS.Check_Start_Date(
16265: p_project_id => l_task_dates(l_tcnt).project_id,
16266: p_parent_task_id => l_task_dates(l_tcnt).parent_task_id,
16267: p_task_id => NULL,
16268: p_start_date => l_task_dates(l_tcnt).new_start_date,
16277: END IF;
16278:
16279: IF (nvl(l_task_dates(l_tcnt).old_end_date,sysdate) <>
16280: nvl(l_task_dates(l_tcnt).new_end_date,sysdate)) THEN
16281: PA_TASKS_MAINT_UTILS.Check_End_Date(
16282: p_project_id => l_task_dates(l_tcnt).project_id,
16283: p_parent_task_id => l_task_dates(l_tcnt).parent_task_id,
16284: p_task_id => l_task_dates(l_tcnt).task_id,
16285: p_end_date => l_task_dates(l_tcnt).new_end_date,
16518: ,p_task_status => p_cancel_status_code
16519: ,p_project_id => p_project_id
16520: ,p_object_id => p_task_id
16521: ,p_object_version_id => p_task_version_id
16522: ,p_object_type => 'PA_TASKS'
16523: ,x_return_status => x_return_status
16524: ,x_msg_count => x_msg_count
16525: ,x_msg_data => x_msg_data
16526: );
17078: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17079: )
17080:
17081: IS
17082: l_task_number pa_tasks.task_number%TYPE ;
17083: l_task_name pa_tasks.task_name%TYPE ;
17084: l_msg_count NUMBER := 0;
17085: l_msg_data VARCHAR2(2000);
17086: l_return_status VARCHAR2(1);
17079: )
17080:
17081: IS
17082: l_task_number pa_tasks.task_number%TYPE ;
17083: l_task_name pa_tasks.task_name%TYPE ;
17084: l_msg_count NUMBER := 0;
17085: l_msg_data VARCHAR2(2000);
17086: l_return_status VARCHAR2(1);
17087: l_msg_count2 NUMBER := 0;
17205: end if;
17206:
17207:
17208:
17209: PA_TASKS_MAINT_PUB.CREATE_TASK
17210: (
17211: p_calling_module => 'SELF_SERVICE'
17212: ,p_init_msg_list => FND_API.G_FALSE
17213: ,p_debug_mode => 'N'