76: WSH_DEBUG_SV.push(l_module_name);
77: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME', p_exception_name);
78: END IF;
79: --
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81:
82: -- Check if exception definition is already cached
83: IF (g_exception_defs.count <> 0 AND
84: g_exception_defs.EXISTS(p_exception_name)) THEN
121: FND_MESSAGE.Set_Name('WSH', 'WSH_XC_DEF_NOT_FOUND');
122: IF c_exc_def%ISOPEN THEN
123: CLOSE c_exc_def;
124: END IF;
125: x_return_status := FND_API.G_RET_STS_ERROR;
126: IF l_debug_on THEN
127: WSH_DEBUG_SV.log(l_module_name,'ERROR: ','Exception Not Defined:'||p_exception_name);
128: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
129: END IF;
135: FND_MESSAGE.Set_Token('ORA_TEXT','');
136: IF c_exc_def%ISOPEN THEN
137: CLOSE c_exc_def;
138: END IF;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: --
141: -- Debug Statements
142: --
143: IF l_debug_on THEN
318: -- local variables
319: l_exception_id NUMBER := NULL;
320: l_severity VARCHAR2(10) := NULL;
321: l_exc_def_info Exception_Def_Rec_Typ;
322: l_manually_logged VARCHAR2(1) := FND_API.G_FALSE;
323: -- Shipping exception enhancement : changed default to 'NO_ACTION_REQUIRED'
324: l_status VARCHAR2(30) :='NO_ACTION_REQUIRED';
325: l_exception_name VARCHAR2(30) := NULL;
326: l_applicatoin_id NUMBER;
434: END IF;
435: --
436: SAVEPOINT Log_Exception_PUB;
437: -- Standard call to check for call compatibility.
438: IF NOT FND_API.compatible_api_call( l_api_version,
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: IF NOT FND_API.compatible_api_call( l_api_version,
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: -- Check p_init_msg_list
446: IF FND_API.to_boolean(p_init_msg_list) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: -- Check p_init_msg_list
446: IF FND_API.to_boolean(p_init_msg_list) THEN
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: -- initialize API return status to success
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: -- initialize API return status to success
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453: IF x_exception_id IS NULL THEN
454: -- insert record
455:
508: RAISE WSH_XC_INVALID_LOCATION;
509: END IF;
510:
511: -- set default value for p_manually_logged is 'F'
512: IF p_manually_logged=FND_API.G_TRUE
513: THEN
514: l_manually_logged := p_manually_logged;
515: ELSE -- Bugfix 3711661
516: IF (p_request_id is null) THEN
743: p_program_update_date
744: ) RETURNING exception_id INTO l_exception_id; --Bug 10234842
745:
746:
747: IF FND_API.TO_BOOLEAN(p_commit) THEN
748: COMMIT WORK;
749: END IF;
750:
751: x_exception_id := l_exception_id;
1343: --BUG#:1549665 hwahdani added request_id
1344: request_id = l_xcp_record.request_id
1345: WHERE CURRENT OF C3;
1346:
1347: IF FND_API.TO_BOOLEAN(p_commit) THEN
1348: COMMIT WORK;
1349: x_exception_id := l_exception_id;
1350: END IF;
1351: CLOSE C3;
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: --
1451: -- Debug Statements
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
1481: --
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
1510: --
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
1540: --
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
1570: --
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
1597: --
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
1626: --
1642: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_XC_DATA_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1643: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_XC_DATA_ERROR');
1644: END IF;
1645: --
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1647: ROLLBACK TO Log_Exception_PUB ;
1648:
1649: l_msg_summary := 'unexpected error';
1650: --
1654: WSH_DEBUG_SV.logmsg(l_module_name, L_MSG_SUMMARY );
1655: END IF;
1656: --
1657:
1658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1659: IF FND_MSG_PUB.check_msg_level
1660: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1661: THEN
1662: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1667: --
1668: -- Debug Statements
1669: --
1670: IF l_debug_on THEN
1671: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1673: END IF;
1674: --
1675: WHEN OTHERS THEN
1668: -- Debug Statements
1669: --
1670: IF l_debug_on THEN
1671: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1673: END IF;
1674: --
1675: WHEN OTHERS THEN
1676: ROLLBACK TO Log_Exception_PUB ;
1673: END IF;
1674: --
1675: WHEN OTHERS THEN
1676: ROLLBACK TO Log_Exception_PUB ;
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: IF FND_MSG_PUB.check_msg_level
1679: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1680: THEN
1681: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1697: -- API name : change_status
1698: -- Type : Public
1699: -- Function : If the p_old_status matches the current exception status,
1700: -- this procedure will change the status in two ways:
1701: -- 1) if p_set_default_status = FND_API.G_TRUE (i.e. 'T'),
1702: -- then it sets the exception to default status
1703: -- 2) if p_set_default_status is missing, it sets the
1704: -- exception to x_new_status
1705: --
1759: l_old_status VARCHAR2(30);
1760: l_p_old_status VARCHAR2(30);
1761:
1762: l_lookups_status VARCHAR2(30);
1763: l_status_valid VARCHAR2(1) := FND_API.G_FALSE;
1764: l_exception_handling VARCHAR2(16);
1765: l_initiate_workflow VARCHAR2(1) := 'N';
1766: l_severity VARCHAR2(10);
1767:
1813: END IF;
1814: --
1815: SAVEPOINT Change_Status_PUB;
1816: -- Standard call to check for call compatibility.
1817: IF NOT FND_API.compatible_api_call(l_api_version,
1818: p_api_version,
1819: l_api_name,
1820: G_PKG_NAME) THEN
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: IF NOT FND_API.compatible_api_call(l_api_version,
1818: p_api_version,
1819: l_api_name,
1820: G_PKG_NAME) THEN
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END IF;
1823:
1824: -- Check p_init_msg_list
1825: IF FND_API.to_boolean(p_init_msg_list) THEN
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END IF;
1823:
1824: -- Check p_init_msg_list
1825: IF FND_API.to_boolean(p_init_msg_list) THEN
1826: FND_MSG_PUB.initialize;
1827: END IF;
1828:
1829: -- initialize API return status to success
1826: FND_MSG_PUB.initialize;
1827: END IF;
1828:
1829: -- initialize API return status to success
1830: x_return_status := FND_API.G_RET_STS_SUCCESS;
1831:
1832: -- Converting the p_old_status to applicable status (OPEN,CLOSED,NO_ACTION_REQUIRED) since we do not upgrade old exceptions status to new
1833: -- However new exceptions will be logged with new valid status
1834: -- If p_old_status is CLOSED, then raise error
1859: END IF;
1860:
1861: -- validate parameters, p_set_default_status and x_new_status is mutually exclusive
1862: --
1863: IF p_set_default_status = FND_API.G_TRUE THEN
1864: x_new_status := NULL;
1865: OPEN C2(p_exception_id);
1866: FETCH C2 INTO l_severity, l_exception_handling, l_initiate_workflow;
1867:
1919: NULL,'NO_ACTION_REQUIRED' ,
1920: UPPER(status)
1921: ) = l_p_old_status ;
1922:
1923: IF FND_API.TO_BOOLEAN(p_commit) THEN
1924: COMMIT WORK;
1925: END IF;
1926:
1927: x_new_status := l_new_status;
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;
1946: else
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;
1965: else
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;
1985: else
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;
2004: else
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;
2027: else
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;
2047: else
2056: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_XC_DATA_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2057: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_XC_DATA_ERROR');
2058: END IF;
2059: --
2060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2061: ROLLBACK TO Change_Status_PUB ;
2062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2063: IF FND_MSG_PUB.check_msg_level
2064: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2058: END IF;
2059: --
2060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2061: ROLLBACK TO Change_Status_PUB ;
2062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2063: IF FND_MSG_PUB.check_msg_level
2064: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2065: THEN
2066: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2071: --
2072: -- Debug Statements
2073: --
2074: IF l_debug_on THEN
2075: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2077: END IF;
2078: --
2079:
2072: -- Debug Statements
2073: --
2074: IF l_debug_on THEN
2075: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2077: END IF;
2078: --
2079:
2080: WHEN WSH_XC_EXCEPTION_CLOSED THEN
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;
2088: else
2097:
2098:
2099: WHEN OTHERS THEN
2100: ROLLBACK TO Change_Status_PUB ;
2101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2102: IF FND_MSG_PUB.check_msg_level
2103: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2104: THEN
2105: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3179: --
3180: -- Input Parameters
3181: -- p_api_version
3182: -- API version number (current version is 1.0)
3183: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3184: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3185: -- if set to FND_API.G_TRUE
3186: -- initialize error message list
3187: -- if set to FND_API.G_FALSE - not initialize error
3180: -- Input Parameters
3181: -- p_api_version
3182: -- API version number (current version is 1.0)
3183: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3184: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3185: -- if set to FND_API.G_TRUE
3186: -- initialize error message list
3187: -- if set to FND_API.G_FALSE - not initialize error
3188: -- message list
3181: -- p_api_version
3182: -- API version number (current version is 1.0)
3183: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3184: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3185: -- if set to FND_API.G_TRUE
3186: -- initialize error message list
3187: -- if set to FND_API.G_FALSE - not initialize error
3188: -- message list
3189: -- p_commit (optional, default FND_API.G_FALSE)
3183: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3184: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3185: -- if set to FND_API.G_TRUE
3186: -- initialize error message list
3187: -- if set to FND_API.G_FALSE - not initialize error
3188: -- message list
3189: -- p_commit (optional, default FND_API.G_FALSE)
3190: -- whether or not to commit the changes to database
3191: --
3185: -- if set to FND_API.G_TRUE
3186: -- initialize error message list
3187: -- if set to FND_API.G_FALSE - not initialize error
3188: -- message list
3189: -- p_commit (optional, default FND_API.G_FALSE)
3190: -- whether or not to commit the changes to database
3191: --
3192: -- Input parameters for purging the data
3193: -- See the API for more information
3206: --
3207: -- Output Parameters
3208: -- x_return_status
3209: -- if the process succeeds, the value is
3210: -- fnd_api.g_ret_sts_success;
3211: -- if there is an expected error, the value is
3212: -- fnd_api.g_ret_sts_error;
3213: -- if there is an unexpected error, the value is
3214: -- fnd_api.g_ret_sts_unexp_error;
3208: -- x_return_status
3209: -- if the process succeeds, the value is
3210: -- fnd_api.g_ret_sts_success;
3211: -- if there is an expected error, the value is
3212: -- fnd_api.g_ret_sts_error;
3213: -- if there is an unexpected error, the value is
3214: -- fnd_api.g_ret_sts_unexp_error;
3215: -- x_msg_count
3216: -- if there is one or more errors, the number of error messages
3210: -- fnd_api.g_ret_sts_success;
3211: -- if there is an expected error, the value is
3212: -- fnd_api.g_ret_sts_error;
3213: -- if there is an unexpected error, the value is
3214: -- fnd_api.g_ret_sts_unexp_error;
3215: -- x_msg_count
3216: -- if there is one or more errors, the number of error messages
3217: -- in the buffer
3218: -- x_msg_data
3216: -- if there is one or more errors, the number of error messages
3217: -- in the buffer
3218: -- x_msg_data
3219: -- if there is one and only one error, the error message
3220: -- (See fnd_api package for more details about the above output parameters)
3221: -- x_no_of_records - Number of Records Deleted
3222: --*/
3223:
3224: PROCEDURE Purge
3222: --*/
3223:
3224: PROCEDURE Purge
3225: (p_api_version IN NUMBER,
3226: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3227: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3228: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3229: x_return_status OUT NOCOPY VARCHAR2,
3230: x_msg_count OUT NOCOPY NUMBER,
3223:
3224: PROCEDURE Purge
3225: (p_api_version IN NUMBER,
3226: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3227: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3228: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3229: x_return_status OUT NOCOPY VARCHAR2,
3230: x_msg_count OUT NOCOPY NUMBER,
3231: x_msg_data OUT NOCOPY VARCHAR2,
3224: PROCEDURE Purge
3225: (p_api_version IN NUMBER,
3226: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3227: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3228: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3229: x_return_status OUT NOCOPY VARCHAR2,
3230: x_msg_count OUT NOCOPY NUMBER,
3231: x_msg_data OUT NOCOPY VARCHAR2,
3232: p_request_id IN NUMBER DEFAULT NULL ,
3382: END IF;
3383: --
3384: SAVEPOINT WSH_XC_UTIL;
3385: -- Standard call to check for call compatibility.
3386: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3387: p_api_version ,
3388: l_api_name ,
3389: G_PKG_NAME )
3390: THEN
3389: G_PKG_NAME )
3390: THEN
3391: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
3392: FND_MSG_PUB.ADD;
3393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3394: END IF;
3395: -- Initialize message list if p_init_msg_list is set to TRUE.
3396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3397: FND_MSG_PUB.initialize;
3392: FND_MSG_PUB.ADD;
3393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3394: END IF;
3395: -- Initialize message list if p_init_msg_list is set to TRUE.
3396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3397: FND_MSG_PUB.initialize;
3398: END IF;
3399: -- Initialize API return status to success
3400: x_return_status := FND_API.G_RET_STS_SUCCESS;
3396: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3397: FND_MSG_PUB.initialize;
3398: END IF;
3399: -- Initialize API return status to success
3400: x_return_status := FND_API.G_RET_STS_SUCCESS;
3401:
3402: -- Bug#3582688: Purge API is also called for closing exceptions (during ship confirm)
3403: -- for a trip or trip stop or delivery or delivery detail. We should be using static
3404: -- SQLs in this case since dynamic sql has performance issue if executed multiple
3781: END IF;
3782:
3783: --END IF;
3784:
3785: IF FND_API.To_Boolean( p_commit ) THEN
3786: COMMIT WORK;
3787: END IF;
3788: c_pfetch := c_exceptions%rowcount;
3789: l_count := c_pfetch;
3791: CLOSE c_exceptions;
3792: END IF; --} End of Closed and Purge
3793: END IF; --} Dynamic cursor required
3794: IF l_count > 0 THEN
3795: IF FND_API.To_Boolean( p_commit ) THEN
3796: COMMIT WORK;
3797: END IF;
3798: END IF;
3799: x_no_of_recs_purged := l_count;
3808: --
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
3824: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_PURGE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3825: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_PURGE_FAILED');
3826: END IF;
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
3826: END IF;
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
3838: --
3839: -- Debug Statements
3840: --
3841: IF l_debug_on THEN
3842: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3843: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3844: END IF;
3845: --
3846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3839: -- Debug Statements
3840: --
3841: IF l_debug_on THEN
3842: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3843: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3844: END IF;
3845: --
3846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3847: ROLLBACK TO WSH_XC_UTIL;
3842: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3843: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3844: END IF;
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
3844: END IF;
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
3856: --
3857: -- Debug Statements
3858: --
3859: IF l_debug_on THEN
3860: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3861: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3862: END IF;
3863: --
3864: WHEN OTHERS THEN
3857: -- Debug Statements
3858: --
3859: IF l_debug_on THEN
3860: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3861: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3862: END IF;
3863: --
3864: WHEN OTHERS THEN
3865: ROLLBACK TO WSH_XC_UTIL;
3862: END IF;
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
3905:
3906: PROCEDURE Check_Exceptions (
3907: -- Standard parameters
3908: p_api_version IN NUMBER,
3909: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3910: x_return_status OUT NOCOPY VARCHAR2,
3911: x_msg_count OUT NOCOPY NUMBER,
3912: x_msg_data OUT NOCOPY VARCHAR2,
3913:
4056: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_ID',P_LOGGING_ENTITY_ID);
4057: WSH_DEBUG_SV.log(l_module_name,'P_CONSIDER_CONTENT',P_CONSIDER_CONTENT);
4058: END IF;
4059:
4060: IF NOT FND_API.compatible_api_call (
4061: l_api_version,
4062: p_api_version,
4063: l_api_name,
4064: G_PKG_NAME) THEN
4061: l_api_version,
4062: p_api_version,
4063: l_api_name,
4064: G_PKG_NAME) THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067:
4068: -- Check p_init_msg_list
4069: IF FND_API.to_boolean(p_init_msg_list) THEN
4065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4066: END IF;
4067:
4068: -- Check p_init_msg_list
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;
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
4332: );
4333: --
4334: -- Debug Statements
4335: --
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
4350: );
4351: --
4352: -- Debug Statements
4353: --
4415:
4416: PROCEDURE Close_Exceptions (
4417: -- Standard parameters
4418: p_api_version IN NUMBER,
4419: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4420: x_return_status OUT NOCOPY VARCHAR2,
4421: x_msg_count OUT NOCOPY NUMBER,
4422: x_msg_data OUT NOCOPY VARCHAR2,
4423:
4513: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
4514: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_ID',P_LOGGING_ENTITY_ID);
4515: END IF;
4516:
4517: IF NOT FND_API.compatible_api_call (
4518: l_api_version,
4519: p_api_version,
4520: l_api_name,
4521: G_PKG_NAME) THEN
4518: l_api_version,
4519: p_api_version,
4520: l_api_name,
4521: G_PKG_NAME) THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: END IF;
4524:
4525: -- Check p_init_msg_list
4526: IF FND_API.to_boolean(p_init_msg_list) THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: END IF;
4524:
4525: -- Check p_init_msg_list
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;
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
4695: );
4696:
4697: --
4698: -- Debug Statements
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
4713: );
4714:
4715: --
4716: -- Debug Statements
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
4732: );
4733:
4734: --
4735: -- Debug Statements