37: OPEN c1(p_msite_id);
38: FETCH c1 INTO l_tmp_id;
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;
38: FETCH c1 INTO l_tmp_id;
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;
102: OPEN c1(p_responsibility_id, p_application_id);
103: FETCH c1 INTO l_tmp_id;
104: IF (c1%NOTFOUND) THEN
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;
103: FETCH c1 INTO l_tmp_id;
104: IF (c1%NOTFOUND) THEN
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;
104: IF (c1%NOTFOUND) THEN
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;
180: OPEN c1(p_msite_resp_id);
181: FETCH c1 INTO l_tmp_id;
182: IF (c1%NOTFOUND) THEN
183: CLOSE c1;
184: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_NOT_FOUND');
185: FND_MESSAGE.Set_Token('MSITE_RESP_ID', p_msite_resp_id);
186: RAISE FND_API.G_EXC_ERROR;
187: END IF;
188: CLOSE c1;
181: FETCH c1 INTO l_tmp_id;
182: IF (c1%NOTFOUND) THEN
183: CLOSE c1;
184: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_RESP_NOT_FOUND');
185: FND_MESSAGE.Set_Token('MSITE_RESP_ID', p_msite_resp_id);
186: RAISE FND_API.G_EXC_ERROR;
187: END IF;
188: CLOSE c1;
189:
198: OPEN c2(p_msite_id, p_responsibility_id, p_application_id);
199: FETCH c2 INTO l_tmp_id;
200: IF (c2%NOTFOUND) THEN
201: CLOSE c2;
202: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
203: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
204: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
205: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
206: RAISE FND_API.G_EXC_ERROR;
199: FETCH c2 INTO l_tmp_id;
200: IF (c2%NOTFOUND) THEN
201: CLOSE c2;
202: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
203: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
204: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
205: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
200: IF (c2%NOTFOUND) THEN
201: CLOSE c2;
202: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
203: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
204: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
205: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: CLOSE c2;
201: CLOSE c2;
202: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
203: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
204: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
205: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: CLOSE c2;
209:
209:
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:
283: -- p_msite_id
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:
333: IF ((p_sort_order IS NOT NULL) AND
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;
354: );
355:
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
355:
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');
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);
365: RAISE FND_API.G_EXC_ERROR; -- invalid msite_id
366: END IF;
367:
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);
365: RAISE FND_API.G_EXC_ERROR; -- invalid msite_id
366: END IF;
367:
368: -- responsibility_id and application_id
376: );
377:
378:
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;
377:
378:
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
378:
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');
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);
388: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
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);
388: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
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);
388: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
392: -- p_msite_id, p_responsibility_id, p_application_id (check for duplicate)
403:
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');
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);
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;
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);
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;
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);
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;
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);
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:
483: --
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:
491:
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:
498: END IF;
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:
505: END IF;
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:
519: IF ((p_sort_order IS NOT NULL) AND
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;
538: x_msg_data => x_msg_data
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');
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;
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550:
652: x_msg_data => x_msg_data
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');
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;
662: RAISE FND_API.G_EXC_ERROR; -- invalid
663: END IF;
664:
688: );
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');
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;
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
699: END;
700:
821: OPEN c1(p_msite_id, p_responsibility_id, p_application_id);
822: FETCH c1 INTO l_msite_resp_id;
823: IF (c1%NOTFOUND) THEN
824: CLOSE c1;
825: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
826: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
827: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
828: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
829: RAISE FND_API.G_EXC_ERROR;
822: FETCH c1 INTO l_msite_resp_id;
823: IF (c1%NOTFOUND) THEN
824: CLOSE c1;
825: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
826: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
827: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
828: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
823: IF (c1%NOTFOUND) THEN
824: CLOSE c1;
825: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
826: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
827: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
828: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831: CLOSE c1;
824: CLOSE c1;
825: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
826: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
827: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
828: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831: CLOSE c1;
832:
832:
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:
856: x_msg_data => x_msg_data
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');
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;
866: RAISE FND_API.G_EXC_ERROR; -- invalid
867: END IF;
868:
883: );
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');
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;
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END;
895:
1008: OPEN c1(p_msite_id, p_responsibility_id, p_application_id);
1009: FETCH c1 INTO l_msite_resp_id;
1010: IF (c1%NOTFOUND) THEN
1011: CLOSE c1;
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1013: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1014: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1015: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1016: RAISE FND_API.G_EXC_ERROR;
1009: FETCH c1 INTO l_msite_resp_id;
1010: IF (c1%NOTFOUND) THEN
1011: CLOSE c1;
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1013: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1014: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1015: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1016: RAISE FND_API.G_EXC_ERROR;
1017: END IF;
1010: IF (c1%NOTFOUND) THEN
1011: CLOSE c1;
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1013: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1014: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1015: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1016: RAISE FND_API.G_EXC_ERROR;
1017: END IF;
1018: CLOSE c1;
1011: CLOSE c1;
1012: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1013: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1014: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1015: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1016: RAISE FND_API.G_EXC_ERROR;
1017: END IF;
1018: CLOSE c1;
1019:
1019:
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:
1029: BEGIN
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');
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;
1039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1040: END;
1041:
1150: OPEN c1(p_msite_id, p_responsibility_id, p_application_id);
1151: FETCH c1 INTO l_msite_resp_id;
1152: IF (c1%NOTFOUND) THEN
1153: CLOSE c1;
1154: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1155: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1156: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1157: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1158: RAISE FND_API.G_EXC_ERROR;
1151: FETCH c1 INTO l_msite_resp_id;
1152: IF (c1%NOTFOUND) THEN
1153: CLOSE c1;
1154: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1155: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1156: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1157: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1152: IF (c1%NOTFOUND) THEN
1153: CLOSE c1;
1154: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1155: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1156: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1157: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160: CLOSE c1;
1153: CLOSE c1;
1154: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1155: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1156: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1157: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160: CLOSE c1;
1161:
1161:
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:
1171: OPEN c2(p_msite_resp_id);
1172: FETCH c2 INTO l_count;
1173: IF (c2%NOTFOUND) THEN
1174: CLOSE c2;
1175: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1176: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1177: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1178: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1179: RAISE FND_API.G_EXC_ERROR;
1172: FETCH c2 INTO l_count;
1173: IF (c2%NOTFOUND) THEN
1174: CLOSE c2;
1175: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1176: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1177: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1178: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1173: IF (c2%NOTFOUND) THEN
1174: CLOSE c2;
1175: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1176: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1177: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1178: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1181:
1174: CLOSE c2;
1175: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITERESP_NOT_FOUND');
1176: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
1177: FND_MESSAGE.Set_Token('RESP_ID', p_responsibility_id);
1178: FND_MESSAGE.Set_Token('APPL_ID', p_application_id);
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1181:
1182: IF (l_count = 1) THEN
1193: END IF;
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');
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;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204:
1205: END;
1218: END IF;
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');
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;
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END;
1230: END IF;