[Home] [Help]
1: PACKAGE BODY po_interface_s AS
2: /* $Header: POXBWP1B.pls 120.121.12020000.11 2013/06/05 10:40:03 kuichen ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_INTERFACE_S'; --
5: g_log_head CONSTANT VARCHAR2(30) := 'po.plsql.PO_INTERFACE_S.';
1: PACKAGE BODY po_interface_s AS
2: /* $Header: POXBWP1B.pls 120.121.12020000.11 2013/06/05 10:40:03 kuichen ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_INTERFACE_S'; --
6:
7: --
8: g_dest_type_code_SHOP_FLOOR CONSTANT
1: PACKAGE BODY po_interface_s AS
2: /* $Header: POXBWP1B.pls 120.121.12020000.11 2013/06/05 10:40:03 kuichen ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_INTERFACE_S'; --
5: g_log_head CONSTANT VARCHAR2(30) := 'po.plsql.PO_INTERFACE_S.';
6:
7: --
8: g_dest_type_code_SHOP_FLOOR CONSTANT
9: PO_DISTRIBUTIONS_ALL.destination_type_code%TYPE
1256: else
1257: if g_sourcing_errorcode =2 then
1258: --this will be set to 2 when dup_val_on_idex happen in create_po.
1259: x_errorcode:=2;
1260: x_return_status := PO_INTERFACE_S.G_RET_STS_DUP_DOC_NUM ; --
1262: --when 0 lines are created, we assume that there is some erro happened
1263: --which is not related to manual PO numbering.
1264: x_errorcode:=3;
2755: /* FPI GA start Update the terms after the successful completion of PO */
2756:
2757: IF (g_document_subtype = 'STANDARD') and
2758: (g_interface_source_code <> 'CONSUMPTION_ADVICE') then -- CONSIGNED FPI
2759: po_interface_s2.update_terms(x_document_id);
2760: END IF;
2761:
2762: /* FPI GA end */
2763: l_progress := '370';
2868: ROLLBACK TO TAX_CALCULATION_ERROR;
2869: x_document_id := NULL;
2870: fnd_message.set_name('PO','PO_API_ERROR');
2871: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2872: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2873: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2874: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2875: fnd_msg_pub.add;
2876: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2897: ROLLBACK TO TAX_CALCULATION_ERROR;
2898: x_document_id := NULL;
2899: fnd_message.set_name('PO','PO_API_ERROR');
2900: fnd_message.set_token( TOKEN => 'PROC_CALLER'
2901: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2902: fnd_message.set_token( TOKEN => 'PROC_CALLED'
2903: , VALUE => 'PO_TAX_INTERFACE_PVT.CALCULATE_TAX');
2904: fnd_msg_pub.add;
2905: fnd_message.set_name('PO','PO_AP_TAX_ENGINE_FAILED_WARN');
2938: p_message => 'Create_po: Inside l_contracts_call_exception');
2939: END IF;
2940: Fnd_message.set_name('PO','PO_API_ERROR');
2941: Fnd_message.set_token( token => 'PROC_CALLER'
2942: , VALUE => 'PO_INTERFACE_S.CREATE_PO');
2943: Fnd_message.set_token( token => 'PROC_CALLED'
2944: , VALUE => 'OKC_TERMS_CPOY_GRP.COPY_DOC');
2945: FND_MSG_PUB.Add;
2946:
3838:
3839:
3840: --
3841: -- Perform currency conversion on price/amount/quantity.
3842: PO_INTERFACE_S.do_currency_conversion(
3843: p_order_type_lookup_code => x_order_type_lookup_code,
3844: p_interface_source_code => g_interface_source_code,
3845: p_rate => l_rate_for_req_fields, --
3846: p_po_currency_code => interface.h_currency_code,
4895: END IF;
4896:
4897: --
4898: --
4899: PO_INTERFACE_S.do_currency_conversion(
4900: p_order_type_lookup_code => x_order_type_lookup_code,
4901: p_interface_source_code => g_interface_source_code,
4902: p_rate => l_rate_for_req_fields, --
4903: p_po_currency_code => interface.h_currency_code,
6138: IF ( x_order_type_lookup_code = 'QUANTITY' ) THEN
6139: x_quantity := round(x_quantity,15);
6140: ELSIF ( x_order_type_lookup_code = 'AMOUNT' ) THEN
6141: -- Bug 7661419, No conversion for same currency.
6142: PO_INTERFACE_S.do_currency_conversion(
6143: p_order_type_lookup_code => 'AMOUNT',
6144: p_interface_source_code => g_interface_source_code,
6145: p_rate => p_rate_for_req_fields, --
6146: p_po_currency_code => interface.h_currency_code,
6153:
6154: --fix 8976669
6155: --The procedure do_currency_conversion was not called for 'FIXED PRICE', added the required call
6156: ELSIF ( x_order_type_lookup_code = 'FIXED PRICE') THEN
6157: PO_INTERFACE_S.do_currency_conversion(
6158: p_order_type_lookup_code => 'FIXED PRICE',
6159: p_interface_source_code => g_interface_source_code,
6160: p_rate => p_rate_for_req_fields, --
6161: p_po_currency_code => interface.h_currency_code,
6389: x_quantity := round(x_quantity,15);
6390:
6391: ELSIF ( x_order_type_lookup_code = 'AMOUNT' ) THEN --
6392: -- Bug 7661419, No conversion for same currency.
6393: PO_INTERFACE_S.do_currency_conversion(
6394: p_order_type_lookup_code => 'AMOUNT',
6395: p_interface_source_code => g_interface_source_code,
6396: p_rate => p_rate_for_req_fields, --
6397: p_po_currency_code => interface.h_currency_code,
7712: --
7713: -- rounding inaccuracies to ensure that the distribution amounts add up
7714: -- to their corresponding shipment amount.
7715: --
7716: PO_INTERFACE_S.calibrate_last_dist_amount(x_line_location_id);
7717:
7718: -- bug 10246022
7719: -- Correct last distribution quantity for any conversion and
7720: -- rounding inaccuracies to ensure that the distribution quantity add up
7718: -- bug 10246022
7719: -- Correct last distribution quantity for any conversion and
7720: -- rounding inaccuracies to ensure that the distribution quantity add up
7721: -- to their corresponding shipment quantity.
7722: PO_INTERFACE_S.calibrate_last_dist_quantity(x_line_location_id);
7723:
7724: end if;
7725: -- Bug 882050: Dist level global attribute
7726:
7911: p_line_location_id IN NUMBER
7912: )
7913: IS
7914:
7915: d_module VARCHAR2(70) := 'po.plsql.PO_INTERFACE_S.calibrate_last_dist_quantity';
7916: d_progress NUMBER;
7917:
7918: l_sum_dist_quantities PO_DISTRIBUTIONS_ALL.quantity_ordered%TYPE;
7919: l_last_dist_id PO_DISTRIBUTIONS_ALL.po_distribution_id%TYPE;
8812: l_rate_for_req_fields := l_req_header_rate;
8813: END IF;
8814:
8815: -- First convert from the ROU currency to the PO currency.
8816: PO_INTERFACE_S.do_currency_conversion (
8817: p_order_type_lookup_code => l_order_type_lookup_code,
8818: p_interface_source_code => g_interface_source_code,
8819: p_rate => NVL(l_rate_for_req_fields,1),
8820: p_po_currency_code => l_po_currency_code,
9865: AND pli.requisition_line_id = prl.requisition_line_id(+)
9866: AND plt.line_type_id = nvl(prl.line_type_id,pli.line_type_id)
9867: AND pol.po_header_id = x_po_header_id
9868: -- 2082757 : new
9869: AND pol.line_num = po_interface_s.source_blanket_line(
9870: x_po_header_id,
9871: prl.requisition_line_id,
9872: pli.line_num, -- Bug 2707576:
9873: NVL(x_uom_convert,'N'),
14377:
14378: l_ship_to_location_id NUMBER;
14379: l_found BOOLEAN := FALSE;
14380:
14381: d_module VARCHAR2(70) := 'po.plsql.PO_INTERFACE_S.get_ship_to_loc';
14382: d_progress NUMBER;
14383:
14384: BEGIN
14385:
14910: )
14911: IS
14912:
14913: d_progress NUMBER;
14914: d_module VARCHAR2(70) := 'po.plsql.PO_INTERFACE_S.create_payitems';
14915:
14916: l_po_header_id PO_LINES_ALL.po_header_id%TYPE;
14917: l_line_value_basis PO_LINES_ALL.order_type_lookup_code%TYPE;
14918: l_line_matching_basis PO_LINES_ALL.matching_basis%TYPE;
15639: )
15640: IS
15641:
15642: d_progress NUMBER;
15643: d_module VARCHAR2(70) := 'po.plsql.PO_INTERFACE_S.create_payitem_dists';
15644:
15645: CURSOR payitem_acct_gen_cursor(p_po_line_id NUMBER)
15646: IS
15647: SELECT pod.po_distribution_id
16433: END create_payitem_dists;
16434:
16435: --
16436:
16437: END PO_INTERFACE_S;