DBA Data[Home] [Help]

APPS.WSH_DELIVERY_DETAILS_INV dependencies on INV_VALIDATE

Line 4: g_org INV_VALIDATE.Org;

1: PACKAGE BODY WSH_DELIVERY_DETAILS_INV as
2: /* $Header: WSHDDICB.pls 120.10 2008/01/14 14:54:52 skanduku ship $ */
3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;

Line 5: g_item INV_VALIDATE.Item;

1: PACKAGE BODY WSH_DELIVERY_DETAILS_INV as
2: /* $Header: WSHDDICB.pls 120.10 2008/01/14 14:54:52 skanduku ship $ */
3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;

Line 6: g_sub INV_VALIDATE.Sub;

2: /* $Header: WSHDDICB.pls 120.10 2008/01/14 14:54:52 skanduku ship $ */
3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;
10: g_to_sub INV_VALIDATE.Sub;

Line 7: g_loc INV_VALIDATE.Locator;

3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;
10: g_to_sub INV_VALIDATE.Sub;
11:

Line 8: g_lot INV_VALIDATE.Lot;

4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;
10: g_to_sub INV_VALIDATE.Sub;
11:
12:

Line 9: g_serial INV_VALIDATE.Serial;

5: g_item INV_VALIDATE.Item;
6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;
10: g_to_sub INV_VALIDATE.Sub;
11:
12:
13: -- bug 5264874

Line 10: g_to_sub INV_VALIDATE.Sub;

6: g_sub INV_VALIDATE.Sub;
7: g_loc INV_VALIDATE.Locator;
8: g_lot INV_VALIDATE.Lot;
9: g_serial INV_VALIDATE.Serial;
10: g_to_sub INV_VALIDATE.Sub;
11:
12:
13: -- bug 5264874
14:

Line 72: ** This is a copy of function INV_VALIDATE.inventory_item in INVVSVATB.pls

68: -- bug 5264874 end
69: /*
70: ** bug 1583800: enable support for nontransactable items
71: ** Internal procedure: Inventory_Item
72: ** This is a copy of function INV_VALIDATE.inventory_item in INVVSVATB.pls
73: ** The code has been modified not to check MTL_TRANSACTIONS_ENABLED_FLAG
74: ** and to qualify the package INV_VALIDATE constants T and F.
75: ** The code is simplified, as we set only p_item.inventory_item_id.
76: **/

Line 74: ** and to qualify the package INV_VALIDATE constants T and F.

70: ** bug 1583800: enable support for nontransactable items
71: ** Internal procedure: Inventory_Item
72: ** This is a copy of function INV_VALIDATE.inventory_item in INVVSVATB.pls
73: ** The code has been modified not to check MTL_TRANSACTIONS_ENABLED_FLAG
74: ** and to qualify the package INV_VALIDATE constants T and F.
75: ** The code is simplified, as we set only p_item.inventory_item_id.
76: **/
77: --
78: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_INV';

Line 163: FUNCTION Inventory_Item (p_item IN OUT nocopy INV_VALIDATE.item,

159:
160: END get_item_table_index;
161: --
162:
163: FUNCTION Inventory_Item (p_item IN OUT nocopy INV_VALIDATE.item,
164: p_org IN INV_VALIDATE.org)
165: RETURN NUMBER
166: IS
167: l_appl_short_name VARCHAR2(3) := 'INV';

Line 164: p_org IN INV_VALIDATE.org)

160: END get_item_table_index;
161: --
162:
163: FUNCTION Inventory_Item (p_item IN OUT nocopy INV_VALIDATE.item,
164: p_org IN INV_VALIDATE.org)
165: RETURN NUMBER
166: IS
167: l_appl_short_name VARCHAR2(3) := 'INV';
168: l_key_flex_code VARCHAR2(4) := 'MSTK';

Line 173: l_validation_mode VARCHAR2(25) := INV_VALIDATE.EXISTS_ONLY;

169: l_structure_number NUMBER := 101;
170: l_conc_segments VARCHAR2(2000);
171: l_keystat_val BOOLEAN;
172: l_id NUMBER;
173: l_validation_mode VARCHAR2(25) := INV_VALIDATE.EXISTS_ONLY;
174:
175: --
176: l_debug_on BOOLEAN;
177: --

Line 210: RETURN INV_VALIDATE.T;

206: IF l_debug_on THEN
207: WSH_DEBUG_SV.pop(l_module_name);
208: END IF;
209: --
210: RETURN INV_VALIDATE.T;
211:
212: EXCEPTION
213:
214: WHEN NO_DATA_FOUND THEN

