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.21.12020000.2 2012/07/04 10:11:40 suppal 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.21.12020000.2 2012/07/04 10:11:40 suppal 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.21.12020000.2 2012/07/04 10:11:40 suppal 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 60: TYPE Inv_Item_Cache_Tab_Typ IS TABLE OF INV_VALIDATE.ITEM INDEX BY BINARY_INTEGER;

56: TYPE Item_Cache_Tab_Typ IS TABLE OF c_item_info%ROWTYPE INDEX BY BINARY_INTEGER;
57: TYPE Param_Cache_Tab_Typ IS TABLE OF c_org_param_info%ROWTYPE INDEX BY VARCHAR2(60);
58: TYPE Sec_inv_Tab_Typ IS TABLE OF c_sec_inv_info%ROWTYPE INDEX BY VARCHAR2(60);
59: --bug 10233629: Caching Inventory Item record
60: TYPE Inv_Item_Cache_Tab_Typ IS TABLE OF INV_VALIDATE.ITEM INDEX BY BINARY_INTEGER;
61: -- HW OPMCONV New table to hold item information
62:
63: g_item_tab Item_Cache_Tab_Typ;
64: g_param_tab Param_Cache_Tab_Typ;

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

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

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

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

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

231: x_flag := l_flag;
232: END get_inv_item_table_index;
233: --
234:
235: FUNCTION Inventory_Item (p_item IN OUT nocopy INV_VALIDATE.item,
236: p_org IN INV_VALIDATE.org)
237: RETURN NUMBER
238: IS
239: l_appl_short_name VARCHAR2(3) := 'INV';

Line 236: p_org IN INV_VALIDATE.org)

232: END get_inv_item_table_index;
233: --
234:
235: FUNCTION Inventory_Item (p_item IN OUT nocopy INV_VALIDATE.item,
236: p_org IN INV_VALIDATE.org)
237: RETURN NUMBER
238: IS
239: l_appl_short_name VARCHAR2(3) := 'INV';
240: l_key_flex_code VARCHAR2(4) := 'MSTK';

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

241: l_structure_number NUMBER := 101;
242: l_conc_segments VARCHAR2(2000);
243: l_keystat_val BOOLEAN;
244: l_id NUMBER;
245: l_validation_mode VARCHAR2(25) := INV_VALIDATE.EXISTS_ONLY;
246: --bug 10233629: Caching Inventory Item record
247: l_index NUMBER;
248: l_flag VARCHAR2(1);
249: l_return_status VARCHAR2(1);

Line 309: RETURN INV_VALIDATE.T;

305: IF l_debug_on THEN
306: WSH_DEBUG_SV.pop(l_module_name);
307: END IF;
308: --
309: RETURN INV_VALIDATE.T;
310:
311: EXCEPTION
312:
313: WHEN NO_DATA_FOUND THEN

Line 331: RETURN INV_VALIDATE.F;

327: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
328: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
329: END IF;
330: --
331: RETURN INV_VALIDATE.F;
332:
333: WHEN OTHERS THEN
334:
335: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 2720: l_locator INV_VALIDATE.Locator;

2716: p_object_type IN VARCHAR2 DEFAULT NULL,
2717: x_return_status OUT NOCOPY VARCHAR2,
2718: x_result OUT NOCOPY BOOLEAN) IS
2719:
2720: l_locator INV_VALIDATE.Locator;
2721: l_result NUMBER;
2722:
2723: --
2724: l_debug_on BOOLEAN;

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

2754: --
2755: -- Debug Statements
2756: --
2757: IF l_debug_on THEN
2758: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2759: END IF;
2760: --
2761: l_result := INV_VALIDATE.organization(g_org);
2762: IF (l_result <> INV_VALIDATE.T) THEN

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

2757: IF l_debug_on THEN
2758: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2759: END IF;
2760: --
2761: l_result := INV_VALIDATE.organization(g_org);
2762: IF (l_result <> INV_VALIDATE.T) THEN
2763: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2764: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

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

