The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT LAST_UPDATE_DATE, CLOSE_BIDDING_DATE
INTO x_temp, x_close_bidding_date
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id
FOR UPDATE;
update pon_auction_headers_all
set close_bidding_date = p_new_close_date,
original_close_bidding_date = x_close_bidding_date,
last_update_date = sysdate,
last_updated_by = p_user_id
where auction_header_id = p_auction_header_id;
update pon_auction_item_prices_all
set close_bidding_date = p_new_close_date,
last_update_date = sysdate,
last_updated_by = p_user_id
where auction_header_id = p_auction_header_id
and close_bidding_date > p_new_close_date;
select auction_origination_code, trading_partner_contact_id
into x_auction_origination_code, x_trading_partner_contact_id
from pon_auction_headers_all
where auction_header_id = p_auction_header_id;
SELECT LAST_UPDATE_DATE
INTO x_temp
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id
FOR UPDATE;
update pon_auction_headers_all
set auction_status = 'CANCELLED',
cancel_date = sysdate,
last_update_date = sysdate,
last_updated_by = p_user_id,
is_paused = null,
pause_remarks = null,
last_pause_date = null
where auction_header_id = p_auction_header_id;
p_last_updated_date IN DATE,
p_auto_extend_min_trigger IN NUMBER,
p_result OUT NOCOPY NUMBER,
p_extended_close_bidding_date OUT NOCOPY DATE ) IS
x_update_date DATE;
SELECT LAST_UPDATE_DATE, nvl( IS_PAUSED, 'N' ), nvl( LAST_PAUSE_DATE, sysdate ), nvl(number_of_extensions, 0),
nvl2(staggered_closing_interval,'Y','N'), first_line_close_date
INTO x_update_date, v_ispaused, v_pause_date, x_num_extension_occurred, v_is_staggered, x_first_line_close_date
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id
FOR UPDATE;
if (x_update_date <> p_last_updated_date) then
p_result := 1;
UPDATE PON_AUCTION_HEADERS_ALL
SET CLOSE_BIDDING_DATE = x_new_close_date,
LAST_UPDATE_DATE= sysdate,
LAST_UPDATED_BY = p_user_id,
ORIGINAL_CLOSE_BIDDING_DATE = p_close_date,
FIRST_LINE_CLOSE_DATE = x_first_line_close_date,
IS_PAUSED = NULL,
PAUSE_REMARKS = NULL,
LAST_PAUSE_DATE = NULL
WHERE AUCTION_HEADER_ID = p_auction_header_id;
UPDATE PON_AUCTION_ITEM_PRICES_ALL
SET CLOSE_BIDDING_DATE = CLOSE_BIDDING_DATE + (x_new_close_date-p_close_date),
LAST_UPDATE_DATE= sysdate,
LAST_UPDATED_BY = p_user_id
WHERE AUCTION_HEADER_ID = p_auction_header_id
AND CLOSE_BIDDING_DATE > decode(v_ispaused, 'Y', v_pause_date, SYSDATE) ;
UPDATE PON_AUCTION_ITEM_PRICES_ALL
SET NEED_BY_DATE = NEED_BY_DATE + (x_new_close_date-p_close_date),
LAST_UPDATE_DATE= sysdate,
LAST_UPDATED_BY = p_user_id
WHERE AUCTION_HEADER_ID = p_auction_header_id
AND NEED_BY_DATE < x_new_close_date;
UPDATE PON_AUCTION_ITEM_PRICES_ALL
SET NEED_BY_START_DATE = NEED_BY_START_DATE + (x_new_close_date-p_close_date),
LAST_UPDATE_DATE= sysdate,
LAST_UPDATED_BY = p_user_id
WHERE AUCTION_HEADER_ID = p_auction_header_id
AND NEED_BY_START_DATE < x_new_close_date;
UPDATE PON_AUCTION_HEADERS_ALL
SET AUTO_EXTEND_FLAG = 'Y',
AUTO_EXTEND_NUMBER = x_new_autoextend_num,
AUTO_EXTEND_ALL_LINES_FLAG = p_is_allExtend,
AUTO_EXTEND_DURATION = p_new_duration,
AUTO_EXTEND_TYPE_FLAG = p_new_extend_type,
AUTOEXTEND_CHANGED_FLAG = 'Y',
AUTO_EXTEND_MIN_TRIGGER_RANK = p_auto_extend_min_trigger
WHERE AUCTION_HEADER_ID = p_auction_header_id;
update pon_auction_headers_all
set auction_status = 'ACTIVE'
where auction_header_id = p_prev_round_auction_header_id;
select auction_status, award_status, view_by_date, open_bidding_date, close_bidding_date, sysdate, NVL( is_paused, 'N')
into v_auction_status, v_award_status, v_view_by_date, v_open_bidding_date, v_close_bidding_date, v_sysdate, v_is_paused
from pon_auction_headers_all
where auction_header_id = p_auction_header_id_prev_doc;
PROCEDURE UPDATE_TO_NEW_DOCUMENT (p_auction_header_id_curr_doc IN NUMBER,
p_doc_number_curr_doc IN VARCHAR2,
p_auction_header_id_prev_doc IN NUMBER,
p_auction_origination_code IN VARCHAR2,
p_is_new IN VARCHAR2,
p_is_publish IN VARCHAR2,
p_transaction_type IN VARCHAR2,
p_user_id IN NUMBER,
x_error_code OUT NOCOPY VARCHAR2,
x_error_msg OUT NOCOPY VARCHAR2) IS
v_temp DATE;
v_amend_last_update_date pon_auction_headers_all.last_update_date%type;
SELECT LAST_UPDATE_DATE, document_number
INTO v_temp, v_doc_number_prev_doc
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id_prev_doc
FOR UPDATE;
SELECT 'Y' INTO l_back_req_exists
FROM pon_backing_requisitions
WHERE auction_header_id = p_auction_header_id_prev_doc
AND ROWNUM = 1;
SELECT CD_GENERATED_DATE, LAST_UPDATE_DATE
INTO v_changedesc_gen_date,v_amend_last_update_date
FROM pon_auction_headers_all
WHERE auction_header_id = p_auction_header_id_prev_doc;
IF v_changedesc_gen_date IS NOT NULL AND v_amend_last_update_date IS NOT NULL THEN
IF( v_amend_last_update_date > v_changedesc_gen_date) then
update pon_auction_headers_all
set AMENDUPDATED_AFTERCDGENERATED = 'Y'
where auction_header_id = p_auction_header_id_prev_doc;
update pon_auction_headers_all
set AMENDUPDATED_AFTERCDGENERATED = 'N'
where auction_header_id = p_auction_header_id_prev_doc;
update pon_auction_headers_all
set AWARD_STATUS = 'NO',
AUCTION_STATUS = 'AUCTION_CLOSED',
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = p_user_id
where auction_header_id = p_auction_header_id_prev_doc;
update pon_auction_headers_all
set AWARD_STATUS = 'NO',
AUCTION_STATUS = 'APPLIED',
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = p_user_id
where auction_header_id = p_auction_header_id_prev_doc;
po_negotiations_sv1.update_sol_ref_amend(p_old_auction_id => p_auction_header_id_prev_doc,
p_new_auction_id => p_auction_header_id_curr_doc,
x_return_status => l_return_status,
x_error_msg => x_error_msg,
x_error_code => x_error_code);
PON_AUCTION_PKG.UPDATE_NEGOTIATION_REF(p_auction_header_id_prev_doc, v_doc_number_prev_doc, p_auction_header_id_curr_doc, p_doc_number_curr_doc, x_error_code, x_error_msg);
update pon_auction_headers_all
set AWARD_STATUS = 'NO',
AUCTION_STATUS = 'AMENDED',
is_paused = null,
pause_remarks = null,
last_pause_date = null,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = p_user_id
where auction_header_id = p_auction_header_id_prev_doc;
update pon_bid_headers
set BID_STATUS = 'RESUBMISSION'
where auction_header_id = p_auction_header_id_prev_doc and
bid_status = 'ACTIVE';
END UPDATE_TO_NEW_DOCUMENT;
PROCEDURE UPDATE_MODIFIED_FIELDS (p_currAuctionHeaderId IN NUMBER,
p_prevAuctionHeaderId IN NUMBER,
p_action IN VARCHAR2) IS
BEGIN
UPDATE_NEG_TEAM_MODIFIED(p_currAuctionHeaderId, p_prevAuctionHeaderId, p_action);
UPDATE_CURRENCY_RATES_MODIFIED(p_currAuctionHeaderId, p_prevAuctionHeaderId, p_action);
UPDATE_INVITEES_MODIFIED(p_currAuctionHeaderId, p_prevAuctionHeaderId, p_action);
UPDATE_HDR_ATTR_MODIFIED(p_currAuctionHeaderId, p_prevAuctionHeaderId, p_action);
END UPDATE_MODIFIED_FIELDS;
PROCEDURE UPDATE_CURRENCY_RATES_MODIFIED (p_currAuctionHeaderId IN NUMBER,
p_prevAuctionHeaderId IN NUMBER,
p_action IN VARCHAR2) IS
v_currAmendmentNumber NUMBER;
select nvl(amendment_number, 0)
into v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_currency_rates
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = 0
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_currency_rates rates
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = (select nvl(last_amendment_update, 0)
from pon_auction_currency_rates
where auction_header_id = p_prevAuctionHeaderId and
bid_currency_code = rates.bid_currency_code)
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_currency_rates rates
set LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
last_amendment_update is null;
update pon_auction_currency_rates currRates
set MODIFIED_FLAG = 'Y',
LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
exists (select null
from pon_auction_currency_rates prevRates
where prevRates.auction_header_id = p_prevAuctionHeaderId and
prevRates.bid_currency_code = currRates.bid_currency_code and
(nvl(prevRates.rate_dsp, -9999) <> nvl(currRates.rate_dsp, -9999) or
nvl(prevRates.number_price_decimals, -9999) <> nvl(currRates.number_price_decimals, -9999)));
END UPDATE_CURRENCY_RATES_MODIFIED;
PROCEDURE UPDATE_NEG_TEAM_MODIFIED (p_currAuctionHeaderId IN NUMBER,
p_prevAuctionHeaderId IN NUMBER,
p_action IN VARCHAR2) IS
v_currAmendmentNumber NUMBER;
select nvl(amendment_number, 0)
into v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_neg_team_members
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = 0
where auction_header_id = p_currAuctionHeaderId;
update pon_neg_team_members neg
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = (select nvl(last_amendment_update, 0)
from pon_neg_team_members
where auction_header_id = p_prevAuctionHeaderId and
user_id = neg.user_id)
where auction_header_id = p_currAuctionHeaderId;
update pon_neg_team_members neg
set LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
last_amendment_update is null;
update pon_neg_team_members currNeg
set MODIFIED_FLAG = 'Y',
LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
exists (select null
from pon_neg_team_members prevNeg
where prevNeg.auction_header_id = p_prevAuctionHeaderId and
prevNeg.user_id = currNeg.user_id and
(nvl(prevNeg.approver_flag, 'N') <> nvl(currNeg.approver_flag, 'N') or
nvl(prevNeg.menu_name, 'PON_SOURCING_VIEWNEG') <> nvl(currNeg.menu_name, 'PON_SOURCING_VIEWNEG') or
nvl(prevNeg.task_name, 'null') <> nvl(currNeg.task_name, 'null') or
nvl(prevNeg.target_date, sysdate) <> nvl(currNeg.target_date, sysdate)));
END UPDATE_NEG_TEAM_MODIFIED;
PROCEDURE UPDATE_INVITEES_MODIFIED (p_currAuctionHeaderId IN NUMBER,
p_prevAuctionHeaderId IN NUMBER,
p_action IN VARCHAR2) IS
v_currAmendmentNumber NUMBER;
select nvl(amendment_number, 0)
into v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_bidding_parties
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = 0
where auction_header_id = p_currAuctionHeaderId and
nvl(modified_flag, 'N') <> 'P' and
nvl(modified_flag, 'N') <> 'S';
update pon_bidding_parties invitees
set MODIFIED_FLAG = null,
LAST_AMENDMENT_UPDATE = (select nvl(last_amendment_update, 0)
from pon_bidding_parties
where auction_header_id = p_prevAuctionHeaderId and
(trading_partner_id = invitees.trading_partner_id
OR requested_supplier_id =invitees.requested_supplier_id) and
nvl(vendor_site_id, -9999) = nvl(invitees.vendor_site_id, -9999))
where auction_header_id = p_currAuctionHeaderId and
nvl(modified_flag, 'N') <> 'P' and
nvl(modified_flag, 'N') <> 'S';
update pon_bidding_parties invitees
set LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
last_amendment_update is null;
update pon_bidding_parties currInvitees
set MODIFIED_FLAG = 'Y',
LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
nvl(modified_flag, 'N') <> 'P' and
nvl(modified_flag, 'N') <> 'S' and
exists (select null
from pon_bidding_parties prevInvitees
where prevInvitees.auction_header_id = p_prevAuctionHeaderId and
(prevInvitees.trading_partner_id = currInvitees.trading_partner_id
or prevInvitees.requested_supplier_id = currInvitees.requested_supplier_id) and
nvl(prevInvitees.vendor_site_id, -9999) = nvl(currInvitees.vendor_site_id, -9999) and
(nvl(prevInvitees.trading_partner_contact_id, -9999) <> nvl(currInvitees.trading_partner_contact_id, -9999) or
nvl(prevInvitees.requested_supplier_contact_id, -999) <> nvl(currInvitees.requested_supplier_contact_id, -999) or
nvl(prevInvitees.additional_contact_email, 'null') <> nvl(currInvitees.additional_contact_email, 'null') or
nvl(prevInvitees.bid_currency_code, 'null') <> nvl(currInvitees.bid_currency_code, 'null') or
nvl(prevInvitees.rate_dsp, -9999) <> nvl(currInvitees.rate_dsp, -9999) or
nvl(prevInvitees.number_price_decimals, -9999) <> nvl(currInvitees.number_price_decimals, -9999)));
END UPDATE_INVITEES_MODIFIED;
PROCEDURE UPDATE_HDR_ATTR_MODIFIED (p_currAuctionHeaderId IN NUMBER,
p_prevAuctionHeaderId IN NUMBER,
p_action IN VARCHAR2) IS
v_currAmendmentNumber NUMBER;
select nvl(amendment_number, 0)
into v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_attributes auctionAttr
set MODIFIED_FLAG = null,
MODIFIED_DATE = (select modified_date
from pon_auction_attributes
where auction_header_id = p_prevAuctionHeaderId and
sequence_number = auctionAttr.sequence_number and
line_number = -1),
LAST_AMENDMENT_UPDATE = 0
where auction_header_id = p_currAuctionHeaderId
and line_number = -1;
update pon_auction_attributes auctionAttr
set MODIFIED_DATE = sysdate
where auction_header_id = p_currAuctionHeaderId and
line_number = -1 and
modified_date is null;
update pon_auction_attributes auctionAttr
set MODIFIED_FLAG = null,
MODIFIED_DATE = (select modified_date
from pon_auction_attributes
where auction_header_id = p_prevAuctionHeaderId and
sequence_number = auctionAttr.sequence_number and
line_number = -1),
LAST_AMENDMENT_UPDATE = (select nvl(last_amendment_update, 0)
from pon_auction_attributes
where auction_header_id = p_prevAuctionHeaderId and
sequence_number = auctionAttr.sequence_number and
line_number = -1)
where auction_header_id = p_currAuctionHeaderId
and line_number = -1;
update pon_auction_attributes auctionAttr
set MODIFIED_DATE = sysdate,
LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
line_number = -1 and
last_amendment_update is null;
update pon_auction_attributes currAttr
set MODIFIED_FLAG = 'Y',
MODIFIED_DATE = sysdate,
LAST_AMENDMENT_UPDATE = v_currAmendmentNumber
where auction_header_id = p_currAuctionHeaderId and
line_number = -1 and
exists (select null
from pon_auction_attributes prevAttr
where prevAttr.auction_header_id = p_prevAuctionHeaderId and
prevAttr.line_number = -1 and
prevAttr.sequence_number = currAttr.sequence_number and
(nvl(currAttr.attribute_name, 'null') <> nvl(prevAttr.attribute_name, 'null') OR
nvl(currAttr.description, 'null') <> nvl(prevAttr.description, 'null') OR
nvl(currAttr.datatype, 'null') <> nvl(prevAttr.datatype, 'null') OR
nvl(currAttr.mandatory_flag, 'null') <> nvl(prevAttr.mandatory_flag, 'null') OR
nvl(currAttr.value, 'null') <> nvl(prevAttr.value, 'null') OR
nvl(currAttr.display_prompt, 'null') <> nvl(prevAttr.display_prompt, 'null') OR
nvl(currAttr.help_text, 'null') <> nvl(prevAttr.help_text, 'null') OR
nvl(currAttr.display_target_flag, 'null') <> nvl(prevAttr.display_target_flag, 'null') OR
nvl(currAttr.attribute_list_id, -99) <> nvl(prevAttr.attribute_list_id, -99) OR
nvl(currAttr.display_only_flag, 'null') <> nvl(prevAttr.display_only_flag, 'null') OR
nvl(currAttr.copied_from_cat_flag, 'null') <> nvl(prevAttr.copied_from_cat_flag, 'null') OR
nvl(currAttr.weight, -99) <> nvl(prevAttr.weight, -99) OR
nvl(currAttr.scoring_type, 'null') <> nvl(prevAttr.scoring_type, 'null') OR nvl(currAttr.attr_level, 'null') <> nvl(prevAttr.attr_level, 'null') OR
nvl(currAttr.attr_group, 'null') <> nvl(prevAttr.attr_group, 'null') OR
nvl(currAttr.attr_max_score, -99) <> nvl(prevAttr.attr_max_score, -99) OR
nvl(currAttr.internal_attr_flag, 'null') <> nvl(prevAttr.internal_attr_flag, 'null')));
END UPDATE_HDR_ATTR_MODIFIED;
PROCEDURE PROPAGATE_BACK_INSERT_INVITEE(p_currAuctionHeaderId IN NUMBER,
p_sequence IN NUMBER ) IS
v_auctionHeaderIdOrigAmend NUMBER;
select auction_header_id_orig_amend, nvl(amendment_number, 0)
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
insert into pon_bidding_parties
(auction_header_id,
list_id,
last_update_date,
last_updated_by,
sequence,
trading_partner_name,
trading_partner_id,
trading_partner_contact_name,
trading_partner_contact_id,
wf_user_name,
creation_date,
created_by,
bid_currency_code,
number_price_decimals,
rate,
derive_type,
additional_contact_email,
round_number,
registration_id,
rate_dsp,
wf_item_key,
last_amendment_update,
vendor_site_id,
vendor_site_code,
modified_flag,
access_type)
select pah.auction_header_id,
pbp.list_id,
pbp.last_update_date,
pbp.last_updated_by,
pbp.sequence,
pbp.trading_partner_name,
pbp.trading_partner_id,
pbp.trading_partner_contact_name,
pbp.trading_partner_contact_id,
pbp.wf_user_name,
pbp.creation_date,
pbp.created_by,
pbp.bid_currency_code,
pbp.number_price_decimals,
pbp.rate,
pbp.derive_type,
pbp.additional_contact_email,
pbp.round_number,
pbp.registration_id,
pbp.rate_dsp,
pbp.wf_item_key,
pbp.last_amendment_update,
pbp.vendor_site_id,
pbp.vendor_site_code,
pbp.modified_flag,
pbp.access_type
from pon_auction_headers_all pah,
pon_bidding_parties pbp
where pah.auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
pah.amendment_number < v_currAmendmentNumber and
pbp.auction_header_id = p_currAuctionHeaderId and
pbp.sequence = p_sequence ;
END PROPAGATE_BACK_INSERT_INVITEE;
PROCEDURE PROPAGATE_BACK_UPDATE_INVITEE(p_currAuctionHeaderId IN NUMBER,
p_sequence IN NUMBER) IS
v_auctionHeaderIdOrigAmend NUMBER;
select auction_header_id_orig_amend, nvl(amendment_number, 0)
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_bidding_parties pbp
set (ack_partner_contact_id, supp_acknowledgement, ack_note_to_auctioneer, acknowledgement_time) =
(select currPbp.ack_partner_contact_id, currPbp.supp_acknowledgement, currPbp.ack_note_to_auctioneer, currPbp.acknowledgement_time
from pon_bidding_parties currPbp
where currPbp.auction_header_id = p_currAuctionHeaderId and
currPbp.sequence = p_sequence)
where pbp.auction_header_id in (select auction_header_id from pon_auction_headers_all where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and amendment_number <> v_currAmendmentNumber) and
pbp.sequence = p_sequence ;
END PROPAGATE_BACK_UPDATE_INVITEE;
PROCEDURE PROPAGATE_BACK_INSERT_MEMBER(p_currAuctionHeaderId IN NUMBER,
p_userId IN NUMBER) IS
v_auctionHeaderIdOrigAmend NUMBER;
select auction_header_id_orig_amend, nvl(amendment_number, 0)
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
insert into pon_neg_team_members
(auction_header_id,
list_id,
user_id,
menu_name,
member_type,
approver_flag,
approval_status,
task_name,
target_date,
completion_date,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_amendment_update,
modified_flag)
select pah.auction_header_id,
pntm.list_id,
pntm.user_id,
pntm.menu_name,
pntm.member_type,
pntm.approver_flag,
pntm.approval_status,
pntm.task_name,
pntm.target_date,
pntm.completion_date,
pntm.creation_date,
pntm.created_by,
pntm.last_update_date,
pntm.last_updated_by,
pntm.last_amendment_update,
pntm.modified_flag
from pon_auction_headers_all pah,
pon_neg_team_members pntm
where pah.auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
pah.amendment_number < v_currAmendmentNumber and
pntm.auction_header_id = p_currAuctionHeaderId and
pntm.user_id = p_userId;
END PROPAGATE_BACK_INSERT_MEMBER;
select auction_header_id_orig_amend, nvl(amendment_number, 0)
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_headers_all
set technical_lock_status = 'UNLOCKED',
technical_unlock_tp_contact_id = p_userId,
technical_actual_unlock_date = p_unlock_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
update pon_auction_headers_all
set sealed_auction_status = 'UNLOCKED',
sealed_unlock_tp_contact_id = p_userId,
sealed_actual_unlock_date = p_unlock_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
select auction_header_id_orig_amend, nvl(amendment_number, 0), technical_lock_status
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber, v_technicalLockStatus
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_headers_all
set technical_lock_status = 'ACTIVE',
technical_unseal_tp_contact_id = p_userId,
technical_actual_unseal_date = p_unseal_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
update pon_auction_headers_all
set sealed_auction_status = 'ACTIVE',
sealed_unseal_tp_contact_id = p_userId,
sealed_actual_unseal_date = p_unseal_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
update pon_auction_headers_all
set sealed_auction_status = 'ACTIVE',
sealed_unseal_tp_contact_id = p_userId,
sealed_actual_unseal_date = p_unseal_date,
technical_lock_status = 'ACTIVE',
technical_unseal_tp_contact_id = p_userId,
technical_actual_unseal_date = p_unseal_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
update pon_auction_headers_all
set sealed_auction_status = 'ACTIVE',
sealed_unseal_tp_contact_id = p_userId,
sealed_actual_unseal_date = p_unseal_date
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
SELECT HAS_PRICE_ELEMENTS
INTO l_auction_has_price_elements
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id;
insert into pon_price_elements
(auction_header_id,
line_number,
list_id,
price_element_type_id,
pricing_basis,
value,
display_target_flag,
sequence_number,
creation_date,
created_by,
last_update_date,
last_updated_by,
pf_type,
display_to_suppliers_flag)
select auction_header_id,
line_number,
-1,
-10,
decode(order_type_lookup_code, 'FIXED PRICE', 'FIXED_AMOUNT', 'PER_UNIT'),
unit_target_price,
unit_display_target_flag,
-10,
sysdate,
p_user_id,
sysdate,
p_user_id,
'SUPPLIER',
'Y'
from pon_auction_item_prices_all
where auction_header_id = p_auction_header_id and
(has_price_elements_flag = 'Y' or has_buyer_pfs_flag = 'Y');
insert into pon_pf_supplier_formula
(auction_header_id,
line_number,
trading_partner_id,
vendor_site_id,
unit_price,
fixed_amount,
percentage,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login)
select paip.auction_header_id,
paip.line_number,
pbp.trading_partner_id,
pbp.vendor_site_id,
sum(decode(ppe.pricing_basis, 'PER_UNIT', Decode(Nvl(ppe.negative_cost_factor_flag,'N'),'Y', -ppsv.Value,ppsv.Value) , 0)) unit_price,
sum(decode(ppe.pricing_basis, 'FIXED_AMOUNT', Decode(Nvl(ppe.negative_cost_factor_flag,'N'),'Y', -ppsv.Value,ppsv.Value), 0)) fixed_amount,
1 + sum(decode(ppe.pricing_basis, 'PERCENTAGE', Decode(Nvl(ppe.negative_cost_factor_flag,'N'),'Y', -ppsv.Value/100,ppsv.Value/100), 0)) percentage,
sysdate,
p_user_id,
sysdate,
p_user_id,
p_login_id
from pon_auction_item_prices_all paip,
pon_bidding_parties pbp,
pon_pf_supplier_values ppsv,
pon_price_elements ppe
where paip.auction_header_id = p_auction_header_id and
pbp.auction_header_id = paip.auction_header_id and
pbp.auction_header_id = ppsv.auction_header_id and
pbp.sequence = ppsv.supplier_seq_number and
paip.line_number = ppsv.line_number and
ppsv.auction_header_id = ppe.auction_header_id and
ppsv.line_number = ppe.line_number and
ppsv.pf_seq_number = ppe.sequence_number
group by paip.auction_header_id, paip.line_number, pbp.trading_partner_id, pbp.vendor_site_id;
x_temp PON_AUCTION_HEADERS_ALL.LAST_UPDATE_DATE%TYPE;
SELECT LAST_UPDATE_DATE, CLOSE_BIDDING_DATE
INTO x_temp, x_close_bidding_date
FROM PON_AUCTION_HEADERS_ALL
WHERE AUCTION_HEADER_ID = p_auction_header_id
FOR UPDATE;
update pon_auction_headers_all
set last_update_date = sysdate,
last_updated_by = p_user_id
where auction_header_id = p_auction_header_id;
update pon_auction_item_prices_all
set close_bidding_date = p_new_close_date,
last_update_date = sysdate,
last_updated_by = p_user_id
where auction_header_id = p_auction_header_id
and (line_number = p_line_number
or parent_line_number = p_line_number);
message => 'Update header and the line.');
select line_number into v_auction_last_line_number
from pon_auction_item_prices_all
where auction_header_id = p_auction_header_id
and disp_line_number =
(select max(disp_line_number)
from pon_auction_item_prices_all
where auction_header_id=p_auction_header_id
and group_type in ('LINE', 'LOT', 'GROUP'));
update pon_auction_headers_all set close_bidding_date = p_new_close_date
where auction_header_id = p_auction_header_id;
message => 'Updated header sending notification.');
select auction_header_id_orig_amend, nvl(amendment_number, 0)
into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
from pon_auction_headers_all
where auction_header_id = p_currAuctionHeaderId;
update pon_auction_headers_all
set technical_evaluation_status = p_tech_eval_status
where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
amendment_number < v_currAmendmentNumber;
SELECT Count(*) FROM pon_backing_requisitions
WHERE auction_header_id = p_auction_header_id;
select auction_header_id,document_number
into l_prev_auction_header_id,x_prev_doc_number
from pon_auction_headers_all
where
auction_header_id = (select auction_header_id_prev_amend
from pon_auction_headers_all
where auction_header_id=p_auction_header_id);
po_negotiations_sv1.update_sol_ref_delete_all(p_auction_header_id => l_prev_auction_header_id,
p_delete_pbr_yn => 'N',
x_return_status => l_return_status,
x_error_msg => l_msg_data,
x_error_code => x_error_code);
update pon_auction_headers_all
set auction_status = 'APPLIED'
where auction_header_id = p_auction_header_id;
PROCEDURE UPDATE_REQ_REF_LINES (p_auction_header_id IN NUMBER,
p_document_number IN VARCHAR2) IS
l_module_name VARCHAR2(30) := 'UPDATE_REQ_REF_LINES';
UPDATE PO_REQUISITION_LINES_ALL
SET AUCTION_DISPLAY_NUMBER = p_document_number
WHERE REQUISITION_LINE_ID IN (SELECT REQUISITION_LINE_ID FROM PON_BACKING_REQUISITIONS WHERE AUCTION_HEADER_ID = p_auction_header_id)
AND AUCTION_HEADER_ID = p_auction_header_id;
message => 'Updated po_requistion_lines_all with new docuemnt_number for auction_header_id : ' || p_auction_header_id);
END UPDATE_REQ_REF_LINES;