[Home] [Help]
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
742: p_program_id,
743: p_program_update_date
744: );
745:
746: IF FND_API.TO_BOOLEAN(p_commit) THEN
747: COMMIT WORK;
748: END IF;
749:
750: x_exception_id := l_exception_id;
1342: --BUG#:1549665 hwahdani added request_id
1343: request_id = l_xcp_record.request_id
1344: WHERE CURRENT OF C3;
1345:
1346: IF FND_API.TO_BOOLEAN(p_commit) THEN
1347: COMMIT WORK;
1348: x_exception_id := l_exception_id;
1349: END IF;
1350: CLOSE C3;
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: --
1450: -- Debug Statements
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
1480: --
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
1509: --
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
1539: --
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
1569: --
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
1596: --
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
1625: --
1641: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_XC_DATA_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_XC_DATA_ERROR');
1643: END IF;
1644: --
1645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1646: ROLLBACK TO Log_Exception_PUB ;
1647:
1648: l_msg_summary := 'unexpected error';
1649: --
1653: WSH_DEBUG_SV.logmsg(l_module_name, L_MSG_SUMMARY );
1654: END IF;
1655: --
1656:
1657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1658: IF FND_MSG_PUB.check_msg_level
1659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1660: THEN
1661: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666: --
1667: -- Debug Statements
1668: --
1669: IF l_debug_on THEN
1670: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1671: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1672: END IF;
1673: --
1674: WHEN OTHERS THEN
1667: -- Debug Statements
1668: --
1669: IF l_debug_on THEN
1670: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1671: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1672: END IF;
1673: --
1674: WHEN OTHERS THEN
1675: ROLLBACK TO Log_Exception_PUB ;
1672: END IF;
1673: --
1674: WHEN OTHERS THEN
1675: ROLLBACK TO Log_Exception_PUB ;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677: IF FND_MSG_PUB.check_msg_level
1678: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1696: -- API name : change_status
1697: -- Type : Public
1698: -- Function : If the p_old_status matches the current exception status,
1699: -- this procedure will change the status in two ways:
1700: -- 1) if p_set_default_status = FND_API.G_TRUE (i.e. 'T'),
1701: -- then it sets the exception to default status
1702: -- 2) if p_set_default_status is missing, it sets the
1703: -- exception to x_new_status
1704: --
1758: l_old_status VARCHAR2(30);
1759: l_p_old_status VARCHAR2(30);
1760:
1761: l_lookups_status VARCHAR2(30);
1762: l_status_valid VARCHAR2(1) := FND_API.G_FALSE;
1763: l_exception_handling VARCHAR2(16);
1764: l_initiate_workflow VARCHAR2(1) := 'N';
1765: l_severity VARCHAR2(10);
1766:
1812: END IF;
1813: --
1814: SAVEPOINT Change_Status_PUB;
1815: -- Standard call to check for call compatibility.
1816: IF NOT FND_API.compatible_api_call(l_api_version,
1817: p_api_version,
1818: l_api_name,
1819: G_PKG_NAME) THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1816: IF NOT FND_API.compatible_api_call(l_api_version,
1817: p_api_version,
1818: l_api_name,
1819: G_PKG_NAME) THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: END IF;
1822:
1823: -- Check p_init_msg_list
1824: IF FND_API.to_boolean(p_init_msg_list) THEN
1820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1821: END IF;
1822:
1823: -- Check p_init_msg_list
1824: IF FND_API.to_boolean(p_init_msg_list) THEN
1825: FND_MSG_PUB.initialize;
1826: END IF;
1827:
1828: -- initialize API return status to success
1825: FND_MSG_PUB.initialize;
1826: END IF;
1827:
1828: -- initialize API return status to success
1829: x_return_status := FND_API.G_RET_STS_SUCCESS;
1830:
1831: -- Converting the p_old_status to applicable status (OPEN,CLOSED,NO_ACTION_REQUIRED) since we do not upgrade old exceptions status to new
1832: -- However new exceptions will be logged with new valid status
1833: -- If p_old_status is CLOSED, then raise error
1858: END IF;
1859:
1860: -- validate parameters, p_set_default_status and x_new_status is mutually exclusive
1861: --
1862: IF p_set_default_status = FND_API.G_TRUE THEN
1863: x_new_status := NULL;
1864: OPEN C2(p_exception_id);
1865: FETCH C2 INTO l_severity, l_exception_handling, l_initiate_workflow;
1866:
1918: NULL,'NO_ACTION_REQUIRED' ,
1919: UPPER(status)
1920: ) = l_p_old_status ;
1921:
1922: IF FND_API.TO_BOOLEAN(p_commit) THEN
1923: COMMIT WORK;
1924: END IF;
1925:
1926: x_new_status := l_new_status;
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;
1945: else
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;
1964: else
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;
1984: else
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;
2003: else
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;
2026: else
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;
2046: else
2055: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_XC_DATA_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_XC_DATA_ERROR');
2057: END IF;
2058: --
2059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2060: ROLLBACK TO Change_Status_PUB ;
2061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2062: IF FND_MSG_PUB.check_msg_level
2063: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2057: END IF;
2058: --
2059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2060: ROLLBACK TO Change_Status_PUB ;
2061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2062: IF FND_MSG_PUB.check_msg_level
2063: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2064: THEN
2065: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2070: --
2071: -- Debug Statements
2072: --
2073: IF l_debug_on THEN
2074: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2075: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2076: END IF;
2077: --
2078:
2071: -- Debug Statements
2072: --
2073: IF l_debug_on THEN
2074: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2075: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2076: END IF;
2077: --
2078:
2079: WHEN WSH_XC_EXCEPTION_CLOSED THEN
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;
2087: else
2096:
2097:
2098: WHEN OTHERS THEN
2099: ROLLBACK TO Change_Status_PUB ;
2100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2101: IF FND_MSG_PUB.check_msg_level
2102: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2103: THEN
2104: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3171: --
3172: -- Input Parameters
3173: -- p_api_version
3174: -- API version number (current version is 1.0)
3175: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3176: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3177: -- if set to FND_API.G_TRUE
3178: -- initialize error message list
3179: -- if set to FND_API.G_FALSE - not initialize error
3172: -- Input Parameters
3173: -- p_api_version
3174: -- API version number (current version is 1.0)
3175: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3176: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3177: -- if set to FND_API.G_TRUE
3178: -- initialize error message list
3179: -- if set to FND_API.G_FALSE - not initialize error
3180: -- message list
3173: -- p_api_version
3174: -- API version number (current version is 1.0)
3175: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3176: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3177: -- if set to FND_API.G_TRUE
3178: -- initialize error message list
3179: -- if set to FND_API.G_FALSE - not initialize error
3180: -- message list
3181: -- p_commit (optional, default FND_API.G_FALSE)
3175: -- p_init_msg_list (optional, default FND_API.G_FALSE)
3176: -- Valid values: FND_API.G_FALSE or FND_API.G_TRUE.
3177: -- if set to FND_API.G_TRUE
3178: -- initialize error message list
3179: -- if set to FND_API.G_FALSE - not initialize error
3180: -- message list
3181: -- p_commit (optional, default FND_API.G_FALSE)
3182: -- whether or not to commit the changes to database
3183: --
3177: -- if set to FND_API.G_TRUE
3178: -- initialize error message list
3179: -- if set to FND_API.G_FALSE - not initialize error
3180: -- message list
3181: -- p_commit (optional, default FND_API.G_FALSE)
3182: -- whether or not to commit the changes to database
3183: --
3184: -- Input parameters for purging the data
3185: -- See the API for more information
3198: --
3199: -- Output Parameters
3200: -- x_return_status
3201: -- if the process succeeds, the value is
3202: -- fnd_api.g_ret_sts_success;
3203: -- if there is an expected error, the value is
3204: -- fnd_api.g_ret_sts_error;
3205: -- if there is an unexpected error, the value is
3206: -- fnd_api.g_ret_sts_unexp_error;
3200: -- x_return_status
3201: -- if the process succeeds, the value is
3202: -- fnd_api.g_ret_sts_success;
3203: -- if there is an expected error, the value is
3204: -- fnd_api.g_ret_sts_error;
3205: -- if there is an unexpected error, the value is
3206: -- fnd_api.g_ret_sts_unexp_error;
3207: -- x_msg_count
3208: -- if there is one or more errors, the number of error messages
3202: -- fnd_api.g_ret_sts_success;
3203: -- if there is an expected error, the value is
3204: -- fnd_api.g_ret_sts_error;
3205: -- if there is an unexpected error, the value is
3206: -- fnd_api.g_ret_sts_unexp_error;
3207: -- x_msg_count
3208: -- if there is one or more errors, the number of error messages
3209: -- in the buffer
3210: -- x_msg_data
3208: -- if there is one or more errors, the number of error messages
3209: -- in the buffer
3210: -- x_msg_data
3211: -- if there is one and only one error, the error message
3212: -- (See fnd_api package for more details about the above output parameters)
3213: -- x_no_of_records - Number of Records Deleted
3214: --*/
3215:
3216: PROCEDURE Purge
3214: --*/
3215:
3216: PROCEDURE Purge
3217: (p_api_version IN NUMBER,
3218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3219: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3220: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3221: x_return_status OUT NOCOPY VARCHAR2,
3222: x_msg_count OUT NOCOPY NUMBER,
3215:
3216: PROCEDURE Purge
3217: (p_api_version IN NUMBER,
3218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3219: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3220: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3221: x_return_status OUT NOCOPY VARCHAR2,
3222: x_msg_count OUT NOCOPY NUMBER,
3223: x_msg_data OUT NOCOPY VARCHAR2,
3216: PROCEDURE Purge
3217: (p_api_version IN NUMBER,
3218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3219: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3220: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3221: x_return_status OUT NOCOPY VARCHAR2,
3222: x_msg_count OUT NOCOPY NUMBER,
3223: x_msg_data OUT NOCOPY VARCHAR2,
3224: p_request_id IN NUMBER DEFAULT NULL ,
3374: END IF;
3375: --
3376: SAVEPOINT WSH_XC_UTIL;
3377: -- Standard call to check for call compatibility.
3378: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3379: p_api_version ,
3380: l_api_name ,
3381: G_PKG_NAME )
3382: THEN
3381: G_PKG_NAME )
3382: THEN
3383: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
3384: FND_MSG_PUB.ADD;
3385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3386: END IF;
3387: -- Initialize message list if p_init_msg_list is set to TRUE.
3388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3389: FND_MSG_PUB.initialize;
3384: FND_MSG_PUB.ADD;
3385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3386: END IF;
3387: -- Initialize message list if p_init_msg_list is set to TRUE.
3388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3389: FND_MSG_PUB.initialize;
3390: END IF;
3391: -- Initialize API return status to success
3392: x_return_status := FND_API.G_RET_STS_SUCCESS;
3388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3389: FND_MSG_PUB.initialize;
3390: END IF;
3391: -- Initialize API return status to success
3392: x_return_status := FND_API.G_RET_STS_SUCCESS;
3393:
3394: -- Bug#3582688: Purge API is also called for closing exceptions (during ship confirm)
3395: -- for a trip or trip stop or delivery or delivery detail. We should be using static
3396: -- SQLs in this case since dynamic sql has performance issue if executed multiple
3773: END IF;
3774:
3775: --END IF;
3776:
3777: IF FND_API.To_Boolean( p_commit ) THEN
3778: COMMIT WORK;
3779: END IF;
3780: c_pfetch := c_exceptions%rowcount;
3781: l_count := c_pfetch;
3783: CLOSE c_exceptions;
3784: END IF; --} End of Closed and Purge
3785: END IF; --} Dynamic cursor required
3786: IF l_count > 0 THEN
3787: IF FND_API.To_Boolean( p_commit ) THEN
3788: COMMIT WORK;
3789: END IF;
3790: END IF;
3791: x_no_of_recs_purged := l_count;
3800: --
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
3816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_PURGE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_PURGE_FAILED');
3818: END IF;
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
3818: END IF;
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
3830: --
3831: -- Debug Statements
3832: --
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3836: END IF;
3837: --
3838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: -- Debug Statements
3832: --
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3836: END IF;
3837: --
3838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3839: ROLLBACK TO WSH_XC_UTIL;
3834: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3836: END IF;
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
3836: END IF;
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
3848: --
3849: -- Debug Statements
3850: --
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3854: END IF;
3855: --
3856: WHEN OTHERS THEN
3849: -- Debug Statements
3850: --
3851: IF l_debug_on THEN
3852: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3854: END IF;
3855: --
3856: WHEN OTHERS THEN
3857: ROLLBACK TO WSH_XC_UTIL;
3854: END IF;
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
3897:
3898: PROCEDURE Check_Exceptions (
3899: -- Standard parameters
3900: p_api_version IN NUMBER,
3901: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3902: x_return_status OUT NOCOPY VARCHAR2,
3903: x_msg_count OUT NOCOPY NUMBER,
3904: x_msg_data OUT NOCOPY VARCHAR2,
3905:
4048: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_ID',P_LOGGING_ENTITY_ID);
4049: WSH_DEBUG_SV.log(l_module_name,'P_CONSIDER_CONTENT',P_CONSIDER_CONTENT);
4050: END IF;
4051:
4052: IF NOT FND_API.compatible_api_call (
4053: l_api_version,
4054: p_api_version,
4055: l_api_name,
4056: G_PKG_NAME) THEN
4053: l_api_version,
4054: p_api_version,
4055: l_api_name,
4056: G_PKG_NAME) THEN
4057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4058: END IF;
4059:
4060: -- Check p_init_msg_list
4061: IF FND_API.to_boolean(p_init_msg_list) THEN
4057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4058: END IF;
4059:
4060: -- Check p_init_msg_list
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;
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
4324: );
4325: --
4326: -- Debug Statements
4327: --
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
4342: );
4343: --
4344: -- Debug Statements
4345: --
4407:
4408: PROCEDURE Close_Exceptions (
4409: -- Standard parameters
4410: p_api_version IN NUMBER,
4411: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4412: x_return_status OUT NOCOPY VARCHAR2,
4413: x_msg_count OUT NOCOPY NUMBER,
4414: x_msg_data OUT NOCOPY VARCHAR2,
4415:
4505: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_NAME',P_LOGGING_ENTITY_NAME);
4506: WSH_DEBUG_SV.log(l_module_name,'P_LOGGING_ENTITY_ID',P_LOGGING_ENTITY_ID);
4507: END IF;
4508:
4509: IF NOT FND_API.compatible_api_call (
4510: l_api_version,
4511: p_api_version,
4512: l_api_name,
4513: G_PKG_NAME) THEN
4510: l_api_version,
4511: p_api_version,
4512: l_api_name,
4513: G_PKG_NAME) THEN
4514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4515: END IF;
4516:
4517: -- Check p_init_msg_list
4518: IF FND_API.to_boolean(p_init_msg_list) THEN
4514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4515: END IF;
4516:
4517: -- Check p_init_msg_list
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;
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
4687: );
4688:
4689: --
4690: -- Debug Statements
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
4705: );
4706:
4707: --
4708: -- Debug Statements
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
4724: );
4725:
4726: --
4727: -- Debug Statements