227: BEGIN
228:
229: -- Initialize message list if p_init_msg_list is set to TRUE.
230: IF FND_API.to_Boolean(p_init_msg_list) THEN
231: FND_MSG_PUB.initialize;
232: END IF;
233:
234: -- Initialize API return status to error, i.e, its not duplicate
235: x_return_status := FND_API.G_RET_STS_ERROR;
253: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
254: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
255: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
256: FND_MESSAGE.Set_Token('REASON', SQLERRM);
257: FND_MSG_PUB.Add;
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259:
260: END;
261:
267: EXCEPTION
268:
269: WHEN FND_API.G_EXC_ERROR THEN
270: x_return_status := FND_API.G_RET_STS_SUCCESS; -- found duplicate
271: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
272: p_data => x_msg_data,
273: p_encoded => 'F');
274:
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273: p_encoded => 'F');
274:
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
278: p_data => x_msg_data,
279: p_encoded => 'F');
280:
281: WHEN OTHERS THEN
282: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
283: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
284: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
285: FND_MESSAGE.Set_Token('REASON', SQLERRM);
286: FND_MSG_PUB.Add;
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
286: FND_MSG_PUB.Add;
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
291: THEN
292: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
293: END IF;
294:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
291: THEN
292: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
293: END IF;
294:
295: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
296: p_data => x_msg_data,
291: THEN
292: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
293: END IF;
294:
295: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
296: p_data => x_msg_data,
297: p_encoded => 'F');
298:
299: END Check_Duplicate_Entry;
330: BEGIN
331:
332: -- Initialize message list if p_init_msg_list is set to TRUE.
333: IF FND_API.to_Boolean(p_init_msg_list) THEN
334: FND_MSG_PUB.initialize;
335: END IF;
336:
337: -- Initialize API return status to success
338: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: IF ((p_mini_site_id IS NULL) OR
346: (p_mini_site_id = FND_API.G_MISS_NUM))
347: THEN
348: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_MSITE_ID');
349: FND_MSG_PUB.Add;
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: -- section item id
354: IF ((p_section_item_id IS NULL) OR
355: (p_section_item_id = FND_API.G_MISS_NUM))
356: THEN
357: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_SI_ID');
358: FND_MSG_PUB.Add;
359: RAISE FND_API.G_EXC_ERROR;
360: END IF;
361:
362: -- start_date_active
363: IF ((p_start_date_active IS NULL) OR
364: (p_start_date_active = FND_API.G_MISS_DATE))
365: THEN
366: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
367: FND_MSG_PUB.Add;
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370:
371: --
380: EXCEPTION
381: WHEN NO_DATA_FOUND THEN
382: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_MSITE_ID');
383: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
384: FND_MSG_PUB.Add;
385: RAISE FND_API.G_EXC_ERROR;
386: WHEN OTHERS THEN
387: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
388: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
387: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
388: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
389: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
390: FND_MESSAGE.Set_Token('REASON', SQLERRM);
391: FND_MSG_PUB.Add;
392:
393: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_MSITE_ID');
394: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
395: FND_MSG_PUB.Add;
391: FND_MSG_PUB.Add;
392:
393: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_MSITE_ID');
394: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
395: FND_MSG_PUB.Add;
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END;
398:
399: -- section item id
404: EXCEPTION
405: WHEN NO_DATA_FOUND THEN
406: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_NO_SI_ID');
407: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
408: FND_MSG_PUB.Add;
409: RAISE FND_API.G_EXC_ERROR;
410: WHEN OTHERS THEN
411: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
412: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
411: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
412: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
413: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
414: FND_MESSAGE.Set_Token('REASON', SQLERRM);
415: FND_MSG_PUB.Add;
416:
417: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SI_ID');
418: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
419: FND_MSG_PUB.Add;
415: FND_MSG_PUB.Add;
416:
417: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_SCT_GET_SI_ID');
418: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
419: FND_MSG_PUB.Add;
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: END;
422:
423: -- Validate if the entry is duplicate
431: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
434: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_DUPLICATE_ENTRY');
435: FND_MSG_PUB.Add;
436: RAISE FND_API.G_EXC_ERROR; -- duplicate entry
437: END IF;
438:
439: EXCEPTION
439: EXCEPTION
440:
441: WHEN FND_API.G_EXC_ERROR THEN
442: x_return_status := FND_API.G_RET_STS_ERROR;
443: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
444: p_data => x_msg_data,
445: p_encoded => 'F');
446:
447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
445: p_encoded => 'F');
446:
447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
450: p_data => x_msg_data,
451: p_encoded => 'F');
452:
453: WHEN OTHERS THEN
454: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
455: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
456: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
457: FND_MESSAGE.Set_Token('REASON', SQLERRM);
458: FND_MSG_PUB.Add;
459:
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461:
462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
458: FND_MSG_PUB.Add;
459:
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461:
462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
463: THEN
464: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
465: END IF;
466:
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461:
462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
463: THEN
464: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
465: END IF;
466:
467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
468: p_data => x_msg_data,
463: THEN
464: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
465: END IF;
466:
467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
468: p_data => x_msg_data,
469: p_encoded => 'F');
470:
471: END Validate_Create;
503: BEGIN
504:
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean(p_init_msg_list) THEN
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: -- Initialize API return status to success
511: x_return_status := FND_API.G_RET_STS_SUCCESS;
516:
517: -- mini_site_section_item_id
518: IF (p_mini_site_section_item_id IS NULL) THEN
519: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NULL_PRIMARY_KEY');
520: FND_MSG_PUB.Add;
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
523:
524: -- start_date_active
523:
524: -- start_date_active
525: IF (p_start_date_active IS NULL) THEN
526: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
527: FND_MSG_PUB.Add;
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531:
532: EXCEPTION
533:
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
537: p_data => x_msg_data,
538: p_encoded => 'F');
539:
540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: p_encoded => 'F');
539:
540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
543: p_data => x_msg_data,
544: p_encoded => 'F');
545:
546: WHEN OTHERS THEN
547: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
548: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
549: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
550: FND_MESSAGE.Set_Token('REASON', SQLERRM);
551: FND_MSG_PUB.Add;
552:
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554:
555: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
551: FND_MSG_PUB.Add;
552:
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554:
555: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
556: THEN
557: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
558: END IF;
559:
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554:
555: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
556: THEN
557: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
558: END IF;
559:
560: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
561: p_data => x_msg_data,
556: THEN
557: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
558: END IF;
559:
560: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
561: p_data => x_msg_data,
562: p_encoded => 'F');
563:
564: END Validate_Update;
608: END IF;
609:
610: -- Initialize message list if p_init_msg_list is set to TRUE.
611: IF FND_API.to_Boolean(p_init_msg_list) THEN
612: FND_MSG_PUB.initialize;
613: END IF;
614:
615: -- Initialize API return status to success
616: x_return_status := FND_API.G_RET_STS_SUCCESS;
640: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
643: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_INVALID_CREATE');
644: FND_MSG_PUB.Add;
645: RAISE FND_API.G_EXC_ERROR; -- invalid
646: END IF;
647:
648: --
667: );
668: EXCEPTION
669: WHEN NO_DATA_FOUND THEN
670: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_INSERT_FAIL');
671: FND_MSG_PUB.Add;
672: RAISE FND_API.G_EXC_ERROR;
673: WHEN OTHERS THEN
674: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
675: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
674: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
675: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
676: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
677: FND_MESSAGE.Set_Token('REASON', SQLERRM);
678: FND_MSG_PUB.Add;
679:
680: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_INSERT_FAIL');
681: FND_MSG_PUB.Add;
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
677: FND_MESSAGE.Set_Token('REASON', SQLERRM);
678: FND_MSG_PUB.Add;
679:
680: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_INSERT_FAIL');
681: FND_MSG_PUB.Add;
682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
683: END;
684:
685: --
690: COMMIT WORK;
691: END IF;
692:
693: -- Standard call to get message count and if count is 1, get message info.
694: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
695: p_data => x_msg_data,
696: p_encoded => 'F');
697:
698: EXCEPTION
699:
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO CREATE_MSITE_SCT_ITEM_PVT;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
704: p_data => x_msg_data,
705: p_encoded => 'F');
706:
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
710: FND_MESSAGE.Set_Token('ROUTINE', l_api_name || 'xxx');
711: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
712: FND_MESSAGE.Set_Token('REASON', p_mini_site_id || ':' || p_section_item_id);
713: FND_MSG_PUB.Add;
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
717: p_data => x_msg_data,
712: FND_MESSAGE.Set_Token('REASON', p_mini_site_id || ':' || p_section_item_id);
713: FND_MSG_PUB.Add;
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
717: p_data => x_msg_data,
718: p_encoded => 'F');
719:
720: WHEN OTHERS THEN
723: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
724: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
725: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
726: FND_MESSAGE.Set_Token('REASON', SQLERRM);
727: FND_MSG_PUB.Add;
728:
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730:
731: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
727: FND_MSG_PUB.Add;
728:
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730:
731: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
732: THEN
733: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
734: END IF;
735:
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730:
731: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
732: THEN
733: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
734: END IF;
735:
736: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
737: p_data => x_msg_data,
732: THEN
733: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
734: END IF;
735:
736: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
737: p_data => x_msg_data,
738: p_encoded => 'F');
739:
740: END Create_MSite_Section_Item;
779: END IF;
780:
781: -- Initialize message list if p_init_msg_list is set to TRUE.
782: IF FND_API.to_Boolean(p_init_msg_list) THEN
783: FND_MSG_PUB.initialize;
784: END IF;
785:
786: -- Initialize API return status to success
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
818: WHEN NO_DATA_FOUND THEN
819: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
820: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
821: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
822: FND_MSG_PUB.Add;
823: RAISE FND_API.G_EXC_ERROR;
824: WHEN OTHERS THEN
825: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
826: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
825: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
826: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
827: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
828: FND_MESSAGE.Set_Token('REASON', SQLERRM);
829: FND_MSG_PUB.Add;
830:
831: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
832: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
833: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
830:
831: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
832: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
833: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
834: FND_MSG_PUB.Add;
835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
836: END;
837: ELSE
838: -- neither mini_site_section_item_id nor combination of
837: ELSE
838: -- neither mini_site_section_item_id nor combination of
839: -- mini_site_id and section_item_id is specified
840: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_IDS_SPEC');
841: FND_MSG_PUB.Add;
842: RAISE FND_API.G_EXC_ERROR;
843: END IF;
844:
845: --
861: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
863: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
864: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_INVALID_UPDATE');
865: FND_MSG_PUB.Add;
866: RAISE FND_API.G_EXC_ERROR; -- invalid
867: END IF;
868:
869: -- 2. update row
880: );
881: EXCEPTION
882: WHEN NO_DATA_FOUND THEN
883: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_UPDATE_FAIL');
884: FND_MSG_PUB.Add;
885: RAISE FND_API.G_EXC_ERROR;
886: WHEN OTHERS THEN
887: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
888: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
887: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
888: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
889: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
890: FND_MESSAGE.Set_Token('REASON', SQLERRM);
891: FND_MSG_PUB.Add;
892:
893: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_UPDATE_FAIL');
894: FND_MSG_PUB.Add;
895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
890: FND_MESSAGE.Set_Token('REASON', SQLERRM);
891: FND_MSG_PUB.Add;
892:
893: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_MSI_UPDATE_FAIL');
894: FND_MSG_PUB.Add;
895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
896: END;
897:
898: --
903: COMMIT WORK;
904: END IF;
905:
906: -- Standard call to get message count and if count is 1, get message info.
907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
908: p_data => x_msg_data,
909: p_encoded => 'F');
910:
911: EXCEPTION
912:
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO UPDATE_MSITE_SCT_ITEM_PVT;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
917: p_data => x_msg_data,
918: p_encoded => 'F');
919:
920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
919:
920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
921: ROLLBACK TO UPDATE_MSITE_SCT_ITEM_PVT;
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => 'F');
926:
927: WHEN OTHERS THEN
930: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
931: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
932: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
933: FND_MESSAGE.Set_Token('REASON', SQLERRM);
934: FND_MSG_PUB.Add;
935:
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937:
938: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
934: FND_MSG_PUB.Add;
935:
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937:
938: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
939: THEN
940: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
941: END IF;
942:
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937:
938: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
939: THEN
940: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
941: END IF;
942:
943: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
944: p_data => x_msg_data,
939: THEN
940: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
941: END IF;
942:
943: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
944: p_data => x_msg_data,
945: p_encoded => 'F');
946:
947: END Update_MSite_Section_Item;
983: END IF;
984:
985: -- Initialize message list if p_init_msg_list is set to TRUE.
986: IF FND_API.to_Boolean(p_init_msg_list) THEN
987: FND_MSG_PUB.initialize;
988: END IF;
989:
990: -- Initialize API return status to success
991: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: WHEN NO_DATA_FOUND THEN
1020: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
1021: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
1022: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
1023: FND_MSG_PUB.Add;
1024: RAISE FND_API.G_EXC_ERROR;
1025: WHEN OTHERS THEN
1026: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1027: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1026: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1027: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1028: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1029: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1030: FND_MSG_PUB.Add;
1031:
1032: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
1033: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
1034: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
1031:
1032: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_ID');
1033: FND_MESSAGE.Set_Token('MINI_SITE_ID', p_mini_site_id);
1034: FND_MESSAGE.Set_Token('SECTION_ITEM_ID', p_section_item_id);
1035: FND_MSG_PUB.Add;
1036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1037: END;
1038:
1039: ELSE
1039: ELSE
1040: -- neither mini_site_section_item_id nor combination of
1041: -- mini_site_id and section_item_id is specified
1042: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_NO_MSI_IDS_SPEC');
1043: FND_MSG_PUB.Add;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1046:
1047: -- delete row
1053: IF (p_call_from_trigger = FALSE) THEN
1054: ROLLBACK TO DELETE_MSITE_SCT_ITEM_PVT;
1055: END IF;
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1058: p_data => x_msg_data,
1059: p_encoded => 'F');
1060:
1061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1062: IF (p_call_from_trigger = FALSE) THEN
1063: ROLLBACK TO DELETE_MSITE_SCT_ITEM_PVT;
1064: END IF;
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1066: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1067: p_data => x_msg_data,
1068: p_encoded => 'F');
1069:
1070: WHEN OTHERS THEN
1075: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1076: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1077: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1078: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1079: FND_MSG_PUB.Add;
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082:
1083: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1079: FND_MSG_PUB.Add;
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082:
1083: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1084: THEN
1085: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1086: END IF;
1087:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082:
1083: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1084: THEN
1085: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1086: END IF;
1087:
1088: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1089: p_data => x_msg_data,
1084: THEN
1085: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1086: END IF;
1087:
1088: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1089: p_data => x_msg_data,
1090: p_encoded => 'F');
1091:
1092: END Delete_MSite_Section_Item;