[Home] [Help]
215:
216: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
217: THEN
218:
219: FND_MESSAGE.SET_NAME('INV','INV_INT_ITMCODE');
220: FND_MSG_PUB.Add;
221:
222: END IF;
223:
589: END IF;
590: --
591: IF p_delivery_detail_id IS NULL THEN
592: --{
593: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
595: WSH_UTIL_CORE.Add_Message(x_return_status);
596: --
597: IF l_debug_on THEN
610: --
611: IF Get_Detail_Item%NOTFOUND THEN
612: --{
613: CLOSE Get_Detail_Item;
614: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
615: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
616: WSH_UTIL_CORE.Add_Message(x_return_status);
617: --
618: IF l_debug_on THEN
712: --
713: IF Get_Inv_Controls%NOTFOUND THEN
714: --{
715: CLOSE Get_Inv_Controls;
716: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
718: WSH_UTIL_CORE.Add_Message(x_return_status);
719: --
720: IF l_debug_on THEN
925: BEGIN
926:
927: /*
928: IF (p_line_inv_rec IS NULL) THEN
929: FND_MESSAGE.SET_NAME('WSH','WSH_DETAIL_INVALID');
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
931: x_details_required := FALSE;
932: return;
933: END IF;
1958: FETCH Fetch_Detail_Info INTO l_inv_item_id, l_org_id;
1959:
1960: IF Fetch_Detail_Info%NOTFOUND THEN
1961: CLOSE Fetch_Detail_Info;
1962: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_ID');
1963: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1964: WSH_UTIL_CORE.Add_Message(x_return_status);
1965: --
1966: -- Debug Statements
1976: CLOSE Fetch_Detail_Info;
1977: END IF;
1978:
1979: IF p_serial_number IS NOT NULL AND p_transaction_temp_id IS NOT NULL THEN
1980: FND_MESSAGE.SET_NAME('WSH','WSH_DET_TRX_SERIAL_INVALID');
1981: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1982: WSH_UTIL_CORE.Add_Message(x_return_status);
1983: --
1984: -- Debug Statements
2034: l_success);
2035:
2036:
2037: IF l_success < 0 THEN
2038: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
2039: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_serial_number);
2040: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2041: WSH_UTIL_CORE.Add_Message(x_return_status);
2042: --
2035:
2036:
2037: IF l_success < 0 THEN
2038: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
2039: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_serial_number);
2040: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2041: WSH_UTIL_CORE.Add_Message(x_return_status);
2042: --
2043: -- Debug Statements
2086: p_transaction_temp_id,
2087: l_success);
2088:
2089: IF l_success < 0 THEN
2090: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2091: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2092: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2093: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2094: WSH_UTIL_CORE.Add_Message(l_return_status);
2087: l_success);
2088:
2089: IF l_success < 0 THEN
2090: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2091: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2092: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2093: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2094: WSH_UTIL_CORE.Add_Message(l_return_status);
2095: END IF;
2088:
2089: IF l_success < 0 THEN
2090: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2091: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2092: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2093: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2094: WSH_UTIL_CORE.Add_Message(l_return_status);
2095: END IF;
2096:
2210: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2211: END IF;
2212: --
2213: IF p_serial_number_code IS NULL OR p_serial_number_code = 1 THEN
2214: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SER_CODE_UNMARK');
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2216: WSH_UTIL_CORE.Add_Message(x_return_status);
2217: --
2218: -- Debug Statements
2224: return;
2225: END IF;
2226:
2227: IF p_serial_number IS NOT NULL AND p_transaction_temp_id IS NOT NULL THEN
2228: FND_MESSAGE.SET_NAME('WSH','WSH_DET_TRX_SERIAL_INVALID');
2229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2230: WSH_UTIL_CORE.Add_Message(x_return_status);
2231: --
2232: -- Debug Statements
2310: DELETE FROM MTL_SERIAL_NUMBERS_TEMP
2311: WHERE transaction_temp_id = p_transaction_temp_id;
2312:
2313: IF SQLCODE <> 0 THEN
2314: FND_MESSAGE.SET_NAME('WSH','WSH_SER_TEMP_CLEAR_ERROR');
2315: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2316: WSH_UTIL_CORE.Add_Message(x_return_status);
2317: --
2318: -- Debug Statements
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);
2440: 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);
2440: END IF;
2441: g_item.inventory_item_id := p_inventory_item_id;
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);
2457: END IF;
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);
2457: END IF;
2458:
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);
2479: END IF;
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);
2479: END IF;
2480: l_locator.inventory_location_id := p_locator_id;
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);
2598: 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);
2598: END IF;
2599: g_item.inventory_item_id := p_inventory_item_id;
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);
2615: END IF;
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);
2615: END IF;
2616:
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);
2736: 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);
2736: END IF;
2737: g_item.inventory_item_id := p_inventory_item_id;
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);
2753: END IF;
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);
2753: END IF;
2754: g_sub.secondary_inventory_name := p_subinventory;
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);
2933: 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);
2933: END IF;
2934:
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);
2951: END IF;
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);
2951: END IF;
2952:
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);
2981: --
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);
2981: --
2982: -- Debug Statements
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);
3020: --
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);
3020: --
3021: -- Debug Statements
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);
3168: --
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);
3168: --
3169: -- Debug Statements
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);
3193: --
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);
3193: --
3194: -- Debug Statements
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);
3231: --
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);
3231: --
3232: -- Debug Statements
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);
3272: --
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);
3272: --
3273: -- Debug Statements
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);
3316: --
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);
3316: --
3317: -- Debug Statements
3454: IF (Check_Dup_Loc%ISOPEN) THEN
3455: CLOSE Check_Dup_Loc;
3456: END IF;
3457:
3458: FND_MESSAGE.SET_NAME('WSH','WSH_INV_DUP_LOCATOR');
3459: FND_MESSAGE.SET_TOKEN('SUBINV',p_subinventory);
3460: --
3461: -- Debug Statements
3462: --
3455: CLOSE Check_Dup_Loc;
3456: END IF;
3457:
3458: FND_MESSAGE.SET_NAME('WSH','WSH_INV_DUP_LOCATOR');
3459: FND_MESSAGE.SET_TOKEN('SUBINV',p_subinventory);
3460: --
3461: -- Debug Statements
3462: --
3463: IF l_debug_on THEN
3464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3465: END IF;
3466: --
3467: l_temp := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
3468: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_temp);
3469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3470: WSH_UTIL_CORE.Add_Message(x_return_status);
3471:
3472: --
3489: WHERE organization_id = p_organization_id
3490: AND inventory_location_id = p_locator_id;
3491:
3492: IF SQL%NOTFOUND THEN
3493: FND_MESSAGE.SET_NAME('FND','SQLERRM');
3494: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3495: WSH_UTIL_CORE.Add_Message(x_return_status);
3496: --
3497: -- Debug Statements
3593: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3594: END IF;
3595: --
3596: IF p_delivery_detail_id IS NULL THEN
3597: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
3598: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3599: l_ser_qty := -99;
3600: --
3601: -- Debug Statements
3617: l_ser_num;
3618:
3619: IF Get_Detail_Info%NOTFOUND THEN
3620: CLOSE Get_Detail_Info;
3621: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
3622: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3623: l_ser_qty := -99;
3624: --
3625: -- Debug Statements
3647: return l_ser_qty;
3648: END IF;
3649:
3650: IF l_trx_id IS NOT NULL AND l_ser_num IS NOT NULL THEN
3651: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
3652: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3653: l_ser_qty := -99;
3654: --
3655: -- Debug Statements
3661: return l_ser_qty;
3662: END IF;
3663:
3664: IF l_trx_id IS NOT NULL AND nvl(l_shp_qty,0) < 1 THEN
3665: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
3666: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3667: l_ser_qty := -99;
3668: --
3669: -- Debug Statements
3682: FETCH Get_Ser_Qty INTO l_ser_qty;
3683:
3684: IF Get_Ser_Qty%NOTFOUND THEN
3685: CLOSE Get_Ser_Qty;
3686: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
3687: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3688: l_ser_qty := -99;
3689: --
3690: -- Debug Statements
3714: -- nvl the shp qty to 2 in this case because the shp qty cannot be null and
3715: -- have a valid serial number populated. this is data corruption.
3716:
3717: IF l_ser_num IS NOT NULL AND nvl(l_shp_qty,2) > 1 THEN
3718: FND_MESSAGE.SET_NAME('WSH','WSH_DETAIL_INVALID_SERIAL');
3719: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3720: l_ser_qty := -99;
3721: --
3722: -- Debug Statements
4202: END IF;
4203:
4204: WHEN WSH_INVALID_SER_NUM THEN
4205: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4206: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SER_NUM');
4207: WSH_UTIL_CORE.Add_Message(x_return_status);
4208: IF l_debug_on THEN
4209: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_SER_NUM');
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;
4335: g_item.inventory_item_id := p_inventory_item_id;
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;
4335: g_item.inventory_item_id := p_inventory_item_id;
4336:
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;
4353:
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;
4353:
4354: g_sub.secondary_inventory_name := p_subinventory;
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;
4383:
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;
4383:
4384: g_loc.inventory_location_id := p_locator_id;
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;
4415: END IF;
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;
4415: END IF;
4416:
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;
4450: END IF;
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;
4450: END IF;
4451:
4710: wsh_debug_sv.log(l_module_name, 'Quantity', l_quantity);
4711: wsh_debug_sv.log(l_module_name, 'Prefix', l_prefix);
4712: END IF;
4713: IF (l_quantity <> p_quantity) THEN
4714: fnd_message.set_name('WSH', 'WSH_SERIAL_NUM_WRG_RANGE');
4715: RAISE FND_API.G_EXC_ERROR;
4716: END IF;
4717:
4718: x_prefix := l_prefix;
4814: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) OR
4815: (l_wms_table(1).return_status = 'E')
4816: THEN
4817: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4818: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CATCHWEIGHT');
4819: FND_MESSAGE.SET_TOKEN('DEL_DET', p_line_inv_rec.delivery_detail_id);
4820: WSH_UTIL_CORE.Add_Message(x_return_status);
4821: END IF;
4822:
4815: (l_wms_table(1).return_status = 'E')
4816: THEN
4817: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4818: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CATCHWEIGHT');
4819: FND_MESSAGE.SET_TOKEN('DEL_DET', p_line_inv_rec.delivery_detail_id);
4820: WSH_UTIL_CORE.Add_Message(x_return_status);
4821: END IF;
4822:
4823: IF l_debug_on THEN
4933: -- At this point, l_cache_rec has the cache information.
4934: -- you can alternately use g_item_tab(l_index).
4935:
4936: IF l_cache_rec.valid_flag = 'N' THEN
4937: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
4938: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4939: wsh_util_core.add_message(x_return_status,l_module_name);
4940:
4941: IF l_debug_on THEN
5074: success => l_success);
5075: --
5076: IF NOT l_success THEN
5077: --
5078: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
5079: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_from_serial_number);
5080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5081: WSH_UTIL_CORE.Add_Message(x_return_status);
5082: --
5075: --
5076: IF NOT l_success THEN
5077: --
5078: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
5079: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_from_serial_number);
5080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5081: WSH_UTIL_CORE.Add_Message(x_return_status);
5082: --
5083: IF l_debug_on THEN