[Home] [Help]
969: and record_version_number = p_record_version_number
970: for update of record_version_number NOWAIT;
971: EXCEPTION
972: WHEN TIMEOUT_ON_RESOURCE THEN
973: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
974: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
975: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
976: WHEN NO_DATA_FOUND THEN
977: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
973: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
974: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
975: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
976: WHEN NO_DATA_FOUND THEN
977: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
978: p_msg_name => 'PA_XC_RECORD_CHANGED');
979: l_msg_data := 'PA_XC_RECORD_CHANGED';
980: WHEN OTHERS THEN
981: IF SQLCODE = -54 then
978: p_msg_name => 'PA_XC_RECORD_CHANGED');
979: l_msg_data := 'PA_XC_RECORD_CHANGED';
980: WHEN OTHERS THEN
981: IF SQLCODE = -54 then
982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
983: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
984: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
985: ELSE
986: raise;
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
998: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
999: p_msg_name => 'PA_XC_RECORD_CHANGED');
1000: l_msg_data := 'PA_XC_RECORD_CHANGED';
1001: WHEN OTHERS THEN
1002: RAISE;
1535: p_structure_version_id,
1536: l_return_status,
1537: l_error_message_code);
1538: IF (l_return_status <> 'S') THEN
1539: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1540: x_msg_data := l_error_message_code;
1541: RAISE FND_API.G_EXC_ERROR;
1542: END IF;
1543:
1543:
1544: -- 4369486 : Added this check : If this is the last working structure version,we wont be allowed to delete it.
1545:
1546: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
1547: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
1548: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
1549: RAISE FND_API.G_EXC_ERROR;
1550: END IF;
1551: -- End of Code Change for 4369486
1931: END IF;
1932:
1933: --Check if this structure can be published (ie, if linked structures are published)
1934: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1935: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
1936: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
1937: RAISE FND_API.G_EXC_ERROR;
1938: END IF;
1939:
2449: END IF;
2450:
2451: --Check if this structure can be published (ie, if linked structures are published)
2452: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2453: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
2454: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2457:
3002: ,l_return_status
3003: ,l_error_message_code);
3004:
3005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3007: x_msg_data := l_error_message_code;
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3009: END IF;
3010:
3011: --Check if it is ok to delete working version
3012: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3013: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
3014: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
3015: RAISE FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3352: x_err_code => l_err_code,
3353: x_err_stage => l_err_stage,
3354: x_err_stack => l_err_stack);
3355: IF (l_err_code <> 0) THEN
3356: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DIS_FN_STR');
3357: x_msg_data := 'PA_PS_CANT_DIS_FN_STR';
3358: raise FND_API.G_EXC_ERROR; --Bug No 3517852 SMukka Stop processing and come out of the loop
3359: ELSE
3360: