[Home] [Help]
87: -- the sequence.
88: -- 4. If a flag column is passed in, check if it is 'Y' or 'N'.
89: -- Raise exception for invalid flag.
90: -- 5. If a flag column is not passed in, default it to 'Y' or 'N'.
91: -- 6. Please don't pass in any FND_API.g_mess_char/num/date.
92: --------------------------------------------------------------------
93: PROCEDURE Create_ListSourceType (
94: p_api_version IN NUMBER,
95: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
91: -- 6. Please don't pass in any FND_API.g_mess_char/num/date.
92: --------------------------------------------------------------------
93: PROCEDURE Create_ListSourceType (
94: p_api_version IN NUMBER,
95: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
96: p_commit IN VARCHAR2 := FND_API.g_false,
97: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
98:
99: x_return_status OUT NOCOPY VARCHAR2,
92: --------------------------------------------------------------------
93: PROCEDURE Create_ListSourceType (
94: p_api_version IN NUMBER,
95: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
96: p_commit IN VARCHAR2 := FND_API.g_false,
97: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
98:
99: x_return_status OUT NOCOPY VARCHAR2,
100: x_msg_count OUT NOCOPY NUMBER,
93: PROCEDURE Create_ListSourceType (
94: p_api_version IN NUMBER,
95: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
96: p_commit IN VARCHAR2 := FND_API.g_false,
97: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
98:
99: x_return_status OUT NOCOPY VARCHAR2,
100: x_msg_count OUT NOCOPY NUMBER,
101: x_msg_data OUT NOCOPY VARCHAR2,
126: SAVEPOINT Create_ListSourceType;
127:
128: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
129:
130: IF FND_API.to_boolean (p_init_msg_list) THEN
131: FND_MSG_PUB.initialize;
132: END IF;
133:
134: IF NOT FND_API.compatible_api_call(
130: IF FND_API.to_boolean (p_init_msg_list) THEN
131: FND_MSG_PUB.initialize;
132: END IF;
133:
134: IF NOT FND_API.compatible_api_call(
135: l_api_version,
136: p_api_version,
137: l_api_name,
138: g_pkg_name
136: p_api_version,
137: l_api_name,
138: g_pkg_name
139: ) THEN
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142:
143: x_return_status := FND_API.g_ret_sts_success;
144:
139: ) THEN
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142:
143: x_return_status := FND_API.g_ret_sts_success;
144:
145: ----------------------- validate -----------------------
146: AMS_Utility_PVT.debug_message (l_full_name || ': Validate');
147:
154: x_msg_data => x_msg_data,
155: p_listsrctype_rec => l_listsrctype_rec
156: );
157:
158: IF l_return_status = FND_API.g_ret_sts_error THEN
159: RAISE FND_API.g_exc_error;
160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
161: RAISE FND_API.g_exc_unexpected_error;
162: END IF;
155: p_listsrctype_rec => l_listsrctype_rec
156: );
157:
158: IF l_return_status = FND_API.g_ret_sts_error THEN
159: RAISE FND_API.g_exc_error;
160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
161: RAISE FND_API.g_exc_unexpected_error;
162: END IF;
163:
156: );
157:
158: IF l_return_status = FND_API.g_ret_sts_error THEN
159: RAISE FND_API.g_exc_error;
160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
161: RAISE FND_API.g_exc_unexpected_error;
162: END IF;
163:
164: --
157:
158: IF l_return_status = FND_API.g_ret_sts_error THEN
159: RAISE FND_API.g_exc_error;
160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
161: RAISE FND_API.g_exc_unexpected_error;
162: END IF;
163:
164: --
165: -- Check for the ID.
272: x_return_status => x_return_status,
273: x_msg_count => x_msg_count,
274: x_msg_data => x_msg_data
275: );
276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
277: RAISE FND_API.G_EXC_ERROR;
278: END IF;
279: END IF;
280:
273: x_msg_count => x_msg_count,
274: x_msg_data => x_msg_data
275: );
276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
277: RAISE FND_API.G_EXC_ERROR;
278: END IF;
279: END IF;
280:
281: ------------------------- finish -------------------------------
282: --
283: -- Set the out variable.
284: x_list_source_type_id := l_listsrctype_rec.list_source_type_id;
285:
286: IF FND_API.to_boolean(p_commit) THEN
287: COMMIT;
288: END IF;
289:
290: FND_MSG_PUB.count_and_get(
287: COMMIT;
288: END IF;
289:
290: FND_MSG_PUB.count_and_get(
291: p_encoded => FND_API.g_false,
292: p_count => x_msg_count,
293: p_data => x_msg_data
294: );
295:
295:
296: AMS_Utility_PVT.debug_message (l_full_name || ': End');
297:
298: EXCEPTION
299: WHEN FND_API.g_exc_error THEN
300: ROLLBACK TO Create_ListSourceType;
301: x_return_status := FND_API.g_ret_sts_error;
302: FND_MSG_PUB.count_and_get (
303: p_encoded => FND_API.g_false,
297:
298: EXCEPTION
299: WHEN FND_API.g_exc_error THEN
300: ROLLBACK TO Create_ListSourceType;
301: x_return_status := FND_API.g_ret_sts_error;
302: FND_MSG_PUB.count_and_get (
303: p_encoded => FND_API.g_false,
304: p_count => x_msg_count,
305: p_data => x_msg_data
299: WHEN FND_API.g_exc_error THEN
300: ROLLBACK TO Create_ListSourceType;
301: x_return_status := FND_API.g_ret_sts_error;
302: FND_MSG_PUB.count_and_get (
303: p_encoded => FND_API.g_false,
304: p_count => x_msg_count,
305: p_data => x_msg_data
306: );
307: WHEN FND_API.g_exc_unexpected_error THEN
303: p_encoded => FND_API.g_false,
304: p_count => x_msg_count,
305: p_data => x_msg_data
306: );
307: WHEN FND_API.g_exc_unexpected_error THEN
308: ROLLBACK TO Create_ListSourceType;
309: x_return_status := FND_API.g_ret_sts_unexp_error ;
310: FND_MSG_PUB.count_and_get (
311: p_encoded => FND_API.g_false,
305: p_data => x_msg_data
306: );
307: WHEN FND_API.g_exc_unexpected_error THEN
308: ROLLBACK TO Create_ListSourceType;
309: x_return_status := FND_API.g_ret_sts_unexp_error ;
310: FND_MSG_PUB.count_and_get (
311: p_encoded => FND_API.g_false,
312: p_count => x_msg_count,
313: p_data => x_msg_data
307: WHEN FND_API.g_exc_unexpected_error THEN
308: ROLLBACK TO Create_ListSourceType;
309: x_return_status := FND_API.g_ret_sts_unexp_error ;
310: FND_MSG_PUB.count_and_get (
311: p_encoded => FND_API.g_false,
312: p_count => x_msg_count,
313: p_data => x_msg_data
314: );
315: WHEN OTHERS THEN
313: p_data => x_msg_data
314: );
315: WHEN OTHERS THEN
316: ROLLBACK TO Create_ListSourceType;
317: x_return_status := FND_API.g_ret_sts_unexp_error ;
318:
319: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
320: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
321: END IF;
320: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
321: END IF;
322:
323: FND_MSG_PUB.count_and_get(
324: p_encoded => FND_API.g_false,
325: p_count => x_msg_count,
326: p_data => x_msg_data
327: );
328: END Create_ListSourceType;
347: -- 1. Raise exception if the object_version_number doesn't match.
348: --------------------------------------------------------------------
349: PROCEDURE Delete_ListSourceType (
350: p_api_version IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
352: p_commit IN VARCHAR2 := FND_API.g_false,
353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
348: --------------------------------------------------------------------
349: PROCEDURE Delete_ListSourceType (
350: p_api_version IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
352: p_commit IN VARCHAR2 := FND_API.g_false,
353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
356: x_msg_count OUT NOCOPY NUMBER,
349: PROCEDURE Delete_ListSourceType (
350: p_api_version IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
352: p_commit IN VARCHAR2 := FND_API.g_false,
353: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
356: x_msg_count OUT NOCOPY NUMBER,
357: x_msg_data OUT NOCOPY VARCHAR2,
402: SAVEPOINT Delete_ListSourceType;
403:
404: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
405:
406: IF FND_API.to_boolean (p_init_msg_list) THEN
407: FND_MSG_PUB.initialize;
408: END IF;
409:
410: IF NOT FND_API.compatible_api_call (
406: IF FND_API.to_boolean (p_init_msg_list) THEN
407: FND_MSG_PUB.initialize;
408: END IF;
409:
410: IF NOT FND_API.compatible_api_call (
411: l_api_version,
412: p_api_version,
413: l_api_name,
414: g_pkg_name
412: p_api_version,
413: l_api_name,
414: g_pkg_name
415: ) THEN
416: RAISE FND_API.g_exc_unexpected_error;
417: END IF;
418:
419: x_return_status := FND_API.g_ret_sts_success;
420:
415: ) THEN
416: RAISE FND_API.g_exc_unexpected_error;
417: END IF;
418:
419: x_return_status := FND_API.g_ret_sts_success;
420:
421: ------------------------ delete ------------------------
422: --added vb 06/18/2001
423: --do not allow delete of seeded data source
430: THEN
431: FND_MESSAGE.set_name ('AMS', 'AMS_API_CANNOT_DELETE');
432: FND_MSG_PUB.add;
433: END IF;
434: RAISE FND_API.g_exc_error;
435: end loop ;
436: close c_delete_sources ;
437: IF (p_list_source_type_id <= 10000) THEN
438: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
439: THEN
440: FND_MESSAGE.set_name ('AMS', 'AMS_API_CANNOT_DELETE');
441: FND_MSG_PUB.add;
442: END IF;
443: RAISE FND_API.g_exc_error;
444: END IF;
445:
446: -- nyostos - added 09/03/2002
447: -- Do not allow delete of Analytics Data Source if used by any model
455: FETCH c_analytics_ds_used INTO l_no_of_models;
456: CLOSE c_analytics_ds_used;
457: IF l_no_of_models > 0 THEN
458: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_DM_DATASOURCE_USED');
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461: END IF;
462: -------------------- finish --------------------------
463:
476: THEN
477: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
478: FND_MSG_PUB.add;
479: END IF;
480: RAISE FND_API.g_exc_error;
481: END IF;
482:
483: -- choang - 31-Jan-2000
484: -- Add cascade delete funtionality.
514:
515: -------------------- finish --------------------------
516:
517:
518: IF FND_API.to_boolean (p_commit) THEN
519: COMMIT;
520: END IF;
521:
522: FND_MSG_PUB.count_and_get (
519: COMMIT;
520: END IF;
521:
522: FND_MSG_PUB.count_and_get (
523: p_encoded => FND_API.g_false,
524: p_count => x_msg_count,
525: p_data => x_msg_data
526: );
527:
527:
528: AMS_Utility_PVT.debug_message(l_full_name || ': End');
529:
530: EXCEPTION
531: WHEN FND_API.g_exc_error THEN
532: ROLLBACK TO Delete_ListSourceType;
533: x_return_status := FND_API.g_ret_sts_error;
534: FND_MSG_PUB.count_and_get (
535: p_encoded => FND_API.g_false,
529:
530: EXCEPTION
531: WHEN FND_API.g_exc_error THEN
532: ROLLBACK TO Delete_ListSourceType;
533: x_return_status := FND_API.g_ret_sts_error;
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
531: WHEN FND_API.g_exc_error THEN
532: ROLLBACK TO Delete_ListSourceType;
533: x_return_status := FND_API.g_ret_sts_error;
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: WHEN FND_API.g_exc_unexpected_error THEN
535: p_encoded => FND_API.g_false,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO Delete_ListSourceType;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get (
543: p_encoded => FND_API.g_false,
537: p_data => x_msg_data
538: );
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO Delete_ListSourceType;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get (
543: p_encoded => FND_API.g_false,
544: p_count => x_msg_count,
545: p_data => x_msg_data
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO Delete_ListSourceType;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get (
543: p_encoded => FND_API.g_false,
544: p_count => x_msg_count,
545: p_data => x_msg_data
546: );
547: WHEN OTHERS THEN
545: p_data => x_msg_data
546: );
547: WHEN OTHERS THEN
548: ROLLBACK TO Delete_ListSourceType;
549: x_return_status := FND_API.g_ret_sts_unexp_error ;
550:
551: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
552: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
553: END IF;
552: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
553: END IF;
554:
555: FND_MSG_PUB.count_and_get (
556: p_encoded => FND_API.g_false,
557: p_count => x_msg_count,
558: p_data => x_msg_data
559: );
560: END Delete_ListSourceType;
577: -- 1. Raise exception if the object_version_number doesn't match.
578: --------------------------------------------------------------------
579: PROCEDURE Lock_ListSourceType (
580: p_api_version IN NUMBER,
581: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
582: p_commit IN VARCHAR2 := FND_API.g_false,
583: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
584:
585: x_return_status OUT NOCOPY VARCHAR2,
578: --------------------------------------------------------------------
579: PROCEDURE Lock_ListSourceType (
580: p_api_version IN NUMBER,
581: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
582: p_commit IN VARCHAR2 := FND_API.g_false,
583: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
584:
585: x_return_status OUT NOCOPY VARCHAR2,
586: x_msg_count OUT NOCOPY NUMBER,
579: PROCEDURE Lock_ListSourceType (
580: p_api_version IN NUMBER,
581: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
582: p_commit IN VARCHAR2 := FND_API.g_false,
583: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
584:
585: x_return_status OUT NOCOPY VARCHAR2,
586: x_msg_count OUT NOCOPY NUMBER,
587: x_msg_data OUT NOCOPY VARCHAR2,
612: BEGIN
613: --------------------- initialize -----------------------
614: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
615:
616: IF FND_API.to_boolean (p_init_msg_list) THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619:
620: IF NOT FND_API.compatible_api_call (
616: IF FND_API.to_boolean (p_init_msg_list) THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619:
620: IF NOT FND_API.compatible_api_call (
621: l_api_version,
622: p_api_version,
623: l_api_name,
624: g_pkg_name
622: p_api_version,
623: l_api_name,
624: g_pkg_name
625: ) THEN
626: RAISE FND_API.g_exc_unexpected_error;
627: END IF;
628:
629: x_return_status := FND_API.g_ret_sts_success;
630:
625: ) THEN
626: RAISE FND_API.g_exc_unexpected_error;
627: END IF;
628:
629: x_return_status := FND_API.g_ret_sts_success;
630:
631: ------------------------ lock -------------------------
632: OPEN c_lock_req;
633: FETCH c_lock_req INTO l_dummy;
636: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
637: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
638: FND_MSG_PUB.add;
639: END IF;
640: RAISE FND_API.g_exc_error;
641: END IF;
642: CLOSE c_lock_req;
643:
644: -------------------- finish --------------------------
642: CLOSE c_lock_req;
643:
644: -------------------- finish --------------------------
645: FND_MSG_PUB.count_and_get (
646: p_encoded => FND_API.g_false,
647: p_count => x_msg_count,
648: p_data => x_msg_data
649: );
650:
651: AMS_Utility_PVT.debug_message (l_full_name || ': End');
652:
653: EXCEPTION
654: WHEN AMS_Utility_PVT.resource_locked THEN
655: x_return_status := FND_API.g_ret_sts_error;
656: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
657: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
658: FND_MSG_PUB.add;
659: END IF;
658: FND_MSG_PUB.add;
659: END IF;
660:
661: FND_MSG_PUB.count_and_get(
662: p_encoded => FND_API.g_false,
663: p_count => x_msg_count,
664: p_data => x_msg_data
665: );
666: WHEN FND_API.g_exc_error THEN
662: p_encoded => FND_API.g_false,
663: p_count => x_msg_count,
664: p_data => x_msg_data
665: );
666: WHEN FND_API.g_exc_error THEN
667: x_return_status := FND_API.g_ret_sts_error;
668: FND_MSG_PUB.count_and_get (
669: p_encoded => FND_API.g_false,
670: p_count => x_msg_count,
663: p_count => x_msg_count,
664: p_data => x_msg_data
665: );
666: WHEN FND_API.g_exc_error THEN
667: x_return_status := FND_API.g_ret_sts_error;
668: FND_MSG_PUB.count_and_get (
669: p_encoded => FND_API.g_false,
670: p_count => x_msg_count,
671: p_data => x_msg_data
665: );
666: WHEN FND_API.g_exc_error THEN
667: x_return_status := FND_API.g_ret_sts_error;
668: FND_MSG_PUB.count_and_get (
669: p_encoded => FND_API.g_false,
670: p_count => x_msg_count,
671: p_data => x_msg_data
672: );
673: WHEN FND_API.g_exc_unexpected_error THEN
669: p_encoded => FND_API.g_false,
670: p_count => x_msg_count,
671: p_data => x_msg_data
672: );
673: WHEN FND_API.g_exc_unexpected_error THEN
674: x_return_status := FND_API.g_ret_sts_unexp_error ;
675: FND_MSG_PUB.count_and_get (
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
670: p_count => x_msg_count,
671: p_data => x_msg_data
672: );
673: WHEN FND_API.g_exc_unexpected_error THEN
674: x_return_status := FND_API.g_ret_sts_unexp_error ;
675: FND_MSG_PUB.count_and_get (
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
678: p_data => x_msg_data
672: );
673: WHEN FND_API.g_exc_unexpected_error THEN
674: x_return_status := FND_API.g_ret_sts_unexp_error ;
675: FND_MSG_PUB.count_and_get (
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680: WHEN OTHERS THEN
677: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680: WHEN OTHERS THEN
681: x_return_status := FND_API.g_ret_sts_unexp_error ;
682: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
683: THEN
684: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
685: END IF;
684: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
685: END IF;
686:
687: FND_MSG_PUB.count_and_get (
688: p_encoded => FND_API.g_false,
689: p_count => x_msg_count,
690: p_data => x_msg_data
691: );
692: END Lock_ListSourceType;
703: -- p_listsrctype_rec: the record representing AMS_LIST_SRC_TYPES.
704: --
705: -- NOTES
706: -- 1. Raise exception if the object_version_number doesn't match.
707: -- 2. If an attribute is passed in as FND_API.g_miss_char/num/date,
708: -- that column won't be updated.
709: --------------------------------------------------------------------
710: PROCEDURE Update_ListSourceType (
711: p_api_version IN NUMBER,
708: -- that column won't be updated.
709: --------------------------------------------------------------------
710: PROCEDURE Update_ListSourceType (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
713: p_commit IN VARCHAR2 := FND_API.g_false,
714: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
715:
716: x_return_status OUT NOCOPY VARCHAR2,
709: --------------------------------------------------------------------
710: PROCEDURE Update_ListSourceType (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
713: p_commit IN VARCHAR2 := FND_API.g_false,
714: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
715:
716: x_return_status OUT NOCOPY VARCHAR2,
717: x_msg_count OUT NOCOPY NUMBER,
710: PROCEDURE Update_ListSourceType (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
713: p_commit IN VARCHAR2 := FND_API.g_false,
714: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
715:
716: x_return_status OUT NOCOPY VARCHAR2,
717: x_msg_count OUT NOCOPY NUMBER,
718: x_msg_data OUT NOCOPY VARCHAR2,
731: SAVEPOINT Update_ListSourceType;
732:
733: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
734:
735: IF FND_API.to_boolean (p_init_msg_list) THEN
736: FND_MSG_PUB.initialize;
737: END IF;
738:
739: IF NOT FND_API.compatible_api_call(
735: IF FND_API.to_boolean (p_init_msg_list) THEN
736: FND_MSG_PUB.initialize;
737: END IF;
738:
739: IF NOT FND_API.compatible_api_call(
740: l_api_version,
741: p_api_version,
742: l_api_name,
743: g_pkg_name
741: p_api_version,
742: l_api_name,
743: g_pkg_name
744: ) THEN
745: RAISE FND_API.g_exc_unexpected_error;
746: END IF;
747:
748: x_return_status := FND_API.g_ret_sts_success;
749:
744: ) THEN
745: RAISE FND_API.g_exc_unexpected_error;
746: END IF;
747:
748: x_return_status := FND_API.g_ret_sts_success;
749:
750: --added vb 06/28/2001
751: --do not allow update of seeded data source
752:
756: THEN
757: FND_MESSAGE.set_name ('AMS', 'AMS_API_CANNOT_UPDATE');
758: FND_MSG_PUB.add;
759: END IF;
760: RAISE FND_API.g_exc_error;
761: END IF;
762: */
763:
764: ----------------------- validate ----------------------
773: p_validation_mode => JTF_PLSQL_API.g_update,
774: x_return_status => l_return_status
775: );
776:
777: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
780: RAISE FND_API.g_exc_error;
781: END IF;
774: x_return_status => l_return_status
775: );
776:
777: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
780: RAISE FND_API.g_exc_error;
781: END IF;
782: END IF;
775: );
776:
777: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
780: RAISE FND_API.g_exc_error;
781: END IF;
782: END IF;
783:
776:
777: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
780: RAISE FND_API.g_exc_error;
781: END IF;
782: END IF;
783:
784: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
787: p_complete_rec => l_listsrctype_rec,
788: x_return_status => l_return_status
789: );
790:
791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
792: RAISE FND_API.g_exc_unexpected_error;
793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
794: RAISE FND_API.g_exc_error;
795: END IF;
788: x_return_status => l_return_status
789: );
790:
791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
792: RAISE FND_API.g_exc_unexpected_error;
793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
794: RAISE FND_API.g_exc_error;
795: END IF;
796: END IF;
789: );
790:
791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
792: RAISE FND_API.g_exc_unexpected_error;
793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
794: RAISE FND_API.g_exc_error;
795: END IF;
796: END IF;
797:
790:
791: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
792: RAISE FND_API.g_exc_unexpected_error;
793: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
794: RAISE FND_API.g_exc_error;
795: END IF;
796: END IF;
797:
798: -------------------------- update --------------------
821: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
822: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
823: FND_MSG_PUB.add;
824: END IF;
825: RAISE FND_API.g_exc_error;
826: END IF;
827:
828: update AMS_LIST_SRC_TYPES_TL set
829: LIST_SOURCE_NAME = l_listsrctype_rec.LIST_SOURCE_NAME,
844: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
845: FND_MESSAGE.Set_Token('ROW', 'AMS_ListSourceType_PVT.Upd_AMS_LIST_SRC_TYPES_TL', TRUE);
846: FND_MSG_PUB.Add;
847: END IF;
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -------------------- finish --------------------------
852: IF FND_API.to_boolean (p_commit) THEN
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -------------------- finish --------------------------
852: IF FND_API.to_boolean (p_commit) THEN
853: COMMIT;
854: END IF;
855:
856: FND_MSG_PUB.count_and_get (
853: COMMIT;
854: END IF;
855:
856: FND_MSG_PUB.count_and_get (
857: p_encoded => FND_API.g_false,
858: p_count => x_msg_count,
859: p_data => x_msg_data
860: );
861:
861:
862: AMS_Utility_PVT.debug_message (l_full_name || ': End');
863:
864: EXCEPTION
865: WHEN FND_API.g_exc_error THEN
866: ROLLBACK TO Update_ListSourceType;
867: x_return_status := FND_API.g_ret_sts_error;
868: FND_MSG_PUB.count_and_get (
869: p_encoded => FND_API.g_false,
863:
864: EXCEPTION
865: WHEN FND_API.g_exc_error THEN
866: ROLLBACK TO Update_ListSourceType;
867: x_return_status := FND_API.g_ret_sts_error;
868: FND_MSG_PUB.count_and_get (
869: p_encoded => FND_API.g_false,
870: p_count => x_msg_count,
871: p_data => x_msg_data
865: WHEN FND_API.g_exc_error THEN
866: ROLLBACK TO Update_ListSourceType;
867: x_return_status := FND_API.g_ret_sts_error;
868: FND_MSG_PUB.count_and_get (
869: p_encoded => FND_API.g_false,
870: p_count => x_msg_count,
871: p_data => x_msg_data
872: );
873: WHEN FND_API.g_exc_unexpected_error THEN
869: p_encoded => FND_API.g_false,
870: p_count => x_msg_count,
871: p_data => x_msg_data
872: );
873: WHEN FND_API.g_exc_unexpected_error THEN
874: ROLLBACK TO Update_ListSourceType;
875: x_return_status := FND_API.g_ret_sts_unexp_error ;
876: FND_MSG_PUB.count_and_get (
877: p_encoded => FND_API.g_false,
871: p_data => x_msg_data
872: );
873: WHEN FND_API.g_exc_unexpected_error THEN
874: ROLLBACK TO Update_ListSourceType;
875: x_return_status := FND_API.g_ret_sts_unexp_error ;
876: FND_MSG_PUB.count_and_get (
877: p_encoded => FND_API.g_false,
878: p_count => x_msg_count,
879: p_data => x_msg_data
873: WHEN FND_API.g_exc_unexpected_error THEN
874: ROLLBACK TO Update_ListSourceType;
875: x_return_status := FND_API.g_ret_sts_unexp_error ;
876: FND_MSG_PUB.count_and_get (
877: p_encoded => FND_API.g_false,
878: p_count => x_msg_count,
879: p_data => x_msg_data
880: );
881: WHEN OTHERS THEN
879: p_data => x_msg_data
880: );
881: WHEN OTHERS THEN
882: ROLLBACK TO Update_ListSourceType;
883: x_return_status := FND_API.g_ret_sts_unexp_error ;
884:
885: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
886: THEN
887: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
887: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
888: END IF;
889:
890: FND_MSG_PUB.count_and_get (
891: p_encoded => FND_API.g_false,
892: p_count => x_msg_count,
893: p_data => x_msg_data
894: );
895: END Update_ListSourceType;
906: -- p_listsrctype_rec: the record representing AMS_LIST_SRC_TYPES.
907: --
908: -- NOTES
909: -- 1. p_listsrctype_rec should be the complete list source type record. There
910: -- should not be any FND_API.g_miss_char/num/date in it.
911: -- 2. If FND_API.g_miss_char/num/date is in the record, then raise
912: -- an exception, as those values are not handled.
913: --------------------------------------------------------------------
914: PROCEDURE Validate_ListSourceType (
907: --
908: -- NOTES
909: -- 1. p_listsrctype_rec should be the complete list source type record. There
910: -- should not be any FND_API.g_miss_char/num/date in it.
911: -- 2. If FND_API.g_miss_char/num/date is in the record, then raise
912: -- an exception, as those values are not handled.
913: --------------------------------------------------------------------
914: PROCEDURE Validate_ListSourceType (
915: p_api_version IN NUMBER,
912: -- an exception, as those values are not handled.
913: --------------------------------------------------------------------
914: PROCEDURE Validate_ListSourceType (
915: p_api_version IN NUMBER,
916: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
917: p_commit IN VARCHAR2 := FND_API.g_false,
918: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
919:
920: x_return_status OUT NOCOPY VARCHAR2,
913: --------------------------------------------------------------------
914: PROCEDURE Validate_ListSourceType (
915: p_api_version IN NUMBER,
916: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
917: p_commit IN VARCHAR2 := FND_API.g_false,
918: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
919:
920: x_return_status OUT NOCOPY VARCHAR2,
921: x_msg_count OUT NOCOPY NUMBER,
914: PROCEDURE Validate_ListSourceType (
915: p_api_version IN NUMBER,
916: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
917: p_commit IN VARCHAR2 := FND_API.g_false,
918: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
919:
920: x_return_status OUT NOCOPY VARCHAR2,
921: x_msg_count OUT NOCOPY NUMBER,
922: x_msg_data OUT NOCOPY VARCHAR2,
932: BEGIN
933: --------------------- initialize -----------------------
934: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
935:
936: IF FND_API.to_boolean (p_init_msg_list) THEN
937: FND_MSG_PUB.initialize;
938: END IF;
939:
940: IF NOT FND_API.compatible_api_call (
936: IF FND_API.to_boolean (p_init_msg_list) THEN
937: FND_MSG_PUB.initialize;
938: END IF;
939:
940: IF NOT FND_API.compatible_api_call (
941: l_api_version,
942: p_api_version,
943: l_api_name,
944: g_pkg_name
942: p_api_version,
943: l_api_name,
944: g_pkg_name
945: ) THEN
946: RAISE FND_API.g_exc_unexpected_error;
947: END IF;
948:
949: x_return_status := FND_API.g_ret_sts_success;
950:
945: ) THEN
946: RAISE FND_API.g_exc_unexpected_error;
947: END IF;
948:
949: x_return_status := FND_API.g_ret_sts_success;
950:
951: ---------------------- validate ------------------------
952: AMS_Utility_PVT.debug_message (l_full_name || ': Check items');
953:
957: p_validation_mode => JTF_PLSQL_API.g_create,
958: x_return_status => l_return_status
959: );
960:
961: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
962: RAISE FND_API.g_exc_unexpected_error;
963: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
964: RAISE FND_API.g_exc_error;
965: END IF;
958: x_return_status => l_return_status
959: );
960:
961: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
962: RAISE FND_API.g_exc_unexpected_error;
963: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
964: RAISE FND_API.g_exc_error;
965: END IF;
966: END IF;
959: );
960:
961: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
962: RAISE FND_API.g_exc_unexpected_error;
963: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
964: RAISE FND_API.g_exc_error;
965: END IF;
966: END IF;
967:
960:
961: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
962: RAISE FND_API.g_exc_unexpected_error;
963: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
964: RAISE FND_API.g_exc_error;
965: END IF;
966: END IF;
967:
968: AMS_Utility_PVT.debug_message (l_full_name || ': Check record');
973: p_complete_rec => NULL,
974: x_return_status => l_return_status
975: );
976:
977: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
978: RAISE FND_API.g_exc_unexpected_error;
979: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
980: RAISE FND_API.g_exc_error;
981: END IF;
974: x_return_status => l_return_status
975: );
976:
977: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
978: RAISE FND_API.g_exc_unexpected_error;
979: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
980: RAISE FND_API.g_exc_error;
981: END IF;
982: END IF;
975: );
976:
977: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
978: RAISE FND_API.g_exc_unexpected_error;
979: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
980: RAISE FND_API.g_exc_error;
981: END IF;
982: END IF;
983:
976:
977: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
978: RAISE FND_API.g_exc_unexpected_error;
979: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
980: RAISE FND_API.g_exc_error;
981: END IF;
982: END IF;
983:
984: -------------------- finish --------------------------
982: END IF;
983:
984: -------------------- finish --------------------------
985: FND_MSG_PUB.count_and_get (
986: p_encoded => FND_API.g_false,
987: p_count => x_msg_count,
988: p_data => x_msg_data
989: );
990:
990:
991: AMS_Utility_PVT.debug_message (l_full_name || ': End');
992:
993: EXCEPTION
994: WHEN FND_API.g_exc_error THEN
995: x_return_status := FND_API.g_ret_sts_error;
996: FND_MSG_PUB.count_and_get (
997: p_encoded => FND_API.g_false,
998: p_count => x_msg_count,
991: AMS_Utility_PVT.debug_message (l_full_name || ': End');
992:
993: EXCEPTION
994: WHEN FND_API.g_exc_error THEN
995: x_return_status := FND_API.g_ret_sts_error;
996: FND_MSG_PUB.count_and_get (
997: p_encoded => FND_API.g_false,
998: p_count => x_msg_count,
999: p_data => x_msg_data
993: EXCEPTION
994: WHEN FND_API.g_exc_error THEN
995: x_return_status := FND_API.g_ret_sts_error;
996: FND_MSG_PUB.count_and_get (
997: p_encoded => FND_API.g_false,
998: p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.g_exc_unexpected_error THEN
997: p_encoded => FND_API.g_false,
998: p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.g_exc_unexpected_error THEN
1002: x_return_status := FND_API.g_ret_sts_unexp_error ;
1003: FND_MSG_PUB.count_and_get (
1004: p_encoded => FND_API.g_false,
1005: p_count => x_msg_count,
998: p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.g_exc_unexpected_error THEN
1002: x_return_status := FND_API.g_ret_sts_unexp_error ;
1003: FND_MSG_PUB.count_and_get (
1004: p_encoded => FND_API.g_false,
1005: p_count => x_msg_count,
1006: p_data => x_msg_data
1000: );
1001: WHEN FND_API.g_exc_unexpected_error THEN
1002: x_return_status := FND_API.g_ret_sts_unexp_error ;
1003: FND_MSG_PUB.count_and_get (
1004: p_encoded => FND_API.g_false,
1005: p_count => x_msg_count,
1006: p_data => x_msg_data
1007: );
1008: WHEN OTHERS THEN
1005: p_count => x_msg_count,
1006: p_data => x_msg_data
1007: );
1008: WHEN OTHERS THEN
1009: x_return_status := FND_API.g_ret_sts_unexp_error;
1010: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
1011: THEN
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1013: END IF;
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1013: END IF;
1014:
1015: FND_MSG_PUB.count_and_get (
1016: p_encoded => FND_API.g_false,
1017: p_count => x_msg_count,
1018: p_data => x_msg_data
1019: );
1020: END Validate_ListSourceType;
1037: l_cnt NUMBER := 1;
1038:
1039: BEGIN
1040:
1041: x_return_status := FND_API.g_ret_sts_success;
1042:
1043: -- choang - 07-may-2002
1044: -- import type not relevant for analytics
1045: -- gjoby 29 - MAY -02 check only for import
1049: IF (c_import_type%NOTFOUND) THEN
1050: CLOSE c_import_type;
1051: FND_MESSAGE.SET_NAME('AMS', 'AMS_INVALID_IMPORT_TYPE');
1052: FND_MSG_PUB.Add;
1053: x_return_status := FND_API.g_ret_sts_error;
1054: RETURN;
1055: END IF;
1056: CLOSE c_import_type;
1057: END IF;
1062: FETCH c_viewname into l_cnt;
1063: IF l_cnt > 1 THEN
1064: FND_MESSAGE.SET_NAME('AMS', 'AMS_INVALID_SOURCE_TYPE_CODE');
1065: FND_MSG_PUB.Add;
1066: x_return_status := FND_API.g_ret_sts_error;
1067: RETURN;
1068: END IF;
1069: CLOSE c_viewname;
1070:
1096: p_listsrctype_rec => p_listsrctype_rec,
1097: x_return_status => x_return_status
1098: );
1099:
1100: IF x_return_status <> FND_API.g_ret_sts_success THEN
1101: RETURN;
1102: END IF;
1103:
1104: --
1108: p_validation_mode => p_validation_mode,
1109: x_return_status => x_return_status
1110: );
1111:
1112: IF x_return_status <> FND_API.g_ret_sts_success THEN
1113: RETURN;
1114: END IF;
1115:
1116: Check_ListSrcType_FK_Items(
1117: p_listsrctype_rec => p_listsrctype_rec,
1118: x_return_status => x_return_status
1119: );
1120:
1121: IF x_return_status <> FND_API.g_ret_sts_success THEN
1122: RETURN;
1123: END IF;
1124:
1125: Check_ListSrcType_Lookup_Items (
1126: p_listsrctype_rec => p_listsrctype_rec,
1127: x_return_status => x_return_status
1128: );
1129:
1130: IF x_return_status <> FND_API.g_ret_sts_success THEN
1131: RETURN;
1132: END IF;
1133:
1134: Check_ListSrcType_Flag_Items(
1135: p_listsrctype_rec => p_listsrctype_rec,
1136: x_return_status => x_return_status
1137: );
1138:
1139: IF x_return_status <> FND_API.g_ret_sts_success THEN
1140: RETURN;
1141: END IF;
1142:
1143: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_lstsrctype_business');
1143: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_lstsrctype_business');
1144: check_lstsrctype_business(
1145: p_listsrctype_rec => p_listsrctype_rec,
1146: x_return_status => x_return_status);
1147: IF x_return_status <> FND_API.g_ret_sts_success THEN
1148: RETURN;
1149: END IF;
1150: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_lstsrctype_business');
1151:
1160: -- Check the record level business rules.
1161: --
1162: -- PARAMETERS
1163: -- p_listsrctype_rec: the record to be validated; may contain attributes
1164: -- as FND_API.g_miss_char/num/date
1165: -- p_complete_rec: the complete record after all "g_miss" items
1166: -- have been replaced by current database values
1167: ---------------------------------------------------------------------
1168: PROCEDURE Check_ListSourceType_Record (
1198: ;
1199:
1200: l_target_indicator NUMBER;
1201: BEGIN
1202: x_return_status := FND_API.g_ret_sts_success;
1203:
1204: -- only perform these validations when an UPDATE
1205: -- API call is made.
1206: IF p_complete_rec.list_source_type_id IS NOT NULL THEN
1218: CLOSE c_target_exists;
1219:
1220: IF l_target_indicator IS NULL OR l_target_indicator <> 1 THEN
1221: AMS_Utility_PVT.error_message ('AMS_DM_NO_TARGETS');
1222: x_return_status := FND_API.g_ret_sts_error;
1223: END IF;
1224: END IF;
1225: END IF; -- if analytics data source
1226: END IF;
1231: -- PROCEDURE
1232: -- Init_ListSourceType_Rec
1233: --
1234: -- PURPOSE
1235: -- Initialize all attributes to be FND_API.g_miss_char/num/date.
1236: ---------------------------------------------------------------------
1237: PROCEDURE Init_ListSourceType_Rec (
1238: x_listsrctype_rec OUT NOCOPY ListSourceType_Rec_Type
1239: )
1238: x_listsrctype_rec OUT NOCOPY ListSourceType_Rec_Type
1239: )
1240: IS
1241: BEGIN
1242: x_listsrctype_rec.list_source_type_id := FND_API.g_miss_num;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1239: )
1240: IS
1241: BEGIN
1242: x_listsrctype_rec.list_source_type_id := FND_API.g_miss_num;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1240: IS
1241: BEGIN
1242: x_listsrctype_rec.list_source_type_id := FND_API.g_miss_num;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1241: BEGIN
1242: x_listsrctype_rec.list_source_type_id := FND_API.g_miss_num;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1242: x_listsrctype_rec.list_source_type_id := FND_API.g_miss_num;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1243: x_listsrctype_rec.last_update_date := FND_API.g_miss_date;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1244: x_listsrctype_rec.last_updated_by := FND_API.g_miss_num;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1245: x_listsrctype_rec.creation_date := FND_API.g_miss_date;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1246: x_listsrctype_rec.created_by := FND_API.g_miss_num;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1247: x_listsrctype_rec.last_update_login := FND_API.g_miss_num;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1248: x_listsrctype_rec.object_version_number := FND_API.g_miss_num;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1249: x_listsrctype_rec.list_source_type := FND_API.g_miss_char;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1257: x_listsrctype_rec.view_application_id := FND_API.g_miss_num;
1250: x_listsrctype_rec.list_source_name := FND_API.g_miss_char;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1257: x_listsrctype_rec.view_application_id := FND_API.g_miss_num;
1258: END Init_ListSourceType_Rec;
1251: x_listsrctype_rec.source_type_code := FND_API.g_miss_char;
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1257: x_listsrctype_rec.view_application_id := FND_API.g_miss_num;
1258: END Init_ListSourceType_Rec;
1259:
1252: x_listsrctype_rec.source_object_name := FND_API.g_miss_char;
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1257: x_listsrctype_rec.view_application_id := FND_API.g_miss_num;
1258: END Init_ListSourceType_Rec;
1259:
1260:
1253: x_listsrctype_rec.master_source_type_flag := FND_API.g_miss_char;
1254: x_listsrctype_rec.source_object_pk_field := FND_API.g_miss_char;
1255: x_listsrctype_rec.enabled_flag := FND_API.g_miss_char;
1256: x_listsrctype_rec.description := FND_API.g_miss_char;
1257: x_listsrctype_rec.view_application_id := FND_API.g_miss_num;
1258: END Init_ListSourceType_Rec;
1259:
1260:
1261: ---------------------------------------------------------------------
1263: -- Complete_ListSourceType_Rec
1264: --
1265: -- PURPOSE
1266: -- For Update_ListSourceType, some attributes may be passed in as
1267: -- FND_API.g_miss_char/num/date if the user doesn't want to
1268: -- update those attributes. This procedure will replace the
1269: -- "g_miss" attributes with current database values.
1270: --
1271: -- PARAMETERS
1269: -- "g_miss" attributes with current database values.
1270: --
1271: -- PARAMETERS
1272: -- p_listdr_rec: the record which may contain attributes as
1273: -- FND_API.g_miss_char/num/date
1274: -- x_complete_rec: the complete record after all "g_miss" items
1275: -- have been replaced by current database values
1276: ---------------------------------------------------------------------
1277: PROCEDURE Complete_ListSourceType_Rec (
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1296: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1297: FND_MSG_PUB.add;
1298: END IF;
1299: RAISE FND_API.g_exc_error;
1300: END IF;
1301: CLOSE c_fields;
1302:
1303:
1301: CLOSE c_fields;
1302:
1303:
1304: -- LIST_SOURCE_TYPE
1305: IF p_listsrctype_rec.list_source_type = FND_API.g_miss_char THEN
1306: x_complete_rec.list_source_type := l_listsrctype_rec.list_source_type;
1307: END IF;
1308:
1309: -- LIST_SOURCE_NAME
1306: x_complete_rec.list_source_type := l_listsrctype_rec.list_source_type;
1307: END IF;
1308:
1309: -- LIST_SOURCE_NAME
1310: IF p_listsrctype_rec.list_source_name = FND_API.g_miss_char THEN
1311: x_complete_rec.list_source_name := l_listsrctype_rec.list_source_name;
1312: END IF;
1313:
1314:
1312: END IF;
1313:
1314:
1315: -- SOURCE_TYPE_CODE
1316: IF p_listsrctype_rec.source_type_code = FND_API.g_miss_char THEN
1317: x_complete_rec.source_type_code := l_listsrctype_rec.source_type_code;
1318: END IF;
1319:
1320: -- SOURCE_OBJECT_NAME
1317: x_complete_rec.source_type_code := l_listsrctype_rec.source_type_code;
1318: END IF;
1319:
1320: -- SOURCE_OBJECT_NAME
1321: IF p_listsrctype_rec.source_object_name = FND_API.g_miss_char THEN
1322: x_complete_rec.source_object_name := l_listsrctype_rec.source_object_name;
1323: END IF;
1324:
1325: -- MASTER_SOURCE_TYPE_FLAG
1322: x_complete_rec.source_object_name := l_listsrctype_rec.source_object_name;
1323: END IF;
1324:
1325: -- MASTER_SOURCE_TYPE_FLAG
1326: IF p_listsrctype_rec.master_source_type_flag = FND_API.g_miss_char THEN
1327: x_complete_rec.master_source_type_flag := l_listsrctype_rec.master_source_type_flag;
1328: END IF;
1329:
1330: -- SOURCE_OBJECT_PK_FIELD
1327: x_complete_rec.master_source_type_flag := l_listsrctype_rec.master_source_type_flag;
1328: END IF;
1329:
1330: -- SOURCE_OBJECT_PK_FIELD
1331: IF p_listsrctype_rec.source_object_pk_field = FND_API.g_miss_char THEN
1332: x_complete_rec.source_object_pk_field := l_listsrctype_rec.source_object_pk_field;
1333: END IF;
1334:
1335: -- ENABLED_FLAG
1332: x_complete_rec.source_object_pk_field := l_listsrctype_rec.source_object_pk_field;
1333: END IF;
1334:
1335: -- ENABLED_FLAG
1336: IF p_listsrctype_rec.enabled_flag = FND_API.g_miss_char THEN
1337: x_complete_rec.enabled_flag := l_listsrctype_rec.enabled_flag;
1338: END IF;
1339:
1340: -- DESCRIPTION
1337: x_complete_rec.enabled_flag := l_listsrctype_rec.enabled_flag;
1338: END IF;
1339:
1340: -- DESCRIPTION
1341: IF p_listsrctype_rec.description = FND_API.g_miss_char THEN
1342: x_complete_rec.description := l_listsrctype_rec.description;
1343: END IF;
1344:
1345:
1343: END IF;
1344:
1345:
1346: -- VIEW APPLICATION ID
1347: IF p_listsrctype_rec.view_application_id = FND_API.g_miss_num THEN
1348: x_complete_rec.view_application_id := l_listsrctype_rec.view_application_id;
1349: END IF;
1350:
1351: END Complete_ListSourceType_Rec;
1359: -- Check the record level business rules.
1360: --
1361: -- PARAMETERS
1362: -- p_listsrctype_rec: the record to be validated; may contain attributes
1363: -- as FND_API.g_miss_char/num/date
1364: -- p_complete_rec: the complete record after all "g_miss" items
1365: -- have been replaced by current database values
1366: ---------------------------------------------------------------------
1367: PROCEDURE Check_ListSrcType_Req_Items (
1369: x_return_status OUT NOCOPY VARCHAR2
1370: )
1371: IS
1372: BEGIN
1373: x_return_status := FND_API.g_ret_sts_success;
1374:
1375:
1376: -- list_source_type
1377: IF p_listsrctype_rec.list_source_type IS NULL THEN
1379: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_LISTSRC_TYPE');
1380: FND_MSG_PUB.add;
1381: END IF;
1382:
1383: x_return_status := FND_API.g_ret_sts_error;
1384: RETURN;
1385: END IF;
1386:
1387: -- list_source_name
1390: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_LISTSRC_NAME');
1391: FND_MSG_PUB.add;
1392: END IF;
1393:
1394: x_return_status := FND_API.g_ret_sts_error;
1395: RETURN;
1396: END IF;
1397:
1398:
1402: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_SRCTYPE_CODE');
1403: FND_MSG_PUB.add;
1404: END IF;
1405:
1406: x_return_status := FND_API.g_ret_sts_error;
1407: RETURN;
1408: END IF;
1409:
1410: -- source_object_name
1413: FND_MESSAGE.set_name('AMS', 'AMS_LIST_NO_SRCOBJ_NAME');
1414: FND_MSG_PUB.add;
1415: END IF;
1416:
1417: x_return_status := FND_API.g_ret_sts_error;
1418: RETURN;
1419: END IF;
1420:
1421: END Check_ListSrcType_Req_Items;
1428: -- Check the record level business rules.
1429: --
1430: -- PARAMETERS
1431: -- p_listsrctype_rec: the record to be validated; may contain attributes
1432: -- as FND_API.g_miss_char/num/date
1433: -- p_complete_rec: the complete record after all "g_miss" items
1434: -- have been replaced by current database values
1435: ---------------------------------------------------------------------
1436: PROCEDURE Check_ListSrcType_UK_Items (
1466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1467: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_NAME');
1468: FND_MSG_PUB.add;
1469: END IF;
1470: x_return_status := FND_API.g_ret_sts_error;
1471: l_valid_flag := NULL;
1472: END IF;
1473:
1474: -- list_source_type and source_type_code
1475: l_valid_flag := AMS_Utility_PVT.check_uniqueness (
1476: p_table_name => l_list_src_types_table,
1477: p_where_clause => l_where_clause
1478: );
1479: IF l_valid_flag = FND_API.g_false THEN
1480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1481: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_TYPE');
1482: FND_MSG_PUB.add;
1483: END IF;
1480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1481: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_TYPE');
1482: FND_MSG_PUB.add;
1483: END IF;
1484: x_return_status := FND_API.g_ret_sts_error;
1485: l_valid_flag := NULL;
1486: END IF;
1487: ELSE -- update operations have to exclude the current record (by ID)
1488: -- Validate that the list_source_name is unique.
1493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1494: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_NAME');
1495: FND_MSG_PUB.add;
1496: END IF;
1497: x_return_status := FND_API.g_ret_sts_error;
1498: l_valid_flag := NULL;
1499: END IF;
1500:
1501: -- list_source_type and source_type_code
1502: l_valid_flag := AMS_Utility_PVT.check_uniqueness (
1503: p_table_name => l_list_src_types_table,
1504: p_where_clause => l_where_clause || ' AND list_source_type_id <> ' || p_listsrctype_rec.list_source_type_id
1505: );
1506: IF l_valid_flag = FND_API.g_false THEN
1507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1508: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_TYPE');
1509: FND_MSG_PUB.add;
1510: END IF;
1507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1508: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPE_LISTSRC_TYPE');
1509: FND_MSG_PUB.add;
1510: END IF;
1511: x_return_status := FND_API.g_ret_sts_error;
1512: l_valid_flag := NULL;
1513: END IF;
1514: END IF;
1515: END Check_ListSrcType_UK_Items;
1522: -- Check the record level business rules.
1523: --
1524: -- PARAMETERS
1525: -- p_listsrctype_rec: the record to be validated; may contain attributes
1526: -- as FND_API.g_miss_char/num/date
1527: -- p_complete_rec: the complete record after all "g_miss" items
1528: -- have been replaced by current database values
1529: ---------------------------------------------------------------------
1530: PROCEDURE Check_ListSrcType_FK_Items (
1537: -- Do we need to add checking for the column pk
1538: -- field? How about the table field?
1539: ----------------------------------------------------
1540: BEGIN
1541: x_return_status := FND_API.g_ret_sts_success;
1542: END Check_ListSrcType_FK_Items;
1543:
1544: ---------------------------------------------------------------------
1545: -- PROCEDURE
1549: -- Check the record level business rules.
1550: --
1551: -- PARAMETERS
1552: -- p_listsrctype_rec: the record to be validated; may contain attributes
1553: -- as FND_API.g_miss_char/num/date
1554: -- p_complete_rec: the complete record after all "g_miss" items
1555: -- have been replaced by current database values
1556: ---------------------------------------------------------------------
1557: PROCEDURE Check_ListSrcType_Lookup_Items (
1559: x_return_status OUT NOCOPY VARCHAR2
1560: )
1561: IS
1562: BEGIN
1563: x_return_status := FND_API.g_ret_sts_success;
1564: --------------------- view application_id ------------------------
1565: IF p_listsrctype_rec.view_application_id <> FND_API.g_miss_num THEN
1566: IF AMS_Utility_PVT.check_fk_exists(
1567: 'fnd_application',
1561: IS
1562: BEGIN
1563: x_return_status := FND_API.g_ret_sts_success;
1564: --------------------- view application_id ------------------------
1565: IF p_listsrctype_rec.view_application_id <> FND_API.g_miss_num THEN
1566: IF AMS_Utility_PVT.check_fk_exists(
1567: 'fnd_application',
1568: 'application_id',
1569: p_listsrctype_rec.view_application_id
1566: IF AMS_Utility_PVT.check_fk_exists(
1567: 'fnd_application',
1568: 'application_id',
1569: p_listsrctype_rec.view_application_id
1570: ) = FND_API.g_false
1571: THEN
1572: AMS_Utility_PVT.Error_Message('AMS_LIST_BAD_APPLICATION_ID');
1573: x_return_status := FND_API.g_ret_sts_error;
1574: RETURN;
1569: p_listsrctype_rec.view_application_id
1570: ) = FND_API.g_false
1571: THEN
1572: AMS_Utility_PVT.Error_Message('AMS_LIST_BAD_APPLICATION_ID');
1573: x_return_status := FND_API.g_ret_sts_error;
1574: RETURN;
1575: END IF;
1576: END IF;
1577:
1585: -- Check the record level business rules.
1586: --
1587: -- PARAMETERS
1588: -- p_listsrctype_rec: the record to be validated; may contain attributes
1589: -- as FND_API.g_miss_char/num/date
1590: -- p_complete_rec: the complete record after all "g_miss" items
1591: -- have been replaced by current database values
1592: ---------------------------------------------------------------------
1593: PROCEDURE Check_ListSrcType_Flag_Items (
1595: x_return_status OUT NOCOPY VARCHAR2
1596: )
1597: IS
1598: BEGIN
1599: x_return_status := FND_API.g_ret_sts_success;
1600:
1601: -- master_source_type_flag
1602: IF p_listsrctype_rec.master_source_type_flag <> FND_API.g_miss_char AND p_listsrctype_rec.master_source_type_flag IS NOT NULL THEN
1603: IF AMS_Utility_PVT.is_Y_or_N (p_listsrctype_rec.master_source_type_flag) = FND_API.g_false THEN
1598: BEGIN
1599: x_return_status := FND_API.g_ret_sts_success;
1600:
1601: -- master_source_type_flag
1602: IF p_listsrctype_rec.master_source_type_flag <> FND_API.g_miss_char AND p_listsrctype_rec.master_source_type_flag IS NOT NULL THEN
1603: IF AMS_Utility_PVT.is_Y_or_N (p_listsrctype_rec.master_source_type_flag) = FND_API.g_false THEN
1604: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1605: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_MASTERSRC_FLAG');
1606: FND_MSG_PUB.add;
1599: x_return_status := FND_API.g_ret_sts_success;
1600:
1601: -- master_source_type_flag
1602: IF p_listsrctype_rec.master_source_type_flag <> FND_API.g_miss_char AND p_listsrctype_rec.master_source_type_flag IS NOT NULL THEN
1603: IF AMS_Utility_PVT.is_Y_or_N (p_listsrctype_rec.master_source_type_flag) = FND_API.g_false THEN
1604: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1605: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_MASTERSRC_FLAG');
1606: FND_MSG_PUB.add;
1607: END IF;
1605: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_MASTERSRC_FLAG');
1606: FND_MSG_PUB.add;
1607: END IF;
1608:
1609: x_return_status := FND_API.g_ret_sts_error;
1610: RETURN;
1611: END IF;
1612: END IF;
1613:
1611: END IF;
1612: END IF;
1613:
1614: -- enabled_flag
1615: IF p_listsrctype_rec.enabled_flag <> FND_API.g_miss_char AND p_listsrctype_rec.enabled_flag IS NOT NULL THEN
1616: IF AMS_Utility_PVT.is_Y_or_N (p_listsrctype_rec.enabled_flag) = FND_API.g_false THEN
1617: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1618: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
1619: FND_MSG_PUB.add;
1612: END IF;
1613:
1614: -- enabled_flag
1615: IF p_listsrctype_rec.enabled_flag <> FND_API.g_miss_char AND p_listsrctype_rec.enabled_flag IS NOT NULL THEN
1616: IF AMS_Utility_PVT.is_Y_or_N (p_listsrctype_rec.enabled_flag) = FND_API.g_false THEN
1617: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1618: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
1619: FND_MSG_PUB.add;
1620: END IF;
1618: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
1619: FND_MSG_PUB.add;
1620: END IF;
1621:
1622: x_return_status := FND_API.g_ret_sts_error;
1623: RETURN;
1624: END IF;
1625: END IF;
1626: END Check_ListSrcType_Flag_Items;
1688: l_list_source_field_id NUMBER;
1689: BEGIN
1690: SAVEPOINT generate_source_fields;
1691:
1692: x_return_status := FND_API.g_ret_sts_success;
1693:
1694: l_field_rec.list_source_type_id := p_listsrctype_rec.list_source_type_id;
1695: l_field_rec.de_list_source_type_code := p_listsrctype_rec.source_type_code;
1696: l_field_rec.enabled_flag := 'N'; -- list gen flag
1708: l_field_rec.field_data_type := l_source_rec.data_type;
1709:
1710: AMS_List_Src_Field_PVT.Create_List_Src_Field (
1711: p_api_version_number => 1.0,
1712: p_init_msg_list => FND_API.G_FALSE,
1713: p_commit => FND_API.G_FALSE,
1714: p_validation_level => p_validation_level,
1715: x_return_status => x_return_status,
1716: x_msg_count => x_msg_count,
1709:
1710: AMS_List_Src_Field_PVT.Create_List_Src_Field (
1711: p_api_version_number => 1.0,
1712: p_init_msg_list => FND_API.G_FALSE,
1713: p_commit => FND_API.G_FALSE,
1714: p_validation_level => p_validation_level,
1715: x_return_status => x_return_status,
1716: x_msg_count => x_msg_count,
1717: x_msg_data => x_msg_data,
1717: x_msg_data => x_msg_data,
1718: p_list_src_field_rec => l_field_rec,
1719: x_list_source_field_id => l_list_source_field_id
1720: );
1721: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1722: RAISE FND_API.G_EXC_ERROR;
1723: END IF;
1724: END LOOP;
1725: EXCEPTION
1718: p_list_src_field_rec => l_field_rec,
1719: x_list_source_field_id => l_list_source_field_id
1720: );
1721: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1722: RAISE FND_API.G_EXC_ERROR;
1723: END IF;
1724: END LOOP;
1725: EXCEPTION
1726: WHEN FND_API.G_EXC_ERROR THEN
1722: RAISE FND_API.G_EXC_ERROR;
1723: END IF;
1724: END LOOP;
1725: EXCEPTION
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO generate_source_fields;
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: -- Standard call to get message count and if count=1, get the message
1730: FND_MSG_PUB.Count_And_Get (
1724: END LOOP;
1725: EXCEPTION
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO generate_source_fields;
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: -- Standard call to get message count and if count=1, get the message
1730: FND_MSG_PUB.Count_And_Get (
1731: p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1727: ROLLBACK TO generate_source_fields;
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: -- Standard call to get message count and if count=1, get the message
1730: FND_MSG_PUB.Count_And_Get (
1731: p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => x_msg_data
1734: );
1735: END generate_source_fields;