[Home] [Help]
28: -- Bug 9572628
29: l_physical_loc_id NUMBER;
30: l_phys_loc_segs VARCHAR2(1000);
31:
32: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
33: BEGIN
34: IF (l_debug = 1) THEN
35: DEBUG('In the update locator');
36: END IF;
199: l_debug NUMBER;
200: l_procedure_name VARCHAR2(30);
201: BEGIN
202:
203: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
204: l_procedure_name := 'GET_SUB_LOV_RCV';
205:
206: IF l_debug > 0 THEN
207: debug(l_procedure_name);
461: l_debug NUMBER;
462: l_procedure_name VARCHAR2(30);
463: BEGIN
464:
465: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
466: l_procedure_name := 'GET_SUB_LOV_RCV';
467:
468: IF l_debug > 0 THEN
469: debug(l_procedure_name);
769: -- Functions: This API returns Transaction Reasons
770: --
771: --- Obsolete
772: PROCEDURE get_mo_tosub_lov(x_tosub_lov OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_moheader_id IN NUMBER, p_subinv_code IN VARCHAR) IS
773: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
774: BEGIN
775: OPEN x_tosub_lov FOR
776: SELECT secondary_inventory_name
777: , NVL(locator_type, 1)
813: , p_concatenated_segments IN VARCHAR2
814: , p_transaction_type_id IN NUMBER
815: , p_wms_installed IN VARCHAR2
816: ) IS
817: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
818: BEGIN
819: IF (l_debug = 1) THEN
820: inv_log_util.TRACE('Im in GET_pick_LOV', 'WMS_LPN_LOVs', 9);
821: END IF;
880: , p_concatenated_segments IN VARCHAR2
881: , p_transaction_type_id IN NUMBER
882: , p_wms_installed IN VARCHAR2
883: ) IS
884: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
885: BEGIN
886: IF (l_debug = 1) THEN
887: inv_trx_util_pub.TRACE('Im in GET_LOC_LOV_PJM', 'WMS_LPN_LOVs', 9);
888: END IF;
936: , p_concatenated_segments IN VARCHAR2
937: , p_project_id IN NUMBER := NULL
938: , p_task_id IN NUMBER := NULL
939: ) IS
940: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
941: l_ispjm_org VARCHAR2(1);
942: BEGIN
943: BEGIN
944: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
1056: , p_project_id IN NUMBER := NULL
1057: , p_task_id IN NUMBER := NULL
1058: , p_alias IN VARCHAR2
1059: ) IS
1060: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1061: l_ispjm_org VARCHAR2(1);
1062: BEGIN
1063: IF p_alias IS NULL THEN
1064: get_inq_loc_lov(
1193: l_msg_count NUMBER;
1194: l_msg_data VARCHAR2(20);
1195: l_label_status VARCHAR2(20);
1196: l_status_rec inv_material_status_pub.mtl_status_update_rec_type; -- bug# 1695432
1197: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1198: BEGIN
1199: x_result := 'S';
1200: l_validity_check := 'passed';
1201:
1343:
1344: -- This procedure validates a locator
1345: PROCEDURE check_dynamic_locator(x_result OUT NOCOPY VARCHAR2, p_org_id IN NUMBER, p_sub_code IN VARCHAR2, p_inventory_location_id IN VARCHAR2) IS
1346: l_temp NUMBER;
1347: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1348: BEGIN
1349: x_result := 'S';
1350:
1351: BEGIN
1375: , p_wms_installed IN VARCHAR2
1376: ) IS
1377: l_org NUMBER;
1378: l_restrict_locators_code NUMBER;
1379: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1380: BEGIN
1381: IF p_transaction_action_id IN (3, 21) THEN
1382: l_org := p_to_organization_id;
1383:
1406: --
1407: -- Functions: This API is to return "src" locator for a given MO
1408: --
1409: PROCEDURE get_mo_fromloc_lov(x_locators OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_moheader_id IN NUMBER, p_concatenated_segments IN VARCHAR2, p_project_id IN NUMBER := NULL, p_task_id IN NUMBER := NULL) IS
1410: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1411: BEGIN
1412: OPEN x_locators FOR
1413: SELECT mil.inventory_location_id
1414: --, mil.concatenated_segments conseg--Bug4398337:Commented this line and added below line
1431: p_project_id IN NUMBER := NULL,
1432: p_task_id IN NUMBER := NULL,
1433: p_alias IN VARCHAR2
1434: ) IS
1435: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1436: BEGIN
1437: IF p_alias IS NULL THEN
1438: get_mo_fromloc_lov(
1439: x_locators => x_locators
1472: --
1473: -- Functions: This API is to return "destination" locator for a given MO
1474: --
1475: PROCEDURE get_mo_toloc_lov(x_locators OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_moheader_id IN NUMBER, p_concatenated_segments IN VARCHAR2, p_project_id IN NUMBER := NULL, p_task_id IN NUMBER := NULL) IS
1476: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1477: BEGIN
1478: OPEN x_locators FOR
1479: SELECT mil.inventory_location_id
1480: --, mil.concatenated_segments consegs--Bug4398337:Commented this line and added below line
1500: p_project_id IN NUMBER := NULL,
1501: p_task_id IN NUMBER := NULL,
1502: p_alias IN VARCHAR2
1503: ) IS
1504: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1505: BEGIN
1506: IF p_alias IS NULL THEN
1507: get_mo_toloc_lov(
1508: x_locators => x_locators
1540: p_concatenated_segments IN VARCHAR2,
1541: p_project_id IN NUMBER , -- PJM_WMS Integration
1542: p_task_id IN NUMBER ) -- PJM_WMS Integration
1543: IS
1544: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1545: BEGIN
1546: OPEN x_locators FOR
1547: SELECT mil.inventory_location_id
1548: --, mil.concatenated_segments--Bug4398337:Commented this line and added below line
1568: p_project_id IN NUMBER , -- PJM_WMS Integration
1569: p_task_id IN NUMBER, -- PJM_WMS Integration
1570: p_alias IN VARCHAR2
1571: ) IS
1572: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1573: BEGIN
1574: IF p_alias IS NULL THEN
1575: get_loc_with_status(
1576: x_locators => x_locators
1612: ) IS
1613: l_expense_to_asset VARCHAR2(1);
1614: l_debug NUMBER;
1615: BEGIN
1616: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1617: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1618:
1619: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1620: IF (p_transaction_action_id <> 2
1613: l_expense_to_asset VARCHAR2(1);
1614: l_debug NUMBER;
1615: BEGIN
1616: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1617: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1618:
1619: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1620: IF (p_transaction_action_id <> 2
1621: AND p_transaction_action_id <> 3
1774: l_from_sub_asset_inventory VARCHAR2(1);
1775: l_debug NUMBER;
1776: BEGIN
1777:
1778: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1779:
1780: IF p_transaction_action_id IN (3, 21) THEN
1781: l_org := p_to_organization_id;
1782:
1798: FROM mtl_system_items
1799: WHERE inventory_item_id = p_inventory_item_id
1800: AND organization_id = l_org;
1801:
1802: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1803:
1804: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1805: IF l_restrict_subinventories_code = 1 THEN
1806: OPEN x_to_sub FOR
1943: , p_subinventory_code IN VARCHAR2
1944: ) IS
1945: l_debug NUMBER;
1946: BEGIN
1947: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1948: --bug#3440453 Remove the NVL on organization_id if user passes it.
1949: IF p_organization_id IS NULL THEN
1950: OPEN x_zones FOR
1951: SELECT secondary_inventory_name
1984: , p_wms_installed IN VARCHAR2
1985: ) IS
1986: l_debug NUMBER;
1987: BEGIN
1988: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1989: --bug#3440453 Remove the NVL on organization_id if user passes a value to it.
1990: IF p_organization_id IS NULL THEN
1991: OPEN x_zones FOR
1992: SELECT secondary_inventory_name
2021: FUNCTION check_loc_existence(p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2)
2022: RETURN NUMBER IS
2023: loc_control NUMBER;
2024: loc_exists NUMBER := 0;
2025: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2026: BEGIN
2027: /* Bug #1613379
2028: SELECT 1
2029: INTO loc_exists
2062: , p_subinventory_code IN VARCHAR2
2063: ) IS
2064: l_debug NUMBER;
2065: BEGIN
2066: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2067: OPEN x_zones FOR
2068: SELECT secondary_inventory_name
2069: , inv_ui_item_sub_loc_lovs.check_loc_existence(p_organization_id, secondary_inventory_name)
2070: , msi.description
2088: , p_sub IN VARCHAR2
2089: ) IS
2090: l_debug NUMBER;
2091: BEGIN
2092: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2093: IF (p_txn_dock = 'Y') THEN
2094: OPEN x_sub_lov FOR
2095: SELECT msub.secondary_inventory_name
2096: , NVL(msub.locator_type, 1)
2134: END IF;
2135: END get_sub_lov_ship;
2136:
2137: PROCEDURE get_to_xsubs(x_to_xsubs OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2) IS
2138: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2139: BEGIN
2140: OPEN x_to_xsubs FOR
2141: SELECT secondary_inventory_name
2142: , locator_type
2181: --l_dynamic_tag_entry_flag NUMBER;
2182: l_debug NUMBER;
2183: BEGIN
2184:
2185: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2186: /* bug 1727378 fix*/
2187: -- Get the dynamic tag entry flag
2188: --SELECT dynamic_tag_entry_flag
2189: -- INTO l_dynamic_tag_entry_flag
2275: p_project_id IN NUMBER := NULL ,
2276: p_task_id IN NUMBER := NULL
2277: )
2278: IS
2279: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2280: BEGIN
2281: IF (p_dynamic_entry_flag = 2) THEN
2282: -- Dynamic entries are not allowed
2283: OPEN x_locators FOR
2335: p_task_id IN NUMBER := NULL ,
2336: p_alias IN VARCHAR2
2337: )
2338: IS
2339: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2340: BEGIN
2341:
2342: IF p_alias IS NULL THEN
2343: get_phyinv_locs(
2428: ) IS
2429: l_unscheduled_count_entry NUMBER;
2430: l_debug NUMBER;
2431: BEGIN
2432: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2433:
2434: IF (p_orientation_code = 1) THEN
2435: -- All subinventories in the org are included for this cycle count
2436: OPEN x_cyc_sub_lov FOR
2533: IS
2534: l_proc_name CONSTANT VARCHAR2(30) := 'INV_UI_ITEM_SUB_LOCS';
2535: l_serial_discrepancy_option NUMBER;
2536: l_container_discrepancy_option NUMBER;
2537: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2538: l_ispjm_org VARCHAR2(1);
2539: BEGIN
2540: IF (l_debug = 1) THEN
2541: Inv_log_util.trace('p_organization_id: =======> ' || p_organization_id ,l_proc_name ,9);
2707: IS
2708: l_proc_name CONSTANT VARCHAR2(30) := 'INV_UI_ITEM_SUB_LOCS';
2709: l_serial_discrepancy_option NUMBER;
2710: l_container_discrepancy_option NUMBER;
2711: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2712: l_ispjm_org VARCHAR2(1);
2713: BEGIN
2714: IF (l_debug = 1) THEN
2715: Inv_log_util.trace('p_organization_id: =======> ' || p_organization_id ,l_proc_name ,9);
2893: , p_planning_tp_type IN NUMBER
2894: , p_owning_org_id IN NUMBER
2895: , p_owning_tp_type IN NUMBER
2896: ) IS
2897: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2898: BEGIN
2899: OPEN x_lpns FOR
2900: SELECT DISTINCT a.license_plate_number
2901: , a.outermost_lpn_id
2946: , p_to_organization_id IN NUMBER
2947: , p_transaction_type_id IN NUMBER
2948: , p_wms_installed IN VARCHAR2
2949: ) IS
2950: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2951: BEGIN
2952: OPEN x_lpns FOR
2953: SELECT DISTINCT a.license_plate_number
2954: , a.outermost_lpn_id
3006: WHERE parent_lpn_id IN (SELECT lpn_id
3007: FROM wms_license_plate_numbers
3008: WHERE outermost_lpn_id = p_lpn_id)
3009: AND inventory_item_id IS NOT NULL;
3010: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3011: BEGIN
3012: x_return := 'Y';
3013:
3014: IF (p_orgid IS NOT NULL AND p_transaction_type_id = 3 ) THEN
3137: l_lpn_rsvd NUMBER;
3138: l_debug NUMBER;
3139: l_procedure_name VARCHAR2(30);
3140: BEGIN
3141: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3142: l_procedure_name := 'GET_VALID_LPN_TOSUBS';
3143:
3144: IF p_transaction_action_id IN (3, 21) THEN
3145: l_org := p_to_organization_id;
3217: WHERE parent_lpn_id IN (SELECT lpn_id
3218: FROM wms_license_plate_numbers
3219: WHERE outermost_lpn_id = p_lpn_id)
3220: AND inventory_item_id IS NOT NULL;
3221: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3222: BEGIN
3223: /*
3224: SELECT DISTINCT content_type INTO l_content_type
3225: FROM wms_lpn_contents
3246: FROM mtl_system_items
3247: WHERE inventory_item_id = l_item_id
3248: AND organization_id = p_orgid;
3249:
3250: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
3251:
3252: IF (NVL(l_expense_to_asset, '2') = '1') THEN
3253: IF l_restrict_subinventories_code = 1 THEN
3254: SELECT COUNT(*)
3370: WHERE parent_lpn_id IN (SELECT lpn_id
3371: FROM wms_license_plate_numbers
3372: WHERE outermost_lpn_id = p_lpn_id)
3373: AND inventory_item_id IS NOT NULL;
3374: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3375: BEGIN
3376: IF inv_material_status_grp.is_status_applicable(p_wms_installed, NULL, p_transaction_type_id, NULL, NULL, p_orgid, l_item_id, p_to_subinventory, p_locator_id, NULL, NULL, 'L') = 'Y' THEN
3377: OPEN l_item_cursor;
3378: l_lpn_content := 0;
3422: RETURN x_return;
3423: END vaildate_lpn_toloc;
3424:
3425: PROCEDURE get_lpnloc_lov(x_locators OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_lpn_id IN NUMBER, p_subinventory_code IN VARCHAR2, p_concatenated_segments IN VARCHAR2, p_transaction_type_id IN NUMBER, p_wms_installed IN VARCHAR2) IS
3426: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3427: BEGIN
3428: OPEN x_locators FOR
3429: SELECT inventory_location_id
3430: --, concatenated_segments--Bug4398337:Commented this line and added below line
3444: pack_loc_check VARCHAR2(1) := 'U';
3445: unpack_sub_check VARCHAR2(1) := 'U';
3446: unpack_loc_check VARCHAR2(1) := 'U';
3447: oth_val VARCHAR2(1) := 'U';
3448: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3449: BEGIN
3450: BEGIN
3451: SELECT 'Y'
3452: INTO oth_val
3540: WHERE current_organization_id = p_orgid
3541: AND lpn_id IN (SELECT lpn_id
3542: FROM wms_license_plate_numbers
3543: WHERE outermost_lpn_id = p_lpn_id);
3544: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3545: BEGIN
3546: OPEN l_cursor;
3547:
3548: LOOP
3590: , p_revision IN VARCHAR2
3591: ) IS
3592: l_debug NUMBER;
3593: BEGIN
3594: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3595: -- Include only those subinventories which are in the current org
3596: -- and include material with the item number entered
3597: OPEN x_cgupdate_sub_lov FOR
3598: SELECT DISTINCT moq.subinventory_code
3641: * Use the function INV_PROJECT.get_locsegs() to retrieve the
3642: * concatenated segments.
3643: */
3644: PROCEDURE get_cgupdate_locs(x_locators OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2, p_concatenated_segments IN VARCHAR2, p_inventory_item_id IN NUMBER, p_revision IN VARCHAR2) IS
3645: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3646: BEGIN
3647: OPEN x_locators FOR
3648: SELECT moq.locator_id
3649: --, mil.concatenated_segments--Bug4398337:Commented this line and added below line
3681: p_inventory_item_id IN NUMBER,
3682: p_revision IN VARCHAR2,
3683: p_alias IN VARCHAR2
3684: ) IS
3685: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3686: BEGIN
3687: IF p_alias IS NULL THEN
3688: get_cgupdate_locs(
3689: x_locators => x_locators
3729: , p_subinventory_code IN VARCHAR2
3730: ) IS
3731: l_debug NUMBER;
3732: BEGIN
3733: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3734: --bug#3440453 Remove the NVL on organization_id if user passes it.
3735: IF p_organization_id IS NULL THEN
3736: OPEN x_zones FOR
3737: SELECT secondary_inventory_name
3780:
3781: END get_with_all_subs;
3782:
3783: PROCEDURE get_with_all_loc(x_locators OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2, p_concatenated_segments IN VARCHAR2) IS
3784: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3785: BEGIN
3786: OPEN x_locators FOR
3787: SELECT milv.inventory_location_id
3788: --, milv.concatenated_segments --Bug4398337:Commented this line and added below line
3816: , p_organization_id IN NUMBER
3817: , p_subinventory_code IN VARCHAR2
3818: , p_concatenated_segments IN VARCHAR2
3819: , p_alias IN VARCHAR2) IS
3820: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3821: BEGIN
3822: IF (l_debug = 1) THEN
3823: DEBUG('Alias is '||p_alias);
3824: END IF;
3868: l_project_id NUMBER;
3869: l_task_id NUMBER;
3870: l_picking_order NUMBER;
3871: l_return_value BOOLEAN := FALSE;
3872: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3873: BEGIN
3874: x_result := fnd_api.g_ret_sts_success;
3875:
3876: --
4000: , p_wms_installed IN VARCHAR2
4001: ) IS
4002: l_debug NUMBER;
4003: BEGIN
4004: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4005: --bug#3440453 Remove the NVL on organization_id if user passes a value to it.
4006: IF p_organization_id IS NULL THEN
4007: OPEN x_zones FOR
4008: SELECT secondary_inventory_name
4057: x_return_status VARCHAR2(100);
4058: x_display VARCHAR2(100);
4059: x_project_col NUMBER;
4060: x_task_col NUMBER;
4061: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4062: l_ispjm_org VARCHAR2(1);
4063: l_sub_type NUMBER;
4064: BEGIN
4065:
4223: x_return_status VARCHAR2(100);
4224: x_display VARCHAR2(100);
4225: x_project_col NUMBER;
4226: x_task_col NUMBER;
4227: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4228: l_ispjm_org VARCHAR2(1);
4229: l_sub_type NUMBER;
4230: BEGIN
4231:
4410: , p_alias IN VARCHAR2
4411: ) IS
4412: l_org NUMBER;
4413: l_restrict_locators_code NUMBER;
4414: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4415: BEGIN
4416: debug('Inside INV_UI_ITEM_SUB_LOC_LOVS.get_valid_prj_to_locs');
4417: debug('p_alias : '|| p_alias);
4418: IF p_alias IS NULL THEN
4477: , p_task_id IN NUMBER
4478: ) IS
4479: l_org NUMBER;
4480: l_restrict_locators_code NUMBER;
4481: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4482: BEGIN
4483: debug('Inside INV_UI_ITEM_SUB_LOC_LOVS.get_valid_prj_to_locs :Overloaded');
4484: debug('p_transaction_action_id : '|| p_transaction_action_id);
4485: debug('p_to_organization_id : '|| p_to_organization_id);
4548: , p_wms_installed IN VARCHAR2
4549: , p_project_id IN NUMBER
4550: , p_task_id IN NUMBER
4551: ) IS
4552: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4553: BEGIN
4554: /*Bug 2769628: Restricted the LOV to list only common locators and anot logical locators*/
4555: OPEN x_locators FOR
4556: SELECT inventory_location_id
4576: , p_project_id IN NUMBER
4577: , p_task_id IN NUMBER
4578: , p_alias IN VARCHAR2
4579: ) IS
4580: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4581: BEGIN
4582:
4583: IF p_alias IS NULL THEN
4584: get_prj_lpnloc_lov(
4622: , p_rcv_sub_only IN NUMBER
4623: ) IS
4624: l_debug NUMBER;
4625: BEGIN
4626: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4627: IF (l_debug = 1) THEN
4628: DEBUG('Entering get_userput_subs:');
4629: DEBUG(' p_rcv_sub_only ====> ' || p_rcv_sub_only);
4630: END IF;
4876: FROM mtl_txn_request_lines
4877: WHERE organization_id = p_organization_id
4878: AND lpn_id = p_lpn_id;
4879:
4880: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4881: BEGIN
4882: -- Initialize the return variable
4883: x_return := 'Y';
4884: -- Loop through each item packed within the LPN
4959: p_task_id IN NUMBER ,
4960: p_lpn_id IN NUMBER ,
4961: p_alias IN VARCHAR2
4962: ) IS
4963: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4964: BEGIN
4965: /*Bug 2769628:To list all the common locators and not the logical locators*/
4966: IF p_alias IS NULL THEN
4967: get_userput_locs(
5001: p_project_id IN NUMBER ,
5002: p_task_id IN NUMBER ,
5003: p_lpn_id IN NUMBER
5004: ) IS
5005: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5006: BEGIN
5007: /*Bug 2769628:To list all the common locators and not the logical locators*/
5008: OPEN x_locators FOR
5009: SELECT inventory_location_id
5052: SELECT inventory_item_id, transaction_type_id
5053: FROM mtl_txn_request_lines
5054: WHERE organization_id = p_organization_id
5055: AND lpn_id = p_lpn_id;
5056: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5057: l_sub_type NUMBER;
5058: BEGIN
5059: -- Initialize the return variable
5060: x_return := 'Y';
5163: , p_task_id IN NUMBER
5164: , p_alias IN VARCHAR2
5165: ) IS
5166:
5167: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5168: l_ispjm_org VARCHAR2(1);
5169: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
5170: BEGIN
5171:
5312: , p_wms_installed IN VARCHAR2
5313: , p_project_id IN NUMBER
5314: , p_task_id IN NUMBER) IS
5315:
5316: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5317: l_ispjm_org VARCHAR2(1);
5318: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
5319: BEGIN
5320: BEGIN
5447: , p_wms_installed IN VARCHAR2
5448: , p_project_id IN NUMBER
5449: , p_task_id IN NUMBER) IS
5450:
5451: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5452: l_ispjm_org VARCHAR2(1);
5453: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
5454: BEGIN
5455: BEGIN
5593: , p_wms_installed IN VARCHAR2
5594: , p_project_id IN NUMBER
5595: , p_task_id IN NUMBER) IS
5596:
5597: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5598: l_ispjm_org VARCHAR2(1);
5599: BEGIN
5600: BEGIN
5601: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
5746: , p_wms_installed IN VARCHAR2
5747: , p_project_id IN NUMBER
5748: , p_task_id IN NUMBER) IS
5749:
5750: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5751: l_ispjm_org VARCHAR2(1);
5752: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
5753: BEGIN
5754: BEGIN
6731: , p_subinventory_code IN VARCHAR2
6732: , p_inventory_location_type IN NUMBER
6733: , p_concatenated_segments IN VARCHAR2
6734: ) IS
6735: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6736: l_ispjm_org VARCHAR2(1);
6737: BEGIN
6738: BEGIN
6739: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
6780: , p_inventory_location_type IN NUMBER
6781: , p_concatenated_segments IN VARCHAR2
6782: , p_alias IN VARCHAR2
6783: ) IS
6784: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6785: l_ispjm_org VARCHAR2(1);
6786: BEGIN
6787:
6788: IF p_alias IS NULL THEN
6913: x_return_status VARCHAR2(100);
6914: x_display VARCHAR2(100);
6915: x_project_col NUMBER;
6916: x_task_col NUMBER;
6917: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6918: l_ispjm_org VARCHAR2(1);
6919: l_sub_type NUMBER;
6920: BEGIN
6921: debug('Inside INV_UI_ITEM_SUB_LOC_LOVS.get_prj_to_loc_lov');