[Home] [Help]
107: l_return_status VARCHAR2(2);
108: l_error_message_code VARCHAR2(250);
109:
110: l_rowid VARCHAR2(255);
111: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
112: l_structure_type_id PA_STRUCTURE_TYPES.STRUCTURE_TYPE_ID%TYPE;
113: l_proj_structure_type_id PA_PROJ_STRUCTURE_TYPES.PROJ_STRUCTURE_TYPE_ID%TYPE;
114: l_structure_type PA_STRUCTURE_TYPES.STRUCTURE_TYPE_CLASS_CODE%TYPE;
115:
331: END IF;
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: --Insert into pa_proj_elements
336: select PA_TASKS_S.NEXTVAL into l_proj_element_id from sys.dual;
337:
338: PA_PROJ_ELEMENTS_PKG.insert_row(
339: X_ROW_ID => l_rowid
334:
335: --Insert into pa_proj_elements
336: select PA_TASKS_S.NEXTVAL into l_proj_element_id from sys.dual;
337:
338: PA_PROJ_ELEMENTS_PKG.insert_row(
339: X_ROW_ID => l_rowid
340: ,X_PROJ_ELEMENT_ID => l_proj_element_id
341: ,X_PROJECT_ID => p_project_id
342: ,X_OBJECT_TYPE => 'PA_STRUCTURES'
660: l_attribute15 VARCHAR2(150) := NULL;
661:
662: l_dummy number;
663:
664: CURSOR getid is select project_id from pa_proj_elements
665: where proj_element_id = p_structure_id;
666:
667: CURSOR cur_elem_ver_seq IS
668: SELECT pa_proj_element_versions_s.nextval
929: IS
930:
931: l_rowid VARCHAR2(255);
932: l_project_id PA_PROJECTS_ALL.PROJECT_ID%TYPE;
933: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
934: l_return_status VARCHAR2(1);
935: l_msg_count NUMBER;
936: l_msg_data VARCHAR2(250);
937:
1422: IS
1423:
1424: l_rowid VARCHAR2(255);
1425: l_project_id PA_PROJECTS_ALL.PROJECT_ID%TYPE;
1426: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1427: l_msg_count NUMBER;
1428: l_msg_data VARCHAR2(250);
1429:
1430:
1427: l_msg_count NUMBER;
1428: l_msg_data VARCHAR2(250);
1429:
1430:
1431: l_element_number PA_PROJ_ELEMENTS.element_number%TYPE;
1432: l_name PA_PROJ_ELEMENTS.name%TYPE;
1433: l_description PA_PROJ_ELEMENTS.description%TYPE;
1434: l_attribute_category VARCHAR2(30);
1435: l_attribute1 VARCHAR2(150);
1428: l_msg_data VARCHAR2(250);
1429:
1430:
1431: l_element_number PA_PROJ_ELEMENTS.element_number%TYPE;
1432: l_name PA_PROJ_ELEMENTS.name%TYPE;
1433: l_description PA_PROJ_ELEMENTS.description%TYPE;
1434: l_attribute_category VARCHAR2(30);
1435: l_attribute1 VARCHAR2(150);
1436: l_attribute2 VARCHAR2(150);
1429:
1430:
1431: l_element_number PA_PROJ_ELEMENTS.element_number%TYPE;
1432: l_name PA_PROJ_ELEMENTS.name%TYPE;
1433: l_description PA_PROJ_ELEMENTS.description%TYPE;
1434: l_attribute_category VARCHAR2(30);
1435: l_attribute1 VARCHAR2(150);
1436: l_attribute2 VARCHAR2(150);
1437: l_attribute3 VARCHAR2(150);
1470: attribute12,
1471: attribute13,
1472: attribute14,
1473: attribute15
1474: from pa_proj_elements
1475: where proj_element_id = p_structure_id;
1476: BEGIN
1477: IF (p_debug_mode = 'Y') THEN
1478: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE begin');
1607: END IF;
1608: RAISE FND_API.G_EXC_ERROR;
1609: END IF;
1610:
1611: PA_PROJ_ELEMENTS_PKG.UPDATE_ROW(
1612: X_ROW_ID => l_rowid
1613: ,X_PROJ_ELEMENT_ID => p_structure_id
1614: ,X_PROJECT_ID => l_project_id
1615: ,X_OBJECT_TYPE => 'PA_STRUCTURES'
2320: -- Begin fix for Bug # 4506308.
2321:
2322: cursor l_cur_projects_all(c_structure_id NUMBER) is
2323: select ppa.project_id, ppa.record_version_number
2324: from pa_projects_all ppa, pa_proj_elements ppe
2325: where ppa.project_id = ppe.project_id
2326: and ppe.proj_element_id = c_structure_id;
2327:
2328: l_project_id NUMBER;
2382: IF (p_validate_only <> FND_API.G_TRUE) THEN
2383: BEGIN
2384: --lock
2385: select rowid into l_rowid
2386: from pa_proj_elements
2387: where proj_element_id = p_structure_id
2388: and record_version_number = p_record_version_number
2389: for update of record_version_number NOWAIT;
2390: EXCEPTION
2407: END;
2408: ELSE
2409: BEGIN
2410: select rowid into l_rowid
2411: from pa_proj_elements
2412: where proj_element_id = p_structure_id
2413: and record_version_number = p_record_version_number;
2414: EXCEPTION
2415: when NO_DATA_FOUND then
2430: raise FND_API.G_EXC_ERROR;
2431: end if;
2432:
2433:
2434: PA_PROJ_ELEMENTS_PKG.DELETE_ROW(
2435: X_ROW_ID => l_rowid
2436: );
2437:
2438: x_return_status := FND_API.G_RET_STS_SUCCESS;
2788: CURSOR cur_last_working_ver( p_structure_id NUMBER )
2789: IS
2790: select str.element_version_id
2791: from pa_proj_elem_ver_structure str,
2792: pa_proj_elements ppe
2793: where ppe.proj_element_id = p_structure_id
2794: and ppe.project_id = str.project_id
2795: and ppe.proj_element_id = str.proj_element_id
2796: and str.status_code = 'STRUCTURE_WORKING'
3137:
3138: Cursor get_linking_tasks IS
3139: select a.element_version_id
3140: from pa_proj_element_versions a,
3141: pa_proj_elements b
3142: where a.proj_element_id = b.proj_element_id
3143: and a.parent_structure_version_id = p_structure_version_id
3144: and b.link_task_flag = 'Y';
3145: l_linking_task_rec get_linking_tasks%ROWTYPE;
3570: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
3571: RAISE FND_API.G_EXC_ERROR;
3572: END IF;
3573: --Bug No 3450684 Smukka Checking for deliverable type
3574: IF PA_PROJ_ELEMENTS_UTILS.check_sharedstruct_deliv(p_structure_version_id) = 'Y' THEN
3575: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3576: p_msg_name => 'PA_PS_CHK_DEL_FAIL_PUB_STR');
3577: RAISE FND_API.G_EXC_ERROR;
3578: END IF;
3922: EXIT WHEN get_task_versions_csr%NOTFOUND;
3923:
3924: --hsiu added for task version status
3925: --Check if this task can be deleted.
3926: --Call PA_PROJ_ELEMENTS_UTILS.Check_Del_all_task_Ver_Ok
3927: --If ok to be deleted, move on to the next task and don't add this task
3928: -- (goto l_endofloop);
3929: --otherwise add this task and set status to 'CANCELLED'
3930: l_create_task_ver_flag := 'Y';
3941: and object_type_to = 'PA_TASKS';
3942:
3943: --If it is financial task, check if this task should be created
3944:
3945: -- PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
3946: -- p_parent_task_ver_id => l_parent_ver_id
3947: -- ,x_return_status => l_return_status
3948: -- ,x_error_message_code => l_error_message_code);
3949:
3948: -- ,x_error_message_code => l_error_message_code);
3949:
3950: --bug: 2805602
3951: --hsiu: commented because this has been done in check_txn_on_summary_tasks
3952: -- If (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_parent_id) = 'Y') THEN
3953: -- PA_TASK_UTILS.CHECK_CREATE_SUBTASK_OK(x_task_id => l_parent_id,
3954: -- x_err_code => l_err_code,
3955: -- x_err_stack => l_err_stack,
3956: -- x_err_stage => l_err_stage
3965: -- END IF;
3966:
3967: IF (l_task_versions_rec.TASK_UNPUB_VER_STATUS_CODE = 'TO_BE_DELETED') THEN
3968:
3969: PA_PROJ_ELEMENTS_UTILS.Check_Del_all_task_Ver_Ok(
3970: p_project_id => l_task_versions_rec.project_id
3971: ,p_task_version_id => l_task_versions_rec.element_version_id
3972: ,p_parent_structure_ver_id=> l_task_versions_rec.parent_structure_version_id
3973: ,x_return_status => l_return_status
4010: END IF;
4011: END IF;
4012: END IF;
4013: --set task status to cancelled.
4014: UPDATE pa_proj_elements
4015: set status_code = '128',
4016: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,1)+1,
4017: LAST_UPDATE_DATE = SYSDATE,
4018: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
4752: ,l_project_id
4753: ,'PA_PROJECTS'
4754: ,ppev.financial_task_flag
4755: FROM ( SELECT * from pa_proj_element_versions ppev2
4756: --,pa_proj_elements ppe --bug 4573340 commenting out this for bug 4578813
4757: WHERE --bug#3094283 ppev2.project_id = l_project_id
4758: ppev2.parent_structure_version_id = p_structure_version_id
4759: and ppev2.object_type = 'PA_TASKS'
4760: /*
5467: --hsiu: prorate tasks for tasks that have to be deleted peer tasks
5468: l_parent_ver_id := l_parent_tbl.FIRST;
5469: FOR i IN 1..l_parent_tbl.COUNT LOOP
5470: --if it has child then prorate
5471: -- IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_parent_ver_id) = 'N') THEN
5472: OPEN is_summary_elem(l_parent_ver_id);
5473: FETCH is_summary_elem INTO l_dummy;
5474: IF is_summary_elem%FOUND THEN
5475: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
7121:
7122: CURSOR l_get_structure_csr(c_project_id NUMBER)
7123: IS
7124: SELECT *
7125: FROM PA_PROJ_ELEMENTS
7126: WHERE project_id = c_project_id
7127: AND object_type = 'PA_STRUCTURES';
7128:
7129: l_structure_rec l_get_structure_csr%ROWTYPE;
7190: SELECT a.element_version_id, a.proj_element_id, a.display_sequence, a.wbs_level,
7191: b.object_id_from1 parent_element_version_id
7192: FROM PA_PROJ_ELEMENT_VERSIONS a,
7193: PA_OBJECT_RELATIONSHIPS b,
7194: pa_proj_elements c
7195: WHERE a.object_type = 'PA_TASKS'
7196: AND a.parent_structure_version_id = c_structure_version_id
7197: AND a.element_version_id = b.object_id_to1
7198: AND b.relationship_type = 'S'
7239:
7240: CURSOR l_get_tasks_csr(c_project_id NUMBER, c_proj_element_id NUMBER)
7241: IS
7242: SELECT a.*, b.task_number PA_TASK_NUMBER
7243: FROM PA_PROJ_ELEMENTS a,
7244: PA_TASKS b
7245: WHERE a.object_type = 'PA_TASKS'
7246: AND a.project_id = c_project_id
7247: AND a.proj_element_id = c_proj_element_id
7263: --Bug No 3634334 Commented for performance reasons and rewritten the query.
7264: /*CURSOR l_linking_tasks_csr(c_src_project_id NUMBER, c_dest_project_id NUMBER)
7265: IS
7266: select a.task_id
7267: from pa_tasks a, pa_tasks b, pa_proj_elements c
7268: where a.project_id = c_dest_project_id
7269: and b.project_id = c_src_project_id
7270: and a.task_number = b.task_number
7271: and b.task_id = c.proj_element_id
7273:
7274: CURSOR l_linking_tasks_csr(c_src_project_id NUMBER, c_dest_project_id NUMBER)
7275: IS
7276: select /*+ INDEX(a PA_TASKS_U2) */ a.task_id --Bug No 3634334
7277: from pa_tasks a, pa_tasks b, pa_proj_elements c
7278: where a.project_id = c_dest_project_id
7279: and b.project_id = c_src_project_id
7280: and a.task_number = b.task_number
7281: and c.project_id = c_src_project_id --Bug No 3634334
7343: CURSOR l_get_structure_versions_csr(c_project_id NUMBER, c_structure_id NUMBER,
7344: c_option NUMBER)
7345: IS
7346: SELECT distinct(b.element_version_id)
7347: FROM pa_proj_elements a, pa_proj_elem_ver_structure b
7348: WHERE a.project_id = c_project_id
7349: AND a.proj_element_id = c_structure_id
7350: AND a.project_id = b.project_id
7351: AND a.proj_element_id = b.proj_element_id
7363: -- AND c.status_code <> 'STRUCTURE_PUBLISHED')
7364: AND 1 = (c_option)
7365: UNION
7366: SELECT distinct(b.element_version_id)
7367: FROM pa_proj_elements a, pa_proj_elem_ver_structure b
7368: WHERE a.project_id = c_project_id
7369: AND a.proj_element_id = c_structure_id
7370: AND a.project_id = b.project_id
7371: AND a.proj_element_id = b.proj_element_id
7378: (b.status_code <> 'STRUCTURE_PUBLISHED'))
7379: AND 2 = (c_option)
7380: UNION
7381: SELECT distinct(b.element_version_id)
7382: FROM pa_proj_elements a, pa_proj_elem_ver_structure b
7383: WHERE a.project_id = c_project_id
7384: AND a.proj_element_id = c_structure_id
7385: AND a.project_id = b.project_id
7386: AND a.proj_element_id = b.proj_element_id
8066: OPEN get_init_task_stat(l_tasks_rec.TYPE_ID);
8067: FETCH get_init_task_stat into l_init_status_code;
8068: CLOSE get_init_task_stat;
8069:
8070: PA_PROJ_ELEMENTS_PKG.Insert_Row(
8071: X_ROW_ID => l_rowid
8072: ,X_PROJ_ELEMENT_ID => l_task_id
8073: ,X_PROJECT_ID => p_dest_project_id
8074: ,X_OBJECT_TYPE => 'PA_TASKS'
8505: SCHEDULED_FINISH_DATE, ELEMENT_VERSION_ID, DURATION, WBS_NUMBER,
8506: OLD_LEVEL , DISPLAY_SEQUENCE, LEVEL WBS_LEVEL ,
8507: SYS_CONNECT_BY_PATH(task_id, '/') connect_path,
8508: connect_by_isleaf leaf_node
8509: FROM PA_PROJ_ELEMENTS_TMP r
8510: START WITH r.PARENT_TASK_ID IS NULL CONNECT BY
8511: PRIOR r.TASK_ID = r.PARENT_TASK_ID ORDER SIBLINGS BY DISPLAY_SEQUENCE , LEVEL_SEQUENCE;
8512:
8513:
8517: /* Code change for bug#14765516 - Starts */
8518: l_plsql_max_array_size CONSTANT NUMBER := 100;
8519:
8520: TYPE PROJ_ELEMENT_ID_t IS TABLE OF
8521: PA_PROJ_ELEMENTS_TMP.PROJ_ELEMENT_ID%TYPE;
8522: TYPE SCHEDULED_START_DATE_t IS TABLE OF
8523: PA_PROJ_ELEMENTS_TMP.SCHEDULED_START_DATE%TYPE;
8524: TYPE SCHEDULED_FINISH_DATE_t IS TABLE OF
8525: PA_PROJ_ELEMENTS_TMP.SCHEDULED_FINISH_DATE%TYPE;
8519:
8520: TYPE PROJ_ELEMENT_ID_t IS TABLE OF
8521: PA_PROJ_ELEMENTS_TMP.PROJ_ELEMENT_ID%TYPE;
8522: TYPE SCHEDULED_START_DATE_t IS TABLE OF
8523: PA_PROJ_ELEMENTS_TMP.SCHEDULED_START_DATE%TYPE;
8524: TYPE SCHEDULED_FINISH_DATE_t IS TABLE OF
8525: PA_PROJ_ELEMENTS_TMP.SCHEDULED_FINISH_DATE%TYPE;
8526: TYPE ELEMENT_VERSION_ID_t IS TABLE OF
8527: PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
8521: PA_PROJ_ELEMENTS_TMP.PROJ_ELEMENT_ID%TYPE;
8522: TYPE SCHEDULED_START_DATE_t IS TABLE OF
8523: PA_PROJ_ELEMENTS_TMP.SCHEDULED_START_DATE%TYPE;
8524: TYPE SCHEDULED_FINISH_DATE_t IS TABLE OF
8525: PA_PROJ_ELEMENTS_TMP.SCHEDULED_FINISH_DATE%TYPE;
8526: TYPE ELEMENT_VERSION_ID_t IS TABLE OF
8527: PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
8528: TYPE duration_t IS TABLE OF PA_PROJ_ELEMENTS_TMP.duration%TYPE;
8529:
8524: TYPE SCHEDULED_FINISH_DATE_t IS TABLE OF
8525: PA_PROJ_ELEMENTS_TMP.SCHEDULED_FINISH_DATE%TYPE;
8526: TYPE ELEMENT_VERSION_ID_t IS TABLE OF
8527: PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
8528: TYPE duration_t IS TABLE OF PA_PROJ_ELEMENTS_TMP.duration%TYPE;
8529:
8530: TYPE WBS_NUMBER_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.WBS_NUMBER%TYPE;
8531: TYPE OLD_LEVEL_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.OLD_LEVEL%TYPE;
8532: TYPE DISPLAY_SEQUENCE_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.DISPLAY_SEQUENCE%TYPE;
8526: TYPE ELEMENT_VERSION_ID_t IS TABLE OF
8527: PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
8528: TYPE duration_t IS TABLE OF PA_PROJ_ELEMENTS_TMP.duration%TYPE;
8529:
8530: TYPE WBS_NUMBER_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.WBS_NUMBER%TYPE;
8531: TYPE OLD_LEVEL_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.OLD_LEVEL%TYPE;
8532: TYPE DISPLAY_SEQUENCE_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.DISPLAY_SEQUENCE%TYPE;
8533: TYPE WBS_LEVEL_T IS TABLE OF PA_PROJ_ELEMENT_VERSIONS.WBS_LEVEL%TYPE;
8534:
8527: PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
8528: TYPE duration_t IS TABLE OF PA_PROJ_ELEMENTS_TMP.duration%TYPE;
8529:
8530: TYPE WBS_NUMBER_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.WBS_NUMBER%TYPE;
8531: TYPE OLD_LEVEL_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.OLD_LEVEL%TYPE;
8532: TYPE DISPLAY_SEQUENCE_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.DISPLAY_SEQUENCE%TYPE;
8533: TYPE WBS_LEVEL_T IS TABLE OF PA_PROJ_ELEMENT_VERSIONS.WBS_LEVEL%TYPE;
8534:
8535: TYPE connect_path_t IS TABLE OF VARCHAR2(4000);
8528: TYPE duration_t IS TABLE OF PA_PROJ_ELEMENTS_TMP.duration%TYPE;
8529:
8530: TYPE WBS_NUMBER_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.WBS_NUMBER%TYPE;
8531: TYPE OLD_LEVEL_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.OLD_LEVEL%TYPE;
8532: TYPE DISPLAY_SEQUENCE_T IS TABLE OF PA_PROJ_ELEMENTS_TMP.DISPLAY_SEQUENCE%TYPE;
8533: TYPE WBS_LEVEL_T IS TABLE OF PA_PROJ_ELEMENT_VERSIONS.WBS_LEVEL%TYPE;
8534:
8535: TYPE connect_path_t IS TABLE OF VARCHAR2(4000);
8536: TYPE leaf_node_t IS TABLE OF NUMBER;
8576: p_msg_name => 'PA_INVALID_STR_VERSION_ID');
8577: RAISE FND_API.G_EXC_ERROR;
8578: END IF;
8579: /* Added below code to improve performance */
8580: delete PA_PROJ_ELEMENTS_TMP;
8581:
8582: INSERT INTO PA_PROJ_ELEMENTS_TMP(PROJECT_ID, TASK_ID, PARENT_TASK_ID, DISPLAY_SEQUENCE, LEVEL_SEQUENCE, PARENT_STRUCTURE_VERSION_ID,
8583: PROJ_ELEMENT_ID, SCHEDULED_START_DATE, SCHEDULED_FINISH_DATE, ELEMENT_VERSION_ID, DURATION, WBS_NUMBER, OLD_LEVEL, DEFER_CODE, TOP_TASK_ID) /* Modified insert statement for bug#14765516 */
8584: SELECT /*+ ordered use_nl(b a t) index(t pa_tasks_n8) index(a PA_PROJ_ELEMENT_VERSIONS_N1) index(t PA_PROJ_ELEM_VER_SCHEDULE_U2) */
8578: END IF;
8579: /* Added below code to improve performance */
8580: delete PA_PROJ_ELEMENTS_TMP;
8581:
8582: INSERT INTO PA_PROJ_ELEMENTS_TMP(PROJECT_ID, TASK_ID, PARENT_TASK_ID, DISPLAY_SEQUENCE, LEVEL_SEQUENCE, PARENT_STRUCTURE_VERSION_ID,
8583: PROJ_ELEMENT_ID, SCHEDULED_START_DATE, SCHEDULED_FINISH_DATE, ELEMENT_VERSION_ID, DURATION, WBS_NUMBER, OLD_LEVEL, DEFER_CODE, TOP_TASK_ID) /* Modified insert statement for bug#14765516 */
8584: SELECT /*+ ordered use_nl(b a t) index(t pa_tasks_n8) index(a PA_PROJ_ELEMENT_VERSIONS_N1) index(t PA_PROJ_ELEM_VER_SCHEDULE_U2) */
8585: t.project_id , t.task_id , t.parent_task_id , a.display_sequence ,
8586: a.level_sequence, a.parent_structure_version_id , B.PROJ_ELEMENT_ID,
8597: LOOP /* Code change for bug#14765516 - Starts */
8598: FETCH c1 BULK COLLECT INTO v_PROJ_ELEMENT_ID,v_SCHEDULED_START_DATE,v_SCHEDULED_FINISH_DATE,v_ELEMENT_VERSION_ID,v_duration,v_WBS_NUMBER,v_OLD_LEVEL,v_DISPLAY_SEQUENCE,v_WBS_LEVEL,v_connect_path,v_leaf_node LIMIT l_plsql_max_array_size;
8599:
8600: FORALL i in v_PROJ_ELEMENT_ID.first..v_PROJ_ELEMENT_ID.last
8601: UPDATE PA_PROJ_ELEMENTS
8602: SET BASELINE_START_DATE=v_SCHEDULED_START_DATE(i),
8603: BASELINE_FINISH_DATE=v_SCHEDULED_FINISH_DATE(i),
8604: BASELINE_DURATION=v_duration(i),
8605: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,0) + 1
8698: IS
8699: CURSOR c1( c_project_id NUMBER ) IS
8700: SELECT B.PROJ_ELEMENT_ID, B.SCHEDULED_START_DATE,
8701: B.SCHEDULED_FINISH_DATE, A.ELEMENT_VERSION_ID , duration
8702: FROM PA_PROJ_ELEMENT_VERSIONS A, PA_PROJ_ELEM_VER_SCHEDULE B, PA_PROJ_ELEMENTS C
8703: WHERE A.PARENT_STRUCTURE_VERSION_ID = p_structure_version_id
8704: AND A.ELEMENT_VERSION_ID = B.ELEMENT_VERSION_ID
8705: AND A.PROJ_ELEMENT_ID = C.proj_element_id
8706: AND A.PROJECT_ID = B.PROJECT_ID
8711: /* Commented below cursor and replaced with the one above for Huawei enhancement bug 13923366
8712: * bug 13923366 - testing delete_task sceanrio
8713: SELECT B.PROJ_ELEMENT_ID, B.SCHEDULED_START_DATE,
8714: B.SCHEDULED_FINISH_DATE, A.ELEMENT_VERSION_ID , duration
8715: FROM PA_PROJ_ELEMENT_VERSIONS A, PA_PROJ_ELEM_VER_SCHEDULE B, PA_PROJ_ELEMENTS C
8716: WHERE A.PARENT_STRUCTURE_VERSION_ID = p_structure_version_id
8717: AND A.ELEMENT_VERSION_ID = B.ELEMENT_VERSION_ID
8718: AND A.PROJECT_ID = B.PROJECT_ID
8719: AND A.project_id = c_project_id;
8795: FROM PA_PROJ_ELEMENT_VERSIONS
8796: WHERE ELEMENT_VERSION_ID = p_structure_version_id;
8797:
8798: /* Commented for bug 13836957
8799: UPDATE PA_PROJ_ELEMENTS
8800: SET BASELINE_START_DATE= NULL ,
8801: BASELINE_FINISH_DATE= NULL ,
8802: RECORD_VERSION_NUMBER=NVL(RECORD_VERSION_NUMBER,0) + 1
8803: WHERE PROJECT_ID = l_project_id; */
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8843: */
8844: /* Commented for bug 13836957
8845: UPDATE PA_PROJ_ELEMENTS
8846: SET BASELINE_START_DATE=c1_rec.scheduled_start_date,
8847: BASELINE_FINISH_DATE=c1_rec.scheduled_finish_date, -- pa
8848: BASELINE_DURATION=c1_rec.duration,
8849: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,0) + 1
8851: */
8852: /* commented FORALL code for bug 14765516
8853: --Added for Bug13836957
8854: FORALL i in l_data.first..l_data.last
8855: UPDATE PA_PROJ_ELEMENTS
8856: SET BASELINE_START_DATE=l_data(i).SCHEDULED_START_DATE,
8857: BASELINE_FINISH_DATE=l_data(i).SCHEDULED_FINISH_DATE, -- pa
8858: BASELINE_DURATION=l_data(i).duration,
8859: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,0) + 1
8860: WHERE PROJ_ELEMENT_ID = l_data(i).PROJ_ELEMENT_ID;
8861: */
8862: /*Added below FORALL code for bug#14765516*/
8863: FORALL i in v_PROJ_ELEMENT_ID.first..v_PROJ_ELEMENT_ID.last
8864: UPDATE PA_PROJ_ELEMENTS
8865: SET BASELINE_START_DATE=v_SCHEDULED_START_DATE(i),
8866: BASELINE_FINISH_DATE=v_SCHEDULED_FINISH_DATE(i), -- pa
8867: BASELINE_DURATION=v_duration(i),
8868: RECORD_VERSION_NUMBER = NVL(RECORD_VERSION_NUMBER,0) + 1
8952: )
8953: IS
8954: cursor c1 IS
8955: select a.proj_element_id
8956: from pa_proj_elements a,
8957: pa_proj_structure_types b,
8958: pa_structure_types c
8959: where a.project_id = p_project_id
8960: and a.object_type = 'PA_STRUCTURES'
9893:
9894: CURSOR get_wp_attr_rvn IS
9895: select b.proj_element_id, a.record_version_number
9896: from pa_proj_workplan_attr a,
9897: pa_proj_elements b,
9898: pa_proj_structure_types c,
9899: pa_structure_types d
9900: where a.project_id = b.project_id
9901: and a.proj_element_id = b.proj_element_id
9921: and LATEST_EFF_PUBLISHED_FLAG = 'Y';
9922:
9923: cursor sel_wp_structure_id IS
9924: select a.proj_element_id
9925: from pa_proj_elements a,
9926: pa_proj_structure_types b,
9927: pa_structure_types c
9928: where a.project_id = p_project_id
9929: and a.object_type = 'PA_STRUCTURES'
9943:
9944: cursor sel_all_wp_structure_ver(c_struc_id NUMBER) IS
9945: select a.element_version_id, a.record_version_number
9946: from pa_proj_element_versions a,
9947: pa_proj_elements b
9948: where a.proj_element_id = b.proj_element_id
9949: and a.project_id = b.project_id
9950: and b.proj_element_id = c_struc_id;
9951:
9970: l_proj_progress_attr_rec sel_proj_progress_attr%ROWTYPE;
9971:
9972: cursor sel_fin_structure_id IS
9973: select a.proj_element_id
9974: from pa_proj_elements a,
9975: pa_proj_structure_types b,
9976: pa_structure_types c
9977: where a.project_id = p_project_id
9978: and a.object_type = 'PA_STRUCTURES'
10256: LOOP
10257: FETCH get_top_tasks into l_task_ver_id;
10258: EXIT WHEN get_top_tasks%NOTFOUND;
10259:
10260: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
10261: p_project_id => p_project_id
10262: ,p_task_version_id => l_task_ver_id
10263: ,p_parent_structure_ver_id => l_del_struc_ver_id
10264: ,x_return_status => l_return_status
10298: END LOOP;
10299: CLOSE sel_other_structure_ver;
10300:
10301: --NULL all baseline dates
10302: UPDATE pa_proj_elements
10303: SET baseline_start_date = NULL,
10304: baseline_finish_date = NULL,
10305: record_version_number = record_version_number+1
10306: WHERE project_id = p_project_id;
10416: LOOP
10417: FETCH get_top_tasks into l_task_ver_id;
10418: EXIT WHEN get_top_tasks%NOTFOUND;
10419:
10420: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
10421: p_project_id => p_project_id
10422: ,p_task_version_id => l_task_ver_id
10423: ,p_parent_structure_ver_id => l_del_struc_ver_id
10424: ,x_return_status => l_return_status
10526: LOOP
10527: FETCH get_top_tasks into l_task_ver_id;
10528: EXIT WHEN get_top_tasks%NOTFOUND;
10529:
10530: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
10531: p_project_id => p_project_id
10532: ,p_task_version_id => l_task_ver_id
10533: ,p_parent_structure_ver_id => l_del_struc_ver_id
10534: ,x_return_status => l_return_status
10704:
10705: --If it is lowest task, get dates
10706: --hsiu: commented for performance
10707: -- IF (l_object_type = 'PA_TASKS' AND
10708: -- PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_element_version_id) = 'Y') THEN
10709: -- OPEN sel_task_dates(l_task_id);
10710: -- FETCH sel_task_dates into l_start_date, l_completion_date;
10711: -- CLOSE sel_task_dates;
10712:
10767: SYSDATE,
10768: FND_GLOBAL.USER_ID,
10769: SYSDATE,
10770: FND_GLOBAL.USER_ID,
10771: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', decode(PT.COMPLETION_DATE, NULL, trunc(l_target_start_date), trunc(PT.START_DATE))),
10772: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_target_finish_date))),
10773: 'N',
10774: 'N',
10775: l_calendar_id,
10768: FND_GLOBAL.USER_ID,
10769: SYSDATE,
10770: FND_GLOBAL.USER_ID,
10771: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', decode(PT.COMPLETION_DATE, NULL, trunc(l_target_start_date), trunc(PT.START_DATE))),
10772: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_target_finish_date))),
10773: 'N',
10774: 'N',
10775: l_calendar_id,
10776: 0,
10948: LOOP
10949: FETCH get_top_tasks into l_task_ver_id;
10950: EXIT WHEN get_top_tasks%NOTFOUND;
10951:
10952: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
10953: p_project_id => p_project_id
10954: ,p_task_version_id => l_task_ver_id
10955: ,p_parent_structure_ver_id => l_del_struc_ver_id
10956: ,x_return_status => l_return_status
10990: END LOOP;
10991: CLOSE sel_other_structure_ver;
10992:
10993: --NULL all baseline dates
10994: UPDATE pa_proj_elements
10995: SET baseline_start_date = NULL,
10996: baseline_finish_date = NULL,
10997: record_version_number = record_version_number+1
10998: WHERE project_id = p_project_id;
11332:
11333: cursor sel_latest_pub_ver(c_structure_id NUMBER) IS
11334: select a.element_version_id
11335: from pa_proj_elem_ver_structure a,
11336: pa_proj_elements b
11337: where b.proj_element_id = c_structure_id
11338: and b.project_id = a.project_id
11339: and b.proj_element_id = a.proj_element_id
11340: and a.status_code = 'STRUCTURE_PUBLISHED'
11342:
11343: CURSOR get_template_flag IS
11344: select a.template_flag
11345: from pa_projects_all a,
11346: pa_proj_elements b
11347: where a.project_id = b.project_id
11348: and b.proj_element_id = p_proj_element_id;
11349:
11350: cursor sel_struc_ver_attr_rvn(c_struc_ver_id NUMBER) IS
11367:
11368: --bug 3125813
11369: cursor sel_one_struc_ver(c_structure_id NUMBER) IS
11370: select b.project_id, b.element_version_id
11371: from pa_proj_elements a,
11372: pa_proj_element_versions b
11373: where a.proj_element_id = c_structure_id
11374: and a.project_id = b.project_id
11375: and a.proj_element_id = b.proj_element_id;
11664:
11665: cursor get_wp_versions IS
11666: select ppevs.element_version_id
11667: from pa_proj_elem_ver_structure ppevs,
11668: pa_proj_elements ppe,
11669: pa_proj_structure_types ppst,
11670: pa_structure_types pst
11671: where ppevs.status_code <> 'STRUCTURE_PUBLISHED'
11672: and ppevs.project_id = ppe.project_id
11679: and '1' = l_opt
11680: union all
11681: select ppevs.element_version_id
11682: from pa_proj_elem_ver_structure ppevs,
11683: pa_proj_elements ppe,
11684: pa_proj_structure_types ppst,
11685: pa_structure_types pst
11686: where ppevs.status_code = 'STRUCTURE_PUBLISHED'
11687: and ppevs.project_id = ppe.project_id
12276: pev.element_version_id, pev.record_version_number,
12277: pevs.pev_structure_id, pevs.record_version_number,
12278: pevsh.pev_schedule_id, pevsh.record_version_number,
12279: pevsh.rowid
12280: from pa_proj_elements pe,
12281: pa_proj_element_versions pev,
12282: pa_proj_elem_ver_structure pevs,
12283: pa_proj_elem_ver_schedule pevsh
12284: where pev.element_version_id = p_structure_version_id and
12306: from pa_proj_workplan_attr
12307: where proj_element_id = c_proj_element_id;
12308:
12309: l_project_id PA_PROJ_ELEMENT_VERSIONS.PROJECT_ID%TYPE;
12310: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
12311: l_pe_rvn PA_PROJ_ELEMENTS.RECORD_VERSION_NUMBER%TYPE;
12312: l_element_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
12313: l_pev_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
12314: l_pev_structure_id PA_PROJ_ELEM_VER_STRUCTURE.PEV_STRUCTURE_ID%TYPE;
12307: where proj_element_id = c_proj_element_id;
12308:
12309: l_project_id PA_PROJ_ELEMENT_VERSIONS.PROJECT_ID%TYPE;
12310: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
12311: l_pe_rvn PA_PROJ_ELEMENTS.RECORD_VERSION_NUMBER%TYPE;
12312: l_element_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
12313: l_pev_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
12314: l_pev_structure_id PA_PROJ_ELEM_VER_STRUCTURE.PEV_STRUCTURE_ID%TYPE;
12315: l_pevs_rvn PA_PROJ_ELEM_VER_STRUCTURE.RECORD_VERSION_NUMBER%TYPE;
12560:
12561: END IF;
12562:
12563: select record_version_number into l_pe_rvn
12564: from pa_proj_elements where proj_element_id = l_proj_element_id;
12565: PA_PROJECT_STRUCTURE_PVT1.Delete_Structure(
12566: p_commit => p_commit,
12567: p_debug_mode => p_debug_mode,
12568: p_structure_id => l_proj_element_id,
13079: CURSOR check_progress_allowed(c_element_version_id NUMBER) IS
13080: SELECT ptt.prog_entry_enable_flag
13081: FROM pa_task_types ptt
13082: , pa_proj_element_versions ppev
13083: , pa_proj_elements ppe
13084: WHERE ppev.element_version_id = c_element_version_id
13085: AND ppev.proj_element_id = ppe.proj_element_id
13086: AND ptt.object_type ='PA_TASKS' /* bug 3279978 FP M Enhancement */
13087: AND ppe.TYPE_ID = ptt.task_type_id;
13098: SELECT sum(ppevs.duration)
13099: FROM pa_proj_elem_ver_schedule ppevs
13100: , pa_object_relationships por
13101: , pa_proj_element_versions ppev
13102: , pa_proj_elements ppe
13103: , pa_task_types ptt
13104: WHERE por.object_id_from1 = c_parent_element_version_id
13105: AND por.object_type_to = 'PA_TASKS'
13106: AND por.relationship_type = 'S'
13697: ,ppev.element_version_id
13698: ,l_project_id
13699: ,'PA_PROJECTS'
13700: FROM ( SELECT ppev2.* from pa_proj_element_versions ppev2
13701: ,pa_proj_elements ppe --bug 4573340
13702: WHERE -- bug#3094283 ppev2.project_id = l_project_id
13703: ppev2.parent_structure_version_id = p_structure_version_id
13704: --bug 4573340
13705: and ppe.project_id = ppev2.project_id
14254:
14255: CURSOR get_wp_attr_rvn IS
14256: select b.proj_element_id, a.record_version_number
14257: from pa_proj_workplan_attr a,
14258: pa_proj_elements b,
14259: pa_proj_structure_types c,
14260: pa_structure_types d
14261: where a.project_id = b.project_id
14262: and a.proj_element_id = b.proj_element_id
14284: --bug 4054587, replace literal with bind variable
14285: l_wp_structure_code VARCHAR2(10) := 'WORKPLAN';
14286: cursor sel_wp_structure_id IS
14287: select a.proj_element_id
14288: from pa_proj_elements a,
14289: pa_proj_structure_types b,
14290: pa_structure_types c
14291: where a.project_id = p_project_id
14292: and a.object_type = 'PA_STRUCTURES'
14307:
14308: cursor sel_all_wp_structure_ver(c_struc_id NUMBER) IS
14309: select a.element_version_id, a.record_version_number
14310: from pa_proj_element_versions a,
14311: pa_proj_elements b
14312: where a.proj_element_id = b.proj_element_id
14313: and a.project_id = b.project_id
14314: and b.proj_element_id = c_struc_id;
14315:
14336: --bug 4054587, replace literal with bind variable
14337: l_fin_structure_code VARCHAR2(10) := 'FINANCIAL';
14338: cursor sel_fin_structure_id IS
14339: select a.proj_element_id
14340: from pa_proj_elements a,
14341: pa_proj_structure_types b,
14342: pa_structure_types c
14343: where a.project_id = p_project_id
14344: and a.object_type = 'PA_STRUCTURES'
15477: SYSDATE,
15478: FND_GLOBAL.USER_ID,
15479: SYSDATE,
15480: FND_GLOBAL.USER_ID,
15481: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
15482: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
15483: 'N',
15484: 'N',
15485: NULL,
15478: FND_GLOBAL.USER_ID,
15479: SYSDATE,
15480: FND_GLOBAL.USER_ID,
15481: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
15482: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
15483: 'N',
15484: 'N',
15485: NULL,
15486: 0,
15779: LOOP
15780: FETCH get_top_tasks into l_task_ver_id;
15781: EXIT WHEN get_top_tasks%NOTFOUND;
15782:
15783: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
15784: p_project_id => p_project_id
15785: ,p_task_version_id => l_task_ver_id
15786: ,p_parent_structure_ver_id => l_del_struc_ver_id
15787: ,x_return_status => l_return_status
15982:
15983: -- Hence ,the structure split will not be allowed as "name not unique error will be thrown"
15984: -- To avoid this Problem , We are resetting the structure name before Sharing
15985:
15986: UPDATE pa_proj_elements
15987: SET name = l_name
15988: ,element_number = l_name
15989: WHERE proj_element_id = l_structure_id ;
15990:
16031: where parent_structure_version_id = l_structure_version_id
16032: and object_type = 'PA_TASKS'
16033: and proj_element_id NOT IN
16034: (select proj_element_id
16035: from pa_proj_elements
16036: where project_id = p_project_id
16037: and object_type = 'PA_TASKS'
16038: and link_task_flag = 'Y');
16039: END IF;
16356: LOOP
16357: FETCH get_top_tasks into l_task_ver_id;
16358: EXIT WHEN get_top_tasks%NOTFOUND;
16359:
16360: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
16361: p_project_id => p_project_id
16362: ,p_task_version_id => l_task_ver_id
16363: ,p_parent_structure_ver_id => l_del_struc_ver_id
16364: ,x_return_status => l_return_status
16470: x_msg_count=>l_msg_count,
16471: x_msg_data=>l_msg_data);
16472:
16473: --delete elements
16474: delete from pa_proj_elements ppe
16475: where proj_element_ID in (
16476: select proj_element_id
16477: from pa_proj_element_versions
16478: where parent_structure_version_id = l_keep_structure_ver_id
16649: OPEN sel_wp_structure_id;
16650: FETCH sel_wp_structure_id INTO l_structure_id;
16651: CLOSE sel_wp_structure_id;
16652:
16653: update pa_proj_elements
16654: set name = l_wp_name,
16655: element_number = l_wp_name
16656: where proj_element_id = l_structure_id;
16657:
16727: where parent_structure_version_id = l_structure_version_id
16728: and object_type = 'PA_TASKS'
16729: and proj_element_id NOT IN
16730: (select proj_element_id
16731: from pa_proj_elements
16732: where project_id = p_project_id
16733: and object_type = 'PA_TASKS'
16734: and link_task_flag = 'Y');
16735:
16891: LOOP
16892: FETCH get_top_tasks into l_task_ver_id;
16893: EXIT WHEN get_top_tasks%NOTFOUND;
16894:
16895: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
16896: p_project_id => p_project_id
16897: ,p_task_version_id => l_task_ver_id
16898: ,p_parent_structure_ver_id => l_del_struc_ver_id
16899: ,x_return_status => l_return_status
17114: OPEN sel_wp_structure_id;
17115: FETCH sel_wp_structure_id INTO l_structure_id;
17116: CLOSE sel_wp_structure_id;
17117:
17118: update pa_proj_elements
17119: set name = l_wp_name,
17120: element_number = l_wp_name
17121: where proj_element_id = l_structure_id;
17122:
17226: LOOP
17227: FETCH get_top_tasks into l_task_ver_id;
17228: EXIT WHEN get_top_tasks%NOTFOUND;
17229:
17230: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
17231: p_project_id => p_project_id
17232: ,p_task_version_id => l_task_ver_id
17233: ,p_parent_structure_ver_id => l_del_struc_ver_id
17234: ,x_return_status => l_return_status
17320: LOOP
17321: FETCH get_top_tasks into l_task_ver_id;
17322: EXIT WHEN get_top_tasks%NOTFOUND;
17323:
17324: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
17325: p_project_id => p_project_id
17326: ,p_task_version_id => l_task_ver_id
17327: ,p_parent_structure_ver_id => l_del_struc_ver_id
17328: ,x_return_status => l_return_status
17466: SYSDATE,
17467: FND_GLOBAL.USER_ID,
17468: SYSDATE,
17469: FND_GLOBAL.USER_ID,
17470: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
17471: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
17472: 'N',
17473: 'N',
17474: NULL,
17467: FND_GLOBAL.USER_ID,
17468: SYSDATE,
17469: FND_GLOBAL.USER_ID,
17470: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
17471: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
17472: 'N',
17473: 'N',
17474: NULL,
17475: 0,
17620: LOOP
17621: FETCH get_top_tasks into l_task_ver_id;
17622: EXIT WHEN get_top_tasks%NOTFOUND;
17623:
17624: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
17625: p_project_id => p_project_id
17626: ,p_task_version_id => l_task_ver_id
17627: ,p_parent_structure_ver_id => l_del_struc_ver_id
17628: ,x_return_status => l_return_status
17712: LOOP
17713: FETCH get_top_tasks into l_task_ver_id;
17714: EXIT WHEN get_top_tasks%NOTFOUND;
17715:
17716: PA_PROJ_ELEMENTS_UTILS.check_del_all_task_ver_ok(
17717: p_project_id => p_project_id
17718: ,p_task_version_id => l_task_ver_id
17719: ,p_parent_structure_ver_id => l_del_struc_ver_id
17720: ,x_return_status => l_return_status
17858: SYSDATE,
17859: FND_GLOBAL.USER_ID,
17860: SYSDATE,
17861: FND_GLOBAL.USER_ID,
17862: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
17863: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
17864: 'N',
17865: 'N',
17866: NULL,
17859: FND_GLOBAL.USER_ID,
17860: SYSDATE,
17861: FND_GLOBAL.USER_ID,
17862: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.START_DATE), trunc(l_proj_start_date))),
17863: DECODE(PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(PPEV.element_version_id), 'N', trunc(SYSDATE), 'Y', NVL(trunc(PT.COMPLETION_DATE), trunc(l_proj_completion_date))),
17864: 'N',
17865: 'N',
17866: NULL,
17867: 0,