[Home] [Help]
39: IF (c1%NOTFOUND) THEN
40: CLOSE c1;
41: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_NOT_FOUND');
42: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
43: FND_MSG_PUB.Add;
44: RAISE FND_API.G_EXC_ERROR;
45: END IF;
46: CLOSE c1;
47:
48: EXCEPTION
49:
50: WHEN FND_API.G_EXC_ERROR THEN
51: x_return_status := FND_API.G_RET_STS_ERROR;
52: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
53: p_data => x_msg_data,
54: p_encoded => 'F');
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
54: p_encoded => 'F');
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
59: p_data => x_msg_data,
60: p_encoded => 'F');
61:
62: WHEN OTHERS THEN
61:
62: WHEN OTHERS THEN
63: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64:
65: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
66: THEN
67: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
68: END IF;
69:
63: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64:
65: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
66: THEN
67: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
68: END IF;
69:
70: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
71: p_data => x_msg_data,
66: THEN
67: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
68: END IF;
69:
70: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
71: p_data => x_msg_data,
72: p_encoded => 'F');
73:
74: END Validate_Msite_Id_Exists;
105: CLOSE c1;
106: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_RESP_APPL_NOT_FOUND');
107: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
108: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
109: FND_MSG_PUB.Add;
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112: CLOSE c1;
113:
114: EXCEPTION
115:
116: WHEN FND_API.G_EXC_ERROR THEN
117: x_return_status := FND_API.G_RET_STS_ERROR;
118: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
119: p_data => x_msg_data,
120: p_encoded => 'F');
121:
122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
120: p_encoded => 'F');
121:
122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
125: p_data => x_msg_data,
126: p_encoded => 'F');
127:
128: WHEN OTHERS THEN
127:
128: WHEN OTHERS THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130:
131: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
132: THEN
133: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
134: END IF;
135:
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130:
131: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
132: THEN
133: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
134: END IF;
135:
136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
137: p_data => x_msg_data,
132: THEN
133: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
134: END IF;
135:
136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
137: p_data => x_msg_data,
138: p_encoded => 'F');
139:
140: END Validate_Resp_Appl_Id_Exists;
210: ELSE
211: -- neither msite_resp_id nor combination of
212: -- msite_id, responsibility_id and application_id is specified
213: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MR_IDS_SPEC');
214: FND_MSG_PUB.Add;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: EXCEPTION
218: EXCEPTION
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
223: p_data => x_msg_data,
224: p_encoded => 'F');
225:
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: p_encoded => 'F');
225:
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
229: p_data => x_msg_data,
230: p_encoded => 'F');
231:
232: WHEN OTHERS THEN
231:
232: WHEN OTHERS THEN
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234:
235: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
236: THEN
237: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
238: END IF;
239:
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234:
235: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
236: THEN
237: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
238: END IF;
239:
240: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
241: p_data => x_msg_data,
236: THEN
237: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
238: END IF;
239:
240: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
241: p_data => x_msg_data,
242: p_encoded => 'F');
243:
244: END Validate_Msite_Resp_Id_Exists;
270: BEGIN
271:
272: -- Initialize message list if p_init_msg_list is set to TRUE.
273: IF FND_API.to_Boolean(p_init_msg_list) THEN
274: FND_MSG_PUB.initialize;
275: END IF;
276:
277: -- Initialize API return status to success
278: x_return_status := FND_API.G_RET_STS_SUCCESS;
284: IF ((p_msite_id IS NULL) OR
285: (p_msite_id = FND_API.G_MISS_NUM))
286: THEN
287: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_MSITE_ID');
288: FND_MSG_PUB.Add;
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291:
292: -- p_responsibility_id
293: IF ((p_responsibility_id IS NULL) OR
294: (p_responsibility_id = FND_API.G_MISS_NUM))
295: THEN
296: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_RESP_ID');
297: FND_MSG_PUB.Add;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300:
301: -- application_id
302: IF ((p_application_id IS NULL) OR
303: (p_application_id = FND_API.G_MISS_NUM))
304: THEN
305: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_APPL_ID');
306: FND_MSG_PUB.Add;
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309:
310: -- start_date_active
311: IF ((p_start_date_active IS NULL) OR
312: (p_start_date_active = FND_API.G_MISS_DATE))
313: THEN
314: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
315: FND_MSG_PUB.Add;
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
318:
319: -- display_name
320: IF ((p_display_name IS NULL) OR
321: (p_display_name = FND_API.G_MISS_CHAR))
322: THEN
323: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVLD_MSRSP_DSP_NAME');
324: FND_MSG_PUB.Add;
325: RAISE FND_API.G_EXC_ERROR;
326: END IF;
327:
328: --
334: (p_sort_order <> FND_API.G_MISS_NUM))
335: THEN
336: IF(p_sort_order < 0) THEN
337: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVLD_SORT_ORDER');
338: FND_MSG_PUB.Add;
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341: END IF;
342:
356:
357: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
358: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
359: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
363: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
364: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
379: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
380: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_RESP_ID_VLD_FAIL');
381: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
382: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
383: FND_MSG_PUB.Add;
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
386: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_RESP_ID_VLD_FAIL');
387: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
404: -- IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
405: -- x_return_status := FND_API.G_RET_STS_SUCCESS;
406: -- ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: -- FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_VLD_FAIL');
408: -- FND_MSG_PUB.Add;
409: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: -- ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN -- duplicate exists
411: -- FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_DUP_EXISTS');
412: -- FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
411: -- FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_DUP_EXISTS');
412: -- FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
413: -- FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
414: -- FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
415: -- FND_MSG_PUB.Add;
416: -- RAISE FND_API.G_EXC_ERROR;
417: -- END IF;
418:
419: EXCEPTION
419: EXCEPTION
420:
421: WHEN FND_API.G_EXC_ERROR THEN
422: x_return_status := FND_API.G_RET_STS_ERROR;
423: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
424: p_data => x_msg_data,
425: p_encoded => 'F');
426:
427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
425: p_encoded => 'F');
426:
427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
430: p_data => x_msg_data,
431: p_encoded => 'F');
432:
433: WHEN OTHERS THEN
432:
433: WHEN OTHERS THEN
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435:
436: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
437: THEN
438: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
439: END IF;
440:
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435:
436: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
437: THEN
438: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
439: END IF;
440:
441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
442: p_data => x_msg_data,
437: THEN
438: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
439: END IF;
440:
441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
442: p_data => x_msg_data,
443: p_encoded => 'F');
444:
445:
471: BEGIN
472:
473: -- Initialize message list if p_init_msg_list is set to TRUE.
474: IF FND_API.to_Boolean(p_init_msg_list) THEN
475: FND_MSG_PUB.initialize;
476: END IF;
477:
478: -- Initialize API return status to success
479: x_return_status := FND_API.G_RET_STS_SUCCESS;
484:
485: -- msite_resp_id
486: IF (p_msite_resp_id IS NULL) THEN
487: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_IS_NULL');
488: FND_MSG_PUB.Add;
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: -- object_version_number
492: -- object_version_number
493: IF (p_object_version_number IS NULL)
494: THEN
495: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_OVN_IS_NULL');
496: FND_MSG_PUB.Add;
497: RAISE FND_API.G_EXC_ERROR;
498: END IF;
499:
500: -- start_date_active
499:
500: -- start_date_active
501: IF (p_start_date_active IS NULL) THEN
502: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_START_DATE');
503: FND_MSG_PUB.Add;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506:
507: -- display_name
506:
507: -- display_name
508: IF (p_display_name IS NULL) THEN
509: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVLD_MSRSP_DSP_NAME');
510: FND_MSG_PUB.Add;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
514: --
520: (p_sort_order <> FND_API.G_MISS_NUM))
521: THEN
522: IF(p_sort_order < 0) THEN
523: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVLD_SORT_ORDER');
524: FND_MSG_PUB.Add;
525: RAISE FND_API.G_EXC_ERROR;
526: END IF;
527: END IF;
528:
539: );
540:
541: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
542: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_VLD_FAIL');
543: FND_MSG_PUB.Add;
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
546: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_VLD_FAIL');
547: FND_MSG_PUB.Add;
543: FND_MSG_PUB.Add;
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
546: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSRSP_ID_VLD_FAIL');
547: FND_MSG_PUB.Add;
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550:
551:
552: EXCEPTION
553:
554: WHEN FND_API.G_EXC_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
557: p_data => x_msg_data,
558: p_encoded => 'F');
559:
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: p_encoded => 'F');
559:
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
563: p_data => x_msg_data,
564: p_encoded => 'F');
565:
566: WHEN OTHERS THEN
565:
566: WHEN OTHERS THEN
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568:
569: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
570: THEN
571: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
572: END IF;
573:
567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568:
569: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
570: THEN
571: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
572: END IF;
573:
574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
575: p_data => x_msg_data,
570: THEN
571: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
572: END IF;
573:
574: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
575: p_data => x_msg_data,
576: p_encoded => 'F');
577:
578: END Validate_Update;
620: END IF;
621:
622: -- Initialize message list if p_init_msg_list is set to TRUE.
623: IF FND_API.to_Boolean(p_init_msg_list) THEN
624: FND_MSG_PUB.initialize;
625: END IF;
626:
627: -- Initialize API return status to success
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
653: );
654:
655: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
656: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_CREATE');
657: FND_MSG_PUB.Add;
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
660: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_CREATE');
661: FND_MSG_PUB.Add;
657: FND_MSG_PUB.Add;
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
660: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_CREATE');
661: FND_MSG_PUB.Add;
662: RAISE FND_API.G_EXC_ERROR; -- invalid
663: END IF;
664:
665: --
689:
690: EXCEPTION
691: WHEN NO_DATA_FOUND THEN
692: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_INSERT_FL');
693: FND_MSG_PUB.Add;
694: RAISE FND_API.G_EXC_ERROR;
695: WHEN OTHERS THEN
696: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_INSERT_FL');
697: FND_MSG_PUB.Add;
693: FND_MSG_PUB.Add;
694: RAISE FND_API.G_EXC_ERROR;
695: WHEN OTHERS THEN
696: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_INSERT_FL');
697: FND_MSG_PUB.Add;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END;
700:
701: --
706: COMMIT WORK;
707: END IF;
708:
709: -- Standard call to get message count and if count is 1, get message info.
710: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
711: p_data => x_msg_data,
712: p_encoded => 'F');
713: EXCEPTION
714:
714:
715: WHEN FND_API.G_EXC_ERROR THEN
716: ROLLBACK TO create_msite_resp_pvt;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
719: p_data => x_msg_data,
720: p_encoded => 'F');
721:
722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721:
722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
723: ROLLBACK TO create_msite_resp_pvt;
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
726: p_data => x_msg_data,
727: p_encoded => 'F');
728:
729: WHEN OTHERS THEN
729: WHEN OTHERS THEN
730: ROLLBACK TO create_msite_resp_pvt;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732:
733: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
734: THEN
735: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
736: END IF;
737:
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732:
733: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
734: THEN
735: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
736: END IF;
737:
738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
739: p_data => x_msg_data,
734: THEN
735: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
736: END IF;
737:
738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
739: p_data => x_msg_data,
740: p_encoded => 'F');
741:
742: END Create_Msite_Resp;
789: END IF;
790:
791: -- Initialize message list if p_init_msg_list is set to TRUE.
792: IF FND_API.to_Boolean(p_init_msg_list) THEN
793: FND_MSG_PUB.initialize;
794: END IF;
795:
796: -- Initialize API return status to success
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
833: ELSE
834: -- neither msite_resp_id nor combination of
835: -- msite_id, responsibility_id and application_id is specified
836: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MR_IDS_SPEC');
837: FND_MSG_PUB.Add;
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
841: --
857: );
858:
859: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
860: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_UPDATE');
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
863: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
864: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_UPDATE');
865: FND_MSG_PUB.Add;
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
863: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
864: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MR_INVALID_UPDATE');
865: FND_MSG_PUB.Add;
866: RAISE FND_API.G_EXC_ERROR; -- invalid
867: END IF;
868:
869: -- 2. update row with section data into section table
884:
885: EXCEPTION
886: WHEN NO_DATA_FOUND THEN
887: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_UPDATE_FL');
888: FND_MSG_PUB.ADD;
889: RAISE FND_API.G_EXC_ERROR;
890: WHEN OTHERS THEN
891: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_UPDATE_FL');
892: FND_MSG_PUB.ADD;
888: FND_MSG_PUB.ADD;
889: RAISE FND_API.G_EXC_ERROR;
890: WHEN OTHERS THEN
891: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_UPDATE_FL');
892: FND_MSG_PUB.ADD;
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END;
895:
896: --
901: COMMIT WORK;
902: END IF;
903:
904: -- standard call to get message count and if count is 1, get message info.
905: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
906: p_data => x_msg_data,
907: p_encoded => 'F');
908:
909: EXCEPTION
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO update_msite_resp_pvt;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => 'F');
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
919: ROLLBACK TO update_msite_resp_pvt;
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
922: p_data => x_msg_data,
923: p_encoded => 'F');
924:
925: WHEN OTHERS THEN
925: WHEN OTHERS THEN
926: ROLLBACK TO update_msite_resp_pvt;
927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928:
929: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
930: THEN
931: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
932: END IF;
933:
927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928:
929: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
930: THEN
931: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
932: END IF;
933:
934: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
935: p_data => x_msg_data,
930: THEN
931: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
932: END IF;
933:
934: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
935: p_data => x_msg_data,
936: p_encoded => 'F');
937:
938: END Update_Msite_Resp;
979: END IF;
980:
981: -- Initialize message list if p_init_msg_list is set to TRUE.
982: IF FND_API.to_Boolean(p_init_msg_list) THEN
983: FND_MSG_PUB.initialize;
984: END IF;
985:
986: -- Initialize API return status to success
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
1020: ELSE
1021: -- neither msite_resp_id nor combination of
1022: -- msite_id, responsibility_id and application_id is specified
1023: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MR_IDS_SPEC');
1024: FND_MSG_PUB.Add;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: -- delete for ibe_msite_resps_b and _tl tables
1030: Ibe_Msite_Resp_Pkg.delete_row(l_msite_resp_id);
1031: EXCEPTION
1032: WHEN NO_DATA_FOUND THEN
1033: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1034: FND_MSG_PUB.Add;
1035: RAISE FND_API.G_EXC_ERROR;
1036: WHEN OTHERS THEN
1037: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1038: FND_MSG_PUB.Add;
1034: FND_MSG_PUB.Add;
1035: RAISE FND_API.G_EXC_ERROR;
1036: WHEN OTHERS THEN
1037: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1038: FND_MSG_PUB.Add;
1039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1040: END;
1041:
1042: EXCEPTION
1043:
1044: WHEN FND_API.G_EXC_ERROR THEN
1045: ROLLBACK TO delete_msite_resp_pvt;
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1048: p_data => x_msg_data,
1049: p_encoded => 'F');
1050:
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050:
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: ROLLBACK TO delete_msite_resp_pvt;
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1054: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1055: p_data => x_msg_data,
1056: p_encoded => 'F');
1057:
1058: WHEN OTHERS THEN
1058: WHEN OTHERS THEN
1059: ROLLBACK TO delete_msite_resp_pvt;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061:
1062: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1065: END IF;
1066:
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061:
1062: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1065: END IF;
1066:
1067: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1068: p_data => x_msg_data,
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1065: END IF;
1066:
1067: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1068: p_data => x_msg_data,
1069: p_encoded => 'F');
1070:
1071: END Delete_Msite_Resp;
1121: END IF;
1122:
1123: -- Initialize message list if p_init_msg_list is set to TRUE.
1124: IF FND_API.to_Boolean(p_init_msg_list) THEN
1125: FND_MSG_PUB.initialize;
1126: END IF;
1127:
1128: -- Initialize API return status to success
1129: x_return_status := FND_API.G_RET_STS_SUCCESS;
1162: ELSE
1163: -- neither msite_resp_id nor combination of
1164: -- msite_id, responsibility_id and application_id is specified
1165: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MR_IDS_SPEC');
1166: FND_MSG_PUB.Add;
1167: RAISE FND_API.G_EXC_ERROR;
1168: END IF;
1169:
1170:
1194:
1195: EXCEPTION
1196: WHEN NO_DATA_FOUND THEN
1197: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1198: FND_MSG_PUB.Add;
1199: RAISE FND_API.G_EXC_ERROR;
1200: WHEN OTHERS THEN
1201: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1202: FND_MSG_PUB.Add;
1198: FND_MSG_PUB.Add;
1199: RAISE FND_API.G_EXC_ERROR;
1200: WHEN OTHERS THEN
1201: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1202: FND_MSG_PUB.Add;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204:
1205: END;
1206:
1219:
1220: EXCEPTION
1221: WHEN NO_DATA_FOUND THEN
1222: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1223: FND_MSG_PUB.Add;
1224: RAISE FND_API.G_EXC_ERROR;
1225: WHEN OTHERS THEN
1226: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1227: FND_MSG_PUB.Add;
1223: FND_MSG_PUB.Add;
1224: RAISE FND_API.G_EXC_ERROR;
1225: WHEN OTHERS THEN
1226: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_DELETE_FL');
1227: FND_MSG_PUB.Add;
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END;
1230: END IF;
1231: EXCEPTION
1232:
1233: WHEN FND_API.G_EXC_ERROR THEN
1234: ROLLBACK TO delete_msite_resp_pvt;
1235: x_return_status := FND_API.G_RET_STS_ERROR;
1236: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1237: p_data => x_msg_data,
1238: p_encoded => 'F');
1239:
1240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239:
1240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1241: ROLLBACK TO delete_msite_resp_pvt;
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1244: p_data => x_msg_data,
1245: p_encoded => 'F');
1246:
1247: WHEN OTHERS THEN
1247: WHEN OTHERS THEN
1248: ROLLBACK TO delete_msite_resp_pvt;
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250:
1251: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1252: THEN
1253: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1254: END IF;
1255:
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250:
1251: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1252: THEN
1253: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1254: END IF;
1255:
1256: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1257: p_data => x_msg_data,
1252: THEN
1253: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1254: END IF;
1255:
1256: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1257: p_data => x_msg_data,
1258: p_encoded => 'F');
1259:
1260: END Delete_Msite_Resp_Group;