[Home] [Help]
363: if l_is_amendment = 'Y' then
364:
365: update pon_auc_price_elements_int pe_int
366: set pe_int.DISPLAY_TARGET_FLAG = (select pe1.display_target_flag
367: from pon_price_elements pe1
368: where
369: pe_int.auction_line_number = pe1.line_number
370: and pe_int.auction_header_id = pe1.auction_header_id
371: and pe1.PRICE_ELEMENT_TYPE_ID = pe_int.PRICE_ELEMENT_TYPE_ID)
373: and exists
374: (select
375: 'x'
376: from
377: pon_price_elements pe,
378: pon_item_prices_interface paip_int,
379: pon_auction_headers_all pah
380: where
381: paip_int.batch_id = p_batch_id
432: select nvl(max(sequence_number),0) + g_price_element_seq_increment
433: into
434: l_next_sequence_number
435: from
436: pon_price_elements
437: where
438: auction_header_id = p_auction_header
439: and line_number = p_line_number;
440:
519: END IF;
520:
521: SELECT nvl(max(sequence_number),10)
522: INTO g_price_element_seq_number
523: FROM pon_price_elements
524: WHERE auction_header_id = g_auction_header_id;
525:
526: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
527: print_debug_log(l_module,'INITIALIZE_LINE_ATTR_GROUP END p_party_id = '||p_party_id||
690: GROUP marked as deleted the corresponding children are also deleted.
691: PON_ATTRIBUTE_SCORES
692: PON_AUCTION_ATTRIBUTES
693: PON_PF_SUPPLIER_VALUES
694: PON_PRICE_ELEMENTS
695: PON_PRICE_DIFFERENTIALS
696: PON_AUCTION_SHIPMENTS_ALL
697: PON_PARTY_LINE_EXCLUSIONS
698: PON_AUC_PAYMENTS_SHIPMENTS
831: OR paip.clm_base_line_num = p1.auction_line_number)
832: and auction_pf_values.line_number = p1.auction_line_number);
833:
834:
835: --delete from PON_PRICE_ELEMENTS
836: delete from pon_price_elements price_elements
837: where
838: auction_header_id = g_auction_header_id
839: and exists
832: and auction_pf_values.line_number = p1.auction_line_number);
833:
834:
835: --delete from PON_PRICE_ELEMENTS
836: delete from pon_price_elements price_elements
837: where
838: auction_header_id = g_auction_header_id
839: and exists
840: (select
1400:
1401: COMMENT : This procedure will add the supplier price factors in
1402: PON_AUC_PRICE_ELEMENTS_INT corresponding to the new lines
1403: from the PON_ITEM_PRICES_INTERFACE interface table to the
1404: PON_PRICE_ELEMENTS transaction tables. The following sql
1405: will be used for the same. The logic for this is present
1406: in copyPriceElement method in NegItemSpreadsheetAMImpl.
1407: ======================================================================*/
1408: PROCEDURE ADD_PRICE_FACTORS is
1414: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1415: print_debug_log(l_module,'ADD_PRICE_FACTORS START g_batch_id = '||g_batch_id ||' g_auction_header_id '||g_auction_header_id);
1416: END IF;
1417:
1418: insert into PON_PRICE_ELEMENTS
1419: fields
1420: (AUCTION_HEADER_ID,
1421: LINE_NUMBER,
1422: SEQUENCE_NUMBER,
2248: for lines that have updated by the spread sheet.
2249: i. Delete supplier price factors from auction tables that are
2250: not in interface tables
2251: ii. Update Price Elements that exist in the spreadsheet and the lines
2252: iii.Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
2253: but are present in the spreadsheet.
2254: ======================================================================*/
2255: PROCEDURE UPDATE_PRICE_FACTORS is
2256:
2269: END IF;
2270:
2271: -- Delete supplier price factors from auction tables that are
2272: -- not in interface tables
2273: delete from PON_PRICE_ELEMENTS pe
2274: where
2275: pe.auction_header_id = g_auction_header_id
2276: and pe.pf_type = 'SUPPLIER'
2277: and exists (select
2325: and paip_int.auction_header_id = pe_int.auction_header_id
2326: and pe_int.PF_TYPE = 'SUPPLIER';
2327:
2328: FORALL x in 1..l_line_number.COUNT
2329: UPDATE PON_PRICE_ELEMENTS
2330: SET
2331: PRICING_BASIS = l_pricing_basis(x),
2332: VALUE = l_value(x),
2333: DISPLAY_TARGET_FLAG = decode(l_display_target_flag(x),'X',DISPLAY_TARGET_FLAG,l_display_target_flag(x))
2336: and LINE_NUMBER = l_line_number (x)
2337: and PRICE_ELEMENT_TYPE_ID = l_price_element_type_id(x);
2338:
2339:
2340: --Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
2341: --but are present in the spreadsheet.
2342:
2343: insert into PON_PRICE_ELEMENTS
2344: fields
2339:
2340: --Insert price Elements that do not exist in the PON_PRICE_ELEMENTS
2341: --but are present in the spreadsheet.
2342:
2343: insert into PON_PRICE_ELEMENTS
2344: fields
2345: (AUCTION_HEADER_ID,
2346: LINE_NUMBER,
2347: SEQUENCE_NUMBER,
2382: and pe_int.price_element_type_id not in
2383: (select
2384: pe1.price_element_type_id
2385: from
2386: PON_PRICE_ELEMENTS pe1
2387: where
2388: pe_int.auction_header_id = pe1.auction_header_id
2389: and pe_int.auction_line_number = pe1.line_number
2390: and pe_int.price_element_type_id = pe1.price_element_type_id)
2751: IF (g_fnd_debug = 'Y' and FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2752: 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);
2753: END IF;
2754:
2755: -- Get distinct price factor and pricing basis by scanning the pon_price_elements
2756: -- once. Scanning pon_price_elements might be huge for large auctions.
2757: SELECT distinct
2758: PRICE_ELEMENT_TYPE_ID,
2759: PRICING_BASIS
2752: 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);
2753: END IF;
2754:
2755: -- Get distinct price factor and pricing basis by scanning the pon_price_elements
2756: -- once. Scanning pon_price_elements might be huge for large auctions.
2757: SELECT distinct
2758: PRICE_ELEMENT_TYPE_ID,
2759: PRICING_BASIS
2760: BULK COLLECT INTO
2760: BULK COLLECT INTO
2761: l_PRICE_ELEMENT_TYPE_ID,
2762: l_PRICING_BASIS
2763: FROM
2764: pon_price_elements
2765: WHERE
2766: auction_header_id = g_auction_header_id
2767: and PF_TYPE = 'BUYER';
2768: