[Home] [Help]
1553: IF (l_peer_or_sub = 'PEER') THEN
1554: OPEN get_parent_version_id(l_ref_task_version_id);
1555: FETCH get_parent_version_id into l_parent_ver_id;
1556: CLOSE get_parent_version_id;
1557: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1558: p_parent_task_ver_id => l_parent_ver_id
1559: ,x_return_status => l_return_status
1560: ,x_error_message_code => l_error_msg_code
1561: );
1565: p_msg_name => l_error_msg_code);
1566: raise api_error;
1567: END IF;
1568: ELSE
1569: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1570: p_parent_task_ver_id => l_ref_task_version_id
1571: ,x_return_status => l_return_status
1572: ,x_error_message_code => l_error_msg_code
1573: );
2052: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2053:
2054: if (p_structure_type = 'WORKPLAN' ) then
2055:
2056: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(x_task_version_id) = 'Y') then
2057: l_add_task_ver_ids.extend(1);
2058: l_add_planned_effort.extend(1);
2059: l_add_start_date.extend(1);
2060: l_add_end_date.extend(1);
3311: if (p_structure_type = 'WORKPLAN' OR nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')then
3312:
3313: for l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id)
3314: loop
3315: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
3316: l_add_task_ver_ids.extend(1);
3317: l_add_planned_effort.extend(1);
3318: l_add_start_date.extend(1);
3319: l_add_end_date.extend(1);
3396: OPEN check_hidden_assgn_exists(l_task_cur_rec.element_version_id);
3397: FETCH check_hidden_assgn_exists into l_hidden_assgn;
3398: CLOSE check_hidden_assgn_exists;
3399:
3400: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id)
3401: = 'N' AND l_hidden_assgn = 'Y' THEN
3402: l_del_task_ver_ids.extend(1);
3403: l_del_task_ver_ids(l_del_task_ver_ids.count):=
3404: l_task_cur_rec.element_version_id;
3690:
3691: FOR cur_str_ver_rec IN cur_str_ver LOOP
3692: FOR cur_task_ver_rec IN cur_task_ver( cur_str_ver_rec.element_version_id ) LOOP
3693: --Check to see if deleting a version is ok
3694: PA_PROJ_ELEMENTS_UTILS.Check_Delete_task_Ver_Ok(
3695: p_project_id => p_project_id
3696: ,p_task_version_id => cur_task_ver_rec.element_version_id
3697: ,p_parent_structure_ver_id => cur_str_ver_rec.element_version_id
3698: ,x_return_status => l_return_status
5690: AND status_code = 'STRUCTURE_WORKING';
5691:
5692: l_structure_version_id NUMBER;
5693: BEGIN
5694: l_structure_version_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_project_id,'FINANCIAL' );
5695:
5696: IF l_structure_version_id IS NULL OR l_structure_version_id = -1
5697: THEN
5698: OPEN cur_pa_work_ver;
7680: ppe.attribute15
7681: FROM pa_proj_elements ppe
7682: WHERE ppe.project_id = p_dest_project_id
7683: AND ppe.object_type = 'PA_STRUCTURES'
7684: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ;
7685:
7686: --This cursor will retrieve the single version id created for the shared structure
7687: CURSOR cur_get_shared_ver_id IS
7688: SELECT ppev.element_version_id
7688: SELECT ppev.element_version_id
7689: FROM pa_proj_element_versions ppev
7690: WHERE ppev.project_id = p_dest_project_id
7691: AND ppev.object_type = 'PA_STRUCTURES'
7692: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppev.proj_element_id ) = 'Y' ;
7693:
7694: --This cursor gets the copied tasks' proj_element_id
7695: CURSOR cur_get_copied_tasks( c_dest_parent_structure_id IN NUMBER ) IS
7696: SELECT dest.attribute15 src_ppe_id,
8214: AND ppe2.object_type = 'PA_STRUCTURES'
8215: AND ppe2.proj_element_id = ppst.proj_element_id
8216: AND ppst.structure_type_id = pst.structure_type_id
8217: AND pst.structure_type IN ('WORKPLAN','FINANCIAL') );
8218: --DONOT use the fn call PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' in above insert
8219: --Inner query is necessary rather than a straight join of three tables in the outer query bec in case of shared,
8220: --the same record from source project is returned twice.
8221:
8222: SELECT meaning INTO l_suffix
8259: ,1
8260: FROM pa_proj_elements ppe,
8261: pa_proj_structure_types ppst
8262: WHERE ppe.project_id = p_dest_project_id
8263: AND ppe.attribute15 IN --DoNot use PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.attribute15 ) = 'Y'
8264: ( SELECT ppe2.proj_element_id
8265: FROM pa_proj_elements ppe2
8266: ,pa_proj_structure_types ppst
8267: ,pa_structure_types pst
8331: FROM pa_proj_elements ppe,
8332: pa_proj_workplan_attr ppwa
8333: WHERE ppwa.project_id = p_src_project_id
8334: AND ppe.attribute15 = ppwa.proj_element_id
8335: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8336: AND ppe.project_id = p_dest_project_id --bug 3939786
8337: ;
8338:
8339: --Copy progress attributes for financial and workplan structures
8380: ,pppa.STRUCTURE_TYPE
8381: FROM pa_proj_progress_attr pppa,
8382: pa_proj_elements ppe
8383: WHERE ppe.project_id = p_dest_project_id
8384: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8385: AND ppe.attribute15 = pppa.object_id
8386: AND pppa.project_id = p_src_project_id
8387: AND pppa.object_type = 'PA_STRUCTURES' ;
8388:
10042: )
10043: WHERE project_id = p_dest_project_id;
10044:
10045: --Get the latest published version id in the destination project
10046: l_dest_latest_pub_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_dest_project_id, 'WORKPLAN' ) ;
10047:
10048: IF l_dest_latest_pub_ver_id IS NOT NULL THEN
10049: UPDATE pa_projects_all
10050: SET ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
12077: WHERE ppwa.project_id = p_src_project_id
12078: AND ppe.project_id = p_dest_project_id
12079: AND ppe.object_type ='PA_STRUCTURES'
12080: AND ppe.attribute15 = ppwa.proj_element_id
12081: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'; /* bug 3621613 */
12082:
12083: --bug 3010538
12084: --added task weighting basis code
12085: INSERT INTO pa_proj_progress_attr(
12139: and ppe.attribute15 = pppa.object_id
12140: and pppa.object_type = 'PA_STRUCTURES'
12141: and ppe.object_type = 'PA_STRUCTURES'
12142: and pppa.project_id = p_src_project_id
12143: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ; /* bug 3621613 */
12144:
12145: --Bug 2955589. If Versioning is enabled and it is a project to project copy, the plsql table will not
12146: --contain any records if there were no working verisons. We need to create one if any of the flags
12147: --l_create_fin_version or l_create_wk_version is 'Y'.
14090: END IF;
14091:
14092: */
14093: -- Obtain the structure version id to proceed with the processing.
14094: PA_PROJ_ELEMENTS_UTILS.GET_STRUCTURE_INFO(
14095: p_project_id => p_project_id
14096: ,p_structure_type => p_structure_type
14097: ,p_structure_id => l_structure_id
14098: ,p_is_wp_separate_from_fn => p_is_wp_separate_from_fn
14165: -- Get the default task type id. In workplan context, when we create a schedule
14166: -- version we check if the task type allows for non null work quantity. If the task type
14167: -- is passed as null in the input task record, we use the default task type id derived
14168: -- below.
14169: l_default_task_type_id := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
14170:
14171: -- Get the segment1 for the project. Used to show context for error messages.
14172: open l_amg_project_csr(p_project_id);
14173: fetch l_amg_project_csr into l_amg_segment1;
14888: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
14889: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
14890: PA_PROJECT_PUB.G_Published_version_exists = 'Y' AND
14891: --Added by rtarway for BUG 4321313
14892: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_in_rec.pa_task_id)='Y'
14893: )
14894: THEN
14895: --Call Update_One_Task to update financial attributes
14896: PA_PROJECT_PVT.Update_One_Task
15573: IF l_task_in_rec.pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
15574: l_task_in_rec.pa_task_id IS NULL THEN -- create task
15575: IF l_parent_task_id IS NOT NULL THEN
15576: --Check if it is ok to create a subtask.
15577: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok
15578: ( p_parent_task_ver_id => l_task_version_id_tbl(l_parent_task_id)
15579: ,x_return_status => l_return_status
15580: ,x_error_message_code => l_error_msg_code
15581: );
15631: p_msg_name => 'PA_WBS_CANT_CHANGE');
15632: RAISE Invalid_Arg_Exc_WP;
15633: END IF;
15634: -- Lifecycle Phase validation . Check if task has phase associated with it
15635: IF (pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(l_task_in_rec.pa_task_id) = 'Y')
15636: THEN
15637: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15638: p_msg_name => 'PA_LC_NO_MOVE_PHASE_TASK');
15639: RAISE Invalid_Arg_Exc_WP;
15639: RAISE Invalid_Arg_Exc_WP;
15640: END IF;
15641:
15642: --check if ok to move this task
15643: PA_PROJ_ELEMENTS_UTILS.check_move_task_ok(
15644: p_task_ver_id => l_task_version_id
15645: ,x_return_status => x_return_status
15646: ,x_error_message_code => x_msg_data
15647: );
15651: raise Invalid_Arg_Exc_WP;
15652: END IF;
15653:
15654: IF (l_parent_task_id IS NOT NULL) THEN
15655: PA_PROJ_ELEMENTS_UTILS.CHECK_CREATE_SUBTASK_OK(
15656: p_parent_task_ver_id => l_parent_task_version_id
15657: ,x_return_status => x_return_status
15658: ,x_error_message_code => x_msg_data);
15659: IF (x_return_status <> 'Y') THEN
15773: ,X_ATTRIBUTE15 => null
15774: ,X_TASK_UNPUB_VER_STATUS_CODE => l_task_unpub_ver_status_code
15775: ,X_SOURCE_OBJECT_ID => p_project_id
15776: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
15777: --,P_Financial_Task_Flag => PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)
15778: --commented and added following for bug 4059962 reopen, rtarway
15779: ,P_Financial_Task_Flag => l_financial_task_flag
15780: );
15781:
16870:
16871: IF l_debug_mode = 'Y' THEN
16872: Pa_Debug.WRITE(G_PKG_NAME,'Create Task Context',l_debug_level3);
16873: END IF;
16874: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16875: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16876: THEN
16877: IF l_debug_mode = 'Y' THEN
16878: Pa_Debug.WRITE(G_PKG_NAME,'Lowest Task With No Assignments',l_debug_level3);
16918: END IF;
16919:
16920: -- Bug 4078307: Changes start
16921: -- In update task flow we should be deleting all task assignments for summary-level tasks
16922: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16923: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16924: THEN
16925: IF l_debug_mode = 'Y' THEN
16926: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
16930: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16931: END IF;
16932:
16933:
16934: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16935: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16936: THEN
16937: -- We do not have to call update_planning_transaction here bcoz
16938: -- update_schedule_version is already calling it.
16959: FETCH check_hidden_assgn_exists into l_hidden_assgn;
16960: CLOSE check_hidden_assgn_exists;
16961: --rtarway, 4132590, end add
16962:
16963: IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16964: --AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y')
16965: AND l_hidden_assgn = 'Y')--modified by rtarway for BUG 4132590
16966: THEN
16967: IF l_debug_mode = 'Y' THEN
17043: -- if ( p_tasks_in_tbl IS NOT NULL AND p_tasks_in_tbl.count > 0)
17044: -- then
17045: -- for l_i in p_tasks_in_tbl.first .. p_tasks_in_tbl.last
17046: -- loop
17047: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y') then
17048: -- l_add_task_ver_ids.extend(1);
17049: -- l_add_planned_effort.extend(1);
17050: -- l_add_start_date.extend(1);
17051: -- l_add_end_date.extend(1);
17134: -- --l_del_task_ver_ids will not be populated. before passing these tables to add_planning_transaction
17135: -- --or delete_planning_transaction, checks should be made
17136: -- for l_task_cur_rec in l_task_cur(p_project_id)
17137: -- loop
17138: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
17139: -- l_add_task_ver_ids.extend(1);
17140: -- l_add_planned_effort.extend(1);
17141: -- l_add_start_date.extend(1);
17142: -- l_add_end_date.extend(1);
21389:
21390: --Project name to id Conversion
21391: IF ((p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND (p_project_name IS NOT NULL)) OR
21392: ((p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND (p_project_id IS NOT NULL)) THEN
21393: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
21394: p_project_name => p_project_name,
21395: p_project_id => p_project_id,
21396: x_project_id => l_project_id,
21397: x_return_status => l_return_status,