[Home] [Help]
358: if l_is_amendment = 'Y' then
359:
360: update pon_auc_price_elements_int pe_int
361: set pe_int.DISPLAY_TARGET_FLAG = (select pe1.display_target_flag
362: from pon_price_elements pe1
363: where
364: pe_int.auction_line_number = pe1.line_number
365: and pe_int.auction_header_id = pe1.auction_header_id
366: and pe1.PRICE_ELEMENT_TYPE_ID = pe_int.PRICE_ELEMENT_TYPE_ID)
368: and exists
369: (select
370: 'x'
371: from
372: pon_price_elements pe,
373: pon_item_prices_interface paip_int,
374: pon_auction_headers_all pah
375: where
376: paip_int.batch_id = p_batch_id
427: select nvl(max(sequence_number),0) + g_price_element_seq_increment
428: into
429: l_next_sequence_number
430: from
431: pon_price_elements
432: where
433: auction_header_id = p_auction_header
434: and line_number = p_line_number;
435:
514: END IF;
515:
516: SELECT nvl(max(sequence_number),10)
517: INTO g_price_element_seq_number
518: FROM pon_price_elements
519: WHERE auction_header_id = g_auction_header_id;
520:
521: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
522: print_debug_log(l_module,'INITIALIZE_LINE_ATTR_GROUP END p_party_id = '||p_party_id||
685: GROUP marked as deleted the corresponding children are also deleted.
686: PON_ATTRIBUTE_SCORES
687: PON_AUCTION_ATTRIBUTES
688: PON_PF_SUPPLIER_VALUES
689: PON_PRICE_ELEMENTS
690: PON_PRICE_DIFFERENTIALS
691: PON_AUCTION_SHIPMENTS_ALL
692: PON_PARTY_LINE_EXCLUSIONS
693: PON_AUC_PAYMENTS_SHIPMENTS
813: and paip.group_type in ('LOT_LINE','GROUP_LINE')))
814: and auction_pf_values.line_number = p1.auction_line_number);
815:
816:
817: --delete from PON_PRICE_ELEMENTS
818: delete from pon_price_elements price_elements
819: where
820: auction_header_id = g_auction_header_id
821: and exists
814: and auction_pf_values.line_number = p1.auction_line_number);
815:
816:
817: --delete from PON_PRICE_ELEMENTS
818: delete from pon_price_elements price_elements
819: where
820: auction_header_id = g_auction_header_id
821: and exists
822: (select
1179:
1180: COMMENT : This procedure will add the supplier price factors in
1181: PON_AUC_PRICE_ELEMENTS_INT corresponding to the new lines
1182: from the PON_ITEM_PRICES_INTERFACE interface table to the
1183: PON_PRICE_ELEMENTS transaction tables. The following sql
1184: will be used for the same. The logic for this is present
1185: in copyPriceElement method in NegItemSpreadsheetAMImpl.
1186: ======================================================================*/
1187: PROCEDURE ADD_PRICE_FACTORS is
1193: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1194: print_debug_log(l_module,'ADD_PRICE_FACTORS START g_batch_id = '||g_batch_id ||' g_auction_header_id '||g_auction_header_id);
1195: END IF;
1196:
1197: insert into PON_PRICE_ELEMENTS
1198: fields
1199: (AUCTION_HEADER_ID,
1200: LINE_NUMBER,
1201: SEQUENCE_NUMBER,
1987: for lines that have updated by the spread sheet.
1988: i. Delete supplier price factors from auction tables that are
1989: not in interface tables
1990: ii. Update Price Elements that exist in the spreadsheet and the lines
1991: iii.Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
1992: but are present in the spreadsheet.
1993: ======================================================================*/
1994: PROCEDURE UPDATE_PRICE_FACTORS is
1995:
2008: END IF;
2009:
2010: -- Delete supplier price factors from auction tables that are
2011: -- not in interface tables
2012: delete from PON_PRICE_ELEMENTS pe
2013: where
2014: pe.auction_header_id = g_auction_header_id
2015: and pe.pf_type = 'SUPPLIER'
2016: and exists (select
2064: and paip_int.auction_header_id = pe_int.auction_header_id
2065: and pe_int.PF_TYPE = 'SUPPLIER';
2066:
2067: FORALL x in 1..l_line_number.COUNT
2068: UPDATE PON_PRICE_ELEMENTS
2069: SET
2070: PRICING_BASIS = l_pricing_basis(x),
2071: VALUE = l_value(x),
2072: DISPLAY_TARGET_FLAG = decode(l_display_target_flag(x),'X',DISPLAY_TARGET_FLAG,l_display_target_flag(x))
2075: and LINE_NUMBER = l_line_number (x)
2076: and PRICE_ELEMENT_TYPE_ID = l_price_element_type_id(x);
2077:
2078:
2079: --Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
2080: --but are present in the spreadsheet.
2081:
2082: insert into PON_PRICE_ELEMENTS
2083: fields
2078:
2079: --Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
2080: --but are present in the spreadsheet.
2081:
2082: insert into PON_PRICE_ELEMENTS
2083: fields
2084: (AUCTION_HEADER_ID,
2085: LINE_NUMBER,
2086: SEQUENCE_NUMBER,
2121: and pe_int.price_element_type_id not in
2122: (select
2123: pe1.price_element_type_id
2124: from
2125: PON_PRICE_ELEMENTS pe1
2126: where
2127: pe_int.auction_header_id = pe1.auction_header_id
2128: and pe_int.auction_line_number = pe1.line_number
2129: and pe_int.price_element_type_id = pe1.price_element_type_id)
2490: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2491: print_debug_log(l_module,'SYNCH_PF_VALUES_FOR_UPLOAD START g_batch_id = '||g_batch_id ||' g_auction_header_id '||g_auction_header_id);
2492: END IF;
2493:
2494: -- Get distinct price factor and pricing basis by scanning the pon_price_elements
2495: -- once. Scanning pon_price_elements might be huge for large auctions.
2496: SELECT distinct
2497: PRICE_ELEMENT_TYPE_ID,
2498: PRICING_BASIS
2491: print_debug_log(l_module,'SYNCH_PF_VALUES_FOR_UPLOAD START g_batch_id = '||g_batch_id ||' g_auction_header_id '||g_auction_header_id);
2492: END IF;
2493:
2494: -- Get distinct price factor and pricing basis by scanning the pon_price_elements
2495: -- once. Scanning pon_price_elements might be huge for large auctions.
2496: SELECT distinct
2497: PRICE_ELEMENT_TYPE_ID,
2498: PRICING_BASIS
2499: BULK COLLECT INTO
2499: BULK COLLECT INTO
2500: l_PRICE_ELEMENT_TYPE_ID,
2501: l_PRICING_BASIS
2502: FROM
2503: pon_price_elements
2504: WHERE
2505: auction_header_id = g_auction_header_id
2506: and PF_TYPE = 'BUYER';
2507: