XML по максимуму: добейтесь большего от SQL Server

<Errors>
<Error ErrorMessage="JA exists in Countries"
  FieldName="CountryCode"/>
<Error ErrorMessage="BO1 does not exist in Countries"
  FieldName="CountryCode"/>
<Error ErrorMessage="EN does not exist in ContactPreferences"
  FieldName="ContactPreferenceCode"/>
</Errors>

create procedure sptxValidateLookupData
@XMLString ntext
as

set nocount on

declare @idoc int, @Name nvarchar(30), @Value nvarchar(300),
        @Test nvarchar(30), @Result int, @Type nvarchar(30),
        @TestResult int

--    Готовим входные XML-данные к выборке с помощью OPENXML
exec sp_xml_preparedocument @idoc OUTPUT, @XMLString

--  Создаем табличную переменную для хранения
--  данных о проверках
declare @tempValidateLookupData table (
    [Type] nvarchar(30),
    [Name] nvarchar(30),
    [Value] nvarchar(300),
    [Test] nvarchar(30),
    [TestResult] int
)

--  Заполняем табличную переменную данными о проверках,
--  которые требуется выполнить
insert @tempValidateLookupData
select [Type], [Name], [Value], [Test], NULL
    from OPENXML (@idoc, '/ValidateData/Validate')
    with ([Type] nvarchar(30), [Name] nvarchar(30),
        [Value] nvarchar(300), [Test] nvarchar(30))

OPENXML(idoc int [in],rowpattern nvarchar[in],[flags byte[in]])
[WITH (SchemaDeclaration | TableName)]

--  Заполняем табличную переменную данными о проверках,
--  которые требуется выполнить
insert @tempValidateLookupData
select [Type], [Name], [Value], [Test], NULL
    from OPENXML (@idoc, '/ValidateData/Validate')
    with ([Type] nvarchar(30), [Name] nvarchar(30),
    [Value] nvarchar(300), [Test] nvarchar(30))

--    Освобождаем память сервера, которая используется
--    образом входных XML-данных, созданным OPENXML
exec sp_xml_removedocument @idoc

--  Заносим результаты проверок в табличную переменную,
--  перебирая записи, у которых поле TestResult содержит NULL
while exists (select TestResult from @tempValidateLookupData
    where TestResult is null) begin

--  Извлекаем данные из записи, проверяемой на допустимость
    Select top 1 @Type=[Type], @Name=[Name], @Value=Value,
        @Test=Test
        from @tempValidateLookupData
        where TestResult is null

--  И выполняем соответствующую проверку...

--  Проверка для области Countries (взята в качестве примера)
    if    @Type = 'Countries' begin
        if exists (select CountryCode from dbo.Country where
            CountryCode = convert(nvarchar(4), @Value))
            select    @TestResult =
            CASE    when @Test = 'Exists' then 1
                else 0
            end
        else
            select    @TestResult =
            CASE    when @Test = 'Not Exists' then 1
                else 0
            end
    end

--  (16 других проверок на допустимость опущены для краткости)

--  Обновляем соответствующую запись: заносим в нее результат
--  проверки
    update   @tempValidateLookupData
    set      TestResult = @TestResult
    where    Name = @Name
    and      Value = @Value
    and      Test = @Test
end

[ElementName!TagNumber!AttributeName!Directive]