1: PACKAGE BODY WSH_EXCEPTIONS_GRP AS
2: /* $Header: WSHXCPGB.pls 120.4 2006/01/04 10:02:21 parkhj noship $ */
3:
4: --===================
5: -- CONSTANTS
3:
4: --===================
5: -- CONSTANTS
6: --===================
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'WSH_EXCEPTIONS_GRP';
8: -- add your constants here if any
9:
10: --===================
11: -- PROCEDURES
35: p_logging_entity_id IN NUMBER,
36: p_logging_entity_name IN VARCHAR2,
37:
38: -- program specific out parameters
39: x_exceptions_tab OUT NOCOPY WSH_EXCEPTIONS_PUB.XC_TAB_TYPE
40: ) IS
41:
42: CURSOR Get_Trip_Exceptions (v_trip_id NUMBER) IS
43: SELECT exception_id, exception_name, status
40: ) IS
41:
42: CURSOR Get_Trip_Exceptions (v_trip_id NUMBER) IS
43: SELECT exception_id, exception_name, status
44: FROM wsh_exceptions
45: WHERE trip_id = v_trip_id;
46:
47: CURSOR Get_Stop_Exceptions (v_stop_id NUMBER) IS
48: SELECT exception_id, exception_name, status
45: WHERE trip_id = v_trip_id;
46:
47: CURSOR Get_Stop_Exceptions (v_stop_id NUMBER) IS
48: SELECT exception_id, exception_name, status
49: FROM wsh_exceptions
50: WHERE trip_stop_id = v_stop_id;
51:
52: CURSOR Get_Delivery_Exceptions (v_delivery_id NUMBER) IS
53: SELECT exception_id, exception_name, status
50: WHERE trip_stop_id = v_stop_id;
51:
52: CURSOR Get_Delivery_Exceptions (v_delivery_id NUMBER) IS
53: SELECT exception_id, exception_name, status
54: FROM wsh_exceptions
55: WHERE delivery_id = v_delivery_id;
56:
57: CURSOR Get_Detail_Exceptions (v_detail_id NUMBER) IS
58: SELECT exception_id, exception_name, status
55: WHERE delivery_id = v_delivery_id;
56:
57: CURSOR Get_Detail_Exceptions (v_detail_id NUMBER) IS
58: SELECT exception_id, exception_name, status
59: FROM wsh_exceptions
60: WHERE delivery_detail_id = v_detail_id;
61:
62: CURSOR Get_Container_Exceptions (v_del_detail_id NUMBER) IS
63: SELECT exception_id, exception_name, status
60: WHERE delivery_detail_id = v_detail_id;
61:
62: CURSOR Get_Container_Exceptions (v_del_detail_id NUMBER) IS
63: SELECT exception_id, exception_name, status
64: FROM WSH_EXCEPTIONS
65: WHERE delivery_detail_id = v_del_detail_id;
66:
67: -- Standard call to check for call compatibility
68: l_api_version CONSTANT NUMBER := 1.0;
189: IF Get_Container_Exceptions%ISOPEN THEN
190: CLOSE Get_Container_Exceptions;
191: END IF;
192:
193: wsh_util_core.default_handler('WSH_EXCEPTIONS_GRP.GET_EXCEPTIONS');
194: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
195:
196: --
197: -- Debug Statements
242:
243: -- To get the current status of the Exception
244: CURSOR get_status IS
245: SELECT status
246: FROM wsh_exceptions
247: WHERE exception_id = p_exception_id ;
248:
249: -- Standard call to check for call compatibility
250: l_api_version CONSTANT NUMBER := 1.0;
249: -- Standard call to check for call compatibility
250: l_api_version CONSTANT NUMBER := 1.0;
251: l_api_name CONSTANT VARCHAR2(30):= 'Change_Status';
252:
253: l_exceptions_tab WSH_EXCEPTIONS_PUB.xc_tab_type;
254: l_temp_tab WSH_EXCEPTIONS_PUB.xc_tab_type;
255: l_count NUMBER;
256: l_new_status VARCHAR2(30);
257: l_old_status VARCHAR2(30);
250: l_api_version CONSTANT NUMBER := 1.0;
251: l_api_name CONSTANT VARCHAR2(30):= 'Change_Status';
252:
253: l_exceptions_tab WSH_EXCEPTIONS_PUB.xc_tab_type;
254: l_temp_tab WSH_EXCEPTIONS_PUB.xc_tab_type;
255: l_count NUMBER;
256: l_new_status VARCHAR2(30);
257: l_old_status VARCHAR2(30);
258: l_success_count NUMBER;
333: --
334: -- Debug Statements
335: --
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXCEPTIONS_GRP.GET_EXCEPTIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
338: END IF;
339: --
340: WSH_EXCEPTIONS_GRP.Get_Exceptions (p_api_version => p_api_version,
341: p_init_msg_list => p_init_msg_list,
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXCEPTIONS_GRP.GET_EXCEPTIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
338: END IF;
339: --
340: WSH_EXCEPTIONS_GRP.Get_Exceptions (p_api_version => p_api_version,
341: p_init_msg_list => p_init_msg_list,
342: x_return_status => x_return_status,
343: x_msg_count => x_msg_count,
344: x_msg_data => x_msg_data,
500: END IF;
501: --
502:
503: WHEN others THEN
504: wsh_util_core.default_handler('WSH_EXCEPTIONS_GRP.CHANGE_STATUS');
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level
507: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
550: x_msg_data OUT NOCOPY VARCHAR2,
551: x_return_status OUT NOCOPY VARCHAR2,
552:
553: -- Program specific parameters
554: p_exception_rec IN OUT NOCOPY WSH_EXCEPTIONS_PUB.XC_ACTION_REC_TYPE
555: ) IS
556:
557: -- cursor to validate stop_location
558: CURSOR C1(c_trip_id NUMBER) IS
1225: END IF;
1226: --
1227:
1228: WHEN OTHERS THEN
1229: wsh_util_core.default_handler('WSH_EXCEPTIONS_GRP.LOG_EXCEPTION');
1230: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1231: IF FND_MSG_PUB.Check_Msg_Level
1232: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1233: THEN
1273: x_msg_data OUT NOCOPY VARCHAR2,
1274: x_return_status OUT NOCOPY VARCHAR2,
1275:
1276: -- Program specific parameters
1277: p_exception_rec IN WSH_EXCEPTIONS_PUB.XC_ACTION_REC_TYPE,
1278: p_action IN VARCHAR2
1279: ) IS
1280:
1281: -- cursor to validate the exception name
1822: END IF;
1823: --
1824:
1825: WHEN OTHERS THEN
1826: WSH_UTIL_CORE.default_handler('WSH_EXCEPTIONS_GRP.EXCEPTION_ACTION');
1827: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1828: IF FND_MSG_PUB.Check_Msg_Level
1829: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1830: THEN
1870: x_msg_data OUT NOCOPY VARCHAR2,
1871: x_return_status OUT NOCOPY VARCHAR2,
1872:
1873: -- Program specific parameters
1874: p_exception_rec IN OUT NOCOPY WSH_EXCEPTIONS_PUB.XC_ACTION_REC_TYPE,
1875: p_action IN VARCHAR2
1876: ) IS
1877:
1878: l_action VARCHAR2(20);
2035: END IF;
2036: --
2037:
2038: WHEN OTHERS THEN
2039: WSH_UTIL_CORE.default_handler('WSH_EXCEPTIONS_GRP.EXCEPTION_ACTION');
2040: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2041: IF FND_MSG_PUB.Check_Msg_Level
2042: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2043: THEN
2062:
2063: END Exception_Action;
2064:
2065:
2066: END WSH_EXCEPTIONS_GRP;