[Home] [Help]
PACKAGE BODY: APPS.AMS_LIST_QUERY_PUB
Source
1 PACKAGE BODY AMS_List_Query_PUB as
2 /* $Header: amspliqb.pls 115.5 2002/11/22 08:54:05 jieli ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_List_Query_PUB
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_List_Query_PUB';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amspliqb.pls';
19
20 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
22 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
23
24 PROCEDURE Create_List_Query(
25 p_api_version_number IN NUMBER,
26 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27 p_commit IN VARCHAR2 := FND_API.G_FALSE,
28
29 x_return_status OUT NOCOPY VARCHAR2,
30 x_msg_count OUT NOCOPY NUMBER,
31 x_msg_data OUT NOCOPY VARCHAR2,
32
33 p_list_query_rec IN AMS_List_Query_PVT.list_query_rec_type,
34 x_list_query_id OUT NOCOPY NUMBER
35 )
36
37 IS
38 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_List_Query';
39 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
40 l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type:=p_list_query_rec;
41 BEGIN
42 -- Standard Start of API savepoint
43 SAVEPOINT CREATE_List_Query_PUB;
44
45 -- Standard call to check for call compatibility.
46 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
47 p_api_version_number,
48 l_api_name,
49 G_PKG_NAME)
50 THEN
51 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52 END IF;
53
54 -- Initialize message list if p_init_msg_list is set to TRUE.
55 IF FND_API.to_Boolean( p_init_msg_list )
56 THEN
57 FND_MSG_PUB.initialize;
58 END IF;
59
60 -- Debug Message
61 IF (AMS_DEBUG_HIGH_ON) THEN
62
63 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
64 END IF;
65
66
67 -- Initialize API return status to SUCCESS
68 x_return_status := FND_API.G_RET_STS_SUCCESS;
69
70 --
71 -- API body
72 --
73 -- Calling Private package: Create_List_Query
74 -- Hint: Primary key needs to be returned
75 AMS_List_Query_PVT.Create_List_Query(
76 p_api_version_number => 1.0,
77 p_init_msg_list => FND_API.G_FALSE,
78 p_commit => FND_API.G_FALSE,
79 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
80 x_return_status => x_return_status,
81 x_msg_count => x_msg_count,
82 x_msg_data => x_msg_data,
83 p_list_query_rec => l_pvt_list_query_rec,
84 x_list_query_id => x_list_query_id);
85
86
87 -- Check return status from the above procedure call
88 IF x_return_status = FND_API.G_RET_STS_ERROR then
89 RAISE FND_API.G_EXC_ERROR;
90 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
91 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92 END IF;
93 --
94 -- End of API body.
95 --
96
97 -- Standard check for p_commit
98 IF FND_API.to_Boolean( p_commit )
99 THEN
100 COMMIT WORK;
101 END IF;
102
103
104 -- Debug Message
105 IF (AMS_DEBUG_HIGH_ON) THEN
106
107 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
108 END IF;
109
110 -- Standard call to get message count and if count is 1, get message info.
111 FND_MSG_PUB.Count_And_Get
112 (p_count => x_msg_count,
113 p_data => x_msg_data
114 );
115 EXCEPTION
116
117 WHEN AMS_Utility_PVT.resource_locked THEN
118 x_return_status := FND_API.g_ret_sts_error;
119 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
120
121 WHEN FND_API.G_EXC_ERROR THEN
122 ROLLBACK TO CREATE_List_Query_PUB;
123 x_return_status := FND_API.G_RET_STS_ERROR;
124 -- Standard call to get message count and if count=1, get the message
125 FND_MSG_PUB.Count_And_Get (
126 p_encoded => FND_API.G_FALSE,
127 p_count => x_msg_count,
128 p_data => x_msg_data
129 );
130
131 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132 ROLLBACK TO CREATE_List_Query_PUB;
133 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134 -- Standard call to get message count and if count=1, get the message
135 FND_MSG_PUB.Count_And_Get (
136 p_encoded => FND_API.G_FALSE,
137 p_count => x_msg_count,
138 p_data => x_msg_data
139 );
140
141 WHEN OTHERS THEN
142 ROLLBACK TO CREATE_List_Query_PUB;
143 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
145 THEN
146 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147 END IF;
148 -- Standard call to get message count and if count=1, get the message
149 FND_MSG_PUB.Count_And_Get (
150 p_encoded => FND_API.G_FALSE,
151 p_count => x_msg_count,
152 p_data => x_msg_data
153 );
154 End Create_List_Query;
155
156
157
158 PROCEDURE Create_List_Query(
159 p_api_version_number IN NUMBER,
160 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161 p_commit IN VARCHAR2 := FND_API.G_FALSE,
162 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
163 x_return_status OUT NOCOPY VARCHAR2,
164 x_msg_count OUT NOCOPY NUMBER,
165 x_msg_data OUT NOCOPY VARCHAR2,
166 p_list_query_rec_tbl IN AMS_List_Query_PVT.list_query_rec_type_tbl ,
167 p_sql_string_tbl in AMS_List_Query_PVT.sql_string_tbl ,
168
169 x_parent_list_query_id OUT NOCOPY NUMBER
170 )
171 IS
172 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_List_Query';
173 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
174 l_pvt_list_query_rec_tbl AMS_List_Query_PVT.list_query_rec_type_tbl:=p_list_query_rec_tbl;
175 l_pvt_sql_string_tbl AMS_List_Query_PVT.sql_string_tbl:=p_sql_string_tbl;
176
177 BEGIN
178 -- Standard Start of API savepoint
179 SAVEPOINT CREATE_List_Query_PUB;
180
181 -- Standard call to check for call compatibility.
182 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
183 p_api_version_number,
184 l_api_name,
185 G_PKG_NAME)
186 THEN
187 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188 END IF;
189
190 -- Initialize message list if p_init_msg_list is set to TRUE.
191 IF FND_API.to_Boolean( p_init_msg_list )
192 THEN
193 FND_MSG_PUB.initialize;
194 END IF;
195
196 -- Debug Message
197 IF (AMS_DEBUG_HIGH_ON) THEN
198
199 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
200 END IF;
201
202
203 -- Initialize API return status to SUCCESS
204 x_return_status := FND_API.G_RET_STS_SUCCESS;
205
206 --
207 -- API body
208 --
209 -- Calling Private package: Create_List_Query
210 -- Hint: Primary key needs to be returned
211 AMS_List_Query_PVT.Create_List_Query(
212 p_api_version_number => 1.0,
213 p_init_msg_list => FND_API.G_FALSE,
214 p_commit => FND_API.G_FALSE,
215 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
216 x_return_status => x_return_status,
217 x_msg_count => x_msg_count,
218 x_msg_data => x_msg_data,
219 p_list_query_rec_tbl => l_pvt_list_query_rec_tbl,
220 p_sql_string_tbl =>l_pvt_sql_string_tbl,
221 x_parent_list_query_id => x_parent_list_query_id);
222
223
224 -- Check return status from the above procedure call
225 IF x_return_status = FND_API.G_RET_STS_ERROR then
226 RAISE FND_API.G_EXC_ERROR;
227 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
228 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229 END IF;
230 --
231 -- End of API body.
232 --
233
234 -- Standard check for p_commit
235 IF FND_API.to_Boolean( p_commit )
236 THEN
237 COMMIT WORK;
238 END IF;
239
240
241 -- Debug Message
242 IF (AMS_DEBUG_HIGH_ON) THEN
243
244 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
245 END IF;
246
247 -- Standard call to get message count and if count is 1, get message info.
248 FND_MSG_PUB.Count_And_Get
249 (p_count => x_msg_count,
250 p_data => x_msg_data
251 );
252 EXCEPTION
253
254 WHEN AMS_Utility_PVT.resource_locked THEN
255 x_return_status := FND_API.g_ret_sts_error;
256 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257
258 WHEN FND_API.G_EXC_ERROR THEN
259 ROLLBACK TO CREATE_List_Query_PUB;
260 x_return_status := FND_API.G_RET_STS_ERROR;
261 -- Standard call to get message count and if count=1, get the message
262 FND_MSG_PUB.Count_And_Get (
263 p_encoded => FND_API.G_FALSE,
264 p_count => x_msg_count,
265 p_data => x_msg_data
266 );
267
268 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269 ROLLBACK TO CREATE_List_Query_PUB;
270 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271 -- Standard call to get message count and if count=1, get the message
272 FND_MSG_PUB.Count_And_Get (
273 p_encoded => FND_API.G_FALSE,
274 p_count => x_msg_count,
275 p_data => x_msg_data
276 );
277
278 WHEN OTHERS THEN
279 ROLLBACK TO CREATE_List_Query_PUB;
280 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282 THEN
283 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284 END IF;
285 -- Standard call to get message count and if count=1, get the message
286 FND_MSG_PUB.Count_And_Get (
287 p_encoded => FND_API.G_FALSE,
288 p_count => x_msg_count,
289 p_data => x_msg_data
290 );
291 End Create_List_Query;
292
293
294
295
296 PROCEDURE Update_List_Query(
297 p_api_version_number IN NUMBER,
298 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
299 p_commit IN VARCHAR2 := FND_API.G_FALSE,
300
301 x_return_status OUT NOCOPY VARCHAR2,
302 x_msg_count OUT NOCOPY NUMBER,
303 x_msg_data OUT NOCOPY VARCHAR2,
304
305 p_list_query_rec IN AMS_List_Query_PVT.list_query_rec_type,
306 x_object_version_number OUT NOCOPY NUMBER
307 )
308
309 IS
310 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_List_Query';
311 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
312 l_object_version_number NUMBER;
313 l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type:=p_list_query_rec;
314 BEGIN
315 -- Standard Start of API savepoint
316 SAVEPOINT UPDATE_List_Query_PUB;
317
318 -- Standard call to check for call compatibility.
319 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
320 p_api_version_number,
321 l_api_name,
322 G_PKG_NAME)
323 THEN
324 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
325 END IF;
326
327 -- Initialize message list if p_init_msg_list is set to TRUE.
328 IF FND_API.to_Boolean( p_init_msg_list )
329 THEN
330 FND_MSG_PUB.initialize;
331 END IF;
332
333 -- Debug Message
334 IF (AMS_DEBUG_HIGH_ON) THEN
335
336 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
337 END IF;
338
339
340 -- Initialize API return status to SUCCESS
341 x_return_status := FND_API.G_RET_STS_SUCCESS;
342
343 --
344 -- API body
345 --
346 AMS_List_Query_PVT.Update_List_Query(
347 p_api_version_number => 1.0,
348 p_init_msg_list => FND_API.G_FALSE,
349 p_commit => p_commit,
350 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351 x_return_status => x_return_status,
352 x_msg_count => x_msg_count,
353 x_msg_data => x_msg_data,
354 p_list_query_rec => l_pvt_list_query_rec,
355 x_object_version_number => l_object_version_number );
356
357
358 -- Check return status from the above procedure call
359 IF x_return_status = FND_API.G_RET_STS_ERROR then
360 RAISE FND_API.G_EXC_ERROR;
361 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363 END IF;
364 --
365 -- End of API body
366 --
367
368 -- Standard check for p_commit
369 IF FND_API.to_Boolean( p_commit )
370 THEN
371 COMMIT WORK;
372 END IF;
373
374
375 -- Debug Message
376 IF (AMS_DEBUG_HIGH_ON) THEN
377
378 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
379 END IF;
380
381 -- Standard call to get message count and if count is 1, get message info.
382 FND_MSG_PUB.Count_And_Get
383 (p_count => x_msg_count,
384 p_data => x_msg_data
385 );
386 EXCEPTION
387
388 WHEN AMS_Utility_PVT.resource_locked THEN
389 x_return_status := FND_API.g_ret_sts_error;
390 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
391
392 WHEN FND_API.G_EXC_ERROR THEN
393 ROLLBACK TO UPDATE_List_Query_PUB;
394 x_return_status := FND_API.G_RET_STS_ERROR;
395 -- Standard call to get message count and if count=1, get the message
396 FND_MSG_PUB.Count_And_Get (
397 p_encoded => FND_API.G_FALSE,
398 p_count => x_msg_count,
399 p_data => x_msg_data
400 );
401
402 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403 ROLLBACK TO UPDATE_List_Query_PUB;
404 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405 -- Standard call to get message count and if count=1, get the message
406 FND_MSG_PUB.Count_And_Get (
407 p_encoded => FND_API.G_FALSE,
408 p_count => x_msg_count,
409 p_data => x_msg_data
410 );
411
412 WHEN OTHERS THEN
416 THEN
413 ROLLBACK TO UPDATE_List_Query_PUB;
414 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
417 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418 END IF;
419 -- Standard call to get message count and if count=1, get the message
420 FND_MSG_PUB.Count_And_Get (
421 p_encoded => FND_API.G_FALSE,
422 p_count => x_msg_count,
423 p_data => x_msg_data
424 );
425 End Update_List_Query;
426
427
428 PROCEDURE Update_List_Query(
429 p_api_version_number IN NUMBER,
430 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
431 p_commit IN VARCHAR2 := FND_API.G_FALSE,
432 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
433
434 x_return_status OUT NOCOPY VARCHAR2,
435 x_msg_count OUT NOCOPY NUMBER,
436 x_msg_data OUT NOCOPY VARCHAR2,
437
438 p_list_query_rec_tbl IN AMS_List_Query_PVT.list_query_rec_type_tbl,
439 p_sql_string_tbl in AMS_List_Query_PVT.sql_string_tbl ,
440 x_object_version_number OUT NOCOPY NUMBER
441 )
442
443 IS
444 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_List_Query';
445 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
446 l_object_version_number NUMBER;
447 l_pvt_list_query_rec_tbl AMS_List_Query_PVT.list_query_rec_type_tbl:=p_list_query_rec_tbl;
448 l_pvt_sql_string_tbl AMS_List_Query_PVT.sql_string_tbl:=p_sql_string_tbl;
449
450 BEGIN
451 -- Standard Start of API savepoint
452 SAVEPOINT UPDATE_List_Query_PUB;
453
454 -- Standard call to check for call compatibility.
455 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
456 p_api_version_number,
457 l_api_name,
458 G_PKG_NAME)
459 THEN
460 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461 END IF;
462
463 -- Initialize message list if p_init_msg_list is set to TRUE.
464 IF FND_API.to_Boolean( p_init_msg_list )
465 THEN
466 FND_MSG_PUB.initialize;
467 END IF;
468
469 -- Debug Message
470 IF (AMS_DEBUG_HIGH_ON) THEN
471
472 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
473 END IF;
474
475
476 -- Initialize API return status to SUCCESS
477 x_return_status := FND_API.G_RET_STS_SUCCESS;
478
479 --
480 -- API body
481 --
482 AMS_List_Query_PVT.Update_List_Query(
483 p_api_version_number => 1.0,
484 p_init_msg_list => FND_API.G_FALSE,
485 p_commit => p_commit,
486 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
487 x_return_status => x_return_status,
488 x_msg_count => x_msg_count,
489 x_msg_data => x_msg_data,
490 p_list_query_rec_tbl => l_pvt_list_query_rec_tbl,
491 p_sql_string_tbl =>l_pvt_sql_string_tbl,
492
493 x_object_version_number => l_object_version_number );
494
495
496 -- Check return status from the above procedure call
497 IF x_return_status = FND_API.G_RET_STS_ERROR then
498 RAISE FND_API.G_EXC_ERROR;
499 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501 END IF;
502 --
503 -- End of API body
504 --
505
506 -- Standard check for p_commit
507 IF FND_API.to_Boolean( p_commit )
508 THEN
509 COMMIT WORK;
510 END IF;
511
512
513 -- Debug Message
514 IF (AMS_DEBUG_HIGH_ON) THEN
515
516 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
517 END IF;
518
519 -- Standard call to get message count and if count is 1, get message info.
520 FND_MSG_PUB.Count_And_Get
521 (p_count => x_msg_count,
522 p_data => x_msg_data
523 );
524 EXCEPTION
525
526 WHEN AMS_Utility_PVT.resource_locked THEN
527 x_return_status := FND_API.g_ret_sts_error;
528 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
529
530 WHEN FND_API.G_EXC_ERROR THEN
531 ROLLBACK TO UPDATE_List_Query_PUB;
532 x_return_status := FND_API.G_RET_STS_ERROR;
533 -- Standard call to get message count and if count=1, get the message
534 FND_MSG_PUB.Count_And_Get (
535 p_encoded => FND_API.G_FALSE,
536 p_count => x_msg_count,
537 p_data => x_msg_data
538 );
539
540 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541 ROLLBACK TO UPDATE_List_Query_PUB;
542 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543 -- Standard call to get message count and if count=1, get the message
544 FND_MSG_PUB.Count_And_Get (
545 p_encoded => FND_API.G_FALSE,
546 p_count => x_msg_count,
547 p_data => x_msg_data
548 );
549
550 WHEN OTHERS THEN
551 ROLLBACK TO UPDATE_List_Query_PUB;
552 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556 END IF;
553 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554 THEN
555 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
557 -- Standard call to get message count and if count=1, get the message
558 FND_MSG_PUB.Count_And_Get (
559 p_encoded => FND_API.G_FALSE,
560 p_count => x_msg_count,
561 p_data => x_msg_data
562 );
563 End Update_List_Query;
564
565
566
567
568 PROCEDURE Delete_List_Query(
569 p_api_version_number IN NUMBER,
570 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
571 p_commit IN VARCHAR2 := FND_API.G_FALSE,
572 x_return_status OUT NOCOPY VARCHAR2,
573 x_msg_count OUT NOCOPY NUMBER,
574 x_msg_data OUT NOCOPY VARCHAR2,
575 p_list_query_id IN NUMBER,
576 p_object_version_number IN NUMBER
577 )
578
579 IS
580 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_List_Query';
581 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
582 l_LIST_QUERY_ID NUMBER := p_LIST_QUERY_ID;
583 l_object_version_number NUMBER := p_object_version_number;
584 l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type;
585 BEGIN
586 -- Standard Start of API savepoint
587 SAVEPOINT DELETE_List_Query_PUB;
588
589 -- Standard call to check for call compatibility.
590 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
591 p_api_version_number,
592 l_api_name,
593 G_PKG_NAME)
594 THEN
595 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596 END IF;
597
598 -- Initialize message list if p_init_msg_list is set to TRUE.
599 IF FND_API.to_Boolean( p_init_msg_list )
600 THEN
601 FND_MSG_PUB.initialize;
602 END IF;
603
604 -- Debug Message
605 IF (AMS_DEBUG_HIGH_ON) THEN
606
607 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
608 END IF;
609
610
611 -- Initialize API return status to SUCCESS
612 x_return_status := FND_API.G_RET_STS_SUCCESS;
613
614 --
615 -- API body
616 --
617 AMS_List_Query_PVT.Delete_List_Query(
618 p_api_version_number => 1.0,
619 p_init_msg_list => FND_API.G_FALSE,
620 p_commit => p_commit,
621 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
622 x_return_status => x_return_status,
623 x_msg_count => x_msg_count,
624 x_msg_data => x_msg_data,
625 p_list_query_id => l_list_query_id,
626 p_object_version_number => l_object_version_number );
627
628
629 -- Check return status from the above procedure call
630 IF x_return_status = FND_API.G_RET_STS_ERROR then
631 RAISE FND_API.G_EXC_ERROR;
632 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
633 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634 END IF;
635 --
636 -- End of API body
637 --
638
639 -- Standard check for p_commit
640 IF FND_API.to_Boolean( p_commit )
641 THEN
642 COMMIT WORK;
643 END IF;
644
645
646 -- Debug Message
647 IF (AMS_DEBUG_HIGH_ON) THEN
648
649 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
650 END IF;
651
652 -- Standard call to get message count and if count is 1, get message info.
653 FND_MSG_PUB.Count_And_Get
654 (p_count => x_msg_count,
655 p_data => x_msg_data
656 );
657 EXCEPTION
658
659 WHEN AMS_Utility_PVT.resource_locked THEN
660 x_return_status := FND_API.g_ret_sts_error;
661 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662
663 WHEN FND_API.G_EXC_ERROR THEN
664 ROLLBACK TO DELETE_List_Query_PUB;
665 x_return_status := FND_API.G_RET_STS_ERROR;
666 -- Standard call to get message count and if count=1, get the message
667 FND_MSG_PUB.Count_And_Get (
668 p_encoded => FND_API.G_FALSE,
669 p_count => x_msg_count,
670 p_data => x_msg_data
671 );
672
673 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674 ROLLBACK TO DELETE_List_Query_PUB;
675 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676 -- Standard call to get message count and if count=1, get the message
677 FND_MSG_PUB.Count_And_Get (
678 p_encoded => FND_API.G_FALSE,
679 p_count => x_msg_count,
680 p_data => x_msg_data
681 );
682
683 WHEN OTHERS THEN
684 ROLLBACK TO DELETE_List_Query_PUB;
685 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
687 THEN
688 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689 END IF;
693 p_count => x_msg_count,
690 -- Standard call to get message count and if count=1, get the message
691 FND_MSG_PUB.Count_And_Get (
692 p_encoded => FND_API.G_FALSE,
694 p_data => x_msg_data
695 );
696 End Delete_List_Query;
697
698
699 PROCEDURE Delete_parent_List_Query(
700 p_api_version_number IN NUMBER,
701 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
702 p_commit IN VARCHAR2 := FND_API.G_FALSE,
703 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
704 x_return_status OUT NOCOPY VARCHAR2,
705 x_msg_count OUT NOCOPY NUMBER,
706 x_msg_data OUT NOCOPY VARCHAR2,
707 p_parent_list_query_id IN NUMBER,
708 p_object_version_number IN NUMBER
709 )
710
711 IS
712 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_List_Query';
713 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
714 l_LIST_QUERY_ID NUMBER := p_parent_LIST_QUERY_ID;
715 l_object_version_number NUMBER := p_object_version_number;
716 l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type;
717 BEGIN
718 -- Standard Start of API savepoint
719 SAVEPOINT DELETE_List_Query_PUB;
720
721 -- Standard call to check for call compatibility.
722 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
723 p_api_version_number,
724 l_api_name,
725 G_PKG_NAME)
726 THEN
727 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
728 END IF;
729
730 -- Initialize message list if p_init_msg_list is set to TRUE.
731 IF FND_API.to_Boolean( p_init_msg_list )
732 THEN
733 FND_MSG_PUB.initialize;
734 END IF;
735
736 -- Debug Message
737 IF (AMS_DEBUG_HIGH_ON) THEN
738
739 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
740 END IF;
741
742
743 -- Initialize API return status to SUCCESS
744 x_return_status := FND_API.G_RET_STS_SUCCESS;
745
746 --
747 -- API body
748 --
749 AMS_List_Query_PVT.Delete_parent_List_Query(
750 p_api_version_number => 1.0,
751 p_init_msg_list => FND_API.G_FALSE,
752 p_commit => p_commit,
753 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
754 x_return_status => x_return_status,
755 x_msg_count => x_msg_count,
756 x_msg_data => x_msg_data,
757 p_parent_list_query_id => l_list_query_id,
758 p_object_version_number => l_object_version_number );
759
760
761 -- Check return status from the above procedure call
762 IF x_return_status = FND_API.G_RET_STS_ERROR then
763 RAISE FND_API.G_EXC_ERROR;
764 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
765 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766 END IF;
767 --
768 -- End of API body
769 --
770
771 -- Standard check for p_commit
772 IF FND_API.to_Boolean( p_commit )
773 THEN
774 COMMIT WORK;
775 END IF;
776
777
778 -- Debug Message
779 IF (AMS_DEBUG_HIGH_ON) THEN
780
781 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
782 END IF;
783
784 -- Standard call to get message count and if count is 1, get message info.
785 FND_MSG_PUB.Count_And_Get
786 (p_count => x_msg_count,
787 p_data => x_msg_data
788 );
789 EXCEPTION
790
791 WHEN AMS_Utility_PVT.resource_locked THEN
792 x_return_status := FND_API.g_ret_sts_error;
793 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794
795 WHEN FND_API.G_EXC_ERROR THEN
796 ROLLBACK TO DELETE_List_Query_PUB;
797 x_return_status := FND_API.G_RET_STS_ERROR;
798 -- Standard call to get message count and if count=1, get the message
799 FND_MSG_PUB.Count_And_Get (
800 p_encoded => FND_API.G_FALSE,
801 p_count => x_msg_count,
802 p_data => x_msg_data
803 );
804
805 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806 ROLLBACK TO DELETE_List_Query_PUB;
807 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808 -- Standard call to get message count and if count=1, get the message
809 FND_MSG_PUB.Count_And_Get (
810 p_encoded => FND_API.G_FALSE,
811 p_count => x_msg_count,
812 p_data => x_msg_data
813 );
814
815 WHEN OTHERS THEN
816 ROLLBACK TO DELETE_List_Query_PUB;
817 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
819 THEN
820 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821 END IF;
822 -- Standard call to get message count and if count=1, get the message
823 FND_MSG_PUB.Count_And_Get (
824 p_encoded => FND_API.G_FALSE,
828 End Delete_parent_List_Query;
825 p_count => x_msg_count,
826 p_data => x_msg_data
827 );
829
830
831
832 PROCEDURE Lock_List_Query(
833 p_api_version_number IN NUMBER,
834 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
835 x_return_status OUT NOCOPY VARCHAR2,
836 x_msg_count OUT NOCOPY NUMBER,
837 x_msg_data OUT NOCOPY VARCHAR2,
838
839 p_list_query_id IN NUMBER,
840 p_object_version IN NUMBER
841 )
842
843 IS
844 L_API_NAME CONSTANT VARCHAR2(30) := 'Lock_List_Query';
845 L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
846 l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type;
847 BEGIN
848
849 -- Standard call to check for call compatibility.
850 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
851 p_api_version_number,
852 l_api_name,
853 G_PKG_NAME)
854 THEN
855 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856 END IF;
857
858 -- Initialize message list if p_init_msg_list is set to TRUE.
859 IF FND_API.to_Boolean( p_init_msg_list )
860 THEN
861 FND_MSG_PUB.initialize;
862 END IF;
863
864 -- Debug Message
865 IF (AMS_DEBUG_HIGH_ON) THEN
866
867 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
868 END IF;
869
870
871 -- Initialize API return status to SUCCESS
872 x_return_status := FND_API.G_RET_STS_SUCCESS;
873
874 --
875 -- API body
876 --
877 -- Calling Private package: Create_List_Query
878 -- Hint: Primary key needs to be returned
879 AMS_List_Query_PVT.Lock_List_Query(
880 p_api_version_number => 1.0,
881 p_init_msg_list => FND_API.G_FALSE,
882 x_return_status => x_return_status,
883 x_msg_count => x_msg_count,
884 x_msg_data => x_msg_data,
885 p_list_query_id => p_list_query_id,
886 p_object_version => p_object_version);
887
888
889 -- Check return status from the above procedure call
890 IF x_return_status = FND_API.G_RET_STS_ERROR then
891 RAISE FND_API.G_EXC_ERROR;
892 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
893 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894 END IF;
895 --
896 -- End of API body.
897 --
898
899 -- Debug Message
900 IF (AMS_DEBUG_HIGH_ON) THEN
901
902 AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
903 END IF;
904
905 EXCEPTION
906
907 WHEN AMS_Utility_PVT.resource_locked THEN
908 x_return_status := FND_API.g_ret_sts_error;
909 AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
910
911 WHEN FND_API.G_EXC_ERROR THEN
912 ROLLBACK TO LOCK_List_Query_PUB;
913 x_return_status := FND_API.G_RET_STS_ERROR;
914 -- Standard call to get message count and if count=1, get the message
915 FND_MSG_PUB.Count_And_Get (
916 p_encoded => FND_API.G_FALSE,
917 p_count => x_msg_count,
918 p_data => x_msg_data
919 );
920
921 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922 ROLLBACK TO LOCK_List_Query_PUB;
923 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924 -- Standard call to get message count and if count=1, get the message
925 FND_MSG_PUB.Count_And_Get (
926 p_encoded => FND_API.G_FALSE,
927 p_count => x_msg_count,
928 p_data => x_msg_data
929 );
930
931 WHEN OTHERS THEN
932 ROLLBACK TO LOCK_List_Query_PUB;
933 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
934 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935 THEN
936 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937 END IF;
938 -- Standard call to get message count and if count=1, get the message
939 FND_MSG_PUB.Count_And_Get (
940 p_encoded => FND_API.G_FALSE,
941 p_count => x_msg_count,
942 p_data => x_msg_data
943 );
944 End Lock_List_Query;
945
946
947 END AMS_List_Query_PUB;