[Home] [Help]
115:
116:
117: BEGIN
118:
119: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
120: l_hash_exists := FALSE;
121: -- need to hash this index
122: -- Key (for hash) : Organization_id || Inventory_item_id
123:
293: IF l_debug_on THEN
294: WSH_DEBUG_SV.push(l_module_name);
295: END IF;
296:
297: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
298:
299:
300: IF p_organization_id IS NOT NULL THEN
301:
324: x_mtl_org_param_rec.negative_inv_receipt_code := l_cache_rec.negative_inv_receipt_code;
325: x_mtl_org_param_rec.serial_number_type := l_cache_rec.serial_number_type;
326:
327: ELSE -- Org is is null
328: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
329: IF l_debug_on THEN
330: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
331: END IF;
332: --
339:
340: EXCEPTION
341:
342: WHEN others THEN
343: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
344: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
340: EXCEPTION
341:
342: WHEN others THEN
343: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
344: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
348: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
396: IF l_debug_on THEN
397: WSH_DEBUG_SV.push(l_module_name);
398: END IF;
399:
400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
401:
402:
403: IF p_organization_id IS NOT NULL THEN
404:
424:
425: x_mtl_sec_inv_rec.locator_type := l_cache_rec.locator_type;
426:
427: ELSE -- Org is is null
428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.pop(l_module_name, x_return_status);
431: END IF;
432: --
439:
440: EXCEPTION
441:
442: WHEN others THEN
443: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
444: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
445:
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
440: EXCEPTION
441:
442: WHEN others THEN
443: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
444: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
445:
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
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
598: WSH_DEBUG_SV.pop(l_module_name);
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
598: WSH_DEBUG_SV.pop(l_module_name);
599: END IF;
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
619: WSH_DEBUG_SV.pop(l_module_name);
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
619: WSH_DEBUG_SV.pop(l_module_name);
620: END IF;
655: x_inv_controls_rec.restrict_loc := NULL;
656: x_inv_controls_rec.restrict_sub := NULL;
657: x_inv_controls_rec.location_control_code := NULL;
658: x_inv_controls_rec.serial_code := NULL;
659: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Case where l_inv_item_id IS NULL or line is Container');
663: WSH_DEBUG_SV.pop(l_module_name);
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
721: WSH_DEBUG_SV.pop(l_module_name);
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
721: WSH_DEBUG_SV.pop(l_module_name);
722: END IF;
770: l_inv_item_id,
771: l_dft_subinv,
772: x_return_status);
773: --
774: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
775: l_dft_subinv := NULL;
776: END IF;
777: --}
778: END IF;
827: x_inv_controls_rec.restrict_loc := l_restrict_loc_code;
828: x_inv_controls_rec.restrict_sub := l_restrict_sub_code;
829: x_inv_controls_rec.serial_code := l_serial_number_code;
830: x_inv_controls_rec.location_control_code := l_loc_ctl_code;
831: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
832: --
833: IF l_debug_on THEN
834: WSH_DEBUG_SV.log(l_module_name,'X_INV_CONTROLS_REC.LOC_FLAG',x_inv_controls_rec.loc_flag);
835: WSH_DEBUG_SV.log(l_module_name,'X_INV_CONTROLS_REC.SER_FLAG',x_inv_controls_rec.ser_flag);
852: IF Get_Inv_Controls%ISOPEN THEN
853: CLOSE Get_Inv_Controls;
854: END IF;
855:
856: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
858:
859: --
860: -- Debug Statements
853: CLOSE Get_Inv_Controls;
854: END IF;
855:
856: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
858:
859: --
860: -- Debug Statements
861: --
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;
934: */
976: p_line_inv_rec.subinventory,
977: l_inv_controls_rec,
978: x_return_status);
979:
980: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
981: x_details_required := FALSE;
982: --
983: -- Debug Statements
984: --
1000: AND l_inv_controls_rec.restrict_sub IS NULL
1001: AND l_inv_controls_rec.location_control_code IS NULL
1002: AND l_inv_controls_rec.serial_code IS NULL THEN
1003: x_details_required := FALSE;
1004: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1005: --
1006: -- Debug Statements
1007: --
1008: IF l_debug_on THEN
1017: -- details required will be governed by the item attributes.
1018:
1019: IF (nvl(p_line_inv_rec.shp_qty,-99) = 0 ) THEN
1020: x_details_required := FALSE;
1021: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1022: --
1023: -- Debug Statements
1024: --
1025: IF l_debug_on THEN
1030: END IF;
1031:
1032: IF (p_line_inv_rec.revision IS NULL) AND (l_inv_controls_rec.rev_flag = 'Y') THEN
1033: x_details_required := TRUE;
1034: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1035: --
1036: -- Debug Statements
1037: --
1038: IF l_debug_on THEN
1043: END IF;
1044:
1045: IF (p_line_inv_rec.lot_number IS NULL) AND (l_inv_controls_rec.lot_flag = 'Y' ) THEN
1046: x_details_required := TRUE;
1047: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1048: --
1049: -- Debug Statements
1050: --
1051: IF l_debug_on THEN
1085: p_line_inv_rec.inventory_item_id,
1086: dft_subinv,
1087: x_return_status);
1088:
1089: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1090: x_details_required := FALSE;
1091: --
1092: -- Debug Statements
1093: --
1099: END IF;
1100:
1101: IF ( dft_subinv IS NULL ) THEN
1102: x_details_required := TRUE;
1103: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1104: --
1105: -- Debug Statements
1106: --
1107: IF l_debug_on THEN
1175: loc_restricted_flag);
1176:
1177: IF ( dft_loc_id IS NULL ) THEN
1178: x_details_required := TRUE;
1179: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1180: --
1181: -- Debug Statements
1182: --
1183: IF l_debug_on THEN
1213: p_line_inv_rec.delivery_detail_id);
1214:
1215: IF nvl(l_ser_qty,-99) = -99 THEN
1216: x_details_required := TRUE;
1217: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1218: --
1219: -- Debug Statements
1220: --
1221: IF l_debug_on THEN
1229: END IF;
1230:
1231: IF (nvl(p_line_inv_rec.shp_qty,0)) > NVL(l_ser_qty, 0) THEN
1232: x_details_required := TRUE;
1233: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1234: --
1235: -- Debug Statements
1236: --
1237: IF l_debug_on THEN
1241: RETURN;
1242: END IF;
1243: IF (p_line_inv_rec.shp_qty IS NULL AND p_line_inv_rec.serial_number_control_code <> 1 ) THEN
1244: x_details_required := TRUE;
1245: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1246: --
1247: -- Debug Statements
1248: --
1249: IF l_debug_on THEN
1254: END IF;
1255: END IF;
1256:
1257: -- x_details_required := FALSE;
1258: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1259:
1260: --
1261: -- Debug Statements
1262: --
1266: --
1267: EXCEPTION
1268:
1269: WHEN Others THEN
1270: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1271: x_details_required := FALSE;
1272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1273:
1274: --
1268:
1269: WHEN Others THEN
1270: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1271: x_details_required := FALSE;
1272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1273:
1274: --
1275: -- Debug Statements
1276: --
1333: Get_Sec_Inv_information(p_organization_id => p_organization_id
1334: , p_subinventory_name => p_subinventory
1335: , x_mtl_sec_inv_rec => l_mtl_sec_inv_rec
1336: , x_return_status => l_return_status);
1337: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340:
1341: l_sub_loc_ctl := l_mtl_sec_inv_rec.locator_type;
1346: --
1347: RETURN l_sub_loc_ctl;
1348: EXCEPTION
1349: WHEN FND_API.G_EXC_ERROR THEN
1350: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1351: WSH_UTIL_CORE.Add_Message(l_return_status);
1352: IF l_debug_on THEN
1353: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1347: RETURN l_sub_loc_ctl;
1348: EXCEPTION
1349: WHEN FND_API.G_EXC_ERROR THEN
1350: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1351: WSH_UTIL_CORE.Add_Message(l_return_status);
1352: IF l_debug_on THEN
1353: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1355: END IF;
1403: p_organization_id => p_organization_id
1404: , x_mtl_org_param_rec => l_mtl_org_param_rec
1405: , x_return_status => l_return_status);
1406:
1407: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1408: RAISE FND_API.G_EXC_ERROR;
1409: END IF;
1410:
1411: l_org_loc_ctl := l_mtl_org_param_rec.stock_locator_control_code;
1418: RETURN l_org_loc_ctl;
1419:
1420: EXCEPTION
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1423: WSH_UTIL_CORE.Add_Message(l_return_status);
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1426: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1419:
1420: EXCEPTION
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1423: WSH_UTIL_CORE.Add_Message(l_return_status);
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1426: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1427: END IF;
1491:
1492: IF Default_Sub%NOTFOUND THEN
1493: CLOSE Default_Sub;
1494: x_default_sub := NULL;
1495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1496: --
1497: -- Debug Statements
1498: --
1499: IF l_debug_on THEN
1507: CLOSE Default_Sub;
1508: END IF;
1509:
1510: x_default_sub := l_dflt_sub;
1511: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1512:
1513: --
1514: -- Debug Statements
1515: --
1519: --
1520: EXCEPTION
1521:
1522: WHEN Others THEN
1523: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1525:
1526: --
1527: -- Debug Statements
1520: EXCEPTION
1521:
1522: WHEN Others THEN
1523: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1525:
1526: --
1527: -- Debug Statements
1528: --
1701: p_organization_id => p_org_id
1702: , x_mtl_org_param_rec => l_mtl_org_param_rec
1703: , x_return_status => l_return_status);
1704:
1705: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1706: RAISE FND_API.G_EXC_ERROR;
1707: END IF;
1708:
1709: l_neg_inv_code := l_mtl_org_param_rec.negative_inv_receipt_code;
1850:
1851: EXCEPTION
1852:
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1855: WSH_UTIL_CORE.Add_Message(l_return_status);
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1851: EXCEPTION
1852:
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1855: WSH_UTIL_CORE.Add_Message(l_return_status);
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1859: END IF;
1858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1859: END IF;
1860:
1861: WHEN others THEN
1862: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code');
1863:
1864: --
1865: -- Debug Statements
1866: --
1923: l_org_id NUMBER;
1924: l_transaction_temp_id NUMBER;
1925:
1926: l_success NUMBER;
1927: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1928:
1929:
1930: --
1931: l_debug_on BOOLEAN;
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
1967: --
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
1967: --
1968: IF l_debug_on THEN
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
1985: --
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
1985: --
1986: IF l_debug_on THEN
1997: FETCH c_temp_id INTO l_transaction_temp_id;
1998: IF c_temp_id%NOTFOUND THEN
1999: --{
2000: CLOSE c_temp_id;
2001: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2002: --
2003: IF l_debug_on THEN
2004: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
2005: WSH_DEBUG_SV.pop(l_module_name);
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
2044: --
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
2044: --
2045: IF l_debug_on THEN
2048: --
2049: return;
2050: END IF;
2051:
2052: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2053: --
2054: -- Debug Statements
2055: --
2056: IF l_debug_on THEN
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:
2097: END LOOP;
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:
2097: END LOOP;
2098:
2095: END IF;
2096:
2097: END LOOP;
2098:
2099: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2100: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2101: --
2102: -- Debug Statements
2103: --
2096:
2097: END LOOP;
2098:
2099: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2100: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2101: --
2102: -- Debug Statements
2103: --
2104: IF l_debug_on THEN
2107: --
2108: return;
2109: END IF;
2110:
2111: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2112:
2113: END IF;
2114:
2115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2111: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2112:
2113: END IF;
2114:
2115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2116:
2117: --
2118: -- Debug Statements
2119: --
2123: --
2124: EXCEPTION
2125:
2126: WHEN OTHERS THEN
2127: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2129:
2130: --
2131: -- Debug Statements
2124: EXCEPTION
2125:
2126: WHEN OTHERS THEN
2127: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2129:
2130: --
2131: -- Debug Statements
2132: --
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
2219: --
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
2219: --
2220: IF l_debug_on THEN
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
2233: --
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
2233: --
2234: IF l_debug_on THEN
2263: NULL,
2264: NULL,
2265: l_inventory_item_id);
2266:
2267: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2268: --
2269: -- Debug Statements
2270: --
2271: IF l_debug_on THEN
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
2319: --
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
2319: --
2320: IF l_debug_on THEN
2323: --
2324: return;
2325: END IF;
2326:
2327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2328: --
2329: -- Debug Statements
2330: --
2331: IF l_debug_on THEN
2335: return;
2336:
2337: END IF;
2338:
2339: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2340:
2341: --
2342: -- Debug Statements
2343: --
2347: --
2348: EXCEPTION
2349:
2350: WHEN OTHERS THEN
2351: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2352: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2353:
2354: --
2355: -- Debug Statements
2348: EXCEPTION
2349:
2350: WHEN OTHERS THEN
2351: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2352: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2353:
2354: --
2355: -- Debug Statements
2356: --
2420: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
2421: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
2422: END IF;
2423: --
2424: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2425:
2426: g_org.organization_id := p_organization_id;
2427: --
2428: -- Debug Statements
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;
2442: --
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;
2442: --
2443: -- Debug Statements
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:
2459: g_sub.secondary_inventory_name := p_subinventory;
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:
2459: g_sub.secondary_inventory_name := p_subinventory;
2460: --
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;
2481:
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;
2481:
2482: --
2516: --
2517: EXCEPTION
2518:
2519: WHEN others THEN
2520: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2521: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2522:
2523: --
2524: -- Debug Statements
2517: EXCEPTION
2518:
2519: WHEN others THEN
2520: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2521: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2522:
2523: --
2524: -- Debug Statements
2525: --
2579: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2580: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2581: END IF;
2582: --
2583: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2584: g_org.organization_id := p_organization_id;
2585: --
2586: -- Debug Statements
2587: --
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;
2600: --
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;
2600: --
2601: -- Debug Statements
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:
2617: --
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:
2617: --
2618: -- Debug Statements
2641: END IF;
2642: --
2643: EXCEPTION
2644: WHEN others THEN
2645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2646: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2647:
2648: --
2649: -- Debug Statements
2642: --
2643: EXCEPTION
2644: WHEN others THEN
2645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2646: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2647:
2648: --
2649: -- Debug Statements
2650: --
2717: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
2718: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
2719: END IF;
2720: --
2721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2722: g_org.organization_id := p_organization_id;
2723: --
2724: -- Debug Statements
2725: --
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;
2738: --
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;
2738: --
2739: -- Debug Statements
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;
2755:
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;
2755:
2756: IF p_to_subinventory IS NULL THEN
2831: --
2832: EXCEPTION
2833:
2834: WHEN others THEN
2835: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2836: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
2837:
2838: --
2839: -- Debug Statements
2832: EXCEPTION
2833:
2834: WHEN others THEN
2835: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2836: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
2837:
2838: --
2839: -- Debug Statements
2840: --
2909: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
2910: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
2911: END IF;
2912: --
2913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2914: g_org.organization_id := p_organization_id;
2915: g_item.inventory_item_id := p_inventory_item_id;
2916: g_loc.inventory_location_id := p_locator_id;
2917: g_lot.lot_number := p_lot_number;
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:
2935: g_item.inventory_item_id := p_inventory_item_id;
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:
2935: g_item.inventory_item_id := p_inventory_item_id;
2936: --
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:
2953: g_sub.secondary_inventory_name := p_subinventory;
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:
2953: g_sub.secondary_inventory_name := p_subinventory;
2954: --
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
2983: --
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
2983: --
2984: IF l_debug_on THEN
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
3022: --
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
3022: --
3023: IF l_debug_on THEN
3070: END IF;
3071: --
3072: EXCEPTION
3073: WHEN others THEN
3074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3075: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3076:
3077: --
3078: -- Debug Statements
3071: --
3072: EXCEPTION
3073: WHEN others THEN
3074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3075: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3076:
3077: --
3078: -- Debug Statements
3079: --
3149: WSH_DEBUG_SV.log(l_module_name,'p_transaction_type_id',p_transaction_type_id);
3150: WSH_DEBUG_SV.log(l_module_name,'p_object_type',p_object_type);
3151: END IF;
3152: --
3153: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3154: g_org.organization_id := p_organization_id;
3155: --
3156: -- Debug Statements
3157: --
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
3170: --
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
3170: --
3171: IF l_debug_on THEN
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
3195: --
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
3195: --
3196: IF l_debug_on THEN
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
3233: --
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
3233: --
3234: IF l_debug_on THEN
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
3274: --
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
3274: --
3275: IF l_debug_on THEN
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
3318: --
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
3318: --
3319: IF l_debug_on THEN
3369: --
3370: EXCEPTION
3371:
3372: WHEN others THEN
3373: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3374: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3375:
3376: --
3377: -- Debug Statements
3370: EXCEPTION
3371:
3372: WHEN others THEN
3373: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3374: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3375:
3376: --
3377: -- Debug Statements
3378: --
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);
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:
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: --
3473: -- Debug Statements
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: --
3473: -- Debug Statements
3474: --
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
3498: --
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
3498: --
3499: IF l_debug_on THEN
3502: --
3503: return;
3504: END IF;
3505:
3506: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3507:
3508: --
3509: -- Debug Statements
3510: --
3514: --
3515: EXCEPTION
3516:
3517: WHEN OTHERS THEN
3518: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3519: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3520:
3521: --
3522: -- Debug Statements
3515: EXCEPTION
3516:
3517: WHEN OTHERS THEN
3518: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3519: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3520:
3521: --
3522: -- Debug Statements
3523: --
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
3602: --
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
3626: --
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
3656: --
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
3670: --
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
3691: --
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
3723: --
3739:
3740: EXCEPTION
3741:
3742: WHEN OTHERS THEN
3743: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty');
3744: l_ser_qty := -99;
3745: --
3746: --
3747: -- Debug Statements
3817: , p_inventory_item_id => x_item_id
3818: , x_mtl_system_items_rec => l_item_info
3819: , x_return_status => l_return_status);
3820:
3821: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3822: RAISE FND_API.G_EXC_ERROR;
3823: END IF;
3824:
3825: l_type := l_item_info.reservable_type;
3845:
3846: EXCEPTION
3847:
3848: WHEN FND_API.G_EXC_ERROR THEN
3849: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3850: WSH_UTIL_CORE.Add_Message(l_return_status);
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3846: EXCEPTION
3847:
3848: WHEN FND_API.G_EXC_ERROR THEN
3849: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3850: WSH_UTIL_CORE.Add_Message(l_return_status);
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3854: END IF;
3855: --
3856: return 'Y';
3857:
3858: WHEN OTHERS THEN
3859: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.get_reservable_flag');
3860: --
3861: -- Debug Statements
3862: --
3863: IF l_debug_on THEN
3899: g_cache_organization_id NUMBER := NULL;
3900: g_cache_reservable_flag VARCHAR(1) := NULL;
3901:
3902:
3903: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3904: l_reservable_type NUMBER;
3905: l_mtl_txns_enabled_flag VARCHAR2(1);
3906: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
3907: l_debug_on BOOLEAN;
3931: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
3932: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
3933: END IF;
3934: --
3935: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3936:
3937: IF p_pickable_flag = 'N'
3938: OR p_source_code IN ('OKE', 'WSH')
3939: OR p_released_status IN ('N', 'R', 'S', 'X') THEN
3964: , p_inventory_item_id => p_inventory_item_id
3965: , x_mtl_system_items_rec => l_item_info
3966: , x_return_status => l_return_status);
3967:
3968: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3969: RAISE FND_API.G_EXC_ERROR;
3970: END IF;
3971:
3972: l_reservable_type := l_item_info.reservable_type;
3992:
3993: EXCEPTION
3994:
3995: WHEN FND_API.G_EXC_ERROR THEN
3996: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3997: WSH_UTIL_CORE.Add_Message(x_return_status);
3998: IF l_debug_on THEN
3999: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3993: EXCEPTION
3994:
3995: WHEN FND_API.G_EXC_ERROR THEN
3996: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3997: WSH_UTIL_CORE.Add_Message(x_return_status);
3998: IF l_debug_on THEN
3999: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4001: END IF;
4000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4001: END IF;
4002:
4003: WHEN OTHERS THEN
4004: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4005: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4006: --
4007: -- Debug Statements
4008: --
4001: END IF;
4002:
4003: WHEN OTHERS THEN
4004: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4005: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4006: --
4007: -- Debug Statements
4008: --
4009: IF l_debug_on THEN
4085: WSH_DEBUG_SV.log(l_module_name,'p_source_document_type_id',p_source_document_type_id);
4086:
4087: END IF;
4088: --
4089: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4090:
4091: IF p_serial_number_type_id IS NULL THEN
4092:
4093: -- bug 5264874
4095: p_organization_id => p_organization_id
4096: , x_mtl_org_param_rec => l_mtl_org_param_rec
4097: , x_return_status => l_return_status);
4098:
4099: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4100: RAISE FND_API.G_EXC_ERROR;
4101: END IF;
4102:
4103: serial_number_type := l_mtl_org_param_rec.serial_number_type;
4193: --
4194: EXCEPTION
4195:
4196: WHEN FND_API.G_EXC_ERROR THEN
4197: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4198: WSH_UTIL_CORE.Add_Message(x_return_status);
4199: IF l_debug_on THEN
4200: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4201: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4194: EXCEPTION
4195:
4196: WHEN FND_API.G_EXC_ERROR THEN
4197: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4198: WSH_UTIL_CORE.Add_Message(x_return_status);
4199: IF l_debug_on THEN
4200: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4201: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4202: END IF;
4201: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
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);
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');
4211: END IF;
4213: WHEN others THEN
4214: IF c_header_info%ISOPEN THEN
4215: close c_header_info;
4216: END IF;
4217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4218: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial');
4219:
4220: --
4221: -- Debug Statements
4214: IF c_header_info%ISOPEN THEN
4215: close c_header_info;
4216: END IF;
4217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4218: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial');
4219:
4220: --
4221: -- Debug Statements
4222: --
4313: WSH_DEBUG_SV.log(l_module_name, 'Quantity', p_quantity);
4314: WSH_DEBUG_SV.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
4315: WSH_DEBUG_SV.log(l_module_name, 'p_object_type', p_object_type);
4316: END IF;
4317: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4318: g_org.organization_id := p_organization_id;
4319:
4320: IF l_debug_on THEN
4321: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_VALIDATE.ORGANIZATION',WSH_DEBUG_SV.C_PROC_LEVEL);
4553: END IF;
4554:
4555: EXCEPTION
4556: WHEN FND_API.G_EXC_ERROR THEN
4557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4558: WSH_UTIL_CORE.Add_Message(x_return_status);
4559: IF l_debug_on THEN
4560: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4554:
4555: EXCEPTION
4556: WHEN FND_API.G_EXC_ERROR THEN
4557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4558: WSH_UTIL_CORE.Add_Message(x_return_status);
4559: IF l_debug_on THEN
4560: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4562: END IF;
4561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4562: END IF;
4563:
4564: WHEN others THEN
4565: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4566: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4562: END IF;
4563:
4564: WHEN others THEN
4565: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4566: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: END IF;
4634: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
4635: WSH_DEBUG_SV.log(l_module_name, 'P_QUANTITY',p_quantity);
4636: END IF;
4637:
4638: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4639:
4640: -- bug 5264874
4641: Get_Org_Param_information (p_organization_id => p_organization_id
4642: , x_mtl_org_param_rec => l_mtl_org_param_rec
4641: Get_Org_Param_information (p_organization_id => p_organization_id
4642: , x_mtl_org_param_rec => l_mtl_org_param_rec
4643: , x_return_status => l_return_status);
4644:
4645: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4646: RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4648:
4649: l_serial_number_type := l_mtl_org_param_rec.serial_number_type;
4722: END IF;
4723:
4724: EXCEPTION
4725: WHEN FND_API.G_EXC_ERROR THEN
4726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4727: WSH_UTIL_CORE.Add_Message(x_return_status);
4728: IF l_debug_on THEN
4729: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4723:
4724: EXCEPTION
4725: WHEN FND_API.G_EXC_ERROR THEN
4726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4727: WSH_UTIL_CORE.Add_Message(x_return_status);
4728: IF l_debug_on THEN
4729: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4731: END IF;
4735: END IF;*/
4736: IF c_header_info%ISOPEN THEN
4737: close c_header_info;
4738: END IF;
4739: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4740: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
4741:
4742: IF l_debug_on THEN
4743: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4736: IF c_header_info%ISOPEN THEN
4737: close c_header_info;
4738: END IF;
4739: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4740: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
4741:
4742: IF l_debug_on THEN
4743: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4778: WSH_DEBUG_SV.push(l_module_name);
4779: WSH_DEBUG_SV.log(l_module_name,'p_line_inv_rec.delivery_detail_id', p_line_inv_rec.delivery_detail_id);
4780: END IF;
4781:
4782: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4783:
4784: IF l_debug_on THEN
4785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.process_delivery_details',WSH_DEBUG_SV.C_PROC_LEVEL);
4786: END IF;
4810: WSH_DEBUG_SV.log(l_module_name,'return status after calling WMS_SHIPPING_INTERFACE_GRP.process_delivery_details', x_return_status);
4811: 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);
4812: END IF;
4813:
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');
4813:
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;
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
4824: WSH_DEBUG_SV.pop(l_module_name);
4826:
4827: EXCEPTION
4828:
4829: WHEN others THEN
4830: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4831: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
4832:
4833: IF l_debug_on THEN
4834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4827: EXCEPTION
4828:
4829: WHEN others THEN
4830: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4831: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
4832:
4833: IF l_debug_on THEN
4834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4888: WSH_DEBUG_SV.log(l_module_name,'p_organization_id',p_organization_id);
4889: WSH_DEBUG_SV.log(l_module_name,'p_inventory_item_id',p_inventory_item_id);
4890: END IF;
4891:
4892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4893:
4894:
4895: IF (p_organization_id IS NOT NULL AND p_inventory_item_id IS NOT NULL) THEN
4896: l_cache_rec.organization_id := (p_organization_id);
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
4942: WSH_DEBUG_SV.pop(l_module_name);
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
4942: WSH_DEBUG_SV.pop(l_module_name);
4943: END IF;
4970: x_mtl_system_items_rec.reservable_type:=l_cache_rec.reservable_type;
4971: x_mtl_system_items_rec.mtl_transactions_enabled_flag:=l_cache_rec.mtl_transactions_enabled_flag;
4972:
4973: ELSE -- Both or one is NULL (Org and Inv_item)
4974: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4975: IF l_debug_on THEN
4976: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
4977: END IF;
4978: --
4999:
5000: EXCEPTION
5001:
5002: WHEN others THEN
5003: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5004: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5005:
5006: IF l_debug_on THEN
5007: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5000: EXCEPTION
5001:
5002: WHEN others THEN
5003: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5004: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5005:
5006: IF l_debug_on THEN
5007: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5008: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
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
5084: WSH_DEBUG_SV.log(l_module_name, 'Return status after INV API',
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
5084: WSH_DEBUG_SV.log(l_module_name, 'Return status after INV API',
5085: x_return_status);
5089: RETURN;
5090: --
5091: END IF;
5092: --
5093: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5094: --
5095: IF l_debug_on THEN
5096: WSH_DEBUG_SV.pop(l_module_name);
5097: END IF;
5099: EXCEPTION
5100: --
5101: WHEN OTHERS THEN
5102: --
5103: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5104: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5105: --
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5100: --
5101: WHEN OTHERS THEN
5102: --
5103: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5104: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5105: --
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5108: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5153: l_debug_on BOOLEAN;
5154: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_TRX_TYPE_ID';
5155:
5156: BEGIN
5157: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5158: --
5159: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5160: --
5161: IF l_debug_on IS NULL THEN
5173: OPEN c_order_line_info(p_source_line_id);
5174: FETCH c_order_line_info into l_order_line_info;
5175: IF c_order_line_info%NOTFOUND THEN
5176: CLOSE c_order_line_info;
5177: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5178: IF l_debug_on THEN
5179: WSH_DEBUG_SV.log(l_module_name, 'No data found for order line',p_source_line_id);
5180: WSH_DEBUG_SV.pop(l_module_name);
5181: END IF;
5188: OPEN c_po_info(l_order_line_info.source_document_line_id, l_order_line_info.source_document_id);
5189: FETCH c_po_info into l_po_info;
5190: IF c_po_info%NOTFOUND THEN
5191: CLOSE c_po_info;
5192: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5193: IF l_debug_on THEN
5194: 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);
5195: WSH_DEBUG_SV.pop(l_module_name);
5196: END IF;
5239: EXCEPTION
5240:
5241: WHEN OTHERS THEN
5242: --
5243: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5244: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5245: --
5246: IF c_order_line_info%isopen THEN
5247: CLOSE c_order_line_info;
5240:
5241: WHEN OTHERS THEN
5242: --
5243: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5244: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5245: --
5246: IF c_order_line_info%isopen THEN
5247: CLOSE c_order_line_info;
5248: END IF;