[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
1932: END IF;
1933:
1934: --Check if this structure can be published (ie, if linked structures are published)
1935: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1936: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
1937: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
1938: RAISE FND_API.G_EXC_ERROR;
1939: END IF;
1940:
2465: END IF;
2466:
2467: --Check if this structure can be published (ie, if linked structures are published)
2468: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2469: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
2470: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
2471: RAISE FND_API.G_EXC_ERROR;
2472: END IF;
2473:
3022: ,l_return_status
3023: ,l_error_message_code);
3024:
3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3026: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3027: x_msg_data := l_error_message_code;
3028: RAISE FND_API.G_EXC_ERROR;
3029: END IF;
3030:
3029: END IF;
3030:
3031: --Check if it is ok to delete working version
3032: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3033: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
3034: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
3035: RAISE FND_API.G_EXC_ERROR;
3036: END IF;
3037:
3372: x_err_code => l_err_code,
3373: x_err_stage => l_err_stage,
3374: x_err_stack => l_err_stack);
3375: IF (l_err_code <> 0) THEN
3376: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DIS_FN_STR');
3377: x_msg_data := 'PA_PS_CANT_DIS_FN_STR';
3378: raise FND_API.G_EXC_ERROR; --Bug No 3517852 SMukka Stop processing and come out of the loop
3379: ELSE
3380: