[Home] [Help]
979: AND l_rec.award_quantity >= pbs.quantity
980: AND l_rec.award_quantity <= pbs.max_quantity
981: AND paip.auction_header_id = pbs.auction_header_id
982: AND paip.line_number = pbs.line_number ),-1)
983: into l_award_shipment_number from dual;
984:
985: IF (g_debug_mode = 'Y') THEN
986: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
987: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, 'pon.plsql.PON_AWARD_PKG.AWARD_AUCTION', 'award_shipment_number ' || l_award_shipment_number);
1473: -- FPK: CPA
1474: l_index PLS_INTEGER;
1475: l_bid_headers_count PLS_INTEGER :=0; -- generic pon_bid_headers index
1476:
1477: -- Declaration of individual elements to avoid ORA-3113 error because
1478: -- FORALL does not allow update of elements using rec(i).field
1479: l_bid_number_tbl Number_tbl_type;
1480: l_award_status_tbl Char25_tbl_type;
1481: l_award_date_tbl Date_tbl_type;
1847: ELSE -- negotiation does not have lines
1848: BEGIN
1849: select 'AWARDED' -- it means an award decision was made
1850: into l_award_status
1851: from dual
1852: where exists (select 1
1853: from pon_bid_headers
1854: where auction_header_id = p_auction_id
1855: and bid_status = 'ACTIVE'
2524: where scenario_id = p_scenario_id;
2525:
2526: -- store the next scenario id in a local variable
2527: select pon_optimize_scenarios_s.nextval
2528: into l_new_scenario_id from dual;
2529:
2530: IF(p_cost_scenario_flag = 'Y') THEN
2531:
2532: -- we donot display this number any place
3341:
3342: BEGIN
3343: SELECT 'Y'
3344: INTO l_bid_exists
3345: FROM dual
3346: WHERE EXISTS (SELECT 1
3347: FROM pon_optimize_bid_class pobc
3348: WHERE pobc.scenario_id = p_scenario_id
3349: AND pobc.sequence_number = p_sequence_number
3367:
3368: BEGIN
3369: SELECT 'Y'
3370: INTO l_scored_attribute_exists
3371: FROM dual
3372: WHERE EXISTS (SELECT 1
3373: FROM pon_attribute_scores pas
3374: WHERE pas.auction_header_id = p_auction_header_id
3375: AND pas.line_number = p_line_number);
3741: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3742: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, l_module, 'Before deleting constraint from pon_optimize_constraints');
3743: END IF;
3744: END IF;
3745: -- INCLUDES LINE-LEVEL INDIVIDUAL SUPPLIER CONSTRAINTS AS WELL
3746:
3747: -- if the constraint type is either of the remaining types,
3748: -- we can delete the row from pon_optimize_constraints
3749: -- using the sequence_number