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;
112: )
113: IS
114: l_net_qty NUMBER;
115: l_parent_transaction NUMBER;
116: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
117: l_secondary_net_qty NUMBER; /* INVCONV */
118:
119: BEGIN
120:
239: , p_po_price IN NUMBER
240: )
241: IS
242: l_rowid VARCHAR2(2000);
243: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
244: BEGIN
245:
246: -- Call to insert data in costing table.
247: -- Do the insert only for implicit transactions. In case of explicit
318: )
319: IS
320: l_denominator NUMBER;
321: l_numerator NUMBER;
322: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
323:
324: BEGIN
325: -- Call to the GL API to get the rate
326:
385: --========================================================================
386:
387: PROCEDURE Reset_OU_Context
388: IS
389: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
390: BEGIN
391:
392: IF (l_debug = 1)
393: THEN
460: l_counter NUMBER;
461: l_tax_code_id NUMBER;
462: i NUMBER := 0;
463: l_ship_to_location_id NUMBER;
464: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
465: l_precision NUMBER;
466: l_return_status VARCHAR2(1);
467: l_msg_count NUMBER;
468: l_msg_data VARCHAR2(2000);
1131:
1132:
1133: BEGIN
1134:
1135: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1136:
1137: IF (l_debug = 1)
1138: THEN
1139: INV_LOG_UTIL.trace
1280: l_total_amt NUMBER;
1281: l_debug NUMBER ;
1282: BEGIN
1283:
1284: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1285:
1286: IF (l_debug = 1)
1287: THEN
1288: INV_LOG_UTIL.trace
1456: l_bkt_amt_limit NUMBER;
1457: l_purch_uom_price NUMBER;
1458: l_global_flag VARCHAR2(1);
1459: l_object VARCHAR2(2); -- Bug 13783272
1460: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1461: l_vendor_name VARCHAR2(240);
1462: l_vendor_site VARCHAR2(15);
1463: /* price break api change uptake - Bug 5076263 - Start*/
1464: l_api_version NUMBER := 1.0;
2243: l_transaction_source_id := p_transaction_source_id;
2244: l_destination_organization_id := p_organization_id;
2245: l_item_id := p_inventory_item_id;
2246: l_vendor_site_id := p_owning_organization_id;
2247: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2248:
2249: IF (l_debug = 1)
2250: THEN
2251: INV_LOG_UTIL.trace
2529: l_variance_account_id NUMBER;
2530: l_org_id NUMBER;
2531: l_vendor_id NUMBER;
2532: l_appl_id NUMBER;
2533: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2534: /* bug 4969420 - start */
2535: /*unit price to be stored in MCT*/
2536: l_unit_price NUMBER;
2537: /* bug 4969420 - end */
2852: , x_primary_UOM OUT NOCOPY VARCHAR2
2853: )
2854: IS
2855:
2856: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2857: l_secondary_transaction_qty NUMBER := NULL;
2858:
2859: BEGIN
2860: IF (l_debug = 1)