[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);
802: p_exception_name => p_exception_name,
803: x_exception_def_info => l_exc_def_info,
804: x_return_status => l_return_status);
805:
806: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
807: RAISE WSH_XC_DEF_NOT_FOUND;
808: ELSIF l_exc_def_info.enabled = 'N' THEN
809: IF l_debug_on THEN
810: WSH_DEBUG_SV.logmsg(l_module_name,'Not logging exception since the exception is not enabled',WSH_DEBUG_SV.C_PROC_LEVEL);
1402: END IF;
1403:
1404: <
1405:
1406: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1407: if x_msg_count > 1 then
1408: IF l_debug_on THEN
1409: wsh_debug_sv.logmsg(l_module_name, 'x_msg_count > 1');
1410: END IF;
1441: END IF;
1442:
1443: --l_msg_summary := fnd_message.get;
1444:
1445: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1446: x_return_status := FND_API.G_RET_STS_ERROR;
1447:
1448: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1449: --
1444:
1445: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1446: x_return_status := FND_API.G_RET_STS_ERROR;
1447:
1448: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1449: --
1450: -- Debug Statements
1451: --
1452: IF l_debug_on THEN
1471: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_LOGGING_ENTITY');
1472:
1473: --l_msg_summary := fnd_message.get;
1474:
1475: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1478: --
1479: -- Debug Statements
1473: --l_msg_summary := fnd_message.get;
1474:
1475: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1476: x_return_status := FND_API.G_RET_STS_ERROR;
1477: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1478: --
1479: -- Debug Statements
1480: --
1481: IF l_debug_on THEN
1500: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_SEVERITY');
1501:
1502: --l_msg_summary := fnd_message.get;
1503:
1504: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1507: --
1508: -- Debug Statements
1502: --l_msg_summary := fnd_message.get;
1503:
1504: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1507: --
1508: -- Debug Statements
1509: --
1510: IF l_debug_on THEN
1530: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_LOCATION');
1531:
1532: --l_msg_summary := fnd_message.get;
1533:
1534: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1537: --
1538: -- Debug Statements
1532: --l_msg_summary := fnd_message.get;
1533:
1534: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1537: --
1538: -- Debug Statements
1539: --
1540: IF l_debug_on THEN
1560: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
1561:
1562: --l_msg_summary := fnd_message.get;
1563:
1564: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1567: --
1568: -- Debug Statements
1562: --l_msg_summary := fnd_message.get;
1563:
1564: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1567: --
1568: -- Debug Statements
1569: --
1570: IF l_debug_on THEN
1587: END IF;
1588: --
1589: WHEN WSH_XC_DEF_NOT_FOUND THEN
1590:
1591: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1594: --
1595: -- Debug Statements
1589: WHEN WSH_XC_DEF_NOT_FOUND THEN
1590:
1591: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1594: --
1595: -- Debug Statements
1596: --
1597: IF l_debug_on THEN
1616: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
1617:
1618: --l_msg_summary := fnd_message.get;
1619:
1620: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1621: x_return_status := FND_API.G_RET_STS_ERROR;
1622: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1623: --
1624: -- Debug Statements
1618: --l_msg_summary := fnd_message.get;
1619:
1620: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1621: x_return_status := FND_API.G_RET_STS_ERROR;
1622: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1623: --
1624: -- Debug Statements
1625: --
1626: IF l_debug_on THEN
1936:
1937: -- OTM R12 glog project
1938: WHEN WSH_XC_OTM_ERROR THEN
1939: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_OTM_EXCEPTION');
1940: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1943: if x_msg_count > 1 then
1944: x_msg_data := l_msg_summary || l_msg_details;
1938: WHEN WSH_XC_OTM_ERROR THEN
1939: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_OTM_EXCEPTION');
1940: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1943: if x_msg_count > 1 then
1944: x_msg_data := l_msg_summary || l_msg_details;
1945: else
1946: x_msg_data := l_msg_summary;
1955: -- OTM R12 end of glog project
1956:
1957: WHEN WSH_XC_INVALID_STATUS THEN
1958: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_STATUS');
1959: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1962: if x_msg_count > 1 then
1963: x_msg_data := l_msg_summary || l_msg_details;
1957: WHEN WSH_XC_INVALID_STATUS THEN
1958: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_INVALID_STATUS');
1959: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1962: if x_msg_count > 1 then
1963: x_msg_data := l_msg_summary || l_msg_details;
1964: else
1965: x_msg_data := l_msg_summary;
1975: END IF;
1976: --
1977: WHEN WSH_XC_INVALID_OPERATION THEN
1978: FND_MESSAGE.SET_NAME('WSH', l_msg_name);
1979: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1982: if x_msg_count > 1 then
1983: x_msg_data := l_msg_summary || l_msg_details;
1977: WHEN WSH_XC_INVALID_OPERATION THEN
1978: FND_MESSAGE.SET_NAME('WSH', l_msg_name);
1979: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
1982: if x_msg_count > 1 then
1983: x_msg_data := l_msg_summary || l_msg_details;
1984: else
1985: x_msg_data := l_msg_summary;
1994: END IF;
1995: --
1996: WHEN WSH_XC_STATUS_MISMATCH THEN
1997: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_STATUS_MISMATCH');
1998: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2001: if x_msg_count > 1 then
2002: x_msg_data := l_msg_summary || l_msg_details;
1996: WHEN WSH_XC_STATUS_MISMATCH THEN
1997: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_STATUS_MISMATCH');
1998: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2001: if x_msg_count > 1 then
2002: x_msg_data := l_msg_summary || l_msg_details;
2003: else
2004: x_msg_data := l_msg_summary;
2017: IF C1%ISOPEN THEN
2018: CLOSE C1;
2019: END IF;
2020: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
2021: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2022: x_return_status := FND_API.G_RET_STS_ERROR;
2023: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2024: if x_msg_count > 1 then
2025: x_msg_data := l_msg_summary || l_msg_details;
2019: END IF;
2020: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_NOT_FOUND');
2021: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2022: x_return_status := FND_API.G_RET_STS_ERROR;
2023: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2024: if x_msg_count > 1 then
2025: x_msg_data := l_msg_summary || l_msg_details;
2026: else
2027: x_msg_data := l_msg_summary;
2037: END IF;
2038: --
2039: WHEN WSH_XC_DATA_ERROR THEN
2040: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
2041: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2042: x_return_status := FND_API.G_RET_STS_ERROR;
2043: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2044: if x_msg_count > 1 then
2045: x_msg_data := l_msg_summary || l_msg_details;
2039: WHEN WSH_XC_DATA_ERROR THEN
2040: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_DATA_ERROR');
2041: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2042: x_return_status := FND_API.G_RET_STS_ERROR;
2043: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2044: if x_msg_count > 1 then
2045: x_msg_data := l_msg_summary || l_msg_details;
2046: else
2047: x_msg_data := l_msg_summary;
2078:
2079: WHEN WSH_XC_EXCEPTION_CLOSED THEN
2080: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_EXCEPTION_CLOSED');
2081: FND_MESSAGE.SET_TOKEN('EXCEPTION_ID', P_EXCEPTION_ID);
2082: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2085: if x_msg_count > 1 then
2086: x_msg_data := l_msg_summary || l_msg_details;
2080: FND_MESSAGE.SET_NAME('WSH', 'WSH_XC_EXCEPTION_CLOSED');
2081: FND_MESSAGE.SET_TOKEN('EXCEPTION_ID', P_EXCEPTION_ID);
2082: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
2083: x_return_status := FND_API.G_RET_STS_ERROR;
2084: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
2085: if x_msg_count > 1 then
2086: x_msg_data := l_msg_summary || l_msg_details;
2087: else
2088: x_msg_data := l_msg_summary;
3314:
3315:
3316: Exceptions_SQL VARCHAR2(32000) := NULL;
3317: Temp_SQL VARCHAR2(300) := NULL;
3318: c_exceptions WSH_UTIL_CORE.RefCurType;
3319: bind_col_tab WSH_UTIL_CORE.tbl_varchar;
3320:
3321: --Bug 5943326 Variables for bulk purge
3322: BulkBatchSize Number := 1000;
3315:
3316: Exceptions_SQL VARCHAR2(32000) := NULL;
3317: Temp_SQL VARCHAR2(300) := NULL;
3318: c_exceptions WSH_UTIL_CORE.RefCurType;
3319: bind_col_tab WSH_UTIL_CORE.tbl_varchar;
3320:
3321: --Bug 5943326 Variables for bulk purge
3322: BulkBatchSize Number := 1000;
3323:
3728:
3729: -- Bug#3200314
3730: -- Process the records based on the input criteria.
3731: Exceptions_SQL := Exceptions_SQL ||' 1=1';
3732: WSH_UTIL_CORE.OpenDynamicCursor(c_exceptions, Exceptions_SQL, bind_col_tab);
3733:
3734: -- Bug 3576661 : TST11510.10: ERROR IN SHIP CONFIRM DELIVERY CANNOT BE SHIP CONFIRMED
3735: -- Dynamic SQL cannot be used with Bulk Features in pre 9i environments
3736: -- Either of these can be used, so using Variable Cursor as of now but not
3801: EXCEPTION
3802: WHEN WSH_PURGE_FAILED THEN
3803: ROLLBACK TO WSH_XC_UTIL;
3804: x_return_status := FND_API.G_RET_STS_ERROR;
3805: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3806: if x_msg_count > 1 then
3807: x_msg_data := l_msg_summary || l_msg_details;
3808: else
3809: x_msg_data := l_msg_summary;
3819: --
3820: WHEN FND_API.G_EXC_ERROR THEN
3821: ROLLBACK TO WSH_XC_UTIL;
3822: x_return_status := FND_API.G_RET_STS_ERROR;
3823: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3824: if x_msg_count > 1 then
3825: x_msg_data := l_msg_summary || l_msg_details;
3826: else
3827: x_msg_data := l_msg_summary;
3837: --
3838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3839: ROLLBACK TO WSH_XC_UTIL;
3840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3841: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3842: if x_msg_count > 1 then
3843: x_msg_data := l_msg_summary || l_msg_details;
3844: else
3845: x_msg_data := l_msg_summary;
3855: --
3856: WHEN OTHERS THEN
3857: ROLLBACK TO WSH_XC_UTIL;
3858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3859: WSH_UTIL_CORE.get_messages('N', l_msg_summary, l_msg_details, x_msg_count);
3860: if x_msg_count > 1 then
3861: x_msg_data := l_msg_summary || l_msg_details;
3862: else
3863: x_msg_data := l_msg_summary;
4061: IF FND_API.to_boolean(p_init_msg_list) THEN
4062: FND_MSG_PUB.initialize;
4063: END IF;
4064:
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4066:
4067: l_count := 0;
4068:
4069: IF (p_logging_entity_name = 'TRIP') THEN
4095: -- program specific out parameters
4096: x_exceptions_tab => x_exceptions_tab,
4097: p_caller => p_caller||c_trip
4098: );
4099: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4100: IF l_debug_on THEN
4101: WSH_DEBUG_SV.logmsg('Check Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4102: END IF;
4103: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4134: p_consider_content => 'Y',
4135: -- program specific out parameters
4136: x_exceptions_tab => x_exceptions_tab
4137: );
4138: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4139: IF l_debug_on THEN
4140: WSH_DEBUG_SV.logmsg('Check Exception failed for Delivery :'||del_rec.delivery_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4141: END IF;
4142: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4164: -- program specific out parameters
4165: x_exceptions_tab => l_exceptions_tab,
4166: p_caller => p_caller
4167: );
4168: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4169: IF l_debug_on THEN
4170: WSH_DEBUG_SV.logmsg('Check Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4171: END IF;
4172: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4227: p_consider_content => 'Y',
4228: -- program specific out parameters
4229: x_exceptions_tab => x_exceptions_tab
4230: );
4231: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4232: IF l_debug_on THEN
4233: WSH_DEBUG_SV.logmsg('Check Exception failed for Detail :'||detail_rec.delivery_detail_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4234: END IF;
4235: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4289: p_consider_content => 'Y',
4290: -- program specific out parameters
4291: x_exceptions_tab => x_exceptions_tab
4292: );
4293: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4294: IF l_debug_on THEN
4295: WSH_DEBUG_SV.logmsg('Check Exception failed for Detail :'||detail_rec.delivery_detail_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4296: END IF;
4297: RAISE WSH_CHECK_EXCEPTIONS_FAILED;
4314: --
4315:
4316: EXCEPTION
4317: WHEN WSH_CHECK_EXCEPTIONS_FAILED THEN
4318: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4319: wsh_util_core.add_message(x_return_status);
4320: FND_MSG_PUB.Count_And_Get(
4321: p_count => x_msg_count,
4322: p_data => x_msg_data,
4315:
4316: EXCEPTION
4317: WHEN WSH_CHECK_EXCEPTIONS_FAILED THEN
4318: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4319: wsh_util_core.add_message(x_return_status);
4320: FND_MSG_PUB.Count_And_Get(
4321: p_count => x_msg_count,
4322: p_data => x_msg_data,
4323: p_encoded => FND_API.G_FALSE
4332: --
4333:
4334: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4335: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4336: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4337: wsh_util_core.add_message(x_return_status);
4338: FND_MSG_PUB.Count_And_Get(
4339: p_count => x_msg_count,
4340: p_data => x_msg_data,
4333:
4334: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4335: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4336: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4337: wsh_util_core.add_message(x_return_status);
4338: FND_MSG_PUB.Count_And_Get(
4339: p_count => x_msg_count,
4340: p_data => x_msg_data,
4341: p_encoded => FND_API.G_FALSE
4371: IF Get_Stops_Trip%ISOPEN THEN
4372: CLOSE Get_Stops_Trip;
4373: END IF;
4374:
4375: wsh_util_core.default_handler('WSH_XC_UTIL.CHECK_EXCEPTIONS');
4376: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4377:
4378: --
4379: -- Debug Statements
4372: CLOSE Get_Stops_Trip;
4373: END IF;
4374:
4375: wsh_util_core.default_handler('WSH_XC_UTIL.CHECK_EXCEPTIONS');
4376: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4377:
4378: --
4379: -- Debug Statements
4380: --
4518: IF FND_API.to_boolean(p_init_msg_list) THEN
4519: FND_MSG_PUB.initialize;
4520: END IF;
4521:
4522: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4523:
4524: IF (p_logging_entity_name = 'TRIP') THEN
4525: WSH_XC_UTIL.Purge (
4526: p_api_version => p_api_version,
4530: x_no_of_recs_purged => l_count,
4531: p_trip_id => p_logging_entity_id,
4532: p_action => C_ACTION_SEMICLOSED
4533: );
4534: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4535: IF l_debug_on THEN
4536: WSH_DEBUG_SV.logmsg('Purge failed for Trip :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4537: END IF;
4538: RAISE WSH_PURGE_FAILED;
4550: p_logging_entity_name => 'STOP',
4551: p_consider_content => p_consider_content,
4552: p_caller => p_caller||c_trip
4553: );
4554: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg('Close_Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4557: END IF;
4558: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4573: x_no_of_recs_purged => l_count,
4574: p_trip_stop_id => p_logging_entity_id,
4575: p_action => C_ACTION_SEMICLOSED
4576: );
4577: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4578: IF l_debug_on THEN
4579: WSH_DEBUG_SV.logmsg('Purge failed for Stop :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4580: END IF;
4581: RAISE WSH_PURGE_FAILED;
4592: p_logging_entity_id => del_rec.delivery_id,
4593: p_logging_entity_name => 'DELIVERY',
4594: p_consider_content => p_consider_content
4595: );
4596: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4597: IF l_debug_on THEN
4598: WSH_DEBUG_SV.logmsg('Close_Exception failed for Delivery :'||del_rec.delivery_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4599: END IF;
4600: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4618: p_logging_entity_name => 'STOP',
4619: p_consider_content => p_consider_content,
4620: p_caller => p_caller
4621: );
4622: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg('Close_Exception failed for Stop :'||stop_rec.stop_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4625: END IF;
4626: RAISE WSH_CLOSE_EXCEPTIONS_FAILED;
4637: p_delivery_id => p_logging_entity_id,
4638: p_delivery_contents => p_consider_content,
4639: p_action => C_ACTION_SEMICLOSED
4640: );
4641: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4642: IF l_debug_on THEN
4643: WSH_DEBUG_SV.logmsg('Purge failed for Delivery :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4644: END IF;
4645: RAISE WSH_PURGE_FAILED;
4654: x_no_of_recs_purged => l_count,
4655: p_delivery_detail_id => p_logging_entity_id,
4656: p_action => C_ACTION_SEMICLOSED
4657: );
4658: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4659: IF l_debug_on THEN
4660: WSH_DEBUG_SV.logmsg('Purge failed for Detail/Container :'||p_logging_entity_id,WSH_DEBUG_SV.C_EXCEP_LEVEL);
4661: END IF;
4662: RAISE WSH_PURGE_FAILED;
4677: --
4678:
4679: EXCEPTION
4680: WHEN WSH_CLOSE_EXCEPTIONS_FAILED THEN
4681: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4682: wsh_util_core.add_message(x_return_status);
4683: FND_MSG_PUB.Count_And_Get(
4684: p_count => x_msg_count,
4685: p_data => x_msg_data,
4678:
4679: EXCEPTION
4680: WHEN WSH_CLOSE_EXCEPTIONS_FAILED THEN
4681: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4682: wsh_util_core.add_message(x_return_status);
4683: FND_MSG_PUB.Count_And_Get(
4684: p_count => x_msg_count,
4685: p_data => x_msg_data,
4686: p_encoded => FND_API.G_FALSE
4695: END IF;
4696: --
4697:
4698: WHEN WSH_PURGE_FAILED THEN
4699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4700: wsh_util_core.add_message(x_return_status);
4701: FND_MSG_PUB.Count_And_Get(
4702: p_count => x_msg_count,
4703: p_data => x_msg_data,
4696: --
4697:
4698: WHEN WSH_PURGE_FAILED THEN
4699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4700: wsh_util_core.add_message(x_return_status);
4701: FND_MSG_PUB.Count_And_Get(
4702: p_count => x_msg_count,
4703: p_data => x_msg_data,
4704: p_encoded => FND_API.G_FALSE
4714: --
4715:
4716: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4717: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4719: wsh_util_core.add_message(x_return_status);
4720: FND_MSG_PUB.Count_And_Get(
4721: p_count => x_msg_count,
4722: p_data => x_msg_data,
4715:
4716: WHEN WSH_INVALID_LOGGING_ENTITY THEN
4717: FND_MESSAGE.Set_Name('FND', 'WSH_XC_INVALID_LOGGING_ENTITY');
4718: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4719: wsh_util_core.add_message(x_return_status);
4720: FND_MSG_PUB.Count_And_Get(
4721: p_count => x_msg_count,
4722: p_data => x_msg_data,
4723: p_encoded => FND_API.G_FALSE
4732: END IF;
4733: --
4734:
4735: WHEN others THEN
4736: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_EXCEPTIONS');
4737: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4738:
4739: --
4740: -- Debug Statements
4733: --
4734:
4735: WHEN others THEN
4736: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_EXCEPTIONS');
4737: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4738:
4739: --
4740: -- Debug Statements
4741: --
4760: ----------------------------------------------------------
4761:
4762: PROCEDURE CLOSE_OTM_EXCEPTION(
4763: p_delivery_id IN WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE,
4764: p_exceptions_to_close_tab IN WSH_UTIL_CORE.COLUMN_TAB_TYPE,
4765: x_return_status OUT NOCOPY VARCHAR2) IS
4766:
4767: l_exception_name WSH_EXCEPTION_DEFINITIONS_TL.EXCEPTION_NAME%TYPE;
4768: l_debug_on BOOLEAN;
4789: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
4790: WSH_DEBUG_SV.log(l_module_name, 'number of exceptions to close', p_exceptions_to_close_tab.COUNT);
4791: END IF;
4792: --
4793: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4794: l_exception_name := NULL;
4795: l_count := 0;
4796: l_msg_count := 0;
4797: l_msg_data := NULL;
4826: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.purge: ' || l_return_status);
4827: WSH_DEBUG_SV.log(l_module_name, 'number of exceptions purged', l_count);
4828: END IF;
4829:
4830: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4831: x_return_status := l_return_status;
4832: EXIT;
4833: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4834: l_num_warn := l_num_warn + 1;
4829:
4830: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4831: x_return_status := l_return_status;
4832: EXIT;
4833: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4834: l_num_warn := l_num_warn + 1;
4835: END IF;
4836:
4837: i := p_exceptions_to_close_tab.NEXT(i);
4837: i := p_exceptions_to_close_tab.NEXT(i);
4838: END LOOP;
4839: END IF;
4840:
4841: IF l_num_warn > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4842: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4843: END IF;
4844:
4845: -- Debug Statements
4838: END LOOP;
4839: END IF;
4840:
4841: IF l_num_warn > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4842: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4843: END IF;
4844:
4845: -- Debug Statements
4846: --
4852:
4853: EXCEPTION
4854: --
4855: WHEN OTHERS THEN
4856: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_OTM_EXCEPTION', l_module_name);
4857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4858: IF l_debug_on THEN
4859: WSH_DEBUG_SV.logmsg(l_module_name, 'Unexpected error has occured. '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4860: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4853: EXCEPTION
4854: --
4855: WHEN OTHERS THEN
4856: wsh_util_core.default_handler('WSH_XC_UTIL.CLOSE_OTM_EXCEPTION', l_module_name);
4857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4858: IF l_debug_on THEN
4859: WSH_DEBUG_SV.logmsg(l_module_name, 'Unexpected error has occured. '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4860: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4861: END IF;
4880: ----------------------------------------------------------
4881:
4882: PROCEDURE LOG_OTM_EXCEPTION(
4883: p_delivery_info_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
4884: p_new_interface_flag_tab IN WSH_UTIL_CORE.COLUMN_TAB_TYPE,
4885: x_return_status OUT NOCOPY VARCHAR2) IS
4886:
4887: l_msg_count NUMBER;
4888: l_msg_data VARCHAR2(32767);
4893: l_return_status VARCHAR2(1);
4894:
4895: l_new_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
4896: l_exception_name WSH_EXCEPTION_DEFINITIONS_TL.EXCEPTION_NAME%TYPE;
4897: l_exceptions_to_close_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4898: i NUMBER;
4899: --
4900: l_debug_on BOOLEAN;
4901: --
4915: WSH_DEBUG_SV.log(l_module_name, 'delivery record count', p_delivery_info_tab.COUNT);
4916: WSH_DEBUG_SV.log(l_module_name, 'interface flag count', p_new_interface_flag_tab.COUNT);
4917: END IF;
4918:
4919: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4920:
4921: --initialize
4922: l_num_warn := 0;
4923: l_num_error := 0;
5006: IF l_debug_on THEN
5007: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.close_otm_exception: ' || l_return_status);
5008: END IF;
5009:
5010: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5011: l_num_error := l_num_error + 1;
5012: EXIT;
5013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5014: l_num_warn := l_num_warn + 1;
5009:
5010: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5011: l_num_error := l_num_error + 1;
5012: EXIT;
5013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5014: l_num_warn := l_num_warn + 1;
5015: END IF;
5016: END IF;
5017:
5051: IF l_debug_on THEN
5052: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.log_exception: ' || l_return_status);
5053: END IF;
5054:
5055: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5056: l_num_error := l_num_error + 1;
5057: EXIT;
5058: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5059: l_num_warn := l_num_warn + 1;
5054:
5055: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5056: l_num_error := l_num_error + 1;
5057: EXIT;
5058: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5059: l_num_warn := l_num_warn + 1;
5060: END IF;
5061:
5062: END IF;
5123: IF l_debug_on THEN
5124: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.log_exception: ' || l_return_status);
5125: END IF;
5126:
5127: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5128: l_num_error := l_num_error + 1;
5129: EXIT;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5131: l_num_warn := l_num_warn + 1;
5126:
5127: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5128: l_num_error := l_num_error + 1;
5129: EXIT;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5131: l_num_warn := l_num_warn + 1;
5132: END IF;
5133:
5134: END IF;
5138:
5139: END LOOP;
5140:
5141: IF (l_num_error > 0)THEN
5142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5143: ELSIF (l_num_warn > 0) THEN
5144: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5145: ELSE
5146: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5140:
5141: IF (l_num_error > 0)THEN
5142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5143: ELSIF (l_num_warn > 0) THEN
5144: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5145: ELSE
5146: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5147: END IF;
5148:
5142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5143: ELSIF (l_num_warn > 0) THEN
5144: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5145: ELSE
5146: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5147: END IF;
5148:
5149: --
5150: -- Debug Statements
5156: --
5157:
5158: EXCEPTION
5159: WHEN others THEN
5160: wsh_util_core.default_handler('WSH_XC_UTIL.LOG_OTM_EXCEPTION', l_module_name);
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5162:
5163: IF l_debug_on THEN
5164: WSH_DEBUG_SV.logmsg(l_module_name,
5157:
5158: EXCEPTION
5159: WHEN others THEN
5160: wsh_util_core.default_handler('WSH_XC_UTIL.LOG_OTM_EXCEPTION', l_module_name);
5161: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5162:
5163: IF l_debug_on THEN
5164: WSH_DEBUG_SV.logmsg(l_module_name,
5165: 'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5222: WSH_DEBUG_SV.push(l_module_name);
5223: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
5224: END IF;
5225:
5226: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5227:
5228: l_severity := NULL;
5229: l_rank := NULL;
5230: l_exception_name := NULL;
5266: END IF;
5267:
5268: EXCEPTION
5269: WHEN OTHERS THEN
5270: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5271: wsh_util_core.default_handler('WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION', l_module_name);
5272:
5273: IF c_get_delivery_otm_exceptions%ISOPEN THEN
5274: CLOSE c_get_delivery_otm_exceptions;
5267:
5268: EXCEPTION
5269: WHEN OTHERS THEN
5270: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5271: wsh_util_core.default_handler('WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION', l_module_name);
5272:
5273: IF c_get_delivery_otm_exceptions%ISOPEN THEN
5274: CLOSE c_get_delivery_otm_exceptions;
5275: END IF;