1244: substrb(SQLERRM,1,60);
1245: ROLLBACK ;
1246: WHEN x_loop_detected THEN
1247: arg_error_code := 9999;
1248: FND_MESSAGE.Set_Name('BOM', 'BOM_LOOP_EXISTS');
1249: arg_err_msg := FND_MESSAGE.GET;
1250: ROLLBACK; --bug 2709042
1251: WHEN x_no_top_assy THEN
1252: arg_error_code := 9998;
1245: ROLLBACK ;
1246: WHEN x_loop_detected THEN
1247: arg_error_code := 9999;
1248: FND_MESSAGE.Set_Name('BOM', 'BOM_LOOP_EXISTS');
1249: arg_err_msg := FND_MESSAGE.GET;
1250: ROLLBACK; --bug 2709042
1251: WHEN x_no_top_assy THEN
1252: arg_error_code := 9998;
1253: FND_MESSAGE.Set_Name('BOM', 'BOM_BILL_DOES_NOT_EXIST');
1249: arg_err_msg := FND_MESSAGE.GET;
1250: ROLLBACK; --bug 2709042
1251: WHEN x_no_top_assy THEN
1252: arg_error_code := 9998;
1253: FND_MESSAGE.Set_Name('BOM', 'BOM_BILL_DOES_NOT_EXIST');
1254: arg_err_msg := FND_MESSAGE.GET;
1255: ROLLBACK; --bug 2709042
1256: WHEN x_bom_expl_del THEN
1257: arg_error_code := 9997;
1250: ROLLBACK; --bug 2709042
1251: WHEN x_no_top_assy THEN
1252: arg_error_code := 9998;
1253: FND_MESSAGE.Set_Name('BOM', 'BOM_BILL_DOES_NOT_EXIST');
1254: arg_err_msg := FND_MESSAGE.GET;
1255: ROLLBACK; --bug 2709042
1256: WHEN x_bom_expl_del THEN
1257: arg_error_code := 9997;
1258: FND_MESSAGE.Set_Name('BOM', 'BOM_EXPL_DEL_IN_PROGRESS');
1254: arg_err_msg := FND_MESSAGE.GET;
1255: ROLLBACK; --bug 2709042
1256: WHEN x_bom_expl_del THEN
1257: arg_error_code := 9997;
1258: FND_MESSAGE.Set_Name('BOM', 'BOM_EXPL_DEL_IN_PROGRESS');
1259: FND_MESSAGE.Set_Token('REQUEST_ID', x_req_id);
1260: arg_err_msg := FND_MESSAGE.GET;
1261: ROLLBACK; --bug 2709042
1262: WHEN OTHERS THEN
1255: ROLLBACK; --bug 2709042
1256: WHEN x_bom_expl_del THEN
1257: arg_error_code := 9997;
1258: FND_MESSAGE.Set_Name('BOM', 'BOM_EXPL_DEL_IN_PROGRESS');
1259: FND_MESSAGE.Set_Token('REQUEST_ID', x_req_id);
1260: arg_err_msg := FND_MESSAGE.GET;
1261: ROLLBACK; --bug 2709042
1262: WHEN OTHERS THEN
1263: arg_error_code := SQLCODE;
1256: WHEN x_bom_expl_del THEN
1257: arg_error_code := 9997;
1258: FND_MESSAGE.Set_Name('BOM', 'BOM_EXPL_DEL_IN_PROGRESS');
1259: FND_MESSAGE.Set_Token('REQUEST_ID', x_req_id);
1260: arg_err_msg := FND_MESSAGE.GET;
1261: ROLLBACK; --bug 2709042
1262: WHEN OTHERS THEN
1263: arg_error_code := SQLCODE;
1264: arg_err_msg := 'BOMORXPB(' || stmt_num ||'): ' ||