[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;
15: l_msg:=l_ts||' '||msg;
16:
42: IS
43:
44: l_Item_Info t_Item_Out;
45:
46: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
47: BEGIN
48:
49: Select inventory_item_id,
50: description,
102:
103: l_SN_Info t_SN_Out;
104: l_curr_stat NUMBER;
105:
106: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
107: BEGIN
108:
109: Select current_locator_id,
110: current_subinventory_code,
269: l_is_revision_control BOOLEAN := FALSE;
270: l_is_lot_control BOOLEAN := FALSE;
271: l_is_serial_control BOOLEAN := FALSE;
272: l_tree_mode NUMBER;
273: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
274: -- Bug# 3952081
275: l_srqoh NUMBER;
276: l_sqr NUMBER;
277: l_sqs NUMBER;
444: l_srqoh NUMBER;
445: l_sqr NUMBER;
446: l_sqs NUMBER;
447: l_satr NUMBER;
448: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
449: BEGIN
450: inv_quantity_tree_pub.clear_quantity_cache;
451: IF p_is_revision_control = 'true' THEN
452: l_is_revision_control := TRUE;
602: l_srqoh NUMBER;
603: l_sqr NUMBER;
604: l_sqs NUMBER;
605: l_satr NUMBER;
606: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
607: BEGIN
608: inv_quantity_tree_pub.clear_quantity_cache;
609: IF p_is_revision_control = 'true' THEN
610: l_is_revision_control := TRUE;
794: p_api_version_number number;
795: p_init_msg_lst VARCHAR2(30);
796: l_asset_sub_only BOOLEAN := FALSE;
797:
798: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
799: BEGIN
800: inv_quantity_tree_pvt.clear_quantity_cache;
801:
802: IF p_is_revision_control = 'true' THEN
1137: p_api_version_number number;
1138: p_init_msg_lst VARCHAR2(30);
1139: l_asset_sub_only BOOLEAN := FALSE;
1140:
1141: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1142: BEGIN
1143: inv_quantity_tree_pvt.clear_quantity_cache;
1144:
1145: IF p_is_revision_control = 'true' THEN
1444: and nvl(lot_number, '###') = nvl(p_lot_number, nvl(lot_number,'###'))
1445: and containerized_flag =2
1446: and cost_group_id <> x_cost_group_id;
1447:
1448: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1449: BEGIN
1450:
1451: IF (l_debug = 1) THEN
1452: mdebug ('Start check_loose_quantity.');
1760: p_msg_data OUT NOCOPY VARCHAR2,
1761: p_org IN NUMBER
1762: )
1763: IS
1764: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1765: BEGIN
1766: IF wms_install.check_install(x_return_status,
1767: p_msg_count,
1768: p_msg_data,
1791: from wms_license_plate_numbers
1792: where outermost_lpn_id = p_lpn_id
1793: and organization_id = p_org_id;
1794:
1795: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1796: BEGIN
1797: OPEN c_lpn_content;
1798: LOOP
1799: FETCH c_lpn_content INTO l_lpn_id;
1847: from wms_license_plate_numbers
1848: where outermost_lpn_id = p_lpn_id
1849: and organization_id = p_org_id;
1850:
1851: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1852: BEGIN
1853: OPEN c_lpn_content;
1854: LOOP
1855: FETCH c_lpn_content INTO l_lpn_id;
1908: from mtl_serial_numbers
1909: where lpn_id = p_lpnid
1910: and current_organization_id = p_org_id;
1911:
1912: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1913: BEGIN
1914: OPEN c_lpn_content;
1915: LOOP
1916: FETCH c_lpn_content INTO l_lpn_id;
1976: IS
1977: l_cnt NUMBER:= 0;
1978: x_return VARCHAR2(1) := 'Y';
1979:
1980: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1981: BEGIN
1982:
1983: select 1
1984: into l_cnt
2025: )
2026: RETURN VARCHAR2
2027: IS
2028: x_return VARCHAR2(1);
2029: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2030: BEGIN
2031: x_return := inv_ui_item_sub_loc_lovs.vaildate_lpn_status(
2032: p_lpn_id,
2033: p_orgid,
2091: IS
2092: x_return VARCHAR2(1);
2093: l_count NUMBER;
2094: l_action_id NUMBER;
2095: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2096: BEGIN
2097: /** Bug 2403417 - add a check of the lpn context. If the lpn Context is "Picked"
2098: and transaction is subtransfer, return error INV_LPN_DELIVERY_ASSOC
2099: **/
2185: )
2186: RETURN VARCHAR2
2187: IS
2188: x_return VARCHAR2(1);
2189: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2190: BEGIN
2191: x_return := inv_ui_item_sub_loc_lovs.vaildate_lpn_status(
2192: p_lpn_id,
2193: p_orgid,
2246: )
2247: RETURN VARCHAR2
2248: IS
2249: x_return VARCHAR2(1);
2250: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2251: BEGIN
2252:
2253: --check the toorg
2254: 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);
2361: AND wlpn.organization_id = p_organization_id
2362: AND wlc.parent_lpn_id = wlpn.lpn_id
2363: GROUP BY wlc.parent_lpn_id, wlc.inventory_item_id, wlc.revision, wlpn.lpn_context,wlc.lot_number ;
2364:
2365: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2366: BEGIN
2367: /* Assuming p_lpn_id CAN NOT BE NULL */
2368: x_return :='Y';
2369: x_return_msg :='';
2593: AND wlpn.organization_id = p_organization_id
2594: AND wlc.parent_lpn_id = wlpn.lpn_id
2595: GROUP BY wlc.parent_lpn_id, wlc.inventory_item_id, wlc.revision, wlpn.lpn_context,wlc.lot_number ;
2596:
2597: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2598: BEGIN
2599: /* Assuming p_lpn_id CAN NOT BE NULL */
2600: x_return :='Y';
2601: x_return_msg :='';
2807: l_lpn_context NUMBER;
2808: l_mod varchar2(20) := 'get_lpn_available';
2809: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
2810:
2811: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2812: BEGIN
2813:
2814: x_return := 'Y';
2815: x_return_msg :='';
2987: l_lpn_context NUMBER;
2988: l_mod varchar2(20) := 'get_lpn_available';
2989: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
2990:
2991: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2992: BEGIN
2993:
2994: x_return := 'Y';
2995: x_return_msg :='';
3161: l_lpn_context NUMBER;
3162: l_mod varchar2(20) := 'get_lpn_available';
3163: l_tree_mode NUMBER := INV_Quantity_Tree_PUB.g_transaction_mode;
3164:
3165: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3166: BEGIN
3167:
3168: x_return := 'Y';
3169: x_return_msg :='';
3303: from mtl_material_transactions_temp
3304: where organization_id = p_org_id
3305: and inventory_item_id = p_item_id
3306: and nvl(revision,'@@@') = nvl(p_rev, nvl(revision,'@@@'));
3307: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3308: BEGIN
3309: x_return := 'Y';
3310: IF (l_debug = 1) THEN
3311: 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);
3364: , p_item_id IN NUMBER
3365: , p_revision IN VARCHAR2
3366: , p_uom IN VARCHAR2)
3367: IS
3368: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3369:
3370: BEGIN
3371: --BugFix 3701796 SQL sum function changed to primary quantity
3372: OPEN x_lot_qty FOR
3392: , p_item_id IN NUMBER
3393: , p_revision IN VARCHAR2
3394: , p_uom IN VARCHAR2)
3395: IS
3396: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3397: BEGIN
3398: OPEN x_tot_qty FOR
3399: select sum(quantity)
3400: from wms_lpn_contents
3424: , p_wms_installed IN VARCHAR2
3425: ) IS
3426: l_org NUMBER;
3427: l_restrict_locators_code NUMBER;
3428: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3429: BEGIN
3430: IF (l_debug = 1) THEN
3431: inv_log_util.trace('get_valid_to_locs Starting ', 'process_serial_subxfr');
3432: END IF;
3489: , p_task_id IN NUMBER
3490: ) IS
3491: l_org NUMBER;
3492: l_restrict_locators_code NUMBER;
3493: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3494: BEGIN
3495: IF (l_debug = 1) THEN
3496: inv_log_util.trace('get_valid_prj_to_locs ::Starting ', 'process_serial_subxfr');
3497: END IF;
3623: l_asset_inventory mtl_secondary_inventories.asset_inventory%TYPE;
3624: l_lpn_controlled_flag mtl_secondary_inventories.lpn_controlled_flag%TYPE;
3625: l_enable_locator_alias mtl_secondary_inventories.enable_locator_alias%TYPE;
3626:
3627: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3628: BEGIN
3629: x_serial_processed := 'NO'; -- No processing has been done
3630:
3631: IF p_subinventory_code = p_to_subinventory_code
4136: FROM mtl_system_items
4137: WHERE inventory_item_id = p_inventory_item_id
4138: AND organization_id = p_organization_id;
4139:
4140: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4141: BEGIN
4142:
4143: IF (l_debug = 1) THEN
4144: mdebug ('Start check_loose_and_packed_qty.');
4415: l_is_serial_control BOOLEAN := FALSE;
4416: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4417: p_init_msg_lst VARCHAR2(30);
4418: l_api_name CONSTANT VARCHAR2(30) := 'Get_Avbl_To_Transact_Qty';
4419: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4420: BEGIN
4421: IF (l_debug = 1) THEN
4422: mdebug ('Inside get_avbl_to_transact_qty');
4423: END IF;
4546: from wms_license_plate_numbers
4547: where outermost_lpn_id = p_lpn_id
4548: and organization_id = p_org_id;
4549:
4550: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4551: BEGIN
4552: OPEN c_lpn_content;
4553: LOOP
4554: FETCH c_lpn_content INTO l_lpn_id;