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';
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,
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;
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
65: END IF;
66: END LOOP;
67: END IF;
68: -- Standard check of p_commit.
69: IF fnd_api.to_boolean(p_commit) THEN
70: COMMIT WORK;
71: END IF;
72:
73: EXCEPTION
71: END IF;
72:
73: EXCEPTION
74:
75: WHEN fnd_api.g_exc_error THEN
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: fnd_msg_pub.count_and_get
78: ( p_encoded => FND_API.G_FALSE,
79: p_count => x_msg_count,
72:
73: EXCEPTION
74:
75: WHEN fnd_api.g_exc_error THEN
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: fnd_msg_pub.count_and_get
78: ( p_encoded => FND_API.G_FALSE,
79: p_count => x_msg_count,
80: p_data => x_msg_data
74:
75: WHEN fnd_api.g_exc_error THEN
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: fnd_msg_pub.count_and_get
78: ( p_encoded => FND_API.G_FALSE,
79: p_count => x_msg_count,
80: p_data => x_msg_data
81: );
82: IF (l_debug = 1) THEN
82: IF (l_debug = 1) THEN
83: DEBUG('Error ! SQL Code : '||sqlcode);
84: END IF;
85:
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88: fnd_msg_pub.count_and_get
89: ( p_encoded => FND_API.G_FALSE,
90: p_count => x_msg_count,
83: DEBUG('Error ! SQL Code : '||sqlcode);
84: END IF;
85:
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88: fnd_msg_pub.count_and_get
89: ( p_encoded => FND_API.G_FALSE,
90: p_count => x_msg_count,
91: p_data => x_msg_data
85:
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88: fnd_msg_pub.count_and_get
89: ( p_encoded => FND_API.G_FALSE,
90: p_count => x_msg_count,
91: p_data => x_msg_data
92: );
93: IF (l_debug = 1) THEN
93: IF (l_debug = 1) THEN
94: DEBUG('Unknown Error ! SQL Code : '||sqlcode);
95: END IF;
96: WHEN others THEN
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
99: fnd_msg_pub.add_exc_msg
100: ( 'WMS_SHIPPING_MESSAGES',
101: 'PROCESS_SHIPPING_WARNING_MSGS'
101: 'PROCESS_SHIPPING_WARNING_MSGS'
102: );
103: END IF;
104: fnd_msg_pub.count_and_get
105: ( p_encoded => FND_API.G_FALSE,
106: p_count => x_msg_count,
107: p_data => x_msg_data
108: );
109: IF (l_debug = 1) THEN