[Home] [Help]
342: IS
343: l_api_name CONSTANT VARCHAR(30) := 'CREATE_STRUCTURE';
344: l_api_version CONSTANT NUMBER := 1.0;
345:
346: l_structure_id PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE;
347: l_return_status VARCHAR2(1);
348: l_msg_count NUMBER;
349: l_msg_data VARCHAR2(250);
350: l_data VARCHAR2(250);
963: --Lock row
964: IF( p_validate_only <> FND_API.G_TRUE) THEN
965: BEGIN
966: select 'x' into l_dummy
967: from PA_PROJ_ELEMENTS
968: where proj_element_id = p_structure_id
969: and record_version_number = p_record_version_number
970: for update of record_version_number NOWAIT;
971: EXCEPTION
989: ELSE
990: --check record_version_number
991: BEGIN
992: select 'x' into l_dummy
993: from PA_PROJ_ELEMENTS
994: where proj_element_id = p_structure_id
995: and record_version_number = p_record_version_number;
996: EXCEPTION
997: WHEN NO_DATA_FOUND THEN
1378: pev.element_version_id, pev.record_version_number,
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
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;
1416: l_pev_structure_id PA_PROJ_ELEM_VER_STRUCTURE.PEV_STRUCTURE_ID%TYPE;
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;
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;
1756:
1757: END IF;
1758:
1759: select record_version_number into l_pe_rvn
1760: from pa_proj_elements where proj_element_id = l_proj_element_id;
1761: PA_PROJECT_STRUCTURE_PVT1.Delete_Structure(
1762: p_commit => p_commit,
1763: p_debug_mode => p_debug_mode,
1764: p_structure_id => l_proj_element_id,
3335: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3336:
3337: /* hsiu: added, 3305199 */
3338: select a.proj_element_id into l_parent_structure_id
3339: from pa_proj_elements a, pa_proj_structure_types b, pa_structure_types c
3340: where a.proj_element_id = b.proj_element_id
3341: and a.project_id = p_project_id
3342: and b.structure_type_id = c.structure_type_id
3343: and c.structure_type = 'FINANCIAL';
3386: x_msg_data => l_msg_data,
3387: x_return_status => l_return_status);
3388:
3389: /* hsiu: 3305199
3390: SELECT B.PROJ_ELEMENT_ID INTO l_proj_element_id FROM PA_PROJECTS_ALL A,PA_PROJ_STRUCTURE_TYPES B,PA_PROJ_ELEMENTS C
3391: WHERE A.PROJECT_ID = C.PROJECT_ID
3392: AND B.PROJ_ELEMENT_ID = C.PROJ_ELEMENT_ID
3393: AND B.PROJ_STRUCTURE_TYPE_ID = 6
3394: AND A.PROJECT_ID = P_PROJECT_ID;
3487: END IF ; --IF CLAUSE introduced for Bug 3938654
3488:
3489: /* hsiu 3305199
3490: SELECT record_version_number into l_record_version_number
3491: FROM pa_proj_elements
3492: WHERE proj_element_id = l_parent_structure_id;
3493:
3494: PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE(
3495: p_structure_id => l_parent_structure_id