Line 232: RETURN INV_VALIDATE.F;

228: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
229: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
230: END IF;
231: --
232: RETURN INV_VALIDATE.F;
233:
234: WHEN OTHERS THEN
235:
236: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 2393: l_locator INV_VALIDATE.Locator;

2389: p_object_type IN VARCHAR2 DEFAULT NULL,
2390: x_return_status OUT NOCOPY VARCHAR2,
2391: x_result OUT NOCOPY BOOLEAN) IS
2392:
2393: l_locator INV_VALIDATE.Locator;
2394: l_result NUMBER;
2395:
2396: --
2397: l_debug_on BOOLEAN;

Line 2431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

2427: --
2428: -- Debug Statements
2429: --
2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2432: END IF;
2433: --
2434: l_result := INV_VALIDATE.organization(g_org);
2435: IF (l_result <> INV_VALIDATE.T) THEN

Line 2434: l_result := INV_VALIDATE.organization(g_org);

2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2432: END IF;
2433: --
2434: l_result := INV_VALIDATE.organization(g_org);
2435: IF (l_result <> INV_VALIDATE.T) THEN
2436: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2437: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2438: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

Line 2435: IF (l_result <> INV_VALIDATE.T) THEN

2431: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2432: END IF;
2433: --
2434: l_result := INV_VALIDATE.organization(g_org);
2435: IF (l_result <> INV_VALIDATE.T) THEN
2436: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2437: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2438: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2439: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2452: IF (l_result <> INV_VALIDATE.T) THEN

2448: --
2449: l_result := wsh_delivery_details_inv.inventory_item(
2450: p_item => g_item,
2451: p_org => g_org);
2452: IF (l_result <> INV_VALIDATE.T) THEN
2453: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2454: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2455: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2456: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

