654: --
655:
656: RETCODE := l_RETCODE;
657: IF ( l_RETCODE = G_SUCCESS ) THEN
658: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_SUCCESS');
659: ELSIF ( l_RETCODE = G_WARNING ) THEN
660: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_WARNING');
661: ELSE
662: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
656: RETCODE := l_RETCODE;
657: IF ( l_RETCODE = G_SUCCESS ) THEN
658: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_SUCCESS');
659: ELSIF ( l_RETCODE = G_WARNING ) THEN
660: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_WARNING');
661: ELSE
662: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
663: END IF;
664:
658: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_SUCCESS');
659: ELSIF ( l_RETCODE = G_WARNING ) THEN
660: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_WARNING');
661: ELSE
662: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
663: END IF;
664:
665: EXCEPTION
666:
665: EXCEPTION
666:
667: WHEN Processing_Error THEN
668: RETCODE := G_ERROR;
669: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
670:
671: -- Write all accumulated messages
672: INV_ITEM_MSG.Write_List (p_delete => TRUE);
673:
677: END IF;
678:
679: WHEN others THEN
680: RETCODE := G_ERROR;
681: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
682:
683: l_err_text := SUBSTRB(SQLERRM, 1,240);
684:
685: INV_ITEM_MSG.Add_Message