[Home] [Help]
96: -- line_number correctly set for lines
97:
98: SELECT nvl(ah.is_paused, 'N'), ah.last_pause_date
99: INTO l_is_paused, l_paused_date
100: FROM pon_auction_headers_all ah
101: WHERE ah.auction_header_id = p_auc_header_id;
102:
103: -- Flag all lines with expired close bidding dates
104: UPDATE pon_bid_item_prices_interface bli
543: p_suffix IN VARCHAR2
544: ) IS
545: --added by Allen Yang for Surrogate Bid 2008/10/27
546: --------------------------------------------------
547: l_two_part_flag pon_auction_headers_all.two_part_flag%type;
548: l_surrogate_bid_flag pon_bid_headers.surrog_bid_flag%type;
549: l_tech_evaluation_status pon_auction_headers_all.technical_evaluation_status%type;
550: --------------------------------------------------
551: BEGIN
545: --added by Allen Yang for Surrogate Bid 2008/10/27
546: --------------------------------------------------
547: l_two_part_flag pon_auction_headers_all.two_part_flag%type;
548: l_surrogate_bid_flag pon_bid_headers.surrog_bid_flag%type;
549: l_tech_evaluation_status pon_auction_headers_all.technical_evaluation_status%type;
550: --------------------------------------------------
551: BEGIN
552: --added by Allen Yang for Surrogate Bid 2008/10/27
553: --------------------------------------------------
558: INTO
559: l_two_part_flag,
560: l_tech_evaluation_status,
561: l_surrogate_bid_flag
562: FROM pon_bid_headers pbh, pon_auction_headers_all paha
563: WHERE pbh.bid_number = p_bid_number
564: AND paha.auction_header_id = pbh.auction_header_id;
565: --------------------------------------------------
566:
946:
947: PROCEDURE copy_interface_to_txn_tables
948: (
949: p_batch_id IN pon_bid_item_prices_interface.batch_id%TYPE,
950: p_auction_header_id IN pon_auction_headers_all.auction_header_id%TYPE,
951: p_bid_number IN pon_bid_headers.bid_number%TYPE,
952: p_userid IN pon_bid_item_prices.last_updated_by%TYPE,
953: p_hdr_disp_pf IN VARCHAR2,
954: p_blanket IN VARCHAR2,
955: p_mas IN VARCHAR2,
956: p_progress_payment_type IN VARCHAR2,
957: p_spreadsheet_type IN VARCHAR2,
958: p_bid_currency_precision IN pon_bid_headers.number_price_decimals%TYPE,
959: p_price_tiers_indicator IN pon_auction_headers_all.PRICE_TIERS_INDICATOR%type
960: ) IS
961: l_module CONSTANT VARCHAR2(32) := 'copy_interface_to_txn_tables';
962: l_result VARCHAR2(1);
963: l_error_code VARCHAR2(200);
991: pah.recoupment_negotiable_flag,
992: pbip.worksheet_name,
993: pbip.worksheet_sequence_number
994: FROM pon_bid_item_prices_interface pbip,
995: pon_auction_headers_all pah
996: WHERE batch_id = p_batch_id
997: AND pah.auction_header_id = pbip.auction_header_id) bli
998: ON (bl.bid_number = bli.bid_number
999: AND bl.line_number = bli.line_number)
1322: p_userid IN pon_bid_headers.created_by%TYPE
1323: ) IS
1324: l_seq_num NUMBER;
1325: l_target_category FND_DOCUMENT_CATEGORIES.NAME%type := pon_auction_pkg.g_supplier_attachment; -- target attachment category, default 'FromSupplier'
1326: l_two_part_flag PON_AUCTION_HEADERS_ALL.TWO_PART_FLAG%type := 'N';
1327:
1328: CURSOR attachment_lines IS
1329: SELECT bli.attachment_url,
1330: bli.attachment_desc,
1336: BEGIN
1337: -- get two_part_flag for RFQ
1338: select nvl(two_part_flag, 'N')
1339: into l_two_part_flag
1340: from pon_auction_headers_all
1341: where auction_header_id = p_auc_header_id;
1342:
1343: -- change target attachment category for two-part RFQ.
1344: IF l_two_part_flag = 'Y' THEN -- {
1387: p_userid IN pon_interface_errors.created_by%TYPE,
1388: x_return_status OUT NOCOPY VARCHAR2,
1389: x_return_code OUT NOCOPY VARCHAR2
1390: ) IS
1391: l_auc_header_id pon_auction_headers_all.auction_header_id%TYPE;
1392:
1393: l_header_disp_pf VARCHAR2(1);
1394: l_blanket VARCHAR2(1);
1395: l_mas VARCHAR2(1);
1399: l_supplier_user VARCHAR2(1);
1400: l_has_pe VARCHAR2(1);
1401:
1402: l_suffix VARCHAR2(2);
1403: l_progress_payment_type pon_auction_headers_all.progress_payment_type%TYPE;
1404: l_price_precision pon_bid_headers.number_price_decimals%TYPE;
1405: BEGIN
1406:
1407: -- Determine some negotiation flags
1428: l_supplier_user,
1429: l_has_pe,
1430: l_progress_payment_type,
1431: l_price_precision
1432: FROM pon_bid_headers bh, pon_auction_headers_all ah
1433: WHERE bh.bid_number = p_bid_number
1434: AND ah.auction_header_id = bh.auction_header_id;
1435:
1436: l_suffix := PON_LARGE_AUCTION_UTIL_PKG.get_doctype_suffix(l_auc_header_id);
1515:
1516: PROCEDURE VALIDATE_HEADER
1517: (
1518: p_batch_id IN pon_bid_item_prices_interface.batch_id%TYPE,
1519: p_auction_header_id IN pon_auction_headers_all.auction_header_id%TYPE,
1520: p_bid_number IN pon_bid_headers.bid_number%TYPE,
1521: p_request_id IN pon_bid_item_prices.request_id%TYPE,
1522: p_user_id IN pon_interface_errors.created_by%TYPE
1523: ) IS
1870: pbh.old_surrog_bid_receipt_date s_old_response_recvd_time,
1871: pbh.surrog_bid_flag s_surrogate_bid_flag,
1872: pbh.number_price_decimals s_bid_price_precision
1873: FROM PON_BID_HEADERS_INTERFACE pbhi,
1874: PON_AUCTION_HEADERS_ALL pah,
1875: PON_BID_HEADERS pbh
1876: WHERE pbhi.batch_id = p_batch_id
1877: AND pbhi.bid_number = p_bid_number
1878: AND pbh.bid_number = pbhi.bid_number
1882:
1883: PROCEDURE validate_xml_price_breaks
1884: (
1885: p_batch_id IN pon_bid_item_prices_interface.batch_id%TYPE,
1886: p_auction_header_id IN pon_auction_headers_all.auction_header_id%TYPE,
1887: p_bid_number IN pon_bid_headers.bid_number%TYPE,
1888: p_request_id IN pon_bid_item_prices.request_id%TYPE,
1889: p_user_id IN pon_interface_errors.created_by%TYPE
1890: )
1974:
1975: PROCEDURE VALIDATE_XML
1976: (
1977: p_batch_id IN pon_bid_item_prices_interface.batch_id%TYPE,
1978: p_auction_header_id IN pon_auction_headers_all.auction_header_id%TYPE,
1979: p_bid_number IN pon_bid_headers.bid_number%TYPE,
1980: p_request_id IN pon_bid_headers.request_id%TYPE,
1981: p_user_id IN pon_bid_item_prices.last_updated_by%TYPE,
1982: p_suffix IN VARCHAR2,
1980: p_request_id IN pon_bid_headers.request_id%TYPE,
1981: p_user_id IN pon_bid_item_prices.last_updated_by%TYPE,
1982: p_suffix IN VARCHAR2,
1983: p_has_pe IN pon_auction_item_prices_all.HAS_PRICE_ELEMENTS_FLAG%TYPE,
1984: l_attr_enabled_flag IN pon_auction_headers_all.line_attribute_enabled_flag%TYPE,
1985: l_req_enabled_flag IN pon_auction_headers_all.hdr_attribute_enabled_flag%TYPE,
1986: l_has_hdr_attr_flag IN pon_auction_headers_all.has_hdr_attr_flag%TYPE,
1987: p_progress_payment_type IN pon_auction_headers_all.progress_payment_type%TYPE,
1988: p_blanket IN varchar2,
1981: p_user_id IN pon_bid_item_prices.last_updated_by%TYPE,
1982: p_suffix IN VARCHAR2,
1983: p_has_pe IN pon_auction_item_prices_all.HAS_PRICE_ELEMENTS_FLAG%TYPE,
1984: l_attr_enabled_flag IN pon_auction_headers_all.line_attribute_enabled_flag%TYPE,
1985: l_req_enabled_flag IN pon_auction_headers_all.hdr_attribute_enabled_flag%TYPE,
1986: l_has_hdr_attr_flag IN pon_auction_headers_all.has_hdr_attr_flag%TYPE,
1987: p_progress_payment_type IN pon_auction_headers_all.progress_payment_type%TYPE,
1988: p_blanket IN varchar2,
1989: p_price_tiers_indicator IN pon_auction_headers_all.PRICE_TIERS_INDICATOR%type
1982: p_suffix IN VARCHAR2,
1983: p_has_pe IN pon_auction_item_prices_all.HAS_PRICE_ELEMENTS_FLAG%TYPE,
1984: l_attr_enabled_flag IN pon_auction_headers_all.line_attribute_enabled_flag%TYPE,
1985: l_req_enabled_flag IN pon_auction_headers_all.hdr_attribute_enabled_flag%TYPE,
1986: l_has_hdr_attr_flag IN pon_auction_headers_all.has_hdr_attr_flag%TYPE,
1987: p_progress_payment_type IN pon_auction_headers_all.progress_payment_type%TYPE,
1988: p_blanket IN varchar2,
1989: p_price_tiers_indicator IN pon_auction_headers_all.PRICE_TIERS_INDICATOR%type
1990: ) IS
1983: p_has_pe IN pon_auction_item_prices_all.HAS_PRICE_ELEMENTS_FLAG%TYPE,
1984: l_attr_enabled_flag IN pon_auction_headers_all.line_attribute_enabled_flag%TYPE,
1985: l_req_enabled_flag IN pon_auction_headers_all.hdr_attribute_enabled_flag%TYPE,
1986: l_has_hdr_attr_flag IN pon_auction_headers_all.has_hdr_attr_flag%TYPE,
1987: p_progress_payment_type IN pon_auction_headers_all.progress_payment_type%TYPE,
1988: p_blanket IN varchar2,
1989: p_price_tiers_indicator IN pon_auction_headers_all.PRICE_TIERS_INDICATOR%type
1990: ) IS
1991: BEGIN
1985: l_req_enabled_flag IN pon_auction_headers_all.hdr_attribute_enabled_flag%TYPE,
1986: l_has_hdr_attr_flag IN pon_auction_headers_all.has_hdr_attr_flag%TYPE,
1987: p_progress_payment_type IN pon_auction_headers_all.progress_payment_type%TYPE,
1988: p_blanket IN varchar2,
1989: p_price_tiers_indicator IN pon_auction_headers_all.PRICE_TIERS_INDICATOR%type
1990: ) IS
1991: BEGIN
1992:
1993: --Validate header fields
3045: p_user_id IN pon_interface_errors.created_by%TYPE,
3046: x_return_status OUT NOCOPY NUMBER,
3047: x_return_code OUT NOCOPY VARCHAR2
3048: ) IS
3049: l_auc_header_id pon_auction_headers_all.auction_header_id%TYPE;
3050:
3051: l_header_disp_pf VARCHAR2(1);
3052: l_blanket VARCHAR2(1);
3053: l_mas VARCHAR2(1);
3059: l_attr_enabled_flag VARCHAR2(1);
3060: l_req_enabled_flag VARCHAR2(1);
3061: l_has_hdr_attr_flag VARCHAR2(1);
3062: l_suffix VARCHAR2(2);
3063: l_progress_payment_type pon_auction_headers_all.progress_payment_type%TYPE;
3064: l_price_precision pon_bid_headers.number_price_decimals%TYPE;
3065: l_price_tiers_indicator pon_auction_headers_all.PRICE_TIERS_INDICATOR%TYPE;
3066: BEGIN
3067:
3061: l_has_hdr_attr_flag VARCHAR2(1);
3062: l_suffix VARCHAR2(2);
3063: l_progress_payment_type pon_auction_headers_all.progress_payment_type%TYPE;
3064: l_price_precision pon_bid_headers.number_price_decimals%TYPE;
3065: l_price_tiers_indicator pon_auction_headers_all.PRICE_TIERS_INDICATOR%TYPE;
3066: BEGIN
3067:
3068: SELECT sysdate + g_exp_days_offset,
3069: ah.auction_header_id,
3096: l_buyer_user,
3097: l_supplier_user,
3098: l_has_pe,
3099: l_price_tiers_indicator
3100: FROM pon_bid_headers bh, pon_auction_headers_all ah
3101: WHERE bh.bid_number = p_bid_number
3102: AND ah.auction_header_id = bh.auction_header_id;
3103:
3104: l_suffix := PON_LARGE_AUCTION_UTIL_PKG.get_doctype_suffix(l_auc_header_id);