[Home] [Help]
PACKAGE BODY: APPS.WMS_SHIPPING_MESSAGES
Source
1 PACKAGE BODY WMS_SHIPPING_MESSAGES AS
2 /* $Header: WMSSHPMB.pls 120.0 2005/05/25 09:00:52 appldev noship $ */
3
4 G_Debug BOOLEAN := TRUE;
5
6 PROCEDURE DEBUG(p_message IN VARCHAR2) IS
7 l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8 BEGIN
9 if( G_Debug = TRUE ) then
10 inv_mobile_helper_functions.tracelog
11 (p_err_msg => p_message,
12 p_module => 'WMS_SHIPPING_MESSAGES',
13 p_level => 9);
14 end if;
15 END;
16
17 PROCEDURE PROCESS_SHIPPING_WARNING_MSGS(x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_commit IN VARCHAR2 := FND_API.g_false,
21 p_api_version IN VARCHAR2 := 1.0,
22 x_shipping_msg_tab IN OUT NOCOPY WSH_INTEGRATION.MSG_TABLE ) IS
23 l_api_version CONSTANT NUMBER := 1.0;
24 l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_SHIPPING_WARNING_MSGS';
25 l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
26 BEGIN
27 -- Initialize return status to success
28 x_return_status := FND_API.G_RET_STS_SUCCESS;
29
30 IF NOT FND_API.compatible_api_call(l_api_version,
31 p_api_version,
32 l_api_name,
33 G_PKG_NAME) THEN
34 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35 END IF;
36
37 IF (x_shipping_msg_tab.COUNT <> 0) THEN
38 FOR i IN 1..x_shipping_msg_tab.COUNT
39 LOOP
40 if (x_shipping_msg_tab(i).message_name = 'WSH_DEL_DETAILS_INV_CONTROLS'
41 or x_shipping_msg_tab(i).message_name = 'WSH_DET_CREDIT_HOLD_ERROR'
42 -- or x_shipping_msg_tab(i).message_name = 'WSH_DEL_SHIP_SET_INCOMPLETE'
43 or x_shipping_msg_tab(i).message_name = 'WSH_DEL_SMC_INCOMPLETE'
44 or x_shipping_msg_tab(i).message_name = 'WSH_INVALID_CATCHWEIGHT'
45 or x_shipping_msg_tab(i).message_name = 'WSH_SHIP_LINE_HOLD_ERROR'
46 or x_shipping_msg_tab(i).message_name = 'WSH_HEADER_HOLD_ERROR' ) then
47 x_shipping_msg_tab(i).message_type := 'E';
48 end if;
49
50 IF x_shipping_msg_tab(i).message_name = 'WSH_DEL_SHIP_SET_INCOMPLETE' THEN
51 IF l_debug = 1 THEN
52 debug('WMS ship set global variable: ' || wms_shipping_transaction_pub.g_allow_ship_set_break);
53 END IF;
54 IF wms_shipping_transaction_pub.g_allow_ship_set_break = 'N' THEN
55 IF l_debug = 1 THEN
56 debug('Do not allow ship set to break');
57 END IF;
58 x_shipping_msg_tab(i).message_type := 'E';
59 ELSE
60 IF l_debug = 1 THEN
61 debug('Leave ship set warning message as warning');
62 END IF;
63 END IF;
64 END IF;
65 END LOOP;
66 END IF;
67 -- Standard check of p_commit.
68 IF fnd_api.to_boolean(p_commit) THEN
69 COMMIT WORK;
70 END IF;
71
72 EXCEPTION
73
74 WHEN fnd_api.g_exc_error THEN
75 x_return_status := FND_API.G_RET_STS_ERROR;
76 fnd_msg_pub.count_and_get
77 ( p_encoded => FND_API.G_FALSE,
78 p_count => x_msg_count,
79 p_data => x_msg_data
80 );
81 IF (l_debug = 1) THEN
82 DEBUG('Error ! SQL Code : '||sqlcode);
83 END IF;
84
85 WHEN fnd_api.g_exc_unexpected_error THEN
86 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87 fnd_msg_pub.count_and_get
88 ( p_encoded => FND_API.G_FALSE,
89 p_count => x_msg_count,
90 p_data => x_msg_data
91 );
92 IF (l_debug = 1) THEN
93 DEBUG('Unknown Error ! SQL Code : '||sqlcode);
94 END IF;
95 WHEN others THEN
96 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97 IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
98 fnd_msg_pub.add_exc_msg
99 ( 'WMS_SHIPPING_MESSAGES',
100 'PROCESS_SHIPPING_WARNING_MSGS'
101 );
102 END IF;
103 fnd_msg_pub.count_and_get
104 ( p_encoded => FND_API.G_FALSE,
105 p_count => x_msg_count,
106 p_data => x_msg_data
107 );
108 IF (l_debug = 1) THEN
109 DEBUG('Other Error ! SQL Code : '||sqlcode);
110 END IF;
111 END PROCESS_SHIPPING_WARNING_MSGS;
112
113
114 END WMS_SHIPPING_MESSAGES;