[Home] [Help]
41:
42: CURSOR get_project_id_csr(c_version_id NUMBER)
43: IS
44: SELECT project_id
45: FROM PA_PROJ_ELEMENT_VERSIONS
46: WHERE element_version_id = c_version_id;
47:
48: x_ret_code VARCHAR2(1) := fnd_api.g_false;
49: l_dummy VARCHAR2(1) := null;
556: IS
557: l_api_name CONSTANT VARCHAR(30) := 'CREATE_STRUCTURE_VERSION';
558: l_api_version CONSTANT NUMBER := 1.0;
559:
560: l_structure_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
561: l_return_status VARCHAR2(1);
562: l_msg_count NUMBER;
563: l_msg_data VARCHAR2(250);
564: l_data VARCHAR2(250);
1379: pevs.pev_structure_id, pevs.record_version_number,
1380: pevsh.pev_schedule_id, pevsh.record_version_number,
1381: pevsh.rowid
1382: from pa_proj_elements pe,
1383: pa_proj_element_versions pev,
1384: pa_proj_elem_ver_structure pevs,
1385: pa_proj_elem_ver_schedule pevsh
1386: where pev.element_version_id = p_structure_version_id and
1387: pev.proj_element_id = pe.proj_element_id and
1391: pev.element_version_id = pevsh.element_version_id (+);
1392:
1393: CURSOR is_last_version(p_structure_id NUMBER) IS
1394: select 'N'
1395: from pa_proj_element_versions
1396: where proj_element_id = p_structure_id;
1397:
1398: CURSOR get_top_tasks IS
1399: select v.element_version_id
1396: where proj_element_id = p_structure_id;
1397:
1398: CURSOR get_top_tasks IS
1399: select v.element_version_id
1400: from pa_proj_element_versions v,
1401: pa_object_relationships r
1402: where v.element_version_id = r.object_id_to1
1403: and r.object_id_from1 = p_structure_version_id
1404: and r.object_type_from = 'PA_STRUCTURES';
1407: select record_version_number
1408: from pa_proj_workplan_attr
1409: where proj_element_id = c_proj_element_id;
1410:
1411: l_project_id PA_PROJ_ELEMENT_VERSIONS.PROJECT_ID%TYPE;
1412: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1413: l_pe_rvn PA_PROJ_ELEMENTS.RECORD_VERSION_NUMBER%TYPE;
1414: l_element_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1415: l_pev_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1410:
1411: l_project_id PA_PROJ_ELEMENT_VERSIONS.PROJECT_ID%TYPE;
1412: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1413: l_pe_rvn PA_PROJ_ELEMENTS.RECORD_VERSION_NUMBER%TYPE;
1414: l_element_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1415: l_pev_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1416: l_pev_structure_id PA_PROJ_ELEM_VER_STRUCTURE.PEV_STRUCTURE_ID%TYPE;
1417: l_pevs_rvn PA_PROJ_ELEM_VER_STRUCTURE.RECORD_VERSION_NUMBER%TYPE;
1418: l_pev_schedule_id PA_PROJ_ELEM_VER_SCHEDULE.PEV_SCHEDULE_ID%TYPE;
1411: l_project_id PA_PROJ_ELEMENT_VERSIONS.PROJECT_ID%TYPE;
1412: l_proj_element_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
1413: l_pe_rvn PA_PROJ_ELEMENTS.RECORD_VERSION_NUMBER%TYPE;
1414: l_element_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1415: l_pev_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1416: l_pev_structure_id PA_PROJ_ELEM_VER_STRUCTURE.PEV_STRUCTURE_ID%TYPE;
1417: l_pevs_rvn PA_PROJ_ELEM_VER_STRUCTURE.RECORD_VERSION_NUMBER%TYPE;
1418: l_pev_schedule_id PA_PROJ_ELEM_VER_SCHEDULE.PEV_SCHEDULE_ID%TYPE;
1419: l_pevsh_rvn PA_PROJ_ELEM_VER_SCHEDULE.RECORD_VERSION_NUMBER%TYPE;
1418: l_pev_schedule_id PA_PROJ_ELEM_VER_SCHEDULE.PEV_SCHEDULE_ID%TYPE;
1419: l_pevsh_rvn PA_PROJ_ELEM_VER_SCHEDULE.RECORD_VERSION_NUMBER%TYPE;
1420: l_pevsh_rowid VARCHAR2(255);
1421:
1422: l_task_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1423: l_task_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1424: l_wp_attr_rvn PA_PROJ_WORKPLAN_ATTR.RECORD_VERSION_NUMBER%TYPE;
1425:
1426: l_parent_struc_ver_id PA_PROJ_ELEMENT_VERSIONS.PARENT_STRUCTURE_VERSION_ID%TYPE;
1419: l_pevsh_rvn PA_PROJ_ELEM_VER_SCHEDULE.RECORD_VERSION_NUMBER%TYPE;
1420: l_pevsh_rowid VARCHAR2(255);
1421:
1422: l_task_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1423: l_task_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1424: l_wp_attr_rvn PA_PROJ_WORKPLAN_ATTR.RECORD_VERSION_NUMBER%TYPE;
1425:
1426: l_parent_struc_ver_id PA_PROJ_ELEMENT_VERSIONS.PARENT_STRUCTURE_VERSION_ID%TYPE;
1427: l_structure_type pa_structure_types.STRUCTURE_TYPE_CLASS_CODE%TYPE; --Amit
1422: l_task_version_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
1423: l_task_rvn PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
1424: l_wp_attr_rvn PA_PROJ_WORKPLAN_ATTR.RECORD_VERSION_NUMBER%TYPE;
1425:
1426: l_parent_struc_ver_id PA_PROJ_ELEMENT_VERSIONS.PARENT_STRUCTURE_VERSION_ID%TYPE;
1427: l_structure_type pa_structure_types.STRUCTURE_TYPE_CLASS_CODE%TYPE; --Amit
1428:
1429: -- SWM/IPM enhancement merger into R12.
1430: -- Bug 6046307
1563: --Get record version number for task, as it will change everytime
1564: --a task is deleted.
1565: select record_version_number, parent_structure_version_id
1566: into l_task_rvn, l_parent_struc_ver_id
1567: from pa_proj_element_versions
1568: where element_version_id = l_task_version_id;
1569:
1570: PA_TASK_PUB1.DELETE_TASK_VERSION(p_commit => 'N',
1571: p_debug_mode => p_debug_mode,
1908: and element_version_id = c_structure_version_id;
1909:
1910: CURSOR c1 IS
1911: select project_id
1912: from pa_proj_element_versions
1913: where element_version_id = p_structure_version_id;
1914:
1915: BEGIN
1916: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE');
2311: IS
2312: l_api_name CONSTANT VARCHAR(30) := 'COPY_STRUCTURE_VERSION';
2313: l_api_version CONSTANT NUMBER := 1.0;
2314:
2315: l_new_struct_ver_id PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE;
2316: l_return_status VARCHAR2(1);
2317: l_msg_count NUMBER;
2318: l_msg_data VARCHAR2(250);
2319: l_data VARCHAR2(250);
2987: l_error_message_code VARCHAR2(30);
2988:
2989: CURSOR c1 IS
2990: select project_id
2991: from pa_proj_element_versions
2992: where element_version_id = p_structure_version_id;
2993: l_project_id NUMBER;
2994:
2995: BEGIN
3310:
3311: l_task_id NUMBER;
3312: l_parent_structure_id NUMBER;
3313: l_parent_structure_version_id NUMBER;
3314: l_record_version_number PA_PROJ_ELEMENT_VERSIONS.RECORD_VERSION_NUMBER%TYPE;
3315: l_rowid VARCHAR2(255);
3316: l_check_sharing_enabled VARCHAR(1);
3317: l_proj_element_id NUMBER;
3318: l_api_name CONSTANT VARCHAR(30) := 'DISABLE_FINANCIAL_STRUCTURE';
3328: l_err_stage VARCHAR2(80);
3329:
3330: CURSOR get_struc_ver_info(c_structure_id NUMBER) IS
3331: SELECT element_version_id, record_version_number
3332: FROM pa_proj_element_versions
3333: where proj_element_id = c_structure_id
3334: and project_id = p_project_id;
3335:
3336: BEGIN
3393: x_err_code => l_err_code,
3394: x_err_stage => l_err_stage,
3395: x_err_stack => l_err_stack);
3396:
3397: UPDATE PA_PROJ_ELEMENT_VERSIONS
3398: SET FINANCIAL_TASK_FLAG = 'N'
3399: WHERE PROJECT_ID = p_project_id
3400: AND PROJ_ELEMENT_ID = l_task_id;
3401: ELSE
3462: END IF;
3463:
3464: /* hsiu commented 3305199
3465: SELECT record_version_number into l_record_version_number
3466: FROM pa_proj_element_versions
3467: WHERE element_version_id = l_parent_structure_version_id;
3468: */
3469:
3470: /*Introducing the following IF CLAUSE For Bug 3938654
3649: FND_MSG_PUB.initialize;
3650: END IF;
3651:
3652: IF (p_structure_version_id IS NOT NULL) THEN
3653: UPDATE PA_PROJ_ELEMENT_VERSIONS
3654: SET FINANCIAL_TASK_FLAG = 'N'
3655: WHERE PROJECT_ID = p_project_id
3656: AND PARENT_STRUCTURE_VERSION_ID = p_structure_version_id;
3657: END IF;
3656: AND PARENT_STRUCTURE_VERSION_ID = p_structure_version_id;
3657: END IF;
3658:
3659: IF (p_task_version_id is NOT NULL) THEN
3660: UPDATE PA_PROJ_ELEMENT_VERSIONS
3661: SET FINANCIAL_TASK_FLAG='N'
3662: WHERE PROJECT_ID = p_project_id
3663: AND ELEMENT_VERSION_ID = p_task_version_id;
3664: END IF;