[Home] [Help]
485: WSH_UTIL_VALIDATE.Validate_Location (
486: p_location_id => l_location_id,
487: p_location_code => NULL ,
488: x_return_status => l_return_status);
489: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
490: RAISE WSH_XC_INVALID_LOCATION;
491: END IF;
492:
493: -- validate p_logged_at_location_id
503: WSH_UTIL_VALIDATE.Validate_Location (
504: p_location_id => l_location_id,
505: p_location_code => null,
506: x_return_status => l_return_status);
507: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
508: RAISE WSH_XC_INVALID_LOCATION;
509: END IF;
510:
511: -- set default value for p_manually_logged is 'F'
543: p_exception_name => p_exception_name,
544: x_exception_def_info => l_exc_def_info,
545: x_return_status => l_return_status);
546:
547: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
548: RAISE WSH_XC_DEF_NOT_FOUND;
549: ELSIF l_exc_def_info.enabled = 'N' THEN
550: IF l_debug_on THEN
551: WSH_DEBUG_SV.logmsg(l_module_name,'Not logging exception since the exception is not enabled',WSH_DEBUG_SV.C_PROC_LEVEL);
803: p_exception_name => p_exception_name,
804: x_exception_def_info => l_exc_def_info,
805: x_return_status => l_return_status);
806:
807: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
808: RAISE WSH_XC_DEF_NOT_FOUND;
809: ELSIF l_exc_def_info.enabled = 'N' THEN
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.logmsg(l_module_name,'Not logging exception since the exception is not enabled',WSH_DEBUG_SV.C_PROC_LEVEL);
1403: END IF;
1404:
1405: <
1406:
1407: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1408: if x_msg_count > 1 then
1409: IF l_debug_on THEN
1410: wsh_debug_sv.logmsg(l_module_name, 'x_msg_count > 1');
1411: END IF;
1442: END IF;
1443:
1444: --l_msg_summary := fnd_message.get;
1445:
1446: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448:
1449: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1450: --
1445:
1446: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448:
1449: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1450: --
1451: -- Debug Statements
1452: --
1453: IF l_debug_on THEN
1472: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_LOGGING_ENTITY');
1473:
1474: --l_msg_summary := fnd_message.get;
1475:
1476: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1479: --
1480: -- Debug Statements
1474: --l_msg_summary := fnd_message.get;
1475:
1476: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1479: --
1480: -- Debug Statements
1481: --
1482: IF l_debug_on THEN
1501: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_SEVERITY');
1502:
1503: --l_msg_summary := fnd_message.get;
1504:
1505: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1508: --
1509: -- Debug Statements
1503: --l_msg_summary := fnd_message.get;
1504:
1505: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1508: --
1509: -- Debug Statements
1510: --
1511: IF l_debug_on THEN
1531: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_LOCATION');
1532:
1533: --l_msg_summary := fnd_message.get;
1534:
1535: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1538: --
1539: -- Debug Statements
1533: --l_msg_summary := fnd_message.get;
1534:
1535: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1538: --
1539: -- Debug Statements
1540: --
1541: IF l_debug_on THEN
1561: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
1562:
1563: --l_msg_summary := fnd_message.get;
1564:
1565: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1567: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1568: --
1569: -- Debug Statements
1563: --l_msg_summary := fnd_message.get;
1564:
1565: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1567: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1568: --
1569: -- Debug Statements
1570: --
1571: IF l_debug_on THEN
1588: END IF;
1589: --
1590: WHEN WSH_XC_DEF_NOT_FOUND THEN
1591:
1592: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1595: --
1596: -- Debug Statements
1590: WHEN WSH_XC_DEF_NOT_FOUND THEN
1591:
1592: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1595: --
1596: -- Debug Statements
1597: --
1598: IF l_debug_on THEN
1617: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
1618:
1619: --l_msg_summary := fnd_message.get;
1620:
1621: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1624: --
1625: -- Debug Statements
1619: --l_msg_summary := fnd_message.get;
1620:
1621: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1624: --
1625: -- Debug Statements
1626: --
1627: IF l_debug_on THEN
1937:
1938: -- OTM R12 glog project
1939: WHEN WSH_XC_OTM_ERROR THEN
1940: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_OTM_EXCEPTION');
1941: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1942: x_return_status := FND_API.G_RET_STS_ERROR;
1943: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1944: if x_msg_count > 1 then
1945: x_msg_data := l_msg_summary || l_msg_details;
1939: WHEN WSH_XC_OTM_ERROR THEN
1940: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_OTM_EXCEPTION');
1941: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1942: x_return_status := FND_API.G_RET_STS_ERROR;
1943: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1944: if x_msg_count > 1 then
1945: x_msg_data := l_msg_summary || l_msg_details;
1946: else
1947: x_msg_data := l_msg_summary;
1956: -- OTM R12 end of glog project
1957:
1958: WHEN WSH_XC_INVALID_STATUS THEN
1959: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_STATUS');
1960: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1961: x_return_status := FND_API.G_RET_STS_ERROR;
1962: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1963: if x_msg_count > 1 then
1964: x_msg_data := l_msg_summary || l_msg_details;
1958: WHEN WSH_XC_INVALID_STATUS THEN
1959: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_STATUS');
1960: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1961: x_return_status := FND_API.G_RET_STS_ERROR;
1962: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1963: if x_msg_count > 1 then
1964: x_msg_data := l_msg_summary || l_msg_details;
1965: else
1966: x_msg_data := l_msg_summary;
1976: END IF;
1977: --
1978: WHEN WSH_XC_INVALID_OPERATION THEN
1979: FND_MESSAGE.SET_NAME('WSH', l_msg_name);
1980: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1983: if x_msg_count > 1 then
1984: x_msg_data := l_msg_summary || l_msg_details;
1978: WHEN WSH_XC_INVALID_OPERATION THEN
1979: FND_MESSAGE.SET_NAME('WSH', l_msg_name);
1980: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1983: if x_msg_count > 1 then
1984: x_msg_data := l_msg_summary || l_msg_details;
1985: else
1986: x_msg_data := l_msg_summary;
1995: END IF;
1996: --
1997: WHEN WSH_XC_STATUS_MISMATCH THEN
1998: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_STATUS_MISMATCH');
1999: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2002: if x_msg_count > 1 then
2003: x_msg_data := l_msg_summary || l_msg_details;
1997: WHEN WSH_XC_STATUS_MISMATCH THEN
1998: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_STATUS_MISMATCH');
1999: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2002: if x_msg_count > 1 then
2003: x_msg_data := l_msg_summary || l_msg_details;
2004: else
2005: x_msg_data := l_msg_summary;
2018: IF C1%ISOPEN THEN
2019: CLOSE C1;
2020: END IF;
2021: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
2022: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2023: x_return_status := FND_API.G_RET_STS_ERROR;
2024: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2025: if x_msg_count > 1 then
2026: x_msg_data := l_msg_summary || l_msg_details;
2020: END IF;
2021: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
2022: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2023: x_return_status := FND_API.G_RET_STS_ERROR;
2024: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2025: if x_msg_count > 1 then
2026: x_msg_data := l_msg_summary || l_msg_details;
2027: else
2028: x_msg_data := l_msg_summary;
2038: END IF;
2039: --
2040: WHEN WSH_XC_DATA_ERROR THEN
2041: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
2042: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2043: x_return_status := FND_API.G_RET_STS_ERROR;
2044: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2045: if x_msg_count > 1 then
2046: x_msg_data := l_msg_summary || l_msg_details;
2040: WHEN WSH_XC_DATA_ERROR THEN
2041: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
2042: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2043: x_return_status := FND_API.G_RET_STS_ERROR;
2044: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2045: if x_msg_count > 1 then
2046: x_msg_data := l_msg_summary || l_msg_details;
2047: else
2048: x_msg_data := l_msg_summary;
2079:
2080: WHEN WSH_XC_EXCEPTION_CLOSED THEN
2081: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_EXCEPTION_CLOSED');
2082: FND_MESSAGE.SET_TOKEN('EXCEPTION_ID', P_EXCEPTION_ID);
2083: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2086: if x_msg_count > 1 then
2087: x_msg_data := l_msg_summary || l_msg_details;
2081: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_EXCEPTION_CLOSED');
2082: FND_MESSAGE.SET_TOKEN('EXCEPTION_ID', P_EXCEPTION_ID);
2083: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2086: if x_msg_count > 1 then
2087: x_msg_data := l_msg_summary || l_msg_details;
2088: else
2089: x_msg_data := l_msg_summary;
3322:
3323:
3324: Exceptions_SQL VARCHAR2(32000) := NULL;
3325: Temp_SQL VARCHAR2(300) := NULL;
3326: c_exceptions WSH_UTIL_CORE.RefCurType;
3327: bind_col_tab WSH_UTIL_CORE.tbl_varchar;
3328:
3329: --Bug 5943326 Variables for bulk purge
3330: BulkBatchSize Number := 1000;
3323:
3324: Exceptions_SQL VARCHAR2(32000) := NULL;
3325: Temp_SQL VARCHAR2(300) := NULL;
3326: c_exceptions WSH_UTIL_CORE.RefCurType;
3327: bind_col_tab WSH_UTIL_CORE.tbl_varchar;
3328:
3329: --Bug 5943326 Variables for bulk purge
3330: BulkBatchSize Number := 1000;
3331:
3736:
3737: -- Bug#3200314
3738: -- Process the records based on the input criteria.
3739: Exceptions_SQL := Exceptions_SQL ||' 1=1';
3740: WSH_UTIL_CORE.OpenDynamicCursor(c_exceptions, Exceptions_SQL, bind_col_tab);
3741:
3742: -- Bug 3576661 : TST11510.10: ERROR IN SHIP CONFIRM DELIVERY CANNOT BE SHIP CONFIRMED
3743: -- Dynamic SQL cannot be used with Bulk Features in pre 9i environments
3744: -- Either of these can be used, so using Variable Cursor as of now but not
3809: EXCEPTION
3810: WHEN WSH_PURGE_FAILED THEN
3811: ROLLBACK TO WSH_XC_UTIL;
3812: x_return_status := FND_API.G_RET_STS_ERROR;
3813: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3814: if x_msg_count > 1 then
3815: x_msg_data := l_msg_summary || l_msg_details;
3816: else
3817: x_msg_data := l_msg_summary;
3827: --
3828: WHEN FND_API.G_EXC_ERROR THEN
3829: ROLLBACK TO WSH_XC_UTIL;
3830: x_return_status := FND_API.G_RET_STS_ERROR;
3831: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3832: if x_msg_count > 1 then
3833: x_msg_data := l_msg_summary || l_msg_details;
3834: else
3835: x_msg_data := l_msg_summary;
3845: --
3846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3847: ROLLBACK TO WSH_XC_UTIL;
3848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3849: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3850: if x_msg_count > 1 then
3851: x_msg_data := l_msg_summary || l_msg_details;
3852: else
3853: x_msg_data := l_msg_summary;
3863: --
3864: WHEN OTHERS THEN
3865: ROLLBACK TO WSH_XC_UTIL;
3866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3867: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3868: if x_msg_count > 1 then
3869: x_msg_data := l_msg_summary || l_msg_details;
3870: else
3871: x_msg_data := l_msg_summary;
4069: IF FND_API.to_boolean(p_init_msg_list) THEN
4070: FND_MSG_PUB.initialize;
4071: END IF;
4072:
4073: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4074:
4075: l_count := 0;
4076:
4077: IF (p_logging_entity_name = 'TRIP') THEN
4103: -- program specific out parameters
4104: x_exceptions_tab => x_exceptions_tab,
4105: p_caller => p_caller||c_trip
4106: );
4107: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4108: IF l_debug_on THEN
4109: WSH_DEBUG_SV.logmsg('Check Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4110: END IF;
4111: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4142: p_consider_content => 'Y',
4143: -- program specific out parameters
4144: x_exceptions_tab => x_exceptions_tab
4145: );
4146: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4147: IF l_debug_on THEN
4148: WSH_DEBUG_SV.logmsg('Check Exception failed for Delivery :'||del_rec.delivery_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4149: END IF;
4150: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4172: -- program specific out parameters
4173: x_exceptions_tab => l_exceptions_tab,
4174: p_caller => p_caller
4175: );
4176: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4177: IF l_debug_on THEN
4178: WSH_DEBUG_SV.logmsg('Check Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4179: END IF;
4180: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4235: p_consider_content => 'Y',
4236: -- program specific out parameters
4237: x_exceptions_tab => x_exceptions_tab
4238: );
4239: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4240: IF l_debug_on THEN
4241: WSH_DEBUG_SV.logmsg('Check Exception failed for Detail :'||detail_rec.delivery_detail_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4242: END IF;
4243: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4297: p_consider_content => 'Y',
4298: -- program specific out parameters
4299: x_exceptions_tab => x_exceptions_tab
4300: );
4301: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4302: IF l_debug_on THEN
4303: WSH_DEBUG_SV.logmsg('Check Exception failed for Detail :'||detail_rec.delivery_detail_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4304: END IF;
4305: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4322: --
4323:
4324: EXCEPTION
4325: WHEN WSH_CHECK_EXCEPTIONS_FAILED THEN
4326: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4327: wsh_util_core.add_message(x_return_status);
4328: FND_MSG_PUB.Count_And_Get(
4329: p_count => x_msg_count,
4330: p_data => x_msg_data,
4323:
4324: EXCEPTION
4325: WHEN WSH_CHECK_EXCEPTIONS_FAILED THEN
4326: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4327: wsh_util_core.add_message(x_return_status);
4328: FND_MSG_PUB.Count_And_Get(
4329: p_count => x_msg_count,
4330: p_data => x_msg_data,
4331: p_encoded => FND_API.G_FALSE
4340: --
4341:
4342: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4343: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4345: wsh_util_core.add_message(x_return_status);
4346: FND_MSG_PUB.Count_And_Get(
4347: p_count => x_msg_count,
4348: p_data => x_msg_data,
4341:
4342: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4343: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4344: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4345: wsh_util_core.add_message(x_return_status);
4346: FND_MSG_PUB.Count_And_Get(
4347: p_count => x_msg_count,
4348: p_data => x_msg_data,
4349: p_encoded => FND_API.G_FALSE
4379: IF Get_Stops_Trip%ISOPEN THEN
4380: CLOSE Get_Stops_Trip;
4381: END IF;
4382:
4383: wsh_util_core.default_handler('WSH_XC_UTIL.CHECK_EXCEPTIONS');
4384: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4385:
4386: --
4387: -- Debug Statements
4380: CLOSE Get_Stops_Trip;
4381: END IF;
4382:
4383: wsh_util_core.default_handler('WSH_XC_UTIL.CHECK_EXCEPTIONS');
4384: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4385:
4386: --
4387: -- Debug Statements
4388: --
4526: IF FND_API.to_boolean(p_init_msg_list) THEN
4527: FND_MSG_PUB.initialize;
4528: END IF;
4529:
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4531:
4532: IF (p_logging_entity_name = 'TRIP') THEN
4533: WSH_XC_UTIL.Purge (
4534: p_api_version => p_api_version,
4538: x_no_of_recs_purged => l_count,
4539: p_trip_id => p_logging_entity_id,
4540: p_action => C_ACTION_SEMICLOSED
4541: );
4542: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4543: IF l_debug_on THEN
4544: WSH_DEBUG_SV.logmsg('Purge failed for Trip :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4545: END IF;
4546: RAISE WSH_PURGE_FAILED;
4558: p_logging_entity_name => 'STOP',
4559: p_consider_content => p_consider_content,
4560: p_caller => p_caller||c_trip
4561: );
4562: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4563: IF l_debug_on THEN
4564: WSH_DEBUG_SV.logmsg('Close_Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4565: END IF;
4566: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4581: x_no_of_recs_purged => l_count,
4582: p_trip_stop_id => p_logging_entity_id,
4583: p_action => C_ACTION_SEMICLOSED
4584: );
4585: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4586: IF l_debug_on THEN
4587: WSH_DEBUG_SV.logmsg('Purge failed for Stop :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4588: END IF;
4589: RAISE WSH_PURGE_FAILED;
4600: p_logging_entity_id => del_rec.delivery_id,
4601: p_logging_entity_name => 'DELIVERY',
4602: p_consider_content => p_consider_content
4603: );
4604: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4605: IF l_debug_on THEN
4606: WSH_DEBUG_SV.logmsg('Close_Exception failed for Delivery :'||del_rec.delivery_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4607: END IF;
4608: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4626: p_logging_entity_name => 'STOP',
4627: p_consider_content => p_consider_content,
4628: p_caller => p_caller
4629: );
4630: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg('Close_Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4633: END IF;
4634: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4645: p_delivery_id => p_logging_entity_id,
4646: p_delivery_contents => p_consider_content,
4647: p_action => C_ACTION_SEMICLOSED
4648: );
4649: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4650: IF l_debug_on THEN
4651: WSH_DEBUG_SV.logmsg('Purge failed for Delivery :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4652: END IF;
4653: RAISE WSH_PURGE_FAILED;
4662: x_no_of_recs_purged => l_count,
4663: p_delivery_detail_id => p_logging_entity_id,
4664: p_action => C_ACTION_SEMICLOSED
4665: );
4666: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4667: IF l_debug_on THEN
4668: WSH_DEBUG_SV.logmsg('Purge failed for Detail/Container :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4669: END IF;
4670: RAISE WSH_PURGE_FAILED;
4685: --
4686:
4687: EXCEPTION
4688: WHEN WSH_CLOSE_EXCEPTIONS_FAILED THEN
4689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4690: wsh_util_core.add_message(x_return_status);
4691: FND_MSG_PUB.Count_And_Get(
4692: p_count => x_msg_count,
4693: p_data => x_msg_data,
4686:
4687: EXCEPTION
4688: WHEN WSH_CLOSE_EXCEPTIONS_FAILED THEN
4689: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4690: wsh_util_core.add_message(x_return_status);
4691: FND_MSG_PUB.Count_And_Get(
4692: p_count => x_msg_count,
4693: p_data => x_msg_data,
4694: p_encoded => FND_API.G_FALSE
4703: END IF;
4704: --
4705:
4706: WHEN WSH_PURGE_FAILED THEN
4707: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4708: wsh_util_core.add_message(x_return_status);
4709: FND_MSG_PUB.Count_And_Get(
4710: p_count => x_msg_count,
4711: p_data => x_msg_data,
4704: --
4705:
4706: WHEN WSH_PURGE_FAILED THEN
4707: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4708: wsh_util_core.add_message(x_return_status);
4709: FND_MSG_PUB.Count_And_Get(
4710: p_count => x_msg_count,
4711: p_data => x_msg_data,
4712: p_encoded => FND_API.G_FALSE
4722: --
4723:
4724: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4725: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4727: wsh_util_core.add_message(x_return_status);
4728: FND_MSG_PUB.Count_And_Get(
4729: p_count => x_msg_count,
4730: p_data => x_msg_data,
4723:
4724: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4725: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4727: wsh_util_core.add_message(x_return_status);
4728: FND_MSG_PUB.Count_And_Get(
4729: p_count => x_msg_count,
4730: p_data => x_msg_data,
4731: p_encoded => FND_API.G_FALSE
4740: END IF;
4741: --
4742:
4743: WHEN others THEN
4744: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_EXCEPTIONS');
4745: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4746:
4747: --
4748: -- Debug Statements
4741: --
4742:
4743: WHEN others THEN
4744: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_EXCEPTIONS');
4745: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4746:
4747: --
4748: -- Debug Statements
4749: --
4768: ----------------------------------------------------------
4769:
4770: PROCEDURE CLOSE_OTM_EXCEPTION(
4771: p_delivery_id IN WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE,
4772: p_exceptions_to_close_tab IN WSH_UTIL_CORE.COLUMN_TAB_TYPE,
4773: x_return_status OUT NOCOPY VARCHAR2) IS
4774:
4775: l_exception_name WSH_EXCEPTION_DEFINITIONS_TL.EXCEPTION_NAME%TYPE;
4776: l_debug_on BOOLEAN;
4797: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
4798: WSH_DEBUG_SV.log(l_module_name, 'number of exceptions to close', p_exceptions_to_close_tab.COUNT);
4799: END IF;
4800: --
4801: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4802: l_exception_name := NULL;
4803: l_count := 0;
4804: l_msg_count := 0;
4805: l_msg_data := NULL;
4834: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.purge: ' || l_return_status);
4835: WSH_DEBUG_SV.log(l_module_name, 'number of exceptions purged', l_count);
4836: END IF;
4837:
4838: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4839: x_return_status := l_return_status;
4840: EXIT;
4841: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4842: l_num_warn := l_num_warn + 1;
4837:
4838: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4839: x_return_status := l_return_status;
4840: EXIT;
4841: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4842: l_num_warn := l_num_warn + 1;
4843: END IF;
4844:
4845: i := p_exceptions_to_close_tab.NEXT(i);
4845: i := p_exceptions_to_close_tab.NEXT(i);
4846: END LOOP;
4847: END IF;
4848:
4849: IF l_num_warn > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4850: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4851: END IF;
4852:
4853: -- Debug Statements
4846: END LOOP;
4847: END IF;
4848:
4849: IF l_num_warn > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4850: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4851: END IF;
4852:
4853: -- Debug Statements
4854: --
4860:
4861: EXCEPTION
4862: --
4863: WHEN OTHERS THEN
4864: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_OTM_EXCEPTION', l_module_name);
4865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4866: IF l_debug_on THEN
4867: WSH_DEBUG_SV.logmsg(l_module_name, 'Unexpected error has occured. '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4868: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4861: EXCEPTION
4862: --
4863: WHEN OTHERS THEN
4864: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_OTM_EXCEPTION', l_module_name);
4865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4866: IF l_debug_on THEN
4867: WSH_DEBUG_SV.logmsg(l_module_name, 'Unexpected error has occured. '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4868: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4869: END IF;
4888: ----------------------------------------------------------
4889:
4890: PROCEDURE LOG_OTM_EXCEPTION(
4891: p_delivery_info_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
4892: p_new_interface_flag_tab IN WSH_UTIL_CORE.COLUMN_TAB_TYPE,
4893: x_return_status OUT NOCOPY VARCHAR2) IS
4894:
4895: l_msg_count NUMBER;
4896: l_msg_data VARCHAR2(32767);
4901: l_return_status VARCHAR2(1);
4902:
4903: l_new_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
4904: l_exception_name WSH_EXCEPTION_DEFINITIONS_TL.EXCEPTION_NAME%TYPE;
4905: l_exceptions_to_close_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4906: i NUMBER;
4907: --
4908: l_debug_on BOOLEAN;
4909: --
4923: WSH_DEBUG_SV.log(l_module_name, 'delivery record count', p_delivery_info_tab.COUNT);
4924: WSH_DEBUG_SV.log(l_module_name, 'interface flag count', p_new_interface_flag_tab.COUNT);
4925: END IF;
4926:
4927: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4928:
4929: --initialize
4930: l_num_warn := 0;
4931: l_num_error := 0;
5014: IF l_debug_on THEN
5015: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.close_otm_exception: ' || l_return_status);
5016: END IF;
5017:
5018: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5019: l_num_error := l_num_error + 1;
5020: EXIT;
5021: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5022: l_num_warn := l_num_warn + 1;
5017:
5018: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5019: l_num_error := l_num_error + 1;
5020: EXIT;
5021: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5022: l_num_warn := l_num_warn + 1;
5023: END IF;
5024: END IF;
5025:
5059: IF l_debug_on THEN
5060: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.log_exception: ' || l_return_status);
5061: END IF;
5062:
5063: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5064: l_num_error := l_num_error + 1;
5065: EXIT;
5066: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5067: l_num_warn := l_num_warn + 1;
5062:
5063: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5064: l_num_error := l_num_error + 1;
5065: EXIT;
5066: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5067: l_num_warn := l_num_warn + 1;
5068: END IF;
5069:
5070: END IF;
5131: IF l_debug_on THEN
5132: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.log_exception: ' || l_return_status);
5133: END IF;
5134:
5135: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5136: l_num_error := l_num_error + 1;
5137: EXIT;
5138: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5139: l_num_warn := l_num_warn + 1;
5134:
5135: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5136: l_num_error := l_num_error + 1;
5137: EXIT;
5138: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5139: l_num_warn := l_num_warn + 1;
5140: END IF;
5141:
5142: END IF;
5146:
5147: END LOOP;
5148:
5149: IF (l_num_error > 0)THEN
5150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5151: ELSIF (l_num_warn > 0) THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5153: ELSE
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5148:
5149: IF (l_num_error > 0)THEN
5150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5151: ELSIF (l_num_warn > 0) THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5153: ELSE
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5155: END IF;
5156:
5150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5151: ELSIF (l_num_warn > 0) THEN
5152: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5153: ELSE
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5155: END IF;
5156:
5157: --
5158: -- Debug Statements
5164: --
5165:
5166: EXCEPTION
5167: WHEN others THEN
5168: wsh_util_core.default_handler('WSH_XC_UTIL.LOG_OTM_EXCEPTION', l_module_name);
5169: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5170:
5171: IF l_debug_on THEN
5172: WSH_DEBUG_SV.logmsg(l_module_name,
5165:
5166: EXCEPTION
5167: WHEN others THEN
5168: wsh_util_core.default_handler('WSH_XC_UTIL.LOG_OTM_EXCEPTION', l_module_name);
5169: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5170:
5171: IF l_debug_on THEN
5172: WSH_DEBUG_SV.logmsg(l_module_name,
5173: 'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5230: WSH_DEBUG_SV.push(l_module_name);
5231: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
5232: END IF;
5233:
5234: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5235:
5236: l_severity := NULL;
5237: l_rank := NULL;
5238: l_exception_name := NULL;
5274: END IF;
5275:
5276: EXCEPTION
5277: WHEN OTHERS THEN
5278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5279: wsh_util_core.default_handler('WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION', l_module_name);
5280:
5281: IF c_get_delivery_otm_exceptions%ISOPEN THEN
5282: CLOSE c_get_delivery_otm_exceptions;
5275:
5276: EXCEPTION
5277: WHEN OTHERS THEN
5278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5279: wsh_util_core.default_handler('WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION', l_module_name);
5280:
5281: IF c_get_delivery_otm_exceptions%ISOPEN THEN
5282: CLOSE c_get_delivery_otm_exceptions;
5283: END IF;