[Home] [Help]
8: PROCEDURE mdebug(msg in varchar2)
9: IS
10: l_msg VARCHAR2(5100);
11: l_ts VARCHAR2(30);
12: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
13: BEGIN
14: --select to_char(sysdate,'MM/DD/YYYY HH:MM:SS') INTO l_ts from dual; -- Bug 13878269
15: --l_msg := l_ts||' '||msg;
16: l_msg := msg;
39: IS
40:
41: l_Item_Info t_Item_Out;
42:
43: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44: BEGIN
45:
46: Select inventory_item_id,
47: description,
99:
100: l_SN_Info t_SN_Out;
101: l_curr_stat NUMBER;
102:
103: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
104: BEGIN
105:
106: Select current_locator_id,
107: current_subinventory_code,
266: l_is_revision_control BOOLEAN := FALSE;
267: l_is_lot_control BOOLEAN := FALSE;
268: l_is_serial_control BOOLEAN := FALSE;
269: l_tree_mode NUMBER;
270: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
271: -- Bug# 3952081
272: l_srqoh NUMBER;
273: l_sqr NUMBER;
274: l_sqs NUMBER;
441: l_srqoh NUMBER;
442: l_sqr NUMBER;
443: l_sqs NUMBER;
444: l_satr NUMBER;
445: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
446: BEGIN
447: inv_quantity_tree_pub.clear_quantity_cache;
448: IF p_is_revision_control = 'true' THEN
449: l_is_revision_control := TRUE;
654: l_srqoh NUMBER;
655: l_sqr NUMBER;
656: l_sqs NUMBER;
657: l_satr NUMBER;
658: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
659: BEGIN
660: inv_quantity_tree_pub.clear_quantity_cache;
661: IF p_is_revision_control = 'true' THEN
662: l_is_revision_control := TRUE;
846: p_api_version_number number;
847: p_init_msg_lst VARCHAR2(30);
848: l_asset_sub_only BOOLEAN := FALSE;
849:
850: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
851: BEGIN
852: inv_quantity_tree_pvt.clear_quantity_cache;
853:
854: IF p_is_revision_control = 'true' THEN
1189: p_api_version_number number;
1190: p_init_msg_lst VARCHAR2(30);
1191: l_asset_sub_only BOOLEAN := FALSE;
1192:
1193: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1194: BEGIN
1195: inv_quantity_tree_pvt.clear_quantity_cache;
1196:
1197: IF p_is_revision_control = 'true' THEN
1436: l_srqoh NUMBER;
1437: l_sqr NUMBER;
1438: l_sqs NUMBER;
1439: l_satr NUMBER;
1440: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1441: BEGIN
1442: inv_quantity_tree_pub.clear_quantity_cache;
1443: IF p_is_revision_control = 'true' THEN
1444: l_is_revision_control := TRUE;
1597: and nvl(lot_number, '###') = nvl(p_lot_number, nvl(lot_number,'###'))
1598: and containerized_flag =2
1599: and cost_group_id <> x_cost_group_id;
1600:
1601: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1602: BEGIN
1603:
1604: IF (l_debug = 1) THEN
1605: mdebug ('Start check_loose_quantity.');
1913: p_msg_data OUT NOCOPY VARCHAR2,
1914: p_org IN NUMBER
1915: )
1916: IS
1917: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1918: BEGIN
1919: IF wms_install.check_install(x_return_status,
1920: p_msg_count,
1921: p_msg_data,
1944: from wms_license_plate_numbers
1945: where outermost_lpn_id = p_lpn_id
1946: and organization_id = p_org_id;
1947:
1948: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1949: BEGIN
1950: OPEN c_lpn_content;
1951: LOOP
1952: FETCH c_lpn_content INTO l_lpn_id;
2000: from wms_license_plate_numbers
2001: where outermost_lpn_id = p_lpn_id
2002: and organization_id = p_org_id;
2003:
2004: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2005: BEGIN
2006: OPEN c_lpn_content;
2007: LOOP
2008: FETCH c_lpn_content INTO l_lpn_id;
2061: from mtl_serial_numbers
2062: where lpn_id = p_lpnid
2063: and current_organization_id = p_org_id;
2064:
2065: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2066: BEGIN
2067: OPEN c_lpn_content;
2068: LOOP
2069: FETCH c_lpn_content INTO l_lpn_id;
2138: from wms_license_plate_numbers
2139: where outermost_lpn_id = p_lpn_id
2140: and organization_id = p_org_id;
2141:
2142: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2143: BEGIN
2144: OPEN c_lpn_content;
2145: IF (l_debug = 1) THEN
2146: mdebug ('Inside check_partial_lpn_loaded');
2202: IS
2203: l_cnt NUMBER:= 0;
2204: x_return VARCHAR2(1) := 'Y';
2205:
2206: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2207: BEGIN
2208:
2209: select 1
2210: into l_cnt
2251: )
2252: RETURN VARCHAR2
2253: IS
2254: x_return VARCHAR2(1);
2255: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2256: BEGIN
2257: x_return := inv_ui_item_sub_loc_lovs.vaildate_lpn_status(
2258: p_lpn_id,
2259: p_orgid,
2317: IS
2318: x_return VARCHAR2(1);
2319: l_count NUMBER;
2320: l_action_id NUMBER;
2321: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2322: BEGIN
2323: /** Bug 2403417 - add a check of the lpn context. If the lpn Context is "Picked"
2324: and transaction is subtransfer, return error INV_LPN_DELIVERY_ASSOC
2325: **/
2411: )
2412: RETURN VARCHAR2
2413: IS
2414: x_return VARCHAR2(1);
2415: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2416: BEGIN
2417: x_return := inv_ui_item_sub_loc_lovs.vaildate_lpn_status(
2418: p_lpn_id,
2419: p_orgid,
2490: )
2491: RETURN VARCHAR2
2492: IS
2493: x_return VARCHAR2(1);
2494: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2495: BEGIN
2496:
2497: --check the toorg
2498: x_return := INV_UI_ITEM_SUB_LOC_LOVS.validate_lpn_for_toorg(p_lpn_id, p_to_org_id, p_orgid, p_transaction_type_id);
2615: AND wlpn.organization_id = p_organization_id
2616: AND wlc.parent_lpn_id = wlpn.lpn_id
2617: GROUP BY wlc.parent_lpn_id, wlc.inventory_item_id, wlc.revision, wlpn.lpn_context,wlc.lot_number ;
2618:
2619: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2620: BEGIN
2621: /* Assuming p_lpn_id CAN NOT BE NULL */
2622: x_return :='Y';
2623: x_return_msg :='';
2848: AND wlpn.organization_id = p_organization_id
2849: AND wlc.parent_lpn_id = wlpn.lpn_id
2850: GROUP BY wlc.parent_lpn_id, wlc.inventory_item_id, wlc.revision, wlpn.lpn_context,wlc.lot_number ;
2851:
2852: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2853: BEGIN
2854: /* Assuming p_lpn_id CAN NOT BE NULL */
2855: x_return :='Y';
2856: x_return_msg :='';
3086: l_lpn_context NUMBER;
3087: l_mod varchar2(20) := 'get_lpn_available';
3088: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
3089:
3090: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3091: BEGIN
3092:
3093: x_return := 'Y';
3094: x_return_msg :='';
3266: l_lpn_context NUMBER;
3267: l_mod varchar2(20) := 'get_lpn_available';
3268: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
3269:
3270: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3271: BEGIN
3272:
3273: x_return := 'Y';
3274: x_return_msg :='';
3440: l_lpn_context NUMBER;
3441: l_mod varchar2(20) := 'get_lpn_available';
3442: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
3443:
3444: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3445: BEGIN
3446:
3447: x_return := 'Y';
3448: x_return_msg :='';
3582: from mtl_material_transactions_temp
3583: where organization_id = p_org_id
3584: and inventory_item_id = p_item_id
3585: and nvl(revision,'@@@') = nvl(p_rev, nvl(revision,'@@@'));
3586: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3587: BEGIN
3588: x_return := 'Y';
3589: IF (l_debug = 1) THEN
3590: mdebug('check_serial_unpacksplit: lpn_id'||p_lpn_id||' orgid:'||p_org_id||' itemid:'||p_item_id||' rev:'||p_rev||' lot:'||p_lot||' serial:'||p_serial);
3643: , p_item_id IN NUMBER
3644: , p_revision IN VARCHAR2
3645: , p_uom IN VARCHAR2)
3646: IS
3647: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3648:
3649: BEGIN
3650: --BugFix 3701796 SQL sum function changed to primary quantity
3651: OPEN x_lot_qty FOR
3671: , p_item_id IN NUMBER
3672: , p_revision IN VARCHAR2
3673: , p_uom IN VARCHAR2)
3674: IS
3675: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3676: BEGIN
3677: OPEN x_tot_qty FOR
3678: select sum(quantity)
3679: from wms_lpn_contents
3703: , p_wms_installed IN VARCHAR2
3704: ) IS
3705: l_org NUMBER;
3706: l_restrict_locators_code NUMBER;
3707: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3708: BEGIN
3709: IF (l_debug = 1) THEN
3710: inv_log_util.trace('get_valid_to_locs Starting ', 'process_serial_subxfr');
3711: END IF;
3768: , p_task_id IN NUMBER
3769: ) IS
3770: l_org NUMBER;
3771: l_restrict_locators_code NUMBER;
3772: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3773: BEGIN
3774: IF (l_debug = 1) THEN
3775: inv_log_util.trace('get_valid_prj_to_locs ::Starting ', 'process_serial_subxfr');
3776: END IF;
3902: l_asset_inventory mtl_secondary_inventories.asset_inventory%TYPE;
3903: l_lpn_controlled_flag mtl_secondary_inventories.lpn_controlled_flag%TYPE;
3904: l_enable_locator_alias mtl_secondary_inventories.enable_locator_alias%TYPE;
3905:
3906: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3907: BEGIN
3908: x_serial_processed := 'NO'; -- No processing has been done
3909:
3910: IF p_subinventory_code = p_to_subinventory_code
4415: FROM mtl_system_items
4416: WHERE inventory_item_id = p_inventory_item_id
4417: AND organization_id = p_organization_id;
4418:
4419: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4420: BEGIN
4421:
4422: IF (l_debug = 1) THEN
4423: mdebug ('Start check_loose_and_packed_qty.');
4694: l_is_serial_control BOOLEAN := FALSE;
4695: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4696: p_init_msg_lst VARCHAR2(30);
4697: l_api_name CONSTANT VARCHAR2(30) := 'Get_Avbl_To_Transact_Qty';
4698: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4699: BEGIN
4700: IF (l_debug = 1) THEN
4701: mdebug ('Inside get_avbl_to_transact_qty');
4702: END IF;
4825: from wms_license_plate_numbers
4826: where outermost_lpn_id = p_lpn_id
4827: and organization_id = p_org_id;
4828:
4829: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4830: BEGIN
4831: OPEN c_lpn_content;
4832: LOOP
4833: FETCH c_lpn_content INTO l_lpn_id;