[Home] [Help]
165:
166: l_api_name CONSTANT VARCHAR(30) := 'CREATE_TASK';
167: l_api_version CONSTANT NUMBER := 1.0;
168:
169: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
170: l_return_status VARCHAR2(1);
171: l_msg_count NUMBER;
172: l_msg_data VARCHAR2(250);
173: l_data VARCHAR2(250);
253: END IF;
254:
255: --Bug 2168170
256:
257: IF PA_PROJ_ELEMENTS_UTILS.Check_element_number_Unique
258: (
259: p_element_number => rtrim(p_task_number)
260: ,p_element_id => null
261: ,p_project_id => p_project_id
775: -- end xxlu changes
776: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
777: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
778: -- Bug#3491609 : Workflow Chanegs FP M
779: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
780: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
781: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
782: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
783: -- Bug#3491609 : Workflow Chanegs FP M
776: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
777: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
778: -- Bug#3491609 : Workflow Chanegs FP M
779: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
780: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
781: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
782: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
783: -- Bug#3491609 : Workflow Chanegs FP M
784: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
777: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
778: -- Bug#3491609 : Workflow Chanegs FP M
779: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
780: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
781: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
782: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
783: -- Bug#3491609 : Workflow Chanegs FP M
784: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
785: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
778: -- Bug#3491609 : Workflow Chanegs FP M
779: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
780: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
781: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
782: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
783: -- Bug#3491609 : Workflow Chanegs FP M
784: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
785: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
786: x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
788: ) IS
789: l_api_name CONSTANT VARCHAR(30) := 'UPDATE_TASK';
790: l_api_version CONSTANT NUMBER := 1.0;
791:
792: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
793: l_return_status VARCHAR2(1);
794: l_msg_count NUMBER;
795: l_msg_data VARCHAR2(250);
796: l_data VARCHAR2(250);
811: l_project_id NUMBER;
812:
813: CURSOR get_mgr_info IS
814: select ppe.MANAGER_PERSON_ID, papf.FULL_NAME
815: from pa_proj_elements ppe, per_all_people_f papf
816: where ppe.proj_element_id = p_task_id
817: AND ppe.manager_person_id = papf.person_id
818: AND trunc(sysdate) between papf.effective_start_date
819: and nvl(papf.effective_end_date, sysdate+1); --Included by avaithia for Bug # 3448680
850:
851: l_cur_project_id NUMBER;
852: CURSOR cur_proj_id IS
853: SELECT project_id
854: FROM pa_proj_elements
855: WHERE proj_element_id = p_task_id;
856:
857: CURSOR cur_trans_dates ( c_task_id NUMBER ) IS
858: SELECT START_DATE, COMPLETION_DATE
860: WHERE task_id = c_task_id;
861:
862: CURSOR cur_task_attr IS
863: SELECT pe.ELEMENT_NUMBER, pe.NAME, pe.DESCRIPTION, hou.name
864: FROM pa_proj_elements pe, hr_all_organization_units hou
865: WHERE pe.proj_element_id = p_task_id
866: AND pe.carrying_out_organization_id = hou.organization_id;
867:
868: --Bug 3940203 avaithia
1097: --Lock row
1098: IF( p_validate_only <> FND_API.G_TRUE) THEN
1099: BEGIN
1100: select 'x' into l_dummy
1101: from PA_PROJ_ELEMENTS
1102: where proj_element_id = p_task_id
1103: and record_version_number = p_record_version_number
1104: for update of record_version_number NOWAIT;
1105: EXCEPTION
1125:
1126: --check record_version_number
1127: BEGIN
1128: select 'x' into l_dummy
1129: from PA_PROJ_ELEMENTS
1130: where proj_element_id = p_task_id
1131: and record_version_number = p_record_version_number;
1132: EXCEPTION
1133: WHEN NO_DATA_FOUND THEN
1180: ((p_task_manager_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
1181: (p_task_manager_id IS NOT NULL)) THEN
1182: --Call Check API.
1183: select project_id into l_project_id
1184: from PA_PROJ_ELEMENTS
1185: where proj_element_id = p_task_id;
1186:
1187: select MANAGER_PERSON_ID into l_cur_task_mgr_person_id
1188: from pa_proj_elements
1184: from PA_PROJ_ELEMENTS
1185: where proj_element_id = p_task_id;
1186:
1187: select MANAGER_PERSON_ID into l_cur_task_mgr_person_id
1188: from pa_proj_elements
1189: where proj_element_id = p_task_id;
1190:
1191: If (p_task_manager_id <> l_cur_task_mgr_person_id)
1192: OR (l_cur_task_mgr_person_id IS NULL)
1224: (p_task_manager_name IS NOT NULL)) THEN
1225: --Call Check API.
1226: --added for task manager changes
1227: select project_id into l_project_id
1228: from PA_PROJ_ELEMENTS
1229: where proj_element_id = p_task_id;
1230:
1231: OPEN get_mgr_info;
1232: FETCH get_mgr_info INTO l_cur_task_mgr_person_id, l_cur_task_mgr_person;
1605: ) IS
1606: l_api_name CONSTANT VARCHAR(30) := 'CREATE_TASK_VERSION';
1607: l_api_version CONSTANT NUMBER := 1.0;
1608:
1609: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1610: l_return_status VARCHAR2(1);
1611: l_msg_count NUMBER;
1612: l_msg_data VARCHAR2(250);
1613: l_data VARCHAR2(250);
1816: ) IS
1817: l_api_name CONSTANT VARCHAR(30) := 'UPDATE_TASK_VERSION';
1818: l_api_version CONSTANT NUMBER := 1.0;
1819:
1820: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1821: l_return_status VARCHAR2(1);
1822: l_msg_count NUMBER;
1823: l_msg_data VARCHAR2(250);
1824: l_data VARCHAR2(250);
2034: ) IS
2035: l_api_name CONSTANT VARCHAR(30) := 'DELETE_TASK_VERSION';
2036: l_api_version CONSTANT NUMBER := 1.0;
2037:
2038: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2039: l_return_status VARCHAR2(1);
2040: l_msg_count NUMBER;
2041: l_msg_data VARCHAR2(250);
2042: l_data VARCHAR2(250);
2093: CURSOR get_task_info(c_task_version_id NUMBER) IS
2094: select a.project_id, b.proj_element_id, parent_structure_version_id,
2095: TASK_UNPUB_VER_STATUS_CODE, b.link_task_flag
2096: from pa_proj_element_versions a,
2097: pa_proj_elements b --bug 4501280
2098: where element_version_id = c_task_version_id
2099: --bug 4501280
2100: AND a.proj_element_id = b.proj_element_id
2101: AND a.project_id = b.project_id
2286: */
2287: --6023347: No need to check tasks if complete version is to be deleted from Workplan Version Disabling
2288: IF p_calling_from <> 'DEL_WP_STRUC_DISABLE_VERSION' THEN -- 6023347
2289: --Check if it is okay to delete task version. Also checks financial task
2290: PA_PROJ_ELEMENTS_UTILS.Check_Del_all_task_Ver_Ok(p_project_id => l_task_info_rec.project_id
2291: ,p_task_version_id => p_task_version_id
2292: ,p_parent_structure_ver_id => l_structure_version_id -- 4068685
2293: ,x_return_status => l_return_status
2294: ,x_error_message_code => l_error_msg_code);
2623: ) IS
2624: l_api_name CONSTANT VARCHAR(30) := 'CREATE_SCHEDULE_VERSION';
2625: l_api_version CONSTANT NUMBER := 1.0;
2626:
2627: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2628: l_return_status VARCHAR2(1);
2629: l_msg_count NUMBER;
2630: l_msg_data VARCHAR2(250);
2631: l_data VARCHAR2(250);
2874:
2875: l_api_name CONSTANT VARCHAR(30) := 'Update_Schedule_Version';
2876: l_api_version CONSTANT NUMBER := 1.0;
2877:
2878: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2879: l_return_status VARCHAR2(1);
2880: l_msg_count NUMBER;
2881: l_msg_data VARCHAR2(250);
2882: l_data VARCHAR2(250);
3308: ) IS
3309: l_api_name CONSTANT VARCHAR(30) := 'COPY_TASK';
3310: l_api_version CONSTANT NUMBER := 1.0;
3311:
3312: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
3313: l_return_status VARCHAR2(1);
3314: l_msg_count NUMBER;
3315: l_msg_data VARCHAR2(2000); --bug 3637956
3316: l_data VARCHAR2(2000); --bug 3637956
3405: b.attribute14,
3406: b.attribute15,
3407: Financial_Task_Flag -- FP_M changes 3305199 Bhumesh
3408: FROM pa_proj_element_versions b,
3409: pa_proj_elements c
3410: WHERE b.proj_element_id = c.proj_element_id
3411: AND c.link_task_flag = 'N'
3412: AND p_copy_option IN ( 'PA_TASK_SUBTASK', 'PA_ENTIRE_VERSION' )
3413: /*
3508: ,WF_ITEM_TYPE
3509: ,WF_PROCESS
3510: ,WF_START_LEAD_DAYS
3511: ,BASE_PERCENT_COMP_DERIV_CODE
3512: FROM pa_proj_elements
3513: WHERE proj_element_id = p_proj_element_id;
3514:
3515: cur_proj_elems_rec cur_proj_elems%ROWTYPE;
3516:
3886: (p_src_project_name IS NOT NULL)) OR
3887: ((p_src_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
3888: (p_src_project_id IS NOT NULL)) THEN
3889: --Call Check API.
3890: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
3891: p_project_name => p_src_project_name,
3892: p_project_id => p_src_project_id,
3893: x_project_id => l_src_project_id,
3894: x_return_status => l_return_status,
3953: --Call Check API.
3954:
3955: --dbms_output.put_line( 'Before Id to name conv. task_Ver_Name_Or_Id' );
3956:
3957: PA_PROJ_ELEMENTS_UTILS.task_Ver_Name_Or_Id
3958: (
3959: p_task_name => p_src_task_name
3960: ,p_task_version_id => p_src_task_version_id
3961: ,p_structure_version_id => l_src_structure_version_id
4166: IF (l_peer_or_sub = 'PEER') THEN
4167: OPEN get_parent_version_id(l_ref_task_version_id);
4168: FETCH get_parent_version_id into l_parent_ver_id;
4169: CLOSE get_parent_version_id;
4170: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
4171: p_parent_task_ver_id => l_parent_ver_id
4172: ,x_return_status => l_return_status
4173: ,x_error_message_code => l_error_msg_code);
4174:
4177: p_msg_name => l_error_msg_code);
4178: raise FND_API.G_EXC_ERROR;
4179: END IF;
4180: ELSE
4181: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
4182: p_parent_task_ver_id => l_ref_task_version_id
4183: ,x_return_status => l_return_status
4184: ,x_error_message_code => l_error_msg_code
4185: );
4216:
4217: --check the task is a lowest task bug 3301192
4218: IF p_dest_structure_version_id <> p_dest_task_version_id /* reference should not be str ver */
4219: THEN
4220: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_dest_task_version_id );
4221: END IF;
4222:
4223: --dbms_output.put_line( 'l_element_version_id '||l_element_version_id );
4224:
5106: -- END OF BLOCK MOVED FOR P1 BUG 4210796
5107:
5108: IF l_wp_type = 'Y' AND p_dest_structure_version_id <> p_dest_task_version_id
5109: THEN
5110: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_dest_task_version_id );
5111:
5112: IF l_lowest_task_flag1 = 'Y' AND
5113: l_lowest_task_flag2 = 'N' /* reference task is no more a lowest task therefore call delete planning api */
5114: THEN
5527: --end bug 3053281
5528: --3035902: process update flag changes
5529: cursor get_task_type_id(c_proj_element_id NUMBER) IS
5530: select type_id
5531: from pa_proj_elements
5532: where proj_element_id = c_proj_element_id;
5533: l_task_type_id NUMBER;
5534: --3035902: end process update flag changes
5535:
5741: INTO l_proj_element_id
5742: FROM PA_PROJ_ELEMENT_VERSIONS
5743: WHERE element_version_id = p_task_version_id;
5744:
5745: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
5746: l_proj_element_id)) THEN
5747: --Indenting a task with phase. Error
5748: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_MOVE_PHASE_TASK');
5749: END IF;
5810: end if;
5811:
5812: --hsiu added for task status
5813: --check if ok to move this task
5814: PA_PROJ_ELEMENTS_UTILS.check_move_task_ok(
5815: p_task_ver_id => p_task_version_id
5816: ,x_return_status => l_return_status
5817: ,x_error_message_code => l_error_msg_code
5818: );
5846: END IF;
5847: END IF;
5848: --end bug 3069306
5849:
5850: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
5851: p_parent_task_ver_id => l_parent_ver_id
5852: ,x_return_status => l_return_status
5853: ,x_error_message_code => l_error_msg_code
5854: );
5885: END IF;
5886: END IF;
5887: --end bug 3069306
5888:
5889: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
5890: p_parent_task_ver_id => p_ref_task_version_id
5891: ,x_return_status => l_return_status
5892: ,x_error_message_code => l_error_msg_code
5893: );
5914: --check the task is a lowest task bug 3301192
5915:
5916: IF l_ref_parent_struct_ver_id <> p_ref_task_version_id
5917: THEN
5918: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_ref_task_version_id );
5919: END IF;
5920: --
5921: --Bug No 3475920
5922: IF p_peer_or_sub = 'PEER' THEN
5919: END IF;
5920: --
5921: --Bug No 3475920
5922: IF p_peer_or_sub = 'PEER' THEN
5923: l_ref_parent_task_ver_id:=PA_PROJ_ELEMENTS_UTILS.GET_PARENT_TASK_VERSION_ID(p_ref_task_version_id);
5924: ELSE
5925: l_ref_parent_task_ver_id:=p_ref_task_version_id;
5926: END IF;
5927: --
5924: ELSE
5925: l_ref_parent_task_ver_id:=p_ref_task_version_id;
5926: END IF;
5927: --
5928: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,l_ref_parent_task_ver_id) = 'Y' THEN
5929: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5930: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
5931: RAISE FND_API.G_EXC_ERROR;
5932: END IF;
6014:
6015: IF l_fin_type = 'Y' -- 4269830 this is equivalent to cur_struc_type%FOUND
6016: THEN
6017:
6018: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(l_proj_element_id); --bug 3301192 move in pa_tasks also if it exists there.
6019:
6020: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y') OR
6021: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
6022: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
6415: */
6416: IF l_wp_type = 'Y'
6417: AND l_ref_parent_struct_ver_id <> p_ref_task_version_id /* make sure that the reference is not a str ver */
6418: THEN
6419: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_ref_task_version_id );
6420: IF l_lowest_task_flag1 = 'Y' AND
6421: l_lowest_task_flag2 = 'N'
6422: THEN
6423: l_task_ver_ids2.extend(1); /* Venky */
6649: --added on 08-JAN-2002
6650: --check if task are linked task
6651: IF (p_structure_version_id IS NOT NULL) AND
6652: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
6653: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
6654: p_structure_version_id,
6655: p_task_version_id)) THEN
6656: --deleting linked task. Error
6657: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
6683: INTO l_proj_element_id, l_wbs_level, l_display_sequence, l_parent_structure_version_id
6684: FROM PA_PROJ_ELEMENT_VERSIONS
6685: WHERE element_version_id = p_task_version_id;
6686:
6687: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
6688: l_proj_element_id)) THEN
6689: --Indenting a task with phase. Error
6690: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
6691: END IF;
6790:
6791:
6792: --hsiu added for task status
6793: --Check if ok to indent this task
6794: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
6795: p_task_ver_id => p_task_version_id
6796: ,x_return_status => l_return_status
6797: ,x_error_message_code => l_error_msg_code
6798: );
6807: IF (l_peer_or_sub = 'PEER') THEN
6808: OPEN get_parent_version_id(l_ref_task_version_id);
6809: FETCH get_parent_version_id into l_parent_ver_id;
6810: CLOSE get_parent_version_id;
6811: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
6812: p_parent_task_ver_id => l_parent_ver_id
6813: ,x_return_status => l_return_status
6814: ,x_error_message_code => l_error_msg_code
6815: );
6819: p_msg_name => l_error_msg_code);
6820: raise FND_API.G_EXC_ERROR;
6821: END IF;
6822: ELSE
6823: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
6824: p_parent_task_ver_id => l_ref_task_version_id
6825: ,x_return_status => l_return_status
6826: ,x_error_message_code => l_error_msg_code
6827: );
6877:
6878: --dbms_output.put_line( 'Indent Task Stage 12 ' );
6879:
6880:
6881: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
6882: ( p_commit => p_commit
6883: ,p_debug_mode => p_debug_mode
6884: ,p_parent_structure_ver_id => l_parent_structure_version_id
6885: ,p_task_id => p_task_version_id
7210: --added on 08-JAN-2002
7211: --check if task are linked task
7212: IF (p_structure_version_id IS NOT NULL) AND
7213: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7214: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
7215: p_structure_version_id,
7216: p_task_version_id)) THEN
7217: --deleting linked task. Error
7218: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
7292: AND display_sequence < l_display_sequence);
7293:
7294: --hsiu added for task status
7295: --Check if ok to outdent this task
7296: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
7297: p_task_ver_id => p_task_version_id
7298: ,x_return_status => l_return_status
7299: ,x_error_message_code => l_error_msg_code
7300: );
7307:
7308: OPEN get_parent_version_id(l_ref_task_version_id);
7309: FETCH get_parent_version_id into l_parent_ver_id;
7310: CLOSE get_parent_version_id;
7311: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7312: p_parent_task_ver_id => l_parent_ver_id
7313: ,x_return_status => l_return_status
7314: ,x_error_message_code => l_error_msg_code
7315: );
7356: INTO l_parent_structure_version_id
7357: FROM PA_PROJ_ELEMENT_VERSIONS
7358: WHERE element_version_id = p_task_version_id;
7359:
7360: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
7361: ( p_commit => p_commit
7362: ,p_debug_mode => p_debug_mode
7363: ,p_parent_structure_ver_id => l_parent_structure_version_id
7364: ,p_task_id => p_task_version_id
7930: IF (l_peer_or_sub = 'PEER') THEN
7931: OPEN get_parent_version_id(l_ref_task_ver_id);
7932: FETCH get_parent_version_id into l_parent_ver_id;
7933: CLOSE get_parent_version_id;
7934: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7935: p_parent_task_ver_id => l_parent_ver_id
7936: ,x_return_status => l_return_status
7937: ,x_error_message_code => l_error_msg_code
7938: );
7942: p_msg_name => l_error_msg_code);
7943: raise API_ERROR;
7944: END IF;
7945: ELSE
7946: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7947: p_parent_task_ver_id => l_ref_task_ver_id
7948: ,x_return_status => l_return_status
7949: ,x_error_message_code => l_error_msg_code
7950: );
8456: SELECT sum(ppevs.duration)
8457: FROM pa_proj_elem_ver_schedule ppevs,
8458: pa_object_relationships por,
8459: pa_proj_element_versions ppev,
8460: pa_proj_elements ppe,
8461: pa_task_types ptt
8462: WHERE por.object_id_from1 = c_parent_element_version_id
8463: AND por.object_type_to = 'PA_TASKS'
8464: AND por.relationship_type = 'S'
8491: IS
8492: SELECT ptt.prog_entry_enable_flag, ppe.project_id /* for bug 2822963 */
8493: FROM pa_task_types ptt,
8494: pa_proj_element_versions ppev,
8495: pa_proj_elements ppe
8496: WHERE ppev.element_version_id = c_element_version_id
8497: AND ppev.proj_element_id = ppe.proj_element_id
8498: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8499: AND ppe.TYPE_ID = ptt.task_type_id;
8512: -- on all the child tasks equally.
8513: CURSOR get_progressible_child_count(c_parent_element_version_id NUMBER)
8514: IS
8515: SELECT count(rel.object_id_to1)
8516: FROM PA_OBJECT_RELATIONSHIPS rel,pa_proj_element_versions ver,pa_proj_elements ele,pa_task_types tt
8517: WHERE rel.object_id_from1 = c_parent_element_version_id
8518: AND rel.object_type_to = 'PA_TASKS'
8519: AND rel.relationship_type = 'S'
8520: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9153: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
9154: SELECT ptt.prog_entry_enable_flag
9155: FROM pa_task_types ptt
9156: , pa_proj_element_versions ppev,
9157: pa_proj_elements ppe
9158: WHERE ppev.element_version_id = c_element_version_id
9159: AND ppev.proj_element_id = ppe.proj_element_id
9160: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
9161: AND ppe.TYPE_ID = ptt.task_type_id;
9310:
9311: --3035902: process update flag changes
9312: cursor get_task_type_id(c_proj_element_id NUMBER) IS
9313: select type_id
9314: from pa_proj_elements
9315: where proj_element_id = c_proj_element_id;
9316: l_task_type_id NUMBER;
9317: l_wp_process_flag VARCHAR2(1);
9318: --3035902: end process update flag changes
9446: -- end hyau Bug 2852753
9447:
9448: IF (p_structure_version_id IS NOT NULL) AND
9449: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
9450: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
9451: p_structure_version_id,
9452: p_task_version_id)) THEN
9453: --deleting linked task. Error
9454: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
9474: -- Lifecycle Phase validation Changes. Check if task has phase associated with it
9475: IF (p_task_version_id IS NOT NULL) AND
9476: (p_task_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
9477:
9478: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
9479: src_proj_element_id)) THEN
9480: --Indenting a task with phase. Error
9481: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
9482: raise FND_API.G_EXC_ERROR;
9572: */
9573:
9574: --Bug No 3475920 Smukka 25/May/04 Checking for deliverable
9575: --bug 4214825, pass the correct ref_task_version
9576: --IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,ref_elem_ver_id) = 'Y' THEN
9577: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
9578: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9579: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
9580: raise FND_API.G_EXC_ERROR;
9573:
9574: --Bug No 3475920 Smukka 25/May/04 Checking for deliverable
9575: --bug 4214825, pass the correct ref_task_version
9576: --IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,ref_elem_ver_id) = 'Y' THEN
9577: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
9578: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9579: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
9580: raise FND_API.G_EXC_ERROR;
9581: END IF;
9580: raise FND_API.G_EXC_ERROR;
9581: END IF;
9582:
9583: --Check if ok to indent this task
9584: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
9585: p_task_ver_id => p_task_version_id
9586: ,x_return_status => l_return_status
9587: ,x_error_message_code => l_error_msg_code
9588: );
9617: END IF;
9618: END IF;
9619: --end bug 3069306
9620:
9621: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
9622: p_parent_task_ver_id => l_parent_ver_id
9623: ,x_return_status => l_return_status
9624: ,x_error_message_code => l_error_msg_code
9625: );
9657: END IF;
9658: --end bug 3069306
9659:
9660:
9661: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
9662: p_parent_task_ver_id => ref_elem_ver_id
9663: ,x_return_status => l_return_status
9664: ,x_error_message_code => l_error_msg_code
9665: );
9700: End If;
9701: End If;
9702:
9703: --check the task is a lowest task bug 3301192
9704: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
9705:
9706: -- End of FP_M changes
9707: /*
9708:
9717: x_return_status => l_return_status,
9718: x_msg_count => l_msg_count,
9719: x_msg_data => l_msg_data );
9720:
9721: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
9722: ( p_commit => p_commit
9723: ,p_debug_mode => p_debug_mode
9724: ,p_parent_structure_ver_id => l_parent_structure_version_id
9725: ,p_task_id => p_task_version_id
10105: l_project_id);
10106: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
10107: l_project_id);
10108:
10109: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --indent in corresponding task in pa_tasks
10110:
10111: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
10112: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
10113: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
10433: --End bug 3010538 (Indent )
10434:
10435: --bug 3301192
10436: --check the task is a lowest task again and check whehter its no more a lowest task.
10437: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
10438:
10439: IF l_lowest_task_flag1 = 'Y' AND
10440: l_lowest_task_flag2 = 'N'
10441: THEN
10621: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
10622: SELECT ptt.prog_entry_enable_flag
10623: FROM pa_task_types ptt
10624: , pa_proj_element_versions ppev,
10625: pa_proj_elements ppe
10626: WHERE ppev.element_version_id = c_element_version_id
10627: AND ppev.proj_element_id = ppe.proj_element_id
10628: AND ppe.TYPE_ID = ptt.task_type_id;
10629:
10837:
10838: --3035902: process update flag changes
10839: cursor get_task_type_id(c_proj_element_id NUMBER) IS
10840: select type_id
10841: from pa_proj_elements
10842: where proj_element_id = c_proj_element_id;
10843: l_task_type_id NUMBER;
10844: l_wp_process_flag VARCHAR2(1);
10845: --3035902: end process update flag changes
10954: -- end hyau Bug 2852753
10955:
10956: IF (p_structure_version_id IS NOT NULL) AND
10957: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
10958: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
10959: p_structure_version_id,
10960: p_task_version_id)) THEN
10961: --deleting linked task. Error
10962: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
11063:
11064: end if;
11065:
11066: --Check if ok to OUTDENT this task
11067: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
11068: p_task_ver_id => p_task_version_id
11069: ,x_return_status => l_return_status
11070: ,x_error_message_code => l_error_msg_code
11071: );
11099: END IF;
11100: END IF;
11101: --end bug 3069306
11102:
11103: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
11104: p_parent_task_ver_id => l_parent_ver_id
11105: ,x_return_status => l_return_status
11106: ,x_error_message_code => l_error_msg_code
11107: );
11134: End If;
11135: End If;
11136:
11137: --check the task is a lowest task bug 3301192
11138: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
11139:
11140: -- End of FP_M changes
11141:
11142: /*
11153: x_return_status => l_return_status,
11154: x_msg_count => l_msg_count,
11155: x_msg_data => l_msg_data );
11156:
11157: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
11158: ( p_commit => p_commit
11159: ,p_debug_mode => p_debug_mode
11160: ,p_parent_structure_ver_id => l_parent_structure_version_id
11161: ,p_task_id => p_task_version_id
11225: --Need loop to check all new subtasks and see if ok (for deliverable type task)
11226: FOR j IN l_element_version_id_tab.FIRST..l_element_version_id_tab.LAST LOOP
11227: --check if moving to subtask ok
11228: IF (l_element_version_id_tab(j) <> p_task_version_id) Then
11229: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_element_version_id_tab(j)) = 'Y' THEN
11230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11231: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
11232: raise FND_API.G_EXC_ERROR;
11233: END IF;
11686: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
11687: l_project_id);
11688:
11689: --o IF (NVL( l_published_version, 'N' ) = 'N') OR (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y') THEN
11690: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --outdent in corresponding task in pa_tasks
11691:
11692: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
11693: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
11694: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
12070: --End bug 3010538 ( outdent )
12071:
12072: --bug 3301192
12073: --check the task is a lowest task again and check whehter its no more a lowest task.
12074: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
12075:
12076: IF l_lowest_task_flag1 = 'Y' AND
12077: l_lowest_task_flag2 = 'N'
12078: THEN
12217: )
12218:
12219: IS
12220: l_debug_mode VARCHAR2(1) ;
12221: l_element_number pa_proj_elements.element_number%TYPE ;
12222: l_element_name pa_proj_elements.name%TYPE ;
12223: l_msg_count NUMBER := 0;
12224: l_msg_data VARCHAR2(2000);
12225: l_return_status VARCHAR2(1);
12218:
12219: IS
12220: l_debug_mode VARCHAR2(1) ;
12221: l_element_number pa_proj_elements.element_number%TYPE ;
12222: l_element_name pa_proj_elements.name%TYPE ;
12223: l_msg_count NUMBER := 0;
12224: l_msg_data VARCHAR2(2000);
12225: l_return_status VARCHAR2(1);
12226: l_dummy_app_name VARCHAR2(30);
12230:
12231: TYPE l_error_msg_name_tbl_type IS TABLE OF
12232: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
12233: TYPE l_element_name_tbl_type IS TABLE OF
12234: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
12235: TYPE l_element_number_tbl_type IS TABLE OF
12236: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
12237:
12238: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
12232: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
12233: TYPE l_element_name_tbl_type IS TABLE OF
12234: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
12235: TYPE l_element_number_tbl_type IS TABLE OF
12236: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
12237:
12238: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
12239: l_element_name_tbl l_element_name_tbl_type ;
12240: l_element_number_tbl l_element_number_tbl_type ;
12287: SELECT e.element_number
12288: ,e.name
12289: INTO l_element_number
12290: ,l_element_name
12291: FROM pa_proj_elements e
12292: ,pa_proj_element_versions v
12293: WHERE v.element_version_id = p_task_version_id_tbl(i)
12294: AND e.proj_element_id = v.proj_element_id ;
12295:
12943:
12944: )IS
12945: --Bug#3693794 : Performance fix.
12946: --Replaced pa_structures_tasks_v from the from clause
12947: --for cursor task_list. Replaced it with pa_proj_elements
12948: --table which will siffice the current requirement of
12949: --getting source and destination proj_element_id of the task.
12950:
12951: CURSOR task_list( p_project_id_to NUMBER, p_project_id_from NUMBER )
12951: CURSOR task_list( p_project_id_to NUMBER, p_project_id_from NUMBER )
12952: IS
12953: Select source.proj_element_id old_task_id
12954: ,destination.proj_element_id new_task_id
12955: from pa_proj_elements source --Bug#3693794
12956: ,pa_proj_elements destination --Bug#3693794
12957: where source.project_id = p_project_id_from
12958: and source.element_number = destination.element_number
12959: and destination.project_id = p_project_id_to;
12952: IS
12953: Select source.proj_element_id old_task_id
12954: ,destination.proj_element_id new_task_id
12955: from pa_proj_elements source --Bug#3693794
12956: ,pa_proj_elements destination --Bug#3693794
12957: where source.project_id = p_project_id_from
12958: and source.element_number = destination.element_number
12959: and destination.project_id = p_project_id_to;
12960:
13112: (p_planned_effort(i) IS NOT NULL AND
13113: p_planned_effort(i) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
13114: p_planned_effort(i) <> 0) --bug 3802240: Added conditions to skip g_miss
13115: THEN
13116: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_tasks_ver_ids(i) ) = 'Y'
13117: THEN
13118: /* convert ids and planned effort to the called apis params types. */
13119: l_task_ver_ids.extend(1); /* Venky */
13120: l_task_ver_ids(l_task_ver_ids.count) := p_tasks_ver_ids(i);
13372: -- Start modifications for Bug # 3879658.
13373:
13374: cursor cur_progress_status is
13375: select ptt.initial_progress_status_code
13376: from pa_task_types ptt, pa_proj_elements ppe, pa_proj_element_versions ppev
13377: where ppev.project_id = ppe.project_id
13378: and ppev.proj_element_id = ppe.proj_element_id
13379: and ppe.type_id = ptt.task_type_id
13380: and ppe.project_id = p_project_id
13396:
13397: CURSOR cur_proj_elements(c_proj_element_id NUMBER)
13398: IS
13399: SELECT decode( ppe.base_percent_comp_deriv_code, null, ptt.base_percent_comp_deriv_code, '^', ptt.base_percent_comp_deriv_code, ppe.base_percent_comp_deriv_code )
13400: from pa_proj_elements ppe
13401: ,pa_task_types ptt
13402: where ppe.project_id = p_project_id
13403: and ppe.proj_element_id = c_proj_element_id
13404: and ppe.type_id = ptt.task_type_id;
13688: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_etc_effort='||l_etc_effort, x_Log_Level=> 3);
13689: END IF;
13690:
13691: --bug 3959087, start
13692: l_lowest_level_task := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_ver_id );
13693: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id, p_task_ver_id, 'PA_TASKS');
13694:
13695: IF l_debug_mode = 'Y' THEN
13696: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_DET_SCH_INFO', x_Msg => 'l_lowest_level_task='||l_lowest_level_task, x_Log_Level=> 3);
13699: --bug 3959087, end
13700:
13701: -- Call: pa_fp_planning_transaction_pub.update_planning_transactions().
13702:
13703: --IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_ver_id ) = 'Y' AND
13704: IF (l_lowest_level_task = 'Y' AND --bug 3959087
13705: PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id, 'WORKPLAN') = 'Y'
13706: -- Progress Management Changes, Bug # 3420093.
13707: --AND PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_task_ver_id,p_object_type) = 'N' --bug 3864543
14813: (p_src_project_name IS NOT NULL)) OR
14814: ((p_src_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
14815: (p_src_project_id IS NOT NULL)) THEN
14816: --Call Check API.
14817: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
14818: p_project_name => p_src_project_name,
14819: p_project_id => p_src_project_id,
14820: x_project_id => l_src_project_id,
14821: x_return_status => l_return_status,
15813: IF l_debug_mode = 'Y' THEN
15814: pa_debug.write(l_module_name,'Calling Check_chg_stat_cancel_ok', 3);
15815: END IF;
15816:
15817: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok
15818: (
15819: p_task_id => p_task_id
15820: ,p_task_version_id => p_task_version_id
15821: ,p_new_task_status => p_cancel_status_code
16010: l_task_error_tbl l_task_error_tbl_type;
16011:
16012: cursor l_cur_task_attr(c_project_id NUMBER, c_element_version_id NUMBER) is
16013: select ppe.name, ppev.wbs_number --Bug 6878138
16014: from pa_proj_elements ppe, pa_proj_element_versions ppev
16015: where ppe.project_id = ppev.project_id
16016: and ppe.proj_element_id = ppev.proj_element_id
16017: and ppev.project_id = c_project_id
16018: and ppev.element_version_id = c_element_version_id;
16242: l_task_error_tbl l_task_error_tbl_type;
16243:
16244: cursor l_cur_task_attr(c_project_id NUMBER, c_element_version_id NUMBER) is
16245: select ppe.name, ppev.wbs_number --Bug 6878138
16246: from pa_proj_elements ppe, pa_proj_element_versions ppev
16247: where ppe.project_id = ppev.project_id
16248: and ppe.proj_element_id = ppev.proj_element_id
16249: and ppev.project_id = c_project_id
16250: and ppev.element_version_id = c_element_version_id;