110: l_incr_transfer_price NUMBER := 0;
111: l_incr_currency_code VARCHAR2(15) := NULL;
112:
113: l_dest_org_id NUMBER;
114: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
115: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
116: l_primary_qty NUMBER;
117: l_credit_acct_id NUMBER;
118: l_debit_acct_id NUMBER;
111: l_incr_currency_code VARCHAR2(15) := NULL;
112:
113: l_dest_org_id NUMBER;
114: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
115: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
116: l_primary_qty NUMBER;
117: l_credit_acct_id NUMBER;
118: l_debit_acct_id NUMBER;
119: l_ic_cogs_acct_id NUMBER;
1398: -- The l_ic_pricing_option can only be 2 for a source type of 'RECEIVING'.
1399: -- Get the UOM of the source_doc since unit price is desired in Document's UOM
1400: SELECT MUOM.uom_code
1401: INTO l_transaction_uom
1402: FROM rcv_transactions RT, mtl_units_of_measure MUOM
1403: WHERE RT.transaction_id = p_rcv_event.rcv_transaction_id
1404: AND MUOM.unit_of_measure = RT.source_doc_unit_of_measure;
1405:
1406: -- While calling the transfer pricing API, the from organization id should be
1907: X_MSG_COUNT OUT NOCOPY NUMBER,
1908: X_MSG_DATA OUT NOCOPY VARCHAR2,
1909: P_EVENT_REC IN RCV_SeedEvents_PVT.rcv_event_rec_type,
1910: X_TRANSACTION_QTY OUT NOCOPY NUMBER,
1911: X_PRIMARY_UOM OUT NOCOPY MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE,
1912: X_PRIMARY_QTY OUT NOCOPY NUMBER,
1913: X_TRX_UOM_CODE OUT NOCOPY VARCHAR2
1914: ) IS
1915:
1922: -- local data variables
1923: l_item_id NUMBER;
1924: l_primary_uom_rate NUMBER;
1925: l_trx_uom_rate NUMBER;
1926: l_primary_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1927: l_source_doc_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1928: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1929: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
1930:
1923: l_item_id NUMBER;
1924: l_primary_uom_rate NUMBER;
1925: l_trx_uom_rate NUMBER;
1926: l_primary_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1927: l_source_doc_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1928: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1929: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
1930:
1931: BEGIN
1924: l_primary_uom_rate NUMBER;
1925: l_trx_uom_rate NUMBER;
1926: l_primary_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1927: l_source_doc_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1928: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1929: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
1930:
1931: BEGIN
1932:
1925: l_trx_uom_rate NUMBER;
1926: l_primary_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1927: l_source_doc_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1928: l_trx_uom_code MTL_UNITS_OF_MEASURE.UOM_CODE%TYPE;
1929: l_primary_uom MTL_UNITS_OF_MEASURE.UNIT_OF_MEASURE%TYPE;
1930:
1931: BEGIN
1932:
1933: SAVEPOINT Convert_UOM_PVT;
1962:
1963: -- Get UOM code for the source document's UOM
1964: SELECT uom_code
1965: INTO l_source_doc_uom_code
1966: FROM mtl_units_of_measure
1967: WHERE unit_of_measure = p_event_rec.source_doc_uom;
1968:
1969: -- Get UOM code for the transaction UOM
1970: SELECT uom_code
1968:
1969: -- Get UOM code for the transaction UOM
1970: SELECT uom_code
1971: INTO l_trx_uom_code
1972: FROM mtl_units_of_measure
1973: WHERE unit_of_measure = p_event_rec.transaction_uom;
1974:
1975:
1976: -- Get UOM for this item/org from MSI and populate primary_uom with it
1980: -- base uom for the item's current uom class
1981: l_stmt_num := 20;
1982: SELECT PUOM.uom_code, PUOM.unit_of_measure
1983: INTO l_primary_uom_code, l_primary_uom
1984: FROM mtl_units_of_measure TUOM,
1985: mtl_units_of_measure PUOM
1986: WHERE TUOM.unit_of_measure = p_event_rec.source_doc_uom
1987: AND TUOM.uom_class = PUOM.uom_class
1988: AND PUOM.base_uom_flag = 'Y';
1981: l_stmt_num := 20;
1982: SELECT PUOM.uom_code, PUOM.unit_of_measure
1983: INTO l_primary_uom_code, l_primary_uom
1984: FROM mtl_units_of_measure TUOM,
1985: mtl_units_of_measure PUOM
1986: WHERE TUOM.unit_of_measure = p_event_rec.source_doc_uom
1987: AND TUOM.uom_class = PUOM.uom_class
1988: AND PUOM.base_uom_flag = 'Y';
1989:
1998:
1999: l_stmt_num := 40;
2000: SELECT unit_of_measure
2001: INTO l_primary_uom
2002: FROM mtl_units_of_measure
2003: WHERE uom_code = l_primary_uom_code;
2004: END IF;
2005:
2006: -- Get the UOM rate from source_doc_uom to primary_uom