2460: --
2461: -- Debug Statements
2462: --
2463: IF l_debug_on THEN
2464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2465: END IF;
2466: --
2467: l_result := INV_VALIDATE.From_subinventory(
2468: p_sub => g_sub,

Line 2467: l_result := INV_VALIDATE.From_subinventory(

2463: IF l_debug_on THEN
2464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2465: END IF;
2466: --
2467: l_result := INV_VALIDATE.From_subinventory(
2468: p_sub => g_sub,
2469: p_item => g_item,
2470: p_org => g_org,
2471: p_trx_type_id => p_transaction_type_id,

Line 2474: IF (l_result <> INV_VALIDATE.T) THEN

2470: p_org => g_org,
2471: p_trx_type_id => p_transaction_type_id,
2472: p_object_type => p_object_type ,
2473: p_acct_txn => 0);
2474: IF (l_result <> INV_VALIDATE.T) THEN
2475: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2476: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Subinventory');
2477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2478: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);

2482: --
2483: -- Debug Statements
2484: --
2485: IF l_debug_on THEN
2486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2487: END IF;
2488: --
2489: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2490: l_result := INV_VALIDATE.ValidateLocator(

Line 2490: l_result := INV_VALIDATE.ValidateLocator(

2486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2487: END IF;
2488: --
2489: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2490: l_result := INV_VALIDATE.ValidateLocator(
2491: p_locator => l_locator,
2492: p_org => g_org,
2493: p_sub => g_sub,
2494: p_item => g_item,

Line 2498: l_result := INV_VALIDATE.ValidateLocator(

2494: p_item => g_item,
2495: p_trx_type_id => p_transaction_type_id,
2496: p_object_type => p_object_type);
2497: ELSE
2498: l_result := INV_VALIDATE.ValidateLocator(
2499: p_locator => l_locator,
2500: p_org => g_org,
2501: p_sub => g_sub,
2502: p_item => g_item);

Line 2504: IF (l_result = INV_VALIDATE.T) THEN

2500: p_org => g_org,
2501: p_sub => g_sub,
2502: p_item => g_item);
2503: END IF;
2504: IF (l_result = INV_VALIDATE.T) THEN
2505: x_result := TRUE;
2506: ELSE
2507: x_result := FALSE;
2508: END IF;

Line 2521: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');

2517: EXCEPTION
2518:
2519: WHEN others THEN
2520: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2521: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2522:
2523: --
2524: -- Debug Statements
2525: --

Line 2589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

2585: --
2586: -- Debug Statements
2587: --
2588: IF l_debug_on THEN
2589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2590: END IF;
2591: --
2592: l_result := INV_VALIDATE.organization(g_org);
2593: IF (l_result <> INV_VALIDATE.T) THEN

Line 2592: l_result := INV_VALIDATE.organization(g_org);

2588: IF l_debug_on THEN
2589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2590: END IF;
2591: --
2592: l_result := INV_VALIDATE.organization(g_org);
2593: IF (l_result <> INV_VALIDATE.T) THEN
2594: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2595: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

Line 2593: IF (l_result <> INV_VALIDATE.T) THEN

2589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2590: END IF;
2591: --
2592: l_result := INV_VALIDATE.organization(g_org);
2593: IF (l_result <> INV_VALIDATE.T) THEN
2594: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2595: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2597: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2610: IF (l_result <> INV_VALIDATE.T) THEN

2606: --
2607: l_result := wsh_delivery_details_inv.inventory_item(
2608: p_item => g_item,
2609: p_org => g_org);
2610: IF (l_result <> INV_VALIDATE.T) THEN
2611: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2612: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2614: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2621: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.REVISION',WSH_DEBUG_SV.C_PROC_LEVEL);

2617: --
2618: -- Debug Statements
2619: --
2620: IF l_debug_on THEN
2621: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.REVISION',WSH_DEBUG_SV.C_PROC_LEVEL);
2622: END IF;
2623: --
2624: l_result := INV_VALIDATE.Revision(
2625: p_revision => p_revision,

Line 2624: l_result := INV_VALIDATE.Revision(

2620: IF l_debug_on THEN
2621: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.REVISION',WSH_DEBUG_SV.C_PROC_LEVEL);
2622: END IF;
2623: --
2624: l_result := INV_VALIDATE.Revision(
2625: p_revision => p_revision,
2626: p_org => g_org,
2627: p_item => g_item);
2628:

Line 2629: IF (l_result = INV_VALIDATE.T) THEN

2625: p_revision => p_revision,
2626: p_org => g_org,
2627: p_item => g_item);
2628:
2629: IF (l_result = INV_VALIDATE.T) THEN
2630: x_result := TRUE;
2631: ELSE
2632: x_result := FALSE;
2633: END IF;

Line 2646: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');

2642: --
2643: EXCEPTION
2644: WHEN others THEN
2645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2646: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2647:
2648: --
2649: -- Debug Statements
2650: --

Line 2727: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

2723: --
2724: -- Debug Statements
2725: --
2726: IF l_debug_on THEN
2727: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2728: END IF;
2729: --
2730: l_result := INV_VALIDATE.organization(g_org);
2731: IF (l_result <> INV_VALIDATE.T) THEN

Line 2730: l_result := INV_VALIDATE.organization(g_org);

2726: IF l_debug_on THEN
2727: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2728: END IF;
2729: --
2730: l_result := INV_VALIDATE.organization(g_org);
2731: IF (l_result <> INV_VALIDATE.T) THEN
2732: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2733: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2734: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

Line 2731: IF (l_result <> INV_VALIDATE.T) THEN

2727: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2728: END IF;
2729: --
2730: l_result := INV_VALIDATE.organization(g_org);
2731: IF (l_result <> INV_VALIDATE.T) THEN
2732: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2733: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2734: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2735: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2748: IF (l_result <> INV_VALIDATE.T) THEN

2744: --
2745: l_result := wsh_delivery_details_inv.inventory_item(
2746: p_item => g_item,
2747: p_org => g_org);
2748: IF (l_result <> INV_VALIDATE.T) THEN
2749: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2750: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2752: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

2758: --
2759: -- Debug Statements
2760: --
2761: IF l_debug_on THEN
2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2763: END IF;
2764: --
2765: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2766: l_result := INV_VALIDATE.from_subinventory(

Line 2766: l_result := INV_VALIDATE.from_subinventory(

2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2763: END IF;
2764: --
2765: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2766: l_result := INV_VALIDATE.from_subinventory(
2767: p_sub => g_sub,
2768: p_org => g_org,
2769: p_item => g_item,
2770: p_trx_type_id => p_transaction_type_id,

Line 2774: l_result := INV_VALIDATE.from_subinventory(

2770: p_trx_type_id => p_transaction_type_id,
2771: p_object_type => p_object_type,
2772: p_acct_txn => 0);
2773: ELSE
2774: l_result := INV_VALIDATE.from_subinventory(
2775: p_sub => g_sub,
2776: p_org => g_org,
2777: p_item => g_item,
2778: p_acct_txn => 0);

Line 2780: IF (l_result = INV_VALIDATE.T) THEN

2776: p_org => g_org,
2777: p_item => g_item,
2778: p_acct_txn => 0);
2779: END IF;
2780: IF (l_result = INV_VALIDATE.T) THEN
2781: x_result := TRUE;
2782: ELSE
2783: x_result := FALSE;
2784: END IF;

Line 2794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.TO_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

2790: --
2791: -- Debug Statements
2792: --
2793: IF l_debug_on THEN
2794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.TO_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2795: END IF;
2796: --
2797: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2798: l_result := INV_VALIDATE.to_subinventory(

Line 2798: l_result := INV_VALIDATE.to_subinventory(

2794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.TO_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2795: END IF;
2796: --
2797: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2798: l_result := INV_VALIDATE.to_subinventory(
2799: p_sub => g_to_sub,
2800: p_org => g_org,
2801: p_item => g_item,
2802: p_from_sub => g_sub,

Line 2807: l_result := INV_VALIDATE.to_subinventory(

2803: p_trx_type_id => p_transaction_type_id,
2804: p_object_type => p_object_type,
2805: p_acct_txn => 0);
2806: ELSE
2807: l_result := INV_VALIDATE.to_subinventory(
2808: p_sub => g_to_sub,
2809: p_org => g_org,
2810: p_item => g_item,
2811: p_from_sub => g_sub,

Line 2815: IF (l_result = INV_VALIDATE.T) THEN

2811: p_from_sub => g_sub,
2812: p_acct_txn => 0);
2813: END IF;
2814:
2815: IF (l_result = INV_VALIDATE.T) THEN
2816: x_result := TRUE;
2817: ELSE
2818: x_result := FALSE;
2819: END IF;

Line 2836: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');

2832: EXCEPTION
2833:
2834: WHEN others THEN
2835: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2836: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
2837:
2838: --
2839: -- Debug Statements
2840: --

Line 2924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

2920: --
2921: -- Debug Statements
2922: --
2923: IF l_debug_on THEN
2924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2925: END IF;
2926: --
2927: l_result := INV_VALIDATE.organization(g_org);
2928: IF (l_result <> INV_VALIDATE.T) THEN

Line 2927: l_result := INV_VALIDATE.organization(g_org);

2923: IF l_debug_on THEN
2924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2925: END IF;
2926: --
2927: l_result := INV_VALIDATE.organization(g_org);
2928: IF (l_result <> INV_VALIDATE.T) THEN
2929: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2930: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2931: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

Line 2928: IF (l_result <> INV_VALIDATE.T) THEN

2924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2925: END IF;
2926: --
2927: l_result := INV_VALIDATE.organization(g_org);
2928: IF (l_result <> INV_VALIDATE.T) THEN
2929: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2930: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2931: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2932: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2946: IF (l_result <> INV_VALIDATE.T) THEN

2942: --
2943: l_result := wsh_delivery_details_inv.inventory_item(
2944: p_item => g_item,
2945: p_org => g_org);
2946: IF (l_result <> INV_VALIDATE.T) THEN
2947: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2948: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2949: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2950: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2958: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

2954: --
2955: -- Debug Statements
2956: --
2957: IF l_debug_on THEN
2958: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2959: END IF;
2960: --
2961: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2962: l_result := INV_VALIDATE.From_Subinventory(

Line 2962: l_result := INV_VALIDATE.From_Subinventory(

2958: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2959: END IF;
2960: --
2961: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2962: l_result := INV_VALIDATE.From_Subinventory(
2963: p_org => g_org,
2964: p_sub => g_sub,
2965: p_item => g_item,
2966: p_trx_type_id => p_transaction_type_id,

Line 2970: l_result := INV_VALIDATE.From_Subinventory(

2966: p_trx_type_id => p_transaction_type_id,
2967: p_object_type => p_object_type,
2968: p_acct_txn => 1);
2969: ELSE
2970: l_result := INV_VALIDATE.From_Subinventory(
2971: p_org => g_org,
2972: p_sub => g_sub,
2973: p_item => g_item,
2974: p_acct_txn => 1);

Line 2976: IF (l_result <> INV_VALIDATE.T) THEN

2972: p_sub => g_sub,
2973: p_item => g_item,
2974: p_acct_txn => 1);
2975: END IF;
2976: IF (l_result <> INV_VALIDATE.T) THEN
2977: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2978: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
2979: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2980: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 2997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);

2993: --
2994: -- Debug Statements
2995: --
2996: IF l_debug_on THEN
2997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2998: END IF;
2999: --
3000: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3001: l_result := INV_VALIDATE.validateLocator(

Line 3001: l_result := INV_VALIDATE.validateLocator(

2997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2998: END IF;
2999: --
3000: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3001: l_result := INV_VALIDATE.validateLocator(
3002: p_locator => g_loc,
3003: p_org => g_org,
3004: p_sub => g_sub,
3005: p_trx_type_id => p_transaction_type_id,

Line 3009: l_result := INV_VALIDATE.validateLocator(

3005: p_trx_type_id => p_transaction_type_id,
3006: p_object_type => p_object_type,
3007: p_item => g_item);
3008: ELSE
3009: l_result := INV_VALIDATE.validateLocator(
3010: p_locator => g_loc,
3011: p_org => g_org,
3012: p_sub => g_sub,
3013: p_item => g_item);

Line 3015: IF (l_result = INV_VALIDATE.F) THEN

3011: p_org => g_org,
3012: p_sub => g_sub,
3013: p_item => g_item);
3014: END IF;
3015: IF (l_result = INV_VALIDATE.F) THEN
3016: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3017: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3018: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3019: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3035: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);

3031: --
3032: -- Debug Statements
3033: --
3034: IF l_debug_on THEN
3035: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3036: END IF;
3037: --
3038: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3039: l_result := INV_VALIDATE.lot_number(

Line 3039: l_result := INV_VALIDATE.lot_number(

3035: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3036: END IF;
3037: --
3038: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3039: l_result := INV_VALIDATE.lot_number(
3040: p_lot => g_lot,
3041: p_org => g_org,
3042: p_item => g_item,
3043: p_from_sub => g_sub,

Line 3049: l_result := INV_VALIDATE.lot_number(

3045: p_trx_type_id => p_transaction_type_id,
3046: p_object_type => p_object_type,
3047: p_revision => p_revision);
3048: ELSE
3049: l_result := INV_VALIDATE.lot_number(
3050: p_lot => g_lot,
3051: p_org => g_org,
3052: p_item => g_item,
3053: p_from_sub => g_sub,

Line 3058: IF (l_result = INV_VALIDATE.T) THEN

3054: p_loc => g_loc,
3055: p_revision => p_revision);
3056: END IF;
3057:
3058: IF (l_result = INV_VALIDATE.T) THEN
3059: x_result := TRUE;
3060: ELSE
3061: x_result := FALSE;
3062: END IF;

Line 3075: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');

3071: --
3072: EXCEPTION
3073: WHEN others THEN
3074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3075: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3076:
3077: --
3078: -- Debug Statements
3079: --

Line 3159: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

3155: --
3156: -- Debug Statements
3157: --
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3160: END IF;
3161: --
3162: l_result := INV_VALIDATE.organization(g_org);
3163: IF (l_result <> INV_VALIDATE.T) THEN

Line 3162: l_result := INV_VALIDATE.organization(g_org);

3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3160: END IF;
3161: --
3162: l_result := INV_VALIDATE.organization(g_org);
3163: IF (l_result <> INV_VALIDATE.T) THEN
3164: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3165: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

Line 3163: IF (l_result <> INV_VALIDATE.T) THEN

3159: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3160: END IF;
3161: --
3162: l_result := INV_VALIDATE.organization(g_org);
3163: IF (l_result <> INV_VALIDATE.T) THEN
3164: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3165: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3167: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3188: IF (l_result <> INV_VALIDATE.T) THEN

3184: --
3185: l_result := wsh_delivery_details_inv.inventory_item(
3186: p_item => g_item,
3187: p_org => g_org);
3188: IF (l_result <> INV_VALIDATE.T) THEN
3189: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3190: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
3191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3192: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

3204: --
3205: -- Debug Statements
3206: --
3207: IF l_debug_on THEN
3208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3209: END IF;
3210: --
3211: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3212: l_result := INV_VALIDATE.From_Subinventory(

Line 3212: l_result := INV_VALIDATE.From_Subinventory(

3208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3209: END IF;
3210: --
3211: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3212: l_result := INV_VALIDATE.From_Subinventory(
3213: p_org => g_org,
3214: p_sub => g_sub,
3215: p_item => g_item,
3216: p_trx_type_id => p_transaction_type_id,

Line 3220: l_result := INV_VALIDATE.From_Subinventory(

3216: p_trx_type_id => p_transaction_type_id,
3217: p_object_type => p_object_type,
3218: p_acct_txn => 1);
3219: ELSE
3220: l_result := INV_VALIDATE.From_Subinventory(
3221: p_org => g_org,
3222: p_sub => g_sub,
3223: p_item => g_item,
3224: p_acct_txn => 1);

Line 3226: IF (l_result <> INV_VALIDATE.T) THEN

3222: p_sub => g_sub,
3223: p_item => g_item,
3224: p_acct_txn => 1);
3225: END IF;
3226: IF (l_result <> INV_VALIDATE.T) THEN
3227: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3228: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3230: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);

3245: --
3246: -- Debug Statements
3247: --
3248: IF l_debug_on THEN
3249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3250: END IF;
3251: --
3252: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3253: l_result := INV_VALIDATE.validateLocator(

Line 3253: l_result := INV_VALIDATE.validateLocator(

3249: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3250: END IF;
3251: --
3252: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3253: l_result := INV_VALIDATE.validateLocator(
3254: p_locator => g_loc,
3255: p_org => g_org,
3256: p_sub => g_sub,
3257: p_trx_type_id => p_transaction_type_id,

Line 3261: l_result := INV_VALIDATE.validateLocator(

3257: p_trx_type_id => p_transaction_type_id,
3258: p_object_type => p_object_type,
3259: p_item => g_item);
3260: ELSE
3261: l_result := INV_VALIDATE.validateLocator(
3262: p_locator => g_loc,
3263: p_org => g_org,
3264: p_sub => g_sub,
3265: p_item => g_item);

Line 3267: IF (l_result = INV_VALIDATE.F) THEN

3263: p_org => g_org,
3264: p_sub => g_sub,
3265: p_item => g_item);
3266: END IF;
3267: IF (l_result = INV_VALIDATE.F) THEN
3268: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3269: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3271: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3289: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);

3285: --
3286: -- Debug Statements
3287: --
3288: IF l_debug_on THEN
3289: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3290: END IF;
3291: --
3292: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3293: l_result := INV_VALIDATE.Lot_Number(

Line 3293: l_result := INV_VALIDATE.Lot_Number(

3289: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3290: END IF;
3291: --
3292: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3293: l_result := INV_VALIDATE.Lot_Number(
3294: p_lot => g_lot,
3295: p_org => g_org,
3296: p_item => g_item,
3297: p_from_sub => g_sub,

Line 3303: l_result := INV_VALIDATE.Lot_Number(

3299: p_object_type => p_object_type,
3300: p_loc => g_loc,
3301: p_revision => p_revision);
3302: ELSE
3303: l_result := INV_VALIDATE.Lot_Number(
3304: p_lot => g_lot,
3305: p_org => g_org,
3306: p_item => g_item,
3307: p_from_sub => g_sub,

Line 3311: IF (l_result <> INV_VALIDATE.T) THEN

3307: p_from_sub => g_sub,
3308: p_loc => g_loc,
3309: p_revision => p_revision);
3310: END IF;
3311: IF (l_result <> INV_VALIDATE.T) THEN
3312: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3313: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3314: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3315: WSH_UTIL_CORE.Add_Message(x_return_status);

Line 3332: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);

3328: --
3329: -- Debug Statements
3330: --
3331: IF l_debug_on THEN
3332: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3333: END IF;
3334: --
3335: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3336: l_result := INV_VALIDATE.Validate_serial(

Line 3336: l_result := INV_VALIDATE.Validate_serial(

3332: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3333: END IF;
3334: --
3335: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3336: l_result := INV_VALIDATE.Validate_serial(
3337: p_serial => g_serial,
3338: p_lot => g_lot,
3339: p_org => g_org,
3340: p_item => g_item,

Line 3347: l_result := INV_VALIDATE.Validate_serial(

3343: p_trx_type_id => p_transaction_type_id,
3344: p_object_type => p_object_type,
3345: p_revision => p_revision);
3346: ELSE
3347: l_result := INV_VALIDATE.Validate_serial(
3348: p_serial => g_serial,
3349: p_lot => g_lot,
3350: p_org => g_org,
3351: p_item => g_item,

Line 3357: IF (l_result = INV_VALIDATE.T) THEN

3353: p_loc => g_loc,
3354: p_revision => p_revision);
3355: END IF;
3356:
3357: IF (l_result = INV_VALIDATE.T) THEN
3358: x_result := TRUE;
3359: ELSE
3360: x_result := FALSE;
3361: END IF;

Line 3374: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');

3370: EXCEPTION
3371:
3372: WHEN others THEN
3373: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3374: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3375:
3376: --
3377: -- Debug Statements
3378: --

Line 4286: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;

4282: l_padded_length NUMBER;
4283: p_prefix VARCHAR(30);
4284: x_quantity NUMBER;
4285: x_errorcode NUMBER;
4286: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4287: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4288: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4289: --
4290: l_debug_on BOOLEAN;

Line 4287: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;

4283: p_prefix VARCHAR(30);
4284: x_quantity NUMBER;
4285: x_errorcode NUMBER;
4286: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4287: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4288: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4289: --
4290: l_debug_on BOOLEAN;
4291: --

Line 4288: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;

4284: x_quantity NUMBER;
4285: x_errorcode NUMBER;
4286: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4287: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4288: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4289: --
4290: l_debug_on BOOLEAN;
4291: --
4292: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_SERIAL_RANGE';

Line 4321: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);

4317: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4318: g_org.organization_id := p_organization_id;
4319:
4320: IF l_debug_on THEN
4321: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
4322: END IF;
4323:
4324: l_result := INV_VALIDATE.organization(g_org);
4325:

Line 4324: l_result := INV_VALIDATE.organization(g_org);

4320: IF l_debug_on THEN
4321: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
4322: END IF;
4323:
4324: l_result := INV_VALIDATE.organization(g_org);
4325:
4326: IF(l_debug_on) THEN
4327: wsh_debug_sv.log(l_module_name, 'Org Result', l_result);
4328: END IF;

Line 4330: IF (l_result <> INV_VALIDATE.T) THEN

4326: IF(l_debug_on) THEN
4327: wsh_debug_sv.log(l_module_name, 'Org Result', l_result);
4328: END IF;
4329:
4330: IF (l_result <> INV_VALIDATE.T) THEN
4331: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4332: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
4333: raise FND_API.G_EXC_ERROR;
4334: END IF;

Line 4348: IF (l_result <> INV_VALIDATE.T) THEN

4344: IF(l_debug_on) THEN
4345: wsh_debug_sv.log(l_module_name, 'Inv Item Result', l_result);
4346: END IF;
4347:
4348: IF (l_result <> INV_VALIDATE.T) THEN
4349: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4350: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
4351: raise FND_API.G_EXC_ERROR;
4352: END IF;

Line 4357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);

4353:
4354: g_sub.secondary_inventory_name := p_subinventory;
4355:
4356: IF l_debug_on THEN
4357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4358: END IF;
4359: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4360: l_result := INV_VALIDATE.From_Subinventory(
4361: p_org => g_org,

Line 4360: l_result := INV_VALIDATE.From_Subinventory(

4356: IF l_debug_on THEN
4357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4358: END IF;
4359: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4360: l_result := INV_VALIDATE.From_Subinventory(
4361: p_org => g_org,
4362: p_sub => g_sub,
4363: p_item => g_item,
4364: p_trx_type_id => p_transaction_type_id,

Line 4368: l_result := INV_VALIDATE.From_Subinventory(

4364: p_trx_type_id => p_transaction_type_id,
4365: p_object_type => p_object_type,
4366: p_acct_txn => 1);
4367: ELSE
4368: l_result := INV_VALIDATE.From_Subinventory(
4369: p_org => g_org,
4370: p_sub => g_sub,
4371: p_item => g_item,
4372: p_acct_txn => 1);

Line 4378: IF (l_result <> INV_VALIDATE.T) THEN

4374: IF(l_debug_on) THEN
4375: wsh_debug_sv.log(l_module_name, 'Subinv Result', l_result);
4376: END IF;
4377:
4378: IF (l_result <> INV_VALIDATE.T) THEN
4379: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4380: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
4381: raise FND_API.G_EXC_ERROR;
4382: END IF;

Line 4389: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);

4385: -- Need to check if locator is NULL cause inventory validation API will
4386: -- validate on flex field and return false when locator is NULL
4387: IF (p_locator_id IS NOT NULL) THEN
4388: IF l_debug_on THEN
4389: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4390: END IF;
4391: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4392: l_result := INV_VALIDATE.validateLocator(
4393: p_locator => g_loc,

Line 4392: l_result := INV_VALIDATE.validateLocator(

4388: IF l_debug_on THEN
4389: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4390: END IF;
4391: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4392: l_result := INV_VALIDATE.validateLocator(
4393: p_locator => g_loc,
4394: p_org => g_org,
4395: p_sub => g_sub,
4396: p_trx_type_id => p_transaction_type_id,

Line 4400: l_result := INV_VALIDATE.validateLocator(

4396: p_trx_type_id => p_transaction_type_id,
4397: p_object_type => p_object_type,
4398: p_item => g_item);
4399: ELSE
4400: l_result := INV_VALIDATE.validateLocator(
4401: p_locator => g_loc,
4402: p_org => g_org,
4403: p_sub => g_sub,
4404: p_item => g_item);

Line 4410: IF (l_result = INV_VALIDATE.F) THEN

4406: IF(l_debug_on) THEN
4407: wsh_debug_sv.log(l_module_name, 'Locator Result', l_result);
4408: END IF;
4409:
4410: IF (l_result = INV_VALIDATE.F) THEN
4411: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4412: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
4413: raise FND_API.G_EXC_ERROR;
4414: END IF;

Line 4420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);

4416:
4417: g_lot.lot_number := p_lot_number;
4418: IF (p_lot_number IS NOT NULL) THEN
4419: IF l_debug_on THEN
4420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
4421: END IF;
4422: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4423: l_result := INV_VALIDATE.Lot_Number(
4424: p_lot => g_lot,

Line 4423: l_result := INV_VALIDATE.Lot_Number(

4419: IF l_debug_on THEN
4420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
4421: END IF;
4422: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4423: l_result := INV_VALIDATE.Lot_Number(
4424: p_lot => g_lot,
4425: p_org => g_org,
4426: p_item => g_item,
4427: p_trx_type_id => p_transaction_type_id,

Line 4433: l_result := INV_VALIDATE.Lot_Number(

4429: p_from_sub => g_sub,
4430: p_loc => g_loc,
4431: p_revision => p_revision);
4432: ELSE
4433: l_result := INV_VALIDATE.Lot_Number(
4434: p_lot => g_lot,
4435: p_org => g_org,
4436: p_item => g_item,
4437: p_from_sub => g_sub,

Line 4445: IF (l_result <> INV_VALIDATE.T) THEN

4441: IF(l_debug_on) THEN
4442: wsh_debug_sv.log(l_module_name, 'Lot Number Result', l_result);
4443: END IF;
4444:
4445: IF (l_result <> INV_VALIDATE.T) THEN
4446: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4447: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Lot');--Material Status Impact
4448: raise FND_API.G_EXC_ERROR;
4449: END IF;

Line 4489: l_result := INV_VALIDATE.validate_serial_range(

4485:
4486: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4487: l_fm_serial(1) := p_from_serial_number;
4488: l_to_serial(1) := p_to_serial_number;
4489: l_result := INV_VALIDATE.validate_serial_range(
4490: p_fm_serial => l_fm_serial,
4491: p_to_serial => l_to_serial,
4492: p_org => g_org,
4493: p_item => g_item ,

Line 4501: IF (l_result = INV_VALIDATE.T) THEN

4497: p_revision => p_revision,
4498: p_trx_type_id => p_transaction_type_id,
4499: p_object_type => p_object_type,
4500: x_errored_serials => x_errored_serials);
4501: IF (l_result = INV_VALIDATE.T) THEN
4502: x_result := TRUE;
4503: ELSE
4504: x_result := FALSE;
4505: FOR i in 1..x_errored_serials.count LOOP

Line 4521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);

4517: l_padded_length := l_length - length(l_number_part);
4518: g_serial.serial_number := RPAD(nvl(x_Prefix,'0'), l_padded_length, '0') ||l_number_part;
4519:
4520: IF l_debug_on THEN
4521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
4522: END IF;
4523: l_result := INV_VALIDATE.Validate_serial(
4524: p_serial => g_serial,
4525: p_lot => g_lot,

Line 4523: l_result := INV_VALIDATE.Validate_serial(

4519:
4520: IF l_debug_on THEN
4521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
4522: END IF;
4523: l_result := INV_VALIDATE.Validate_serial(
4524: p_serial => g_serial,
4525: p_lot => g_lot,
4526: p_org => g_org,
4527: p_item => g_item,

Line 4536: IF (l_result = INV_VALIDATE.T) THEN

4532: IF l_debug_on THEN
4533: wsh_debug_sv.log(l_module_name, 'Serial Result', l_result);
4534: END IF;
4535:
4536: IF (l_result = INV_VALIDATE.T) THEN
4537: x_result := TRUE;
4538: ELSE
4539: x_result := FALSE;
4540: EXIT;

Line 4545: IF (l_result = INV_VALIDATE.T) THEN

4541: END IF;
4542: l_number_part := l_number_part + 1;
4543: l_counter := l_counter + 1;
4544: END LOOP;
4545: IF (l_result = INV_VALIDATE.T) THEN
4546: x_result := TRUE;
4547: ELSE
4548: x_result := FALSE;
4549: END IF;

Line 4566: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');

4562: END IF;
4563:
4564: WHEN others THEN
4565: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4566: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: END IF;