[Home] [Help]
5971:
5972: IF x_msg_count > 0
5973: THEN
5974: FOR j IN 1 .. x_msg_count LOOP
5975: fnd_msg_pub.get
5976: (j
5977: , FND_API.G_FALSE
5978: , x_msg_data
5979: , t_msg_dummy
6226:
6227: BEGIN
6228:
6229: x_return_status := G_RET_STS_SUCCESS;
6230: fnd_msg_pub.initialize;
6231:
6232: IF p_pradj_rec.chr_id IS NOT NULL THEN
6233: OPEN price_adj_cur_hdr(p_pradj_rec.list_line_id, p_pradj_rec.chr_id);
6234: FETCH price_adj_cur_hdr INTO l_pradj_exists;
8024: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
8025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8026: END IF;
8027: IF FND_API.to_boolean(p_init_msg_list ) THEN
8028: FND_MSG_PUB.initialize;
8029: END IF;
8030: x_return_status := FND_API.G_RET_STS_SUCCESS;
8031:
8032: --get all toplines that are out of sync with sublines
8070:
8071: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8072: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.lock_line_fail', FALSE);
8073: END IF;
8074: FND_MSG_PUB.ADD;
8075:
8076: l_tl_id_tbl.delete;
8077: l_tl_amt_tbl.delete;
8078: l_sl_amt_tbl.delete;
8159:
8160: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8161: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.lock_header_fail', FALSE);
8162: END IF;
8163: FND_MSG_PUB.ADD;
8164:
8165: RAISE FND_API.g_exc_error;
8166:
8167: END; --of anonymous block checking header lock
8208:
8209: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8210: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.lock_line_fail', FALSE);
8211: END IF;
8212: FND_MSG_PUB.ADD;
8213:
8214: l_tl_id_tbl.delete;
8215: l_tl_amt_tbl.delete;
8216: l_sl_amt_tbl.delete;
8281:
8282: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8283: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.lock_header_fail', FALSE);
8284: END IF;
8285: FND_MSG_PUB.ADD;
8286:
8287: RAISE FND_API.g_exc_error;
8288:
8289: END; --of anonymous block checking header lock
8297: --exit
8298: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8299: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
8300: END IF;
8301: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8302:
8303: EXCEPTION
8304: WHEN FND_API.g_exc_error THEN
8305: ROLLBACK TO check_update_amounts_PVT;
8307:
8308: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8309: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
8310: END IF;
8311: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8312: IF (c_k_toplines%isopen) THEN
8313: CLOSE c_k_toplines;
8314: END IF;
8315: IF (c_lock_tl%isopen) THEN
8332:
8333: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8334: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
8335: END IF;
8336: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8337: IF (c_k_toplines%isopen) THEN
8338: CLOSE c_k_toplines;
8339: END IF;
8340: IF (c_lock_tl%isopen) THEN
8358: --first log the sqlerrm
8359: l_error_text := substr (SQLERRM, 1, 240);
8360: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
8361: --then add it to the message api list
8362: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
8363: END IF;
8364: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8365: IF (c_k_toplines%isopen) THEN
8366: CLOSE c_k_toplines;
8360: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
8361: --then add it to the message api list
8362: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
8363: END IF;
8364: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8365: IF (c_k_toplines%isopen) THEN
8366: CLOSE c_k_toplines;
8367: END IF;
8368: IF (c_lock_tl%isopen) THEN