The following lines contain the word 'select', 'insert', 'update' or 'delete':
UPDATE pon_bid_item_prices
SET award_status = 'REJECTED',
award_quantity = NULL,
award_date = sysdate,
last_update_date = sysdate,
last_updated_by = p_auctioneer_id,
award_shipment_number = NULL,
award_price = NULL
WHERE bid_number IN ( SELECT bid_number
FROM pon_bid_headers
WHERE auction_header_id = p_auc_header_id
AND bid_status = 'ACTIVE')
AND auction_line_number = -1;
DELETE FROM pon_acceptances
WHERE auction_header_id = p_auc_header_id
AND auction_line_number = -1;
PON_AWARD_PKG.update_bid_headers(p_auction_id => p_auc_header_id,
p_auctioneer_id => p_auctioneer_id,
p_neg_has_lines => 'Y');
UPDATE pon_bid_item_prices
SET award_status = 'REJECTED',
award_quantity = NULL,
award_date = p_award_date,
last_update_date = p_award_date,
last_updated_by = p_auctioneer_id,
award_shipment_number = NULL,
award_price = NULL
WHERE bid_number = p_bid_number
AND auction_line_number = -1;
SELECT bh.bid_number
FROM pon_bid_headers bh,
pon_bid_item_prices pbip
WHERE bh.auction_header_id = c_auction_id
AND bid_status = 'ACTIVE'
AND pbip.bid_number = bh.bid_number
AND pbip.auction_line_number = -1;
UPDATE PON_BID_ITEM_PRICES
SET
award_status = l_award_status,
award_quantity = l_award_quantity,
award_date = l_award_date,
last_update_date = l_award_date,
last_updated_by = p_auctioneer_id,
award_price = Decode(l_award_status, 'AWARDED', price, NULL)
WHERE bid_number = l_rec.bid_number
AND line_number = l_rec.line_number;
PON_AWARD_PKG.update_bid_headers(p_auction_id => p_auction_header_id,
p_auctioneer_id => p_auctioneer_id,
p_neg_has_lines => 'Y');
PON_AWARD_PKG.update_auction_headers(p_auction_header_id, p_mode, l_award_date, p_auctioneer_id, 'Y');
SELECT bid_number, Decode((SELECT Count(*) FROM pon_bid_item_prices pbip WHERE pbip.bid_number = bh.bid_number),0,'N','Y') has_lines
FROM pon_bid_headers bh
WHERE bh.auction_header_id = p_auction_header_id
AND bid_status = 'ACTIVE';
(SELECT al.line_number,
al.line_origination_code,
nvl(al.award_status,'NO') award_status,
bl.bid_number,
bl.auction_line_number,
bl.order_number,
bl.award_quantity
FROM pon_bid_headers bh,
pon_bid_item_prices bl,
pon_auction_item_prices_all al
where bh.bid_number = c_bid_number
AND bl.bid_number = bh.bid_number
AND bl.auction_line_number <> -1
AND al.auction_header_id = bh.auction_header_id
AND al.line_number = bl.line_number
AND nvl(bl.award_status,'NO') = 'NO')
UNION
(SELECT bl.line_number,
'' AS line_origination_code,
Nvl(bl.award_status,'NO') award_status,
bl.bid_number,
bl.auction_line_number,
bl.order_number,
bl.award_quantity
FROM pon_bid_item_prices bl
WHERE bl.bid_number = c_bid_number
AND bl.auction_line_number = -1
AND nvl(bl.award_status,'NO') = 'NO');
l_update_auction_headers VARCHAR2(1);
l_update_bid_header VARCHAR2(1);
l_update_auction_headers := 'N';
l_update_bid_header := 'N';
l_update_bid_header := 'Y';
UPDATE PON_BID_ITEM_PRICES
SET
award_status = 'REJECTED',
award_quantity = null,
award_date = sysdate,
last_update_date = sysdate,
last_updated_by = p_user_id,
award_price = null
WHERE bid_number = l_active_bids_rec.bid_number
AND line_number = l_lines_rec.line_number;
pon_award_pkg.update_single_bid_item_prices
(
l_active_bids_rec.bid_number,
l_lines_rec.line_number,
'REJECTED',
l_lines_rec.award_quantity,
sysdate,
p_user_id
);
-- Update acceptances for the lines with no award decision made
pon_award_pkg.update_unawarded_acceptances(
p_auction_header_id, -- auction header id
l_lines_rec.line_number, -- line number
p_note_to_rejected, --note to rejected suppliers
SYSDATE, -- award_date
p_user_id);
-- Update acceptances for the lines with award decision already made
l_stored_note_to_rejected := null;
SELECT count(*) INTO l_count FROM pon_acceptances
WHERE auction_header_id = p_auction_header_id
AND line_number = l_lines_rec.line_number
AND ACCEPTANCE_TYPE = 'REJECTED';
SELECT distinct REASON INTO l_stored_note_to_rejected
FROM pon_acceptances
WHERE auction_header_id = p_auction_header_id
AND line_number = l_lines_rec.line_number
AND ACCEPTANCE_TYPE = 'REJECTED';
pon_award_pkg.update_unawarded_acceptances(
p_auction_header_id, -- auction header id
l_lines_rec.line_number, -- line number
l_stored_note_to_rejected, --note to rejected suppliers
SYSDATE, -- award_date
p_user_id);
IF l_update_bid_header = 'Y' THEN
pon_award_pkg.update_single_bid_header(l_active_bids_rec.bid_number, p_user_id);
l_update_auction_headers := 'Y';
l_update_auction_headers := 'Y';
UPDATE PON_BID_HEADERS
SET AWARD_STATUS = 'REJECTED',
AWARD_DATE = SYSDATE,
last_update_date = SYSDATE,
last_updated_by = p_user_id
WHERE bid_number = l_rejected_bid_numbers(k);
IF l_update_auction_headers = 'Y' THEN
PON_AWARD_PKG.update_auction_headers(p_auction_header_id, PON_AWARD_PKG.g_AWARD_LINE, SYSDATE,
p_user_id, 'Y');