[Home] [Help]
230: END IF;
231:
232: -- Creating fresh bid.
233: -- User must accept terms and conditions if contracts installed.
234: IF ((l_enabled_flag = 'Y' OR l_enabled_flag = 'X') AND (p_eval_flag='Y' OR pon_bid_defaulting_pkg.is_accepted_terms_cond(p_auc_header_id,l_orig_amend_id,p_tpid,p_tpcid)='N')) THEN
235: x_return_status := 1;
236: x_return_code := 'TO_TERMS_COND';
237: ELSE
238: x_return_status := 0;
258: -- p_eval_flag IN flag indicating if the response is an evaluation
259: -- x_prev_bid_number OUT returned backing bid number
260: -- x_rebid_flag OUT Y/N if the current bid is a rebid/not a rebid
261: --
262: -- COMMENT: This procedure is a version of pon_bid_defaulting_pkg.handle_proxy
263: --
264: -- ======================================================================
265: PROCEDURE handle_proxy
266: (
381: p_draft_bid_num := NULL;
382:
383: END check_draft_exists;
384:
385: /* This is a overloaded procedure for pon_bid_defaulting_pkg.lock_draft */
386: PROCEDURE lock_draft_bid(p_auc_header_id IN pon_auction_headers_all.auction_header_id%TYPE,
387: p_draft_number IN pon_bid_headers.bid_number%TYPE,
388: p_buyer_user IN VARCHAR2,
389: p_auctpid IN pon_bid_headers.surrog_bid_created_tp_id%TYPE,
421: ',p_eval_flag = '||p_eval_flag);
422:
423: -- Check that the draft is not locked by another user and lock it
424: IF (p_buyer_user = 'Y') THEN
425: pon_bid_defaulting_pkg.lock_draft
426: (p_draft_number,
427: p_auctpid,
428: p_auctpcid,
429: x_return_status,
430: x_return_code);
431:
432: -- Begin Supplier Management: Supplier Evaluation
433: ELSIF (p_eval_flag = 'Y') THEN
434: pon_bid_defaulting_pkg.lock_draft
435: (p_draft_number,
436: p_tpid,
437: p_evaluator_id,
438: x_return_status,
438: x_return_status,
439: x_return_code);
440: -- End Supplier Management: Supplier Evaluation
441: ELSE
442: pon_bid_defaulting_pkg.lock_draft
443: (p_draft_number,
444: p_tpid,
445: p_tpcid,
446: x_return_status,
446: x_return_status,
447: x_return_code);
448: END IF;
449:
450: log_message('lock_draft_bid','after pon_bid_defaulting_pkg.lock_draft : '||
451: ' x_return_status = ' || x_return_status ||
452: ', x_return_code = ' || x_return_code);
453:
454: IF (x_return_status = 1) THEN
647:
648: --First check if all amendments are acknowledged by this user.
649: -- Bug 10027124 - only do the check if it's not evaluation
650: IF (p_eval_flag = 'N') THEN
651: pon_bid_defaulting_pkg.check_amendments_acked(p_auc_header_id, p_tpid, p_tpcid,
652: x_return_status, x_return_code);
653: log_message ('check_and_load_bid', 'after pon_bid_defaulting_pkg.check_amendments_acked : x_return_status = ' || x_return_status);
654: END IF;
655: IF (x_return_status = 1) THEN
649: -- Bug 10027124 - only do the check if it's not evaluation
650: IF (p_eval_flag = 'N') THEN
651: pon_bid_defaulting_pkg.check_amendments_acked(p_auc_header_id, p_tpid, p_tpcid,
652: x_return_status, x_return_code);
653: log_message ('check_and_load_bid', 'after pon_bid_defaulting_pkg.check_amendments_acked : x_return_status = ' || x_return_status);
654: END IF;
655: IF (x_return_status = 1) THEN
656: RETURN;
657: END IF;
695: -- negotiation being amended or new round started
696: l_new_round_or_amended := 'N';
697:
698: -- Create the new bid
699: pon_bid_defaulting_pkg.create_new_draft_bid
700: (p_auc_header_id,
701: x_prev_bid_number,
702: p_tpid,
703: p_tpcid,
721: x_bid_number,
722: x_return_status,
723: x_return_code);
724:
725: log_message ('check_and_load_bid', 'after pon_bid_defaulting_pkg.create_new_draft_bid : x_return_status = ' || x_return_status ||
726: ', x_return_code = ' || x_return_code ||
727: ', l_new_round_or_amended = '|| l_new_round_or_amended ||
728: ', x_rebid_flag = '|| x_rebid_flag ||
729: ', x_prev_bid_disq = '|| x_prev_bid_disq ||
748: -- This sets to y if defaulting is happening because the
749: -- negotiation being amended or new round started
750: l_new_round_or_amended := 'N';
751:
752: log_message ('check_and_load_bid', 'before pon_bid_defaulting_pkg.create_new_draft_bid');
753:
754: -- Create the new bid
755: pon_bid_defaulting_pkg.create_new_draft_bid
756: (p_auc_header_id,
751:
752: log_message ('check_and_load_bid', 'before pon_bid_defaulting_pkg.create_new_draft_bid');
753:
754: -- Create the new bid
755: pon_bid_defaulting_pkg.create_new_draft_bid
756: (p_auc_header_id,
757: x_prev_bid_number,
758: p_tpid,
759: p_tpcid,
777: x_bid_number,
778: x_return_status,
779: x_return_code);
780:
781: log_message ('check_and_load_bid', 'after pon_bid_defaulting_pkg.create_new_draft_bid : x_return_status = ' || x_return_status ||
782: ', x_return_code = ' || x_return_code ||
783: ', l_new_round_or_amended = '|| l_new_round_or_amended ||
784: ', x_rebid_flag = '|| x_rebid_flag ||
785: ', x_prev_bid_disq = '|| x_prev_bid_disq ||
940: x_prev_bid_number := p_rev_bid_number;
941:
942: log_message ('check_and_load_bid', 'Create new draft bid by defaulting bid : '||p_rev_bid_number);
943:
944: pon_bid_defaulting_pkg.create_new_draft_bid
945: (p_auc_header_id,
946: p_rev_bid_number,
947: p_tpid,
948: p_tpcid,
966: x_bid_number,
967: x_return_status,
968: x_return_code);
969:
970: log_message ('check_and_load_bid', 'after pon_bid_defaulting_pkg.create_new_draft_bid : x_return_status = ' || x_return_status ||
971: ', x_return_code = ' || x_return_code ||
972: ', l_new_round_or_amended = '|| l_new_round_or_amended ||
973: ', x_rebid_flag = '|| x_rebid_flag ||
974: ', x_prev_bid_disq = '|| x_prev_bid_disq ||