595: Exception
596: When validation_error then
597:
598: if error_code = 'BOOK_TYPE_CODE' then
599: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_INEFFECTIVE_BOOK');
600: x_msg_data := fnd_message.get;
601:
602: elsif error_code = 'CATEGORY' then
603: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_CATBOOK_NOT_DEFINED');
596: When validation_error then
597:
598: if error_code = 'BOOK_TYPE_CODE' then
599: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_INEFFECTIVE_BOOK');
600: x_msg_data := fnd_message.get;
601:
602: elsif error_code = 'CATEGORY' then
603: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_CATBOOK_NOT_DEFINED');
604: x_msg_data := fnd_message.get;
599: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_INEFFECTIVE_BOOK');
600: x_msg_data := fnd_message.get;
601:
602: elsif error_code = 'CATEGORY' then
603: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_CATBOOK_NOT_DEFINED');
604: x_msg_data := fnd_message.get;
605:
606: elsif error_code = 'RETIREMENT_TYPE_CODE' then
607: x_msg_data := 'Retirement Type is incorrect';
600: x_msg_data := fnd_message.get;
601:
602: elsif error_code = 'CATEGORY' then
603: FND_MESSAGE.SET_NAME('OFA', 'FA_BOOK_CATBOOK_NOT_DEFINED');
604: x_msg_data := fnd_message.get;
605:
606: elsif error_code = 'RETIREMENT_TYPE_CODE' then
607: x_msg_data := 'Retirement Type is incorrect';
608: --
606: elsif error_code = 'RETIREMENT_TYPE_CODE' then
607: x_msg_data := 'Retirement Type is incorrect';
608: --
609: elsif error_code = 'RETIREMENT_DATE' then
610: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
611: x_msg_data := fnd_message.get;
612:
613: elsif error_code = 'RETIREMENT_DATE2' then
614: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_DATE_MUSTBE_IN_CUR_FY');
607: x_msg_data := 'Retirement Type is incorrect';
608: --
609: elsif error_code = 'RETIREMENT_DATE' then
610: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
611: x_msg_data := fnd_message.get;
612:
613: elsif error_code = 'RETIREMENT_DATE2' then
614: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_DATE_MUSTBE_IN_CUR_FY');
615: x_msg_data := fnd_message.get;
610: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
611: x_msg_data := fnd_message.get;
612:
613: elsif error_code = 'RETIREMENT_DATE2' then
614: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_DATE_MUSTBE_IN_CUR_FY');
615: x_msg_data := fnd_message.get;
616:
617: elsif error_code = 'STATUS' then
618: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_UNKNOWN_STATUS');
611: x_msg_data := fnd_message.get;
612:
613: elsif error_code = 'RETIREMENT_DATE2' then
614: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_DATE_MUSTBE_IN_CUR_FY');
615: x_msg_data := fnd_message.get;
616:
617: elsif error_code = 'STATUS' then
618: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_UNKNOWN_STATUS');
619: FND_MESSAGE.SET_TOKEN('STATUS',l_status, false);
614: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_DATE_MUSTBE_IN_CUR_FY');
615: x_msg_data := fnd_message.get;
616:
617: elsif error_code = 'STATUS' then
618: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_UNKNOWN_STATUS');
619: FND_MESSAGE.SET_TOKEN('STATUS',l_status, false);
620: x_msg_data := fnd_message.get;
621:
622: elsif error_code = 'TAX' then
615: x_msg_data := fnd_message.get;
616:
617: elsif error_code = 'STATUS' then
618: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_UNKNOWN_STATUS');
619: FND_MESSAGE.SET_TOKEN('STATUS',l_status, false);
620: x_msg_data := fnd_message.get;
621:
622: elsif error_code = 'TAX' then
623: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_COST_ONLY');
616:
617: elsif error_code = 'STATUS' then
618: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_UNKNOWN_STATUS');
619: FND_MESSAGE.SET_TOKEN('STATUS',l_status, false);
620: x_msg_data := fnd_message.get;
621:
622: elsif error_code = 'TAX' then
623: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_COST_ONLY');
624: x_msg_data := fnd_message.get;
619: FND_MESSAGE.SET_TOKEN('STATUS',l_status, false);
620: x_msg_data := fnd_message.get;
621:
622: elsif error_code = 'TAX' then
623: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_COST_ONLY');
624: x_msg_data := fnd_message.get;
625:
626: elsif error_code = 'UNITS' then
627: FND_MESSAGE.SET_NAME('OFA', 'FA_UNT_ADJ_VAL_CUR_UNTS');
620: x_msg_data := fnd_message.get;
621:
622: elsif error_code = 'TAX' then
623: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_COST_ONLY');
624: x_msg_data := fnd_message.get;
625:
626: elsif error_code = 'UNITS' then
627: FND_MESSAGE.SET_NAME('OFA', 'FA_UNT_ADJ_VAL_CUR_UNTS');
628: x_msg_data := fnd_message.get;
623: FND_MESSAGE.SET_NAME('OFA', 'FA_RET_COST_ONLY');
624: x_msg_data := fnd_message.get;
625:
626: elsif error_code = 'UNITS' then
627: FND_MESSAGE.SET_NAME('OFA', 'FA_UNT_ADJ_VAL_CUR_UNTS');
628: x_msg_data := fnd_message.get;
629:
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
624: x_msg_data := fnd_message.get;
625:
626: elsif error_code = 'UNITS' then
627: FND_MESSAGE.SET_NAME('OFA', 'FA_UNT_ADJ_VAL_CUR_UNTS');
628: x_msg_data := fnd_message.get;
629:
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
632: FND_MESSAGE.SET_TOKEN('VALUE', l_yesno, false);
627: FND_MESSAGE.SET_NAME('OFA', 'FA_UNT_ADJ_VAL_CUR_UNTS');
628: x_msg_data := fnd_message.get;
629:
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
632: FND_MESSAGE.SET_TOKEN('VALUE', l_yesno, false);
633: FND_MESSAGE.SET_TOKEN('XMLTAG', 'SUBCOMPONENTS', false);
634: x_msg_data := fnd_message.get;
635:
628: x_msg_data := fnd_message.get;
629:
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
632: FND_MESSAGE.SET_TOKEN('VALUE', l_yesno, false);
633: FND_MESSAGE.SET_TOKEN('XMLTAG', 'SUBCOMPONENTS', false);
634: x_msg_data := fnd_message.get;
635:
636: elsif error_code = 'ASSET TYPE' then
629:
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
632: FND_MESSAGE.SET_TOKEN('VALUE', l_yesno, false);
633: FND_MESSAGE.SET_TOKEN('XMLTAG', 'SUBCOMPONENTS', false);
634: x_msg_data := fnd_message.get;
635:
636: elsif error_code = 'ASSET TYPE' then
637: FND_MESSAGE.SET_NAME('OFA', 'FA_DPR_BAD_ASSET_TYPE');
630: elsif error_code = 'SUBCOMPONENTS' then
631: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
632: FND_MESSAGE.SET_TOKEN('VALUE', l_yesno, false);
633: FND_MESSAGE.SET_TOKEN('XMLTAG', 'SUBCOMPONENTS', false);
634: x_msg_data := fnd_message.get;
635:
636: elsif error_code = 'ASSET TYPE' then
637: FND_MESSAGE.SET_NAME('OFA', 'FA_DPR_BAD_ASSET_TYPE');
638: x_msg_data := fnd_message.get;
633: FND_MESSAGE.SET_TOKEN('XMLTAG', 'SUBCOMPONENTS', false);
634: x_msg_data := fnd_message.get;
635:
636: elsif error_code = 'ASSET TYPE' then
637: FND_MESSAGE.SET_NAME('OFA', 'FA_DPR_BAD_ASSET_TYPE');
638: x_msg_data := fnd_message.get;
639:
640: elsif error_code = 'FULLY_RSVD' then
641: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
634: x_msg_data := fnd_message.get;
635:
636: elsif error_code = 'ASSET TYPE' then
637: FND_MESSAGE.SET_NAME('OFA', 'FA_DPR_BAD_ASSET_TYPE');
638: x_msg_data := fnd_message.get;
639:
640: elsif error_code = 'FULLY_RSVD' then
641: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
642: x_msg_data := fnd_message.get;
637: FND_MESSAGE.SET_NAME('OFA', 'FA_DPR_BAD_ASSET_TYPE');
638: x_msg_data := fnd_message.get;
639:
640: elsif error_code = 'FULLY_RSVD' then
641: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
642: x_msg_data := fnd_message.get;
643:
644: elsif error_code = 'LOCATION' then
645: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_LOCATION');
638: x_msg_data := fnd_message.get;
639:
640: elsif error_code = 'FULLY_RSVD' then
641: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
642: x_msg_data := fnd_message.get;
643:
644: elsif error_code = 'LOCATION' then
645: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_LOCATION');
646: x_msg_data := fnd_message.get;
641: FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_INVALID_YESNO');
642: x_msg_data := fnd_message.get;
643:
644: elsif error_code = 'LOCATION' then
645: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_LOCATION');
646: x_msg_data := fnd_message.get;
647:
648: elsif error_code = 'EMPLOYEE' then
649: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSIGNED_TO');
642: x_msg_data := fnd_message.get;
643:
644: elsif error_code = 'LOCATION' then
645: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_LOCATION');
646: x_msg_data := fnd_message.get;
647:
648: elsif error_code = 'EMPLOYEE' then
649: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSIGNED_TO');
650: x_msg_data := fnd_message.get;
645: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_LOCATION');
646: x_msg_data := fnd_message.get;
647:
648: elsif error_code = 'EMPLOYEE' then
649: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSIGNED_TO');
650: x_msg_data := fnd_message.get;
651:
652: elsif error_code = 'KEY' then
653: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSET_KEY');
646: x_msg_data := fnd_message.get;
647:
648: elsif error_code = 'EMPLOYEE' then
649: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSIGNED_TO');
650: x_msg_data := fnd_message.get;
651:
652: elsif error_code = 'KEY' then
653: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSET_KEY');
654: FND_MESSAGE.SET_TOKEN('ASSET_KEY_CCID', l_asset_key_id, false);
649: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSIGNED_TO');
650: x_msg_data := fnd_message.get;
651:
652: elsif error_code = 'KEY' then
653: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSET_KEY');
654: FND_MESSAGE.SET_TOKEN('ASSET_KEY_CCID', l_asset_key_id, false);
655: x_msg_data := fnd_message.get;
656:
657: elsif error_code = 'COST' then
650: x_msg_data := fnd_message.get;
651:
652: elsif error_code = 'KEY' then
653: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSET_KEY');
654: FND_MESSAGE.SET_TOKEN('ASSET_KEY_CCID', l_asset_key_id, false);
655: x_msg_data := fnd_message.get;
656:
657: elsif error_code = 'COST' then
658: FND_MESSAGE.SET_NAME('OFA', 'FA_FE_CANT_CALC_COST_RET');
651:
652: elsif error_code = 'KEY' then
653: FND_MESSAGE.SET_NAME('OFA', 'FA_INCORRECT_ASSET_KEY');
654: FND_MESSAGE.SET_TOKEN('ASSET_KEY_CCID', l_asset_key_id, false);
655: x_msg_data := fnd_message.get;
656:
657: elsif error_code = 'COST' then
658: FND_MESSAGE.SET_NAME('OFA', 'FA_FE_CANT_CALC_COST_RET');
659: x_msg_data := fnd_message.get;
654: FND_MESSAGE.SET_TOKEN('ASSET_KEY_CCID', l_asset_key_id, false);
655: x_msg_data := fnd_message.get;
656:
657: elsif error_code = 'COST' then
658: FND_MESSAGE.SET_NAME('OFA', 'FA_FE_CANT_CALC_COST_RET');
659: x_msg_data := fnd_message.get;
660:
661: elsif error_code = 'FROM ASSET' then
662: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
655: x_msg_data := fnd_message.get;
656:
657: elsif error_code = 'COST' then
658: FND_MESSAGE.SET_NAME('OFA', 'FA_FE_CANT_CALC_COST_RET');
659: x_msg_data := fnd_message.get;
660:
661: elsif error_code = 'FROM ASSET' then
662: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
663: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
658: FND_MESSAGE.SET_NAME('OFA', 'FA_FE_CANT_CALC_COST_RET');
659: x_msg_data := fnd_message.get;
660:
661: elsif error_code = 'FROM ASSET' then
662: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
663: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
664: l_from_asset_no , false);
665: x_msg_data := fnd_message.get;
666:
659: x_msg_data := fnd_message.get;
660:
661: elsif error_code = 'FROM ASSET' then
662: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
663: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
664: l_from_asset_no , false);
665: x_msg_data := fnd_message.get;
666:
667: elsif error_code = 'TO ASSET' then
661: elsif error_code = 'FROM ASSET' then
662: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
663: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
664: l_from_asset_no , false);
665: x_msg_data := fnd_message.get;
666:
667: elsif error_code = 'TO ASSET' then
668: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
669: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
664: l_from_asset_no , false);
665: x_msg_data := fnd_message.get;
666:
667: elsif error_code = 'TO ASSET' then
668: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
669: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
670: l_to_asset_no, false);
671: x_msg_data := fnd_message.get;
672:
665: x_msg_data := fnd_message.get;
666:
667: elsif error_code = 'TO ASSET' then
668: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
669: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
670: l_to_asset_no, false);
671: x_msg_data := fnd_message.get;
672:
673: elsif error_code = 'DPIS' then
667: elsif error_code = 'TO ASSET' then
668: FND_MESSAGE.SET_NAME('OFA', 'FA_REV_FAILED');
669: FND_MESSAGE.SET_TOKEN('ASSET_NUMBER',
670: l_to_asset_no, false);
671: x_msg_data := fnd_message.get;
672:
673: elsif error_code = 'DPIS' then
674: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
675: x_msg_data := fnd_message.get;
670: l_to_asset_no, false);
671: x_msg_data := fnd_message.get;
672:
673: elsif error_code = 'DPIS' then
674: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
675: x_msg_data := fnd_message.get;
676: end if;
677:
678: x_return_status := 2;
671: x_msg_data := fnd_message.get;
672:
673: elsif error_code = 'DPIS' then
674: FND_MESSAGE.SET_NAME('OFA', 'FA_SHARED_CANNOT_FUTURE');
675: x_msg_data := fnd_message.get;
676: end if;
677:
678: x_return_status := 2;
679: Rollback;