[Home] [Help]
314:
315: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
316: THEN
317:
318: FND_MESSAGE.SET_NAME('INV','INV_INT_ITMCODE');
319: FND_MSG_PUB.Add;
320:
321: END IF;
322:
714: END IF;
715: --
716: IF p_delivery_detail_id IS NULL THEN
717: --{
718: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
719: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
720: WSH_UTIL_CORE.Add_Message(x_return_status);
721: --
722: IF l_debug_on THEN
744: --
745: IF Get_Detail_Item%NOTFOUND THEN
746: --{
747: CLOSE Get_Detail_Item;
748: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
749: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
750: WSH_UTIL_CORE.Add_Message(x_return_status);
751: --
752: IF l_debug_on THEN
903: --
904: IF Get_Inv_Controls%NOTFOUND THEN
905: --{
906: CLOSE Get_Inv_Controls;
907: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
909: WSH_UTIL_CORE.Add_Message(x_return_status);
910: --
911: IF l_debug_on THEN
1157: BEGIN
1158:
1159: /*
1160: IF (p_line_inv_rec IS NULL) THEN
1161: FND_MESSAGE.SET_NAME('WSH','WSH_DETAIL_INVALID');
1162: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1163: x_details_required := FALSE;
1164: return;
1165: END IF;
2189: FETCH Fetch_Detail_Info INTO l_inv_item_id, l_org_id,l_source_code,l_source_header_id,l_source_line_id; --RTV changes
2190:
2191: IF Fetch_Detail_Info%NOTFOUND THEN
2192: CLOSE Fetch_Detail_Info;
2193: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_ID');
2194: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2195: WSH_UTIL_CORE.Add_Message(x_return_status);
2196: --
2197: -- Debug Statements
2207: CLOSE Fetch_Detail_Info;
2208: END IF;
2209:
2210: IF p_serial_number IS NOT NULL AND p_transaction_temp_id IS NOT NULL THEN
2211: FND_MESSAGE.SET_NAME('WSH','WSH_DET_TRX_SERIAL_INVALID');
2212: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2213: WSH_UTIL_CORE.Add_Message(x_return_status);
2214: --
2215: -- Debug Statements
2278: END IF;
2279: --RTV changes
2280:
2281: IF l_success < 0 THEN
2282: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
2283: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_serial_number);
2284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2285: WSH_UTIL_CORE.Add_Message(x_return_status);
2286: --
2279: --RTV changes
2280:
2281: IF l_success < 0 THEN
2282: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
2283: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_serial_number);
2284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2285: WSH_UTIL_CORE.Add_Message(x_return_status);
2286: --
2287: -- Debug Statements
2343: l_success);
2344: END IF;
2345: --RTV changes
2346: IF l_success < 0 THEN
2347: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2348: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2349: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2350: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2351: WSH_UTIL_CORE.Add_Message(l_return_status);
2344: END IF;
2345: --RTV changes
2346: IF l_success < 0 THEN
2347: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2348: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2349: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2350: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2351: WSH_UTIL_CORE.Add_Message(l_return_status);
2352: END IF;
2345: --RTV changes
2346: IF l_success < 0 THEN
2347: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
2348: FND_MESSAGE.SET_TOKEN('FM_SERIAL',c.fm_serial_number);
2349: FND_MESSAGE.SET_TOKEN('TO_SERIAL',c.to_serial_number);
2350: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2351: WSH_UTIL_CORE.Add_Message(l_return_status);
2352: END IF;
2353:
2473: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2475: END IF;
2476: IF p_serial_number_code IS NULL THEN
2477: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SER_CODE_UNMARK');
2478: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2479: WSH_UTIL_CORE.Add_Message(x_return_status);
2480: --
2481: -- Debug Statements
2521: END IF; --}
2522: --RTV changes
2523: --
2524: IF p_serial_number_code = 1 AND NVL(l_efc_serial_control,1) = 1 THEN --RTV changes
2525: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SER_CODE_UNMARK');
2526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2527: WSH_UTIL_CORE.Add_Message(x_return_status);
2528: --
2529: -- Debug Statements
2535: return;
2536: END IF;
2537:
2538: IF p_serial_number IS NOT NULL AND p_transaction_temp_id IS NOT NULL THEN
2539: FND_MESSAGE.SET_NAME('WSH','WSH_DET_TRX_SERIAL_INVALID');
2540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2541: WSH_UTIL_CORE.Add_Message(x_return_status);
2542: --
2543: -- Debug Statements
2623: DELETE FROM MTL_SERIAL_NUMBERS_TEMP
2624: WHERE transaction_temp_id = p_transaction_temp_id;
2625:
2626: IF SQLCODE <> 0 THEN
2627: FND_MESSAGE.SET_NAME('WSH','WSH_SER_TEMP_CLEAR_ERROR');
2628: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2629: WSH_UTIL_CORE.Add_Message(x_return_status);
2630: --
2631: -- Debug Statements
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);
2767: 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);
2767: END IF;
2768: g_item.inventory_item_id := p_inventory_item_id;
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);
2784: END IF;
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);
2784: END IF;
2785:
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);
2806: END IF;
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);
2806: END IF;
2807: l_locator.inventory_location_id := p_locator_id;
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);
2925: 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);
2925: END IF;
2926: g_item.inventory_item_id := p_inventory_item_id;
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);
2942: END IF;
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);
2942: END IF;
2943:
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);
3063: 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);
3063: END IF;
3064: g_item.inventory_item_id := p_inventory_item_id;
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);
3080: END IF;
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);
3080: END IF;
3081: g_sub.secondary_inventory_name := p_subinventory;
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);
3262: 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);
3262: END IF;
3263:
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);
3280: END IF;
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);
3280: END IF;
3281:
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);
3310: --
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);
3310: --
3311: -- Debug Statements
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);
3349: --
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);
3349: --
3350: -- Debug Statements
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);
3498: --
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);
3498: --
3499: -- Debug Statements
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);
3523: --
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);
3523: --
3524: -- Debug Statements
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);
3561: --
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);
3561: --
3562: -- Debug Statements
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);
3602: --
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);
3602: --
3603: -- Debug Statements
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);
3646: --
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);
3646: --
3647: -- Debug Statements
3784: IF (Check_Dup_Loc%ISOPEN) THEN
3785: CLOSE Check_Dup_Loc;
3786: END IF;
3787:
3788: FND_MESSAGE.SET_NAME('WSH','WSH_INV_DUP_LOCATOR');
3789: FND_MESSAGE.SET_TOKEN('SUBINV',p_subinventory);
3790: --
3791: -- Debug Statements
3792: --
3785: CLOSE Check_Dup_Loc;
3786: END IF;
3787:
3788: FND_MESSAGE.SET_NAME('WSH','WSH_INV_DUP_LOCATOR');
3789: FND_MESSAGE.SET_TOKEN('SUBINV',p_subinventory);
3790: --
3791: -- Debug Statements
3792: --
3793: IF l_debug_on THEN
3794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3795: END IF;
3796: --
3797: l_temp := WSH_UTIL_CORE.Get_Org_Name(p_organization_id);
3798: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_temp);
3799: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3800: WSH_UTIL_CORE.Add_Message(x_return_status);
3801:
3802: --
3819: WHERE organization_id = p_organization_id
3820: AND inventory_location_id = p_locator_id;
3821:
3822: IF SQL%NOTFOUND THEN
3823: FND_MESSAGE.SET_NAME('FND','SQLERRM');
3824: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3825: WSH_UTIL_CORE.Add_Message(x_return_status);
3826: --
3827: -- Debug Statements
3923: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3924: END IF;
3925: --
3926: IF p_delivery_detail_id IS NULL THEN
3927: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
3928: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3929: l_ser_qty := -99;
3930: --
3931: -- Debug Statements
3947: l_ser_num;
3948:
3949: IF Get_Detail_Info%NOTFOUND THEN
3950: CLOSE Get_Detail_Info;
3951: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL');
3952: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3953: l_ser_qty := -99;
3954: --
3955: -- Debug Statements
3977: return l_ser_qty;
3978: END IF;
3979:
3980: IF l_trx_id IS NOT NULL AND l_ser_num IS NOT NULL THEN
3981: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
3982: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3983: l_ser_qty := -99;
3984: --
3985: -- Debug Statements
3991: return l_ser_qty;
3992: END IF;
3993:
3994: IF l_trx_id IS NOT NULL AND nvl(l_shp_qty,0) < 1 THEN
3995: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
3996: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3997: l_ser_qty := -99;
3998: --
3999: -- Debug Statements
4012: FETCH Get_Ser_Qty INTO l_ser_qty;
4013:
4014: IF Get_Ser_Qty%NOTFOUND THEN
4015: CLOSE Get_Ser_Qty;
4016: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRX_ID');
4017: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4018: l_ser_qty := -99;
4019: --
4020: -- Debug Statements
4044: -- nvl the shp qty to 2 in this case because the shp qty cannot be null and
4045: -- have a valid serial number populated. this is data corruption.
4046:
4047: IF l_ser_num IS NOT NULL AND nvl(l_shp_qty,2) > 1 THEN
4048: FND_MESSAGE.SET_NAME('WSH','WSH_DETAIL_INVALID_SERIAL');
4049: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4050: l_ser_qty := -99;
4051: --
4052: -- Debug Statements
4554: END IF;
4555:
4556: WHEN WSH_INVALID_SER_NUM THEN
4557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4558: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SER_NUM');
4559: WSH_UTIL_CORE.Add_Message(x_return_status);
4560: IF l_debug_on THEN
4561: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_SER_NUM');
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;
4686: g_item.inventory_item_id := p_inventory_item_id;
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;
4686: g_item.inventory_item_id := p_inventory_item_id;
4687:
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;
4704:
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;
4704:
4705: g_sub.secondary_inventory_name := p_subinventory;
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;
4734:
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;
4734:
4735: g_loc.inventory_location_id := p_locator_id;
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;
4766: END IF;
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;
4766: END IF;
4767:
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;
4801: END IF;
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;
4801: END IF;
4802:
5081: wsh_debug_sv.log(l_module_name, 'Quantity', l_quantity);
5082: wsh_debug_sv.log(l_module_name, 'Prefix', l_prefix);
5083: END IF;
5084: IF (l_quantity <> p_quantity) THEN
5085: fnd_message.set_name('WSH', 'WSH_SERIAL_NUM_WRG_RANGE');
5086: RAISE FND_API.G_EXC_ERROR;
5087: END IF;
5088:
5089: x_prefix := l_prefix;
5190: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) OR
5191: (l_wms_table(1).return_status = 'E')
5192: THEN
5193: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5194: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CATCHWEIGHT');
5195: FND_MESSAGE.SET_TOKEN('DEL_DET', p_line_inv_rec.delivery_detail_id);
5196: WSH_UTIL_CORE.Add_Message(x_return_status);
5197: END IF;
5198:
5191: (l_wms_table(1).return_status = 'E')
5192: THEN
5193: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5194: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CATCHWEIGHT');
5195: FND_MESSAGE.SET_TOKEN('DEL_DET', p_line_inv_rec.delivery_detail_id);
5196: WSH_UTIL_CORE.Add_Message(x_return_status);
5197: END IF;
5198:
5199: IF l_debug_on THEN
5309: -- At this point, l_cache_rec has the cache information.
5310: -- you can alternately use g_item_tab(l_index).
5311:
5312: IF l_cache_rec.valid_flag = 'N' THEN
5313: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
5314: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5315: wsh_util_core.add_message(x_return_status,l_module_name);
5316:
5317: IF l_debug_on THEN
5458: FETCH Fetch_Detail_Info INTO l_source_code,l_source_header_id,l_source_line_id; --RTV changes
5459:
5460: IF Fetch_Detail_Info%NOTFOUND THEN
5461: CLOSE Fetch_Detail_Info;
5462: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_ID');
5463: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5464: WSH_UTIL_CORE.Add_Message(x_return_status);
5465:
5466: IF l_debug_on THEN
5497: END IF;
5498: --
5499: IF NOT l_success THEN
5500: --
5501: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
5502: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_from_serial_number);
5503: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5504: WSH_UTIL_CORE.Add_Message(x_return_status);
5505: --
5498: --
5499: IF NOT l_success THEN
5500: --
5501: FND_MESSAGE.SET_NAME('WSH','WSH_SERIAL_MARK_ERROR');
5502: FND_MESSAGE.SET_TOKEN('SERIAL_NUM',p_from_serial_number);
5503: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5504: WSH_UTIL_CORE.Add_Message(x_return_status);
5505: --
5506: IF l_debug_on THEN