[Home] [Help]
119:
120:
121: BEGIN
122:
123: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
124: l_hash_exists := FALSE;
125: -- need to hash this index
126: -- Key (for hash) : Organization_id || Inventory_item_id
127:
193: l_index NUMBER;
194: l_hash_exists BOOLEAN := FALSE;
195: l_flag VARCHAR2(1);
196: BEGIN
197: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
198: l_hash_exists := FALSE;
199: -- need to hash this index
200: -- Key (for hash) : Organization_id || '-' || Inventory_item_id
201: l_hash_string := to_char(p_organization_id) || '-' || to_char(p_inventory_item_id);
392: IF l_debug_on THEN
393: WSH_DEBUG_SV.push(l_module_name);
394: END IF;
395:
396: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
397:
398:
399: IF p_organization_id IS NOT NULL THEN
400:
423: x_mtl_org_param_rec.negative_inv_receipt_code := l_cache_rec.negative_inv_receipt_code;
424: x_mtl_org_param_rec.serial_number_type := l_cache_rec.serial_number_type;
425:
426: ELSE -- Org is is null
427: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
428: IF l_debug_on THEN
429: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
430: END IF;
431: --
438:
439: EXCEPTION
440:
441: WHEN others THEN
442: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
443: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
444:
445: IF l_debug_on THEN
446: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
439: EXCEPTION
440:
441: WHEN others THEN
442: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
443: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
444:
445: IF l_debug_on THEN
446: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
495: IF l_debug_on THEN
496: WSH_DEBUG_SV.push(l_module_name);
497: END IF;
498:
499: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
500:
501:
502: IF p_organization_id IS NOT NULL THEN
503:
523:
524: x_mtl_sec_inv_rec.locator_type := l_cache_rec.locator_type;
525:
526: ELSE -- Org is is null
527: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
528: IF l_debug_on THEN
529: WSH_DEBUG_SV.pop(l_module_name, x_return_status);
530: END IF;
531: --
538:
539: EXCEPTION
540:
541: WHEN others THEN
542: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
543: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
544:
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
539: EXCEPTION
540:
541: WHEN others THEN
542: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
543: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
544:
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
547: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
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
723: WSH_DEBUG_SV.pop(l_module_name);
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
723: WSH_DEBUG_SV.pop(l_module_name);
724: END IF;
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
753: WSH_DEBUG_SV.pop(l_module_name);
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
753: WSH_DEBUG_SV.pop(l_module_name);
754: END IF;
789: x_inv_controls_rec.restrict_loc := NULL;
790: x_inv_controls_rec.restrict_sub := NULL;
791: x_inv_controls_rec.location_control_code := NULL;
792: x_inv_controls_rec.serial_code := NULL;
793: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
794: --
795: --Bug#13949115 start
796: IF l_locator_id IS NOT NULL AND
797: l_inv_item_id IS NULL AND
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
912: WSH_DEBUG_SV.pop(l_module_name);
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
912: WSH_DEBUG_SV.pop(l_module_name);
913: END IF;
1002: l_inv_item_id,
1003: l_dft_subinv,
1004: x_return_status);
1005: --
1006: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1007: l_dft_subinv := NULL;
1008: END IF;
1009: --}
1010: END IF;
1059: x_inv_controls_rec.restrict_loc := l_restrict_loc_code;
1060: x_inv_controls_rec.restrict_sub := l_restrict_sub_code;
1061: x_inv_controls_rec.serial_code := l_serial_number_code;
1062: x_inv_controls_rec.location_control_code := l_loc_ctl_code;
1063: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1064: --
1065: IF l_debug_on THEN
1066: WSH_DEBUG_SV.log(l_module_name,'X_INV_CONTROLS_REC.LOC_FLAG',x_inv_controls_rec.loc_flag);
1067: WSH_DEBUG_SV.log(l_module_name,'X_INV_CONTROLS_REC.SER_FLAG',x_inv_controls_rec.ser_flag);
1084: IF Get_Inv_Controls%ISOPEN THEN
1085: CLOSE Get_Inv_Controls;
1086: END IF;
1087:
1088: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
1089: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1090:
1091: --
1092: -- Debug Statements
1085: CLOSE Get_Inv_Controls;
1086: END IF;
1087:
1088: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
1089: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1090:
1091: --
1092: -- Debug Statements
1093: --
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;
1166: */
1208: p_line_inv_rec.subinventory,
1209: l_inv_controls_rec,
1210: x_return_status);
1211:
1212: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1213: x_details_required := FALSE;
1214: --
1215: -- Debug Statements
1216: --
1232: AND l_inv_controls_rec.restrict_sub IS NULL
1233: AND l_inv_controls_rec.location_control_code IS NULL
1234: AND l_inv_controls_rec.serial_code IS NULL THEN
1235: x_details_required := FALSE;
1236: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1237: --
1238: -- Debug Statements
1239: --
1240: IF l_debug_on THEN
1249: -- details required will be governed by the item attributes.
1250:
1251: IF (nvl(p_line_inv_rec.shp_qty,-99) = 0 ) THEN
1252: x_details_required := FALSE;
1253: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1254: --
1255: -- Debug Statements
1256: --
1257: IF l_debug_on THEN
1262: END IF;
1263:
1264: IF (p_line_inv_rec.revision IS NULL) AND (l_inv_controls_rec.rev_flag = 'Y') THEN
1265: x_details_required := TRUE;
1266: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1267: --
1268: -- Debug Statements
1269: --
1270: IF l_debug_on THEN
1275: END IF;
1276:
1277: IF (p_line_inv_rec.lot_number IS NULL) AND (l_inv_controls_rec.lot_flag = 'Y' ) THEN
1278: x_details_required := TRUE;
1279: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1280: --
1281: -- Debug Statements
1282: --
1283: IF l_debug_on THEN
1317: p_line_inv_rec.inventory_item_id,
1318: dft_subinv,
1319: x_return_status);
1320:
1321: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1322: x_details_required := FALSE;
1323: --
1324: -- Debug Statements
1325: --
1331: END IF;
1332:
1333: IF ( dft_subinv IS NULL ) THEN
1334: x_details_required := TRUE;
1335: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1336: --
1337: -- Debug Statements
1338: --
1339: IF l_debug_on THEN
1410: loc_restricted_flag);
1411:
1412: IF ( dft_loc_id IS NULL ) THEN
1413: x_details_required := TRUE;
1414: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1415: --
1416: -- Debug Statements
1417: --
1418: IF l_debug_on THEN
1447: p_line_inv_rec.delivery_detail_id);
1448:
1449: IF nvl(l_ser_qty,-99) = -99 THEN
1450: x_details_required := TRUE;
1451: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1452: --
1453: -- Debug Statements
1454: --
1455: IF l_debug_on THEN
1467: (p_line_inv_rec.shp_qty IS NULL AND
1468: ((p_line_inv_rec.serial_number_control_code <> 1 AND nvl(l_inv_controls_rec.ser_flag, 'N') IN ('Y','D') ) OR
1469: (p_line_inv_rec.serial_number_control_code = 1 AND nvl(l_inv_controls_rec.ser_flag, 'N') = 'Y')) ) THEN
1470: x_details_required := TRUE;
1471: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1472: --
1473: -- Debug Statements
1474: --
1475: IF l_debug_on THEN
1480: END IF;
1481: END IF;
1482:
1483: -- x_details_required := FALSE;
1484: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1485:
1486: --
1487: -- Debug Statements
1488: --
1492: --
1493: EXCEPTION
1494:
1495: WHEN Others THEN
1496: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1497: x_details_required := FALSE;
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1499:
1500: --
1494:
1495: WHEN Others THEN
1496: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1497: x_details_required := FALSE;
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1499:
1500: --
1501: -- Debug Statements
1502: --
1559: Get_Sec_Inv_information(p_organization_id => p_organization_id
1560: , p_subinventory_name => p_subinventory
1561: , x_mtl_sec_inv_rec => l_mtl_sec_inv_rec
1562: , x_return_status => l_return_status);
1563: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1564: RAISE FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: l_sub_loc_ctl := l_mtl_sec_inv_rec.locator_type;
1572: --
1573: RETURN l_sub_loc_ctl;
1574: EXCEPTION
1575: WHEN FND_API.G_EXC_ERROR THEN
1576: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: WSH_UTIL_CORE.Add_Message(l_return_status);
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1573: RETURN l_sub_loc_ctl;
1574: EXCEPTION
1575: WHEN FND_API.G_EXC_ERROR THEN
1576: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: WSH_UTIL_CORE.Add_Message(l_return_status);
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1581: END IF;
1629: p_organization_id => p_organization_id
1630: , x_mtl_org_param_rec => l_mtl_org_param_rec
1631: , x_return_status => l_return_status);
1632:
1633: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1634: RAISE FND_API.G_EXC_ERROR;
1635: END IF;
1636:
1637: l_org_loc_ctl := l_mtl_org_param_rec.stock_locator_control_code;
1644: RETURN l_org_loc_ctl;
1645:
1646: EXCEPTION
1647: WHEN FND_API.G_EXC_ERROR THEN
1648: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1649: WSH_UTIL_CORE.Add_Message(l_return_status);
1650: IF l_debug_on THEN
1651: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1645:
1646: EXCEPTION
1647: WHEN FND_API.G_EXC_ERROR THEN
1648: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1649: WSH_UTIL_CORE.Add_Message(l_return_status);
1650: IF l_debug_on THEN
1651: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1653: END IF;
1717:
1718: IF Default_Sub%NOTFOUND THEN
1719: CLOSE Default_Sub;
1720: x_default_sub := NULL;
1721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1722: --
1723: -- Debug Statements
1724: --
1725: IF l_debug_on THEN
1733: CLOSE Default_Sub;
1734: END IF;
1735:
1736: x_default_sub := l_dflt_sub;
1737: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1738:
1739: --
1740: -- Debug Statements
1741: --
1745: --
1746: EXCEPTION
1747:
1748: WHEN Others THEN
1749: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1751:
1752: --
1753: -- Debug Statements
1746: EXCEPTION
1747:
1748: WHEN Others THEN
1749: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1751:
1752: --
1753: -- Debug Statements
1754: --
1927: p_organization_id => p_org_id
1928: , x_mtl_org_param_rec => l_mtl_org_param_rec
1929: , x_return_status => l_return_status);
1930:
1931: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934:
1935: l_neg_inv_code := l_mtl_org_param_rec.negative_inv_receipt_code;
2076:
2077: EXCEPTION
2078:
2079: WHEN FND_API.G_EXC_ERROR THEN
2080: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2081: WSH_UTIL_CORE.Add_Message(l_return_status);
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2077: EXCEPTION
2078:
2079: WHEN FND_API.G_EXC_ERROR THEN
2080: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2081: WSH_UTIL_CORE.Add_Message(l_return_status);
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2085: END IF;
2084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2085: END IF;
2086:
2087: WHEN others THEN
2088: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code');
2089:
2090: --
2091: -- Debug Statements
2092: --
2154: l_source_line_id NUMBER;
2155: --RTV changes
2156:
2157: l_success NUMBER;
2158: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2159:
2160:
2161: --
2162: l_debug_on BOOLEAN;
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
2198: --
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
2198: --
2199: IF l_debug_on THEN
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
2216: --
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
2216: --
2217: IF l_debug_on THEN
2228: FETCH c_temp_id INTO l_transaction_temp_id;
2229: IF c_temp_id%NOTFOUND THEN
2230: --{
2231: CLOSE c_temp_id;
2232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2233: --
2234: IF l_debug_on THEN
2235: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
2236: WSH_DEBUG_SV.pop(l_module_name);
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
2288: --
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
2288: --
2289: IF l_debug_on THEN
2292: --
2293: return;
2294: END IF;
2295:
2296: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2297: --
2298: -- Debug Statements
2299: --
2300: IF l_debug_on THEN
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:
2354: END LOOP;
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:
2354: END LOOP;
2355:
2352: END IF;
2353:
2354: END LOOP;
2355:
2356: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2357: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2358: --
2359: -- Debug Statements
2360: --
2353:
2354: END LOOP;
2355:
2356: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2357: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2358: --
2359: -- Debug Statements
2360: --
2361: IF l_debug_on THEN
2364: --
2365: return;
2366: END IF;
2367:
2368: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2369:
2370: END IF;
2371:
2372: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2368: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2369:
2370: END IF;
2371:
2372: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2373:
2374: --
2375: -- Debug Statements
2376: --
2380: --
2381: EXCEPTION
2382:
2383: WHEN OTHERS THEN
2384: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2386:
2387: --
2388: -- Debug Statements
2381: EXCEPTION
2382:
2383: WHEN OTHERS THEN
2384: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2386:
2387: --
2388: -- Debug Statements
2389: --
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
2482: --
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
2482: --
2483: IF l_debug_on THEN
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
2530: --
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
2530: --
2531: IF l_debug_on THEN
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
2544: --
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
2544: --
2545: IF l_debug_on THEN
2576: AND (group_mark_id IS NULL or group_mark_id = -1);
2577: END IF;
2578: --Bugfix 8517694 End
2579:
2580: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2581: --
2582: -- Debug Statements
2583: --
2584: IF l_debug_on THEN
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
2632: --
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
2632: --
2633: IF l_debug_on THEN
2645: AND (group_mark_id IS NULL or group_mark_id = -1);
2646: END IF;
2647: --Bugfix 8517694 End
2648:
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2650: --
2651: -- Debug Statements
2652: --
2653: IF l_debug_on THEN
2657: return;
2658:
2659: END IF;
2660:
2661: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2662:
2663: --
2664: -- Debug Statements
2665: --
2674: IF (Fetch_Item_details%ISOPEN) THEN
2675: CLOSE Fetch_Item_details;
2676: END IF;
2677: --RTV changes
2678: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2680:
2681: --
2682: -- Debug Statements
2675: CLOSE Fetch_Item_details;
2676: END IF;
2677: --RTV changes
2678: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2680:
2681: --
2682: -- Debug Statements
2683: --
2747: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
2748: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
2749: END IF;
2750: --
2751: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2752:
2753: g_org.organization_id := p_organization_id;
2754: --
2755: -- Debug Statements
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;
2769: --
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;
2769: --
2770: -- Debug Statements
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:
2786: g_sub.secondary_inventory_name := p_subinventory;
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:
2786: g_sub.secondary_inventory_name := p_subinventory;
2787: --
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;
2808:
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;
2808:
2809: --
2843: --
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
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: --
2906: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2907: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2908: END IF;
2909: --
2910: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2911: g_org.organization_id := p_organization_id;
2912: --
2913: -- Debug Statements
2914: --
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;
2927: --
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;
2927: --
2928: -- Debug Statements
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:
2944: --
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:
2944: --
2945: -- Debug Statements
2968: END IF;
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
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: --
3044: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
3045: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
3046: END IF;
3047: --
3048: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3049: g_org.organization_id := p_organization_id;
3050: --
3051: -- Debug Statements
3052: --
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;
3065: --
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;
3065: --
3066: -- Debug Statements
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;
3082:
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;
3082:
3083: IF p_to_subinventory IS NULL THEN
3158: --
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
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: --
3238: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
3239: WSH_DEBUG_SV.log(l_module_name,'p_lpn_id',p_lpn_id);
3240: END IF;
3241: --
3242: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3243: g_org.organization_id := p_organization_id;
3244: g_item.inventory_item_id := p_inventory_item_id;
3245: g_loc.inventory_location_id := p_locator_id;
3246: g_lot.lot_number := p_lot_number;
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:
3264: g_item.inventory_item_id := p_inventory_item_id;
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:
3264: g_item.inventory_item_id := p_inventory_item_id;
3265: --
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:
3282: g_sub.secondary_inventory_name := p_subinventory;
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:
3282: g_sub.secondary_inventory_name := p_subinventory;
3283: --
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
3312: --
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
3312: --
3313: IF l_debug_on THEN
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
3351: --
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
3351: --
3352: IF l_debug_on THEN
3400: END IF;
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
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: --
3479: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
3480: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
3481: END IF;
3482: --
3483: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3484: g_org.organization_id := p_organization_id;
3485: --
3486: -- Debug Statements
3487: --
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
3500: --
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
3500: --
3501: IF l_debug_on THEN
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
3525: --
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
3525: --
3526: IF l_debug_on THEN
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
3563: --
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
3563: --
3564: IF l_debug_on THEN
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
3604: --
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
3604: --
3605: IF l_debug_on THEN
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
3648: --
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
3648: --
3649: IF l_debug_on THEN
3699: --
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
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: --
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);
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:
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: --
3803: -- Debug Statements
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: --
3803: -- Debug Statements
3804: --
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
3828: --
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
3828: --
3829: IF l_debug_on THEN
3832: --
3833: return;
3834: END IF;
3835:
3836: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3837:
3838: --
3839: -- Debug Statements
3840: --
3844: --
3845: EXCEPTION
3846:
3847: WHEN OTHERS THEN
3848: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3850:
3851: --
3852: -- Debug Statements
3845: EXCEPTION
3846:
3847: WHEN OTHERS THEN
3848: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3850:
3851: --
3852: -- Debug Statements
3853: --
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
3932: --
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
3956: --
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
3986: --
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
4000: --
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
4021: --
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
4053: --
4069:
4070: EXCEPTION
4071:
4072: WHEN OTHERS THEN
4073: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty');
4074: l_ser_qty := -99;
4075: --
4076: --
4077: -- Debug Statements
4147: , p_inventory_item_id => x_item_id
4148: , x_mtl_system_items_rec => l_item_info
4149: , x_return_status => l_return_status);
4150:
4151: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4152: RAISE FND_API.G_EXC_ERROR;
4153: END IF;
4154:
4155: l_type := l_item_info.reservable_type;
4175:
4176: EXCEPTION
4177:
4178: WHEN FND_API.G_EXC_ERROR THEN
4179: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4180: WSH_UTIL_CORE.Add_Message(l_return_status);
4181: IF l_debug_on THEN
4182: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4183: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4176: EXCEPTION
4177:
4178: WHEN FND_API.G_EXC_ERROR THEN
4179: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4180: WSH_UTIL_CORE.Add_Message(l_return_status);
4181: IF l_debug_on THEN
4182: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4183: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4184: END IF;
4185: --
4186: return 'Y';
4187:
4188: WHEN OTHERS THEN
4189: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.get_reservable_flag');
4190: --
4191: -- Debug Statements
4192: --
4193: IF l_debug_on THEN
4229: g_cache_organization_id NUMBER := NULL;
4230: g_cache_reservable_flag VARCHAR(1) := NULL;
4231:
4232:
4233: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4234: l_reservable_type NUMBER;
4235: l_mtl_txns_enabled_flag VARCHAR2(1);
4236: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
4237: l_debug_on BOOLEAN;
4261: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
4262: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
4263: END IF;
4264: --
4265: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4266: IF p_pickable_flag = 'N'
4267: OR p_source_code IN ('OKE', 'WSH')
4268: OR p_released_status IN ('N', 'R', 'S', 'X') THEN
4269: --
4293: , p_inventory_item_id => p_inventory_item_id
4294: , x_mtl_system_items_rec => l_item_info
4295: , x_return_status => l_return_status);
4296:
4297: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4298: RAISE FND_API.G_EXC_ERROR;
4299: END IF;
4300:
4301: l_reservable_type := l_item_info.reservable_type;
4321:
4322: EXCEPTION
4323:
4324: WHEN FND_API.G_EXC_ERROR THEN
4325: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4326: WSH_UTIL_CORE.Add_Message(x_return_status);
4327: IF l_debug_on THEN
4328: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4329: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4322: EXCEPTION
4323:
4324: WHEN FND_API.G_EXC_ERROR THEN
4325: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4326: WSH_UTIL_CORE.Add_Message(x_return_status);
4327: IF l_debug_on THEN
4328: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4329: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4330: END IF;
4329: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4330: END IF;
4331:
4332: WHEN OTHERS THEN
4333: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4335: --
4336: -- Debug Statements
4337: --
4330: END IF;
4331:
4332: WHEN OTHERS THEN
4333: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4335: --
4336: -- Debug Statements
4337: --
4338: IF l_debug_on THEN
4415: WSH_DEBUG_SV.log(l_module_name,'p_source_document_type_id',p_source_document_type_id);
4416:
4417: END IF;
4418: --
4419: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4420:
4421: IF p_serial_number_type_id IS NULL THEN
4422:
4423: -- bug 5264874
4425: p_organization_id => p_organization_id
4426: , x_mtl_org_param_rec => l_mtl_org_param_rec
4427: , x_return_status => l_return_status);
4428:
4429: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4430: RAISE FND_API.G_EXC_ERROR;
4431: END IF;
4432:
4433: serial_number_type := l_mtl_org_param_rec.serial_number_type;
4545: -- RTV Changes
4546: IF c_header_info%ISOPEN THEN
4547: close c_header_info;
4548: END IF;
4549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4550: WSH_UTIL_CORE.Add_Message(x_return_status);
4551: IF l_debug_on THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4553: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4546: IF c_header_info%ISOPEN THEN
4547: close c_header_info;
4548: END IF;
4549: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4550: WSH_UTIL_CORE.Add_Message(x_return_status);
4551: IF l_debug_on THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4553: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4554: END IF;
4553: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
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);
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');
4563: END IF;
4565: WHEN others THEN
4566: IF c_header_info%ISOPEN THEN
4567: close c_header_info;
4568: END IF;
4569: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial');
4570:
4571: --
4572: -- Debug Statements
4573: --
4664: WSH_DEBUG_SV.log(l_module_name, 'Quantity', p_quantity);
4665: WSH_DEBUG_SV.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
4666: WSH_DEBUG_SV.log(l_module_name, 'p_object_type', p_object_type);
4667: END IF;
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);
4904: END IF;
4905:
4906: EXCEPTION
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4909: WSH_UTIL_CORE.Add_Message(x_return_status);
4910: IF l_debug_on THEN
4911: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4905:
4906: EXCEPTION
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4909: WSH_UTIL_CORE.Add_Message(x_return_status);
4910: IF l_debug_on THEN
4911: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4913: END IF;
4912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
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');
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;
4985: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
4986: WSH_DEBUG_SV.log(l_module_name, 'P_QUANTITY',p_quantity);
4987: END IF;
4988:
4989: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4990:
4991: -- bug 5264874
4992: Get_Org_Param_information (p_organization_id => p_organization_id
4993: , x_mtl_org_param_rec => l_mtl_org_param_rec
4992: Get_Org_Param_information (p_organization_id => p_organization_id
4993: , x_mtl_org_param_rec => l_mtl_org_param_rec
4994: , x_return_status => l_return_status);
4995:
4996: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4997: RAISE FND_API.G_EXC_ERROR;
4998: END IF;
4999:
5000: l_serial_number_type := l_mtl_org_param_rec.serial_number_type;
5093: END IF;
5094:
5095: EXCEPTION
5096: WHEN FND_API.G_EXC_ERROR THEN
5097: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5098: WSH_UTIL_CORE.Add_Message(x_return_status);
5099: IF l_debug_on THEN
5100: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5101: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5094:
5095: EXCEPTION
5096: WHEN FND_API.G_EXC_ERROR THEN
5097: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5098: WSH_UTIL_CORE.Add_Message(x_return_status);
5099: IF l_debug_on THEN
5100: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5101: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5102: END IF;
5111: --RTV changes
5112: IF c_header_info%ISOPEN THEN
5113: close c_header_info;
5114: END IF;
5115: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5116: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
5117:
5118: IF l_debug_on THEN
5119: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5112: IF c_header_info%ISOPEN THEN
5113: close c_header_info;
5114: END IF;
5115: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5116: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
5117:
5118: IF l_debug_on THEN
5119: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5154: WSH_DEBUG_SV.push(l_module_name);
5155: WSH_DEBUG_SV.log(l_module_name,'p_line_inv_rec.delivery_detail_id', p_line_inv_rec.delivery_detail_id);
5156: END IF;
5157:
5158: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5159:
5160: IF l_debug_on THEN
5161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.process_delivery_details',WSH_DEBUG_SV.C_PROC_LEVEL);
5162: END IF;
5186: WSH_DEBUG_SV.log(l_module_name,'return status after calling WMS_SHIPPING_INTERFACE_GRP.process_delivery_details', x_return_status);
5187: WSH_DEBUG_SV.log(l_module_name,'status of dd after calling WMS_SHIPPING_INTERFACE_GRP.process_delivery_details', l_wms_table(1).return_status);
5188: END IF;
5189:
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');
5189:
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;
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
5200: WSH_DEBUG_SV.pop(l_module_name);
5202:
5203: EXCEPTION
5204:
5205: WHEN others THEN
5206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5207: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
5208:
5209: IF l_debug_on THEN
5210: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5203: EXCEPTION
5204:
5205: WHEN others THEN
5206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5207: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
5208:
5209: IF l_debug_on THEN
5210: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5211: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5264: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
5265: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
5266: END IF;
5267:
5268: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5269:
5270:
5271: IF (p_organization_id IS NOT NULL AND p_inventory_item_id IS NOT NULL) THEN
5272: l_cache_rec.organization_id := (p_organization_id);
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
5318: WSH_DEBUG_SV.pop(l_module_name);
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
5318: WSH_DEBUG_SV.pop(l_module_name);
5319: END IF;
5346: x_mtl_system_items_rec.reservable_type:=l_cache_rec.reservable_type;
5347: x_mtl_system_items_rec.mtl_transactions_enabled_flag:=l_cache_rec.mtl_transactions_enabled_flag;
5348:
5349: ELSE -- Both or one is NULL (Org and Inv_item)
5350: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5351: IF l_debug_on THEN
5352: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
5353: END IF;
5354: --
5375:
5376: EXCEPTION
5377:
5378: WHEN others THEN
5379: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5380: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5381:
5382: IF l_debug_on THEN
5383: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5376: EXCEPTION
5377:
5378: WHEN others THEN
5379: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5380: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5381:
5382: IF l_debug_on THEN
5383: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5384: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
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
5467: WSH_DEBUG_SV.pop(l_module_name);
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
5467: WSH_DEBUG_SV.pop(l_module_name);
5468: END IF;
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
5507: WSH_DEBUG_SV.log(l_module_name, 'Return status after INV API',
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
5507: WSH_DEBUG_SV.log(l_module_name, 'Return status after INV API',
5508: x_return_status);
5512: RETURN;
5513: --
5514: END IF;
5515: --
5516: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5517: --
5518: IF l_debug_on THEN
5519: WSH_DEBUG_SV.pop(l_module_name);
5520: END IF;
5522: EXCEPTION
5523: --
5524: WHEN OTHERS THEN
5525: --
5526: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5527: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5528: --
5529: IF l_debug_on THEN
5530: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5523: --
5524: WHEN OTHERS THEN
5525: --
5526: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5527: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5528: --
5529: IF l_debug_on THEN
5530: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5531: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5590: -- RTV changes
5591: l_rtv_shipment_line_id number;
5592:
5593: BEGIN
5594: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5595: --
5596: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5597: --
5598: IF l_debug_on IS NULL THEN
5610: OPEN c_order_line_info(p_source_line_id);
5611: FETCH c_order_line_info into l_order_line_info;
5612: IF c_order_line_info%NOTFOUND THEN
5613: CLOSE c_order_line_info;
5614: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5615: IF l_debug_on THEN
5616: WSH_DEBUG_SV.log(l_module_name, 'No data found for order line',p_source_line_id);
5617: WSH_DEBUG_SV.pop(l_module_name);
5618: END IF;
5625: OPEN c_po_info(l_order_line_info.source_document_line_id, l_order_line_info.source_document_id);
5626: FETCH c_po_info into l_po_info;
5627: IF c_po_info%NOTFOUND THEN
5628: CLOSE c_po_info;
5629: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5630: IF l_debug_on THEN
5631: WSH_DEBUG_SV.logmsg(l_module_name, 'No data found for PO '||l_order_line_info.source_document_line_id||' ,'||l_order_line_info.source_document_id);
5632: WSH_DEBUG_SV.pop(l_module_name);
5633: END IF;
5694: EXCEPTION
5695:
5696: WHEN OTHERS THEN
5697: --
5698: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5699: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5700: --
5701: IF c_order_line_info%isopen THEN
5702: CLOSE c_order_line_info;
5695:
5696: WHEN OTHERS THEN
5697: --
5698: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5699: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5700: --
5701: IF c_order_line_info%isopen THEN
5702: CLOSE c_order_line_info;
5703: END IF;