[Home] [Help]
170:
171: l_api_name CONSTANT VARCHAR(30) := 'CREATE_TASK';
172: l_api_version CONSTANT NUMBER := 1.0;
173:
174: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
175: l_return_status VARCHAR2(1);
176: l_msg_count NUMBER;
177: l_msg_data VARCHAR2(250);
178: l_data VARCHAR2(250);
258: END IF;
259:
260: --Bug 2168170
261:
262: IF PA_PROJ_ELEMENTS_UTILS.Check_element_number_Unique
263: (
264: p_element_number => rtrim(p_task_number)
265: ,p_element_id => null
266: ,p_project_id => p_project_id
784: -- end xxlu changes
785: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
786: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
787: -- Bug#3491609 : Workflow Chanegs FP M
788: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
789: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
790: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
791: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
792: -- Bug#3491609 : Workflow Chanegs FP M
785: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
786: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
787: -- Bug#3491609 : Workflow Chanegs FP M
788: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
789: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
790: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
791: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
792: -- Bug#3491609 : Workflow Chanegs FP M
793: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
786: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
787: -- Bug#3491609 : Workflow Chanegs FP M
788: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
789: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
790: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
791: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
792: -- Bug#3491609 : Workflow Chanegs FP M
793: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
794: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
787: -- Bug#3491609 : Workflow Chanegs FP M
788: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
789: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
790: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
791: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
792: -- Bug#3491609 : Workflow Chanegs FP M
793: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
794: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
795: x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
799: ) IS
800: l_api_name CONSTANT VARCHAR(30) := 'UPDATE_TASK';
801: l_api_version CONSTANT NUMBER := 1.0;
802:
803: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
804: l_return_status VARCHAR2(1);
805: l_msg_count NUMBER;
806: l_msg_data VARCHAR2(250);
807: l_data VARCHAR2(250);
822: l_project_id NUMBER;
823:
824: CURSOR get_mgr_info IS
825: select ppe.MANAGER_PERSON_ID, papf.FULL_NAME
826: from pa_proj_elements ppe, per_all_people_f papf
827: where ppe.proj_element_id = p_task_id
828: AND ppe.manager_person_id = papf.person_id
829: AND trunc(sysdate) between papf.effective_start_date
830: and nvl(papf.effective_end_date, sysdate+1); --Included by avaithia for Bug # 3448680
861:
862: l_cur_project_id NUMBER;
863: CURSOR cur_proj_id IS
864: SELECT project_id
865: FROM pa_proj_elements
866: WHERE proj_element_id = p_task_id;
867:
868: CURSOR cur_trans_dates ( c_task_id NUMBER ) IS
869: SELECT START_DATE, COMPLETION_DATE
871: WHERE task_id = c_task_id;
872:
873: CURSOR cur_task_attr IS
874: SELECT pe.ELEMENT_NUMBER, pe.NAME, pe.DESCRIPTION, hou.name
875: FROM pa_proj_elements pe, hr_all_organization_units hou
876: WHERE pe.proj_element_id = p_task_id
877: AND pe.carrying_out_organization_id = hou.organization_id;
878:
879: --Bug 3940203 avaithia
1108: --Lock row
1109: IF( p_validate_only <> FND_API.G_TRUE) THEN
1110: BEGIN
1111: select 'x' into l_dummy
1112: from PA_PROJ_ELEMENTS
1113: where proj_element_id = p_task_id
1114: and record_version_number = p_record_version_number
1115: for update of record_version_number NOWAIT;
1116: EXCEPTION
1136:
1137: --check record_version_number
1138: BEGIN
1139: select 'x' into l_dummy
1140: from PA_PROJ_ELEMENTS
1141: where proj_element_id = p_task_id
1142: and record_version_number = p_record_version_number;
1143: EXCEPTION
1144: WHEN NO_DATA_FOUND THEN
1191: ((p_task_manager_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
1192: (p_task_manager_id IS NOT NULL)) THEN
1193: --Call Check API.
1194: select project_id into l_project_id
1195: from PA_PROJ_ELEMENTS
1196: where proj_element_id = p_task_id;
1197:
1198: select MANAGER_PERSON_ID into l_cur_task_mgr_person_id
1199: from pa_proj_elements
1195: from PA_PROJ_ELEMENTS
1196: where proj_element_id = p_task_id;
1197:
1198: select MANAGER_PERSON_ID into l_cur_task_mgr_person_id
1199: from pa_proj_elements
1200: where proj_element_id = p_task_id;
1201:
1202: If (p_task_manager_id <> l_cur_task_mgr_person_id)
1203: OR (l_cur_task_mgr_person_id IS NULL)
1235: (p_task_manager_name IS NOT NULL)) THEN
1236: --Call Check API.
1237: --added for task manager changes
1238: select project_id into l_project_id
1239: from PA_PROJ_ELEMENTS
1240: where proj_element_id = p_task_id;
1241:
1242: OPEN get_mgr_info;
1243: FETCH get_mgr_info INTO l_cur_task_mgr_person_id, l_cur_task_mgr_person;
1618: ) IS
1619: l_api_name CONSTANT VARCHAR(30) := 'CREATE_TASK_VERSION';
1620: l_api_version CONSTANT NUMBER := 1.0;
1621:
1622: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1623: l_return_status VARCHAR2(1);
1624: l_msg_count NUMBER;
1625: l_msg_data VARCHAR2(250);
1626: l_data VARCHAR2(250);
1829: ) IS
1830: l_api_name CONSTANT VARCHAR(30) := 'UPDATE_TASK_VERSION';
1831: l_api_version CONSTANT NUMBER := 1.0;
1832:
1833: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1834: l_return_status VARCHAR2(1);
1835: l_msg_count NUMBER;
1836: l_msg_data VARCHAR2(250);
1837: l_data VARCHAR2(250);
2047: ) IS
2048: l_api_name CONSTANT VARCHAR(30) := 'DELETE_TASK_VERSION';
2049: l_api_version CONSTANT NUMBER := 1.0;
2050:
2051: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2052: l_return_status VARCHAR2(1);
2053: l_msg_count NUMBER;
2054: l_msg_data VARCHAR2(250);
2055: l_data VARCHAR2(250);
2106: CURSOR get_task_info(c_task_version_id NUMBER) IS
2107: select a.project_id, b.proj_element_id, parent_structure_version_id,
2108: TASK_UNPUB_VER_STATUS_CODE, b.link_task_flag
2109: from pa_proj_element_versions a,
2110: pa_proj_elements b --bug 4501280
2111: where element_version_id = c_task_version_id
2112: --bug 4501280
2113: AND a.proj_element_id = b.proj_element_id
2114: AND a.project_id = b.project_id
2160: SELECT /*+ NO_UNNEST */ 1
2161: FROM WF_NOTIFICATION_ATTRIBUTES
2162: WHERE notification_id = wfn.notification_id
2163: AND name = 'TASK_NUMBER'
2164: AND text_value like (select element_number from pa_proj_elements
2165: where proj_element_id = c_task_id)
2166: )
2167: AND EXISTS (
2168: SELECT /*+ NO_UNNEST */ 1
2336: */
2337: --6023347: No need to check tasks if complete version is to be deleted from Workplan Version Disabling
2338: IF p_calling_from <> 'DEL_WP_STRUC_DISABLE_VERSION' THEN -- 6023347
2339: --Check if it is okay to delete task version. Also checks financial task
2340: PA_PROJ_ELEMENTS_UTILS.Check_Del_all_task_Ver_Ok(p_project_id => l_task_info_rec.project_id
2341: ,p_task_version_id => p_task_version_id
2342: ,p_parent_structure_ver_id => l_structure_version_id -- 4068685
2343: ,x_return_status => l_return_status
2344: ,x_error_message_code => l_error_msg_code);
2673: ) IS
2674: l_api_name CONSTANT VARCHAR(30) := 'CREATE_SCHEDULE_VERSION';
2675: l_api_version CONSTANT NUMBER := 1.0;
2676:
2677: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2678: l_return_status VARCHAR2(1);
2679: l_msg_count NUMBER;
2680: l_msg_data VARCHAR2(250);
2681: l_data VARCHAR2(250);
2924:
2925: l_api_name CONSTANT VARCHAR(30) := 'Update_Schedule_Version';
2926: l_api_version CONSTANT NUMBER := 1.0;
2927:
2928: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
2929: l_return_status VARCHAR2(1);
2930: l_msg_count NUMBER;
2931: l_msg_data VARCHAR2(250);
2932: l_data VARCHAR2(250);
3360: ) IS
3361: l_api_name CONSTANT VARCHAR(30) := 'COPY_TASK';
3362: l_api_version CONSTANT NUMBER := 1.0;
3363:
3364: l_task_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
3365: l_return_status VARCHAR2(1);
3366: l_msg_count NUMBER;
3367: l_msg_data VARCHAR2(2000); --bug 3637956
3368: l_data VARCHAR2(2000); --bug 3637956
3474: b.attribute14,
3475: b.attribute15,
3476: Financial_Task_Flag -- FP_M changes 3305199 Bhumesh
3477: FROM pa_proj_element_versions b,
3478: pa_proj_elements c
3479: WHERE b.proj_element_id = c.proj_element_id
3480: AND c.link_task_flag = 'N'
3481: AND p_copy_option IN ( 'PA_TASK_SUBTASK', 'PA_ENTIRE_VERSION' )
3482: /*
3577: ,WF_ITEM_TYPE
3578: ,WF_PROCESS
3579: ,WF_START_LEAD_DAYS
3580: ,BASE_PERCENT_COMP_DERIV_CODE
3581: FROM pa_proj_elements
3582: WHERE proj_element_id = p_proj_element_id;
3583:
3584: cur_proj_elems_rec cur_proj_elems%ROWTYPE;
3585:
4054: (p_src_project_name IS NOT NULL)) OR
4055: ((p_src_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
4056: (p_src_project_id IS NOT NULL)) THEN
4057: --Call Check API.
4058: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
4059: p_project_name => p_src_project_name,
4060: p_project_id => p_src_project_id,
4061: x_project_id => l_src_project_id,
4062: x_return_status => l_return_status,
4121: --Call Check API.
4122:
4123: --dbms_output.put_line( 'Before Id to name conv. task_Ver_Name_Or_Id' );
4124:
4125: PA_PROJ_ELEMENTS_UTILS.task_Ver_Name_Or_Id
4126: (
4127: p_task_name => p_src_task_name
4128: ,p_task_version_id => p_src_task_version_id
4129: ,p_structure_version_id => l_src_structure_version_id
4334: IF (l_peer_or_sub = 'PEER') THEN
4335: OPEN get_parent_version_id(l_ref_task_version_id);
4336: FETCH get_parent_version_id into l_parent_ver_id;
4337: CLOSE get_parent_version_id;
4338: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
4339: p_parent_task_ver_id => l_parent_ver_id
4340: ,x_return_status => l_return_status
4341: ,x_error_message_code => l_error_msg_code);
4342:
4345: p_msg_name => l_error_msg_code);
4346: raise FND_API.G_EXC_ERROR;
4347: END IF;
4348: ELSE
4349: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
4350: p_parent_task_ver_id => l_ref_task_version_id
4351: ,x_return_status => l_return_status
4352: ,x_error_message_code => l_error_msg_code
4353: );
4384:
4385: --check the task is a lowest task bug 3301192
4386: IF p_dest_structure_version_id <> p_dest_task_version_id /* reference should not be str ver */
4387: THEN
4388: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_dest_task_version_id );
4389: END IF;
4390:
4391: --dbms_output.put_line( 'l_element_version_id '||l_element_version_id );
4392:
5381: -- END OF BLOCK MOVED FOR P1 BUG 4210796
5382:
5383: IF l_wp_type = 'Y' AND p_dest_structure_version_id <> p_dest_task_version_id
5384: THEN
5385: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_dest_task_version_id );
5386:
5387: IF l_lowest_task_flag1 = 'Y' AND
5388: l_lowest_task_flag2 = 'N' /* reference task is no more a lowest task therefore call delete planning api */
5389: THEN
5802: --end bug 3053281
5803: --3035902: process update flag changes
5804: cursor get_task_type_id(c_proj_element_id NUMBER) IS
5805: select type_id
5806: from pa_proj_elements
5807: where proj_element_id = c_proj_element_id;
5808: l_task_type_id NUMBER;
5809: --3035902: end process update flag changes
5810:
6016: INTO l_proj_element_id
6017: FROM PA_PROJ_ELEMENT_VERSIONS
6018: WHERE element_version_id = p_task_version_id;
6019:
6020: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
6021: l_proj_element_id)) THEN
6022: --Indenting a task with phase. Error
6023: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_MOVE_PHASE_TASK');
6024: END IF;
6085: end if;
6086:
6087: --hsiu added for task status
6088: --check if ok to move this task
6089: PA_PROJ_ELEMENTS_UTILS.check_move_task_ok(
6090: p_task_ver_id => p_task_version_id
6091: ,x_return_status => l_return_status
6092: ,x_error_message_code => l_error_msg_code
6093: );
6128: END IF;
6129: END IF;
6130: --end bug 3069306
6131:
6132: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
6133: p_parent_task_ver_id => l_parent_ver_id
6134: ,x_return_status => l_return_status
6135: ,x_error_message_code => l_error_msg_code
6136: );
6167: END IF;
6168: END IF;
6169: --end bug 3069306
6170:
6171: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
6172: p_parent_task_ver_id => p_ref_task_version_id
6173: ,x_return_status => l_return_status
6174: ,x_error_message_code => l_error_msg_code
6175: );
6196: --check the task is a lowest task bug 3301192
6197:
6198: IF l_ref_parent_struct_ver_id <> p_ref_task_version_id
6199: THEN
6200: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_ref_task_version_id );
6201: END IF;
6202: --
6203: --Bug No 3475920
6204: IF p_peer_or_sub = 'PEER' THEN
6201: END IF;
6202: --
6203: --Bug No 3475920
6204: IF p_peer_or_sub = 'PEER' THEN
6205: l_ref_parent_task_ver_id:=PA_PROJ_ELEMENTS_UTILS.GET_PARENT_TASK_VERSION_ID(p_ref_task_version_id);
6206: ELSE
6207: l_ref_parent_task_ver_id:=p_ref_task_version_id;
6208: END IF;
6209: --
6206: ELSE
6207: l_ref_parent_task_ver_id:=p_ref_task_version_id;
6208: END IF;
6209: --
6210: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,l_ref_parent_task_ver_id) = 'Y' THEN
6211: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6212: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
6213: RAISE FND_API.G_EXC_ERROR;
6214: END IF;
6296:
6297: IF l_fin_type = 'Y' -- 4269830 this is equivalent to cur_struc_type%FOUND
6298: THEN
6299:
6300: 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.
6301:
6302: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y') OR
6303: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
6304: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
6697: */
6698: IF l_wp_type = 'Y'
6699: AND l_ref_parent_struct_ver_id <> p_ref_task_version_id /* make sure that the reference is not a str ver */
6700: THEN
6701: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_ref_task_version_id );
6702: IF l_lowest_task_flag1 = 'Y' AND
6703: l_lowest_task_flag2 = 'N'
6704: THEN
6705: l_task_ver_ids2.extend(1); /* Venky */
6980: INTO l_proj_element_id, l_wbs_level, l_display_sequence, l_parent_structure_version_id
6981: FROM PA_PROJ_ELEMENT_VERSIONS
6982: WHERE element_version_id = p_task_version_id;
6983:
6984: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
6985: l_proj_element_id)) THEN
6986: --Indenting a task with phase. Error
6987: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
6988: END IF;
7087:
7088:
7089: --hsiu added for task status
7090: --Check if ok to indent this task
7091: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
7092: p_task_ver_id => p_task_version_id
7093: ,x_return_status => l_return_status
7094: ,x_error_message_code => l_error_msg_code
7095: );
7104: IF (l_peer_or_sub = 'PEER') THEN
7105: OPEN get_parent_version_id(l_ref_task_version_id);
7106: FETCH get_parent_version_id into l_parent_ver_id;
7107: CLOSE get_parent_version_id;
7108: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7109: p_parent_task_ver_id => l_parent_ver_id
7110: ,x_return_status => l_return_status
7111: ,x_error_message_code => l_error_msg_code
7112: );
7116: p_msg_name => l_error_msg_code);
7117: raise FND_API.G_EXC_ERROR;
7118: END IF;
7119: ELSE
7120: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7121: p_parent_task_ver_id => l_ref_task_version_id
7122: ,x_return_status => l_return_status
7123: ,x_error_message_code => l_error_msg_code
7124: );
7174:
7175: --dbms_output.put_line( 'Indent Task Stage 12 ' );
7176:
7177:
7178: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
7179: ( p_commit => p_commit
7180: ,p_debug_mode => p_debug_mode
7181: ,p_parent_structure_ver_id => l_parent_structure_version_id
7182: ,p_task_id => p_task_version_id
7507: --added on 08-JAN-2002
7508: --check if task are linked task
7509: IF (p_structure_version_id IS NOT NULL) AND
7510: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7511: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
7512: p_structure_version_id,
7513: p_task_version_id)) THEN
7514: --deleting linked task. Error
7515: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
7589: AND display_sequence < l_display_sequence);
7590:
7591: --hsiu added for task status
7592: --Check if ok to outdent this task
7593: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
7594: p_task_ver_id => p_task_version_id
7595: ,x_return_status => l_return_status
7596: ,x_error_message_code => l_error_msg_code
7597: );
7604:
7605: OPEN get_parent_version_id(l_ref_task_version_id);
7606: FETCH get_parent_version_id into l_parent_ver_id;
7607: CLOSE get_parent_version_id;
7608: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
7609: p_parent_task_ver_id => l_parent_ver_id
7610: ,x_return_status => l_return_status
7611: ,x_error_message_code => l_error_msg_code
7612: );
7653: INTO l_parent_structure_version_id
7654: FROM PA_PROJ_ELEMENT_VERSIONS
7655: WHERE element_version_id = p_task_version_id;
7656:
7657: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
7658: ( p_commit => p_commit
7659: ,p_debug_mode => p_debug_mode
7660: ,p_parent_structure_ver_id => l_parent_structure_version_id
7661: ,p_task_id => p_task_version_id
8227: IF (l_peer_or_sub = 'PEER') THEN
8228: OPEN get_parent_version_id(l_ref_task_ver_id);
8229: FETCH get_parent_version_id into l_parent_ver_id;
8230: CLOSE get_parent_version_id;
8231: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
8232: p_parent_task_ver_id => l_parent_ver_id
8233: ,x_return_status => l_return_status
8234: ,x_error_message_code => l_error_msg_code
8235: );
8239: p_msg_name => l_error_msg_code);
8240: raise API_ERROR;
8241: END IF;
8242: ELSE
8243: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
8244: p_parent_task_ver_id => l_ref_task_ver_id
8245: ,x_return_status => l_return_status
8246: ,x_error_message_code => l_error_msg_code
8247: );
8819: SELECT sum(ppevs.duration)
8820: FROM pa_proj_elem_ver_schedule ppevs,
8821: pa_object_relationships por,
8822: pa_proj_element_versions ppev,
8823: pa_proj_elements ppe,
8824: pa_task_types ptt
8825: WHERE por.object_id_from1 = c_parent_element_version_id
8826: AND por.object_type_to = 'PA_TASKS'
8827: AND por.relationship_type = 'S'
8854: IS
8855: SELECT ptt.prog_entry_enable_flag, ppe.project_id /* for bug 2822963 */
8856: FROM pa_task_types ptt,
8857: pa_proj_element_versions ppev,
8858: pa_proj_elements ppe
8859: WHERE ppev.element_version_id = c_element_version_id
8860: AND ppev.proj_element_id = ppe.proj_element_id
8861: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
8862: AND ppe.TYPE_ID = ptt.task_type_id;
8875: -- on all the child tasks equally.
8876: CURSOR get_progressible_child_count(c_parent_element_version_id NUMBER)
8877: IS
8878: SELECT count(rel.object_id_to1)
8879: FROM PA_OBJECT_RELATIONSHIPS rel,pa_proj_element_versions ver,pa_proj_elements ele,pa_task_types tt
8880: WHERE rel.object_id_from1 = c_parent_element_version_id
8881: AND rel.object_type_to = 'PA_TASKS'
8882: AND rel.relationship_type = 'S'
8883: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
9516: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
9517: SELECT ptt.prog_entry_enable_flag
9518: FROM pa_task_types ptt
9519: , pa_proj_element_versions ppev,
9520: pa_proj_elements ppe
9521: WHERE ppev.element_version_id = c_element_version_id
9522: AND ppev.proj_element_id = ppe.proj_element_id
9523: AND ptt.object_type = 'PA_TASKS' /* for bug 3279978 FP M Enhancement */
9524: AND ppe.TYPE_ID = ptt.task_type_id;
9673:
9674: --3035902: process update flag changes
9675: cursor get_task_type_id(c_proj_element_id NUMBER) IS
9676: select type_id
9677: from pa_proj_elements
9678: where proj_element_id = c_proj_element_id;
9679: l_task_type_id NUMBER;
9680: l_wp_process_flag VARCHAR2(1);
9681: --3035902: end process update flag changes
9854: -- Lifecycle Phase validation Changes. Check if task has phase associated with it
9855: IF (p_task_version_id IS NOT NULL) AND
9856: (p_task_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
9857:
9858: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
9859: src_proj_element_id)) THEN
9860: --Indenting a task with phase. Error
9861: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
9862: raise FND_API.G_EXC_ERROR;
9952: */
9953:
9954: --Bug No 3475920 Smukka 25/May/04 Checking for deliverable
9955: --bug 4214825, pass the correct ref_task_version
9956: --IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,ref_elem_ver_id) = 'Y' THEN
9957: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
9958: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9959: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
9960: raise FND_API.G_EXC_ERROR;
9953:
9954: --Bug No 3475920 Smukka 25/May/04 Checking for deliverable
9955: --bug 4214825, pass the correct ref_task_version
9956: --IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,ref_elem_ver_id) = 'Y' THEN
9957: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
9958: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9959: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
9960: raise FND_API.G_EXC_ERROR;
9961: END IF;
9960: raise FND_API.G_EXC_ERROR;
9961: END IF;
9962:
9963: --Check if ok to indent this task
9964: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
9965: p_task_ver_id => p_task_version_id
9966: ,x_return_status => l_return_status
9967: ,x_error_message_code => l_error_msg_code
9968: );
9997: END IF;
9998: END IF;
9999: --end bug 3069306
10000:
10001: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
10002: p_parent_task_ver_id => l_parent_ver_id
10003: ,x_return_status => l_return_status
10004: ,x_error_message_code => l_error_msg_code
10005: );
10037: END IF;
10038: --end bug 3069306
10039:
10040:
10041: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
10042: p_parent_task_ver_id => ref_elem_ver_id
10043: ,x_return_status => l_return_status
10044: ,x_error_message_code => l_error_msg_code
10045: );
10080: End If;
10081: End If;
10082:
10083: --check the task is a lowest task bug 3301192
10084: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
10085:
10086: -- End of FP_M changes
10087: /*
10088:
10097: x_return_status => l_return_status,
10098: x_msg_count => l_msg_count,
10099: x_msg_data => l_msg_data );
10100:
10101: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
10102: ( p_commit => p_commit
10103: ,p_debug_mode => p_debug_mode
10104: ,p_parent_structure_ver_id => l_parent_structure_version_id
10105: ,p_task_id => p_task_version_id
10485: l_project_id);
10486: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
10487: l_project_id);
10488:
10489: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --indent in corresponding task in pa_tasks
10490:
10491: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
10492: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
10493: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
10813: --End bug 3010538 (Indent )
10814:
10815: --bug 3301192
10816: --check the task is a lowest task again and check whehter its no more a lowest task.
10817: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
10818:
10819: IF l_lowest_task_flag1 = 'Y' AND
10820: l_lowest_task_flag2 = 'N'
10821: THEN
11001: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
11002: SELECT ptt.prog_entry_enable_flag
11003: FROM pa_task_types ptt
11004: , pa_proj_element_versions ppev,
11005: pa_proj_elements ppe
11006: WHERE ppev.element_version_id = c_element_version_id
11007: AND ppev.proj_element_id = ppe.proj_element_id
11008: AND ppe.TYPE_ID = ptt.task_type_id;
11009:
11217:
11218: --3035902: process update flag changes
11219: cursor get_task_type_id(c_proj_element_id NUMBER) IS
11220: select type_id
11221: from pa_proj_elements
11222: where proj_element_id = c_proj_element_id;
11223: l_task_type_id NUMBER;
11224: l_wp_process_flag VARCHAR2(1);
11225: --3035902: end process update flag changes
11348: -- end hyau Bug 2852753
11349:
11350: IF (p_structure_version_id IS NOT NULL) AND
11351: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
11352: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
11353: p_structure_version_id,
11354: p_task_version_id)) THEN
11355: --deleting linked task. Error
11356: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
11457:
11458: end if;
11459:
11460: --Check if ok to OUTDENT this task
11461: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
11462: p_task_ver_id => p_task_version_id
11463: ,x_return_status => l_return_status
11464: ,x_error_message_code => l_error_msg_code
11465: );
11493: END IF;
11494: END IF;
11495: --end bug 3069306
11496:
11497: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
11498: p_parent_task_ver_id => l_parent_ver_id
11499: ,x_return_status => l_return_status
11500: ,x_error_message_code => l_error_msg_code
11501: );
11507: END IF;
11508:
11509: --Bug 16013002
11510: -- Check if the task which is going to outdent is financial or not
11511: l_fin_task_flag := PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(src_proj_element_id);
11512: IF l_fin_task_flag='Y' THEN
11513: OPEN cur_child_tasks_exists(ref_elem_ver_id, src_seq_number);
11514: FETCH cur_child_tasks_exists INTO l_child_task_exists;
11515: -- check if there exists peer tasks (which are set to financial tasks) below to the task which is going to outdent
11550: End If;
11551: End If;
11552:
11553: --check the task is a lowest task bug 3301192
11554: l_lowest_task_flag1 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
11555:
11556: -- End of FP_M changes
11557:
11558: /*
11569: x_return_status => l_return_status,
11570: x_msg_count => l_msg_count,
11571: x_msg_data => l_msg_data );
11572:
11573: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
11574: ( p_commit => p_commit
11575: ,p_debug_mode => p_debug_mode
11576: ,p_parent_structure_ver_id => l_parent_structure_version_id
11577: ,p_task_id => p_task_version_id
11641: --Need loop to check all new subtasks and see if ok (for deliverable type task)
11642: FOR j IN l_element_version_id_tab.FIRST..l_element_version_id_tab.LAST LOOP
11643: --check if moving to subtask ok
11644: IF (l_element_version_id_tab(j) <> p_task_version_id) Then
11645: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_element_version_id_tab(j)) = 'Y' THEN
11646: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11647: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
11648: raise FND_API.G_EXC_ERROR;
11649: END IF;
12102: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(
12103: l_project_id);
12104:
12105: --o IF (NVL( l_published_version, 'N' ) = 'N') OR (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y') THEN
12106: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(src_proj_element_id); --outdent in corresponding task in pa_tasks
12107:
12108: IF (NVL( l_published_version, 'N' ) = 'N' AND l_fin_task_flag = 'Y' ) OR
12109: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' AND l_fin_task_flag = 'Y' )
12110: OR ((l_published_version = 'Y') AND (l_shared = 'N') AND (l_fin_task_flag = 'Y')) -- Bug # 5064340. -- To accomodate split financial tasks.
12486: --End bug 3010538 ( outdent )
12487:
12488: --bug 3301192
12489: --check the task is a lowest task again and check whehter its no more a lowest task.
12490: l_lowest_task_flag2 := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_version_id );
12491:
12492: IF l_lowest_task_flag1 = 'Y' AND
12493: l_lowest_task_flag2 = 'N'
12494: THEN
12633: )
12634:
12635: IS
12636: l_debug_mode VARCHAR2(1) ;
12637: l_element_number pa_proj_elements.element_number%TYPE ;
12638: l_element_name pa_proj_elements.name%TYPE ;
12639: l_msg_count NUMBER := 0;
12640: l_msg_data VARCHAR2(2000);
12641: l_return_status VARCHAR2(1);
12634:
12635: IS
12636: l_debug_mode VARCHAR2(1) ;
12637: l_element_number pa_proj_elements.element_number%TYPE ;
12638: l_element_name pa_proj_elements.name%TYPE ;
12639: l_msg_count NUMBER := 0;
12640: l_msg_data VARCHAR2(2000);
12641: l_return_status VARCHAR2(1);
12642: l_dummy_app_name VARCHAR2(30);
12646:
12647: TYPE l_error_msg_name_tbl_type IS TABLE OF
12648: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
12649: TYPE l_element_name_tbl_type IS TABLE OF
12650: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
12651: TYPE l_element_number_tbl_type IS TABLE OF
12652: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
12653:
12654: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
12648: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
12649: TYPE l_element_name_tbl_type IS TABLE OF
12650: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
12651: TYPE l_element_number_tbl_type IS TABLE OF
12652: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
12653:
12654: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
12655: l_element_name_tbl l_element_name_tbl_type ;
12656: l_element_number_tbl l_element_number_tbl_type ;
12749: SELECT e.element_number
12750: ,e.name
12751: INTO l_element_number
12752: ,l_element_name
12753: FROM pa_proj_elements e
12754: ,pa_proj_element_versions v
12755: WHERE v.element_version_id = p_task_version_id_tbl(i)
12756: AND e.proj_element_id = v.proj_element_id ;
12757:
13467:
13468: )IS
13469: --Bug#3693794 : Performance fix.
13470: --Replaced pa_structures_tasks_v from the from clause
13471: --for cursor task_list. Replaced it with pa_proj_elements
13472: --table which will siffice the current requirement of
13473: --getting source and destination proj_element_id of the task.
13474:
13475: CURSOR task_list( p_project_id_to NUMBER, p_project_id_from NUMBER )
13475: CURSOR task_list( p_project_id_to NUMBER, p_project_id_from NUMBER )
13476: IS
13477: Select source.proj_element_id old_task_id
13478: ,destination.proj_element_id new_task_id
13479: from pa_proj_elements source --Bug#3693794
13480: ,pa_proj_elements destination --Bug#3693794
13481: where source.project_id = p_project_id_from
13482: and source.element_number = destination.element_number
13483: and destination.project_id = p_project_id_to;
13476: IS
13477: Select source.proj_element_id old_task_id
13478: ,destination.proj_element_id new_task_id
13479: from pa_proj_elements source --Bug#3693794
13480: ,pa_proj_elements destination --Bug#3693794
13481: where source.project_id = p_project_id_from
13482: and source.element_number = destination.element_number
13483: and destination.project_id = p_project_id_to;
13484:
13636: (p_planned_effort(i) IS NOT NULL AND
13637: p_planned_effort(i) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
13638: p_planned_effort(i) <> 0) --bug 3802240: Added conditions to skip g_miss
13639: THEN
13640: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_tasks_ver_ids(i) ) = 'Y'
13641: THEN
13642: /* convert ids and planned effort to the called apis params types. */
13643: l_task_ver_ids.extend(1); /* Venky */
13644: l_task_ver_ids(l_task_ver_ids.count) := p_tasks_ver_ids(i);
13896: -- Start modifications for Bug # 3879658.
13897:
13898: cursor cur_progress_status is
13899: select ptt.initial_progress_status_code
13900: from pa_task_types ptt, pa_proj_elements ppe, pa_proj_element_versions ppev
13901: where ppev.project_id = ppe.project_id
13902: and ppev.proj_element_id = ppe.proj_element_id
13903: and ppe.type_id = ptt.task_type_id
13904: and ppe.project_id = p_project_id
13920:
13921: CURSOR cur_proj_elements(c_proj_element_id NUMBER)
13922: IS
13923: 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 )
13924: from pa_proj_elements ppe
13925: ,pa_task_types ptt
13926: where ppe.project_id = p_project_id
13927: and ppe.proj_element_id = c_proj_element_id
13928: and ppe.type_id = ptt.task_type_id;
14212: 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);
14213: END IF;
14214:
14215: --bug 3959087, start
14216: l_lowest_level_task := PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_ver_id );
14217: l_assignment_exists := PA_PROGRESS_UTILS.check_assignment_exists(p_project_id, p_task_ver_id, 'PA_TASKS');
14218:
14219: IF l_debug_mode = 'Y' THEN
14220: 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);
14223: --bug 3959087, end
14224:
14225: -- Call: pa_fp_planning_transaction_pub.update_planning_transactions().
14226:
14227: --IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => p_task_ver_id ) = 'Y' AND
14228: IF (l_lowest_level_task = 'Y' AND --bug 3959087
14229: PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(p_structure_version_id, 'WORKPLAN') = 'Y'
14230: -- Progress Management Changes, Bug # 3420093.
14231: --AND PA_PROGRESS_UTILS.check_assignment_exists(p_project_id,p_task_ver_id,p_object_type) = 'N' --bug 3864543
15344: (p_src_project_name IS NOT NULL)) OR
15345: ((p_src_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
15346: (p_src_project_id IS NOT NULL)) THEN
15347: --Call Check API.
15348: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
15349: p_project_name => p_src_project_name,
15350: p_project_id => p_src_project_id,
15351: x_project_id => l_src_project_id,
15352: x_return_status => l_return_status,
16072: l_tcnt := 0; -- added for --bug 8301015
16073:
16074: FOR i in p_task_id_tbl.FIRST .. p_task_id_tbl.LAST LOOP
16075: -- Changes for --bug 8301015
16076: IF ('Y' = PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(p_task_id_tbl(i))) THEN
16077:
16078: SELECT pt.project_id,
16079: pt.parent_task_id,
16080: pt.start_date,
16470: IF l_debug_mode = 'Y' THEN
16471: pa_debug.write(l_module_name,'Calling Check_chg_stat_cancel_ok', 3);
16472: END IF;
16473:
16474: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok
16475: (
16476: p_task_id => p_task_id
16477: ,p_task_version_id => p_task_version_id
16478: ,p_new_task_status => p_cancel_status_code
16667: l_task_error_tbl l_task_error_tbl_type;
16668:
16669: cursor l_cur_task_attr(c_project_id NUMBER, c_element_version_id NUMBER) is
16670: select ppe.name, ppev.wbs_number --Bug 6878138
16671: from pa_proj_elements ppe, pa_proj_element_versions ppev
16672: where ppe.project_id = ppev.project_id
16673: and ppe.proj_element_id = ppev.proj_element_id
16674: and ppev.project_id = c_project_id
16675: and ppev.element_version_id = c_element_version_id;
16899: l_task_error_tbl l_task_error_tbl_type;
16900:
16901: cursor l_cur_task_attr(c_project_id NUMBER, c_element_version_id NUMBER) is
16902: select ppe.name, ppev.wbs_number --Bug 6878138
16903: from pa_proj_elements ppe, pa_proj_element_versions ppev
16904: where ppe.project_id = ppev.project_id
16905: and ppe.proj_element_id = ppev.proj_element_id
16906: and ppev.project_id = c_project_id
16907: and ppev.element_version_id = c_element_version_id;
17092: l_msg_name VARCHAR2(30);
17093: l_msg_index_out NUMBER ;
17094: l_task_id_tbl SYSTEM.PA_NUM_TBL_TYPE;
17095:
17096: l_project_id pa_proj_elements.project_id%TYPE;
17097: l_task_start_date DATE;
17098: l_task_finish_date DATE;
17099: l_org_id NUMBER;
17100:
17100:
17101: TYPE l_error_msg_name_tbl_type IS TABLE OF
17102: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
17103: TYPE l_element_name_tbl_type IS TABLE OF
17104: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
17105: TYPE l_element_number_tbl_type IS TABLE OF
17106: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
17107:
17108: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
17102: fnd_new_messages.message_text%TYPE INDEX BY BINARY_INTEGER ;
17103: TYPE l_element_name_tbl_type IS TABLE OF
17104: pa_proj_elements.name%TYPE INDEX BY BINARY_INTEGER ;
17105: TYPE l_element_number_tbl_type IS TABLE OF
17106: pa_proj_elements.element_number%TYPE INDEX BY BINARY_INTEGER ;
17107:
17108: l_error_msg_name_tbl l_error_msg_name_tbl_type ;
17109: l_element_name_tbl l_element_name_tbl_type ;
17110: l_element_number_tbl l_element_number_tbl_type ;
17125: SELECT /*+ NO_UNNEST */ 1
17126: FROM WF_NOTIFICATION_ATTRIBUTES
17127: WHERE notification_id = wfn.notification_id
17128: AND name = 'TASK_NUMBER'
17129: AND text_value like (select element_number from pa_proj_elements
17130: where proj_element_id = c_task_id)
17131: )
17132: AND EXISTS (
17133: SELECT /*+ NO_UNNEST */ 1
17138: where project_id = c_project_id)
17139: );
17140:
17141: cursor parent_task_status(c_task_id NUMBER) is
17142: select task_status,ppe.proj_element_id from pa_proj_elements ppe where
17143: ppe.proj_element_id =
17144: (select ppev1.proj_element_id from pa_proj_element_versions ppev1,pa_object_relationships por
17145: where por.object_id_to1 = (select element_version_id from pa_proj_element_versions ppev2
17146: where proj_element_id = c_task_id)
17183: for i in p_task_id_tbl.FIRST..p_task_id_tbl.LAST loop
17184:
17185: select ppvsch.scheduled_start_date,ppvsch.scheduled_finish_date
17186: into l_task_start_date,l_task_finish_date
17187: from pa_proj_elem_ver_schedule ppvsch,pa_proj_elements ppe,pa_proj_element_versions ppv
17188: where ppe.proj_element_id = ppv.proj_element_id
17189: and ppv.element_version_id = ppvsch.element_version_id
17190: and ppe.proj_element_id = p_task_id_tbl(i);
17191:
17236: set status = 'CLOSED'
17237: where notification_id = l_ntf_id ;
17238: end if;
17239:
17240: UPDATE PA_PROJ_ELEMENTS SET link_task_flag = 'N', task_status = ''
17241: WHERE proj_element_id = l_task_id_tbl(i);
17242:
17243: FOR ci_info IN C3(l_project_id, l_task_id_tbl(i)) LOOP
17244: