[Home] [Help]
422:
423: --Bug 2168170
424: --dbms_output.put_line('Inside private API');
425: --dbms_output.put_line( 'Check if the task name is unique within the project.'||l_task_number);
426: IF PA_PROJ_ELEMENTS_UTILS.Check_element_number_Unique
427: (
428: p_element_number => l_task_number --Bug 3705333 Changed from p_task_number to l_task_number
429: ,p_element_id => null
430: ,p_project_id => p_project_id
440: --end bug 2669388
441: --dbms_output.put_line( 'After Check if the task name is unique within the project.' );
442:
443: --Check if the task name is unique within the project
444: If (PA_PROJ_ELEMENTS_UTILS.check_element_number_unique(l_task_number, --Bug 3705333 Changed from p_task_number to l_task_number
445: NULL,
446: p_project_id,
447: p_structure_id) <> 'Y') THEN
448: --Name is not unique
548: IF ( p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_TYPE_ID IS NULL )
549: THEN
550: --IF (p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_object_type = 'PA_TASKS') THEN
551: IF (p_object_type = 'PA_TASKS') THEN
552: l_TYPE_ID := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
553: ELSE
554: l_TYPE_ID := NULL;
555: END IF;
556: ELSE
1853: case below:
1854: Task 1.0 to be re-named to Taslk 1.1 and Task 1.1 to be renamed to Task 1.0 **/
1855: --Check if the task name is unique within the project
1856: /* Code below is uncommented for bug 4218947 **/
1857: If (PA_PROJ_ELEMENTS_UTILS.check_element_number_unique(l_task_number, --Bug 3705333 changed from p_task_number to l_task_number
1858: p_task_id,
1859: v_cur_proj_elems_rec.project_id,
1860: v_cur_proj_elems_rec.PARENT_STRUCTURE_ID) <> 'Y') THEN
1861: --Name is not unique
1892: IF ( p_phase_version_id IS NOT NULL) AND
1893: (p_phase_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
1894:
1895: -- check if it is top task
1896: IF ('N' = pa_proj_elements_utils.IS_TOP_TASK_ACROSS_ALL_VER(
1897: p_task_id)) THEN
1898: --Is not a top task across all versions. Error
1899: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NOT_ALL_TOP_TASKS');
1900: -- start of bug 3459905
1910: -- end of bug 3459905
1911: END IF;
1912:
1913: -- check if the current phase is already used.
1914: IF ('Y' = pa_proj_elements_utils.CHECK_PHASE_IN_USE(
1915: p_task_id,
1916: p_phase_version_id)) THEN
1917: -- Phase already in use in the structure. Error
1918: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_PHASE_IN_USE');
2273: OPEN get_task_versions_id(p_task_id,l_project_id);
2274: LOOP
2275: FETCH get_task_versions_id INTO l_task_version_id;
2276: EXIT WHEN get_task_versions_id%NOTFOUND;
2277: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2278: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2279: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2280: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2281: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2288: OPEN get_task_versions_id2(p_task_id,l_project_id);
2289: LOOP
2290: FETCH get_task_versions_id2 INTO l_task_version_id;
2291: EXIT WHEN get_task_versions_id2%NOTFOUND;
2292: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2293: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2294: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2295: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2296: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2766:
2767: -- Modified for FP_M changes
2768: -- Tracking Bug 3305199
2769:
2770: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(P_Task_ID);
2771:
2772: IF (NVL( l_published_version, 'N' ) = 'N' and l_fin_task_flag = 'Y') OR
2773: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' and l_fin_task_flag = 'Y') -- Bug 3305199
2774: THEN
2852: -- end xxlu changes
2853: ELSE --Added for transaction dates update
2854: --there is a publish version; update task that have financial attribute
2855: -- This code will excecute for fully shared and versioning enabled case
2856: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(p_task_id) = 'Y') THEN
2857: -- xxlu add task DFF attributes
2858: --bug 3690807
2859:
2860: -- Changed SUBSTR to SUBSTRB for 3935874
2961:
2962: --maansari
2963: IF PA_PROGRESS_UTILS.get_system_task_status( l_STATUS_CODE ) = 'CANCELLED'
2964: THEN
2965: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok (
2966: p_task_id => p_task_id
2967: ,p_task_version_id => l_latest_task_ver_rec.element_version_id
2968: ,p_new_task_status => l_STATUS_CODE
2969: ,x_return_status => l_return_status
3360: --
3361: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
3362: --Bug No 3475920
3363: IF p_peer_or_sub = 'PEER' THEN
3364: l_ref_parent_task_ver_id:=PA_PROJ_ELEMENTS_UTILS.GET_PARENT_TASK_VERSION_ID(p_ref_task_version_id);
3365: ELSE
3366: l_ref_parent_task_ver_id:=p_ref_task_version_id;
3367: END IF;
3368: --Bug No 3475920
3369: OPEN get_task_detail(p_task_id);
3370: FETCH get_task_detail INTO l_base_deriv_code;
3371: CLOSE get_task_detail;
3372: IF l_base_deriv_code LIKE 'DELIVERABLE' THEN
3373: IF PA_PROJ_ELEMENTS_UTILS.check_task_parents_deliv(l_ref_parent_task_ver_id) = 'Y' THEN
3374: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3375: p_msg_name => 'PA_TASK_AND_PARENTTASK_DEL');
3376: raise FND_API.G_EXC_ERROR;
3377: END IF;
3450:
3451: --hsiu: bug 2695631
3452: --copy structure version should not validate when creating tasks
3453: IF (p_validation_level <> 0) THEN
3454: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
3455: p_parent_task_ver_id => l_parent_id
3456: ,x_return_status => l_return_status
3457: ,x_error_message_code => l_error_message_code
3458: );
3482: End if; /** Changes end for performance BUg 4046026 */
3483: --hsiu: bug 2695631
3484: --copy structure version should not validate when creating tasks
3485: IF (p_validation_level <> 0) THEN
3486: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
3487: p_parent_task_ver_id => p_ref_task_version_id
3488: ,x_return_status => l_return_status
3489: ,x_error_message_code => l_error_message_code
3490: );
3519: END IF;
3520: END IF;
3521:
3522: --Display sequence is null if the task is a linking task.
3523: l_link_task_flag := PA_PROJ_ELEMENTS_UTILS.link_flag ( p_task_id );
3524: IF l_link_task_flag = 'Y'
3525: THEN
3526: l_DISPLAY_SEQUENCE := null;
3527: END IF;
3580: WHERE display_sequence > l_ref_seq_no
3581: AND element_version_id <> x_task_version_id
3582: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3583: AND object_type = 'PA_TASKS'
3584: -- AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3585: ;
3586: ELSE
3587: IF p_peer_or_sub = 'PEER' --Bug 4046026
3588: THEN
3591: WHERE display_sequence > l_ref_seq_no
3592: AND element_version_id <> x_task_version_id
3593: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3594: AND object_type = 'PA_TASKS'
3595: --AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3596: ;
3597: END IF;
3598: END IF; --Added for Bug 4046026 Commented for 4057190 /** Uncommented it again for BUg 4046026 **/
3599:
3651: IF l_link_task_flag = 'N'
3652: THEN
3653: --my_error_msg( 'In create_task_version pvt API Stage 6' );
3654:
3655: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
3656: p_commit => p_commit
3657: ,p_debug_mode => p_debug_mode
3658: ,p_parent_structure_ver_id => l_parent_struc_ver_id
3659: ,p_task_id => x_task_version_id
3990: END IF;
3991:
3992: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
3993: --Bug No 3475920 SMukka Commented out following logic to check for deliverable.
3994: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
3995: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
3996: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3997: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
3998: -- raise FND_API.G_EXC_ERROR;
3991:
3992: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
3993: --Bug No 3475920 SMukka Commented out following logic to check for deliverable.
3994: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
3995: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
3996: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3997: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
3998: -- raise FND_API.G_EXC_ERROR;
3999: -- END IF;
4369: END LOOP;
4370:
4371: --updating wbs number only once after making display seq null
4372:
4373: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4374: ( p_commit => p_commit
4375: ,p_debug_mode => p_debug_mode
4376: ,p_parent_structure_ver_id => l_parent_struc_ver_id
4377: ,p_task_id => NULL
4670:
4671: --update wbs number for affected tasks
4672: -- Insert
4673: --update WBS NUMBER properly now for the affected rows.
4674: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4675: ( p_commit => p_commit
4676: ,p_debug_mode => p_debug_mode
4677: ,p_parent_structure_ver_id => cur_affected_tasks_rec.parent_structure_version_id
4678: ,p_task_id => cur_affected_tasks_rec.element_version_id
4719:
4720: --update wbs number for actual tasks
4721: -- Insert
4722: --update WBS NUMBER properly now
4723: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4724: ( p_commit => p_commit
4725: ,p_debug_mode => p_debug_mode
4726: ,p_parent_structure_ver_id => cur_actual_tasks_rec.parent_structure_version_id
4727: ,p_task_id => cur_actual_tasks_rec.element_version_id
4748: -- dbms_output.put_line( 'cur_affected_tasks_rec.display_sequence '|| cur_affected_tasks_rec.display_sequence );
4749: --update wbs number for affected tasks
4750: -- Insert
4751: --update WBS NUMBER properly now for the affected rows.
4752: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4753: ( p_commit => p_commit
4754: ,p_debug_mode => p_debug_mode
4755: ,p_parent_structure_ver_id => cur_affected_tasks_rec.parent_structure_version_id
4756: ,p_task_id => cur_affected_tasks_rec.element_version_id
5187: --added on 08-JAN-2002
5188: --check if task is linked task
5189: IF (p_structure_version_id IS NOT NULL) AND
5190: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
5191: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
5192: p_structure_version_id,
5193: p_task_version_id)) THEN
5194: --deleting linked task. Error
5195: x_return_status := FND_API.G_RET_STS_ERROR;
5292: END IF;
5293: END IF ; -- Bug#3834117
5294: END IF;
5295:
5296: IF l_delete_flag = 'Y' AND PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id )= 'Y'
5297: -- Added for FP_M changes Bug 3305199 Bhumesh
5298: THEN
5299:
5300: -- Added for FP_M changes
5397: --check_delete_task ok
5398:
5399: --dbms_output.put_line( 'before chk_delete ' );
5400:
5401: --The following code is reqd. to pass calling mode to check api bcoz PA_PROJ_ELEMENTS_UTILS.check_delete_task_ver_ok again calls
5402: --PA_TASK_UTILS.check_delete_task_ok api
5403: --bug 2947492
5404: --commenting out the 'R'estricted mode logic for bug 3010538
5405: -- IF p_calling_module = 'AMG'
5412:
5413: /* bug 4006401--removed since it is called in PUB.
5414: IF p_called_from_api <> 'MOVE_TASK_VERSION'
5415: THEN
5416: PA_PROJ_ELEMENTS_UTILS.check_delete_task_ver_ok(
5417: p_project_id => x_project_id
5418: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
5419: ,p_parent_structure_ver_id => x_parent_struc_ver_id
5420: --bug 3010538 ,p_validation_mode => l_validation_mode --bug 2947492
5435:
5436: --deleting schedule version if its a workplan
5437: --IF workplan_structure THEN
5438: IF p_called_from_api <> 'MOVE_TASK_VERSION' THEN
5439: IF PA_PROJ_ELEMENTS_UTILS.structure_type(
5440: p_structure_version_id => null
5441: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
5442: ,p_structure_type => 'WORKPLAN' ) = 'Y' THEN
5443:
5585: */
5586: -- 4201927 end
5587:
5588: /*
5589: IF l_delete_flag = 'Y' AND PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_proj_element_id )= 'Y'
5590: -- Added for FP_M changes Bug 3305199 Bhumesh
5591: THEN
5592:
5593: -- Added for FP_M changes
5812: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
5813:
5814: --Ansari
5815: --Call update wbs number
5816: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
5817: p_commit => p_commit
5818: ,p_debug_mode => p_debug_mode
5819: ,p_parent_structure_ver_id => x_parent_struc_ver_id
5820: ,p_task_id => null
6039: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
6040: -- record_version_number = record_version_number + 1
6041: WHERE parent_structure_version_id = x_parent_struc_ver_id
6042: AND (display_sequence > l_selected_seq_num)
6043: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
6044: EXCEPTION
6045: WHEN OTHERS THEN
6046: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6047: raise FND_API.G_EXC_ERROR;
6729: END IF;
6730: -- end xxlu changes.
6731:
6732:
6733: PA_PROJ_ELEMENTS_UTILS.Check_Date_range(
6734: p_scheduled_start_date => l_scheduled_start_date
6735: ,p_scheduled_end_date => l_scheduled_end_date
6736: ,p_obligation_start_date => l_obligation_start_date
6737: ,p_obligation_end_date => l_obligation_end_date
7847: l_level_assignments_flag := p_level_assignments_flag;
7848: END IF;
7849: --end bug 3305199
7850:
7851: PA_PROJ_ELEMENTS_UTILS.Check_Date_range(
7852: p_scheduled_start_date => l_scheduled_start_date
7853: ,p_scheduled_end_date => l_scheduled_end_date
7854: ,p_obligation_start_date => l_obligation_start_date
7855: ,p_obligation_end_date => l_obligation_end_date
8256:
8257: END IF;
8258:
8259: --bug 3301192 fp changes
8260: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID ) = 'Y'
8261: THEN
8262:
8263: open get_parent_struc_ver_id(cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID);
8264: fetch get_parent_struc_ver_id INTO l_parent_struc_ver_id;
9071:
9072: --deleting schedule version if its a workplan
9073: --IF workplan_structure THEN
9074: --IF p_called_from_api <> 'MOVE_TASK_VERSION' THEN
9075: IF PA_PROJ_ELEMENTS_UTILS.structure_type(
9076: p_structure_version_id => null
9077: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
9078: ,p_structure_type => 'WORKPLAN' ) = 'Y' THEN
9079:
9347: --Ansari
9348: --Call update wbs number
9349: --hsiu: bug 2800553: performance changes: not called when deleting structure
9350: IF (p_calling_module <> 'DEL_STRUCT') THEN
9351: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
9352: p_commit => p_commit
9353: ,p_debug_mode => p_debug_mode
9354: ,p_parent_structure_ver_id => x_parent_struc_ver_id
9355: ,p_task_id => null
9513: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
9514: -- record_version_number = record_version_number + 1
9515: WHERE parent_structure_version_id = x_parent_struc_ver_id
9516: AND (display_sequence > l_selected_seq_num)
9517: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
9518: EXCEPTION
9519: WHEN OTHERS THEN
9520: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
9521: raise FND_API.G_EXC_ERROR;
9844: BEGIN
9845: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) = 'CANCELLED'
9846: THEN
9847: l_versioning_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( p_project_id );
9848: l_parent_struc_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_project_id, 'WORKPLAN' );
9849:
9850: --Store the whole branch of published version under p_task_id in pl/sql table.
9851: FOR cur_task_hier_rec IN cur_task_hier(l_parent_struc_ver_id) LOOP
9852: i := i + 1;