USP_REVENUE_GETSOLICITORS_UPDATEFROMXML

Update solicitors on a given revenue detail record.

Parameters

Parameter Parameter Type Mode Description
@REVENUESPLITID uniqueidentifier IN
@XML xml IN
@CHANGEAGENTID uniqueidentifier IN
@CHANGEDATE datetime IN

Definition

Copy


            CREATE procedure dbo.USP_REVENUE_GETSOLICITORS_UPDATEFROMXML
            (
                @REVENUESPLITID uniqueidentifier,
                @XML xml,
                @CHANGEAGENTID uniqueidentifier = null,
                @CHANGEDATE datetime = null
            )
            as

                set nocount on;

                if @CHANGEAGENTID is null
                    exec USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

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

                -- build a temporary table containing the values from the XML

                declare @TempTbl table (
                   [AMOUNT] money,
                   [CONSTITUENTID] uniqueidentifier,
                   [ID] uniqueidentifier,
                   [BUSINESSUNITCODEID] uniqueidentifier,
                   [SEQUENCE] int)

                insert into @TempTbl([AMOUNT], [CONSTITUENTID], [ID], [SEQUENCE]) select 
                    [AMOUNT],
                    [CONSTITUENTID],
                    [ID],
                    [SEQUENCE
                from dbo.UFN_REVENUE_GETSOLICITORS_FROMITEMLISTXML(@XML)

                update @TempTbl set ID = newid() where (ID is null) or (ID = '00000000-0000-0000-0000-000000000000');

                -- Update the BUSINESSUNITCODEID here

                declare @REVENUEDATE datetime;
                select 
                    @REVENUEDATE = REVENUE.[DATE]
                from 
                    dbo.REVENUESPLIT
                    inner join dbo.REVENUE on REVENUE.ID = REVENUESPLIT.REVENUEID
                where REVENUESPLIT.ID = @REVENUESPLITID;

                with CONSTITUENTBUSINESSUNIT as (
                    select
                        ORGANIZATIONPOSITIONHOLDER.CONSTITUENTID,
                        ORGANIZATIONPOSITION.BUSINESSUNITCODEID
                    from
                        dbo.ORGANIZATIONPOSITIONHOLDER
                        inner join dbo.ORGANIZATIONPOSITION on ORGANIZATIONPOSITION.ID = ORGANIZATIONPOSITIONHOLDER.POSITIONID
                    where
                        (@REVENUEDATE between ORGANIZATIONPOSITIONHOLDER.DATEFROM and ORGANIZATIONPOSITIONHOLDER.DATETO)
                        or (ORGANIZATIONPOSITIONHOLDER.DATETO is null and @REVENUEDATE >= ORGANIZATIONPOSITIONHOLDER.DATEFROM)        
                )
                update 
                    @TempTbl
                set 
                    BUSINESSUNITCODEID = CONSTITUENTBUSINESSUNIT.BUSINESSUNITCODEID
                from
                    @TempTbl [SOLICITORS]
                    inner join CONSTITUENTBUSINESSUNIT on CONSTITUENTBUSINESSUNIT.CONSTITUENTID = SOLICITORS.CONSTITUENTID
                where
                    ID = [SOLICITORS].ID;

                if @@Error <> 0
                    return 1;

                declare @contextCache varbinary(128);
                declare @e int;

                -- cache current context information 

                set @contextCache = context_info();

                -- set CONTEXT_INFO to @CHANGEAGENTID 

                if not @CHANGEAGENTID is null
                    set context_info @CHANGEAGENTID;

                -- delete any items that no longer exist in the XML table

                delete from dbo.[REVENUESOLICITOR] where [REVENUESOLICITOR].ID in 
                    (select ID from dbo.UFN_REVENUE_GETSOLICITORS
                    (
                        @REVENUESPLITID
                    )
                    except select ID from @TempTbl)    

                select @e=@@error;

                -- reset CONTEXT_INFO to previous value 

                if not @contextCache is null
                    set context_info @contextCache;

                if @e <> 0
                    return 2;

                -- update the items that exist in the XML table and the db

                update [REVENUESOLICITOR]
                    set [REVENUESOLICITOR].[AMOUNT] = temp.[AMOUNT],
                        [REVENUESOLICITOR].[CONSTITUENTID] = temp.[CONSTITUENTID],
                        [REVENUESOLICITOR].[BUSINESSUNITCODEID] = temp.[BUSINESSUNITCODEID],
                        [REVENUESOLICITOR].[SEQUENCE] = temp.[SEQUENCE],
                        [REVENUESOLICITOR].CHANGEDBYID = @CHANGEAGENTID,
                        [REVENUESOLICITOR].DATECHANGED = @CHANGEDATE
                    from dbo.[REVENUESOLICITOR] inner join @TempTbl as [temp] on [REVENUESOLICITOR].ID = [temp].ID
                    where 
                        ([REVENUESOLICITOR].[AMOUNT] <> temp.[AMOUNT]) or 
                        ([REVENUESOLICITOR].[AMOUNT] is null and temp.[AMOUNT] is not null) or 
                        ([REVENUESOLICITOR].[AMOUNT] is not null and temp.[AMOUNT] is null) or 
                        ([REVENUESOLICITOR].[CONSTITUENTID] <> temp.[CONSTITUENTID]) or 
                        ([REVENUESOLICITOR].[CONSTITUENTID] is null and temp.[CONSTITUENTID] is not null) or 
                        ([REVENUESOLICITOR].[CONSTITUENTID] is not null and temp.[CONSTITUENTID] is null) or 
                        ([REVENUESOLICITOR].[BUSINESSUNITCODEID] <> temp.[BUSINESSUNITCODEID]) or 
                        ([REVENUESOLICITOR].[BUSINESSUNITCODEID] is null and temp.[BUSINESSUNITCODEID] is not null) or 
                        ([REVENUESOLICITOR].[BUSINESSUNITCODEID] is not null and temp.[BUSINESSUNITCODEID] is null) or
                        ([REVENUESOLICITOR].[SEQUENCE] <> temp.[SEQUENCE]) or 
                        ([REVENUESOLICITOR].[SEQUENCE] is null and temp.[SEQUENCE] is not null) or 
                        ([REVENUESOLICITOR].[SEQUENCE] is not null and temp.[SEQUENCE] is null)

                if @@Error <> 0
                    return 3;    

                -- insert new items

                insert into [REVENUESOLICITOR] 
                    ([REVENUESPLITID], 
                    [AMOUNT],
                    [CONSTITUENTID],
                    [ID],
                    [BUSINESSUNITCODEID],
                    [SEQUENCE],                
                    ADDEDBYID, 
                    CHANGEDBYID, 
                    DATEADDED, 
                    DATECHANGED)
                select @REVENUESPLITID
                    [AMOUNT],
                    [CONSTITUENTID],
                    [ID],
                    [BUSINESSUNITCODEID],
                    [SEQUENCE], 
                    @CHANGEAGENTID
                    @CHANGEAGENTID
                    @CHANGEDATE
                    @CHANGEDATE
                from @TempTbl as [temp]
                where not exists (select ID from dbo.[REVENUESOLICITOR] as data where data.ID = [temp].ID)

                if @@Error <> 0
                    return 4;

                return 0;