[Home] [Help]
66: -- End of Comments
67:
68: PROCEDURE Create_Category
69: ( p_api_version IN NUMBER,
70: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
71: p_commit IN VARCHAR2 := FND_API.g_false,
72: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
73: x_return_status OUT NOCOPY VARCHAR2,
74: x_msg_count OUT NOCOPY NUMBER,
67:
68: PROCEDURE Create_Category
69: ( p_api_version IN NUMBER,
70: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
71: p_commit IN VARCHAR2 := FND_API.g_false,
72: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
73: x_return_status OUT NOCOPY VARCHAR2,
74: x_msg_count OUT NOCOPY NUMBER,
75: x_msg_data OUT NOCOPY VARCHAR2,
68: PROCEDURE Create_Category
69: ( p_api_version IN NUMBER,
70: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
71: p_commit IN VARCHAR2 := FND_API.g_false,
72: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
73: x_return_status OUT NOCOPY VARCHAR2,
74: x_msg_count OUT NOCOPY NUMBER,
75: x_msg_data OUT NOCOPY VARCHAR2,
76:
112: AMS_Utility_PVT.debug_message(l_full_name||': start');
113: END IF;
114:
115: -- Standard call to check for call compatibility.
116: IF NOT FND_API.Compatible_API_Call ( l_api_version,
117: p_api_version,
118: l_api_name,
119: G_PACKAGE_NAME)
120: THEN
117: p_api_version,
118: l_api_name,
119: G_PACKAGE_NAME)
120: THEN
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123:
124: -- Initialize message list IF p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list )
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123:
124: -- Initialize message list IF p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list )
126: THEN
127: FND_MSG_PUB.initialize;
128: END IF;
129:
128: END IF;
129:
130:
131: -- Initialize API return status to success
132: x_return_status := FND_API.G_RET_STS_SUCCESS;
133:
134: ----------------------- validate -----------------------
135: IF (AMS_DEBUG_HIGH_ON) THEN
136:
148: ,p_category_rec => l_category_rec
149: );
150:
151: -- If any errors happen abort API.
152: IF l_return_status = FND_API.G_RET_STS_ERROR
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155:
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
150:
151: -- If any errors happen abort API.
152: IF l_return_status = FND_API.G_RET_STS_ERROR
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155:
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
157: THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: IF l_return_status = FND_API.G_RET_STS_ERROR
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155:
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
157: THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160: -------------------------- insert --------------------------
154: RAISE FND_API.G_EXC_ERROR;
155:
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
157: THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END IF;
160: -------------------------- insert --------------------------
161: IF (AMS_DEBUG_HIGH_ON) THEN
162:
193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
194: FND_MESSAGE.set_name('AMS', 'AMS_INVALID_CAT_LEVEL');
195: FND_MSG_PUB.add;
196: END IF;
197: RAISE FND_API.g_exc_error;
198: end if;
199:
200: end if;
201:
300: -- set OUT value
301: x_category_id := l_category_rec.category_id;
302:
303: -- Standard check of p_commit.
304: IF FND_API.To_Boolean ( p_commit )
305: THEN
306: COMMIT WORK;
307: END IF;
308:
309: -- Standard call to get message count AND IF count is 1, get message info.
310: FND_MSG_PUB.Count_AND_Get
311: ( p_count => x_msg_count,
312: p_data => x_msg_data,
313: p_encoded => FND_API.G_FALSE
314: );
315:
316: IF (AMS_DEBUG_HIGH_ON) THEN
317:
322: END IF;
323:
324: EXCEPTION
325:
326: WHEN FND_API.G_EXC_ERROR
327: THEN
328: ROLLBACK TO Create_Category_PVT;
329: x_return_status := FND_API.G_RET_STS_ERROR ;
330:
325:
326: WHEN FND_API.G_EXC_ERROR
327: THEN
328: ROLLBACK TO Create_Category_PVT;
329: x_return_status := FND_API.G_RET_STS_ERROR ;
330:
331: FND_MSG_PUB.Count_AND_Get
332: ( p_count => x_msg_count,
333: p_data => x_msg_data,
330:
331: FND_MSG_PUB.Count_AND_Get
332: ( p_count => x_msg_count,
333: p_data => x_msg_data,
334: p_encoded => FND_API.G_FALSE
335: );
336:
337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
338: THEN
333: p_data => x_msg_data,
334: p_encoded => FND_API.G_FALSE
335: );
336:
337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
338: THEN
339: ROLLBACK TO Create_Category_PVT;
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
341:
336:
337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
338: THEN
339: ROLLBACK TO Create_Category_PVT;
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
341:
342: FND_MSG_PUB.Count_AND_Get
343: ( p_count => x_msg_count,
344: p_data => x_msg_data,
341:
342: FND_MSG_PUB.Count_AND_Get
343: ( p_count => x_msg_count,
344: p_data => x_msg_data,
345: p_encoded => FND_API.G_FALSE
346: );
347:
348: WHEN OTHERS THEN
349:
347:
348: WHEN OTHERS THEN
349:
350: ROLLBACK TO Create_Category_PVT;
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352:
353: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
354: THEN
355: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
357:
358: FND_MSG_PUB.Count_AND_Get
359: ( p_count => x_msg_count,
360: p_data => x_msg_data,
361: p_encoded => FND_API.G_FALSE
362: );
363:
364: END Create_Category;
365:
380: -- End of Comments
381:
382: PROCEDURE Update_Category
383: ( p_api_version IN NUMBER,
384: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
385: p_commit IN VARCHAR2 := FND_API.g_false,
386: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
387: x_return_status OUT NOCOPY VARCHAR2,
388: x_msg_count OUT NOCOPY NUMBER,
381:
382: PROCEDURE Update_Category
383: ( p_api_version IN NUMBER,
384: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
385: p_commit IN VARCHAR2 := FND_API.g_false,
386: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
387: x_return_status OUT NOCOPY VARCHAR2,
388: x_msg_count OUT NOCOPY NUMBER,
389: x_msg_data OUT NOCOPY VARCHAR2,
382: PROCEDURE Update_Category
383: ( p_api_version IN NUMBER,
384: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
385: p_commit IN VARCHAR2 := FND_API.g_false,
386: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
387: x_return_status OUT NOCOPY VARCHAR2,
388: x_msg_count OUT NOCOPY NUMBER,
389: x_msg_data OUT NOCOPY VARCHAR2,
390:
412: SAVEPOINT Update_Category_PVT;
413: --IF (AMS_DEBUG_HIGH_ON) THENAMS_Utility_PVT.debug_message(l_full_name||': start');END IF;
414:
415: -- Standard call to check for call compatibility.
416: IF NOT FND_API.Compatible_API_Call ( l_api_version,
417: p_api_version,
418: l_api_name,
419: G_PACKAGE_NAME)
420: THEN
417: p_api_version,
418: l_api_name,
419: G_PACKAGE_NAME)
420: THEN
421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
422: END IF;
423:
424: -- Initialize message list IF p_init_msg_list is set to TRUE.
425: IF FND_API.to_Boolean( p_init_msg_list )
421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
422: END IF;
423:
424: -- Initialize message list IF p_init_msg_list is set to TRUE.
425: IF FND_API.to_Boolean( p_init_msg_list )
426: THEN
427: FND_MSG_PUB.initialize;
428: END IF;
429:
427: FND_MSG_PUB.initialize;
428: END IF;
429:
430: -- Initialize API return status to success
431: x_return_status := FND_API.G_RET_STS_SUCCESS;
432:
433: ----------------------- validate ----------------------
434: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_Utility_PVT.debug_message(l_full_name ||': validate'); END IF;
435:
446: ,p_category_rec => l_category_rec
447: );
448:
449: -- If any errors happen abort API.
450: IF l_return_status = FND_API.G_RET_STS_ERROR
451: THEN
452: RAISE FND_API.G_EXC_ERROR;
453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
454:
448:
449: -- If any errors happen abort API.
450: IF l_return_status = FND_API.G_RET_STS_ERROR
451: THEN
452: RAISE FND_API.G_EXC_ERROR;
453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
454:
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
449: -- If any errors happen abort API.
450: IF l_return_status = FND_API.G_RET_STS_ERROR
451: THEN
452: RAISE FND_API.G_EXC_ERROR;
453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
454:
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
457: END IF;
452: RAISE FND_API.G_EXC_ERROR;
453: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
454:
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
457: END IF;
458:
459:
460: ----------- For DELV and METR , we can only have one level of hierarchy --------
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('AMS', 'AMS_INVALID_CAT_LEVEL');
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
476: end if;
477:
478: end if;
479:
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
503: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
504: FND_MSG_PUB.add;
505: END IF;
506: RAISE FND_API.g_exc_error;
507: END IF;
508:
509: UPDATE AMS_CATEGORIES_TL
510: SET
520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
521: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
522: FND_MSG_PUB.add;
523: END IF;
524: RAISE FND_API.g_exc_error;
525: END IF;
526:
527: ELSE -- l_category_rec.l_category_id >= 10000 or non-seeded with seq < 10000
528:
562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
563: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
564: FND_MSG_PUB.add;
565: END IF;
566: RAISE FND_API.g_exc_error;
567: END IF;
568:
569: UPDATE AMS_CATEGORIES_TL
570: SET
582: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
583: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
584: FND_MSG_PUB.add;
585: END IF;
586: RAISE FND_API.g_exc_error;
587: END IF;
588:
589: END IF;
590:
591: -------------------- finish --------------------------
592:
593: --IF (AMS_DEBUG_HIGH_ON) THENAMS_Utility_PVT.debug_message(l_full_name ||': After update');END IF;
594: -- Standard check of p_commit.
595: IF FND_API.To_Boolean ( p_commit )
596: THEN
597: COMMIT WORK;
598: END IF;
599:
600: -- Standard call to get message count AND IF count is 1, get message info.
601: FND_MSG_PUB.Count_AND_Get
602: ( p_count => x_msg_count,
603: p_data => x_msg_data,
604: p_encoded => FND_API.G_FALSE
605: );
606: IF (AMS_DEBUG_HIGH_ON) THEN
607:
608: AMS_Utility_PVT.debug_message(l_full_name ||': end');
609: END IF;
610:
611: EXCEPTION
612:
613: WHEN FND_API.G_EXC_ERROR
614: THEN
615: ROLLBACK TO Update_Category_PVT;
616: x_return_status := FND_API.G_RET_STS_ERROR ;
617:
612:
613: WHEN FND_API.G_EXC_ERROR
614: THEN
615: ROLLBACK TO Update_Category_PVT;
616: x_return_status := FND_API.G_RET_STS_ERROR ;
617:
618: FND_MSG_PUB.Count_AND_Get
619: ( p_count => x_msg_count,
620: p_data => x_msg_data,
617:
618: FND_MSG_PUB.Count_AND_Get
619: ( p_count => x_msg_count,
620: p_data => x_msg_data,
621: p_encoded => FND_API.G_FALSE
622: );
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
625: THEN
620: p_data => x_msg_data,
621: p_encoded => FND_API.G_FALSE
622: );
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
625: THEN
626: ROLLBACK TO Update_Category_PVT;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
628:
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
625: THEN
626: ROLLBACK TO Update_Category_PVT;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
628:
629: FND_MSG_PUB.Count_AND_Get
630: ( p_count => x_msg_count,
631: p_data => x_msg_data,
628:
629: FND_MSG_PUB.Count_AND_Get
630: ( p_count => x_msg_count,
631: p_data => x_msg_data,
632: p_encoded => FND_API.G_FALSE
633: );
634:
635: /*
636: WHEN OTHERS THEN
635: /*
636: WHEN OTHERS THEN
637:
638: ROLLBACK TO Update_Category_PVT;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
640:
641: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
642: THEN
643: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
645:
646: FND_MSG_PUB.Count_AND_Get
647: ( p_count => x_msg_count,
648: p_data => x_msg_data,
649: p_encoded => FND_API.G_FALSE
650: );
651: */
652:
653: END Update_Category;
668: -- End of Comments
669:
670: PROCEDURE Delete_Category
671: ( p_api_version IN NUMBER,
672: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
673: p_commit IN VARCHAR2 := FND_API.g_false,
674: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
675: x_return_status OUT NOCOPY VARCHAR2,
676: x_msg_count OUT NOCOPY NUMBER,
669:
670: PROCEDURE Delete_Category
671: ( p_api_version IN NUMBER,
672: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
673: p_commit IN VARCHAR2 := FND_API.g_false,
674: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
675: x_return_status OUT NOCOPY VARCHAR2,
676: x_msg_count OUT NOCOPY NUMBER,
677: x_msg_data OUT NOCOPY VARCHAR2,
670: PROCEDURE Delete_Category
671: ( p_api_version IN NUMBER,
672: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
673: p_commit IN VARCHAR2 := FND_API.g_false,
674: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
675: x_return_status OUT NOCOPY VARCHAR2,
676: x_msg_count OUT NOCOPY NUMBER,
677: x_msg_data OUT NOCOPY VARCHAR2,
678:
698: AMS_Utility_PVT.debug_message(l_full_name||': start');
699: END IF;
700:
701: -- Standard call to check for call compatibility.
702: IF NOT FND_API.Compatible_API_Call ( l_api_version,
703: p_api_version,
704: l_api_name,
705: G_PACKAGE_NAME)
706: THEN
703: p_api_version,
704: l_api_name,
705: G_PACKAGE_NAME)
706: THEN
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: -- Initialize message list IF p_init_msg_list is set to TRUE.
711: IF FND_API.to_Boolean( p_init_msg_list )
707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
708: END IF;
709:
710: -- Initialize message list IF p_init_msg_list is set to TRUE.
711: IF FND_API.to_Boolean( p_init_msg_list )
712: THEN
713: FND_MSG_PUB.initialize;
714: END IF;
715:
713: FND_MSG_PUB.initialize;
714: END IF;
715:
716: -- Initialize API return status to success
717: x_return_status := FND_API.G_RET_STS_SUCCESS;
718:
719: ------------------------ delete ------------------------
720: IF (AMS_DEBUG_HIGH_ON) THEN
721:
731: x_return_status => l_return_status
732: );
733:
734: -- If any errors happen abort API.
735: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
736: THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
739: THEN
733:
734: -- If any errors happen abort API.
735: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
736: THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
739: THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
734: -- If any errors happen abort API.
735: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
736: THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
739: THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742:
736: THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
739: THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742:
743: -- seeded category if category_id < 10000
744: -- user cannot modify or delete seeded category
747: THEN
748: FND_MESSAGE.set_name('AMS', 'AMS_CAT_CANNOT_MOD_SEED');
749: FND_MSG_PUB.add;
750: END IF;
751: RAISE FND_API.g_exc_error;
752: END IF;
753:
754: delete from AMS_CATEGORIES_B
755: where category_id = l_category_id
760: THEN
761: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
762: FND_MSG_PUB.add;
763: END IF;
764: RAISE FND_API.g_exc_error;
765: END IF;
766:
767:
768: delete from AMS_CATEGORIES_TL
774: THEN
775: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
776: FND_MSG_PUB.add;
777: END IF;
778: RAISE FND_API.g_exc_error;
779: END IF;
780:
781: -- Call Private API to cascade delete any children data if necessary
782:
781: -- Call Private API to cascade delete any children data if necessary
782:
783: -------------------- finish --------------------------
784: -- Standard check of p_commit.
785: IF FND_API.To_Boolean ( p_commit )
786: THEN
787: COMMIT WORK;
788: END IF;
789:
790: -- Standard call to get message count AND IF count is 1, get message info.
791: FND_MSG_PUB.Count_AND_Get
792: ( p_count => x_msg_count,
793: p_data => x_msg_data,
794: p_encoded => FND_API.G_FALSE
795: );
796: IF (AMS_DEBUG_HIGH_ON) THEN
797:
798: AMS_Utility_PVT.debug_message(l_full_name ||': end');
799: END IF;
800:
801: EXCEPTION
802:
803: WHEN FND_API.G_EXC_ERROR
804: THEN
805: ROLLBACK TO Delete_Category_PVT;
806: x_return_status := FND_API.G_RET_STS_ERROR ;
807:
802:
803: WHEN FND_API.G_EXC_ERROR
804: THEN
805: ROLLBACK TO Delete_Category_PVT;
806: x_return_status := FND_API.G_RET_STS_ERROR ;
807:
808: FND_MSG_PUB.Count_AND_Get
809: ( p_count => x_msg_count,
810: p_data => x_msg_data,
807:
808: FND_MSG_PUB.Count_AND_Get
809: ( p_count => x_msg_count,
810: p_data => x_msg_data,
811: p_encoded => FND_API.G_FALSE
812: );
813:
814:
815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
811: p_encoded => FND_API.G_FALSE
812: );
813:
814:
815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
816: THEN
817: ROLLBACK TO Delete_Category_PVT;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
819:
814:
815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
816: THEN
817: ROLLBACK TO Delete_Category_PVT;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
819:
820: FND_MSG_PUB.Count_AND_Get
821: ( p_count => x_msg_count,
822: p_data => x_msg_data,
819:
820: FND_MSG_PUB.Count_AND_Get
821: ( p_count => x_msg_count,
822: p_data => x_msg_data,
823: p_encoded => FND_API.G_FALSE
824: );
825:
826: WHEN OTHERS THEN
827:
825:
826: WHEN OTHERS THEN
827:
828: ROLLBACK TO Delete_Category_PVT;
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830:
831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
832: THEN
833: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
835:
836: FND_MSG_PUB.Count_AND_Get
837: ( p_count => x_msg_count,
838: p_data => x_msg_data,
839: p_encoded => FND_API.G_FALSE
840: );
841:
842: END Delete_Category;
843:
857: -- End of Comments
858:
859: PROCEDURE Lock_Category
860: ( p_api_version IN NUMBER,
861: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
862: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
863: x_return_status OUT NOCOPY VARCHAR2,
864: x_msg_count OUT NOCOPY NUMBER,
865: x_msg_data OUT NOCOPY VARCHAR2,
858:
859: PROCEDURE Lock_Category
860: ( p_api_version IN NUMBER,
861: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
862: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
863: x_return_status OUT NOCOPY VARCHAR2,
864: x_msg_count OUT NOCOPY NUMBER,
865: x_msg_data OUT NOCOPY VARCHAR2,
866:
899:
900: AMS_Utility_PVT.debug_message(l_full_name||': start');
901: END IF;
902: -- Standard call to check for call compatibility.
903: IF NOT FND_API.Compatible_API_Call ( l_api_version,
904: p_api_version,
905: l_api_name,
906: G_PACKAGE_NAME)
907: THEN
904: p_api_version,
905: l_api_name,
906: G_PACKAGE_NAME)
907: THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: -- Initialize message list if p_init_msg_list is set to TRUE.
912: IF FND_API.to_Boolean( p_init_msg_list ) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: -- Initialize message list if p_init_msg_list is set to TRUE.
912: IF FND_API.to_Boolean( p_init_msg_list ) THEN
913: FND_MSG_PUB.initialize;
914: END IF;
915: -- Initialize API return status to success
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
912: IF FND_API.to_Boolean( p_init_msg_list ) THEN
913: FND_MSG_PUB.initialize;
914: END IF;
915: -- Initialize API return status to success
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
917:
918: ------------------------ lock -------------------------
919: IF (AMS_DEBUG_HIGH_ON) THEN
920:
932: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
933: FND_MSG_PUB.add;
934: END IF;
935:
936: RAISE FND_API.G_EXC_ERROR;
937: END IF;
938:
939: CLOSE C_ams_categories_b;
940:
944: -- Standard call to get message count AND IF count is 1, get message info.
945: FND_MSG_PUB.Count_AND_Get
946: ( p_count => x_msg_count,
947: p_data => x_msg_data,
948: p_encoded => FND_API.G_FALSE
949: );
950: IF (AMS_DEBUG_HIGH_ON) THEN
951:
952: AMS_Utility_PVT.debug_message(l_full_name ||': end');
953: END IF;
954:
955: EXCEPTION
956:
957: WHEN FND_API.G_EXC_ERROR
958: THEN
959: x_return_status := FND_API.G_RET_STS_ERROR ;
960:
961: FND_MSG_PUB.Count_AND_Get
955: EXCEPTION
956:
957: WHEN FND_API.G_EXC_ERROR
958: THEN
959: x_return_status := FND_API.G_RET_STS_ERROR ;
960:
961: FND_MSG_PUB.Count_AND_Get
962: ( p_count => x_msg_count,
963: p_data => x_msg_data,
960:
961: FND_MSG_PUB.Count_AND_Get
962: ( p_count => x_msg_count,
963: p_data => x_msg_data,
964: p_encoded => FND_API.G_FALSE
965: );
966:
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
968: THEN
963: p_data => x_msg_data,
964: p_encoded => FND_API.G_FALSE
965: );
966:
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
968: THEN
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970:
971: FND_MSG_PUB.Count_AND_Get
965: );
966:
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
968: THEN
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970:
971: FND_MSG_PUB.Count_AND_Get
972: ( p_count => x_msg_count,
973: p_data => x_msg_data,
970:
971: FND_MSG_PUB.Count_AND_Get
972: ( p_count => x_msg_count,
973: p_data => x_msg_data,
974: p_encoded => FND_API.G_FALSE
975: );
976:
977: WHEN AMS_Utility_PVT.RESOURCE_LOCKED
978: THEN
975: );
976:
977: WHEN AMS_Utility_PVT.RESOURCE_LOCKED
978: THEN
979: x_return_status := FND_API.G_RET_STS_ERROR ;
980:
981: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
982: THEN -- MMSG
983: FND_MESSAGE.SET_NAME('AMS','AMS_API_RESOURCE_LOCKED');
986:
987: FND_MSG_PUB.Count_AND_Get
988: ( p_count => x_msg_count,
989: p_data => x_msg_data,
990: p_encoded => FND_API.G_FALSE
991: );
992:
993: WHEN OTHERS THEN
994:
991: );
992:
993: WHEN OTHERS THEN
994:
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
996:
997: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
998: THEN
999: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
1001:
1002: FND_MSG_PUB.Count_AND_Get
1003: ( p_count => x_msg_count,
1004: p_data => x_msg_data,
1005: p_encoded => FND_API.G_FALSE
1006: );
1007:
1008: END Lock_Category;
1009:
1023: -- End of Comments
1024:
1025: PROCEDURE Validate_Category
1026: ( p_api_version IN NUMBER,
1027: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1028: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1029: x_return_status OUT NOCOPY VARCHAR2,
1030: x_msg_count OUT NOCOPY NUMBER,
1031: x_msg_data OUT NOCOPY VARCHAR2,
1024:
1025: PROCEDURE Validate_Category
1026: ( p_api_version IN NUMBER,
1027: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1028: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1029: x_return_status OUT NOCOPY VARCHAR2,
1030: x_msg_count OUT NOCOPY NUMBER,
1031: x_msg_data OUT NOCOPY VARCHAR2,
1032:
1049: AMS_Utility_PVT.debug_message(l_full_name||': start');
1050: END IF;
1051:
1052: -- Standard call to check for call compatibility.
1053: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1054: p_api_version,
1055: l_api_name,
1056: G_PACKAGE_NAME)
1057: THEN
1054: p_api_version,
1055: l_api_name,
1056: G_PACKAGE_NAME)
1057: THEN
1058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1059: END IF;
1060:
1061: -- Initialize message list if p_init_msg_list is set to TRUE.
1062: IF FND_API.to_Boolean( p_init_msg_list )
1058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1059: END IF;
1060:
1061: -- Initialize message list if p_init_msg_list is set to TRUE.
1062: IF FND_API.to_Boolean( p_init_msg_list )
1063: THEN
1064: FND_MSG_PUB.initialize;
1065: END IF;
1066:
1064: FND_MSG_PUB.initialize;
1065: END IF;
1066:
1067: -- Initialize API return status to success
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069:
1070: -- step 1
1071: -- Validate all required parameters -- combined with step 2
1072: -- Note: We need to pass all columns when you call Update_Category API.
1084: x_return_status => l_return_status
1085: );
1086:
1087: -- If any errors happen abort API.
1088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1089: THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1086:
1087: -- If any errors happen abort API.
1088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1089: THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1093: THEN
1094: RAISE FND_API.G_EXC_ERROR;
1088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1089: THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1093: THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1093: THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096:
1097: Validate_Cty_Items
1098: ( p_category_rec => l_category_rec,
1099: x_return_status => l_return_status
1100: );
1101:
1102: -- If any errors happen abort API.
1103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1104: THEN
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106:
1107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1101:
1102: -- If any errors happen abort API.
1103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1104: THEN
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106:
1107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1108: THEN
1109: RAISE FND_API.G_EXC_ERROR;
1103: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1104: THEN
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106:
1107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1108: THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106:
1107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1108: THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1112: Validate_Category_Cross_Record
1113: ( p_category_rec => l_category_rec
1114: ,x_return_status => l_return_status
1115: );
1116:
1117: -- If any errors happen abort API.
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1115: );
1116:
1117: -- If any errors happen abort API.
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1116:
1117: -- If any errors happen abort API.
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1124: IF (AMS_DEBUG_HIGH_ON) THEN
1117: -- If any errors happen abort API.
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1120: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123:
1124: IF (AMS_DEBUG_HIGH_ON) THEN
1125:
1137: THEN
1138:
1139: Validate_Cty_Record
1140: ( p_api_version => 1.0,
1141: p_init_msg_list => FND_API.G_FALSE,
1142: x_return_status => l_return_status,
1143: x_msg_count => x_msg_count,
1144: x_msg_data => x_msg_data,
1145:
1146: p_category_rec => l_category_rec
1147: );
1148:
1149: -- If any errors happen abort API.
1150: IF l_return_status = FND_API.G_RET_STS_ERROR
1151: THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153:
1154: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1148:
1149: -- If any errors happen abort API.
1150: IF l_return_status = FND_API.G_RET_STS_ERROR
1151: THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153:
1154: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1155: THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: IF l_return_status = FND_API.G_RET_STS_ERROR
1151: THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153:
1154: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1155: THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: END IF;
1158:
1152: RAISE FND_API.G_EXC_ERROR;
1153:
1154: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1155: THEN
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: END IF;
1158:
1159: -- Step 4.
1160: -- Perform cross record validation. Cross Record level validation.
1164: ,x_return_status => l_return_status
1165: );
1166:
1167: -- If any errors happen abort API.
1168: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1165: );
1166:
1167: -- If any errors happen abort API.
1168: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173:
1166:
1167: -- If any errors happen abort API.
1168: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173:
1174:
1167: -- If any errors happen abort API.
1168: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1169: RAISE FND_API.G_EXC_ERROR;
1170: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173:
1174:
1175: -- Step 5.
1180: ,x_return_status => l_return_status
1181: );
1182:
1183: -- If any errors happen abort API.
1184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1181: );
1182:
1183: -- If any errors happen abort API.
1184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189:
1182:
1183: -- If any errors happen abort API.
1184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189:
1190: --
1183: -- If any errors happen abort API.
1184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189:
1190: --
1191: END IF;
1192: -- Standard call to get message count AND IF count is 1, get message info.
1193: FND_MSG_PUB.Count_AND_Get
1194: ( p_count => x_msg_count,
1195: p_data => x_msg_data,
1196: p_encoded => FND_API.G_FALSE
1197: );
1198:
1199: EXCEPTION
1200:
1197: );
1198:
1199: EXCEPTION
1200:
1201: WHEN FND_API.G_EXC_ERROR
1202: THEN
1203: x_return_status := FND_API.G_RET_STS_ERROR ;
1204:
1205: FND_MSG_PUB.Count_AND_Get
1199: EXCEPTION
1200:
1201: WHEN FND_API.G_EXC_ERROR
1202: THEN
1203: x_return_status := FND_API.G_RET_STS_ERROR ;
1204:
1205: FND_MSG_PUB.Count_AND_Get
1206: ( p_count => x_msg_count,
1207: p_data => x_msg_data,
1204:
1205: FND_MSG_PUB.Count_AND_Get
1206: ( p_count => x_msg_count,
1207: p_data => x_msg_data,
1208: p_encoded => FND_API.G_FALSE
1209: );
1210:
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1212: THEN
1207: p_data => x_msg_data,
1208: p_encoded => FND_API.G_FALSE
1209: );
1210:
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1212: THEN
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1214:
1215: FND_MSG_PUB.Count_AND_Get
1209: );
1210:
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1212: THEN
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1214:
1215: FND_MSG_PUB.Count_AND_Get
1216: ( p_count => x_msg_count,
1217: p_data => x_msg_data,
1214:
1215: FND_MSG_PUB.Count_AND_Get
1216: ( p_count => x_msg_count,
1217: p_data => x_msg_data,
1218: p_encoded => FND_API.G_FALSE
1219: );
1220:
1221: WHEN OTHERS THEN
1222:
1219: );
1220:
1221: WHEN OTHERS THEN
1222:
1223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1224:
1225: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1226: THEN
1227: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
1229:
1230: FND_MSG_PUB.Count_AND_Get
1231: ( p_count => x_msg_count,
1232: p_data => x_msg_data,
1233: p_encoded => FND_API.G_FALSE
1234: );
1235:
1236: END Validate_Category;
1237:
1261: l_additional_where_clause VARCHAR2(4000) := ' enabled_flag = ''Y''';
1262:
1263: BEGIN
1264: -- Initialize API/Procedure return status to success
1265: x_return_status := FND_API.G_RET_STS_SUCCESS;
1266:
1267: -- Check FK parameter: PARENT_CATEGORY_ID
1268: -- Do not validate FK if NULL
1269:
1266:
1267: -- Check FK parameter: PARENT_CATEGORY_ID
1268: -- Do not validate FK if NULL
1269:
1270: IF p_category_rec.PARENT_CATEGORY_ID <> FND_API.g_miss_num AND
1271: p_category_rec.PARENT_CATEGORY_ID is NOT NULL THEN
1272:
1273: l_table_name := 'AMS_CATEGORIES_B';
1274: l_pk_name := 'CATEGORY_ID';
1278: p_table_name => l_table_name
1279: ,p_pk_name => l_pk_name
1280: ,p_pk_value => l_pk_value
1281: ,p_additional_where_clause => l_additional_where_clause -- Bug 3847393 in 11.5.10.1R
1282: ) = FND_API.G_FALSE
1283: THEN
1284: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1285: THEN
1286: FND_MESSAGE.set_name('AMS', 'AMS_CAT_BAD_PARENT_CAT_ID');
1285: THEN
1286: FND_MESSAGE.set_name('AMS', 'AMS_CAT_BAD_PARENT_CAT_ID');
1287: FND_MSG_PUB.add;
1288: END IF;
1289: x_return_status := FND_API.G_RET_STS_ERROR;
1290: -- If any errors happen abort API/Procedure.
1291: RETURN;
1292:
1293: END IF; -- check_fk_exists
1296:
1297: AMS_UTILITY_PVT.debug_message('the return status after primary check :'||x_return_status);
1298: END IF;
1299:
1300: IF p_category_rec.enabled_flag <> FND_API.g_miss_char
1301: AND p_category_rec.enabled_flag IS NOT NULL
1302: THEN
1303: IF AMS_Utility_PVT.is_Y_or_N(p_category_rec.enabled_flag) = FND_API.g_false
1304: THEN
1299:
1300: IF p_category_rec.enabled_flag <> FND_API.g_miss_char
1301: AND p_category_rec.enabled_flag IS NOT NULL
1302: THEN
1303: IF AMS_Utility_PVT.is_Y_or_N(p_category_rec.enabled_flag) = FND_API.g_false
1304: THEN
1305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1306: THEN
1307: FND_MESSAGE.set_name('AMS', 'AMS_CAT_BAD_ENABLED_FLAG');
1306: THEN
1307: FND_MESSAGE.set_name('AMS', 'AMS_CAT_BAD_ENABLED_FLAG');
1308: FND_MSG_PUB.add;
1309: END IF;
1310: x_return_status := FND_API.g_ret_sts_error;
1311: RETURN;
1312: END IF;
1313: END IF;
1314: IF (AMS_DEBUG_HIGH_ON) THEN
1334: -- End of Comments
1335:
1336: PROCEDURE Validate_Cty_Record
1337: ( p_api_version IN NUMBER,
1338: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1339: x_return_status OUT NOCOPY VARCHAR2,
1340: x_msg_count OUT NOCOPY NUMBER,
1341: x_msg_data OUT NOCOPY VARCHAR2,
1342:
1370:
1371: BEGIN
1372:
1373: -- Standard call to check for call compatibility.
1374: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1375: p_api_version,
1376: l_api_name,
1377: G_PACKAGE_NAME)
1378: THEN
1375: p_api_version,
1376: l_api_name,
1377: G_PACKAGE_NAME)
1378: THEN
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381:
1382: -- Initialize message list if p_init_msg_list is set to TRUE.
1383: IF FND_API.to_Boolean( p_init_msg_list )
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381:
1382: -- Initialize message list if p_init_msg_list is set to TRUE.
1383: IF FND_API.to_Boolean( p_init_msg_list )
1384: THEN
1385: FND_MSG_PUB.initialize;
1386: END IF;
1387: -- Initialize API return status to success
1384: THEN
1385: FND_MSG_PUB.initialize;
1386: END IF;
1387: -- Initialize API return status to success
1388: x_return_status := FND_API.G_RET_STS_SUCCESS;
1389:
1390:
1391: /* Cannot disable Category if it is being used anywhere */
1392: /*
1391: /* Cannot disable Category if it is being used anywhere */
1392: /*
1393: -- Its commented out because this is not the intended functionality.
1394:
1395: IF ( p_category_rec.PARENT_CATEGORY_ID <> FND_API.g_miss_num AND
1396: p_category_rec.PARENT_CATEGORY_ID is NOT NULL AND
1397: p_category_rec.ENABLED_FLAG = 'N' ) THEN
1398:
1399: IF
1400: (AMS_Utility_PVT.Check_FK_Exists
1401: ( p_table_name => 'AMS_DELIVERABLES_ALL_B'
1402: ,p_pk_name => 'CATEGORY_TYPE_ID'
1403: ,p_pk_value => p_category_rec.PARENT_CATEGORY_ID
1404: ) = FND_API.G_TRUE )
1405:
1406: OR
1407:
1408: (AMS_Utility_PVT.Check_FK_Exists
1408: (AMS_Utility_PVT.Check_FK_Exists
1409: ( p_table_name => 'AMS_ACT_CATEGORIES'
1410: ,p_pk_name => 'CATEGORY_ID'
1411: ,p_pk_value => p_category_rec.PARENT_CATEGORY_ID
1412: ) = FND_API.G_TRUE )
1413:
1414: OR
1415:
1416: (AMS_Utility_PVT.Check_FK_Exists
1416: (AMS_Utility_PVT.Check_FK_Exists
1417: ( p_table_name => 'AMS_METRICS_ALL_B'
1418: ,p_pk_name => 'METRIC_CATEGORY'
1419: ,p_pk_value => p_category_rec.PARENT_CATEGORY_ID
1420: ) = FND_API.G_TRUE )
1421:
1422: OR
1423:
1424: (AMS_Utility_PVT.Check_FK_Exists
1424: (AMS_Utility_PVT.Check_FK_Exists
1425: ( p_table_name => 'OZF_FUNDS_ALL_B'
1426: ,p_pk_name => 'CATEGORY_ID'
1427: ,p_pk_value => p_category_rec.PARENT_CATEGORY_ID
1428: ) = FND_API.G_TRUE )
1429:
1430:
1431: THEN
1432: -- FK checking
1434: THEN -- MMSG
1435: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DISABLE');
1436: FND_MSG_PUB.Add;
1437: END IF;
1438: x_return_status := FND_API.g_ret_sts_error;
1439: RETURN;
1440: END IF;
1441:
1442:
1442:
1443: END IF;
1444: */
1445: /* Cannot disable a category if it has the enabled sub -category */
1446: IF ( p_category_rec.CATEGORY_ID <> FND_API.g_miss_num
1447: AND p_category_rec.CATEGORY_ID is NOT NULL
1448: AND p_category_rec.ENABLED_FLAG = 'N' )
1449: THEN
1450:
1460: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DISABLE_PARENT');
1461: FND_MSG_PUB.Add;
1462: END IF;
1463:
1464: x_return_status := FND_API.g_ret_sts_error;
1465: RETURN;
1466: END IF;
1467: END IF;
1468:
1475: THEN
1476: FND_MESSAGE.Set_Name('AMS', 'AMS_INV_PARENT_CR_FOR');
1477: FND_MSG_PUB.Add;
1478:
1479: x_return_status := FND_API.g_ret_sts_error;
1480: RETURN;
1481: END IF;
1482:
1483: /* bug fix for #1880798 */
1480: RETURN;
1481: END IF;
1482:
1483: /* bug fix for #1880798 */
1484: -- x_return_status := FND_API.get_ret_sts_error;
1485: -- RETURN;
1486:
1487: END IF;
1488:
1489: -- Standard call to get message count AND IF count is 1, get message info.
1490: FND_MSG_PUB.Count_AND_Get
1491: ( p_count => x_msg_count,
1492: p_data => x_msg_data,
1493: p_encoded => FND_API.G_FALSE
1494: );
1495:
1496: EXCEPTION
1497:
1494: );
1495:
1496: EXCEPTION
1497:
1498: WHEN FND_API.G_EXC_ERROR
1499: THEN
1500: x_return_status := FND_API.G_RET_STS_ERROR ;
1501:
1502: FND_MSG_PUB.Count_AND_Get
1496: EXCEPTION
1497:
1498: WHEN FND_API.G_EXC_ERROR
1499: THEN
1500: x_return_status := FND_API.G_RET_STS_ERROR ;
1501:
1502: FND_MSG_PUB.Count_AND_Get
1503: ( p_count => x_msg_count,
1504: p_data => x_msg_data,
1501:
1502: FND_MSG_PUB.Count_AND_Get
1503: ( p_count => x_msg_count,
1504: p_data => x_msg_data,
1505: p_encoded => FND_API.G_FALSE
1506: );
1507:
1508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1509: THEN
1504: p_data => x_msg_data,
1505: p_encoded => FND_API.G_FALSE
1506: );
1507:
1508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1509: THEN
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1511: FND_MSG_PUB.Count_AND_Get
1512: ( p_count => x_msg_count,
1506: );
1507:
1508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1509: THEN
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1511: FND_MSG_PUB.Count_AND_Get
1512: ( p_count => x_msg_count,
1513: p_data => x_msg_data,
1514: p_encoded => FND_API.G_FALSE
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1511: FND_MSG_PUB.Count_AND_Get
1512: ( p_count => x_msg_count,
1513: p_data => x_msg_data,
1514: p_encoded => FND_API.G_FALSE
1515: );
1516:
1517: WHEN OTHERS THEN
1518:
1515: );
1516:
1517: WHEN OTHERS THEN
1518:
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1520:
1521: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1522: THEN
1523: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
1525:
1526: FND_MSG_PUB.Count_AND_Get
1527: ( p_count => x_msg_count,
1528: p_data => x_msg_data,
1529: p_encoded => FND_API.G_FALSE
1530: );
1531:
1532: END Validate_Cty_Record;
1533:
1577:
1578:
1579: BEGIN
1580: -- Initialize API/Procedure return status to success
1581: x_return_status := FND_API.G_RET_STS_SUCCESS;
1582: l_item_name := 'CATEGORY_NAME, LANGUAGE';
1583:
1584:
1585: -- Check unique keys: CATEGORY_NAME, LANGUAGE
1599: || ''''
1600: || 'LANG'
1601: || ''''
1602: || ')'
1603: ) = FND_API.G_FALSE then
1604: */
1605: open c_ctg_name_crt(p_category_rec.category_name, p_category_rec.category_id, p_category_rec.arc_category_created_for);
1606: fetch c_ctg_name_crt into l_dummy;
1607: close c_ctg_name_crt;
1612: THEN -- MMSG
1613: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_DUPLICATE_NAME');
1614: FND_MSG_PUB.Add;
1615: END IF;
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617: -- If any errors happen abort API/Procedure.
1618: return;
1619: END IF;
1620:
1633: || ''''
1634: || ')'
1635: || ' and category_id <>'
1636: || p_category_rec.category_id
1637: ) = FND_API.G_FALSE then
1638: */
1639: open c_ctg_name_updt(p_category_rec.category_name, p_category_rec.category_id,p_category_rec.arc_category_created_for);
1640: fetch c_ctg_name_updt into l_dummy;
1641: close c_ctg_name_updt;
1646: THEN -- MMSG
1647: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_DUPLICATE_NAME');
1648: FND_MSG_PUB.Add;
1649: END IF;
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: -- If any errors happen abort API/Procedure.
1652: return;
1653: END IF;
1654:
1678: ) IS
1679:
1680: BEGIN
1681: -- Initialize API/Procedure return status to success
1682: x_return_status := FND_API.G_RET_STS_SUCCESS;
1683:
1684: END Validate_Category_Cross_Entity;
1685:
1686:
1712:
1713: BEGIN
1714:
1715: -- Initialize API/Procedure return status to success
1716: x_return_status := FND_API.G_RET_STS_SUCCESS;
1717: l_pk_value := l_category_id;
1718:
1719: IF AMS_Utility_PVT.Check_FK_Exists
1720: ( p_table_name => 'AMS_CATEGORIES_B'
1719: IF AMS_Utility_PVT.Check_FK_Exists
1720: ( p_table_name => 'AMS_CATEGORIES_B'
1721: ,p_pk_name => 'PARENT_CATEGORY_ID'
1722: ,p_pk_value => l_pk_value
1723: ) = FND_API.G_TRUE
1724: THEN
1725: -- FK checking
1726: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1727: THEN -- MMSG
1727: THEN -- MMSG
1728: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_PARENT');
1729: FND_MSG_PUB.Add;
1730: END IF;
1731: x_return_status := FND_API.g_ret_sts_error;
1732: RETURN;
1733: END IF;
1734:
1735: IF AMS_Utility_PVT.Check_FK_Exists
1735: IF AMS_Utility_PVT.Check_FK_Exists
1736: ( p_table_name => 'AMS_ACT_CATEGORIES'
1737: ,p_pk_name => 'CATEGORY_ID'
1738: ,p_pk_value => l_pk_value
1739: ) = FND_API.G_TRUE
1740: THEN
1741: -- FK checking
1742: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1743: THEN -- MMSG
1743: THEN -- MMSG
1744: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_ACT');
1745: FND_MSG_PUB.Add;
1746: END IF;
1747: x_return_status := FND_API.g_ret_sts_error;
1748: RETURN;
1749: END IF;
1750:
1751:
1752: IF AMS_Utility_PVT.Check_FK_Exists
1753: ( p_table_name => 'AMS_METRICS_ALL_B'
1754: ,p_pk_name => 'METRIC_CATEGORY'
1755: ,p_pk_value => l_pk_value
1756: ) = FND_API.G_TRUE
1757: THEN
1758: -- FK checking
1759: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1760: THEN -- MMSG
1760: THEN -- MMSG
1761: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_METRICS');
1762: FND_MSG_PUB.Add;
1763: END IF;
1764: x_return_status := FND_API.g_ret_sts_error;
1765: RETURN;
1766: END IF;
1767:
1768: IF AMS_Utility_PVT.Check_FK_Exists
1768: IF AMS_Utility_PVT.Check_FK_Exists
1769: ( p_table_name => 'AMS_METRICS_ALL_B'
1770: ,p_pk_name => 'METRIC_SUB_CATEGORY'
1771: ,p_pk_value => l_pk_value
1772: ) = FND_API.G_TRUE
1773: THEN
1774: -- FK checking
1775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1776: THEN -- MMSG
1776: THEN -- MMSG
1777: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_METRICS');
1778: FND_MSG_PUB.Add;
1779: END IF;
1780: x_return_status := FND_API.g_ret_sts_error;
1781: RETURN;
1782: END IF;
1783: /********
1784: --commented by musman for bug fix # 1966294
1787: IF AMS_Utility_PVT.Check_FK_Exists
1788: ( p_table_name => 'AMS_DELIV_OFFERINGS_B'
1789: ,p_pk_name => 'CATEGORY_TYPE_ID'
1790: ,p_pk_value => l_pk_value
1791: ) = FND_API.G_TRUE
1792: THEN
1793: -- FK checking
1794: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1795: THEN -- MMSG
1795: THEN -- MMSG
1796: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_DELV');
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: x_return_status := FND_API.g_ret_sts_error;
1800: RETURN;
1801: END IF;
1802: *********************************/
1803: /* added by abhola */
1818: IF AMS_Utility_PVT.Check_FK_Exists
1819: ( p_table_name => 'AMS_DELIVERABLES_ALL_B'
1820: ,p_pk_name => 'CATEGORY_TYPE_ID'
1821: ,p_pk_value => l_pk_value
1822: ) = FND_API.G_TRUE
1823: THEN
1824: -- FK checking
1825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1826: THEN -- MMSG
1826: THEN -- MMSG
1827: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_DELV');
1828: FND_MSG_PUB.Add;
1829: END IF;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: RETURN;
1832: END IF;
1833:
1834: /* added by musman fix for 1794454 */
1839: IF AMS_Utility_PVT.Check_FK_Exists
1840: ( p_table_name => 'AMS_DELIVERABLES_ALL_B'
1841: ,p_pk_name => 'CATEGORY_SUB_TYPE_ID'
1842: ,p_pk_value => l_pk_value
1843: ) = FND_API.G_TRUE
1844: THEN
1845: -- FK checking
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1847: THEN -- MMSG
1847: THEN -- MMSG
1848: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_DELV');
1849: FND_MSG_PUB.Add;
1850: END IF;
1851: x_return_status := FND_API.g_ret_sts_error;
1852: RETURN;
1853: END IF;
1854:
1855:
1874: IF AMS_Utility_PVT.Check_FK_Exists
1875: ( p_table_name => 'OZF_FUNDS_ALL_B'
1876: ,p_pk_name => 'CATEGORY_ID'
1877: ,p_pk_value => l_pk_value
1878: ) = FND_API.G_TRUE
1879: THEN
1880: -- FK checking
1881: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1882: THEN -- MMSG
1882: THEN -- MMSG
1883: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_ACT');
1884: FND_MSG_PUB.Add;
1885: END IF;
1886: x_return_status := FND_API.g_ret_sts_error;
1887: RETURN;
1888: END IF;
1889: /******** end addition by abhola ***************/
1890:
1893: IF AMS_Utility_PVT.Check_FK_Exists
1894: ( p_table_name => 'AMS_DELIV_OFFERINGS_B'
1895: ,p_pk_name => 'CATEGORY_SUB_TYPE_ID'
1896: ,p_pk_value => l_pk_value
1897: ) = FND_API.G_TRUE
1898: THEN
1899: -- FK checking
1900: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1901: THEN -- MMSG
1901: THEN -- MMSG
1902: FND_MESSAGE.Set_Name('AMS', 'AMS_CAT_CANT_DEL_DELV');
1903: FND_MSG_PUB.Add;
1904: END IF;
1905: x_return_status := FND_API.g_ret_sts_error;
1906: RETURN;
1907: END IF;
1908: *************** end by ABHOLA ****************/
1909: /*
1937:
1938: BEGIN
1939:
1940: -- Initialize API/Procedure return status to success
1941: x_return_status := FND_API.G_RET_STS_SUCCESS;
1942:
1943: -- Check required parameters
1944: --
1945: -- CATEGORY_NAME
1943: -- Check required parameters
1944: --
1945: -- CATEGORY_NAME
1946:
1947: IF (p_category_rec.CATEGORY_NAME = FND_API.G_MISS_CHAR OR
1948: p_category_rec.CATEGORY_NAME IS NULL)
1949: THEN
1950:
1951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1952: THEN
1953: FND_MESSAGE.set_name('AMS', 'AMS_CAT_NO_CAT_NAME');
1954: FND_MSG_PUB.add;
1955: END IF;
1956: x_return_status := FND_API.g_ret_sts_error;
1957: RETURN;
1958: END IF;
1959:
1960: EXCEPTION
1985: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1986: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1987: FND_MSG_PUB.add;
1988: END IF;
1989: RAISE FND_API.g_exc_error;
1990: END IF;
1991: CLOSE c_cat;
1992:
1993: IF p_category_rec.ARC_CATEGORY_CREATED_FOR = FND_API.g_miss_char THEN
1989: RAISE FND_API.g_exc_error;
1990: END IF;
1991: CLOSE c_cat;
1992:
1993: IF p_category_rec.ARC_CATEGORY_CREATED_FOR = FND_API.g_miss_char THEN
1994: x_complete_rec.ARC_CATEGORY_CREATED_FOR := l_category_rec.ARC_CATEGORY_CREATED_FOR;
1995: END IF;
1996: IF p_category_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
1997: x_complete_rec.ENABLED_FLAG := l_category_rec.ENABLED_FLAG;
1992:
1993: IF p_category_rec.ARC_CATEGORY_CREATED_FOR = FND_API.g_miss_char THEN
1994: x_complete_rec.ARC_CATEGORY_CREATED_FOR := l_category_rec.ARC_CATEGORY_CREATED_FOR;
1995: END IF;
1996: IF p_category_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
1997: x_complete_rec.ENABLED_FLAG := l_category_rec.ENABLED_FLAG;
1998: END IF;
1999:
2000: IF p_category_rec.PARENT_CATEGORY_ID = FND_API.g_miss_num THEN
1996: IF p_category_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
1997: x_complete_rec.ENABLED_FLAG := l_category_rec.ENABLED_FLAG;
1998: END IF;
1999:
2000: IF p_category_rec.PARENT_CATEGORY_ID = FND_API.g_miss_num THEN
2001: x_complete_rec.PARENT_CATEGORY_ID := l_category_rec.PARENT_CATEGORY_ID;
2002: END IF;
2003:
2004: IF p_category_rec.CATEGORY_NAME = FND_API.g_miss_char THEN
2000: IF p_category_rec.PARENT_CATEGORY_ID = FND_API.g_miss_num THEN
2001: x_complete_rec.PARENT_CATEGORY_ID := l_category_rec.PARENT_CATEGORY_ID;
2002: END IF;
2003:
2004: IF p_category_rec.CATEGORY_NAME = FND_API.g_miss_char THEN
2005: x_complete_rec.CATEGORY_NAME := l_category_rec.CATEGORY_NAME;
2006: END IF;
2007:
2008: IF p_category_rec.DESCRIPTION = FND_API.g_miss_char THEN
2004: IF p_category_rec.CATEGORY_NAME = FND_API.g_miss_char THEN
2005: x_complete_rec.CATEGORY_NAME := l_category_rec.CATEGORY_NAME;
2006: END IF;
2007:
2008: IF p_category_rec.DESCRIPTION = FND_API.g_miss_char THEN
2009: x_complete_rec.DESCRIPTION := l_category_rec.DESCRIPTION;
2010: END IF;
2011:
2012: IF p_category_rec.ACCRUED_LIABILITY_ACCOUNT = FND_API.g_miss_num THEN
2008: IF p_category_rec.DESCRIPTION = FND_API.g_miss_char THEN
2009: x_complete_rec.DESCRIPTION := l_category_rec.DESCRIPTION;
2010: END IF;
2011:
2012: IF p_category_rec.ACCRUED_LIABILITY_ACCOUNT = FND_API.g_miss_num THEN
2013: -- x_complete_rec.ACCRUED_LIABILITY_ACCOUNT := l_category_rec.ACCRUED_LIABILITY_ACCOUNT;
2014: x_complete_rec.ACCRUED_LIABILITY_ACCOUNT := null;
2015: END IF;
2016:
2013: -- x_complete_rec.ACCRUED_LIABILITY_ACCOUNT := l_category_rec.ACCRUED_LIABILITY_ACCOUNT;
2014: x_complete_rec.ACCRUED_LIABILITY_ACCOUNT := null;
2015: END IF;
2016:
2017: IF p_category_rec.DED_ADJUSTMENT_ACCOUNT = FND_API.g_miss_num THEN
2018: -- x_complete_rec.DED_ADJUSTMENT_ACCOUNT := l_category_rec.DED_ADJUSTMENT_ACCOUNT;
2019: x_complete_rec.DED_ADJUSTMENT_ACCOUNT :=null;
2020: END IF;
2021:
2069:
2070:
2071: AMS_Category_PVT.Create_Category (
2072: p_api_version => 1.0 -- p_api_version
2073: ,p_init_msg_list => FND_API.G_FALSE
2074: ,p_commit => FND_API.G_FALSE
2075: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2076: ,x_return_status => l_return_status
2077: ,x_msg_count => l_msg_count
2070:
2071: AMS_Category_PVT.Create_Category (
2072: p_api_version => 1.0 -- p_api_version
2073: ,p_init_msg_list => FND_API.G_FALSE
2074: ,p_commit => FND_API.G_FALSE
2075: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2076: ,x_return_status => l_return_status
2077: ,x_msg_count => l_msg_count
2078: ,x_msg_data => l_msg_data
2071: AMS_Category_PVT.Create_Category (
2072: p_api_version => 1.0 -- p_api_version
2073: ,p_init_msg_list => FND_API.G_FALSE
2074: ,p_commit => FND_API.G_FALSE
2075: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2076: ,x_return_status => l_return_status
2077: ,x_msg_count => l_msg_count
2078: ,x_msg_data => l_msg_data
2079:
2076: ,x_return_status => l_return_status
2077: ,x_msg_count => l_msg_count
2078: ,x_msg_data => l_msg_data
2079:
2080: ,p_PK => FND_API.G_TRUE
2081: ,p_default => FND_API.G_TRUE
2082: ,p_Category_req_item_rec => l_Category_req_item_rec
2083: ,p_Category_validate_item_rec => l_Category_validate_item_rec
2084: ,p_Category_default_item_rec => l_Category_default_item_rec
2077: ,x_msg_count => l_msg_count
2078: ,x_msg_data => l_msg_data
2079:
2080: ,p_PK => FND_API.G_TRUE
2081: ,p_default => FND_API.G_TRUE
2082: ,p_Category_req_item_rec => l_Category_req_item_rec
2083: ,p_Category_validate_item_rec => l_Category_validate_item_rec
2084: ,p_Category_default_item_rec => l_Category_default_item_rec
2085: ,p_Category_validate_row_rec => l_Category_validate_row_rec
2086: ,p_category_rec => l_category_rec
2087: ,x_category_id => l_category_id
2088: );
2089:
2090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2091: ELSE
2092: commit work;
2093: END IF;
2094:
2127:
2128:
2129: AMS_Category_PVT.Delete_Category (
2130: p_api_version => 1.0 -- p_api_version
2131: ,p_init_msg_list => FND_API.G_FALSE
2132: ,p_commit => FND_API.G_FALSE
2133: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2134: ,p_category_rec => l_category_rec
2135:
2128:
2129: AMS_Category_PVT.Delete_Category (
2130: p_api_version => 1.0 -- p_api_version
2131: ,p_init_msg_list => FND_API.G_FALSE
2132: ,p_commit => FND_API.G_FALSE
2133: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2134: ,p_category_rec => l_category_rec
2135:
2136: ,x_return_status => l_return_status
2129: AMS_Category_PVT.Delete_Category (
2130: p_api_version => 1.0 -- p_api_version
2131: ,p_init_msg_list => FND_API.G_FALSE
2132: ,p_commit => FND_API.G_FALSE
2133: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2134: ,p_category_rec => l_category_rec
2135:
2136: ,x_return_status => l_return_status
2137: ,x_msg_count => l_msg_count
2137: ,x_msg_count => l_msg_count
2138: ,x_msg_data => l_msg_data
2139: );
2140:
2141: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2142: ELSE
2143: commit work;
2144: END IF;
2145:
2187:
2188:
2189: AMS_Category_PVT.Update_Category (
2190: p_api_version => 1.0 -- p_api_version
2191: ,p_init_msg_list => FND_API.G_FALSE
2192: ,p_commit => FND_API.G_FALSE
2193: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2194: ,p_category_rec => l_category_rec
2195:
2188:
2189: AMS_Category_PVT.Update_Category (
2190: p_api_version => 1.0 -- p_api_version
2191: ,p_init_msg_list => FND_API.G_FALSE
2192: ,p_commit => FND_API.G_FALSE
2193: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2194: ,p_category_rec => l_category_rec
2195:
2196: ,x_return_status => l_return_status
2189: AMS_Category_PVT.Update_Category (
2190: p_api_version => 1.0 -- p_api_version
2191: ,p_init_msg_list => FND_API.G_FALSE
2192: ,p_commit => FND_API.G_FALSE
2193: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2194: ,p_category_rec => l_category_rec
2195:
2196: ,x_return_status => l_return_status
2197: ,x_msg_count => l_msg_count
2197: ,x_msg_count => l_msg_count
2198: ,x_msg_data => l_msg_data
2199: );
2200:
2201: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2202: THEN
2203: ELSE
2204: commit work;
2205: END IF;
2245:
2246:
2247: AMS_Category_PVT.Lock_Category (
2248: p_api_version => 1.0 -- p_api_version
2249: ,p_init_msg_list => FND_API.G_FALSE
2250: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2251: ,p_category_rec => l_category_rec
2252:
2253: ,x_return_status => l_return_status
2246:
2247: AMS_Category_PVT.Lock_Category (
2248: p_api_version => 1.0 -- p_api_version
2249: ,p_init_msg_list => FND_API.G_FALSE
2250: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2251: ,p_category_rec => l_category_rec
2252:
2253: ,x_return_status => l_return_status
2254: ,x_msg_count => l_msg_count
2254: ,x_msg_count => l_msg_count
2255: ,x_msg_data => l_msg_data
2256: );
2257:
2258: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2259: --RAISE FND_API.G_EXC_ERROR;
2260: END IF;
2261:
2262: NULL;
2255: ,x_msg_data => l_msg_data
2256: );
2257:
2258: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2259: --RAISE FND_API.G_EXC_ERROR;
2260: END IF;
2261:
2262: NULL;
2263:
2301:
2302:
2303: AMS_Category_PVT.Create_Act_Category (
2304: p_api_version => 1.0 -- p_api_version
2305: ,p_init_msg_list => FND_API.G_FALSE
2306: ,p_commit => FND_API.G_FALSE
2307: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2308: ,x_return_status => l_return_status
2309: ,x_msg_count => l_msg_count
2302:
2303: AMS_Category_PVT.Create_Act_Category (
2304: p_api_version => 1.0 -- p_api_version
2305: ,p_init_msg_list => FND_API.G_FALSE
2306: ,p_commit => FND_API.G_FALSE
2307: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2308: ,x_return_status => l_return_status
2309: ,x_msg_count => l_msg_count
2310: ,x_msg_data => l_msg_data
2303: AMS_Category_PVT.Create_Act_Category (
2304: p_api_version => 1.0 -- p_api_version
2305: ,p_init_msg_list => FND_API.G_FALSE
2306: ,p_commit => FND_API.G_FALSE
2307: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2308: ,x_return_status => l_return_status
2309: ,x_msg_count => l_msg_count
2310: ,x_msg_data => l_msg_data
2311:
2308: ,x_return_status => l_return_status
2309: ,x_msg_count => l_msg_count
2310: ,x_msg_data => l_msg_data
2311:
2312: ,p_PK => FND_API.G_TRUE
2313: ,p_default => FND_API.G_TRUE
2314: ,p_Category_req_item_rec => l_act_category_req_item_rec
2315: ,p_Category_validate_item_rec => l_act_cty_validate_item_rec
2316: ,p_Category_default_item_rec => l_act_cty_default_item_rec
2309: ,x_msg_count => l_msg_count
2310: ,x_msg_data => l_msg_data
2311:
2312: ,p_PK => FND_API.G_TRUE
2313: ,p_default => FND_API.G_TRUE
2314: ,p_Category_req_item_rec => l_act_category_req_item_rec
2315: ,p_Category_validate_item_rec => l_act_cty_validate_item_rec
2316: ,p_Category_default_item_rec => l_act_cty_default_item_rec
2317: ,p_Category_validate_row_rec => l_act_cty_validate_row_rec
2318: ,p_category_rec => l_act_category_rec
2319: ,x_act_category_id => l_act_category_id
2320: );
2321:
2322: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2323: THEN
2324: ELSE
2325: commit work;
2326: END IF;
2357: -- Delete test case 1
2358: l_act_category_rec.activity_category_id := 1234;
2359: AMS_Category_PVT.Delete_Act_Category (
2360: p_api_version => 1.0 -- p_api_version
2361: ,p_init_msg_list => FND_API.G_FALSE
2362: ,p_commit => FND_API.G_FALSE
2363: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2364: ,p_category_rec => l_act_category_rec
2365:
2358: l_act_category_rec.activity_category_id := 1234;
2359: AMS_Category_PVT.Delete_Act_Category (
2360: p_api_version => 1.0 -- p_api_version
2361: ,p_init_msg_list => FND_API.G_FALSE
2362: ,p_commit => FND_API.G_FALSE
2363: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2364: ,p_category_rec => l_act_category_rec
2365:
2366: ,x_return_status => l_return_status
2359: AMS_Category_PVT.Delete_Act_Category (
2360: p_api_version => 1.0 -- p_api_version
2361: ,p_init_msg_list => FND_API.G_FALSE
2362: ,p_commit => FND_API.G_FALSE
2363: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2364: ,p_category_rec => l_act_category_rec
2365:
2366: ,x_return_status => l_return_status
2367: ,x_msg_count => l_msg_count
2367: ,x_msg_count => l_msg_count
2368: ,x_msg_data => l_msg_data
2369: );
2370:
2371: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2372: ELSE
2373: commit work;
2374: END IF;
2375:
2418:
2419:
2420: AMS_Category_PVT.Update_Act_Category (
2421: p_api_version => 1.0 -- p_api_version
2422: ,p_init_msg_list => FND_API.G_FALSE
2423: ,p_commit => FND_API.G_FALSE
2424: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2425: ,p_category_rec => l_act_category_rec
2426:
2419:
2420: AMS_Category_PVT.Update_Act_Category (
2421: p_api_version => 1.0 -- p_api_version
2422: ,p_init_msg_list => FND_API.G_FALSE
2423: ,p_commit => FND_API.G_FALSE
2424: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2425: ,p_category_rec => l_act_category_rec
2426:
2427: ,x_return_status => l_return_status
2420: AMS_Category_PVT.Update_Act_Category (
2421: p_api_version => 1.0 -- p_api_version
2422: ,p_init_msg_list => FND_API.G_FALSE
2423: ,p_commit => FND_API.G_FALSE
2424: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2425: ,p_category_rec => l_act_category_rec
2426:
2427: ,x_return_status => l_return_status
2428: ,x_msg_count => l_msg_count
2428: ,x_msg_count => l_msg_count
2429: ,x_msg_data => l_msg_data
2430: );
2431:
2432: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2433: THEN
2434: ELSE
2435: commit work;
2436: END IF;
2472:
2473:
2474: AMS_Category_PVT.Lock_Act_Category (
2475: p_api_version => 1.0 -- p_api_version
2476: ,p_init_msg_list => FND_API.G_FALSE
2477: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2478: ,p_category_rec => l_act_category_rec
2479:
2480: ,x_return_status => l_return_status
2473:
2474: AMS_Category_PVT.Lock_Act_Category (
2475: p_api_version => 1.0 -- p_api_version
2476: ,p_init_msg_list => FND_API.G_FALSE
2477: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2478: ,p_category_rec => l_act_category_rec
2479:
2480: ,x_return_status => l_return_status
2481: ,x_msg_count => l_msg_count
2481: ,x_msg_count => l_msg_count
2482: ,x_msg_data => l_msg_data
2483: );
2484:
2485: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2486: THEN
2487: --RAISE FND_API.G_EXC_ERROR;
2488: END IF;
2489:
2483: );
2484:
2485: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2486: THEN
2487: --RAISE FND_API.G_EXC_ERROR;
2488: END IF;
2489:
2490:
2491: null;