USP_SYSTEMROLE_UPDATEFROMRECORDOPLIST

Updates record operation permissions for a given system role ID, xml for items updated, and xml for items deleted.

Parameters

Parameter Parameter Type Mode Description
@ID uniqueidentifier IN
@CHANGEAGENTID uniqueidentifier IN
@CHANGEDATE datetime IN
@RECORDOPERATIONLIST xml IN
@RECORDOPERATIONLIST_DELETED xml IN

Definition

Copy


create procedure dbo.USP_SYSTEMROLE_UPDATEFROMRECORDOPLIST
(
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier,
    @CHANGEDATE datetime,
    @RECORDOPERATIONLIST xml = null,
    @RECORDOPERATIONLIST_DELETED xml = null
)
as
begin

    if @CHANGEAGENTID is null  
        exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

    if @CHANGEDATE is null
        set @CHANGEDATE = getdate();

    if @RECORDOPERATIONLIST is not null
    begin

        declare @RECORDOPTABLE table
        (
            ID uniqueidentifier,
            RECORDOPERATIONCATALOGID uniqueidentifier,
            GRANTORDENY bit
        )
        insert into @RECORDOPTABLE
        select
            T.c.value('(ID)[1]','uniqueidentifier') AS 'ID',
            T.c.value('(RECORDOPERATIONCATALOGID)[1]','uniqueidentifier') AS 'RECORDOPERATIONCATALOGID',
            T.c.value('(GRANTORDENY)[1]','bit') AS 'GRANTORDENY'
        from @RECORDOPERATIONLIST.nodes('/RECORDOPERATIONLIST/ITEM') T(c)

        insert into dbo.SYSTEMROLEPERM_RECORDOPERATION 
        (
            SYSTEMROLEID,
            GRANTORDENY,
            ID,
            RECORDOPERATIONCATALOGID,
            ADDEDBYID,
            CHANGEDBYID,
            DATEADDED,
            DATECHANGED
        )
        select 
            @ID,
            GRANTORDENY,
            ID,
            RECORDOPERATIONCATALOGID,
            @CHANGEAGENTID,
            @CHANGEAGENTID,
            @CHANGEDATE,
            @CHANGEDATE
        from @RECORDOPTABLE as [temp]
        where 
            not exists 
            (
                select ID from dbo.SYSTEMROLEPERM_RECORDOPERATION as data 
                where data.ID = [temp].ID
            )

        update dbo.[SYSTEMROLEPERM_RECORDOPERATION] set 
            [SYSTEMROLEPERM_RECORDOPERATION].GRANTORDENY = temp.GRANTORDENY,
            [SYSTEMROLEPERM_RECORDOPERATION].CHANGEDBYID = @CHANGEAGENTID,
            [SYSTEMROLEPERM_RECORDOPERATION].DATECHANGED = @CHANGEDATE
        from @RECORDOPTABLE as [temp]
        where
            [SYSTEMROLEPERM_RECORDOPERATION].ID = [temp].ID and
            [SYSTEMROLEPERM_RECORDOPERATION].RECORDOPERATIONCATALOGID = [temp].RECORDOPERATIONCATALOGID and
            [SYSTEMROLEPERM_RECORDOPERATION].GRANTORDENY <> [temp].GRANTORDENY

    end

    if @RECORDOPERATIONLIST_DELETED is not null
    begin
        declare @RECORDOPTABLE_DELETED table
        (
            ID uniqueidentifier
        )
        insert into @RECORDOPTABLE_DELETED
        select
            T.c.value('(ID)[1]','uniqueidentifier') AS 'ID'
        from @RECORDOPERATIONLIST_DELETED.nodes('/RECORDOPERATIONLIST_DELETED/ITEM') T(c)


        delete from dbo.[SYSTEMROLEPERM_RECORDOPERATION] 
        where 
            [SYSTEMROLEPERM_RECORDOPERATION].ID in 
            (
                select ID from @RECORDOPTABLE_DELETED
            )

    end

end