USP_DATAFORMTEMPLATE_EDIT_PLEDGEADJUST

                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_PLEDGEADJUST
                    (
                        @ID uniqueidentifier,
                        @CHANGEAGENTID uniqueidentifier = null,
                        @DATE datetime,
                        @AMOUNT money,
                        @SENDPLEDGEREMINDER bit,
                        @SPLITS xml,
                        @FREQUENCYCODE tinyint,
                        @NUMBEROFINSTALLMENTS int,
                        @STARTDATE datetime,
                        @INSTALLMENTS xml,
                        @ADJUSTMENTDATE datetime,
                        @ADJUSTMENTPOSTDATE datetime,
                        @ADJUSTMENTREASON nvarchar(300),
                        @FINDERNUMBER bigint,
                        @SOURCECODE nvarchar(50),
                        @APPEALID uniqueidentifier,
                        @BENEFITS xml,
                        @BENEFITSWAIVED bit,
                        @GIVENANONYMOUSLY bit,
                        @MAILINGID uniqueidentifier,
                        @CHANNELCODEID uniqueidentifier,
                        @DONOTACKNOWLEDGE bit,
                        @PLEDGESUBTYPEID uniqueidentifier
                    )
                    as
                    set nocount on;

                    declare @CURRENTDATE datetime;
                    declare @SUM money;
                    declare @COUNT int;                    
                    declare @ADJUST bit
                    declare @ADJUSTMENTID uniqueidentifier;
                    declare @AMOUNTORSPLITSCHANGED bit;
                    declare @CLEARWRITEOFFDISTRIBUTION bit;

                    set @CURRENTDATE = GetDate();
                    set @AMOUNTORSPLITSCHANGED = 0;
                    set @CLEARWRITEOFFDISTRIBUTION = 0;

                    begin try
                        if @FINDERNUMBER is null
                            set @FINDERNUMBER = 0;
                        else if @FINDERNUMBER <> 0
                            begin
                                if dbo.[UFN_MKTFINDERNUMBER_VALIDATE_MOD10](@FINDERNUMBER) = 0
                                    raiserror('BBERR_FINDERNUMBER_FAILEDCHECKDIGIT', 13, 1);

                                if dbo.[UFN_MKTSEGMENTATIONFINDERNUMBER_GETSEGMENTATION](@FINDERNUMBER) is null
                                    raiserror('BBERR_FINDERNUMBER_INVALID', 13, 1);
                            end

                        set @ADJUST = 0
                        set @ADJUSTMENTID = null;

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

                        /* Check if designations changed */
                        if dbo.UFN_CHECKDETAIL_SPLITSCHANGED(@ID, @SPLITS) = 1
                        begin
                            set @ADJUST = 1;
                            set @AMOUNTORSPLITSCHANGED = 1;
                            set @CLEARWRITEOFFDISTRIBUTION = 1;
                        end

                        /* Check if amount changed */
                        if @ADJUST = 0
                            if (select AMOUNT from dbo.REVENUE where ID = @ID) <> @AMOUNT
                            begin
                                set @ADJUST = 1;
                                set @AMOUNTORSPLITSCHANGED = 1;
                            end

                        /* Already adjusted */
                        if @ADJUST = 0
                            if (select COUNT(ADJUSTMENT.ID) from dbo.ADJUSTMENT where REVENUEID = @ID and POSTSTATUSCODE = 1) > 0
                                set @ADJUST = 1

                        /* If there was a change to GL related data log an adjustment */
                        if @ADJUST = 1
                        begin
                            -- do not allow the pledge amount to be adjusted less than the applied tribute amount

                            declare @TRIBUTEAMOUNT money;
                            select @TRIBUTEAMOUNT = sum(AMOUNT) from dbo.REVENUETRIBUTE where REVENUEID = @ID;

                            if (@TRIBUTEAMOUNT is not null) and (@AMOUNT < @TRIBUTEAMOUNT)
                            begin
                                raiserror('The pledge amount cannot be less than the sum of the tribute amounts applied to this pledge.', 13, 1)
                            end

                            exec dbo.USP_SAVE_ADJUSTMENT @ID, @ADJUSTMENTID output, @CHANGEAGENTID, @CURRENTDATE, @ADJUSTMENTDATE, @ADJUSTMENTPOSTDATE, @ADJUSTMENTREASON;

                            -- if the designations or amount has changed, clear any user-defined gl distributions for this revenue record

                            if @AMOUNTORSPLITSCHANGED = 1
                            begin
                                --Clear GL

                                --Cache CONTEXT INFO

                                declare @contextCache varbinary(128);
                                set @contextCache = CONTEXT_INFO();

                                if not @CHANGEAGENTID is null
                                    set CONTEXT_INFO @CHANGEAGENTID;

                                delete from dbo.REVENUEGLDISTRIBUTION where REVENUEID = @ID;

                                if @CLEARWRITEOFFDISTRIBUTION = 1 
                                    delete from dbo.WRITEOFFGLDISTRIBUTION where WRITEOFFID in (select WO.ID from dbo.WRITEOFF WO where WO.REVENUEID = @ID);

                                --Restore CONTEXT_INFO

                                if not @contextCache is null
                                    set CONTEXT_INFO @contextCache;
                            end
                        end

                        exec dbo.USP_REVENUESPLIT_VALIDATESPLITS @SPLITS, @AMOUNT, 1;

                        select 
                            @SUM = sum(AMOUNT),
                            @COUNT = count(AMOUNT)
                        from 
                            dbo.UFN_INSTALLMENT_GETINSTALLMENTS_FROMITEMLISTXML(@INSTALLMENTS);

                        if @COUNT = 0 
                            raiserror('Please enter at least one installment.',13,1);

                        if @SUM <> @AMOUNT
                            raiserror('The sum of the installment amounts must equal the pledge amount.',13,1);

                        if dbo.UFN_INSTALLMENT_DATESOVERLAP(@INSTALLMENTS) = 1
                            raiserror('Installment dates are out of sequence.',13,1);

                        -- check to see if the revenue record needs to be re-acknowledged                            

                        if (coalesce((select top 1 REACKNOWLEDGEREVENUE from dbo.ACKNOWLEDGEMENTPREFERENCE), 0)) = 1
                        begin                               
                            -- if a field has changed, mark the revenue letters for this record out of date, if necessary

                            if @AMOUNTORSPLITSCHANGED = 1
                                exec dbo.USP_REVENUELETTER_SETREACKNOWLEDGEMENTS @ID, @CHANGEAGENTID;                     

                        end

                        update 
                            dbo.REVENUE
                        set
                            DATE = @DATE,
                            CHANGEDBYID = @CHANGEAGENTID,
                            DATECHANGED = @CURRENTDATE
                        where 
                            ID = @ID;

                        update
                            dbo.REVENUE
                        set
                            AMOUNT = @AMOUNT,
                            FINDERNUMBER = @FINDERNUMBER,
                            SOURCECODE = @SOURCECODE,
                            APPEALID = @APPEALID,
                            BENEFITSWAIVED = @BENEFITSWAIVED,
                            GIVENANONYMOUSLY = @GIVENANONYMOUSLY,
                            MAILINGID = @MAILINGID,
                            CHANNELCODEID = @CHANNELCODEID,
                            DONOTACKNOWLEDGE = @DONOTACKNOWLEDGE,
                            CHANGEDBYID = @CHANGEAGENTID,
                            DATECHANGED = @CURRENTDATE
                        where
                            ID = @ID;


                        update
                            dbo.REVENUESCHEDULE
                        set
                            FREQUENCYCODE = @FREQUENCYCODE,
                            NUMBEROFINSTALLMENTS = @NUMBEROFINSTALLMENTS,
                            STARTDATE = @STARTDATE,
                            PLEDGESUBTYPEID = @PLEDGESUBTYPEID,
                            SENDPLEDGEREMINDER = @SENDPLEDGEREMINDER,
                            CHANGEDBYID = @CHANGEAGENTID,
                            DATECHANGED = @CURRENTDATE
                        from 
                            dbo.REVENUESCHEDULE 
                        inner join 
                            dbo.REVENUE on REVENUESCHEDULE.ID = REVENUE.ID
                        where
                            REVENUE.ID = @ID;

                        exec dbo.USP_REVENUE_GETSPLITS_UPDATEFROMXML @ID, @SPLITS, @CHANGEAGENTID, @CURRENTDATE;        
                        exec dbo.USP_INSTALLMENT_GETINSTALLMENTS_UPDATEFROMXML @ID, @INSTALLMENTS, @CHANGEAGENTID, @CURRENTDATE;        
                        exec dbo.USP_PLEDGE_FIXDEPENDENTSPLITS @ID, @CHANGEAGENTID, @CURRENTDATE; 
                        exec dbo.USP_REVENUE_GETBENEFITS_UPDATEFROMXML @ID, @BENEFITS, @CHANGEAGENTID, @CURRENTDATE;
                        exec dbo.USP_REVENUE_UPDATESOLICITORS @ID, @CHANGEAGENTID, @CURRENTDATE;

                        if @ADJUST = 1 /*call USP_ADJUSTMENTHISTORY_REVENUE_SAVEHISTORY after the revenue tables are updated */
                            exec dbo.USP_ADJUSTMENTHISTORY_REVENUE_SAVEHISTORY @ID, @CHANGEAGENTID, null, @ADJUSTMENTID;
                    end try

                    begin catch
                        exec dbo.USP_RAISE_ERROR;
                        return 1;
                    end catch

                    return 0;