[Home] [Help]
95: -- Eg : If we are processing Task number 2.1 which is getting changed to
96: -- 2.3, then check whether the existing task with task number 2.3, is
97: -- also getting changed in the same session. If it is not getting changed
98: -- then we cannot update this task to 2.3 and would raise an error
99: If (PA_PROJ_ELEMENTS_UTILS.check_element_number_unique(p_in_task_number,
100: p_task_id,
101: p_project_id,
102: p_structure_id) <> 'Y') THEN
103:
1769: IF (l_peer_or_sub = 'PEER') THEN
1770: OPEN get_parent_version_id(l_ref_task_version_id);
1771: FETCH get_parent_version_id into l_parent_ver_id;
1772: CLOSE get_parent_version_id;
1773: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1774: p_parent_task_ver_id => l_parent_ver_id
1775: ,x_return_status => l_return_status
1776: ,x_error_message_code => l_error_msg_code
1777: );
1781: p_msg_name => l_error_msg_code);
1782: raise api_error;
1783: END IF;
1784: ELSE
1785: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1786: p_parent_task_ver_id => l_ref_task_version_id
1787: ,x_return_status => l_return_status
1788: ,x_error_message_code => l_error_msg_code
1789: );
2268: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2269:
2270: if (p_structure_type = 'WORKPLAN' ) then
2271:
2272: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(x_task_version_id) = 'Y') then
2273: l_add_task_ver_ids.extend(1);
2274: l_add_planned_effort.extend(1);
2275: l_add_start_date.extend(1);
2276: l_add_end_date.extend(1);
3529: if (p_structure_type = 'WORKPLAN' OR nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')then
3530:
3531: for l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id)
3532: loop
3533: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
3534: l_add_task_ver_ids.extend(1);
3535: l_add_planned_effort.extend(1);
3536: l_add_start_date.extend(1);
3537: l_add_end_date.extend(1);
3616: OPEN check_hidden_assgn_exists(l_task_cur_rec.element_version_id);
3617: FETCH check_hidden_assgn_exists into l_hidden_assgn;
3618: CLOSE check_hidden_assgn_exists;
3619:
3620: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id)
3621: = 'N' AND l_hidden_assgn = 'Y' THEN
3622: l_del_task_ver_ids.extend(1);
3623: l_del_task_ver_ids(l_del_task_ver_ids.count):=
3624: l_task_cur_rec.element_version_id;
3911:
3912: FOR cur_str_ver_rec IN cur_str_ver LOOP
3913: FOR cur_task_ver_rec IN cur_task_ver( cur_str_ver_rec.element_version_id ) LOOP
3914: --Check to see if deleting a version is ok
3915: PA_PROJ_ELEMENTS_UTILS.Check_Delete_task_Ver_Ok(
3916: p_project_id => p_project_id
3917: ,p_task_version_id => cur_task_ver_rec.element_version_id
3918: ,p_parent_structure_ver_id => cur_str_ver_rec.element_version_id
3919: ,x_return_status => l_return_status
5911: AND status_code = 'STRUCTURE_WORKING';
5912:
5913: l_structure_version_id NUMBER;
5914: BEGIN
5915: l_structure_version_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_project_id,'FINANCIAL' );
5916:
5917: IF l_structure_version_id IS NULL OR l_structure_version_id = -1
5918: THEN
5919: OPEN cur_pa_work_ver;
7929: ppe.attribute15
7930: FROM pa_proj_elements ppe
7931: WHERE ppe.project_id = p_dest_project_id
7932: AND ppe.object_type = 'PA_STRUCTURES'
7933: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ;
7934:
7935: --This cursor will retrieve the single version id created for the shared structure
7936: CURSOR cur_get_shared_ver_id IS
7937: SELECT ppev.element_version_id
7937: SELECT ppev.element_version_id
7938: FROM pa_proj_element_versions ppev
7939: WHERE ppev.project_id = p_dest_project_id
7940: AND ppev.object_type = 'PA_STRUCTURES'
7941: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppev.proj_element_id ) = 'Y' ;
7942:
7943: --This cursor gets the copied tasks' proj_element_id
7944: CURSOR cur_get_copied_tasks( c_dest_parent_structure_id IN NUMBER ) IS
7945: SELECT dest.attribute15 src_ppe_id,
8475: AND ppe2.object_type = 'PA_STRUCTURES'
8476: AND ppe2.proj_element_id = ppst.proj_element_id
8477: AND ppst.structure_type_id = pst.structure_type_id
8478: AND pst.structure_type IN ('WORKPLAN','FINANCIAL') );
8479: --DONOT use the fn call PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' in above insert
8480: --Inner query is necessary rather than a straight join of three tables in the outer query bec in case of shared,
8481: --the same record from source project is returned twice.
8482:
8483: SELECT meaning INTO l_suffix
8520: ,1
8521: FROM pa_proj_elements ppe,
8522: pa_proj_structure_types ppst
8523: WHERE ppe.project_id = p_dest_project_id
8524: AND ppe.attribute15 IN --DoNot use PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.attribute15 ) = 'Y'
8525: ( SELECT ppe2.proj_element_id
8526: FROM pa_proj_elements ppe2
8527: ,pa_proj_structure_types ppst
8528: ,pa_structure_types pst
8598: FROM pa_proj_elements ppe,
8599: pa_proj_workplan_attr ppwa
8600: WHERE ppwa.project_id = p_src_project_id
8601: AND ppe.attribute15 = ppwa.proj_element_id
8602: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8603: AND ppe.project_id = p_dest_project_id --bug 3939786
8604: ;
8605:
8606: --Copy progress attributes for financial and workplan structures
8647: ,pppa.STRUCTURE_TYPE
8648: FROM pa_proj_progress_attr pppa,
8649: pa_proj_elements ppe
8650: WHERE ppe.project_id = p_dest_project_id
8651: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8652: AND ppe.attribute15 = pppa.object_id
8653: AND pppa.project_id = p_src_project_id
8654: AND pppa.object_type = 'PA_STRUCTURES' ;
8655:
10336: )
10337: WHERE project_id = p_dest_project_id;
10338:
10339: --Get the latest published version id in the destination project
10340: l_dest_latest_pub_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_dest_project_id, 'WORKPLAN' ) ;
10341:
10342: IF l_dest_latest_pub_ver_id IS NOT NULL THEN
10343: UPDATE pa_projects_all
10344: SET ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
12404: WHERE ppwa.project_id = p_src_project_id
12405: AND ppe.project_id = p_dest_project_id
12406: AND ppe.object_type ='PA_STRUCTURES'
12407: AND ppe.attribute15 = ppwa.proj_element_id
12408: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'; /* bug 3621613 */
12409:
12410: --bug 3010538
12411: --added task weighting basis code
12412: INSERT INTO pa_proj_progress_attr(
12466: and ppe.attribute15 = pppa.object_id
12467: and pppa.object_type = 'PA_STRUCTURES'
12468: and ppe.object_type = 'PA_STRUCTURES'
12469: and pppa.project_id = p_src_project_id
12470: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ; /* bug 3621613 */
12471:
12472: --Bug 2955589. If Versioning is enabled and it is a project to project copy, the plsql table will not
12473: --contain any records if there were no working verisons. We need to create one if any of the flags
12474: --l_create_fin_version or l_create_wk_version is 'Y'.
14595: END IF;
14596:
14597: */
14598: -- Obtain the structure version id to proceed with the processing.
14599: PA_PROJ_ELEMENTS_UTILS.GET_STRUCTURE_INFO(
14600: p_project_id => p_project_id
14601: ,p_structure_type => p_structure_type
14602: ,p_structure_id => l_structure_id
14603: ,p_is_wp_separate_from_fn => p_is_wp_separate_from_fn
14670: -- Get the default task type id. In workplan context, when we create a schedule
14671: -- version we check if the task type allows for non null work quantity. If the task type
14672: -- is passed as null in the input task record, we use the default task type id derived
14673: -- below.
14674: l_default_task_type_id := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
14675:
14676: -- Get the segment1 for the project. Used to show context for error messages.
14677: open l_amg_project_csr(p_project_id);
14678: fetch l_amg_project_csr into l_amg_segment1;
15416: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
15417: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
15418: PA_PROJECT_PUB.G_Published_version_exists = 'Y' AND
15419: --Added by rtarway for BUG 4321313
15420: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_in_rec.pa_task_id)='Y'
15421: )
15422: THEN
15423: -- Changes for --bug 8301015
15424: --Added for Bug15958106
16151: IF l_task_in_rec.pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
16152: l_task_in_rec.pa_task_id IS NULL THEN -- create task
16153: IF l_parent_task_id IS NOT NULL THEN
16154: --Check if it is ok to create a subtask.
16155: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok
16156: ( p_parent_task_ver_id => l_task_version_id_tbl(l_parent_task_id)
16157: ,x_return_status => l_return_status
16158: ,x_error_message_code => l_error_msg_code
16159: );
16209: p_msg_name => 'PA_WBS_CANT_CHANGE');
16210: RAISE Invalid_Arg_Exc_WP;
16211: END IF;
16212: -- Lifecycle Phase validation . Check if task has phase associated with it
16213: IF (pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(l_task_in_rec.pa_task_id) = 'Y')
16214: THEN
16215: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16216: p_msg_name => 'PA_LC_NO_MOVE_PHASE_TASK');
16217: RAISE Invalid_Arg_Exc_WP;
16217: RAISE Invalid_Arg_Exc_WP;
16218: END IF;
16219:
16220: --check if ok to move this task
16221: PA_PROJ_ELEMENTS_UTILS.check_move_task_ok(
16222: p_task_ver_id => l_task_version_id
16223: ,x_return_status => x_return_status
16224: ,x_error_message_code => x_msg_data
16225: );
16229: raise Invalid_Arg_Exc_WP;
16230: END IF;
16231:
16232: IF (l_parent_task_id IS NOT NULL) THEN
16233: PA_PROJ_ELEMENTS_UTILS.CHECK_CREATE_SUBTASK_OK(
16234: p_parent_task_ver_id => l_parent_task_version_id
16235: ,x_return_status => x_return_status
16236: ,x_error_message_code => x_msg_data);
16237: IF (x_return_status <> 'Y') THEN
16351: ,X_ATTRIBUTE15 => null
16352: ,X_TASK_UNPUB_VER_STATUS_CODE => l_task_unpub_ver_status_code
16353: ,X_SOURCE_OBJECT_ID => p_project_id
16354: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
16355: --,P_Financial_Task_Flag => PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)
16356: --commented and added following for bug 4059962 reopen, rtarway
16357: ,P_Financial_Task_Flag => l_financial_task_flag
16358: );
16359:
17522:
17523: IF l_debug_mode = 'Y' THEN
17524: Pa_Debug.WRITE(G_PKG_NAME,'Create Task Context',l_debug_level3);
17525: END IF;
17526: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17527: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17528: THEN
17529: IF l_debug_mode = 'Y' THEN
17530: Pa_Debug.WRITE(G_PKG_NAME,'Lowest Task With No Assignments',l_debug_level3);
17570: END IF;
17571:
17572: -- Bug 4078307: Changes start
17573: -- In update task flow we should be deleting all task assignments for summary-level tasks
17574: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17575: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17576: THEN
17577: IF l_debug_mode = 'Y' THEN
17578: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
17582: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
17583: END IF;
17584:
17585:
17586: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
17587: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17588: THEN
17589: -- We do not have to call update_planning_transaction here bcoz
17590: -- update_schedule_version is already calling it.
17611: FETCH check_hidden_assgn_exists into l_hidden_assgn;
17612: CLOSE check_hidden_assgn_exists;
17613: --rtarway, 4132590, end add
17614:
17615: IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
17616: --AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y')
17617: AND l_hidden_assgn = 'Y')--modified by rtarway for BUG 4132590
17618: THEN
17619: IF l_debug_mode = 'Y' THEN
17695: -- if ( p_tasks_in_tbl IS NOT NULL AND p_tasks_in_tbl.count > 0)
17696: -- then
17697: -- for l_i in p_tasks_in_tbl.first .. p_tasks_in_tbl.last
17698: -- loop
17699: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y') then
17700: -- l_add_task_ver_ids.extend(1);
17701: -- l_add_planned_effort.extend(1);
17702: -- l_add_start_date.extend(1);
17703: -- l_add_end_date.extend(1);
17786: -- --l_del_task_ver_ids will not be populated. before passing these tables to add_planning_transaction
17787: -- --or delete_planning_transaction, checks should be made
17788: -- for l_task_cur_rec in l_task_cur(p_project_id)
17789: -- loop
17790: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
17791: -- l_add_task_ver_ids.extend(1);
17792: -- l_add_planned_effort.extend(1);
17793: -- l_add_start_date.extend(1);
17794: -- l_add_end_date.extend(1);
22191:
22192: --Project name to id Conversion
22193: IF ((p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND (p_project_name IS NOT NULL)) OR
22194: ((p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND (p_project_id IS NOT NULL)) THEN
22195: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
22196: p_project_name => p_project_name,
22197: p_project_id => p_project_id,
22198: x_project_id => l_project_id,
22199: x_return_status => l_return_status,