17:
18: PROCEDURE DEL_WSTT_RECS_BY_DELIVERY_ID (x_return_status OUT NOCOPY VARCHAR2,
19: x_msg_count OUT NOCOPY NUMBER,
20: x_msg_data OUT NOCOPY VARCHAR2,
21: p_commit IN VARCHAR2 := FND_API.g_false,
22: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
23: p_api_version IN NUMBER := 1.0, --3555636 changed from varchar2 to number
24: p_delivery_ids IN wsh_util_core.id_tab_type
25: )
18: PROCEDURE DEL_WSTT_RECS_BY_DELIVERY_ID (x_return_status OUT NOCOPY VARCHAR2,
19: x_msg_count OUT NOCOPY NUMBER,
20: x_msg_data OUT NOCOPY VARCHAR2,
21: p_commit IN VARCHAR2 := FND_API.g_false,
22: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
23: p_api_version IN NUMBER := 1.0, --3555636 changed from varchar2 to number
24: p_delivery_ids IN wsh_util_core.id_tab_type
25: )
26: IS
62: BEGIN
63: IF (l_debug = 1) THEN debug('IN ... DEL_WSTT_RECS_BY_DELIVERY_ID ' ); END IF;
64:
65: -- Initialize return status to success
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67:
68: IF NOT FND_API.compatible_api_call(l_api_version,
69: p_api_version,
70: l_api_name,
64:
65: -- Initialize return status to success
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67:
68: IF NOT FND_API.compatible_api_call(l_api_version,
69: p_api_version,
70: l_api_name,
71: G_PKG_NAME) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: IF NOT FND_API.compatible_api_call(l_api_version,
69: p_api_version,
70: l_api_name,
71: G_PKG_NAME) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list.
76: IF fnd_api.to_boolean(p_init_msg_list) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list.
76: IF fnd_api.to_boolean(p_init_msg_list) THEN
77: fnd_msg_pub.initialize;
78: END IF;
79:
80: SAVEPOINT DEL_WSTT_RECS_BY_DELIVERY_ID;
171: END LOOP;
172: END IF;
173:
174: -- Standard check of p_commit.
175: IF fnd_api.to_boolean(p_commit) THEN
176: COMMIT WORK;
177: END IF;
178:
179: IF (l_debug = 1) THEN debug('OUT ... DEL_WSTT_RECS_BY_DELIVERY_ID ' ); END IF;
177: END IF;
178:
179: IF (l_debug = 1) THEN debug('OUT ... DEL_WSTT_RECS_BY_DELIVERY_ID ' ); END IF;
180: EXCEPTION
181: WHEN fnd_api.g_exc_error THEN
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
184: fnd_msg_pub.count_and_get
185: ( p_encoded => FND_API.G_FALSE,
178:
179: IF (l_debug = 1) THEN debug('OUT ... DEL_WSTT_RECS_BY_DELIVERY_ID ' ); END IF;
180: EXCEPTION
181: WHEN fnd_api.g_exc_error THEN
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
184: fnd_msg_pub.count_and_get
185: ( p_encoded => FND_API.G_FALSE,
186: p_count => x_msg_count,
181: WHEN fnd_api.g_exc_error THEN
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
184: fnd_msg_pub.count_and_get
185: ( p_encoded => FND_API.G_FALSE,
186: p_count => x_msg_count,
187: p_data => x_msg_data
188: );
189: IF (l_debug = 1) THEN
189: IF (l_debug = 1) THEN
190: DEBUG('Error ! SQL Code : '||sqlcode);
191: END IF;
192:
193: WHEN fnd_api.g_exc_unexpected_error THEN
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
196: fnd_msg_pub.count_and_get
197: ( p_encoded => FND_API.G_FALSE,
190: DEBUG('Error ! SQL Code : '||sqlcode);
191: END IF;
192:
193: WHEN fnd_api.g_exc_unexpected_error THEN
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
196: fnd_msg_pub.count_and_get
197: ( p_encoded => FND_API.G_FALSE,
198: p_count => x_msg_count,
193: WHEN fnd_api.g_exc_unexpected_error THEN
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: ROLLBACK to DEL_WSTT_RECS_BY_DELIVERY_ID;
196: fnd_msg_pub.count_and_get
197: ( p_encoded => FND_API.G_FALSE,
198: p_count => x_msg_count,
199: p_data => x_msg_data
200: );
201: IF (l_debug = 1) THEN
202: DEBUG('Unknown Error ! SQL Code : '||sqlcode);
203: END IF;
204:
205: WHEN others THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: ROLLBACK TO DEL_WSTT_RECS_BY_DELIVERY_ID;
208: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
209: fnd_msg_pub.add_exc_msg
210: ( 'WMS_SHIPPING_PUB',
211: 'DEL_WSTT_RECS_BY_DELIVERY_ID'
212: );
213: END IF;
214: fnd_msg_pub.count_and_get
215: ( p_encoded => FND_API.G_FALSE,
216: p_count => x_msg_count,
217: p_data => x_msg_data
218: );
219: IF (l_debug = 1) THEN