[Home] [Help]
45: -- GLOBALS
46: --===================
47:
48: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_THIRD_PARTY_STOCK_PVT';
49: g_user_id NUMBER := FND_PROFILE.value('USER_ID');
50: g_resp_id NUMBER := FND_PROFILE.value('RESP_ID');
51: g_pgm_appl_id NUMBER := FND_PROFILE.value('RESP_APPL_ID');
52:
53: TYPE ctx_value_rec_type IS RECORD (org_id NUMBER, resp_id NUMBER);
46: --===================
47:
48: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_THIRD_PARTY_STOCK_PVT';
49: g_user_id NUMBER := FND_PROFILE.value('USER_ID');
50: g_resp_id NUMBER := FND_PROFILE.value('RESP_ID');
51: g_pgm_appl_id NUMBER := FND_PROFILE.value('RESP_APPL_ID');
52:
53: TYPE ctx_value_rec_type IS RECORD (org_id NUMBER, resp_id NUMBER);
54: TYPE ctx_tbl_type IS TABLE OF ctx_value_rec_type INDEX BY BINARY_INTEGER;
47:
48: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_THIRD_PARTY_STOCK_PVT';
49: g_user_id NUMBER := FND_PROFILE.value('USER_ID');
50: g_resp_id NUMBER := FND_PROFILE.value('RESP_ID');
51: g_pgm_appl_id NUMBER := FND_PROFILE.value('RESP_APPL_ID');
52:
53: TYPE ctx_value_rec_type IS RECORD (org_id NUMBER, resp_id NUMBER);
54: TYPE ctx_tbl_type IS TABLE OF ctx_value_rec_type INDEX BY BINARY_INTEGER;
55: g_context_tbl ctx_tbl_type;
110: )
111: IS
112: l_net_qty NUMBER;
113: l_parent_transaction NUMBER;
114: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
115: l_secondary_net_qty NUMBER; /* INVCONV */
116:
117: BEGIN
118:
231: , p_po_price IN NUMBER
232: )
233: IS
234: l_rowid VARCHAR2(2000);
235: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
236: BEGIN
237:
238: -- Call to insert data in costing table.
239: -- Do the insert only for implicit transactions. In case of explicit
310: )
311: IS
312: l_denominator NUMBER;
313: l_numerator NUMBER;
314: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
315:
316: BEGIN
317: -- Call to the GL API to get the rate
318:
377: --========================================================================
378:
379: PROCEDURE Reset_OU_Context
380: IS
381: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
382: BEGIN
383:
384: IF (l_debug = 1)
385: THEN
452: l_counter NUMBER;
453: l_tax_code_id NUMBER;
454: i NUMBER := 0;
455: l_ship_to_location_id NUMBER;
456: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
457: l_precision NUMBER;
458: l_return_status VARCHAR2(1);
459: l_msg_count NUMBER;
460: l_msg_data VARCHAR2(2000);
1123:
1124:
1125: BEGIN
1126:
1127: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1128:
1129: IF (l_debug = 1)
1130: THEN
1131: INV_LOG_UTIL.trace
1288: l_total_amt NUMBER;
1289: l_debug NUMBER ;
1290: BEGIN
1291:
1292: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1293:
1294: IF (l_debug = 1)
1295: THEN
1296: INV_LOG_UTIL.trace
1464: l_bkt_amt_limit NUMBER;
1465: l_purch_uom_price NUMBER;
1466: l_global_flag VARCHAR2(1);
1467: l_object VARCHAR2(1);
1468: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1469: l_vendor_name VARCHAR2(240);
1470: l_vendor_site VARCHAR2(15);
1471: /* price break api change uptake - Bug 5076263 - Start*/
1472: l_api_version NUMBER := 1.0;
2238: l_transaction_source_id := p_transaction_source_id;
2239: l_destination_organization_id := p_organization_id;
2240: l_item_id := p_inventory_item_id;
2241: l_vendor_site_id := p_owning_organization_id;
2242: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2243:
2244: IF (l_debug = 1)
2245: THEN
2246: INV_LOG_UTIL.trace
2524: l_variance_account_id NUMBER;
2525: l_org_id NUMBER;
2526: l_vendor_id NUMBER;
2527: l_appl_id NUMBER;
2528: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2529: /* bug 4969420 - start */
2530: /*unit price to be stored in MCT*/
2531: l_unit_price NUMBER;
2532: /* bug 4969420 - end */
2840: , x_primary_UOM OUT NOCOPY VARCHAR2
2841: )
2842: IS
2843:
2844: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2845: l_secondary_transaction_qty NUMBER := NULL;
2846:
2847: BEGIN
2848: IF (l_debug = 1)