123: END IF;
124:
125: /* Check p_init_msg_list */
126: IF FND_API.to_Boolean( p_init_msg_list ) THEN
127: FND_MSG_PUB.initialize;
128: END IF;
129: /* Initialize API return status to success */
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
396: COMMIT WORK;
397: END IF;
398:
399: /* Standard call to get message count AND IF count is 1, get message info. */
400: FND_MSG_PUB.Count_AND_Get
401: ( p_count => x_msg_count,
402: p_data => x_msg_data
403: );
404:
406:
407: WHEN FND_API.G_EXC_ERROR THEN
408: ROLLBACK TO sp_wip_wol_GRP;
409: x_return_status := FND_API.G_RET_STS_ERROR ;
410: FND_MSG_PUB.Count_AND_Get
411: ( p_count => x_msg_count,
412: p_data => x_msg_data
413: );
414:
414:
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: ROLLBACK TO sp_wip_wol_grp;
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
418: FND_MSG_PUB.Count_AND_Get
419: ( p_count => x_msg_count,
420: p_data => x_msg_data
421: );
422:
425: THEN
426: ROLLBACK to sp_wip_wol_grp;
427: x_return_status := FND_API.G_RET_STS_ERROR;
428: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INVALID_OBJ_TYPE');
429: FND_MSG_PUB.Add;
430: FND_MSG_PUB.Count_AND_Get
431: ( p_count => x_msg_count,
432: p_data => x_msg_data
433: );
426: ROLLBACK to sp_wip_wol_grp;
427: x_return_status := FND_API.G_RET_STS_ERROR;
428: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INVALID_OBJ_TYPE');
429: FND_MSG_PUB.Add;
430: FND_MSG_PUB.Count_AND_Get
431: ( p_count => x_msg_count,
432: p_data => x_msg_data
433: );
434:
436: THEN
437: ROLLBACK to sp_wip_wol_grp;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INVALID_REL_TYPE');
440: FND_MSG_PUB.Add;
441: FND_MSG_PUB.Count_AND_Get
442: ( p_count => x_msg_count,
443: p_data => x_msg_data
444: );
437: ROLLBACK to sp_wip_wol_grp;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INVALID_REL_TYPE');
440: FND_MSG_PUB.Add;
441: FND_MSG_PUB.Count_AND_Get
442: ( p_count => x_msg_count,
443: p_data => x_msg_data
444: );
445:
447: THEN
448: ROLLBACK to sp_wip_wol_grp;
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_PARENT_CHILD_SAME');
451: FND_MSG_PUB.Add;
452: FND_MSG_PUB.Count_AND_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
448: ROLLBACK to sp_wip_wol_grp;
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_PARENT_CHILD_SAME');
451: FND_MSG_PUB.Add;
452: FND_MSG_PUB.Count_AND_Get
453: ( p_count => x_msg_count,
454: p_data => x_msg_data
455: );
456:
458: THEN
459: ROLLBACK to sp_wip_wol_grp;
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_BAD_REL_STATUS');
462: FND_MSG_PUB.Add;
463: FND_MSG_PUB.Count_AND_Get
464: ( p_count => x_msg_count,
465: p_data => x_msg_data
466: );
459: ROLLBACK to sp_wip_wol_grp;
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_BAD_REL_STATUS');
462: FND_MSG_PUB.Add;
463: FND_MSG_PUB.Count_AND_Get
464: ( p_count => x_msg_count,
465: p_data => x_msg_data
466: );
467:
469: THEN
470: ROLLBACK to sp_wip_wol_grp;
471: x_return_status := FND_API.G_RET_STS_ERROR;
472: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_DEPENDENT_REL_EXIST');
473: FND_MSG_PUB.Add;
474: FND_MSG_PUB.Count_AND_Get
475: ( p_count => x_msg_count,
476: p_data => x_msg_data
477: );
470: ROLLBACK to sp_wip_wol_grp;
471: x_return_status := FND_API.G_RET_STS_ERROR;
472: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_DEPENDENT_REL_EXIST');
473: FND_MSG_PUB.Add;
474: FND_MSG_PUB.Count_AND_Get
475: ( p_count => x_msg_count,
476: p_data => x_msg_data
477: );
478:
480: THEN
481: ROLLBACK to sp_wip_wol_grp;
482: x_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_CONSTRAINED_REL_EXIST');
484: FND_MSG_PUB.Add;
485: FND_MSG_PUB.Count_AND_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data
488: );
481: ROLLBACK to sp_wip_wol_grp;
482: x_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_CONSTRAINED_REL_EXIST');
484: FND_MSG_PUB.Add;
485: FND_MSG_PUB.Count_AND_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data
488: );
489:
491: THEN
492: ROLLBACK to sp_wip_wol_grp;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_PARENT_EXIST');
495: FND_MSG_PUB.Add;
496: FND_MSG_PUB.Count_AND_Get
497: ( p_count => x_msg_count,
498: p_data => x_msg_data
499: );
492: ROLLBACK to sp_wip_wol_grp;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_PARENT_EXIST');
495: FND_MSG_PUB.Add;
496: FND_MSG_PUB.Count_AND_Get
497: ( p_count => x_msg_count,
498: p_data => x_msg_data
499: );
500:
502: THEN
503: ROLLBACK to sp_wip_wol_grp;
504: x_return_status := FND_API.G_RET_STS_ERROR;
505: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_LOOP_FOUND');
506: FND_MSG_PUB.Add;
507: FND_MSG_PUB.Count_AND_Get
508: ( p_count => x_msg_count,
509: p_data => x_msg_data
510: );
503: ROLLBACK to sp_wip_wol_grp;
504: x_return_status := FND_API.G_RET_STS_ERROR;
505: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_LOOP_FOUND');
506: FND_MSG_PUB.Add;
507: FND_MSG_PUB.Count_AND_Get
508: ( p_count => x_msg_count,
509: p_data => x_msg_data
510: );
511:
513: THEN
514: ROLLBACK to sp_wip_wol_grp;
515: x_return_status := FND_API.G_RET_STS_ERROR;
516: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INSERT_FAIL');
517: FND_MSG_PUB.Add;
518: FND_MSG_PUB.Count_AND_Get
519: ( p_count => x_msg_count,
520: p_data => x_msg_data
521: );
514: ROLLBACK to sp_wip_wol_grp;
515: x_return_status := FND_API.G_RET_STS_ERROR;
516: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_INSERT_FAIL');
517: FND_MSG_PUB.Add;
518: FND_MSG_PUB.Count_AND_Get
519: ( p_count => x_msg_count,
520: p_data => x_msg_data
521: );
522:
522:
523: WHEN OTHERS THEN
524: ROLLBACK TO sp_wip_wol_grp;
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
526: IF FND_MSG_PUB.Check_Msg_Level
527: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg
530: ( G_PKG_NAME,
523: WHEN OTHERS THEN
524: ROLLBACK TO sp_wip_wol_grp;
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
526: IF FND_MSG_PUB.Check_Msg_Level
527: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg
530: ( G_PKG_NAME,
531: l_api_name
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
526: IF FND_MSG_PUB.Check_Msg_Level
527: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
528: THEN
529: FND_MSG_PUB.Add_Exc_Msg
530: ( G_PKG_NAME,
531: l_api_name
532: );
533: END IF;
530: ( G_PKG_NAME,
531: l_api_name
532: );
533: END IF;
534: FND_MSG_PUB.Count_AND_Get
535: ( p_count => x_msg_count,
536: p_data => x_msg_data
537: );
538:
629: END IF;
630:
631: /* Check p_init_msg_list */
632: IF FND_API.to_Boolean( p_init_msg_list ) THEN
633: FND_MSG_PUB.initialize;
634: END IF;
635: /* Initialize API return status to success */
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
637:
730: COMMIT WORK;
731: END IF;
732:
733: /* Standard call to get message count AND IF count is 1, get message info. */
734: FND_MSG_PUB.Count_AND_Get
735: ( p_count => x_msg_count,
736: p_data => x_msg_data
737: );
738:
740:
741: WHEN FND_API.G_EXC_ERROR THEN
742: ROLLBACK TO sp_wip_wol_GRP;
743: x_return_status := FND_API.G_RET_STS_ERROR ;
744: FND_MSG_PUB.Count_AND_Get
745: ( p_count => x_msg_count,
746: p_data => x_msg_data
747: );
748:
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: ROLLBACK TO sp_wip_wol_grp;
751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
752: FND_MSG_PUB.Count_AND_Get
753: ( p_count => x_msg_count,
754: p_data => x_msg_data
755: );
756:
757: WHEN DEP_REL_EXIST_EXCEPTION THEN
758: ROLLBACK to sp_wip_wol_grp;
759: x_return_status := FND_API.G_RET_STS_ERROR;
760: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_CHILD_DEP_REL_EXIST');
761: FND_MSG_PUB.Add;
762: FND_MSG_PUB.Count_AND_Get
763: ( p_count => x_msg_count,
764: p_data => x_msg_data
765: );
758: ROLLBACK to sp_wip_wol_grp;
759: x_return_status := FND_API.G_RET_STS_ERROR;
760: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_CHILD_DEP_REL_EXIST');
761: FND_MSG_PUB.Add;
762: FND_MSG_PUB.Count_AND_Get
763: ( p_count => x_msg_count,
764: p_data => x_msg_data
765: );
766:
767: WHEN NO_SUCH_RELID_EXCEPTION THEN
768: ROLLBACK to sp_wip_wol_grp;
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_NO_SUCH_REL_ID');
771: FND_MSG_PUB.Add;
772: FND_MSG_PUB.Count_AND_Get
773: ( p_count => x_msg_count,
774: p_data => x_msg_data
775: );
768: ROLLBACK to sp_wip_wol_grp;
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_NO_SUCH_REL_ID');
771: FND_MSG_PUB.Add;
772: FND_MSG_PUB.Count_AND_Get
773: ( p_count => x_msg_count,
774: p_data => x_msg_data
775: );
776:
778: THEN
779: ROLLBACK to sp_wip_wol_grp;
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_DELETE_FAIL');
782: FND_MSG_PUB.Add;
783: FND_MSG_PUB.Count_AND_Get
784: ( p_count => x_msg_count,
785: p_data => x_msg_data
786: );
779: ROLLBACK to sp_wip_wol_grp;
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: FND_MESSAGE.SET_name('WIP', 'WIP_WOL_DELETE_FAIL');
782: FND_MSG_PUB.Add;
783: FND_MSG_PUB.Count_AND_Get
784: ( p_count => x_msg_count,
785: p_data => x_msg_data
786: );
787:
787:
788: WHEN OTHERS THEN
789: ROLLBACK TO sp_wip_wol_grp;
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
791: IF FND_MSG_PUB.Check_Msg_Level
792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: FND_MSG_PUB.Add_Exc_Msg
795: ( G_PKG_NAME,
788: WHEN OTHERS THEN
789: ROLLBACK TO sp_wip_wol_grp;
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
791: IF FND_MSG_PUB.Check_Msg_Level
792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: FND_MSG_PUB.Add_Exc_Msg
795: ( G_PKG_NAME,
796: l_api_name
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
791: IF FND_MSG_PUB.Check_Msg_Level
792: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: FND_MSG_PUB.Add_Exc_Msg
795: ( G_PKG_NAME,
796: l_api_name
797: );
798: END IF;
795: ( G_PKG_NAME,
796: l_api_name
797: );
798: END IF;
799: FND_MSG_PUB.Count_AND_Get
800: ( p_count => x_msg_count,
801: p_data => x_msg_data
802: );
803: