USP_SYSTEMROLE_UPDATEFROMBUSINESSPROCESSLIST

Updates business process 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
@BUSINESSPROCESSLIST xml IN
@BUSINESSPROCESSLIST_DELETED xml IN

Definition

Copy


create procedure dbo.USP_SYSTEMROLE_UPDATEFROMBUSINESSPROCESSLIST
(
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier,
    @CHANGEDATE datetime,
    @BUSINESSPROCESSLIST xml = null,
    @BUSINESSPROCESSLIST_DELETED xml = null
)
as
begin

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

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

    if @BUSINESSPROCESSLIST is not null
    begin

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

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

        update dbo.[SYSTEMROLEPERM_BUSINESSPROCESS] set 
            [SYSTEMROLEPERM_BUSINESSPROCESS].GRANTORDENY = temp.GRANTORDENY,
            [SYSTEMROLEPERM_BUSINESSPROCESS].CHANGEDBYID = @CHANGEAGENTID,
            [SYSTEMROLEPERM_BUSINESSPROCESS].DATECHANGED = @CHANGEDATE
        from @BUSINESSPROCESSTABLE as [temp]
        where
            [SYSTEMROLEPERM_BUSINESSPROCESS].ID = [temp].ID and
            [SYSTEMROLEPERM_BUSINESSPROCESS].BUSINESSPROCESSCATALOGID = [temp].BUSINESSPROCESSCATALOGID and
            [SYSTEMROLEPERM_BUSINESSPROCESS].GRANTORDENY <> [temp].GRANTORDENY

    end

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


        delete from dbo.[SYSTEMROLEPERM_BUSINESSPROCESS] 
        where 
            [SYSTEMROLEPERM_BUSINESSPROCESS].ID in 
            (
                select ID from @BUSINESSPROCESSTABLE_DELETED
            )

    end

end