[Home] [Help]
120: --
121:
122: SELECT pon_auction_wf_acbid_s.nextval
123: INTO x_sequence
124: FROM dual;
125:
126: --
127: -- get the contact name and auction type
128: --
1668: AND l_rec.award_quantity >= pbs.quantity
1669: AND l_rec.award_quantity <= pbs.max_quantity
1670: AND paip.auction_header_id = pbs.auction_header_id
1671: AND paip.line_number = pbs.line_number ),-1)
1672: into l_award_shipment_number from dual;
1673:
1674: IF (g_debug_mode = 'Y') THEN
1675: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1676: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, 'pon.plsql.PON_AWARD_PKG.AWARD_AUCTION', 'award_shipment_number ' || l_award_shipment_number);
2582: -- FPK: CPA
2583: l_index PLS_INTEGER;
2584: l_bid_headers_count PLS_INTEGER :=0; -- generic pon_bid_headers index
2585:
2586: -- Declaration of individual elements to avoid ORA-3113 error because
2587: -- FORALL does not allow update of elements using rec(i).field
2588: l_bid_number_tbl Number_tbl_type;
2589: l_award_status_tbl Char25_tbl_type;
2590: l_award_date_tbl Date_tbl_type;
3041: ELSE -- negotiation does not have lines
3042: BEGIN
3043: select 'AWARDED' -- it means an award decision was made
3044: into l_award_status
3045: from dual
3046: where exists (select 1
3047: from pon_bid_headers
3048: where auction_header_id = p_auction_id
3049: and bid_status = 'ACTIVE'
3721: where scenario_id = p_scenario_id;
3722:
3723: -- store the next scenario id in a local variable
3724: select pon_optimize_scenarios_s.nextval
3725: into l_new_scenario_id from dual;
3726:
3727: IF(p_cost_scenario_flag = 'Y') THEN
3728:
3729: -- we donot display this number any place
4557:
4558: BEGIN
4559: SELECT 'Y'
4560: INTO l_bid_exists
4561: FROM dual
4562: WHERE EXISTS (SELECT 1
4563: FROM pon_optimize_bid_class pobc
4564: WHERE pobc.scenario_id = p_scenario_id
4565: AND pobc.sequence_number = p_sequence_number
4583:
4584: BEGIN
4585: SELECT 'Y'
4586: INTO l_scored_attribute_exists
4587: FROM dual
4588: WHERE EXISTS (SELECT 1
4589: FROM pon_attribute_scores pas
4590: WHERE pas.auction_header_id = p_auction_header_id
4591: AND pas.line_number = p_line_number);
4957: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4958: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, l_module, 'Before deleting constraint from pon_optimize_constraints');
4959: END IF;
4960: END IF;
4961: -- INCLUDES LINE-LEVEL INDIVIDUAL SUPPLIER CONSTRAINTS AS WELL
4962:
4963: -- if the constraint type is either of the remaining types,
4964: -- we can delete the row from pon_optimize_constraints
4965: -- using the sequence_number