[Home] [Help]
21:
22: -- lock negotiation header
23: SELECT LAST_UPDATE_DATE, CLOSE_BIDDING_DATE
24: INTO x_temp, x_close_bidding_date
25: FROM PON_AUCTION_HEADERS_ALL
26: WHERE AUCTION_HEADER_ID = p_auction_header_id
27: FOR UPDATE;
28:
29: -- update header close date
26: WHERE AUCTION_HEADER_ID = p_auction_header_id
27: FOR UPDATE;
28:
29: -- update header close date
30: update pon_auction_headers_all
31: set close_bidding_date = p_new_close_date,
32: original_close_bidding_date = x_close_bidding_date,
33: last_update_date = sysdate,
34: last_updated_by = p_user_id
64: x_error_code OUT NOCOPY VARCHAR2) IS
65:
66:
67: x_temp DATE;
68: x_auction_origination_code pon_auction_headers_all.auction_origination_code%TYPE;
69: x_trading_partner_contact_id pon_auction_headers_all.trading_partner_contact_id%TYPE;
70:
71: BEGIN
72:
65:
66:
67: x_temp DATE;
68: x_auction_origination_code pon_auction_headers_all.auction_origination_code%TYPE;
69: x_trading_partner_contact_id pon_auction_headers_all.trading_partner_contact_id%TYPE;
70:
71: BEGIN
72:
73: x_error_code := 'SUCCESS';
74:
75: -- select data from header
76: select auction_origination_code, trading_partner_contact_id
77: into x_auction_origination_code, x_trading_partner_contact_id
78: from pon_auction_headers_all
79: where auction_header_id = p_auction_header_id;
80:
81: -- lock the negotiation
82: SELECT LAST_UPDATE_DATE
80:
81: -- lock the negotiation
82: SELECT LAST_UPDATE_DATE
83: INTO x_temp
84: FROM PON_AUCTION_HEADERS_ALL
85: WHERE AUCTION_HEADER_ID = p_auction_header_id
86: FOR UPDATE;
87:
88: -- update header
86: FOR UPDATE;
87:
88: -- update header
89: -- update the pause details also.
90: update pon_auction_headers_all
91: set auction_status = 'CANCELLED',
92: cancel_date = sysdate,
93: last_update_date = sysdate,
94: last_updated_by = p_user_id,
167: -- lock the negotiation header
168: SELECT LAST_UPDATE_DATE, nvl( IS_PAUSED, 'N' ), nvl( LAST_PAUSE_DATE, sysdate ), nvl(number_of_extensions, 0),
169: nvl2(staggered_closing_interval,'Y','N'), first_line_close_date
170: INTO x_update_date, v_ispaused, v_pause_date, x_num_extension_occurred, v_is_staggered, x_first_line_close_date
171: FROM PON_AUCTION_HEADERS_ALL
172: WHERE AUCTION_HEADER_ID = p_auction_header_id
173: FOR UPDATE;
174:
175:
223: -- This extended close bidding date will be retrieved from the java layer.
224: p_extended_close_bidding_date := x_new_close_date;
225:
226: -- update header close date and reset the pause related fields.
227: UPDATE PON_AUCTION_HEADERS_ALL
228: SET CLOSE_BIDDING_DATE = x_new_close_date,
229: LAST_UPDATE_DATE= sysdate,
230: LAST_UPDATED_BY = p_user_id,
231: ORIGINAL_CLOSE_BIDDING_DATE = p_close_date,
271: x_new_autoextend_num := UNLIMITED_INT;
272: else
273: x_new_autoextend_num := x_num_extension_occurred+p_new_autoextend_num;
274: end if;
275: UPDATE PON_AUCTION_HEADERS_ALL
276: SET AUTO_EXTEND_FLAG = 'Y',
277: AUTO_EXTEND_NUMBER = x_new_autoextend_num,
278: AUTO_EXTEND_ALL_LINES_FLAG = p_is_allExtend,
279: AUTO_EXTEND_DURATION = p_new_duration,
306: PROCEDURE ACTIVATE_PREV_ROUND_NEG (p_prev_round_auction_header_id IN NUMBER) IS
307:
308: BEGIN
309:
310: update pon_auction_headers_all
311: set auction_status = 'ACTIVE'
312: where auction_header_id = p_prev_round_auction_header_id;
313:
314: END ACTIVATE_PREV_ROUND_NEG;
336: BEGIN
337:
338: select auction_status, award_status, view_by_date, open_bidding_date, close_bidding_date, sysdate, NVL( is_paused, 'N')
339: into v_auction_status, v_award_status, v_view_by_date, v_open_bidding_date, v_close_bidding_date, v_sysdate, v_is_paused
340: from pon_auction_headers_all
341: where auction_header_id = p_auction_header_id_prev_doc;
342:
343: if v_is_paused <> 'Y' then
344:
379: x_error_msg OUT NOCOPY VARCHAR2) IS
380:
381:
382: v_temp DATE;
383: v_doc_number_prev_doc pon_auction_headers_all.document_number%TYPE;
384:
385: BEGIN
386:
387: x_error_code := 'SUCCESS';
389:
390: -- lock negotiation
391: SELECT LAST_UPDATE_DATE, document_number
392: INTO v_temp, v_doc_number_prev_doc
393: FROM PON_AUCTION_HEADERS_ALL
394: WHERE AUCTION_HEADER_ID = p_auction_header_id_prev_doc
395: FOR UPDATE;
396:
397: -- when saving the document for the first time...
404: -- update status of previous round document
405:
406: if (p_transaction_type = 'CREATE_NEW_ROUND') then
407:
408: update pon_auction_headers_all
409: set AWARD_STATUS = 'NO',
410: AUCTION_STATUS = 'AUCTION_CLOSED',
411: LAST_UPDATE_DATE = sysdate,
412: LAST_UPDATED_BY = p_user_id
450:
451: -- update pause details also.
452: if (p_transaction_type = 'CREATE_AMENDMENT') then
453:
454: update pon_auction_headers_all
455: set AWARD_STATUS = 'NO',
456: AUCTION_STATUS = 'AMENDED',
457: is_paused = null,
458: pause_remarks = null,
509: BEGIN
510:
511: select nvl(amendment_number, 0)
512: into v_currAmendmentNumber
513: from pon_auction_headers_all
514: where auction_header_id = p_currAuctionHeaderId;
515:
516:
517: -- first, reset the modified flag and last amendment update columns
571: BEGIN
572:
573: select nvl(amendment_number, 0)
574: into v_currAmendmentNumber
575: from pon_auction_headers_all
576: where auction_header_id = p_currAuctionHeaderId;
577:
578:
579: -- first, reset the modified flag and last amendment update columns
637: BEGIN
638:
639: select nvl(amendment_number, 0)
640: into v_currAmendmentNumber
641: from pon_auction_headers_all
642: where auction_header_id = p_currAuctionHeaderId;
643:
644: -- first, reset the modified flag and last amendment update columns
645: -- only if modified flag is not "P" or "S" ...
719: BEGIN
720:
721: select nvl(amendment_number, 0)
722: into v_currAmendmentNumber
723: from pon_auction_headers_all
724: where auction_header_id = p_currAuctionHeaderId;
725:
726:
727: -- first, reset the modified flag and last amendment update columns
826: BEGIN
827:
828: select auction_header_id_orig_amend, nvl(amendment_number, 0)
829: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
830: from pon_auction_headers_all
831: where auction_header_id = p_currAuctionHeaderId;
832:
833: insert into pon_bidding_parties
834: (auction_header_id,
883: pbp.vendor_site_id,
884: pbp.vendor_site_code,
885: pbp.modified_flag,
886: pbp.access_type
887: from pon_auction_headers_all pah,
888: pon_bidding_parties pbp
889: where pah.auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
890: pah.amendment_number < v_currAmendmentNumber and
891: pbp.auction_header_id = p_currAuctionHeaderId and
910: BEGIN
911:
912: select auction_header_id_orig_amend, nvl(amendment_number, 0)
913: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
914: from pon_auction_headers_all
915: where auction_header_id = p_currAuctionHeaderId;
916:
917: update pon_bidding_parties pbp
918: set (ack_partner_contact_id, supp_acknowledgement, ack_note_to_auctioneer, acknowledgement_time) =
921: from pon_bidding_parties currPbp
922: where currPbp.auction_header_id = p_currAuctionHeaderId and
923: currPbp.sequence = p_sequence)
924:
925: 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
926: pbp.sequence = p_sequence ;
927:
928: END PROPAGATE_BACK_UPDATE_INVITEE;
929:
945: BEGIN
946:
947: select auction_header_id_orig_amend, nvl(amendment_number, 0)
948: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
949: from pon_auction_headers_all
950: where auction_header_id = p_currAuctionHeaderId;
951:
952: insert into pon_neg_team_members
953: (auction_header_id,
982: pntm.last_update_date,
983: pntm.last_updated_by,
984: pntm.last_amendment_update,
985: pntm.modified_flag
986: from pon_auction_headers_all pah,
987: pon_neg_team_members pntm
988: where pah.auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
989: pah.amendment_number < v_currAmendmentNumber and
990: pntm.auction_header_id = p_currAuctionHeaderId and
1015: END IF;
1016:
1017: select auction_header_id_orig_amend, nvl(amendment_number, 0)
1018: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
1019: from pon_auction_headers_all
1020: where auction_header_id = p_currAuctionHeaderId;
1021:
1022: IF p_unlock_type = 'Technical' THEN
1023: update pon_auction_headers_all
1019: from pon_auction_headers_all
1020: where auction_header_id = p_currAuctionHeaderId;
1021:
1022: IF p_unlock_type = 'Technical' THEN
1023: update pon_auction_headers_all
1024: set technical_lock_status = 'UNLOCKED',
1025: technical_unlock_tp_contact_id = p_userId,
1026: technical_actual_unlock_date = p_unlock_date
1027: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1026: technical_actual_unlock_date = p_unlock_date
1027: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1028: amendment_number < v_currAmendmentNumber;
1029: ELSE
1030: update pon_auction_headers_all
1031: set sealed_auction_status = 'UNLOCKED',
1032: sealed_unlock_tp_contact_id = p_userId,
1033: sealed_actual_unlock_date = p_unlock_date
1034: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1067: END IF;
1068:
1069: select auction_header_id_orig_amend, nvl(amendment_number, 0), technical_lock_status
1070: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber, v_technicalLockStatus
1071: from pon_auction_headers_all
1072: where auction_header_id = p_currAuctionHeaderId;
1073:
1074: IF p_unseal_type = 'Technical' THEN
1075: update pon_auction_headers_all
1071: from pon_auction_headers_all
1072: where auction_header_id = p_currAuctionHeaderId;
1073:
1074: IF p_unseal_type = 'Technical' THEN
1075: update pon_auction_headers_all
1076: set technical_lock_status = 'ACTIVE',
1077: technical_unseal_tp_contact_id = p_userId,
1078: technical_actual_unseal_date = p_unseal_date
1079: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1080: amendment_number < v_currAmendmentNumber;
1081:
1082: ELSIF p_unseal_type = 'Commercial' THEN
1083: IF v_technicalLockStatus = 'ACTIVE' THEN
1084: update pon_auction_headers_all
1085: set sealed_auction_status = 'ACTIVE',
1086: sealed_unseal_tp_contact_id = p_userId,
1087: sealed_actual_unseal_date = p_unseal_date
1088: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1087: sealed_actual_unseal_date = p_unseal_date
1088: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1089: amendment_number < v_currAmendmentNumber;
1090: ELSE
1091: update pon_auction_headers_all
1092: set sealed_auction_status = 'ACTIVE',
1093: sealed_unseal_tp_contact_id = p_userId,
1094: sealed_actual_unseal_date = p_unseal_date,
1095: technical_lock_status = 'ACTIVE',
1098: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1099: amendment_number < v_currAmendmentNumber;
1100: END IF;
1101: ELSE
1102: update pon_auction_headers_all
1103: set sealed_auction_status = 'ACTIVE',
1104: sealed_unseal_tp_contact_id = p_userId,
1105: sealed_actual_unseal_date = p_unseal_date
1106: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1123: BEGIN
1124:
1125: SELECT HAS_PRICE_ELEMENTS
1126: INTO l_auction_has_price_elements
1127: FROM PON_AUCTION_HEADERS_ALL
1128: WHERE AUCTION_HEADER_ID = p_auction_header_id;
1129:
1130: IF ('Y' = l_auction_has_price_elements) THEN
1131:
1217: x_is_auction_closed OUT NOCOPY VARCHAR2
1218: ) IS
1219:
1220: l_module_name VARCHAR2 (30);
1221: x_temp PON_AUCTION_HEADERS_ALL.LAST_UPDATE_DATE%TYPE;
1222: x_close_bidding_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1223: v_auction_last_line_number PON_AUCTION_ITEM_PRICES_ALL.LINE_NUMBER%TYPE;
1224: p_new_close_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1225: BEGIN
1218: ) IS
1219:
1220: l_module_name VARCHAR2 (30);
1221: x_temp PON_AUCTION_HEADERS_ALL.LAST_UPDATE_DATE%TYPE;
1222: x_close_bidding_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1223: v_auction_last_line_number PON_AUCTION_ITEM_PRICES_ALL.LINE_NUMBER%TYPE;
1224: p_new_close_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1225: BEGIN
1226:
1220: l_module_name VARCHAR2 (30);
1221: x_temp PON_AUCTION_HEADERS_ALL.LAST_UPDATE_DATE%TYPE;
1222: x_close_bidding_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1223: v_auction_last_line_number PON_AUCTION_ITEM_PRICES_ALL.LINE_NUMBER%TYPE;
1224: p_new_close_date PON_AUCTION_HEADERS_ALL.CLOSE_BIDDING_DATE%TYPE;
1225: BEGIN
1226:
1227: l_module_name := 'MANUAL_CLOSE_LINE';
1228: x_result := FND_API.g_ret_sts_success;
1237:
1238: -- lock negotiation header
1239: SELECT LAST_UPDATE_DATE, CLOSE_BIDDING_DATE
1240: INTO x_temp, x_close_bidding_date
1241: FROM PON_AUCTION_HEADERS_ALL
1242: WHERE AUCTION_HEADER_ID = p_auction_header_id
1243: FOR UPDATE;
1244:
1245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1248: message => 'Locked the negotiation header');
1249: END IF;
1250:
1251: -- update header date
1252: update pon_auction_headers_all
1253: set last_update_date = sysdate,
1254: last_updated_by = p_user_id
1255: where auction_header_id = p_auction_header_id;
1256:
1294: module => g_module_prefix || l_module_name,
1295: message => 'The last line number in the auction matches with p_line_number, closing the negotiation');
1296: END IF;
1297:
1298: update pon_auction_headers_all set close_bidding_date = p_new_close_date
1299: where auction_header_id = p_auction_header_id;
1300: x_is_auction_closed := 'Y';
1301:
1302: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1351: END IF;
1352:
1353: select auction_header_id_orig_amend, nvl(amendment_number, 0)
1354: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
1355: from pon_auction_headers_all
1356: where auction_header_id = p_currAuctionHeaderId;
1357:
1358: update pon_auction_headers_all
1359: set technical_evaluation_status = p_tech_eval_status
1354: into v_auctionHeaderIdOrigAmend, v_currAmendmentNumber
1355: from pon_auction_headers_all
1356: where auction_header_id = p_currAuctionHeaderId;
1357:
1358: update pon_auction_headers_all
1359: set technical_evaluation_status = p_tech_eval_status
1360: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1361: amendment_number < v_currAmendmentNumber;
1362: