[Home] [Help]
PACKAGE BODY: APPS.AMS_VENUE_RATES_PUB
Source
1 PACKAGE BODY AMS_Venue_Rates_PUB as
2 /* $Header: amspvrtb.pls 115.3 2002/11/15 23:11:52 dbiswas ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_Venue_Rates_PUB
7 -- Purpose
8 --
9 -- History
10 -- 10-MAY-2002 GMADANA Added Rate_code.
11 --
12 -- NOTE
13 --
14 -- End of Comments
15 -- ===============================================================
16
17
18 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_Venue_Rates_PUB';
19 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amspvrtb.pls';
20
21 PROCEDURE Create_Venue_Rates(
22 p_api_version_number IN NUMBER,
23 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
24 p_commit IN VARCHAR2 := FND_API.G_FALSE,
25
26 x_return_status OUT NOCOPY VARCHAR2,
27 x_msg_count OUT NOCOPY NUMBER,
28 x_msg_data OUT NOCOPY VARCHAR2,
29
30 p_venue_rates_rec IN venue_rates_rec_type := g_miss_venue_rates_rec,
31 x_rate_id OUT NOCOPY NUMBER
32 )
33
34 IS
35 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Venue_Rates';
36 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
37 l_pvt_venue_rates_rec AMS_Venue_Rates_PVT.venue_rates_rec_type;
38 BEGIN
39 -- Standard Start of API savepoint
40 SAVEPOINT CREATE_Venue_Rates_PUB;
41
42 -- Standard call to check for call compatibility.
43 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
44 p_api_version_number,
45 l_api_name,
46 G_PKG_NAME)
47 THEN
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49 END IF;
50
51 -- Initialize message list if p_init_msg_list is set to TRUE.
52 IF FND_API.to_Boolean( p_init_msg_list )
53 THEN
54 FND_MSG_PUB.initialize;
55 END IF;
56
57 -- Debug Message
58 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
59
60
61 -- Initialize API return status to SUCCESS
62 x_return_status := FND_API.G_RET_STS_SUCCESS;
63
64 --
65 -- API body
66 --
67 -- Calling Private package: Create_Venue_Rates
68 -- Hint: Primary key needs to be returned
69 AMS_Venue_Rates_PVT.Create_Venue_Rates(
70 p_api_version_number => 1.0,
71 p_init_msg_list => FND_API.G_FALSE,
72 p_commit => FND_API.G_FALSE,
73 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
74 x_return_status => x_return_status,
75 x_msg_count => x_msg_count,
76 x_msg_data => x_msg_data,
77 p_venue_rates_rec => l_pvt_venue_rates_rec,
78 x_rate_id => x_rate_id);
79
80
81 -- Check return status from the above procedure call
82 IF x_return_status = FND_API.G_RET_STS_ERROR then
83 RAISE FND_API.G_EXC_ERROR;
84 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
85 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86 END IF;
87 --
88 -- End of API body.
89 --
90
91 -- Standard check for p_commit
92 IF FND_API.to_Boolean( p_commit )
93 THEN
94 COMMIT WORK;
95 END IF;
96
97
98 -- Debug Message
99 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
100
101 -- Standard call to get message count and if count is 1, get message info.
102 FND_MSG_PUB.Count_And_Get
103 (p_count => x_msg_count,
104 p_data => x_msg_data
105 );
106 EXCEPTION
107
108 WHEN AMS_Utility_PVT.resource_locked THEN
109 x_return_status := FND_API.g_ret_sts_error;
110 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
111
112 WHEN FND_API.G_EXC_ERROR THEN
113 ROLLBACK TO CREATE_Venue_Rates_PUB;
114 x_return_status := FND_API.G_RET_STS_ERROR;
115 -- Standard call to get message count and if count=1, get the message
116 FND_MSG_PUB.Count_And_Get (
117 p_encoded => FND_API.G_FALSE,
118 p_count => x_msg_count,
119 p_data => x_msg_data
120 );
121
122 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
123 ROLLBACK TO CREATE_Venue_Rates_PUB;
124 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
125 -- Standard call to get message count and if count=1, get the message
126 FND_MSG_PUB.Count_And_Get (
127 p_encoded => FND_API.G_FALSE,
128 p_count => x_msg_count,
129 p_data => x_msg_data
130 );
131
132 WHEN OTHERS THEN
133 ROLLBACK TO CREATE_Venue_Rates_PUB;
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
136 THEN
137 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
138 END IF;
139 -- Standard call to get message count and if count=1, get the message
140 FND_MSG_PUB.Count_And_Get (
141 p_encoded => FND_API.G_FALSE,
142 p_count => x_msg_count,
143 p_data => x_msg_data
144 );
145 End Create_Venue_Rates;
146
147
148 PROCEDURE Update_Venue_Rates(
149 p_api_version_number IN NUMBER,
150 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151 p_commit IN VARCHAR2 := FND_API.G_FALSE,
152
153 x_return_status OUT NOCOPY VARCHAR2,
154 x_msg_count OUT NOCOPY NUMBER,
155 x_msg_data OUT NOCOPY VARCHAR2,
156
157 p_venue_rates_rec IN venue_rates_rec_type,
158 x_object_version_number OUT NOCOPY NUMBER
159 )
160
161 IS
162 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Venue_Rates';
163 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
164 l_object_version_number NUMBER;
165 l_pvt_venue_rates_rec AMS_Venue_Rates_PVT.venue_rates_rec_type;
166 BEGIN
167 -- Standard Start of API savepoint
168 SAVEPOINT UPDATE_Venue_Rates_PUB;
169
170 -- Standard call to check for call compatibility.
171 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
172 p_api_version_number,
173 l_api_name,
174 G_PKG_NAME)
175 THEN
176 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
177 END IF;
178
179 -- Initialize message list if p_init_msg_list is set to TRUE.
180 IF FND_API.to_Boolean( p_init_msg_list )
181 THEN
182 FND_MSG_PUB.initialize;
183 END IF;
184
185 -- Debug Message
186 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
187
188
189 -- Initialize API return status to SUCCESS
190 x_return_status := FND_API.G_RET_STS_SUCCESS;
191
192 --
193 -- API body
194 --
195 AMS_Venue_Rates_PVT.Update_Venue_Rates(
196 p_api_version_number => 1.0,
197 p_init_msg_list => FND_API.G_FALSE,
198 p_commit => p_commit,
199 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
200 x_return_status => x_return_status,
201 x_msg_count => x_msg_count,
202 x_msg_data => x_msg_data,
203 p_venue_rates_rec => l_pvt_venue_rates_rec,
204 x_object_version_number => l_object_version_number );
205
206
207 -- Check return status from the above procedure call
208 IF x_return_status = FND_API.G_RET_STS_ERROR then
209 RAISE FND_API.G_EXC_ERROR;
210 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
211 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212 END IF;
213 --
214 -- End of API body
215 --
216
217 -- Standard check for p_commit
218 IF FND_API.to_Boolean( p_commit )
219 THEN
220 COMMIT WORK;
221 END IF;
222
223
224 -- Debug Message
225 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
226
227 -- Standard call to get message count and if count is 1, get message info.
228 FND_MSG_PUB.Count_And_Get
229 (p_count => x_msg_count,
230 p_data => x_msg_data
231 );
232 EXCEPTION
233
234 WHEN AMS_Utility_PVT.resource_locked THEN
235 x_return_status := FND_API.g_ret_sts_error;
236 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
237
238 WHEN FND_API.G_EXC_ERROR THEN
239 ROLLBACK TO UPDATE_Venue_Rates_PUB;
240 x_return_status := FND_API.G_RET_STS_ERROR;
241 -- Standard call to get message count and if count=1, get the message
242 FND_MSG_PUB.Count_And_Get (
243 p_encoded => FND_API.G_FALSE,
244 p_count => x_msg_count,
245 p_data => x_msg_data
246 );
247
248 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
249 ROLLBACK TO UPDATE_Venue_Rates_PUB;
250 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251 -- Standard call to get message count and if count=1, get the message
252 FND_MSG_PUB.Count_And_Get (
253 p_encoded => FND_API.G_FALSE,
254 p_count => x_msg_count,
255 p_data => x_msg_data
256 );
257
258 WHEN OTHERS THEN
259 ROLLBACK TO UPDATE_Venue_Rates_PUB;
260 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
262 THEN
263 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
264 END IF;
265 -- Standard call to get message count and if count=1, get the message
266 FND_MSG_PUB.Count_And_Get (
267 p_encoded => FND_API.G_FALSE,
268 p_count => x_msg_count,
269 p_data => x_msg_data
270 );
271 End Update_Venue_Rates;
272
273
274 PROCEDURE Delete_Venue_Rates(
275 p_api_version_number IN NUMBER,
276 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
277 p_commit IN VARCHAR2 := FND_API.G_FALSE,
278 x_return_status OUT NOCOPY VARCHAR2,
279 x_msg_count OUT NOCOPY NUMBER,
280 x_msg_data OUT NOCOPY VARCHAR2,
281 p_rate_id IN NUMBER,
282 p_object_version_number IN NUMBER
283 )
284
285 IS
286 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Venue_Rates';
287 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
288 l_RATE_ID NUMBER := p_RATE_ID;
289 l_object_version_number NUMBER := p_object_version_number;
290 l_pvt_venue_rates_rec AMS_Venue_Rates_PVT.venue_rates_rec_type;
291 BEGIN
292 -- Standard Start of API savepoint
293 SAVEPOINT DELETE_Venue_Rates_PUB;
294
295 -- Standard call to check for call compatibility.
296 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
297 p_api_version_number,
298 l_api_name,
299 G_PKG_NAME)
300 THEN
301 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302 END IF;
303
304 -- Initialize message list if p_init_msg_list is set to TRUE.
305 IF FND_API.to_Boolean( p_init_msg_list )
306 THEN
307 FND_MSG_PUB.initialize;
308 END IF;
309
310 -- Debug Message
311 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
312
313
314 -- Initialize API return status to SUCCESS
315 x_return_status := FND_API.G_RET_STS_SUCCESS;
316
317 --
318 -- API body
319 --
320 AMS_Venue_Rates_PVT.Delete_Venue_Rates(
321 p_api_version_number => 1.0,
322 p_init_msg_list => FND_API.G_FALSE,
323 p_commit => p_commit,
324 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
325 x_return_status => x_return_status,
326 x_msg_count => x_msg_count,
327 x_msg_data => x_msg_data,
328 p_rate_id => l_rate_id,
329 p_object_version_number => l_object_version_number );
330
331
332 -- Check return status from the above procedure call
333 IF x_return_status = FND_API.G_RET_STS_ERROR then
334 RAISE FND_API.G_EXC_ERROR;
335 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
336 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337 END IF;
338 --
339 -- End of API body
340 --
341
342 -- Standard check for p_commit
343 IF FND_API.to_Boolean( p_commit )
344 THEN
345 COMMIT WORK;
346 END IF;
347
348
349 -- Debug Message
350 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
351
352 -- Standard call to get message count and if count is 1, get message info.
353 FND_MSG_PUB.Count_And_Get
354 (p_count => x_msg_count,
355 p_data => x_msg_data
356 );
357 EXCEPTION
358
359 WHEN AMS_Utility_PVT.resource_locked THEN
360 x_return_status := FND_API.g_ret_sts_error;
361 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
362
363 WHEN FND_API.G_EXC_ERROR THEN
364 ROLLBACK TO DELETE_Venue_Rates_PUB;
365 x_return_status := FND_API.G_RET_STS_ERROR;
366 -- Standard call to get message count and if count=1, get the message
367 FND_MSG_PUB.Count_And_Get (
368 p_encoded => FND_API.G_FALSE,
369 p_count => x_msg_count,
370 p_data => x_msg_data
371 );
372
373 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374 ROLLBACK TO DELETE_Venue_Rates_PUB;
375 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
376 -- Standard call to get message count and if count=1, get the message
380 p_data => x_msg_data
377 FND_MSG_PUB.Count_And_Get (
378 p_encoded => FND_API.G_FALSE,
379 p_count => x_msg_count,
381 );
382
383 WHEN OTHERS THEN
384 ROLLBACK TO DELETE_Venue_Rates_PUB;
385 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
387 THEN
388 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
389 END IF;
390 -- Standard call to get message count and if count=1, get the message
391 FND_MSG_PUB.Count_And_Get (
392 p_encoded => FND_API.G_FALSE,
393 p_count => x_msg_count,
394 p_data => x_msg_data
395 );
396 End Delete_Venue_Rates;
397
398
399 PROCEDURE Lock_Venue_Rates(
400 p_api_version_number IN NUMBER,
401 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
402 x_return_status OUT NOCOPY VARCHAR2,
403 x_msg_count OUT NOCOPY NUMBER,
404 x_msg_data OUT NOCOPY VARCHAR2,
405
406 p_rate_id IN NUMBER,
407 p_object_version IN NUMBER
408 )
409
410 IS
411 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_Venue_Rates';
412 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
413 l_pvt_venue_rates_rec AMS_Venue_Rates_PVT.venue_rates_rec_type;
414 BEGIN
415
416 -- Standard call to check for call compatibility.
417 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
418 p_api_version_number,
419 l_api_name,
420 G_PKG_NAME)
421 THEN
422 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423 END IF;
424
425 -- Initialize message list if p_init_msg_list is set to TRUE.
426 IF FND_API.to_Boolean( p_init_msg_list )
427 THEN
428 FND_MSG_PUB.initialize;
429 END IF;
430
431 -- Debug Message
432 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
433
434
435 -- Initialize API return status to SUCCESS
436 x_return_status := FND_API.G_RET_STS_SUCCESS;
437
438 --
439 -- API body
440 --
441 -- Calling Private package: Create_Venue_Rates
442 -- Hint: Primary key needs to be returned
443 AMS_Venue_Rates_PVT.Lock_Venue_Rates(
444 p_api_version_number => 1.0,
445 p_init_msg_list => FND_API.G_FALSE,
446 x_return_status => x_return_status,
447 x_msg_count => x_msg_count,
448 x_msg_data => x_msg_data,
449 p_rate_id => p_rate_id,
450 p_object_version => p_object_version);
451
452
453 -- Check return status from the above procedure call
454 IF x_return_status = FND_API.G_RET_STS_ERROR then
455 RAISE FND_API.G_EXC_ERROR;
456 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
457 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
458 END IF;
459 --
460 -- End of API body.
461 --
462
463 -- Debug Message
464 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
468 WHEN AMS_Utility_PVT.resource_locked THEN
465
466 EXCEPTION
467
469 x_return_status := FND_API.g_ret_sts_error;
470 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
471
472 WHEN FND_API.G_EXC_ERROR THEN
473 ROLLBACK TO LOCK_Venue_Rates_PUB;
474 x_return_status := FND_API.G_RET_STS_ERROR;
475 -- Standard call to get message count and if count=1, get the message
476 FND_MSG_PUB.Count_And_Get (
477 p_encoded => FND_API.G_FALSE,
478 p_count => x_msg_count,
479 p_data => x_msg_data
480 );
481
482 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483 ROLLBACK TO LOCK_Venue_Rates_PUB;
484 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485 -- Standard call to get message count and if count=1, get the message
486 FND_MSG_PUB.Count_And_Get (
487 p_encoded => FND_API.G_FALSE,
488 p_count => x_msg_count,
489 p_data => x_msg_data
490 );
491
492 WHEN OTHERS THEN
493 ROLLBACK TO LOCK_Venue_Rates_PUB;
494 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
495 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496 THEN
497 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
498 END IF;
499 -- Standard call to get message count and if count=1, get the message
500 FND_MSG_PUB.Count_And_Get (
501 p_encoded => FND_API.G_FALSE,
502 p_count => x_msg_count,
503 p_data => x_msg_data
504 );
505 End Lock_Venue_Rates;
506
507
508 END AMS_Venue_Rates_PUB;