335: BEGIN
336:
337: -- Initialize message list if p_init_msg_list is set to TRUE.
338: IF FND_API.to_Boolean(p_init_msg_list) THEN
339: FND_MSG_PUB.initialize;
340: END IF;
341:
342: -- Initialize API return status to error, i.e, its not duplicate
343: x_return_status := FND_API.G_RET_STS_ERROR;
374: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
375: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
376: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
377: FND_MESSAGE.Set_Token('REASON', SQLERRM);
378: FND_MSG_PUB.Add;
379:
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381:
382: END;
389: EXCEPTION
390:
391: WHEN FND_API.G_EXC_ERROR THEN
392: x_return_status := FND_API.G_RET_STS_SUCCESS; -- found duplicate
393: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
394: p_data => x_msg_data,
395: p_encoded => 'F');
396:
397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: p_encoded => 'F');
396:
397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
400: p_data => x_msg_data,
401: p_encoded => 'F');
402:
403: WHEN OTHERS THEN
404: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
405: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
406: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
407: FND_MESSAGE.Set_Token('REASON', SQLERRM);
408: FND_MSG_PUB.Add;
409:
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411:
412: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
408: FND_MSG_PUB.Add;
409:
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411:
412: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
415: END IF;
416:
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411:
412: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
415: END IF;
416:
417: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
418: p_data => x_msg_data,
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
415: END IF;
416:
417: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
418: p_data => x_msg_data,
419: p_encoded => 'F');
420:
421: END Check_Duplicate_Entry;
456: BEGIN
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean(p_init_msg_list) THEN
460: FND_MSG_PUB.initialize;
461: END IF;
462:
463: -- Initialize API return status to success
464: x_return_status := FND_API.G_RET_STS_SUCCESS;
471: IF ((p_mini_site_id IS NULL) OR
472: (p_mini_site_id = FND_API.G_MISS_NUM))
473: THEN
474: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_MSITE_ID');
475: FND_MSG_PUB.Add;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479: -- child section id
480: IF ((p_child_section_id IS NULL) OR
481: (p_child_section_id = FND_API.G_MISS_NUM))
482: THEN
483: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_CHILD_SCT_ID');
484: FND_MSG_PUB.Add;
485: RAISE FND_API.G_EXC_ERROR;
486: END IF;
487:
488: -- start_date_active
489: IF ((p_start_date_active IS NULL) OR
490: (p_start_date_active = FND_API.G_MISS_DATE))
491: THEN
492: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
493: FND_MSG_PUB.Add;
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
496:
497: --
503: (p_level_number <> FND_API.G_MISS_NUM))
504: THEN
505: IF(p_level_number < 0) THEN
506: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_SCT_LVL_NUM');
507: FND_MSG_PUB.Add;
508: RAISE FND_API.G_EXC_ERROR;
509: END IF;
510: END IF;
511:
514: (p_sort_order <> FND_API.G_MISS_NUM))
515: THEN
516: IF(p_sort_order < 0) THEN
517: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_SCT_SORT_ORDER');
518: FND_MSG_PUB.Add;
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
521: END IF;
522:
532: EXCEPTION
533: WHEN NO_DATA_FOUND THEN
534: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_MSITE_ID');
535: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
536: FND_MSG_PUB.Add;
537: RAISE FND_API.G_EXC_ERROR;
538: WHEN OTHERS THEN
539: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
540: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
539: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
540: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
541: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
542: FND_MESSAGE.Set_Token('REASON', SQLERRM);
543: FND_MSG_PUB.Add;
544:
545: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_MSITE_ID');
546: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
547: FND_MSG_PUB.Add;
543: FND_MSG_PUB.Add;
544:
545: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_MSITE_ID');
546: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
547: FND_MSG_PUB.Add;
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
549: END;
550:
551: -- parent section id
558: EXCEPTION
559: WHEN NO_DATA_FOUND THEN
560: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ID');
561: FND_MESSAGE.Set_Token('SECTION_ID', p_parent_section_id);
562: FND_MSG_PUB.Add;
563: RAISE FND_API.G_EXC_ERROR;
564: WHEN OTHERS THEN
565: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
566: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
565: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
566: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
567: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
568: FND_MESSAGE.Set_Token('REASON', SQLERRM);
569: FND_MSG_PUB.Add;
570:
571: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ID');
572: FND_MESSAGE.Set_Token('SECTION_ID', p_parent_section_id);
573: FND_MSG_PUB.Add;
569: FND_MSG_PUB.Add;
570:
571: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ID');
572: FND_MESSAGE.Set_Token('SECTION_ID', p_parent_section_id);
573: FND_MSG_PUB.Add;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: END;
576: END IF;
577:
583: EXCEPTION
584: WHEN NO_DATA_FOUND THEN
585: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SCT_ID');
586: FND_MESSAGE.Set_Token('SECTION_ID', p_child_section_id);
587: FND_MSG_PUB.Add;
588: RAISE FND_API.G_EXC_ERROR;
589: WHEN OTHERS THEN
590: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
591: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
590: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
591: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
592: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
593: FND_MESSAGE.Set_Token('REASON', SQLERRM);
594: FND_MSG_PUB.Add;
595:
596: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ID');
597: FND_MESSAGE.Set_Token('SECTION_ID', p_child_section_id);
598: FND_MSG_PUB.Add;
594: FND_MSG_PUB.Add;
595:
596: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SCT_ID');
597: FND_MESSAGE.Set_Token('SECTION_ID', p_child_section_id);
598: FND_MSG_PUB.Add;
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END;
601:
602: -- Validate if the entry is duplicate
611: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
614: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_DUPLICATE_ENTRY');
615: FND_MSG_PUB.Add;
616: RAISE FND_API.G_EXC_ERROR; -- duplicate entry
617: END IF;
618:
619: EXCEPTION
619: EXCEPTION
620:
621: WHEN FND_API.G_EXC_ERROR THEN
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
624: p_data => x_msg_data,
625: p_encoded => 'F');
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: p_encoded => 'F');
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
629: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
630: p_data => x_msg_data,
631: p_encoded => 'F');
632:
633: WHEN OTHERS THEN
634: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
635: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
636: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
637: FND_MESSAGE.Set_Token('REASON', SQLERRM);
638: FND_MSG_PUB.Add;
639:
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641:
642: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
638: FND_MSG_PUB.Add;
639:
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641:
642: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
643: THEN
644: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
645: END IF;
646:
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641:
642: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
643: THEN
644: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
645: END IF;
646:
647: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
648: p_data => x_msg_data,
643: THEN
644: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
645: END IF;
646:
647: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
648: p_data => x_msg_data,
649: p_encoded => 'F');
650:
651: END Validate_Create;
687: BEGIN
688:
689: -- Initialize message list if p_init_msg_list is set to TRUE.
690: IF FND_API.to_Boolean(p_init_msg_list) THEN
691: FND_MSG_PUB.initialize;
692: END IF;
693:
694: -- Initialize API return status to success
695: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: -- mini_site_section_section_id
702: IF (p_mini_site_section_section_id IS NULL) THEN
703: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NULL_PRIMARY_KEY');
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
708: -- start_date_active
707:
708: -- start_date_active
709: IF (p_start_date_active IS NULL) THEN
710: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
711: FND_MSG_PUB.Add;
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
715: --
721: (p_level_number <> FND_API.G_MISS_NUM))
722: THEN
723: IF(p_level_number < 0) THEN
724: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_SCT_LVL_NUM');
725: FND_MSG_PUB.Add;
726: RAISE FND_API.G_EXC_ERROR;
727: END IF;
728: END IF;
729:
732: (p_sort_order <> FND_API.G_MISS_NUM))
733: THEN
734: IF(p_sort_order < 0) THEN
735: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_SCT_SORT_ORDER');
736: FND_MSG_PUB.Add;
737: RAISE FND_API.G_EXC_ERROR;
738: END IF;
739: END IF;
740:
741: EXCEPTION
742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
746: p_data => x_msg_data,
747: p_encoded => 'F');
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
747: p_encoded => 'F');
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
752: p_data => x_msg_data,
753: p_encoded => 'F');
754:
755: WHEN OTHERS THEN
756: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
757: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
758: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
759: FND_MESSAGE.Set_Token('REASON', SQLERRM);
760: FND_MSG_PUB.Add;
761:
762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
763:
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
760: FND_MSG_PUB.Add;
761:
762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
763:
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
767: END IF;
768:
762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
763:
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
767: END IF;
768:
769: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
770: p_data => x_msg_data,
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
767: END IF;
768:
769: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
770: p_data => x_msg_data,
771: p_encoded => 'F');
772:
773: END Validate_Update;
821: END IF;
822:
823: -- Initialize message list if p_init_msg_list is set to TRUE.
824: IF FND_API.to_Boolean(p_init_msg_list) THEN
825: FND_MSG_PUB.initialize;
826: END IF;
827:
828: -- Initialize API return status to success
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
857: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
860: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_INVALID_CREATE');
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_ERROR; -- invalid
863: END IF;
864:
865: --
888: );
889: EXCEPTION
890: WHEN NO_DATA_FOUND THEN
891: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_INSERT_FAIL');
892: FND_MSG_PUB.Add;
893: RAISE FND_API.G_EXC_ERROR;
894: WHEN OTHERS THEN
895: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
896: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
895: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
896: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
897: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
898: FND_MESSAGE.Set_Token('REASON', SQLERRM);
899: FND_MSG_PUB.Add;
900:
901: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_INSERT_FAIL');
902: FND_MSG_PUB.Add;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: FND_MESSAGE.Set_Token('REASON', SQLERRM);
899: FND_MSG_PUB.Add;
900:
901: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_INSERT_FAIL');
902: FND_MSG_PUB.Add;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
904: END;
905:
906: --
911: COMMIT WORK;
912: END IF;
913:
914: -- Standard call to get message count and if count is 1, get message info.
915: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
916: p_data => x_msg_data,
917: p_encoded => 'F');
918:
919: EXCEPTION
920:
921: WHEN FND_API.G_EXC_ERROR THEN
922: ROLLBACK TO CREATE_MSITE_SCT_SECT_PVT;
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
925: p_data => x_msg_data,
926: p_encoded => 'F');
927:
928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927:
928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
929: ROLLBACK TO CREATE_MSITE_SCT_SECT_PVT;
930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
932: p_data => x_msg_data,
933: p_encoded => 'F');
934:
935: WHEN OTHERS THEN
938: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
939: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
940: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
941: FND_MESSAGE.Set_Token('REASON', SQLERRM);
942: FND_MSG_PUB.Add;
943:
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945:
946: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
942: FND_MSG_PUB.Add;
943:
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945:
946: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
947: THEN
948: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
949: END IF;
950:
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945:
946: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
947: THEN
948: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
949: END IF;
950:
951: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
952: p_data => x_msg_data,
947: THEN
948: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
949: END IF;
950:
951: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
952: p_data => x_msg_data,
953: p_encoded => 'F');
954:
955: END Create_MSite_Section_Section;
998: END IF;
999:
1000: -- Initialize message list if p_init_msg_list is set to TRUE.
1001: IF FND_API.to_Boolean(p_init_msg_list) THEN
1002: FND_MSG_PUB.initialize;
1003: END IF;
1004:
1005: -- Initialize API return status to success
1006: x_return_status := FND_API.G_RET_STS_SUCCESS;
1054: ELSE
1055: FND_MESSAGE.Set_Token('PARENT_SECTION_ID', 'NULL');
1056: END IF;
1057: FND_MESSAGE.Set_Token('CHILD_SECTION_ID', p_child_section_id);
1058: FND_MSG_PUB.Add;
1059: RAISE FND_API.G_EXC_ERROR;
1060: WHEN OTHERS THEN
1061: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1062: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1061: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1062: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1063: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1064: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1065: FND_MSG_PUB.Add;
1066:
1067: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSS_ID');
1068: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
1069: IF (p_parent_section_id IS NOT NULL) THEN
1071: ELSE
1072: FND_MESSAGE.Set_Token('PARENT_SECTION_ID', 'NULL');
1073: END IF;
1074: FND_MESSAGE.Set_Token('CHILD_SECTION_ID', p_child_section_id);
1075: FND_MSG_PUB.Add;
1076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1077: END;
1078: ELSE
1079: -- neither mini_site_section_section_id nor combination of
1078: ELSE
1079: -- neither mini_site_section_section_id nor combination of
1080: -- mini_site_id, parent_section_id and child_section_id is specified
1081: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSS_IDS_SPEC');
1082: FND_MSG_PUB.Add;
1083: RAISE FND_API.G_EXC_ERROR;
1084: END IF;
1085:
1086:
1106: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1109: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_INVALID_UPDATE');
1110: FND_MSG_PUB.Add;
1111: RAISE FND_API.G_EXC_ERROR; -- invalid
1112: END IF;
1113:
1114: -- 2. update row
1128: );
1129: EXCEPTION
1130: WHEN NO_DATA_FOUND THEN
1131: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_UPDATE_FAIL');
1132: FND_MSG_PUB.Add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: WHEN OTHERS THEN
1135: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1136: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1135: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1136: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1137: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1138: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1139: FND_MSG_PUB.Add;
1140:
1141: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_UPDATE_FAIL');
1142: FND_MSG_PUB.Add;
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1139: FND_MSG_PUB.Add;
1140:
1141: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSS_UPDATE_FAIL');
1142: FND_MSG_PUB.Add;
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144: END;
1145:
1146: --
1151: COMMIT WORK;
1152: END IF;
1153:
1154: -- Standard call to get message count and if count is 1, get message info.
1155: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1156: p_data => x_msg_data,
1157: p_encoded => 'F');
1158:
1159: EXCEPTION
1160:
1161: WHEN FND_API.G_EXC_ERROR THEN
1162: ROLLBACK TO UPDATE_MSITE_SCT_SECT_PVT;
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1165: p_data => x_msg_data,
1166: p_encoded => 'F');
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: ROLLBACK TO UPDATE_MSITE_SCT_SECT_PVT;
1170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1172: p_data => x_msg_data,
1173: p_encoded => 'F');
1174:
1175: WHEN OTHERS THEN
1178: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1179: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1180: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1181: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1182: FND_MSG_PUB.Add;
1183:
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185:
1186: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1182: FND_MSG_PUB.Add;
1183:
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185:
1186: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1189: END IF;
1190:
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185:
1186: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1189: END IF;
1190:
1191: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1192: p_data => x_msg_data,
1187: THEN
1188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1189: END IF;
1190:
1191: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1192: p_data => x_msg_data,
1193: p_encoded => 'F');
1194:
1195: END Update_MSite_Section_Section;
1228: END IF;
1229:
1230: -- Initialize message list if p_init_msg_list is set to TRUE.
1231: IF FND_API.to_Boolean(p_init_msg_list) THEN
1232: FND_MSG_PUB.initialize;
1233: END IF;
1234:
1235: -- Initialize API return status to success
1236: x_return_status := FND_API.G_RET_STS_SUCCESS;
1282: ELSE
1283: FND_MESSAGE.Set_Token('PARENT_SECTION_ID', 'NULL');
1284: END IF;
1285: FND_MESSAGE.Set_Token('CHILD_SECTION_ID', p_child_section_id);
1286: FND_MSG_PUB.Add;
1287: RAISE FND_API.G_EXC_ERROR;
1288: WHEN OTHERS THEN
1289: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1290: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1289: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1290: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1291: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1292: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1293: FND_MSG_PUB.Add;
1294:
1295: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSS_ID');
1296: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
1297: IF (p_parent_section_id IS NOT NULL) THEN
1299: ELSE
1300: FND_MESSAGE.Set_Token('PARENT_SECTION_ID', 'NULL');
1301: END IF;
1302: FND_MESSAGE.Set_Token('CHILD_SECTION_ID', p_child_section_id);
1303: FND_MSG_PUB.Add;
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: END;
1306:
1307: ELSE
1307: ELSE
1308: -- neither mini_site_section_section_id nor combination of
1309: -- mini_site_id, parent_section_id and child_section_id is specified
1310: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSS_IDS_SPEC');
1311: FND_MSG_PUB.Add;
1312: RAISE FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: -- delete row
1319:
1320: WHEN FND_API.G_EXC_ERROR THEN
1321: ROLLBACK TO DELETE_MSITE_SCT_SECT_PVT;
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1324: p_data => x_msg_data,
1325: p_encoded => 'F');
1326:
1327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326:
1327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1328: ROLLBACK TO DELETE_MSITE_SCT_SECT_PVT;
1329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1331: p_data => x_msg_data,
1332: p_encoded => 'F');
1333:
1334: WHEN OTHERS THEN
1337: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1338: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1339: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1340: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1341: FND_MSG_PUB.Add;
1342:
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344:
1345: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1341: FND_MSG_PUB.Add;
1342:
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344:
1345: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1346: THEN
1347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1348: END IF;
1349:
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344:
1345: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1346: THEN
1347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1348: END IF;
1349:
1350: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1351: p_data => x_msg_data,
1346: THEN
1347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1348: END IF;
1349:
1350: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1351: p_data => x_msg_data,
1352: p_encoded => 'F');
1353:
1354: END Delete_MSite_Section_Section;
1392: END IF;
1393:
1394: -- Initialize message list if p_init_msg_list is set to TRUE.
1395: IF FND_API.to_Boolean(p_init_msg_list) THEN
1396: FND_MSG_PUB.initialize;
1397: END IF;
1398:
1399: -- Initialize API return status to success
1400: x_return_status := FND_API.G_RET_STS_SUCCESS;
1441: COMMIT WORK;
1442: END IF;
1443:
1444: -- Standard call to get message count and if count is 1, get message info.
1445: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1446: p_data => x_msg_data,
1447: p_encoded => 'F');
1448:
1449: EXCEPTION
1450:
1451: WHEN FND_API.G_EXC_ERROR THEN
1452: ROLLBACK TO UPDATE_MSITE_SCT_SECTS_PVT;
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1455: p_data => x_msg_data,
1456: p_encoded => 'F');
1457:
1458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1457:
1458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1459: ROLLBACK TO UPDATE_MSITE_SCT_SECTS_PVT;
1460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1461: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1462: p_data => x_msg_data,
1463: p_encoded => 'F');
1464:
1465: WHEN OTHERS THEN
1468: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1469: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1470: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1471: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1472: FND_MSG_PUB.Add;
1473:
1474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1475:
1476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1472: FND_MSG_PUB.Add;
1473:
1474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1475:
1476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1477: THEN
1478: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1479: END IF;
1480:
1474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1475:
1476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1477: THEN
1478: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1479: END IF;
1480:
1481: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1482: p_data => x_msg_data,
1477: THEN
1478: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1479: END IF;
1480:
1481: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1482: p_data => x_msg_data,
1483: p_encoded => 'F');
1484:
1485: END Update_MSite_Section_Sections;
1524: END IF;
1525:
1526: -- Initialize message list if p_init_msg_list is set to TRUE.
1527: IF FND_API.to_Boolean(p_init_msg_list) THEN
1528: FND_MSG_PUB.initialize;
1529: END IF;
1530:
1531: -- Initialize API return status to success
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1601: COMMIT WORK;
1602: END IF;
1603:
1604: -- Standard call to get message count and if count is 1, get message info.
1605: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1606: p_data => x_msg_data,
1607: p_encoded => 'F');
1608:
1609: EXCEPTION
1610:
1611: WHEN FND_API.G_EXC_ERROR THEN
1612: ROLLBACK TO UPDATE_DELETE_SCT_SCTS_PVT;
1613: x_return_status := FND_API.G_RET_STS_ERROR;
1614: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1615: p_data => x_msg_data,
1616: p_encoded => 'F');
1617:
1618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1617:
1618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1619: ROLLBACK TO UPDATE_DELETE_SCT_SCTS_PVT;
1620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1621: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1622: p_data => x_msg_data,
1623: p_encoded => 'F');
1624:
1625: WHEN OTHERS THEN
1628: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1629: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1630: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1631: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1632: FND_MSG_PUB.Add;
1633:
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635:
1636: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1632: FND_MSG_PUB.Add;
1633:
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635:
1636: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635:
1636: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1642: p_data => x_msg_data,
1637: THEN
1638: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1639: END IF;
1640:
1641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1642: p_data => x_msg_data,
1643: p_encoded => 'F');
1644:
1645: END Update_Delete_Sct_Scts;