[Home] [Help]
24: l_locator_status NUMBER;
25: l_loc_type NUMBER;
26: l_status_rec inv_material_status_pub.mtl_status_update_rec_type;
27: l_picking_order NUMBER;
28: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
29: BEGIN
30: IF (l_debug = 1) THEN
31: DEBUG('In the update locator');
32: END IF;
145: l_debug NUMBER;
146: l_procedure_name VARCHAR2(30);
147: BEGIN
148:
149: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
150: l_procedure_name := 'GET_SUB_LOV_RCV';
151:
152: IF l_debug > 0 THEN
153: debug(l_procedure_name);
438: -- Functions: This API returns Transaction Reasons
439: --
440: --- Obsolete
441: 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
442: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
443: BEGIN
444: OPEN x_tosub_lov FOR
445: SELECT secondary_inventory_name
446: , NVL(locator_type, 1)
482: , p_concatenated_segments IN VARCHAR2
483: , p_transaction_type_id IN NUMBER
484: , p_wms_installed IN VARCHAR2
485: ) IS
486: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
487: BEGIN
488: IF (l_debug = 1) THEN
489: inv_log_util.TRACE('Im in GET_pick_LOV', 'WMS_LPN_LOVs', 9);
490: END IF;
548: , p_concatenated_segments IN VARCHAR2
549: , p_transaction_type_id IN NUMBER
550: , p_wms_installed IN VARCHAR2
551: ) IS
552: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
553: BEGIN
554: IF (l_debug = 1) THEN
555: inv_trx_util_pub.TRACE('Im in GET_LOC_LOV_PJM', 'WMS_LPN_LOVs', 9);
556: END IF;
603: , p_concatenated_segments IN VARCHAR2
604: , p_project_id IN NUMBER := NULL
605: , p_task_id IN NUMBER := NULL
606: ) IS
607: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
608: l_ispjm_org VARCHAR2(1);
609: BEGIN
610: BEGIN
611: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
721: , p_project_id IN NUMBER := NULL
722: , p_task_id IN NUMBER := NULL
723: , p_alias IN VARCHAR2
724: ) IS
725: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
726: l_ispjm_org VARCHAR2(1);
727: BEGIN
728: IF p_alias IS NULL THEN
729: get_inq_loc_lov(
856: l_msg_count NUMBER;
857: l_msg_data VARCHAR2(20);
858: l_label_status VARCHAR2(20);
859: l_status_rec inv_material_status_pub.mtl_status_update_rec_type; -- bug# 1695432
860: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
861: BEGIN
862: x_result := 'S';
863: l_validity_check := 'passed';
864:
1006:
1007: -- This procedure validates a locator
1008: 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
1009: l_temp NUMBER;
1010: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1011: BEGIN
1012: x_result := 'S';
1013:
1014: BEGIN
1038: , p_wms_installed IN VARCHAR2
1039: ) IS
1040: l_org NUMBER;
1041: l_restrict_locators_code NUMBER;
1042: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1043: BEGIN
1044: IF p_transaction_action_id IN (3, 21) THEN
1045: l_org := p_to_organization_id;
1046:
1069: --
1070: -- Functions: This API is to return "src" locator for a given MO
1071: --
1072: 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
1073: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1074: BEGIN
1075: OPEN x_locators FOR
1076: SELECT mil.inventory_location_id
1077: --, mil.concatenated_segments conseg--Bug4398337:Commented this line and added below line
1094: p_project_id IN NUMBER := NULL,
1095: p_task_id IN NUMBER := NULL,
1096: p_alias IN VARCHAR2
1097: ) IS
1098: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1099: BEGIN
1100: IF p_alias IS NULL THEN
1101: get_mo_fromloc_lov(
1102: x_locators => x_locators
1135: --
1136: -- Functions: This API is to return "destination" locator for a given MO
1137: --
1138: 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
1139: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1140: BEGIN
1141: OPEN x_locators FOR
1142: SELECT mil.inventory_location_id
1143: --, mil.concatenated_segments consegs--Bug4398337:Commented this line and added below line
1165: p_concatenated_segments IN VARCHAR2,
1166: p_project_id IN NUMBER , -- PJM_WMS Integration
1167: p_task_id IN NUMBER ) -- PJM_WMS Integration
1168: IS
1169: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1170: BEGIN
1171: OPEN x_locators FOR
1172: SELECT mil.inventory_location_id
1173: --, mil.concatenated_segments--Bug4398337:Commented this line and added below line
1193: p_project_id IN NUMBER , -- PJM_WMS Integration
1194: p_task_id IN NUMBER, -- PJM_WMS Integration
1195: p_alias IN VARCHAR2
1196: ) IS
1197: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1198: BEGIN
1199: IF p_alias IS NULL THEN
1200: get_loc_with_status(
1201: x_locators => x_locators
1237: ) IS
1238: l_expense_to_asset VARCHAR2(1);
1239: l_debug NUMBER;
1240: BEGIN
1241: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1242: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1243:
1244: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1245: IF (p_transaction_action_id <> 2
1238: l_expense_to_asset VARCHAR2(1);
1239: l_debug NUMBER;
1240: BEGIN
1241: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1242: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1243:
1244: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1245: IF (p_transaction_action_id <> 2
1246: AND p_transaction_action_id <> 3
1399: l_from_sub_asset_inventory VARCHAR2(1);
1400: l_debug NUMBER;
1401: BEGIN
1402:
1403: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1404:
1405: IF p_transaction_action_id IN (3, 21) THEN
1406: l_org := p_to_organization_id;
1407:
1423: FROM mtl_system_items
1424: WHERE inventory_item_id = p_inventory_item_id
1425: AND organization_id = l_org;
1426:
1427: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
1428:
1429: IF (NVL(l_expense_to_asset, '2') = '1') THEN
1430: IF l_restrict_subinventories_code = 1 THEN
1431: OPEN x_to_sub FOR
1568: , p_subinventory_code IN VARCHAR2
1569: ) IS
1570: l_debug NUMBER;
1571: BEGIN
1572: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1573: --bug#3440453 Remove the NVL on organization_id if user passes it.
1574: IF p_organization_id IS NULL THEN
1575: OPEN x_zones FOR
1576: SELECT secondary_inventory_name
1609: , p_wms_installed IN VARCHAR2
1610: ) IS
1611: l_debug NUMBER;
1612: BEGIN
1613: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1614: --bug#3440453 Remove the NVL on organization_id if user passes a value to it.
1615: IF p_organization_id IS NULL THEN
1616: OPEN x_zones FOR
1617: SELECT secondary_inventory_name
1646: FUNCTION check_loc_existence(p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2)
1647: RETURN NUMBER IS
1648: loc_control NUMBER;
1649: loc_exists NUMBER := 0;
1650: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1651: BEGIN
1652: /* Bug #1613379
1653: SELECT 1
1654: INTO loc_exists
1687: , p_subinventory_code IN VARCHAR2
1688: ) IS
1689: l_debug NUMBER;
1690: BEGIN
1691: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1692: OPEN x_zones FOR
1693: SELECT secondary_inventory_name
1694: , inv_ui_item_sub_loc_lovs.check_loc_existence(p_organization_id, secondary_inventory_name)
1695: , msi.description
1713: , p_sub IN VARCHAR2
1714: ) IS
1715: l_debug NUMBER;
1716: BEGIN
1717: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1718: IF (p_txn_dock = 'Y') THEN
1719: OPEN x_sub_lov FOR
1720: SELECT msub.secondary_inventory_name
1721: , NVL(msub.locator_type, 1)
1759: END IF;
1760: END get_sub_lov_ship;
1761:
1762: PROCEDURE get_to_xsubs(x_to_xsubs OUT NOCOPY t_genref, p_organization_id IN NUMBER, p_subinventory_code IN VARCHAR2) IS
1763: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1764: BEGIN
1765: OPEN x_to_xsubs FOR
1766: SELECT secondary_inventory_name
1767: , locator_type
1806: --l_dynamic_tag_entry_flag NUMBER;
1807: l_debug NUMBER;
1808: BEGIN
1809:
1810: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1811: /* bug 1727378 fix*/
1812: -- Get the dynamic tag entry flag
1813: --SELECT dynamic_tag_entry_flag
1814: -- INTO l_dynamic_tag_entry_flag
1900: p_project_id IN NUMBER := NULL ,
1901: p_task_id IN NUMBER := NULL
1902: )
1903: IS
1904: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1905: BEGIN
1906: IF (p_dynamic_entry_flag = 2) THEN
1907: -- Dynamic entries are not allowed
1908: OPEN x_locators FOR
1959: p_task_id IN NUMBER := NULL ,
1960: p_alias IN VARCHAR2
1961: )
1962: IS
1963: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1964: BEGIN
1965:
1966: IF p_alias IS NULL THEN
1967: get_phyinv_locs(
2051: ) IS
2052: l_unscheduled_count_entry NUMBER;
2053: l_debug NUMBER;
2054: BEGIN
2055: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2056:
2057: IF (p_orientation_code = 1) THEN
2058: -- All subinventories in the org are included for this cycle count
2059: OPEN x_cyc_sub_lov FOR
2156: IS
2157: l_proc_name CONSTANT VARCHAR2(30) := 'INV_UI_ITEM_SUB_LOCS';
2158: l_serial_discrepancy_option NUMBER;
2159: l_container_discrepancy_option NUMBER;
2160: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2161: l_ispjm_org VARCHAR2(1);
2162: BEGIN
2163: IF (l_debug = 1) THEN
2164: Inv_log_util.trace('p_organization_id: =======> ' || p_organization_id ,l_proc_name ,9);
2330: IS
2331: l_proc_name CONSTANT VARCHAR2(30) := 'INV_UI_ITEM_SUB_LOCS';
2332: l_serial_discrepancy_option NUMBER;
2333: l_container_discrepancy_option NUMBER;
2334: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2335: l_ispjm_org VARCHAR2(1);
2336: BEGIN
2337: IF (l_debug = 1) THEN
2338: Inv_log_util.trace('p_organization_id: =======> ' || p_organization_id ,l_proc_name ,9);
2516: , p_planning_tp_type IN NUMBER
2517: , p_owning_org_id IN NUMBER
2518: , p_owning_tp_type IN NUMBER
2519: ) IS
2520: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2521: BEGIN
2522: OPEN x_lpns FOR
2523: SELECT DISTINCT a.license_plate_number
2524: , a.outermost_lpn_id
2569: , p_to_organization_id IN NUMBER
2570: , p_transaction_type_id IN NUMBER
2571: , p_wms_installed IN VARCHAR2
2572: ) IS
2573: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2574: BEGIN
2575: OPEN x_lpns FOR
2576: SELECT DISTINCT a.license_plate_number
2577: , a.outermost_lpn_id
2629: WHERE parent_lpn_id IN (SELECT lpn_id
2630: FROM wms_license_plate_numbers
2631: WHERE outermost_lpn_id = p_lpn_id)
2632: AND inventory_item_id IS NOT NULL;
2633: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2634: BEGIN
2635: x_return := 'Y';
2636:
2637: IF (p_orgid IS NOT NULL AND p_transaction_type_id = 3 ) THEN
2760: l_lpn_rsvd NUMBER;
2761: l_debug NUMBER;
2762: l_procedure_name VARCHAR2(30);
2763: BEGIN
2764: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2765: l_procedure_name := 'GET_VALID_LPN_TOSUBS';
2766:
2767: IF p_transaction_action_id IN (3, 21) THEN
2768: l_org := p_to_organization_id;
2840: WHERE parent_lpn_id IN (SELECT lpn_id
2841: FROM wms_license_plate_numbers
2842: WHERE outermost_lpn_id = p_lpn_id)
2843: AND inventory_item_id IS NOT NULL;
2844: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2845: BEGIN
2846: /*
2847: SELECT DISTINCT content_type INTO l_content_type
2848: FROM wms_lpn_contents
2869: FROM mtl_system_items
2870: WHERE inventory_item_id = l_item_id
2871: AND organization_id = p_orgid;
2872:
2873: fnd_profile.get('INV:EXPENSE_TO_ASSET_TRANSFER', l_expense_to_asset);
2874:
2875: IF (NVL(l_expense_to_asset, '2') = '1') THEN
2876: IF l_restrict_subinventories_code = 1 THEN
2877: SELECT COUNT(*)
2975: WHERE parent_lpn_id IN (SELECT lpn_id
2976: FROM wms_license_plate_numbers
2977: WHERE outermost_lpn_id = p_lpn_id)
2978: AND inventory_item_id IS NOT NULL;
2979: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2980: BEGIN
2981: 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
2982: OPEN l_item_cursor;
2983: l_lpn_content := 0;
3027: RETURN x_return;
3028: END vaildate_lpn_toloc;
3029:
3030: 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
3031: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3032: BEGIN
3033: OPEN x_locators FOR
3034: SELECT inventory_location_id
3035: --, concatenated_segments--Bug4398337:Commented this line and added below line
3049: pack_loc_check VARCHAR2(1) := 'U';
3050: unpack_sub_check VARCHAR2(1) := 'U';
3051: unpack_loc_check VARCHAR2(1) := 'U';
3052: oth_val VARCHAR2(1) := 'U';
3053: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3054: BEGIN
3055: BEGIN
3056: SELECT 'Y'
3057: INTO oth_val
3145: WHERE current_organization_id = p_orgid
3146: AND lpn_id IN (SELECT lpn_id
3147: FROM wms_license_plate_numbers
3148: WHERE outermost_lpn_id = p_lpn_id);
3149: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3150: BEGIN
3151: OPEN l_cursor;
3152:
3153: LOOP
3193: , p_revision IN VARCHAR2
3194: ) IS
3195: l_debug NUMBER;
3196: BEGIN
3197: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3198: -- Include only those subinventories which are in the current org
3199: -- and include material with the item number entered
3200: OPEN x_cgupdate_sub_lov FOR
3201: SELECT DISTINCT moq.subinventory_code
3244: * Use the function INV_PROJECT.get_locsegs() to retrieve the
3245: * concatenated segments.
3246: */
3247: 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
3248: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3249: BEGIN
3250: OPEN x_locators FOR
3251: SELECT moq.locator_id
3252: --, mil.concatenated_segments--Bug4398337:Commented this line and added below line
3282: p_inventory_item_id IN NUMBER,
3283: p_revision IN VARCHAR2,
3284: p_alias IN VARCHAR2
3285: ) IS
3286: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3287: BEGIN
3288: IF p_alias IS NULL THEN
3289: get_cgupdate_locs(
3290: x_locators => x_locators
3330: , p_subinventory_code IN VARCHAR2
3331: ) IS
3332: l_debug NUMBER;
3333: BEGIN
3334: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3335: --bug#3440453 Remove the NVL on organization_id if user passes it.
3336: IF p_organization_id IS NULL THEN
3337: OPEN x_zones FOR
3338: SELECT secondary_inventory_name
3381:
3382: END get_with_all_subs;
3383:
3384: 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
3385: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3386: BEGIN
3387: OPEN x_locators FOR
3388: SELECT milv.inventory_location_id
3389: --, milv.concatenated_segments --Bug4398337:Commented this line and added below line
3415: , p_organization_id IN NUMBER
3416: , p_subinventory_code IN VARCHAR2
3417: , p_concatenated_segments IN VARCHAR2
3418: , p_alias IN VARCHAR2) IS
3419: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3420: BEGIN
3421: IF (l_debug = 1) THEN
3422: DEBUG('Alias is '||p_alias);
3423: END IF;
3467: l_project_id NUMBER;
3468: l_task_id NUMBER;
3469: l_picking_order NUMBER;
3470: l_return_value BOOLEAN := FALSE;
3471: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3472: BEGIN
3473: x_result := fnd_api.g_ret_sts_success;
3474:
3475: --
3582: , p_wms_installed IN VARCHAR2
3583: ) IS
3584: l_debug NUMBER;
3585: BEGIN
3586: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3587: --bug#3440453 Remove the NVL on organization_id if user passes a value to it.
3588: IF p_organization_id IS NULL THEN
3589: OPEN x_zones FOR
3590: SELECT secondary_inventory_name
3638: x_return_status VARCHAR2(100);
3639: x_display VARCHAR2(100);
3640: x_project_col NUMBER;
3641: x_task_col NUMBER;
3642: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3643: l_ispjm_org VARCHAR2(1);
3644: l_sub_type NUMBER;
3645: BEGIN
3646:
3802: x_return_status VARCHAR2(100);
3803: x_display VARCHAR2(100);
3804: x_project_col NUMBER;
3805: x_task_col NUMBER;
3806: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3807: l_ispjm_org VARCHAR2(1);
3808: l_sub_type NUMBER;
3809: BEGIN
3810:
3987: , p_alias IN VARCHAR2
3988: ) IS
3989: l_org NUMBER;
3990: l_restrict_locators_code NUMBER;
3991: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3992: BEGIN
3993:
3994: IF p_alias IS NULL THEN
3995: get_valid_prj_to_locs(
4051: , p_task_id IN NUMBER
4052: ) IS
4053: l_org NUMBER;
4054: l_restrict_locators_code NUMBER;
4055: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4056: BEGIN
4057: IF p_transaction_action_id IN (3, 21) THEN
4058: l_org := p_to_organization_id;
4059:
4093: , p_wms_installed IN VARCHAR2
4094: , p_project_id IN NUMBER
4095: , p_task_id IN NUMBER
4096: ) IS
4097: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4098: BEGIN
4099: /*Bug 2769628: Restricted the LOV to list only common locators and anot logical locators*/
4100: OPEN x_locators FOR
4101: SELECT inventory_location_id
4121: , p_project_id IN NUMBER
4122: , p_task_id IN NUMBER
4123: , p_alias IN VARCHAR2
4124: ) IS
4125: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4126: BEGIN
4127:
4128: IF p_alias IS NULL THEN
4129: get_prj_lpnloc_lov(
4167: , p_rcv_sub_only IN NUMBER
4168: ) IS
4169: l_debug NUMBER;
4170: BEGIN
4171: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4172: IF (l_debug = 1) THEN
4173: DEBUG('Entering get_userput_subs:');
4174: DEBUG(' p_rcv_sub_only ====> ' || p_rcv_sub_only);
4175: END IF;
4421: FROM mtl_txn_request_lines
4422: WHERE organization_id = p_organization_id
4423: AND lpn_id = p_lpn_id;
4424:
4425: l_debug NUMBER := nvl(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4426: BEGIN
4427: -- Initialize the return variable
4428: x_return := 'Y';
4429: -- Loop through each item packed within the LPN
4503: p_task_id IN NUMBER ,
4504: p_lpn_id IN NUMBER ,
4505: p_alias IN VARCHAR2
4506: ) IS
4507: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4508: BEGIN
4509: /*Bug 2769628:To list all the common locators and not the logical locators*/
4510: IF p_alias IS NULL THEN
4511: get_userput_locs(
4545: p_project_id IN NUMBER ,
4546: p_task_id IN NUMBER ,
4547: p_lpn_id IN NUMBER
4548: ) IS
4549: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4550: BEGIN
4551: /*Bug 2769628:To list all the common locators and not the logical locators*/
4552: OPEN x_locators FOR
4553: SELECT inventory_location_id
4595: SELECT inventory_item_id, transaction_type_id
4596: FROM mtl_txn_request_lines
4597: WHERE organization_id = p_organization_id
4598: AND lpn_id = p_lpn_id;
4599: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4600: l_sub_type NUMBER;
4601: BEGIN
4602: -- Initialize the return variable
4603: x_return := 'Y';
4706: , p_task_id IN NUMBER
4707: , p_alias IN VARCHAR2
4708: ) IS
4709:
4710: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4711: l_ispjm_org VARCHAR2(1);
4712: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
4713: BEGIN
4714:
4852: , p_wms_installed IN VARCHAR2
4853: , p_project_id IN NUMBER
4854: , p_task_id IN NUMBER) IS
4855:
4856: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4857: l_ispjm_org VARCHAR2(1);
4858: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
4859: BEGIN
4860: BEGIN
4984: , p_wms_installed IN VARCHAR2
4985: , p_project_id IN NUMBER
4986: , p_task_id IN NUMBER) IS
4987:
4988: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4989: l_ispjm_org VARCHAR2(1);
4990: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
4991: BEGIN
4992: BEGIN
5127: , p_wms_installed IN VARCHAR2
5128: , p_project_id IN NUMBER
5129: , p_task_id IN NUMBER) IS
5130:
5131: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5132: l_ispjm_org VARCHAR2(1);
5133: BEGIN
5134: BEGIN
5135: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
5277: , p_wms_installed IN VARCHAR2
5278: , p_project_id IN NUMBER
5279: , p_task_id IN NUMBER) IS
5280:
5281: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5282: l_ispjm_org VARCHAR2(1);
5283: /*Bug 2902336:Modfied the select clauses for performance enhancements*/
5284: BEGIN
5285: BEGIN
6246: , p_subinventory_code IN VARCHAR2
6247: , p_inventory_location_type IN NUMBER
6248: , p_concatenated_segments IN VARCHAR2
6249: ) IS
6250: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6251: l_ispjm_org VARCHAR2(1);
6252: BEGIN
6253: BEGIN
6254: SELECT nvl(PROJECT_REFERENCE_ENABLED,'N')
6295: , p_inventory_location_type IN NUMBER
6296: , p_concatenated_segments IN VARCHAR2
6297: , p_alias IN VARCHAR2
6298: ) IS
6299: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6300: l_ispjm_org VARCHAR2(1);
6301: BEGIN
6302:
6303: IF p_alias IS NULL THEN