[Home] [Help]
487: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
488: ,x_return_status OUT NOCOPY VARCHAR2 ) IS --File.Sql.39 bug 4440895
489:
490:
491: CURSOR cur_pa_tasks2 IS
492: SELECT distinct top_task_id
493: FROM pa_tasks pt
494: WHERE project_id = p_project_id;
495:
489:
490:
491: CURSOR cur_pa_tasks2 IS
492: SELECT distinct top_task_id
493: FROM pa_tasks pt
494: WHERE project_id = p_project_id;
495:
496: CURSOR cur_pa_tasks( c_top_task_id NUMBER )
497: IS
492: SELECT distinct top_task_id
493: FROM pa_tasks pt
494: WHERE project_id = p_project_id;
495:
496: CURSOR cur_pa_tasks( c_top_task_id NUMBER )
497: IS
498: SELECT task_id, wbs_level, parent_task_id, task_number, task_name, description, carrying_out_organization_id
499: FROM pa_tasks pt
500: WHERE project_id = p_project_id
495:
496: CURSOR cur_pa_tasks( c_top_task_id NUMBER )
497: IS
498: SELECT task_id, wbs_level, parent_task_id, task_number, task_name, description, carrying_out_organization_id
499: FROM pa_tasks pt
500: WHERE project_id = p_project_id
501: START WITH task_id = c_top_task_id
502: CONNECT BY PRIOR task_id = parent_task_id;
503:
506: IS
507: SELECT object_id_from1
508: FROM pa_object_relationships
509: WHERE object_id_to1 = c_task_version_id
510: and object_type_from in ('PA_STRUCTURES','PA_TASKS') -- bug 6429275
511: and object_type_to = 'PA_TASKS'
512: and relationship_type = 'S';
513:
514:
507: SELECT object_id_from1
508: FROM pa_object_relationships
509: WHERE object_id_to1 = c_task_version_id
510: and object_type_from in ('PA_STRUCTURES','PA_TASKS') -- bug 6429275
511: and object_type_to = 'PA_TASKS'
512: and relationship_type = 'S';
513:
514:
515: CURSOR cur_pa_projs
604:
605:
606: l_ref_task_version_id := null;
607:
608: FOR cur_pa_tasks2_rec IN cur_pa_tasks2 LOOP
609:
610: FOR cur_pa_tasks_rec IN cur_pa_tasks( cur_pa_tasks2_rec.top_task_id ) LOOP
611:
612:
606: l_ref_task_version_id := null;
607:
608: FOR cur_pa_tasks2_rec IN cur_pa_tasks2 LOOP
609:
610: FOR cur_pa_tasks_rec IN cur_pa_tasks( cur_pa_tasks2_rec.top_task_id ) LOOP
611:
612:
613:
614: --The task will be created with a different ids if the structure is a WORKPLAN and split from COSTING.
611:
612:
613:
614: --The task will be created with a different ids if the structure is a WORKPLAN and split from COSTING.
615: --Otherwise same ids as in pa_tasks will be used to create tasks in pa_proj_elements if only one default
616: --structure is being created.
617: l_split_flag := null;
618: OPEN cur_pa_projs;
619: FETCH cur_pa_projs INTO l_split_flag;
622: --For each project create 1 task
623: IF p_struc_type = 'WORKPLAN' AND l_split_flag IS NOT NULL
624: THEN
625: --l_proj_element_id := null;
626: SELECT pa_tasks_s.nextval INTO l_proj_element_id
627: FROM sys.dual;
628: l_postfix := '-'||SUBSTR( p_struc_type, 1, 1 );
629: --hsiu added for parent_structure_id column
630: OPEN get_structure(p_project_id, 'WORKPLAN');
631: FETCH get_structure into l_structure_id;
632: CLOSE get_structure;
633: ELSE
634: --hsiu added for parent_structure_id column
635: l_proj_element_id := cur_pa_tasks_rec.task_id;
636: OPEN get_structure(p_project_id, 'FINANCIAL');
637: FETCH get_structure into l_structure_id;
638: CLOSE get_structure;
639: END IF;
640: PA_PROJ_ELEMENTS_PKG.Insert_Row(
641: X_ROW_ID => X_ROW_ID
642: ,X_PROJ_ELEMENT_ID => l_proj_element_id
643: ,X_PROJECT_ID => p_project_id
644: ,X_OBJECT_TYPE => 'PA_TASKS'
645: ,X_ELEMENT_NUMBER => cur_pa_tasks_rec.task_number||l_postfix
646: ,X_NAME => cur_pa_tasks_rec.task_name
647: ,X_DESCRIPTION => cur_pa_tasks_rec.description
648: ,X_STATUS_CODE => '124' --- NOT_STARTED -- 124 bug 2826235
641: X_ROW_ID => X_ROW_ID
642: ,X_PROJ_ELEMENT_ID => l_proj_element_id
643: ,X_PROJECT_ID => p_project_id
644: ,X_OBJECT_TYPE => 'PA_TASKS'
645: ,X_ELEMENT_NUMBER => cur_pa_tasks_rec.task_number||l_postfix
646: ,X_NAME => cur_pa_tasks_rec.task_name
647: ,X_DESCRIPTION => cur_pa_tasks_rec.description
648: ,X_STATUS_CODE => '124' --- NOT_STARTED -- 124 bug 2826235
649: ,X_WF_STATUS_CODE => null
642: ,X_PROJ_ELEMENT_ID => l_proj_element_id
643: ,X_PROJECT_ID => p_project_id
644: ,X_OBJECT_TYPE => 'PA_TASKS'
645: ,X_ELEMENT_NUMBER => cur_pa_tasks_rec.task_number||l_postfix
646: ,X_NAME => cur_pa_tasks_rec.task_name
647: ,X_DESCRIPTION => cur_pa_tasks_rec.description
648: ,X_STATUS_CODE => '124' --- NOT_STARTED -- 124 bug 2826235
649: ,X_WF_STATUS_CODE => null
650: ,X_PM_PRODUCT_CODE => null
643: ,X_PROJECT_ID => p_project_id
644: ,X_OBJECT_TYPE => 'PA_TASKS'
645: ,X_ELEMENT_NUMBER => cur_pa_tasks_rec.task_number||l_postfix
646: ,X_NAME => cur_pa_tasks_rec.task_name
647: ,X_DESCRIPTION => cur_pa_tasks_rec.description
648: ,X_STATUS_CODE => '124' --- NOT_STARTED -- 124 bug 2826235
649: ,X_WF_STATUS_CODE => null
650: ,X_PM_PRODUCT_CODE => null
651: ,X_PM_TASK_REFERENCE => null
651: ,X_PM_TASK_REFERENCE => null
652: ,X_CLOSED_DATE => null
653: ,X_LOCATION_ID => null
654: ,X_MANAGER_PERSON_ID => null
655: ,X_CARRYING_OUT_ORGANIZATION_ID => cur_pa_tasks_rec.carrying_out_organization_id
656: ,X_TYPE_ID => 1
657: ,X_PRIORITY_CODE => null
658: ,X_INC_PROJ_PROGRESS_FLAG => 'N'
659: ,X_REQUEST_ID => null
689: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
690: );
691:
692:
693: IF cur_pa_tasks%ROWCOUNT = 1
694: THEN
695:
696: IF cur_pa_tasks2%ROWCOUNT = 1
697: THEN
692:
693: IF cur_pa_tasks%ROWCOUNT = 1
694: THEN
695:
696: IF cur_pa_tasks2%ROWCOUNT = 1
697: THEN
698: OPEN cur_proj_elem_vers;
699: FETCH cur_proj_elem_vers INTO x_struc_version_id;
700: CLOSE cur_proj_elem_vers;
705: l_ref_task_version_id := l_prev_top_task_ver_id;
706: l_peer_or_sub := 'PEER';
707: END IF;
708: ELSE
709: IF cur_pa_tasks_rec.wbs_level > l_old_wbs_level
710: THEN
711: l_peer_or_sub := 'SUB';
712: ELSIF cur_pa_tasks_rec.wbs_level = l_old_wbs_level
713: THEN
708: ELSE
709: IF cur_pa_tasks_rec.wbs_level > l_old_wbs_level
710: THEN
711: l_peer_or_sub := 'SUB';
712: ELSIF cur_pa_tasks_rec.wbs_level = l_old_wbs_level
713: THEN
714: l_peer_or_sub := 'PEER';
715: ELSE
716: OPEN parent_of_previous_task( l_ref_task_version_id );
731: ,x_msg_count => l_msg_count
732: ,x_msg_data => l_msg_data
733: );
734:
735: IF cur_pa_tasks%ROWCOUNT = 1
736: THEN
737: l_prev_top_task_ver_id := x_task_version_id;
738: END IF;
739:
744: raise api_error;
745: END IF;
746:
747: l_ref_task_version_id := x_task_version_id;
748: l_old_wbs_level := cur_pa_tasks_rec.wbs_level;
749:
750: -- IF p_struc_type = 'WORKPLAN'
751:
752: --if it is a workplan structure.
826: --
827: -- 14-DEC-01 MAansari -Created
828: --
829: -- Notes: This api is called from form PAXPREPR.fmb ON-INSERT of tasks block.
830: -- The call is in PA_TASKS_PKG.ON_INSERT API.
831:
832: PROCEDURE create_task_structure(
833: p_calling_module IN VARCHAR2 := 'FORMS'
834: ,p_project_id IN NUMBER
969: IS
970: SELECT element_version_id
971: FROM pa_proj_element_versions
972: WHERE project_id = p_project_id
973: AND object_type = 'PA_TASKS'
974: AND parent_structure_version_id = c_structure_version_id
975: AND ( ( proj_element_id = ( select top_task_id
976: from pa_tasks
977: where task_id = p_ref_task_id ) AND p_structure_type = 'FINANCIAL' )
972: WHERE project_id = p_project_id
973: AND object_type = 'PA_TASKS'
974: AND parent_structure_version_id = c_structure_version_id
975: AND ( ( proj_element_id = ( select top_task_id
976: from pa_tasks
977: where task_id = p_ref_task_id ) AND p_structure_type = 'FINANCIAL' )
978: --OR ( proj_element_id = p_ref_task_id AND p_structure_type = 'WORKPLAN' )
979: )
980: --bug 2852891
981: UNION
982: SELECT element_version_id
983: FROM pa_proj_element_versions
984: WHERE project_id = p_project_id
985: AND object_type = 'PA_TASKS'
986: AND parent_structure_version_id = c_structure_version_id
987: AND p_structure_type = 'WORKPLAN'
988: AND display_sequence = ( SELECT max( display_sequence )
989: FROM pa_proj_element_versions
987: AND p_structure_type = 'WORKPLAN'
988: AND display_sequence = ( SELECT max( display_sequence )
989: FROM pa_proj_element_versions
990: WHERE project_id = p_project_id
991: AND object_type = 'PA_TASKS'
992: AND parent_structure_version_id = c_structure_version_id
993: AND wbs_level = 1 --Since there is no parent task id passed therefore its always created as top task
994: AND display_sequence <= ( SELECT display_sequence
995: FROM pa_proj_element_versions
993: AND wbs_level = 1 --Since there is no parent task id passed therefore its always created as top task
994: AND display_sequence <= ( SELECT display_sequence
995: FROM pa_proj_element_versions
996: WHERE project_id = p_project_id
997: AND object_type = 'PA_TASKS'
998: AND parent_structure_version_id = c_structure_version_id
999: AND proj_element_id = p_ref_task_id )
1000: )
1001: --bug 2852891
1005: IS
1006: SELECT element_version_id
1007: FROM pa_proj_element_versions
1008: WHERE project_id = p_project_id
1009: AND object_type = 'PA_TASKS'
1010: AND parent_structure_version_id = c_structure_version_id
1011: AND proj_element_id = p_ref_task_id
1012: ;
1013:
1016: IS
1017: SELECT element_version_id
1018: FROM pa_proj_element_versions
1019: WHERE project_id = p_project_id
1020: AND object_type = 'PA_TASKS'
1021: AND parent_structure_version_id = c_structure_version_id
1022: and element_version_id in ( SELECT object_id_to1
1023: FROM pa_object_relationships
1024: WHERE object_id_from1 = c_parent_task_version_id
1026: )
1027: AND display_sequence = ( SELECT max( display_sequence )
1028: FROM pa_proj_element_versions
1029: WHERE project_id = p_project_id
1030: AND object_type = 'PA_TASKS'
1031: AND parent_structure_version_id = c_structure_version_id
1032: and element_version_id in ( SELECT object_id_to1
1033: FROM pa_object_relationships
1034: WHERE object_id_from1 = c_parent_task_version_id
1061: FROM pa_proj_element_versions
1062: WHERE project_id = p_project_id
1063: AND proj_element_id = c_task_id
1064: AND parent_structure_version_id = c_structure_version_id
1065: AND object_type = 'PA_TASKS';
1066:
1067: CURSOR cur_child_exists(c_task_ver_id NUMBER)
1068: IS
1069: select 'Y'
1068: IS
1069: select 'Y'
1070: FROM pa_object_relationships
1071: where object_id_from1 = c_task_ver_id
1072: AND object_type_from IN ('PA_TASKS', 'PA_STRUCTURES') --Corrected 'PA_TASK' TO 'PA_TASKS' for Bug 4035526
1073: and relationship_type = 'S';
1074: l_child_exists VARCHAR2(1);
1075:
1076: -- xxlu added for DFF attributes for calling create_schedule_version
1143: CURSOR get_parent_version_id(c_elem_ver_id NUMBER) IS
1144: select object_id_from1
1145: from pa_object_relationships
1146: where object_id_to1 = c_elem_ver_id
1147: and object_type_to = 'PA_TASKS'
1148: and relationship_type = 'S';
1149: l_parent_ver_id NUMBER;
1150: l_error_msg_code VARCHAR2(255);
1151: l_structure_version_id NUMBER;
1508: --For each project create 1 task
1509: PA_TASK_PUB1.create_task(
1510: p_calling_module => p_calling_module
1511: ,p_init_msg_list => l_init_msg_list
1512: ,p_object_type => 'PA_TASKS'
1513: ,p_project_id => p_project_id
1514: ,p_structure_id => l_structure_id --1 --anything. does not matter since its not gonna useful to create record
1515: --in pa_proj_elements in PA_TASK_PVT1.CREATE_TASK.
1516: ,p_task_number => l_task_number
2481: IS
2482: SELECT record_version_number
2483: FROM pa_proj_elements
2484: WHERE proj_element_id = p_task_id
2485: AND object_type = 'PA_TASKS';
2486:
2487: /* Bug 2680486 -- Performance changes -- Added d.project_id= c.project_id
2488: join in the following cursor*/
2489:
2519: AND d.element_version_id = c.element_version_id
2520: AND d.status_code = 'STRUCTURE_WORKING'
2521: ;
2522:
2523: CURSOR cur_pa_tasks( c_task_id NUMBER )
2524: IS
2525: SELECT parent_task_id
2526: FROM pa_tasks
2527: WHERE project_id = p_project_id
2522:
2523: CURSOR cur_pa_tasks( c_task_id NUMBER )
2524: IS
2525: SELECT parent_task_id
2526: FROM pa_tasks
2527: WHERE project_id = p_project_id
2528: AND task_id = c_task_id;
2529:
2530: CURSOR cur_pa_task_ver( c_structure_version_id NUMBER, c_task_id NUMBER )
2533: FROM pa_proj_element_versions
2534: WHERE project_id = p_project_id
2535: AND proj_element_id = c_task_id
2536: AND parent_structure_version_id = c_structure_version_id
2537: AND object_type = 'PA_TASKS';
2538:
2539: CURSOR cur_pa_peer_task_above( c_structure_version_id NUMBER, c_task_version_id NUMBER )
2540: IS
2541: SELECT element_version_id
2548: WHERE element_version_id = c_task_version_id )
2549: AND wbs_level = ( SELECT wbs_level FROM pa_proj_element_versions
2550: WHERE element_version_id = c_task_version_id )
2551: )
2552: AND object_type = 'PA_TASKS';
2553:
2554: CURSOR cur_proj_sch( c_task_version_id NUMBER )
2555: IS
2556: SELECT pev_schedule_id, record_version_number
2571: SELECT proj_element_id
2572: FROM pa_proj_element_versions
2573: WHERE project_id = p_project_id
2574: AND element_version_id = c_task_version_id
2575: AND object_type = 'PA_TASKS';
2576:
2577: CURSOR cur_pa_proj_elem_vers2( c_task_version_id NUMBER )
2578: IS
2579: SELECT 'x'
2646: CURSOR cur_task_attr IS
2647: SELECT pe.ELEMENT_NUMBER, pe.NAME
2648: FROM pa_proj_elements pe
2649: WHERE pe.proj_element_id = p_task_id
2650: AND pe.object_type = 'PA_TASKS';
2651:
2652: l_task_number pa_proj_elements.element_number%TYPE;
2653: l_task_name pa_proj_elements.name%TYPE;
2654:
2682: element_version_id,planned_effort,actual_start_date,actual_finish_date
2683: from pa_proj_elem_ver_schedule ppevs, pa_proj_elements ppe
2684: where ppevs.project_id = ppe.project_id
2685: and ppevs.proj_element_id = ppe.proj_element_id
2686: and ppe.object_type = 'PA_TASKS'
2687: and ppevs.project_id = p_project_id;
2688: */
2689: SELECT
2690: ppv.element_version_id
2696: ,pa_proj_element_versions ppv
2697: WHERE
2698: ppevs.project_id = ppv.project_id
2699: and ppevs.proj_element_id = ppv.proj_element_id
2700: and ppv.object_type = 'PA_TASKS'
2701: and ppv.element_version_id = ppevs.element_version_id
2702: and ppv.project_id = p_project_id
2703: and ppv.parent_structure_version_id = p_struct_ver_id;
2704:
3009: IF p_structure_type = 'FINANCIAL'
3010: THEN
3011: --get the parent of the tak id
3012: --rtarway, 3666023, replace by l_task_id
3013: --OPEN cur_pa_tasks( p_task_id );
3014: OPEN cur_pa_tasks( l_task_id );
3015: FETCH cur_pa_tasks INTO l_parent_task_id;
3016: CLOSE cur_pa_tasks;
3017:
3010: THEN
3011: --get the parent of the tak id
3012: --rtarway, 3666023, replace by l_task_id
3013: --OPEN cur_pa_tasks( p_task_id );
3014: OPEN cur_pa_tasks( l_task_id );
3015: FETCH cur_pa_tasks INTO l_parent_task_id;
3016: CLOSE cur_pa_tasks;
3017:
3018: --get the parent of the ref tak id
3011: --get the parent of the tak id
3012: --rtarway, 3666023, replace by l_task_id
3013: --OPEN cur_pa_tasks( p_task_id );
3014: OPEN cur_pa_tasks( l_task_id );
3015: FETCH cur_pa_tasks INTO l_parent_task_id;
3016: CLOSE cur_pa_tasks;
3017:
3018: --get the parent of the ref tak id
3019: OPEN cur_pa_tasks( p_ref_task_id );
3012: --rtarway, 3666023, replace by l_task_id
3013: --OPEN cur_pa_tasks( p_task_id );
3014: OPEN cur_pa_tasks( l_task_id );
3015: FETCH cur_pa_tasks INTO l_parent_task_id;
3016: CLOSE cur_pa_tasks;
3017:
3018: --get the parent of the ref tak id
3019: OPEN cur_pa_tasks( p_ref_task_id );
3020: FETCH cur_pa_tasks INTO l_parent_of_ref_task_id;
3015: FETCH cur_pa_tasks INTO l_parent_task_id;
3016: CLOSE cur_pa_tasks;
3017:
3018: --get the parent of the ref tak id
3019: OPEN cur_pa_tasks( p_ref_task_id );
3020: FETCH cur_pa_tasks INTO l_parent_of_ref_task_id;
3021: CLOSE cur_pa_tasks;
3022:
3023: ELSIF p_structure_type = 'WORKPLAN'
3016: CLOSE cur_pa_tasks;
3017:
3018: --get the parent of the ref tak id
3019: OPEN cur_pa_tasks( p_ref_task_id );
3020: FETCH cur_pa_tasks INTO l_parent_of_ref_task_id;
3021: CLOSE cur_pa_tasks;
3022:
3023: ELSIF p_structure_type = 'WORKPLAN'
3024: THEN
3017:
3018: --get the parent of the ref tak id
3019: OPEN cur_pa_tasks( p_ref_task_id );
3020: FETCH cur_pa_tasks INTO l_parent_of_ref_task_id;
3021: CLOSE cur_pa_tasks;
3022:
3023: ELSIF p_structure_type = 'WORKPLAN'
3024: THEN
3025: --get the parent task version id of the task version id
3736: CURSOR cur_task_ver_id IS
3737: SELECT element_version_id, record_version_number
3738: FROM pa_proj_element_versions ppev
3739: WHERE proj_element_id = p_task_id
3740: AND object_type = 'PA_TASKS'
3741: AND parent_structure_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID( p_project_id ); -- bug 2765115
3742:
3743: CURSOR cur_task_ver_id2 IS
3744: SELECT record_version_number
3743: CURSOR cur_task_ver_id2 IS
3744: SELECT record_version_number
3745: FROM pa_proj_element_versions ppev
3746: WHERE element_version_id = p_task_version_id
3747: AND object_type = 'PA_TASKS';
3748:
3749: -- bug 2765115
3750: CURSOR cur_pa_proj
3751: IS
3756: CURSOR cur_task_ver_id3 IS
3757: SELECT element_version_id, record_version_number
3758: FROM pa_proj_element_versions ppev
3759: WHERE proj_element_id = p_task_id
3760: AND object_type = 'PA_TASKS'
3761: AND project_id = p_project_id;
3762: -- bug 2765115
3763:
3764:
3886: CURSOR cur_task_ver( c_parent_structure_version_id NUMBER )
3887: IS
3888: SELECT rowid, element_version_id
3889: FROM pa_proj_element_versions
3890: WHERE OBJECT_TYPE = 'PA_TASKS'
3891: AND project_id = p_project_id
3892: AND parent_structure_version_id = c_parent_structure_version_id;
3893:
3894: CURSOR cur_proj_elems
4230: SELECT element_version_id
4231: FROM pa_proj_element_versions
4232: WHERE project_id = p_project_id
4233: AND parent_structure_version_id = c_parent_struc_ver_id
4234: AND object_type = 'PA_TASKS';
4235:
4236:
4237: l_structure_type_id NUMBER;
4238: l_proj_structure_type_id NUMBER;
4603: -- 25-MAY-02 MAansari -Created
4604: --
4605: -- Notes: This api is called from PA_PROJECT_PUB.CREATE_PROJECT to clean up the tasks in pa_proj_elements that were created
4606: -- by calling copy structure api. Copy structure api copies template's tasks to pro_elements though there
4607: -- are no pa_TASKs for the new project. However pa_tasks and pa_proj_elements must be in syn. To d this we need to firts remove
4608: -- tasks from pa_proj_elements as they were erroneously created by COPY_STRUCTURE and then call create_default_structure
4609: -- to syn up pa_pro_elements with pa_tasks.
4610: --
4611:
4605: -- Notes: This api is called from PA_PROJECT_PUB.CREATE_PROJECT to clean up the tasks in pa_proj_elements that were created
4606: -- by calling copy structure api. Copy structure api copies template's tasks to pro_elements though there
4607: -- are no pa_TASKs for the new project. However pa_tasks and pa_proj_elements must be in syn. To d this we need to firts remove
4608: -- tasks from pa_proj_elements as they were erroneously created by COPY_STRUCTURE and then call create_default_structure
4609: -- to syn up pa_pro_elements with pa_tasks.
4610: --
4611:
4612: PROCEDURE Clean_unwanted_tasks(
4613: p_project_id IN NUMBER
4638: SELECT element_version_id, proj_element_id
4639: FROM pa_proj_element_versions
4640: WHERE project_id = p_project_id
4641: AND parent_structure_version_id = c_parent_str_ver_id
4642: AND object_type = 'PA_TASKS';
4643:
4644: l_cur_pa_proj_elem_vers_rec cur_pa_proj_elem_vers%ROWTYPE;
4645: BEGIN
4646:
4780: SELECT proj_element_id
4781: FROM pa_proj_elements
4782: WHERE PM_SOURCE_REFERENCE = p_pm_parent_task_reference
4783: AND project_id = p_project_id
4784: AND OBJECT_TYPE = 'PA_TASKS';
4785: BEGIN
4786: x_return_status := FND_API.G_RET_STS_SUCCESS;
4787:
4788: OPEN cur_pa_proj_elems;
5703:
5704: -- use min(start_date) as pseudo original project start
5705: cursor c2 is
5706: select min(start_date) min_start
5707: from pa_tasks
5708: where project_id = x_orig_project_id;
5709:
5710: c2_rec c2%rowtype;
5711: x_delta NUMBER;
5900: FROM pa_proj_element_versions
5901: WHERE project_id = p_project_id
5902: AND proj_element_id = p_task_id
5903: AND parent_structure_version_id = c_parent_struc_ver_id
5904: AND object_type = 'PA_TASKS';
5905:
5906: CURSOR cur_pa_work_ver
5907: IS
5908: SELECT element_version_id
6278: ,P_PM_SOURCE_reference => p_tasks_in(i).pm_task_reference
6279: ,p_location_id => p_tasks_in(i).address_id
6280: ,p_manager_person_id => p_tasks_in(i).task_manager_person_id
6281: ,p_structure_version_id => p_structure_version_id
6282: ,p_create_task_version_only => 'Y' --we dont need to create tasks in pa_tasks or pa_proj_elements for the existing tasks.
6283: --All we need is just to create task versions under the new structure version.
6284: ,p_financial_task_flag => p_tasks_in(i).financial_task_flag --added by rmuthine, Bug 13420479
6285: ,x_task_version_id => l_task_version_id
6286: ,x_task_id => l_task_id
7375: ,'PA_PROJECTS'
7376: FROM pa_task_types ptt,
7377: pa_proj_elements ppe,
7378: pa_proj_element_versions ppev,
7379: pa_tasks pt
7380: WHERE pt.project_id = p_dest_project_id
7381: AND ppe.project_id = p_src_project_id --Added by Sunkalya For the fix of Bug#4600825. This change is done for R12
7382: --Merging of code fix done thru Bug#4589176(115.315) for performance issues.
7383: AND pt.task_number = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
7380: WHERE pt.project_id = p_dest_project_id
7381: AND ppe.project_id = p_src_project_id --Added by Sunkalya For the fix of Bug#4600825. This change is done for R12
7382: --Merging of code fix done thru Bug#4589176(115.315) for performance issues.
7383: AND pt.task_number = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
7384: AND ptt.object_type = 'PA_TASKS'
7385: AND ppe.type_id = ptt.task_type_id
7386: AND ppe.object_type = 'PA_TASKS'
7387: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
7388: AND ppe.parent_structure_id = ppev.proj_element_id
7382: --Merging of code fix done thru Bug#4589176(115.315) for performance issues.
7383: AND pt.task_number = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
7384: AND ptt.object_type = 'PA_TASKS'
7385: AND ppe.type_id = ptt.task_type_id
7386: AND ppe.object_type = 'PA_TASKS'
7387: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
7388: AND ppe.parent_structure_id = ppev.proj_element_id
7389: AND ppev.element_version_id = l_src_fin_version_id ;
7390:
7464: pa_proj_elements ppe,
7465: pa_proj_element_versions ppev2,
7466: pa_proj_elem_ver_structure ppevs
7467: WHERE ppev.project_id = p_src_project_id
7468: AND ppev.object_type = 'PA_TASKS'
7469: AND ppev.parent_structure_version_id = l_src_fin_version_id
7470: AND ppev.proj_element_id = ppe.attribute15
7471: AND ppe.project_id = p_dest_project_id
7472: AND ppe.object_type = 'PA_TASKS'
7468: AND ppev.object_type = 'PA_TASKS'
7469: AND ppev.parent_structure_version_id = l_src_fin_version_id
7470: AND ppev.proj_element_id = ppe.attribute15
7471: AND ppe.project_id = p_dest_project_id
7472: AND ppe.object_type = 'PA_TASKS'
7473: AND ppev.parent_structure_version_id = ppev2.attribute15
7474: AND ppev2.project_id = p_dest_project_id
7475: AND ppev2.object_type = 'PA_STRUCTURES'
7476: AND ppevs.project_id = p_dest_project_id
7945: SELECT dest.attribute15 src_ppe_id,
7946: dest.proj_element_id dest_ppe_id
7947: FROM pa_proj_elements dest
7948: WHERE dest.project_id = p_dest_project_id
7949: AND dest.object_type = 'PA_TASKS'
7950: AND dest.parent_structure_id = c_dest_parent_structure_id ;
7951:
7952: --Bug 3387963 - Cursor to get destination and source project's organization id
7953: CURSOR cur_get_carrying_out_org IS
8398: ,source_object_id
8399: ,source_object_type
8400: )
8401: SELECT
8402: pa_tasks_s.nextval
8403: ,p_dest_project_id
8404: ,ppe.object_type
8405: ,pa_tasks_s.nextval --Set element_number same as proj_element_id
8406: ,l_name
8401: SELECT
8402: pa_tasks_s.nextval
8403: ,p_dest_project_id
8404: ,ppe.object_type
8405: ,pa_tasks_s.nextval --Set element_number same as proj_element_id
8406: ,l_name
8407: ,ppe.DESCRIPTION
8408: ,ppe.STATUS_CODE
8409: ,ppe.WF_STATUS_CODE
8661: /**** THE FOLLOWING SECTION COPIES/INSERTS WORKPLAN VERSIONS AND TASKS INTO THE DESTINATION PROJECT ****/
8662: ---------------------------------------------------------------------------------------------------------
8663: --IF 'ATLEAST ONE WP VER IS SELECTED' FOR COPYING THEN
8664: -- Copy selected version(s) and tasks belonging to these version(s)
8665: -- Call API to sync up pa_tasks with pa_proj_elements in case of SHARED structure
8666: --ELSE (if no WP ver selected for copying)
8667: -- IF 'SHARED' AND 'FINANCIAL TASKS FLAG IS CHECKED' THEN
8668: -- Copy financial structure version in the source project and tasks belonging to this version
8669: -- ENF IF;
9297: END IF;--If l_shared_make_working_copy IS NOT NULL
9298:
9299: --Create tasks in the selected WP versions
9300: IF 'Y' = l_shared THEN
9301: --If SHARED case, join with PA_TASKS table
9302: INSERT INTO pa_proj_elements(
9303: PROJ_ELEMENT_ID
9304: ,PROJECT_ID
9305: ,OBJECT_TYPE
9366: ,source_object_id
9367: ,source_object_type
9368: )
9369: SELECT
9370: nvl(pt.task_id,pa_tasks_s.nextval)
9371: ,p_dest_project_id
9372: ,ppe.object_type
9373: ,ppe.element_number
9374: ,ppe.name
9433: ,ppe.WF_START_LEAD_DAYS
9434: ,p_dest_project_id
9435: ,'PA_PROJECTS'
9436: FROM pa_task_types ptt,
9437: pa_tasks pt,
9438: pa_proj_elements ppe
9439: WHERE ptt.object_type = 'PA_TASKS'
9440: AND ppe.type_id = ptt.task_type_id
9441: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
9435: ,'PA_PROJECTS'
9436: FROM pa_task_types ptt,
9437: pa_tasks pt,
9438: pa_proj_elements ppe
9439: WHERE ptt.object_type = 'PA_TASKS'
9440: AND ppe.type_id = ptt.task_type_id
9441: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
9442: AND pt.task_number (+) = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
9443: AND pt.project_id (+) = p_dest_project_id
9447: PA_PROJECT_COPY_OPTIONS_TMP ppcot
9448: WHERE ppcot.CONTEXT = 'WORKPLAN'
9449: AND ppev.parent_structure_version_id = ppcot.version_id
9450: AND ppev.project_id = p_src_project_id
9451: AND ppev.object_type = 'PA_TASKS' ) ;
9452: ELSE
9453: --If SPLIT case, there should be no join with PA_TASKS table
9454: INSERT INTO pa_proj_elements(
9455: PROJ_ELEMENT_ID
9449: AND ppev.parent_structure_version_id = ppcot.version_id
9450: AND ppev.project_id = p_src_project_id
9451: AND ppev.object_type = 'PA_TASKS' ) ;
9452: ELSE
9453: --If SPLIT case, there should be no join with PA_TASKS table
9454: INSERT INTO pa_proj_elements(
9455: PROJ_ELEMENT_ID
9456: ,PROJECT_ID
9457: ,OBJECT_TYPE
9518: ,source_object_id
9519: ,source_object_type
9520: )
9521: SELECT
9522: pa_tasks_s.nextval
9523: ,p_dest_project_id
9524: ,ppe.object_type
9525: ,ppe.element_number
9526: ,ppe.name
9586: ,p_dest_project_id
9587: ,'PA_PROJECTS'
9588: FROM pa_task_types ptt,
9589: pa_proj_elements ppe
9590: WHERE ptt.object_type = 'PA_TASKS'
9591: AND ppe.type_id = ptt.task_type_id
9592: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
9593: AND ppe.proj_element_id IN
9594: ( SELECT distinct ppev.proj_element_id
9596: PA_PROJECT_COPY_OPTIONS_TMP ppcot
9597: WHERE ppcot.CONTEXT = 'WORKPLAN'
9598: AND ppev.parent_structure_version_id = ppcot.version_id
9599: AND ppev.project_id = p_src_project_id
9600: AND ppev.object_type = 'PA_TASKS' ) ;
9601: END IF;
9602:
9603: --Copy tasks versions for tasks belonging to the selected wp versions
9604: INSERT INTO pa_proj_element_versions(
9676: pa_proj_element_versions ppev,
9677: pa_proj_element_versions ppev2,
9678: pa_proj_elem_ver_structure ppevs
9679: WHERE ppe.project_id = p_dest_project_id
9680: AND ppe.object_type = 'PA_TASKS'
9681: AND ppe.attribute15 = ppev.proj_element_id
9682: AND ppev.project_id = p_src_project_id
9683: AND ppev.object_type = 'PA_TASKS'
9684: AND ppev.parent_structure_version_id = ppev2.attribute15
9679: WHERE ppe.project_id = p_dest_project_id
9680: AND ppe.object_type = 'PA_TASKS'
9681: AND ppe.attribute15 = ppev.proj_element_id
9682: AND ppev.project_id = p_src_project_id
9683: AND ppev.object_type = 'PA_TASKS'
9684: AND ppev.parent_structure_version_id = ppev2.attribute15
9685: AND ppev2.project_id = p_dest_project_id
9686: AND ppev2.object_type = 'PA_STRUCTURES'
9687: AND ppevs.element_version_id = ppev2.element_version_id
9991: FETCH cur_get_shared_ver_id INTO l_shared_dest_ver_id;
9992: CLOSE cur_get_shared_ver_id;
9993:
9994: IF l_debug_mode = 'Y' THEN
9995: Pa_Debug.WRITE(G_PKG_NAME, 'Calling pa_tasks sync up API for struc version :'||l_shared_dest_ver_id,
9996: l_debug_level3);
9997: END IF;
9998:
9999: --Call API to sync up tasks in pa_tasks table, with the new (shared) version [WP version copied from src]
9995: Pa_Debug.WRITE(G_PKG_NAME, 'Calling pa_tasks sync up API for struc version :'||l_shared_dest_ver_id,
9996: l_debug_level3);
9997: END IF;
9998:
9999: --Call API to sync up tasks in pa_tasks table, with the new (shared) version [WP version copied from src]
10000: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN(
10001: p_project_id => p_dest_project_id
10002: , p_structure_version_id => l_shared_dest_ver_id
10003: , p_mode => 'ALL'
9996: l_debug_level3);
9997: END IF;
9998:
9999: --Call API to sync up tasks in pa_tasks table, with the new (shared) version [WP version copied from src]
10000: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN(
10001: p_project_id => p_dest_project_id
10002: , p_structure_version_id => l_shared_dest_ver_id
10003: , p_mode => 'ALL'
10004: , x_return_status => l_return_status
10402: IF ('Y' = l_min_one_wp_ver_sel AND 'Y' = l_wp_task_attach_flag )
10403: OR ('Y' = l_fin_tasks_flag AND 'Y' = l_fn_task_attach_flag ) THEN
10404: FOR rec_copied_tasks IN cur_get_copied_tasks( l_dest_shared_struc_id ) LOOP
10405: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10406: 'PA_TASKS',
10407: rec_copied_tasks.src_ppe_id,
10408: null, null, null, null,
10409: 'PA_TASKS',
10410: rec_copied_tasks.dest_ppe_id,
10405: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10406: 'PA_TASKS',
10407: rec_copied_tasks.src_ppe_id,
10408: null, null, null, null,
10409: 'PA_TASKS',
10410: rec_copied_tasks.dest_ppe_id,
10411: null, null, null, null,
10412: FND_GLOBAL.USER_ID,
10413: FND_GLOBAL.LOGIN_ID,
10418: ELSE
10419: IF 'Y' = l_wp_task_attach_flag THEN
10420: FOR rec_copied_tasks IN cur_get_copied_tasks( l_dest_wp_structure_id ) LOOP
10421: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10422: 'PA_TASKS',
10423: rec_copied_tasks.src_ppe_id,
10424: null, null, null, null,
10425: 'PA_TASKS',
10426: rec_copied_tasks.dest_ppe_id,
10421: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10422: 'PA_TASKS',
10423: rec_copied_tasks.src_ppe_id,
10424: null, null, null, null,
10425: 'PA_TASKS',
10426: rec_copied_tasks.dest_ppe_id,
10427: null, null, null, null,
10428: FND_GLOBAL.USER_ID,
10429: FND_GLOBAL.LOGIN_ID,
10434:
10435: IF 'Y' = l_fn_task_attach_flag THEN
10436: FOR rec_copied_tasks IN cur_get_copied_tasks( l_dest_fn_structure_id ) LOOP
10437: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10438: 'PA_TASKS',
10439: rec_copied_tasks.src_ppe_id,
10440: null, null, null, null,
10441: 'PA_TASKS',
10442: rec_copied_tasks.dest_ppe_id,
10437: FND_ATTACHED_DOCUMENTS2_PKG.COPY_ATTACHMENTS(
10438: 'PA_TASKS',
10439: rec_copied_tasks.src_ppe_id,
10440: null, null, null, null,
10441: 'PA_TASKS',
10442: rec_copied_tasks.dest_ppe_id,
10443: null, null, null, null,
10444: FND_GLOBAL.USER_ID,
10445: FND_GLOBAL.LOGIN_ID,
11084: FROM pa_proj_elements orig, pa_proj_elements new
11085: WHERE orig.project_id = p_src_project_id
11086: AND new.element_number = orig.element_number
11087: AND new.project_id = p_dest_project_id
11088: AND new.object_type = 'PA_TASKS'
11089: AND orig.object_type = 'PA_TASKS'
11090: AND orig.parent_structure_id = c_orig_parent_structure_id
11091: AND new.parent_structure_id = c_new_parent_structure_id
11092: ;
11085: WHERE orig.project_id = p_src_project_id
11086: AND new.element_number = orig.element_number
11087: AND new.project_id = p_dest_project_id
11088: AND new.object_type = 'PA_TASKS'
11089: AND orig.object_type = 'PA_TASKS'
11090: AND orig.parent_structure_id = c_orig_parent_structure_id
11091: AND new.parent_structure_id = c_new_parent_structure_id
11092: ;
11093:
11265: ,WF_PROCESS
11266: ,WF_START_LEAD_DAYS
11267: )
11268: SELECT
11269: pa_tasks_s.nextval
11270: ,p_dest_project_id
11271: ,ppe.object_type
11272: ,ppe.element_number
11273: ,DECODE( ppe.object_type, 'PA_STRUCTURES',l_name, ppe.name )
11397: THEN
11398: FOR cur_pa_struct_rec in cur_pa_struct LOOP
11399: IF cur_pa_struct_rec.structure_type_id = 6 --Financial
11400: THEN
11401: --call PA_PROJECT_CORE2.copy_task to copy PA_TASKSi tasks.
11402:
11403: pa_project_core2.copy_task (
11404: x_orig_project_id => p_src_project_id ,
11405: x_new_project_id => p_dest_project_id,
11546: ,ppe.WF_ITEM_TYPE
11547: ,ppe.WF_PROCESS
11548: ,ppe.WF_START_LEAD_DAYS
11549: FROM pa_proj_elements ppe,
11550: pa_tasks pt,
11551: pa_task_types ptt --bug 2827090
11552: WHERE ppe.project_id = p_src_project_id
11553: AND pt.project_id = p_dest_project_id
11554: AND pt.task_number = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
11552: WHERE ppe.project_id = p_src_project_id
11553: AND pt.project_id = p_dest_project_id
11554: AND pt.task_number = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
11555: AND ppe.parent_structure_id = cur_pa_struct_rec.attribute15
11556: and ppe.object_type = 'PA_TASKS'
11557: and ppe.type_id = ptt.task_type_id --bug 2827090
11558: ;
11559:
11560: l_financial_structure_id := cur_pa_struct_rec.proj_element_id;
11557: and ppe.type_id = ptt.task_type_id --bug 2827090
11558: ;
11559:
11560: l_financial_structure_id := cur_pa_struct_rec.proj_element_id;
11561: ---update task reference in pa_tasks for all the
11562: update pa_tasks
11563: set PM_TASK_REFERENCE = task_number
11564: where project_id = p_dest_project_id
11565: and pm_task_reference IS NULL
11558: ;
11559:
11560: l_financial_structure_id := cur_pa_struct_rec.proj_element_id;
11561: ---update task reference in pa_tasks for all the
11562: update pa_tasks
11563: set PM_TASK_REFERENCE = task_number
11564: where project_id = p_dest_project_id
11565: and pm_task_reference IS NULL
11566: ;
11573: FETCH c_attach_tasks INTO c_atch ;
11574: if c_attach_tasks%notfound then
11575: exit ;
11576: end if;
11577: fnd_attached_documents2_pkg.copy_attachments('PA_TASKS',
11578: c_atch.orig_task_id,
11579: null, null, null, null,
11580: 'PA_TASKS',
11581: c_atch.new_task_id,
11576: end if;
11577: fnd_attached_documents2_pkg.copy_attachments('PA_TASKS',
11578: c_atch.orig_task_id,
11579: null, null, null, null,
11580: 'PA_TASKS',
11581: c_atch.new_task_id,
11582: null, null, null, null,
11583: FND_GLOBAL.USER_ID,
11584: FND_GLOBAL.LOGIN_ID,
11601: WHERE proj_element_id = l_financial_structure_id
11602: AND project_id = p_dest_project_id
11603: AND PM_SOURCE_CODE IS NULL;
11604:
11605: ---update source reference in pa_tasks for all the
11606: Update pa_tasks
11607: set PM_PRODUCT_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11608: WHERE project_id = p_dest_project_id
11609: AND object_type = 'PA_STRUCTURES'
11602: AND project_id = p_dest_project_id
11603: AND PM_SOURCE_CODE IS NULL;
11604:
11605: ---update source reference in pa_tasks for all the
11606: Update pa_tasks
11607: set PM_PRODUCT_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11608: WHERE project_id = p_dest_project_id
11609: AND object_type = 'PA_STRUCTURES'
11610: AND proj_element_id = cur_pa_struct_rec.proj_element_id
12686: WHERE ppev.project_id = p_src_project_id
12687: and ppe.project_id = p_dest_project_id
12688: and ppev.parent_structure_version_id = l_dest_str_versions_tbl(k).src_str_version_id
12689: and ppev.proj_element_id = ppe.attribute15
12690: and ppe.object_type = 'PA_TASKS'
12691: and ppev.object_type = 'PA_TASKS';
12692:
12693: --Create relationships for structure and tasks
12694:
12687: and ppe.project_id = p_dest_project_id
12688: and ppev.parent_structure_version_id = l_dest_str_versions_tbl(k).src_str_version_id
12689: and ppev.proj_element_id = ppe.attribute15
12690: and ppe.object_type = 'PA_TASKS'
12691: and ppev.object_type = 'PA_TASKS';
12692:
12693: --Create relationships for structure and tasks
12694:
12695: /* Start of changes for bug 6211012 */
13658: WHERE p.project_id = c_project_id;
13659:
13660: --The following cursor will be used when the structure type is
13661: --Financial as some of the attributes have been derived and updated
13662: --in the pa_tasks table and we need to use them for structures processing.
13663: CURSOR cur_pa_tasks(c_project_id pa_projects_all.project_id%TYPE,c_task_id pa_tasks.task_id%TYPE)
13664: IS
13665: SELECT task_number, long_task_name, description,
13666: parent_task_id,carrying_out_organization_id,
13659:
13660: --The following cursor will be used when the structure type is
13661: --Financial as some of the attributes have been derived and updated
13662: --in the pa_tasks table and we need to use them for structures processing.
13663: CURSOR cur_pa_tasks(c_project_id pa_projects_all.project_id%TYPE,c_task_id pa_tasks.task_id%TYPE)
13664: IS
13665: SELECT task_number, long_task_name, description,
13666: parent_task_id,carrying_out_organization_id,
13667: pm_task_reference, address_id, task_manager_person_id
13664: IS
13665: SELECT task_number, long_task_name, description,
13666: parent_task_id,carrying_out_organization_id,
13667: pm_task_reference, address_id, task_manager_person_id
13668: FROM pa_tasks
13669: WHERE project_id = c_project_id
13670: AND task_id = c_task_id;
13671:
13672: l_cur_pa_tasks_rec cur_pa_tasks%ROWTYPE; -- userd only for create task case
13668: FROM pa_tasks
13669: WHERE project_id = c_project_id
13670: AND task_id = c_task_id;
13671:
13672: l_cur_pa_tasks_rec cur_pa_tasks%ROWTYPE; -- userd only for create task case
13673:
13674: --ADUT. This cursor is required to identify if the source is a project / template.
13675: Cursor cur_template_flag(c_proj_id pa_projects_all.project_id%TYPE)
13676: Is
13679: where project_id = c_proj_id;
13680:
13681: -- IUP: Cursors added for changes done to this api so it can be called from update_project
13682: --Cursor to get the record version number of the task record which needs to be updated in pa_proj_elements table
13683: CURSOR cur_rec_ver_num(c_task_id pa_tasks.task_id%TYPE)
13684: IS
13685: SELECT record_version_number
13686: FROM pa_proj_elements
13687: WHERE proj_element_id = c_task_id
13684: IS
13685: SELECT record_version_number
13686: FROM pa_proj_elements
13687: WHERE proj_element_id = c_task_id
13688: AND object_type = 'PA_TASKS';
13689:
13690: --Cursor to get the task version id when task id and structure version id is known
13691: CURSOR cur_pa_task_ver( c_structure_version_id pa_proj_element_versions.parent_structure_version_id%TYPE, c_task_id pa_tasks.task_id%TYPE )
13692: IS
13687: WHERE proj_element_id = c_task_id
13688: AND object_type = 'PA_TASKS';
13689:
13690: --Cursor to get the task version id when task id and structure version id is known
13691: CURSOR cur_pa_task_ver( c_structure_version_id pa_proj_element_versions.parent_structure_version_id%TYPE, c_task_id pa_tasks.task_id%TYPE )
13692: IS
13693: SELECT element_version_id, record_version_number
13694: FROM pa_proj_element_versions
13695: WHERE project_id = p_project_id
13694: FROM pa_proj_element_versions
13695: WHERE project_id = p_project_id
13696: AND proj_element_id = c_task_id
13697: AND parent_structure_version_id = c_structure_version_id
13698: AND object_type = 'PA_TASKS';
13699:
13700: --Cursor to get the parent version id of the task version id
13701: CURSOR cur_parent_object_rel( c_task_version_id pa_proj_elem_ver_schedule.element_version_id%TYPE )
13702: IS
13718:
13719: l_ver_sch_attr_rec cur_ver_sch_attr_rec%ROWTYPE;
13720:
13721: --Cursor to get the task type associated with the task id
13722: CURSOR cur_task_type_id(c_task_id pa_tasks.task_id%TYPE)
13723: IS
13724: SELECT type_id
13725: FROM pa_proj_elements
13726: WHERE proj_element_id = c_task_id
13741: IS
13742: Select element_version_id
13743: from pa_proj_element_versions
13744: where parent_structure_version_id = c_structure_version_id
13745: and object_type = 'PA_TASKS'
13746: -- rbruno added for bug 9484327 to get task which are not marked for deletion - start
13747: and task_unpub_ver_status_code <> 'TO_BE_DELETED';
13748: -- rbruno added for bug 9484327 - end
13749:
13773: TYPE task_version_id_tbl IS TABLE OF pa_proj_element_versions.element_version_id%TYPE
13774: INDEX BY BINARY_INTEGER;
13775:
13776: ----Table Type added for bug 3057575 :
13777: TYPE task_parent_id_tbl_type IS TABLE OF pa_tasks.task_id%TYPE
13778: INDEX BY BINARY_INTEGER;
13779: ----Table Type added for bug 3057575 :
13780: TYPE task_ver_id_passed_tbl_type IS TABLE OF pa_proj_element_versions.element_version_id%TYPE
13781: INDEX BY BINARY_INTEGER;
13805: -- rec that contains all tasks information.
13806: l_task_in_rec pa_project_pub.task_in_rec_type;
13807:
13808: -- proj element level variables
13809: l_task_id pa_tasks.task_id%TYPE; -- task id of the current task being processed in loop
13810: l_parent_task_id pa_tasks.parent_task_id%TYPE; -- parent task id of the current task being processed in loop
13811: l_task_version_id pa_proj_element_versions.element_version_id%TYPE; -- stores version id of current task being processed
13812:
13813: -- version level variables required only for update task case.
13806: l_task_in_rec pa_project_pub.task_in_rec_type;
13807:
13808: -- proj element level variables
13809: l_task_id pa_tasks.task_id%TYPE; -- task id of the current task being processed in loop
13810: l_parent_task_id pa_tasks.parent_task_id%TYPE; -- parent task id of the current task being processed in loop
13811: l_task_version_id pa_proj_element_versions.element_version_id%TYPE; -- stores version id of current task being processed
13812:
13813: -- version level variables required only for update task case.
13814: l_proj_elem_ver_rvn pa_proj_element_versions.record_version_number%TYPE; -- record version number of proj element table
13892: task_ver_id_passed_tbl task_ver_id_passed_tbl_type;
13893: l_temp_count NUMBER;
13894: l_temp_success VARCHAR2(1);
13895: l_hierarchy_count NUMBER;
13896: -- l_err_task_number pa_tasks.task_number%TYPE; bug 6193314
13897: l_err_task_number pa_proj_elements.element_number%TYPE;
13898: l_shared VARCHAR(1) := 'N'; -- Added for Bug#3451073
13899:
13900: /* Bug # 3420093 - Adding Progress Management modifications to create_project and update_project flow. */
13934: element_version_id,planned_effort,actual_start_date,actual_finish_date
13935: from pa_proj_elem_ver_schedule ppevs, pa_proj_elements ppe
13936: where ppevs.project_id = ppe.project_id
13937: and ppevs.proj_element_id = ppe.proj_element_id
13938: and ppe.object_type = 'PA_TASKS'
13939: and ppevs.project_id = p_project_id;
13940: /** cursor added by aditi for bug 4120380. This is added to verify if the task_number is being modified by AMG Update_project script,
13941: Only then we need to prefix the task_number with a '-', so as to prevent primary key violation, and sucessful update.**/
13942: /*bug#5243018 : Reverting the fix in Bug 4120380
14023: pa_progress_rollup ppr,
14024: pji_xbs_plans_v pxpv
14025: WHERE
14026: ppv.project_id = ppa.project_id
14027: AND ppv.object_type IN( 'PA_STRUCTURES', 'PA_TASKS' )
14028: AND ppv.parent_structure_version_id = ppvs.element_version_id
14029: AND ppv.project_id = ppvs.project_id
14030: AND ppvs.status_code = 'STRUCTURE_PUBLISHED'
14031: AND ppvs.proj_element_id = ppwa.proj_element_id
14093: pa_progress_rollup ppr,
14094: pji_xbs_plans_v pxpv
14095: WHERE
14096: ppa.project_id = ppv.project_id
14097: AND ppv.object_type IN( 'PA_STRUCTURES', 'PA_TASKS' )
14098: AND ppv.parent_structure_version_id = ppvs.element_version_id
14099: AND ppv.project_id = ppvs.project_id
14100: AND ppvs.status_code <> 'STRUCTURE_PUBLISHED'
14101: AND ppv.project_id = ppe.project_id
14166: SELECT pt.project_id,
14167: pt.parent_task_id,
14168: pt.start_date,
14169: pt.completion_date
14170: FROM pa_tasks pt
14171: WHERE pt.task_id = c_Task_id
14172: AND NOT EXISTS --Added for Bug15958106
14173: ( select ppev.proj_element_id from pa_proj_element_versions ppev
14174: where ppev.proj_element_id=pt.task_id and ppev.TASK_UNPUB_VER_STATUS_CODE = 'TO_BE_DELETED' );
14887: l_debug_level3);
14888: END IF;
14889:
14890: -- This block does following:
14891: -- 1. Populate l_cur_pa_tasks_rec which has task_number, long_task_name, description, parent_task_id
14892: -- carrying_out_organization_id, pm_task_reference, address_id, task_manager_person_id
14893: -- 2. l_parent_task_id
14894: -- 3. l_task_id -- the task that is being processed.
14895: -- l_proj_elem_rvn of record of pa_proj_elements to be updated
14905:
14906: -- Derive the task number for the current task
14907: IF l_task_in_rec.pa_task_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_task_in_rec.pa_task_number IS NULL
14908: THEN
14909: l_cur_pa_tasks_rec.task_number := l_task_in_rec.pm_task_reference;
14910: -- ELSE Bug 6193314 need to comment out
14911: /* bug#5243018 : Reverting the fix in Bug 4120380
14912: l_cur_pa_tasks_rec.task_number := '-'||l_task_in_rec.pa_task_number; -- Bug 4120380 aditi l_task_in_rec.pa_task_number; */
14913: -- l_cur_pa_tasks_rec.task_number := l_task_in_rec.pa_task_number; -- Bug 6193314 need to comment out
14908: THEN
14909: l_cur_pa_tasks_rec.task_number := l_task_in_rec.pm_task_reference;
14910: -- ELSE Bug 6193314 need to comment out
14911: /* bug#5243018 : Reverting the fix in Bug 4120380
14912: l_cur_pa_tasks_rec.task_number := '-'||l_task_in_rec.pa_task_number; -- Bug 4120380 aditi l_task_in_rec.pa_task_number; */
14913: -- l_cur_pa_tasks_rec.task_number := l_task_in_rec.pa_task_number; -- Bug 6193314 need to comment out
14914: /* any new task being created will also be prefixed with '-'. This is for the case below:
14915: 1.0
14916: 1.1
14909: l_cur_pa_tasks_rec.task_number := l_task_in_rec.pm_task_reference;
14910: -- ELSE Bug 6193314 need to comment out
14911: /* bug#5243018 : Reverting the fix in Bug 4120380
14912: l_cur_pa_tasks_rec.task_number := '-'||l_task_in_rec.pa_task_number; -- Bug 4120380 aditi l_task_in_rec.pa_task_number; */
14913: -- l_cur_pa_tasks_rec.task_number := l_task_in_rec.pa_task_number; -- Bug 6193314 need to comment out
14914: /* any new task being created will also be prefixed with '-'. This is for the case below:
14915: 1.0
14916: 1.1
14917: 2.0 .
14921: -- Derive the parent task id
14922: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL
14923: AND l_task_in_rec.pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
14924: THEN
14925: l_cur_pa_tasks_rec.parent_task_id := l_task_in_rec.pa_parent_task_id;
14926: ELSIF (l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14927: AND l_task_in_rec.pm_parent_task_reference IS NOT NULL)
14928: THEN
14929: --convert pm_parent_task_reference to parent_task_id.
14937:
14938: -- PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
14939: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
14940: -- ,p_project_id => p_project_id
14941: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
14942: -- ,x_return_status => x_return_status
14943: -- );
14944:
14945: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
14945: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
14946: p_pa_project_id => p_project_id
14947: , p_structure_type => 'WORKPLAN'
14948: -- 3721124 p_pa_task_id will be null in this context
14949: -- , p_pa_task_id => l_cur_pa_tasks_rec.parent_task_id
14950: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
14951: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
14952: , p_return_status => x_return_status );
14953:
14947: , p_structure_type => 'WORKPLAN'
14948: -- 3721124 p_pa_task_id will be null in this context
14949: -- , p_pa_task_id => l_cur_pa_tasks_rec.parent_task_id
14950: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
14951: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
14952: , p_return_status => x_return_status );
14953:
14954: px_tasks_out_tbl(i).return_status := x_return_status;
14955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14961: ,p_msg_attribute => 'CHANGE'
14962: ,p_resize_flag => 'N'
14963: ,p_msg_context => 'TASK'
14964: ,p_attribute1 => l_amg_segment1
14965: ,p_attribute2 => l_cur_pa_tasks_rec.task_number
14966: ,p_attribute3 => ''
14967: ,p_attribute4 => ''
14968: ,p_attribute5 => '');
14969: END IF;
14970: RAISE Invalid_Arg_Exc_WP;
14971: END IF;
14972: ELSE -- no parent task information provided for the current task.
14973: -- Current task is a top task. parent id is null.
14974: l_cur_pa_tasks_rec.parent_task_id := null;
14975: END IF;
14976:
14977: -- Included the condition during UT to avoid precision errors.
14978: IF l_task_in_rec.carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14975: END IF;
14976:
14977: -- Included the condition during UT to avoid precision errors.
14978: IF l_task_in_rec.carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14979: l_cur_pa_tasks_rec.carrying_out_organization_id := NULL;
14980: ELSE
14981: l_cur_pa_tasks_rec.carrying_out_organization_id := l_task_in_rec.carrying_out_organization_id;
14982: END IF;
14983:
14977: -- Included the condition during UT to avoid precision errors.
14978: IF l_task_in_rec.carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14979: l_cur_pa_tasks_rec.carrying_out_organization_id := NULL;
14980: ELSE
14981: l_cur_pa_tasks_rec.carrying_out_organization_id := l_task_in_rec.carrying_out_organization_id;
14982: END IF;
14983:
14984: -- Included the condition during UT to avoid precision errors.
14985: IF l_task_in_rec.address_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14982: END IF;
14983:
14984: -- Included the condition during UT to avoid precision errors.
14985: IF l_task_in_rec.address_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14986: l_cur_pa_tasks_rec.address_id := NULL;
14987: ELSE
14988: l_cur_pa_tasks_rec.address_id := l_task_in_rec.address_id;
14989: END IF;
14990: -- Included the condition during UT to avoid precision errors.
14984: -- Included the condition during UT to avoid precision errors.
14985: IF l_task_in_rec.address_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14986: l_cur_pa_tasks_rec.address_id := NULL;
14987: ELSE
14988: l_cur_pa_tasks_rec.address_id := l_task_in_rec.address_id;
14989: END IF;
14990: -- Included the condition during UT to avoid precision errors.
14991: IF l_task_in_rec.task_manager_person_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14992: l_cur_pa_tasks_rec.task_manager_person_id := NULL;
14988: l_cur_pa_tasks_rec.address_id := l_task_in_rec.address_id;
14989: END IF;
14990: -- Included the condition during UT to avoid precision errors.
14991: IF l_task_in_rec.task_manager_person_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14992: l_cur_pa_tasks_rec.task_manager_person_id := NULL;
14993: ELSE
14994: l_cur_pa_tasks_rec.task_manager_person_id := l_task_in_rec.task_manager_person_id;
14995: END IF;
14996: l_task_id := NULL; -- null for workplan create task case.
14990: -- Included the condition during UT to avoid precision errors.
14991: IF l_task_in_rec.task_manager_person_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14992: l_cur_pa_tasks_rec.task_manager_person_id := NULL;
14993: ELSE
14994: l_cur_pa_tasks_rec.task_manager_person_id := l_task_in_rec.task_manager_person_id;
14995: END IF;
14996: l_task_id := NULL; -- null for workplan create task case.
14997: l_cur_pa_tasks_rec.pm_task_reference := l_task_in_rec.pm_task_reference;
14998: /*Commented for bug 2982057 l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;*/
14993: ELSE
14994: l_cur_pa_tasks_rec.task_manager_person_id := l_task_in_rec.task_manager_person_id;
14995: END IF;
14996: l_task_id := NULL; -- null for workplan create task case.
14997: l_cur_pa_tasks_rec.pm_task_reference := l_task_in_rec.pm_task_reference;
14998: /*Commented for bug 2982057 l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;*/
14999: /* Code addition for bug 2982057 starts */
15000:
15001: if l_task_in_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_task_in_rec.long_task_name IS NULL then
14994: l_cur_pa_tasks_rec.task_manager_person_id := l_task_in_rec.task_manager_person_id;
14995: END IF;
14996: l_task_id := NULL; -- null for workplan create task case.
14997: l_cur_pa_tasks_rec.pm_task_reference := l_task_in_rec.pm_task_reference;
14998: /*Commented for bug 2982057 l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;*/
14999: /* Code addition for bug 2982057 starts */
15000:
15001: if l_task_in_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_task_in_rec.long_task_name IS NULL then
15002: l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.task_name;
14998: /*Commented for bug 2982057 l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;*/
14999: /* Code addition for bug 2982057 starts */
15000:
15001: if l_task_in_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_task_in_rec.long_task_name IS NULL then
15002: l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.task_name;
15003: else
15004: l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;
15005: end if;
15006:
15000:
15001: if l_task_in_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_task_in_rec.long_task_name IS NULL then
15002: l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.task_name;
15003: else
15004: l_cur_pa_tasks_rec.long_task_name := l_task_in_rec.long_task_name;
15005: end if;
15006:
15007: /* Code addition for bug 2982057 ends */
15008:
15005: end if;
15006:
15007: /* Code addition for bug 2982057 ends */
15008:
15009: l_cur_pa_tasks_rec.description := l_task_in_rec.task_description;
15010:
15011: ELSE -- structure type is financial
15012: IF l_debug_mode = 'Y' THEN
15013: pa_debug.g_err_stage:= 'Task Id in out table: '||px_tasks_out_tbl(i).pa_task_id;
15015: l_debug_level3);
15016: END IF;
15017:
15018: l_task_id := px_tasks_out_tbl(i).pa_task_id;
15019: open cur_pa_tasks(p_project_id,l_task_id);
15020: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15021: close cur_pa_tasks;
15022:
15023: IF l_debug_mode = 'Y' THEN
15016: END IF;
15017:
15018: l_task_id := px_tasks_out_tbl(i).pa_task_id;
15019: open cur_pa_tasks(p_project_id,l_task_id);
15020: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15021: close cur_pa_tasks;
15022:
15023: IF l_debug_mode = 'Y' THEN
15024: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
15017:
15018: l_task_id := px_tasks_out_tbl(i).pa_task_id;
15019: open cur_pa_tasks(p_project_id,l_task_id);
15020: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15021: close cur_pa_tasks;
15022:
15023: IF l_debug_mode = 'Y' THEN
15024: pa_debug.g_err_stage:= 'Task Id in local var '|| l_task_id;
15025: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15029: /* bug#5243018 : Reverting the fix in Bug 4120380
15030: IF l_task_in_rec.pa_task_number IS NOT NULL AND
15031: l_task_in_rec.pa_task_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15032: THEN
15033: l_cur_pa_tasks_rec.task_number := '-'||l_task_in_rec.pa_task_number;
15034: END IF; */
15035: /** Code end for bug 4120380 by aditi **/
15036: END IF;
15037:
15034: END IF; */
15035: /** Code end for bug 4120380 by aditi **/
15036: END IF;
15037:
15038: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
15039:
15040: IF l_debug_mode = 'Y' THEN
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15040: IF l_debug_mode = 'Y' THEN
15041: pa_debug.g_err_stage:= 'Parent Task Id : '||l_parent_task_id;
15042: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15043: l_debug_level3);
15044: pa_debug.g_err_stage:= 'Task Number : '||l_cur_pa_tasks_rec.task_number;
15045: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15046: l_debug_level3);
15047: END IF;
15048:
15057: -- Derive the parent task id
15058: IF (l_task_in_rec.pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
15059: AND l_task_in_rec.pa_parent_task_id IS NOT NULL)
15060: THEN
15061: l_cur_pa_tasks_rec.parent_task_id := l_task_in_rec.pa_parent_task_id;
15062:
15063: ELSIF (l_task_in_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15064: AND l_task_in_rec.pm_parent_task_reference IS NOT NULL)
15065: THEN
15074:
15075: --PA_PROJ_TASK_STRUC_PUB.convert_pm_parent_task_ref(
15076: -- p_pm_parent_task_reference => l_task_in_rec.pm_parent_task_reference
15077: -- ,p_project_id => p_project_id
15078: -- ,x_parent_task_id => l_cur_pa_tasks_rec.parent_task_id
15079: -- ,x_return_status => x_return_status
15080: -- );
15081:
15082:
15083: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
15084: p_pa_project_id => p_project_id
15085: , p_structure_type => 'WORKPLAN'
15086: -- 3721124 p_pa_task_id will be null in this context
15087: -- , p_pa_task_id => l_cur_pa_tasks_rec.parent_task_id
15088: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
15089: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
15090: , p_return_status => x_return_status );
15091:
15085: , p_structure_type => 'WORKPLAN'
15086: -- 3721124 p_pa_task_id will be null in this context
15087: -- , p_pa_task_id => l_cur_pa_tasks_rec.parent_task_id
15088: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
15089: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
15090: , p_return_status => x_return_status );
15091:
15092: px_tasks_out_tbl(i).return_status := x_return_status;
15093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
15099: ,p_msg_attribute => 'CHANGE'
15100: ,p_resize_flag => 'N'
15101: ,p_msg_context => 'TASK'
15102: ,p_attribute1 => l_amg_segment1
15103: ,p_attribute2 => l_cur_pa_tasks_rec.task_number
15104: ,p_attribute3 => ''
15105: ,p_attribute4 => ''
15106: ,p_attribute5 => '');
15107: END IF;
15108: Raise Invalid_Arg_Exc_WP;
15109: END IF;
15110: ELSIF (l_task_in_rec.pm_parent_task_reference IS NULL)
15111: THEN --Also the values in l_task_in_rec.parent_task_id is null or miss_num so move it as top task
15112: l_cur_pa_tasks_rec.parent_task_id := null;
15113:
15114: ELSE -- when l_task_in_rec.pm_parent_task_reference is miss_char
15115: -- no parent task information provided for the current task.
15116: -- get parent information from database
15134: CLOSE cur_parent_object_rel;
15135:
15136: --Get the parent task id from parent task version id
15137: OPEN cur_elem_ver_to_task_id(l_db_parent_task_ver_id_tmp ) ;
15138: FETCH cur_elem_ver_to_task_id INTO l_cur_pa_tasks_rec.parent_task_id;
15139: CLOSE cur_elem_ver_to_task_id;
15140: END;
15141:
15142: END IF;
15204: END IF;
15205: END;
15206:
15207: ELSE--financial
15208: l_cur_pa_tasks_rec := null; -- added for bug 15899830
15209: open cur_pa_tasks(p_project_id,l_task_in_rec.pa_task_id);
15210: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15211: close cur_pa_tasks;
15212:
15205: END;
15206:
15207: ELSE--financial
15208: l_cur_pa_tasks_rec := null; -- added for bug 15899830
15209: open cur_pa_tasks(p_project_id,l_task_in_rec.pa_task_id);
15210: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15211: close cur_pa_tasks;
15212:
15213: -- Bug 2982072. If task number and task name are passed as null then
15206:
15207: ELSE--financial
15208: l_cur_pa_tasks_rec := null; -- added for bug 15899830
15209: open cur_pa_tasks(p_project_id,l_task_in_rec.pa_task_id);
15210: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15211: close cur_pa_tasks;
15212:
15213: -- Bug 2982072. If task number and task name are passed as null then
15214: -- obtain the values from the database and use them in update_task api.
15207: ELSE--financial
15208: l_cur_pa_tasks_rec := null; -- added for bug 15899830
15209: open cur_pa_tasks(p_project_id,l_task_in_rec.pa_task_id);
15210: fetch cur_pa_tasks into l_cur_pa_tasks_rec;
15211: close cur_pa_tasks;
15212:
15213: -- Bug 2982072. If task number and task name are passed as null then
15214: -- obtain the values from the database and use them in update_task api.
15215: IF l_task_in_rec.pa_task_number is null OR
15214: -- obtain the values from the database and use them in update_task api.
15215: IF l_task_in_rec.pa_task_number is null OR
15216: l_task_in_rec.pa_task_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15217: THEN
15218: l_task_in_rec.pa_task_number := l_cur_pa_tasks_rec.task_number;
15219: /* Code added for bug 4120380 **/
15220: /* bug#5243018 : Reverting the fix in Bug 4120380
15221: ELSE
15222: OPEN cur_proj_elements_info(l_task_in_rec.pa_task_id);
15230:
15231: IF l_task_in_rec.long_task_name is null OR
15232: l_task_in_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
15233: THEN
15234: l_task_in_rec.long_task_name := l_cur_pa_tasks_rec.long_task_name;
15235: /* Redundant but added for clarity -Added the else condition for bug 2982057*/
15236: ELSE
15237: l_task_in_rec.long_task_name := l_task_in_rec.long_task_name;
15238: END IF;
15237: l_task_in_rec.long_task_name := l_task_in_rec.long_task_name;
15238: END IF;
15239:
15240: END IF;
15241: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
15242: l_task_id := l_task_in_rec.pa_task_id;
15243:
15244: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
15245: IF ((l_Share_Code = 'SHARE_PARTIAL') and (l_parent_task_id is null OR
15281: ,p_validate_only => FND_API.G_FALSE
15282: ,p_calling_module => p_calling_module
15283: ,p_debug_mode => l_debug_mode
15284: ,p_init_msg_list => FND_API.G_FALSE
15285: ,p_object_type => 'PA_TASKS'
15286: ,p_project_id => p_project_id
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15284: ,p_init_msg_list => FND_API.G_FALSE
15285: ,p_object_type => 'PA_TASKS'
15286: ,p_project_id => p_project_id
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15285: ,p_object_type => 'PA_TASKS'
15286: ,p_project_id => p_project_id
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15293: ,p_carrying_out_org_id => l_cur_pa_tasks_rec.carrying_out_organization_id
15286: ,p_project_id => p_project_id
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15293: ,p_carrying_out_org_id => l_cur_pa_tasks_rec.carrying_out_organization_id
15294: ,p_priority_code => l_task_in_rec.priority_code
15287: ,p_structure_id => l_structure_id
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15293: ,p_carrying_out_org_id => l_cur_pa_tasks_rec.carrying_out_organization_id
15294: ,p_priority_code => l_task_in_rec.priority_code
15295: ,p_TYPE_ID => l_task_in_rec.task_type
15288: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15293: ,p_carrying_out_org_id => l_cur_pa_tasks_rec.carrying_out_organization_id
15294: ,p_priority_code => l_task_in_rec.priority_code
15295: ,p_TYPE_ID => l_task_in_rec.task_type
15296: ,p_status_code => l_task_in_rec.status_code
15289: ,p_task_name => l_task_in_rec.task_name -- l_cur_pa_tasks_rec.long_task_name bug 11676550
15290: ,p_task_description => l_cur_pa_tasks_rec.description
15291: ,p_location_id => l_cur_pa_tasks_rec.address_id
15292: ,p_task_manager_id => l_cur_pa_tasks_rec.task_manager_person_id
15293: ,p_carrying_out_org_id => l_cur_pa_tasks_rec.carrying_out_organization_id
15294: ,p_priority_code => l_task_in_rec.priority_code
15295: ,p_TYPE_ID => l_task_in_rec.task_type
15296: ,p_status_code => l_task_in_rec.status_code
15297: ,p_inc_proj_progress_flag=> l_task_in_rec.inc_proj_progress_flag
15295: ,p_TYPE_ID => l_task_in_rec.task_type
15296: ,p_status_code => l_task_in_rec.status_code
15297: ,p_inc_proj_progress_flag=> l_task_in_rec.inc_proj_progress_flag
15298: ,p_pm_product_code => p_pm_product_code
15299: ,p_pm_task_reference => l_cur_pa_tasks_rec.pm_task_reference
15300: ,p_closed_date => l_task_in_rec.closed_date
15301: ,p_link_task_flag => l_task_in_rec.link_task_flag
15302: ,P_UOM_CODE => l_task_in_rec.wq_uom_code
15303: ,p_work_item_code => l_task_in_rec.wq_item_code
15314: ,x_msg_data => x_msg_data
15315: );
15316:
15317: -- Added for bug 3057575 :TO show task number while throwing err
15318: l_err_task_number := l_cur_pa_tasks_rec.task_number;
15319:
15320: px_tasks_out_tbl(i).return_status := x_return_status;
15321:
15322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15435: INTO l_project_id1,
15436: l_parent_task_id1,
15437: l_tstart_date1,
15438: l_tend_date1
15439: FROM pa_tasks pt
15440: WHERE pt.task_id = l_task_in_rec.pa_task_id; */
15441:
15442: IF ((nvl(l_task_in_rec.task_start_date,sysdate) <> nvl(l_tstart_date1,sysdate))
15443: OR (nvl(l_task_in_rec.task_completion_date,sysdate) <> nvl(l_tend_date1,sysdate))) THEN
15735: IS
15736: SELECT count(rel.object_id_to1)
15737: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
15738: WHERE rel.object_id_from1 = c_parent_element_version_id
15739: AND rel.object_type_to = 'PA_TASKS'
15740: AND rel.relationship_type = 'S'
15741: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
15742: AND rel.object_id_to1 = pev.element_version_id
15743: AND pev.proj_element_id = pe.proj_element_id
15737: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
15738: WHERE rel.object_id_from1 = c_parent_element_version_id
15739: AND rel.object_type_to = 'PA_TASKS'
15740: AND rel.relationship_type = 'S'
15741: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
15742: AND rel.object_id_to1 = pev.element_version_id
15743: AND pev.proj_element_id = pe.proj_element_id
15744: AND pe.type_id = tt.task_type_id
15745: AND tt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
15741: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
15742: AND rel.object_id_to1 = pev.element_version_id
15743: AND pev.proj_element_id = pe.proj_element_id
15744: AND pe.type_id = tt.task_type_id
15745: AND tt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
15746: AND tt.prog_entry_enable_flag = 'Y';
15747:
15748: l_child_task_count NUMBER;
15749: l_parent_version_id pa_proj_element_versions.element_version_id%TYPE;
15961: --Bug 6153503
15962: ELSE -- update task case
15963: DECLARE
15964: --Cursor to get the versioned information of the task
15965: CURSOR cur_proj_element_version_info(c_structure_version_id pa_proj_element_versions.parent_structure_version_id%TYPE, c_task_id pa_tasks.task_id%TYPE )
15966: IS
15967: SELECT rowid,element_version_id,object_type, project_id, proj_element_id, record_version_number,
15968: display_sequence, wbs_number, wbs_level, parent_structure_version_id,
15969: attribute_category, attribute1, attribute2, attribute3, attribute4, attribute5,
15972: FROM pa_proj_element_versions
15973: WHERE project_id = p_project_id
15974: AND proj_element_id = c_task_id
15975: AND parent_structure_version_id = c_structure_version_id
15976: AND object_type = 'PA_TASKS';
15977:
15978: l_cur_proj_elem_ver_info_rec cur_proj_element_version_info%ROWTYPE;
15979:
15980: BEGIN
16326: (
16327: X_ROW_ID => l_proj_elem_ver_rowid
16328: ,X_ELEMENT_VERSION_ID => l_task_version_id
16329: ,X_PROJ_ELEMENT_ID => l_task_id
16330: ,X_OBJECT_TYPE => 'PA_TASKS'
16331: ,X_PROJECT_ID => p_project_id
16332: ,X_PARENT_STRUCTURE_VERSION_ID=> l_structure_version_id
16333: ,X_DISPLAY_SEQUENCE => l_display_sequence_tbl(l_task_id)
16334: ,X_WBS_LEVEL => l_wbs_level_tbl(l_task_id)
16424: PA_PROJ_ELEMENT_VERSIONS_PKG.Update_Row(
16425: X_ROW_ID => l_proj_elem_ver_rowid
16426: ,X_ELEMENT_VERSION_ID => l_task_version_id
16427: ,X_PROJ_ELEMENT_ID => l_task_id
16428: ,X_OBJECT_TYPE => 'PA_TASKS'
16429: ,X_PROJECT_ID => p_project_id
16430: ,X_PARENT_STRUCTURE_VERSION_ID=> l_structure_version_id
16431: ,X_DISPLAY_SEQUENCE => l_display_sequence_tbl(l_task_in_rec.pa_task_id)
16432: ,X_WBS_LEVEL => l_wbs_level_tbl(l_task_in_rec.pa_task_id)
17059:
17060: IF (nvl(l_task_dates(l_tcnt).old_start_date,sysdate) <>
17061: nvl(l_task_dates(l_tcnt).new_start_date,sysdate)) THEN
17062:
17063: PA_TASKS_MAINT_UTILS.Check_Start_Date(
17064: p_project_id => l_task_dates(l_tcnt).project_id,
17065: p_parent_task_id => l_task_dates(l_tcnt).parent_task_id,
17066: p_task_id => NULL,
17067: p_start_date => l_task_dates(l_tcnt).new_start_date,
17077:
17078: IF (nvl(l_task_dates(l_tcnt).old_end_date,sysdate) <>
17079: nvl(l_task_dates(l_tcnt).new_end_date,sysdate)) THEN
17080:
17081: PA_TASKS_MAINT_UTILS.Check_End_Date(
17082: p_project_id => l_task_dates(l_tcnt).project_id,
17083: p_parent_task_id => l_task_dates(l_tcnt).parent_task_id,
17084: p_task_id => l_task_dates(l_tcnt).task_id,
17085: p_end_date => l_task_dates(l_tcnt).new_end_date,
17120: -------------------------------------------------
17121: /** Code change begin for Bug 4120380 **/
17122: /** The code below will update the task_numbers of the tasks passed via update_project script
17123: back to their original value viz. it'll crop the '-' added to aviod the constraint check in
17124: PA_TASKS and PA_PROJ_ELEMENTS. **/
17125: /* bug#5243018 : Reverting the fix in Bug 4120380
17126: IF nvl(p_tasks_in_tbl.last,0) > 0 THEN --IF Added by rtarway for BUG 4336701
17127: FOR i in p_tasks_in_tbl.first..p_tasks_in_tbl.last LOOP
17128: UPDATE pa_proj_elements
17128: UPDATE pa_proj_elements
17129: SET element_number = p_tasks_in_tbl(i).pa_task_number
17130: WHERE element_number = '-'||p_tasks_in_tbl(i).pa_task_number
17131: AND PROJECT_ID = p_project_id;
17132: UPDATE pa_tasks
17133: SET task_number = p_tasks_in_tbl(i).pa_task_number
17134: WHERE task_number = '-'||p_tasks_in_tbl(i).pa_task_number
17135: AND PROJECT_ID = p_project_id;
17136: --dbms_output.put_line(('value of recod updates in pa_proj_elements'||sql%rowcount);
17179: IS
17180: SELECT rel.OBJECT_RELATIONSHIP_ID,tt.prog_entry_enable_flag
17181: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
17182: WHERE rel.object_id_from1 = c_parent_element_version_id
17183: AND rel.object_type_to = 'PA_TASKS'
17184: AND rel.relationship_type = 'S'
17185: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
17186: AND rel.object_id_to1 = pev.element_version_id
17187: AND pev.proj_element_id = pe.proj_element_id
17181: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
17182: WHERE rel.object_id_from1 = c_parent_element_version_id
17183: AND rel.object_type_to = 'PA_TASKS'
17184: AND rel.relationship_type = 'S'
17185: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
17186: AND rel.object_id_to1 = pev.element_version_id
17187: AND pev.proj_element_id = pe.proj_element_id
17188: AND tt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
17189: AND pe.type_id = tt.task_type_id;
17184: AND rel.relationship_type = 'S'
17185: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
17186: AND rel.object_id_to1 = pev.element_version_id
17187: AND pev.proj_element_id = pe.proj_element_id
17188: AND tt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
17189: AND pe.type_id = tt.task_type_id;
17190:
17191: TYPE obj_rel_id_tbl is table of pa_object_relationships.object_relationship_id%TYPE
17192: INDEX BY BINARY_INTEGER;
17893: IF l_amg_project_csr%ISOPEN THEN
17894: CLOSE l_amg_project_csr;
17895: END IF;
17896:
17897: IF cur_pa_tasks%ISOPEN THEN
17898: CLOSE cur_pa_tasks;
17899: END IF;
17900:
17901: IF cur_template_flag%ISOPEN THEN
17894: CLOSE l_amg_project_csr;
17895: END IF;
17896:
17897: IF cur_pa_tasks%ISOPEN THEN
17898: CLOSE cur_pa_tasks;
17899: END IF;
17900:
17901: IF cur_template_flag%ISOPEN THEN
17902: CLOSE cur_template_flag;
17980: IF l_amg_project_csr%ISOPEN THEN
17981: CLOSE l_amg_project_csr;
17982: END IF;
17983:
17984: IF cur_pa_tasks%ISOPEN THEN
17985: CLOSE cur_pa_tasks;
17986: END IF;
17987:
17988: IF cur_template_flag%ISOPEN THEN
17981: CLOSE l_amg_project_csr;
17982: END IF;
17983:
17984: IF cur_pa_tasks%ISOPEN THEN
17985: CLOSE cur_pa_tasks;
17986: END IF;
17987:
17988: IF cur_template_flag%ISOPEN THEN
17989: CLOSE cur_template_flag;
18059: IF l_amg_project_csr%ISOPEN THEN
18060: CLOSE l_amg_project_csr;
18061: END IF;
18062:
18063: IF cur_pa_tasks%ISOPEN THEN
18064: CLOSE cur_pa_tasks;
18065: END IF;
18066:
18067: IF cur_template_flag%ISOPEN THEN
18060: CLOSE l_amg_project_csr;
18061: END IF;
18062:
18063: IF cur_pa_tasks%ISOPEN THEN
18064: CLOSE cur_pa_tasks;
18065: END IF;
18066:
18067: IF cur_template_flag%ISOPEN THEN
18068: CLOSE cur_template_flag;
18140: API_ERROR EXCEPTION;
18141:
18142: CURSOR get_parent_task_id IS
18143: SELECT parent_task_id, top_task_id
18144: FROM pa_tasks
18145: WHERE project_id = p_project_id
18146: AND task_id = p_task_id;
18147:
18148: BEGIN
18235: IS
18236: Select count(element_version_id)
18237: From pa_proj_element_versions
18238: Where project_id = c_project_id
18239: And object_type = 'PA_TASKS'
18240: And parent_structure_version_id = c_structure_version_id;
18241:
18242: --Bug# 5973460
18243: CURSOR c_get_process_code(c_structure_version_id NUMBER) IS
21205: pji_xbs_plans_v pxpv
21206: -- pji_fm_xbs_accum_tmp1 pfxat
21207: where ver.project_id = c_project_id
21208: and ver.parent_structure_version_id = c_structure_version_id
21209: and ver.object_type = 'PA_TASKS'
21210: and ver.element_version_id = rel.object_id_to1
21211: and rel.relationship_type = 'S'
21212: and rel.relationship_subtype in ( 'STRUCTURE_TO_TASK','TASK_TO_TASK')
21213: and sch.element_version_id = ver.element_version_id
21212: and rel.relationship_subtype in ( 'STRUCTURE_TO_TASK','TASK_TO_TASK')
21213: and sch.element_version_id = ver.element_version_id
21214: and sch.project_id = c_project_id
21215: and ele.proj_element_id = ver.proj_element_id
21216: and ptt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
21217: and ele.type_id = ptt.task_type_id
21218: and pxpv.project_id (+)= ver.project_id
21219: and pxpv.structure_version_id (+)= ver.parent_structure_version_id
21220: and pxpv.proj_element_id (+)= ver.proj_element_id
21235: pa_proj_elements ele,
21236: pa_task_types ptt
21237: where ver.project_id = c_project_id
21238: and ver.parent_structure_version_id = c_structure_version_id
21239: and ver.object_type = 'PA_TASKS'
21240: and ele.proj_element_id = ver.proj_element_id
21241: and ele.type_id = ptt.task_type_id
21242: and ptt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
21243: and nvl(ptt.prog_entry_enable_flag,'N') = 'Y'
21238: and ver.parent_structure_version_id = c_structure_version_id
21239: and ver.object_type = 'PA_TASKS'
21240: and ele.proj_element_id = ver.proj_element_id
21241: and ele.type_id = ptt.task_type_id
21242: and ptt.object_type = 'PA_TASKS' /* bug 3279978 FP M Enhancement */
21243: and nvl(ptt.prog_entry_enable_flag,'N') = 'Y'
21244: for update of ver.record_version_number NOWAIT;
21245: -- End of Cursor Declarations.
21246:
22628: WHEN OTHERS THEN
22629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22630: raise;
22631: END;
22632: IF l_object_type='PA_TASKS' THEN
22633: BEGIN
22634: DELETE FROM pa_object_relationships por1
22635: WHERE por1.object_relationship_id IN
22636: (SELECT por.object_relationship_id
22637: FROM pa_object_relationships por
22638: WHERE por.relationship_type = 'D'
22639: AND por.object_id_from1 = p_element_version_id
22640: AND por.object_id_from2 = por.object_id_to2
22641: AND por.object_type_from = 'PA_TASKS'
22642: AND por.object_type_to = 'PA_TASKS');
22643: IF SQL%NOTFOUND THEN
22644: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22645: x_return_status := FND_API.G_RET_STS_ERROR;
22638: WHERE por.relationship_type = 'D'
22639: AND por.object_id_from1 = p_element_version_id
22640: AND por.object_id_from2 = por.object_id_to2
22641: AND por.object_type_from = 'PA_TASKS'
22642: AND por.object_type_to = 'PA_TASKS');
22643: IF SQL%NOTFOUND THEN
22644: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22645: x_return_status := FND_API.G_RET_STS_ERROR;
22646: END IF;
22657: FROM pa_proj_element_versions ppev,
22658: pa_object_relationships por
22659: WHERE relationship_type ='D'
22660: AND ppev.parent_structure_version_id = p_element_version_id
22661: AND ppev.object_type = 'PA_TASKS'
22662: AND por.object_id_from2 = por.object_id_to2
22663: AND por.object_type_from = 'PA_TASKS'
22664: AND por.object_type_to = 'PA_TASKS'
22665: AND por.object_id_from1 = ppev.ELEMENT_VERSION_ID);
22659: WHERE relationship_type ='D'
22660: AND ppev.parent_structure_version_id = p_element_version_id
22661: AND ppev.object_type = 'PA_TASKS'
22662: AND por.object_id_from2 = por.object_id_to2
22663: AND por.object_type_from = 'PA_TASKS'
22664: AND por.object_type_to = 'PA_TASKS'
22665: AND por.object_id_from1 = ppev.ELEMENT_VERSION_ID);
22666: IF SQL%NOTFOUND THEN
22667: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22660: AND ppev.parent_structure_version_id = p_element_version_id
22661: AND ppev.object_type = 'PA_TASKS'
22662: AND por.object_id_from2 = por.object_id_to2
22663: AND por.object_type_from = 'PA_TASKS'
22664: AND por.object_type_to = 'PA_TASKS'
22665: AND por.object_id_from1 = ppev.ELEMENT_VERSION_ID);
22666: IF SQL%NOTFOUND THEN
22667: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
22668: x_return_status := FND_API.G_RET_STS_ERROR;