[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,
3355: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3356:
3357: /* hsiu: added, 3305199 */
3358: select a.proj_element_id into l_parent_structure_id
3359: from pa_proj_elements a, pa_proj_structure_types b, pa_structure_types c
3360: where a.proj_element_id = b.proj_element_id
3361: and a.project_id = p_project_id
3362: and b.structure_type_id = c.structure_type_id
3363: and c.structure_type = 'FINANCIAL';
3406: x_msg_data => l_msg_data,
3407: x_return_status => l_return_status);
3408:
3409: /* hsiu: 3305199
3410: SELECT B.PROJ_ELEMENT_ID INTO l_proj_element_id FROM PA_PROJECTS_ALL A,PA_PROJ_STRUCTURE_TYPES B,PA_PROJ_ELEMENTS C
3411: WHERE A.PROJECT_ID = C.PROJECT_ID
3412: AND B.PROJ_ELEMENT_ID = C.PROJ_ELEMENT_ID
3413: AND B.PROJ_STRUCTURE_TYPE_ID = 6
3414: AND A.PROJECT_ID = P_PROJECT_ID;
3507: END IF ; --IF CLAUSE introduced for Bug 3938654
3508:
3509: /* hsiu 3305199
3510: SELECT record_version_number into l_record_version_number
3511: FROM pa_proj_elements
3512: WHERE proj_element_id = l_parent_structure_id;
3513:
3514: PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE(
3515: p_structure_id => l_parent_structure_id