3285: ROLLBACK TO SAVEPOINT sp_accrual;
3286: retcode := -1;
3287: FND_MESSAGE.Set_Name('XTR', 'XTR_REVAL_AUTH');
3288: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
3289: APP_EXCEPTION.Raise_exception;
3290: when others then
3291: ROLLBACK TO SAVEPOINT sp_accrual;
3292: retcode := -1;
3293: RAISE;