create procedure sys.sp_MSsetsubscriberinfo
    (@pubid uniqueidentifier, @expr nvarchar(500))
as
    -- Security Checking
    -- PAL users have access
    if ({fn ISPALUSER(@pubid)} <> 1)
    begin
        if (@pubid is NULL)
        begin
            RAISERROR (21723, 16, -1, 'sp_MSsetsubscriberinfo')
            return 1
        end
        else
        begin
            RAISERROR (14126, 11, -1)
            return 1
        end
    end

    update dbo.sysmergepublications set validate_subscriber_info = @expr where pubid = @pubid