1: PACKAGE BODY CSTPPINV AS
2: /* $Header: CSTPINVB.pls 120.35.12020000.3 2013/05/22 06:35:27 yunfchen ship $ */
3:
4: l_debug CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');
5:
6:
7: PROCEDURE cost_inv_txn (
8: i_pac_period_id IN NUMBER,
818: l_stmt_num := 20;
819:
820: /* Get the profile status for Internal Sales Order. */
821: BEGIN
822: SELECT nvl(fnd_profile.value('CST_TRANSFER_PRICING_OPTION'), 0)
823: INTO l_tprice_option
824: FROM mtl_intercompany_parameters MIP
825: WHERE fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER') = 1
826: AND MIP.flow_type = 1
821: BEGIN
822: SELECT nvl(fnd_profile.value('CST_TRANSFER_PRICING_OPTION'), 0)
823: INTO l_tprice_option
824: FROM mtl_intercompany_parameters MIP
825: WHERE fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER') = 1
826: AND MIP.flow_type = 1
827: AND MIP.ship_organization_id = (SELECT to_number(HOI.org_information3)
828: FROM hr_organization_information HOI
829: WHERE HOI.organization_id = l_from_org
2259: FROM mtl_material_transactions
2260: WHERE transaction_id = i_txn_id;
2261:
2262: if (l_curr_type is NULL) then
2263: FND_PROFILE.get('CURRENCY_CONVERSION_TYPE', l_curr_type);
2264: end if;
2265:
2266: if (l_rcv_curr <> l_snd_curr) then
2267: l_stmt_num := 60;