2758: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2759: END IF;
2760: --
2761: l_result := INV_VALIDATE.organization(g_org);
2762: IF (l_result <> INV_VALIDATE.T) THEN
2763: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2764: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2765: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2766: WSH_UTIL_CORE.Add_Message(x_return_status);

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

2775: --
2776: l_result := wsh_delivery_details_inv.inventory_item(
2777: p_item => g_item,
2778: p_org => g_org);
2779: IF (l_result <> INV_VALIDATE.T) THEN
2780: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2781: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2782: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2783: WSH_UTIL_CORE.Add_Message(x_return_status);

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

2787: --
2788: -- Debug Statements
2789: --
2790: IF l_debug_on THEN
2791: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2792: END IF;
2793: --
2794: l_result := INV_VALIDATE.From_subinventory(
2795: p_sub => g_sub,

Line 2794: l_result := INV_VALIDATE.From_subinventory(

2790: IF l_debug_on THEN
2791: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2792: END IF;
2793: --
2794: l_result := INV_VALIDATE.From_subinventory(
2795: p_sub => g_sub,
2796: p_item => g_item,
2797: p_org => g_org,
2798: p_trx_type_id => p_transaction_type_id,

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

2797: p_org => g_org,
2798: p_trx_type_id => p_transaction_type_id,
2799: p_object_type => p_object_type ,
2800: p_acct_txn => 0);
2801: IF (l_result <> INV_VALIDATE.T) THEN
2802: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2803: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Subinventory');
2804: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2805: WSH_UTIL_CORE.Add_Message(x_return_status);

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

2809: --
2810: -- Debug Statements
2811: --
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2814: END IF;
2815: --
2816: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2817: l_result := INV_VALIDATE.ValidateLocator(

Line 2817: l_result := INV_VALIDATE.ValidateLocator(

2813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
2814: END IF;
2815: --
2816: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
2817: l_result := INV_VALIDATE.ValidateLocator(
2818: p_locator => l_locator,
2819: p_org => g_org,
2820: p_sub => g_sub,
2821: p_item => g_item,

Line 2825: l_result := INV_VALIDATE.ValidateLocator(

2821: p_item => g_item,
2822: p_trx_type_id => p_transaction_type_id,
2823: p_object_type => p_object_type);
2824: ELSE
2825: l_result := INV_VALIDATE.ValidateLocator(
2826: p_locator => l_locator,
2827: p_org => g_org,
2828: p_sub => g_sub,
2829: p_item => g_item);

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

2827: p_org => g_org,
2828: p_sub => g_sub,
2829: p_item => g_item);
2830: END IF;
2831: IF (l_result = INV_VALIDATE.T) THEN
2832: x_result := TRUE;
2833: ELSE
2834: x_result := FALSE;
2835: END IF;

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

2844: EXCEPTION
2845:
2846: WHEN others THEN
2847: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2848: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2849:
2850: --
2851: -- Debug Statements
2852: --

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

2912: --
2913: -- Debug Statements
2914: --
2915: IF l_debug_on THEN
2916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2917: END IF;
2918: --
2919: l_result := INV_VALIDATE.organization(g_org);
2920: IF (l_result <> INV_VALIDATE.T) THEN

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

2915: IF l_debug_on THEN
2916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2917: END IF;
2918: --
2919: l_result := INV_VALIDATE.organization(g_org);
2920: IF (l_result <> INV_VALIDATE.T) THEN
2921: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2922: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

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

2916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2917: END IF;
2918: --
2919: l_result := INV_VALIDATE.organization(g_org);
2920: IF (l_result <> INV_VALIDATE.T) THEN
2921: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2922: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
2923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2924: WSH_UTIL_CORE.Add_Message(x_return_status);

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

2933: --
2934: l_result := wsh_delivery_details_inv.inventory_item(
2935: p_item => g_item,
2936: p_org => g_org);
2937: IF (l_result <> INV_VALIDATE.T) THEN
2938: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2939: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
2940: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2941: WSH_UTIL_CORE.Add_Message(x_return_status);

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

2944: --
2945: -- Debug Statements
2946: --
2947: IF l_debug_on THEN
2948: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.REVISION',WSH_DEBUG_SV.C_PROC_LEVEL);
2949: END IF;
2950: --
2951: l_result := INV_VALIDATE.Revision(
2952: p_revision => p_revision,

Line 2951: l_result := INV_VALIDATE.Revision(

2947: IF l_debug_on THEN
2948: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.REVISION',WSH_DEBUG_SV.C_PROC_LEVEL);
2949: END IF;
2950: --
2951: l_result := INV_VALIDATE.Revision(
2952: p_revision => p_revision,
2953: p_org => g_org,
2954: p_item => g_item);
2955:

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

2952: p_revision => p_revision,
2953: p_org => g_org,
2954: p_item => g_item);
2955:
2956: IF (l_result = INV_VALIDATE.T) THEN
2957: x_result := TRUE;
2958: ELSE
2959: x_result := FALSE;
2960: END IF;

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

2969: --
2970: EXCEPTION
2971: WHEN others THEN
2972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2973: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2974:
2975: --
2976: -- Debug Statements
2977: --

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

3050: --
3051: -- Debug Statements
3052: --
3053: IF l_debug_on THEN
3054: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3055: END IF;
3056: --
3057: l_result := INV_VALIDATE.organization(g_org);
3058: IF (l_result <> INV_VALIDATE.T) THEN

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

3053: IF l_debug_on THEN
3054: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3055: END IF;
3056: --
3057: l_result := INV_VALIDATE.organization(g_org);
3058: IF (l_result <> INV_VALIDATE.T) THEN
3059: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3060: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

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

3054: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3055: END IF;
3056: --
3057: l_result := INV_VALIDATE.organization(g_org);
3058: IF (l_result <> INV_VALIDATE.T) THEN
3059: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3060: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3062: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3071: --
3072: l_result := wsh_delivery_details_inv.inventory_item(
3073: p_item => g_item,
3074: p_org => g_org);
3075: IF (l_result <> INV_VALIDATE.T) THEN
3076: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3077: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
3078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3079: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3085: --
3086: -- Debug Statements
3087: --
3088: IF l_debug_on THEN
3089: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3090: END IF;
3091: --
3092: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3093: l_result := INV_VALIDATE.from_subinventory(

Line 3093: l_result := INV_VALIDATE.from_subinventory(

3089: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3090: END IF;
3091: --
3092: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3093: l_result := INV_VALIDATE.from_subinventory(
3094: p_sub => g_sub,
3095: p_org => g_org,
3096: p_item => g_item,
3097: p_trx_type_id => p_transaction_type_id,

Line 3101: l_result := INV_VALIDATE.from_subinventory(

3097: p_trx_type_id => p_transaction_type_id,
3098: p_object_type => p_object_type,
3099: p_acct_txn => 0);
3100: ELSE
3101: l_result := INV_VALIDATE.from_subinventory(
3102: p_sub => g_sub,
3103: p_org => g_org,
3104: p_item => g_item,
3105: p_acct_txn => 0);

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

3103: p_org => g_org,
3104: p_item => g_item,
3105: p_acct_txn => 0);
3106: END IF;
3107: IF (l_result = INV_VALIDATE.T) THEN
3108: x_result := TRUE;
3109: ELSE
3110: x_result := FALSE;
3111: END IF;

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

3117: --
3118: -- Debug Statements
3119: --
3120: IF l_debug_on THEN
3121: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.TO_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3122: END IF;
3123: --
3124: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3125: l_result := INV_VALIDATE.to_subinventory(

Line 3125: l_result := INV_VALIDATE.to_subinventory(

3121: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.TO_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3122: END IF;
3123: --
3124: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3125: l_result := INV_VALIDATE.to_subinventory(
3126: p_sub => g_to_sub,
3127: p_org => g_org,
3128: p_item => g_item,
3129: p_from_sub => g_sub,

Line 3134: l_result := INV_VALIDATE.to_subinventory(

3130: p_trx_type_id => p_transaction_type_id,
3131: p_object_type => p_object_type,
3132: p_acct_txn => 0);
3133: ELSE
3134: l_result := INV_VALIDATE.to_subinventory(
3135: p_sub => g_to_sub,
3136: p_org => g_org,
3137: p_item => g_item,
3138: p_from_sub => g_sub,

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

3138: p_from_sub => g_sub,
3139: p_acct_txn => 0);
3140: END IF;
3141:
3142: IF (l_result = INV_VALIDATE.T) THEN
3143: x_result := TRUE;
3144: ELSE
3145: x_result := FALSE;
3146: END IF;

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

3159: EXCEPTION
3160:
3161: WHEN others THEN
3162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3163: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
3164:
3165: --
3166: -- Debug Statements
3167: --

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

3249: --
3250: -- Debug Statements
3251: --
3252: IF l_debug_on THEN
3253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3254: END IF;
3255: --
3256: l_result := INV_VALIDATE.organization(g_org);
3257: IF (l_result <> INV_VALIDATE.T) THEN

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

3252: IF l_debug_on THEN
3253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3254: END IF;
3255: --
3256: l_result := INV_VALIDATE.organization(g_org);
3257: IF (l_result <> INV_VALIDATE.T) THEN
3258: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3259: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

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

3253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3254: END IF;
3255: --
3256: l_result := INV_VALIDATE.organization(g_org);
3257: IF (l_result <> INV_VALIDATE.T) THEN
3258: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3259: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3261: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3271: --
3272: l_result := wsh_delivery_details_inv.inventory_item(
3273: p_item => g_item,
3274: p_org => g_org);
3275: IF (l_result <> INV_VALIDATE.T) THEN
3276: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3277: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
3278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3279: WSH_UTIL_CORE.Add_Message(x_return_status);

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

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

Line 3291: l_result := INV_VALIDATE.From_Subinventory(

3287: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3288: END IF;
3289: --
3290: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3291: l_result := INV_VALIDATE.From_Subinventory(
3292: p_org => g_org,
3293: p_sub => g_sub,
3294: p_item => g_item,
3295: p_trx_type_id => p_transaction_type_id,

Line 3299: l_result := INV_VALIDATE.From_Subinventory(

3295: p_trx_type_id => p_transaction_type_id,
3296: p_object_type => p_object_type,
3297: p_acct_txn => 1);
3298: ELSE
3299: l_result := INV_VALIDATE.From_Subinventory(
3300: p_org => g_org,
3301: p_sub => g_sub,
3302: p_item => g_item,
3303: p_acct_txn => 1);

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

3301: p_sub => g_sub,
3302: p_item => g_item,
3303: p_acct_txn => 1);
3304: END IF;
3305: IF (l_result <> INV_VALIDATE.T) THEN
3306: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3307: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3308: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3309: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3322: --
3323: -- Debug Statements
3324: --
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3327: END IF;
3328: --
3329: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3330: l_result := INV_VALIDATE.validateLocator(

Line 3330: l_result := INV_VALIDATE.validateLocator(

3326: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3327: END IF;
3328: --
3329: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3330: l_result := INV_VALIDATE.validateLocator(
3331: p_locator => g_loc,
3332: p_org => g_org,
3333: p_sub => g_sub,
3334: p_trx_type_id => p_transaction_type_id,

Line 3338: l_result := INV_VALIDATE.validateLocator(

3334: p_trx_type_id => p_transaction_type_id,
3335: p_object_type => p_object_type,
3336: p_item => g_item);
3337: ELSE
3338: l_result := INV_VALIDATE.validateLocator(
3339: p_locator => g_loc,
3340: p_org => g_org,
3341: p_sub => g_sub,
3342: p_item => g_item);

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

3340: p_org => g_org,
3341: p_sub => g_sub,
3342: p_item => g_item);
3343: END IF;
3344: IF (l_result = INV_VALIDATE.F) THEN
3345: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3346: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3347: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3348: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3360: --
3361: -- Debug Statements
3362: --
3363: IF l_debug_on THEN
3364: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3365: END IF;
3366: --
3367: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3368: l_result := INV_VALIDATE.lot_number(

Line 3368: l_result := INV_VALIDATE.lot_number(

3364: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3365: END IF;
3366: --
3367: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3368: l_result := INV_VALIDATE.lot_number(
3369: p_lot => g_lot,
3370: p_org => g_org,
3371: p_item => g_item,
3372: p_from_sub => g_sub,

Line 3379: l_result := INV_VALIDATE.lot_number(

3375: p_object_type => p_object_type,
3376: p_revision => p_revision,
3377: p_lpn_id => p_lpn_id); --bug 12597783
3378: ELSE
3379: l_result := INV_VALIDATE.lot_number(
3380: p_lot => g_lot,
3381: p_org => g_org,
3382: p_item => g_item,
3383: p_from_sub => g_sub,

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

3384: p_loc => g_loc,
3385: p_revision => p_revision);
3386: END IF;
3387:
3388: IF (l_result = INV_VALIDATE.T) THEN
3389: x_result := TRUE;
3390: ELSE
3391: x_result := FALSE;
3392: END IF;

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

3401: --
3402: EXCEPTION
3403: WHEN others THEN
3404: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3405: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3406:
3407: --
3408: -- Debug Statements
3409: --

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

3485: --
3486: -- Debug Statements
3487: --
3488: IF l_debug_on THEN
3489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3490: END IF;
3491: --
3492: l_result := INV_VALIDATE.organization(g_org);
3493: IF (l_result <> INV_VALIDATE.T) THEN

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

3488: IF l_debug_on THEN
3489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3490: END IF;
3491: --
3492: l_result := INV_VALIDATE.organization(g_org);
3493: IF (l_result <> INV_VALIDATE.T) THEN
3494: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3495: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3496: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

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

3489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
3490: END IF;
3491: --
3492: l_result := INV_VALIDATE.organization(g_org);
3493: IF (l_result <> INV_VALIDATE.T) THEN
3494: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3495: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
3496: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3497: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3514: --
3515: l_result := wsh_delivery_details_inv.inventory_item(
3516: p_item => g_item,
3517: p_org => g_org);
3518: IF (l_result <> INV_VALIDATE.T) THEN
3519: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3520: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
3521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3522: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3534: --
3535: -- Debug Statements
3536: --
3537: IF l_debug_on THEN
3538: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3539: END IF;
3540: --
3541: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3542: l_result := INV_VALIDATE.From_Subinventory(

Line 3542: l_result := INV_VALIDATE.From_Subinventory(

3538: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
3539: END IF;
3540: --
3541: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3542: l_result := INV_VALIDATE.From_Subinventory(
3543: p_org => g_org,
3544: p_sub => g_sub,
3545: p_item => g_item,
3546: p_trx_type_id => p_transaction_type_id,

Line 3550: l_result := INV_VALIDATE.From_Subinventory(

3546: p_trx_type_id => p_transaction_type_id,
3547: p_object_type => p_object_type,
3548: p_acct_txn => 1);
3549: ELSE
3550: l_result := INV_VALIDATE.From_Subinventory(
3551: p_org => g_org,
3552: p_sub => g_sub,
3553: p_item => g_item,
3554: p_acct_txn => 1);

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

3552: p_sub => g_sub,
3553: p_item => g_item,
3554: p_acct_txn => 1);
3555: END IF;
3556: IF (l_result <> INV_VALIDATE.T) THEN
3557: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3558: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3560: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3575: --
3576: -- Debug Statements
3577: --
3578: IF l_debug_on THEN
3579: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3580: END IF;
3581: --
3582: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3583: l_result := INV_VALIDATE.validateLocator(

Line 3583: l_result := INV_VALIDATE.validateLocator(

3579: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
3580: END IF;
3581: --
3582: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3583: l_result := INV_VALIDATE.validateLocator(
3584: p_locator => g_loc,
3585: p_org => g_org,
3586: p_sub => g_sub,
3587: p_trx_type_id => p_transaction_type_id,

Line 3591: l_result := INV_VALIDATE.validateLocator(

3587: p_trx_type_id => p_transaction_type_id,
3588: p_object_type => p_object_type,
3589: p_item => g_item);
3590: ELSE
3591: l_result := INV_VALIDATE.validateLocator(
3592: p_locator => g_loc,
3593: p_org => g_org,
3594: p_sub => g_sub,
3595: p_item => g_item);

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

3593: p_org => g_org,
3594: p_sub => g_sub,
3595: p_item => g_item);
3596: END IF;
3597: IF (l_result = INV_VALIDATE.F) THEN
3598: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3599: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3600: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3601: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3615: --
3616: -- Debug Statements
3617: --
3618: IF l_debug_on THEN
3619: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3620: END IF;
3621: --
3622: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3623: l_result := INV_VALIDATE.Lot_Number(

Line 3623: l_result := INV_VALIDATE.Lot_Number(

3619: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
3620: END IF;
3621: --
3622: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3623: l_result := INV_VALIDATE.Lot_Number(
3624: p_lot => g_lot,
3625: p_org => g_org,
3626: p_item => g_item,
3627: p_from_sub => g_sub,

Line 3633: l_result := INV_VALIDATE.Lot_Number(

3629: p_object_type => p_object_type,
3630: p_loc => g_loc,
3631: p_revision => p_revision);
3632: ELSE
3633: l_result := INV_VALIDATE.Lot_Number(
3634: p_lot => g_lot,
3635: p_org => g_org,
3636: p_item => g_item,
3637: p_from_sub => g_sub,

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

3637: p_from_sub => g_sub,
3638: p_loc => g_loc,
3639: p_revision => p_revision);
3640: END IF;
3641: IF (l_result <> INV_VALIDATE.T) THEN
3642: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3643: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
3644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3645: WSH_UTIL_CORE.Add_Message(x_return_status);

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

3658: --
3659: -- Debug Statements
3660: --
3661: IF l_debug_on THEN
3662: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3663: END IF;
3664: --
3665: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3666: l_result := INV_VALIDATE.Validate_serial(

Line 3666: l_result := INV_VALIDATE.Validate_serial(

3662: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
3663: END IF;
3664: --
3665: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
3666: l_result := INV_VALIDATE.Validate_serial(
3667: p_serial => g_serial,
3668: p_lot => g_lot,
3669: p_org => g_org,
3670: p_item => g_item,

Line 3677: l_result := INV_VALIDATE.Validate_serial(

3673: p_trx_type_id => p_transaction_type_id,
3674: p_object_type => p_object_type,
3675: p_revision => p_revision);
3676: ELSE
3677: l_result := INV_VALIDATE.Validate_serial(
3678: p_serial => g_serial,
3679: p_lot => g_lot,
3680: p_org => g_org,
3681: p_item => g_item,

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

3683: p_loc => g_loc,
3684: p_revision => p_revision);
3685: END IF;
3686:
3687: IF (l_result = INV_VALIDATE.T) THEN
3688: x_result := TRUE;
3689: ELSE
3690: x_result := FALSE;
3691: END IF;

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

3700: EXCEPTION
3701:
3702: WHEN others THEN
3703: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3704: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3705:
3706: --
3707: -- Debug Statements
3708: --

Line 4637: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;

4633: l_padded_length NUMBER;
4634: p_prefix VARCHAR(30);
4635: x_quantity NUMBER;
4636: x_errorcode NUMBER;
4637: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4638: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4639: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4640: --
4641: l_debug_on BOOLEAN;

Line 4638: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;

4634: p_prefix VARCHAR(30);
4635: x_quantity NUMBER;
4636: x_errorcode NUMBER;
4637: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4638: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4639: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4640: --
4641: l_debug_on BOOLEAN;
4642: --

Line 4639: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;

4635: x_quantity NUMBER;
4636: x_errorcode NUMBER;
4637: l_fm_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4638: l_to_serial INV_VALIDATE.SERIAL_NUMBER_TBL;
4639: x_errored_serials INV_VALIDATE.SERIAL_NUMBER_TBL;
4640: --
4641: l_debug_on BOOLEAN;
4642: --
4643: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_SERIAL_RANGE';

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

4668: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4669: g_org.organization_id := p_organization_id;
4670:
4671: IF l_debug_on THEN
4672: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
4673: END IF;
4674:
4675: l_result := INV_VALIDATE.organization(g_org);
4676:

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

4671: IF l_debug_on THEN
4672: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
4673: END IF;
4674:
4675: l_result := INV_VALIDATE.organization(g_org);
4676:
4677: IF(l_debug_on) THEN
4678: wsh_debug_sv.log(l_module_name, 'Org Result', l_result);
4679: END IF;

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

4677: IF(l_debug_on) THEN
4678: wsh_debug_sv.log(l_module_name, 'Org Result', l_result);
4679: END IF;
4680:
4681: IF (l_result <> INV_VALIDATE.T) THEN
4682: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4683: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Organization');
4684: raise FND_API.G_EXC_ERROR;
4685: END IF;

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

4695: IF(l_debug_on) THEN
4696: wsh_debug_sv.log(l_module_name, 'Inv Item Result', l_result);
4697: END IF;
4698:
4699: IF (l_result <> INV_VALIDATE.T) THEN
4700: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4701: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Item');
4702: raise FND_API.G_EXC_ERROR;
4703: END IF;

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

4704:
4705: g_sub.secondary_inventory_name := p_subinventory;
4706:
4707: IF l_debug_on THEN
4708: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4709: END IF;
4710: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4711: l_result := INV_VALIDATE.From_Subinventory(
4712: p_org => g_org,

Line 4711: l_result := INV_VALIDATE.From_Subinventory(

4707: IF l_debug_on THEN
4708: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.FROM_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4709: END IF;
4710: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4711: l_result := INV_VALIDATE.From_Subinventory(
4712: p_org => g_org,
4713: p_sub => g_sub,
4714: p_item => g_item,
4715: p_trx_type_id => p_transaction_type_id,

Line 4719: l_result := INV_VALIDATE.From_Subinventory(

4715: p_trx_type_id => p_transaction_type_id,
4716: p_object_type => p_object_type,
4717: p_acct_txn => 1);
4718: ELSE
4719: l_result := INV_VALIDATE.From_Subinventory(
4720: p_org => g_org,
4721: p_sub => g_sub,
4722: p_item => g_item,
4723: p_acct_txn => 1);

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

4725: IF(l_debug_on) THEN
4726: wsh_debug_sv.log(l_module_name, 'Subinv Result', l_result);
4727: END IF;
4728:
4729: IF (l_result <> INV_VALIDATE.T) THEN
4730: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4731: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
4732: raise FND_API.G_EXC_ERROR;
4733: END IF;

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

4736: -- Need to check if locator is NULL cause inventory validation API will
4737: -- validate on flex field and return false when locator is NULL
4738: IF (p_locator_id IS NOT NULL) THEN
4739: IF l_debug_on THEN
4740: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4741: END IF;
4742: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4743: l_result := INV_VALIDATE.validateLocator(
4744: p_locator => g_loc,

Line 4743: l_result := INV_VALIDATE.validateLocator(

4739: IF l_debug_on THEN
4740: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATELOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4741: END IF;
4742: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4743: l_result := INV_VALIDATE.validateLocator(
4744: p_locator => g_loc,
4745: p_org => g_org,
4746: p_sub => g_sub,
4747: p_trx_type_id => p_transaction_type_id,

Line 4751: l_result := INV_VALIDATE.validateLocator(

4747: p_trx_type_id => p_transaction_type_id,
4748: p_object_type => p_object_type,
4749: p_item => g_item);
4750: ELSE
4751: l_result := INV_VALIDATE.validateLocator(
4752: p_locator => g_loc,
4753: p_org => g_org,
4754: p_sub => g_sub,
4755: p_item => g_item);

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

4757: IF(l_debug_on) THEN
4758: wsh_debug_sv.log(l_module_name, 'Locator Result', l_result);
4759: END IF;
4760:
4761: IF (l_result = INV_VALIDATE.F) THEN
4762: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4763: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Locator');
4764: raise FND_API.G_EXC_ERROR;
4765: END IF;

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

4767:
4768: g_lot.lot_number := p_lot_number;
4769: IF (p_lot_number IS NOT NULL) THEN
4770: IF l_debug_on THEN
4771: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
4772: END IF;
4773: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4774: l_result := INV_VALIDATE.Lot_Number(
4775: p_lot => g_lot,

Line 4774: l_result := INV_VALIDATE.Lot_Number(

4770: IF l_debug_on THEN
4771: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.LOT_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
4772: END IF;
4773: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4774: l_result := INV_VALIDATE.Lot_Number(
4775: p_lot => g_lot,
4776: p_org => g_org,
4777: p_item => g_item,
4778: p_trx_type_id => p_transaction_type_id,

Line 4784: l_result := INV_VALIDATE.Lot_Number(

4780: p_from_sub => g_sub,
4781: p_loc => g_loc,
4782: p_revision => p_revision);
4783: ELSE
4784: l_result := INV_VALIDATE.Lot_Number(
4785: p_lot => g_lot,
4786: p_org => g_org,
4787: p_item => g_item,
4788: p_from_sub => g_sub,

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

4792: IF(l_debug_on) THEN
4793: wsh_debug_sv.log(l_module_name, 'Lot Number Result', l_result);
4794: END IF;
4795:
4796: IF (l_result <> INV_VALIDATE.T) THEN
4797: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
4798: FND_MESSAGE.SET_TOKEN('INV_ATTRIBUTE', 'Lot');--Material Status Impact
4799: raise FND_API.G_EXC_ERROR;
4800: END IF;

Line 4840: l_result := INV_VALIDATE.validate_serial_range(

4836:
4837: IF p_transaction_type_id IS NOT NULL AND p_object_type IS NOT NULL THEN
4838: l_fm_serial(1) := p_from_serial_number;
4839: l_to_serial(1) := p_to_serial_number;
4840: l_result := INV_VALIDATE.validate_serial_range(
4841: p_fm_serial => l_fm_serial,
4842: p_to_serial => l_to_serial,
4843: p_org => g_org,
4844: p_item => g_item ,

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

4848: p_revision => p_revision,
4849: p_trx_type_id => p_transaction_type_id,
4850: p_object_type => p_object_type,
4851: x_errored_serials => x_errored_serials);
4852: IF (l_result = INV_VALIDATE.T) THEN
4853: x_result := TRUE;
4854: ELSE
4855: x_result := FALSE;
4856: FOR i in 1..x_errored_serials.count LOOP

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

4868: l_padded_length := l_length - length(l_number_part);
4869: g_serial.serial_number := RPAD(nvl(x_Prefix,'0'), l_padded_length, '0') ||l_number_part;
4870:
4871: IF l_debug_on THEN
4872: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
4873: END IF;
4874: l_result := INV_VALIDATE.Validate_serial(
4875: p_serial => g_serial,
4876: p_lot => g_lot,

Line 4874: l_result := INV_VALIDATE.Validate_serial(

4870:
4871: IF l_debug_on THEN
4872: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.VALIDATE_SERIAL',WSH_DEBUG_SV.C_PROC_LEVEL);
4873: END IF;
4874: l_result := INV_VALIDATE.Validate_serial(
4875: p_serial => g_serial,
4876: p_lot => g_lot,
4877: p_org => g_org,
4878: p_item => g_item,

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

4883: IF l_debug_on THEN
4884: wsh_debug_sv.log(l_module_name, 'Serial Result', l_result);
4885: END IF;
4886:
4887: IF (l_result = INV_VALIDATE.T) THEN
4888: x_result := TRUE;
4889: ELSE
4890: x_result := FALSE;
4891: EXIT;

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

4892: END IF;
4893: l_number_part := l_number_part + 1;
4894: l_counter := l_counter + 1;
4895: END LOOP;
4896: IF (l_result = INV_VALIDATE.T) THEN
4897: x_result := TRUE;
4898: ELSE
4899: x_result := FALSE;
4900: END IF;

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

4913: END IF;
4914:
4915: WHEN others THEN
4916: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4917: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4918: IF l_debug_on THEN
4919: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4920: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4921: END IF;