17: --
18: -- HISTORY
19: -- 05/12/1999 tdonohoe created
20: -- End of Comments
21: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_ListHeader
18: -- HISTORY
19: -- 05/12/1999 tdonohoe created
20: -- End of Comments
21: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_ListHeader
26: ( p_api_version IN NUMBER,
19: -- 05/12/1999 tdonohoe created
20: -- End of Comments
21: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_ListHeader
26: ( p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
44: SAVEPOINT create_listheader_pub;
45: -- initialize the message list;
46: -- won't do it again when calling private API
47: IF FND_API.to_boolean(p_init_msg_list) THEN
48: FND_MSG_PUB.initialize;
49: END IF;
50:
51: --call private API procedure.
52: AMS_LISTHEADER_PVT.Create_ListHeader
70: IF FND_API.to_boolean(p_commit) THEN
71: COMMIT;
72: END IF;
73: x_return_status := FND_API.g_ret_sts_success;
74: FND_MSG_PUB.count_and_get(
75: p_encoded => FND_API.g_false,
76: p_count => x_msg_count,
77: p_data => x_msg_data
78: );
81:
82: WHEN FND_API.g_exc_error THEN
83: ROLLBACK TO create_listheader_pub;
84: x_return_status := FND_API.g_ret_sts_error;
85: FND_MSG_PUB.count_and_get(
86: p_encoded => FND_API.g_false,
87: p_count => x_msg_count,
88: p_data => x_msg_data
89: );
90:
91: WHEN FND_API.g_exc_unexpected_error THEN
92: ROLLBACK TO create_listheader_pub;
93: x_return_status := FND_API.g_ret_sts_unexp_error ;
94: FND_MSG_PUB.count_and_get(
95: p_encoded => FND_API.g_false,
96: p_count => x_msg_count,
97: p_data => x_msg_data
98: );
101: WHEN OTHERS THEN
102: ROLLBACK TO create_listheader_pub;
103: x_return_status := FND_API.g_ret_sts_unexp_error ;
104:
105: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
106: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
107: END IF;
108:
109: FND_MSG_PUB.count_and_get(
102: ROLLBACK TO create_listheader_pub;
103: x_return_status := FND_API.g_ret_sts_unexp_error ;
104:
105: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
106: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
107: END IF;
108:
109: FND_MSG_PUB.count_and_get(
110: p_encoded => FND_API.g_false,
105: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
106: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
107: END IF;
108:
109: FND_MSG_PUB.count_and_get(
110: p_encoded => FND_API.g_false,
111: p_count => x_msg_count,
112: p_data => x_msg_data
113: );
154: SAVEPOINT update_listheader_pub;
155: -- initialize the message list;
156: -- won't do it again when calling private API
157: IF FND_API.to_boolean(p_init_msg_list) THEN
158: FND_MSG_PUB.initialize;
159: END IF;
160:
161: AMS_LISTHEADER_PVT.Update_ListHeader
162: ( p_api_version => p_api_version ,
181: END IF;
182:
183:
184: x_return_status := FND_API.g_ret_sts_success;
185: FND_MSG_PUB.count_and_get(
186: p_encoded => FND_API.g_false,
187: p_count => x_msg_count,
188: p_data => x_msg_data
189: );
192:
193: WHEN FND_API.g_exc_error THEN
194: ROLLBACK TO update_listheader_pub;
195: x_return_status := FND_API.g_ret_sts_error;
196: FND_MSG_PUB.count_and_get
197: (
198: p_encoded => FND_API.g_false,
199: p_count => x_msg_count,
200: p_data => x_msg_data
202:
203: WHEN FND_API.g_exc_unexpected_error THEN
204: ROLLBACK TO update_listheader_pub;
205: x_return_status := FND_API.g_ret_sts_unexp_error ;
206: FND_MSG_PUB.count_and_get(
207: p_encoded => FND_API.g_false,
208: p_count => x_msg_count,
209: p_data => x_msg_data
210: );
212:
213: WHEN OTHERS THEN
214: ROLLBACK TO update_listheader_pub;
215: x_return_status := FND_API.g_ret_sts_unexp_error ;
216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
217: THEN
218: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
219: END IF;
220:
214: ROLLBACK TO update_listheader_pub;
215: x_return_status := FND_API.g_ret_sts_unexp_error ;
216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
217: THEN
218: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
219: END IF;
220:
221: FND_MSG_PUB.count_and_get(
222: p_encoded => FND_API.g_false,
217: THEN
218: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
219: END IF;
220:
221: FND_MSG_PUB.count_and_get(
222: p_encoded => FND_API.g_false,
223: p_count => x_msg_count,
224: p_data => x_msg_data
225: );
267:
268: -- initialize the message list;
269: -- won't do it again when calling private API
270: IF FND_API.to_boolean(p_init_msg_list) THEN
271: FND_MSG_PUB.initialize;
272: END IF;
273:
274: AMS_LISTHEADER_PVT.Delete_ListHeader
275: ( p_api_version => p_api_version,
291: COMMIT;
292: END IF;
293:
294: x_return_status := FND_API.g_ret_sts_success;
295: FND_MSG_PUB.count_and_get(
296: p_encoded => FND_API.g_false,
297: p_count => x_msg_count,
298: p_data => x_msg_data);
299:
302:
303: WHEN FND_API.g_exc_error THEN
304: ROLLBACK TO delete_listheader_pub;
305: x_return_status := FND_API.g_ret_sts_error;
306: FND_MSG_PUB.count_and_get(
307: p_encoded => FND_API.g_false,
308: p_count => x_msg_count,
309: p_data => x_msg_data
310: );
311:
312: WHEN FND_API.g_exc_unexpected_error THEN
313: ROLLBACK TO delete_listheader_pub;
314: x_return_status := FND_API.g_ret_sts_unexp_error ;
315: FND_MSG_PUB.count_and_get(
316: p_encoded => FND_API.g_false,
317: p_count => x_msg_count,
318: p_data => x_msg_data
319: );
322: WHEN OTHERS THEN
323: ROLLBACK TO delete_listheader_pub;
324: x_return_status := FND_API.g_ret_sts_unexp_error ;
325:
326: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
327: THEN
328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
329: END IF;
330:
324: x_return_status := FND_API.g_ret_sts_unexp_error ;
325:
326: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
327: THEN
328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
329: END IF;
330:
331: FND_MSG_PUB.count_and_get(
332: p_encoded => FND_API.g_false,
327: THEN
328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
329: END IF;
330:
331: FND_MSG_PUB.count_and_get(
332: p_encoded => FND_API.g_false,
333: p_count => x_msg_count,
334: p_data => x_msg_data
335: );
378:
379: -- initialize the message list;
380: -- won't do it again when calling private API
381: IF FND_API.to_boolean(p_init_msg_list) THEN
382: FND_MSG_PUB.initialize;
383: END IF;
384:
385: AMS_LISTHEADER_PVT.Lock_ListHeader
386: ( p_api_version => p_api_version,
398: RAISE FND_API.g_exc_unexpected_error;
399: END IF;
400:
401: x_return_status := FND_API.g_ret_sts_success;
402: FND_MSG_PUB.count_and_get(
403: p_encoded => FND_API.g_false,
404: p_count => x_msg_count,
405: p_data => x_msg_data
406: );
409:
410: WHEN FND_API.g_exc_error THEN
411: ROLLBACK TO lock_ListHeader_pub;
412: x_return_status := FND_API.g_ret_sts_error;
413: FND_MSG_PUB.count_and_get(
414: p_encoded => FND_API.g_false,
415: p_count => x_msg_count,
416: p_data => x_msg_data
417: );
418:
419: WHEN FND_API.g_exc_unexpected_error THEN
420: ROLLBACK TO lock_ListHeader_pub;
421: x_return_status := FND_API.g_ret_sts_unexp_error ;
422: FND_MSG_PUB.count_and_get(
423: p_encoded => FND_API.g_false,
424: p_count => x_msg_count,
425: p_data => x_msg_data
426: );
429: WHEN OTHERS THEN
430: ROLLBACK TO lock_ListHeader_pub;
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432:
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
434: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
435: END IF;
436:
437: FND_MSG_PUB.count_and_get(
430: ROLLBACK TO lock_ListHeader_pub;
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432:
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
434: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
435: END IF;
436:
437: FND_MSG_PUB.count_and_get(
438: p_encoded => FND_API.g_false,
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
434: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
435: END IF;
436:
437: FND_MSG_PUB.count_and_get(
438: p_encoded => FND_API.g_false,
439: p_count => x_msg_count,
440: p_data => x_msg_data
441: );
482:
483: -- initialize the message list;
484: -- won't do it again when calling private API
485: IF FND_API.to_boolean(p_init_msg_list) THEN
486: FND_MSG_PUB.initialize;
487: END IF;
488:
489: AMS_LISTHEADER_PVT.Validate_ListHeader
490: ( p_api_version => p_api_version,
501: RAISE FND_API.g_exc_unexpected_error;
502: END IF;
503:
504: x_return_status := FND_API.g_ret_sts_success;
505: FND_MSG_PUB.count_and_get(
506: p_encoded => FND_API.g_false,
507: p_count => x_msg_count,
508: p_data => x_msg_data
509: );
512:
513: WHEN FND_API.g_exc_error THEN
514: ROLLBACK TO validate_listheader_pub;
515: x_return_status := FND_API.g_ret_sts_error;
516: FND_MSG_PUB.count_and_get(
517: p_encoded => FND_API.g_false,
518: p_count => x_msg_count,
519: p_data => x_msg_data
520: );
521:
522: WHEN FND_API.g_exc_unexpected_error THEN
523: ROLLBACK TO validate_listheader_pub;
524: x_return_status := FND_API.g_ret_sts_unexp_error ;
525: FND_MSG_PUB.count_and_get(
526: p_encoded => FND_API.g_false,
527: p_count => x_msg_count,
528: p_data => x_msg_data
529: );
532: WHEN OTHERS THEN
533: ROLLBACK TO validate_listheader_pub;
534: x_return_status := FND_API.g_ret_sts_unexp_error ;
535:
536: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
537: THEN
538: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
539: END IF;
540:
534: x_return_status := FND_API.g_ret_sts_unexp_error ;
535:
536: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
537: THEN
538: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
539: END IF;
540:
541: FND_MSG_PUB.count_and_get(
542: p_encoded => FND_API.g_false,
537: THEN
538: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
539: END IF;
540:
541: FND_MSG_PUB.count_and_get(
542: p_encoded => FND_API.g_false,
543: p_count => x_msg_count,
544: p_data => x_msg_data
545: );
573: SAVEPOINT copy_list_pub;
574: -- initialize the message list;
575: -- won't do it again when calling private API
576: IF FND_API.to_boolean(p_init_msg_list) THEN
577: FND_MSG_PUB.initialize;
578: END IF;
579:
580: --call private API procedure.
581: AMS_LISTHEADER_PVT.Copy_List
603: IF FND_API.to_boolean(p_commit) THEN
604: COMMIT;
605: END IF;
606: x_return_status := FND_API.g_ret_sts_success;
607: FND_MSG_PUB.count_and_get(
608: p_encoded => FND_API.g_false,
609: p_count => x_msg_count,
610: p_data => x_msg_data
611: );
614:
615: WHEN FND_API.g_exc_error THEN
616: ROLLBACK TO copy_list_pub;
617: x_return_status := FND_API.g_ret_sts_error;
618: FND_MSG_PUB.count_and_get(
619: p_encoded => FND_API.g_false,
620: p_count => x_msg_count,
621: p_data => x_msg_data
622: );
623:
624: WHEN FND_API.g_exc_unexpected_error THEN
625: ROLLBACK TO copy_list_pub;
626: x_return_status := FND_API.g_ret_sts_unexp_error ;
627: FND_MSG_PUB.count_and_get(
628: p_encoded => FND_API.g_false,
629: p_count => x_msg_count,
630: p_data => x_msg_data
631: );
634: WHEN OTHERS THEN
635: ROLLBACK TO copy_list_pub;
636: x_return_status := FND_API.g_ret_sts_unexp_error ;
637:
638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
639: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
640: END IF;
641:
642: FND_MSG_PUB.count_and_get(
635: ROLLBACK TO copy_list_pub;
636: x_return_status := FND_API.g_ret_sts_unexp_error ;
637:
638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
639: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
640: END IF;
641:
642: FND_MSG_PUB.count_and_get(
643: p_encoded => FND_API.g_false,
638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
639: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
640: END IF;
641:
642: FND_MSG_PUB.count_and_get(
643: p_encoded => FND_API.g_false,
644: p_count => x_msg_count,
645: p_data => x_msg_data
646: );