USP_DATAFORMTEMPLATE_EDIT_REVALUECOMMITMENTSBUSINESS_3

Parameters

Parameter	Parameter Type	Mode
@ID	uniqueidentifier	IN
@CHANGEAGENTID	uniqueidentifier	IN
@NAME	nvarchar(100)	IN
@DESCRIPTION	nvarchar(255)	IN
@REVALUEBYTYPECODE	tinyint	IN
@INCLUDEGRANTAWARDS	bit	IN
@INCLUDEPLANNEDGIFTS	bit	IN
@INCLUDEPLEDGES	bit	IN
@INCLUDERECURRINGGIFTS	bit	IN
@IDSETREGISTERID	uniqueidentifier	IN
@CURRENCYEXCHANGERATEASOFTYPECODE	tinyint	IN
@CURRENCYEXCHANGERATEASOFDATE	date	IN
@CURRENCYEXCHANGERATEASOFTIME	time	IN
@TIMEZONEENTRYID	uniqueidentifier	IN
@CURRENCYEXCHANGERATESOURCECODEID	uniqueidentifier	IN
@ADJUSTMENTDATE	date	IN
@ADJUSTMENTPOSTDATE	date	IN
@ADJUSTMENTPOSTSTATUSCODE	tinyint	IN
@ADJUSTMENTREASONCODEID	uniqueidentifier	IN
@ADJUSTMENTREASON	nvarchar(300)	IN
@CREATEOUTPUTIDSET	bit	IN
@OUTPUTIDSETRECORDTYPEID	uniqueidentifier	IN
@OUTPUTIDSETNAME	nvarchar(100)	IN
@OVERWRITEOUTPUTIDSET	bit	IN
@CREATEEXCEPTIONIDSET	bit	IN
@EXCEPTIONIDSETNAME	nvarchar(100)	IN
@OVERWRITEEXCEPTIONIDSET	bit	IN
@USEEXCHANGERATEDATEFORADJUSTMENTDATES	bit	IN
@CURRENTAPPUSERID	uniqueidentifier	IN
@SITEID	uniqueidentifier	IN
@INCLUDEINSTALLMENTPLANS	bit	IN

Definition

Copy


                CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_REVALUECOMMITMENTSBUSINESS_3
                (
                    @ID uniqueidentifier,
                    @CHANGEAGENTID uniqueidentifier = null,
                    @NAME nvarchar(100),
                    @DESCRIPTION nvarchar(255),
                    @REVALUEBYTYPECODE tinyint,
                    @INCLUDEGRANTAWARDS bit,
                    @INCLUDEPLANNEDGIFTS bit,
                    @INCLUDEPLEDGES bit,
                    @INCLUDERECURRINGGIFTS bit,
                    @IDSETREGISTERID uniqueidentifier,
                    @CURRENCYEXCHANGERATEASOFTYPECODE tinyint,
                    @CURRENCYEXCHANGERATEASOFDATE date,
                    @CURRENCYEXCHANGERATEASOFTIME time(0),
                    @TIMEZONEENTRYID uniqueidentifier,
                    @CURRENCYEXCHANGERATESOURCECODEID uniqueidentifier,
                    @ADJUSTMENTDATE date,
                    @ADJUSTMENTPOSTDATE date,
                    @ADJUSTMENTPOSTSTATUSCODE tinyint,
                    @ADJUSTMENTREASONCODEID uniqueidentifier,
                    @ADJUSTMENTREASON nvarchar(300),
                    @CREATEOUTPUTIDSET bit,
                    @OUTPUTIDSETRECORDTYPEID uniqueidentifier,
                    @OUTPUTIDSETNAME nvarchar(100),
                    @OVERWRITEOUTPUTIDSET bit,
                    @CREATEEXCEPTIONIDSET bit,
                    @EXCEPTIONIDSETNAME nvarchar(100),
                    @OVERWRITEEXCEPTIONIDSET bit,
                    @USEEXCHANGERATEDATEFORADJUSTMENTDATES bit,
                    @CURRENTAPPUSERID uniqueidentifier,
                    @SITEID uniqueidentifier,
                    @INCLUDEINSTALLMENTPLANS bit
                )
                as
                begin
                    set nocount on;

                    declare @CURRENTDATE datetime;

                    if @ID is null
                        set @ID = newid();

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

                    set @CURRENTDATE = getdate();

                    declare @BUSINESSPROCESSCATALOGID uniqueidentifier = '396ACD18-86CA-40F5-831A-1ED6E1955FEE';

                    begin try
                        declare @CURRENCYEXCHANGERATEASOFDATETIME datetime = (cast(@CURRENCYEXCHANGERATEASOFDATE as datetime) + cast(@CURRENCYEXCHANGERATEASOFTIME as datetime));
                        declare @CURRENCYEXCHANGERATEASOFDATETIMEOFFSET datetimeoffset(3) = todatetimeoffset(@CURRENCYEXCHANGERATEASOFDATETIME, dbo.UFN_TIMEZONEENTRY_GETTIMEZONEOFFSETFROMUTC(@TIMEZONEENTRYID, @CURRENCYEXCHANGERATEASOFDATETIME, 0));

                        if (@SITEID is not null) 
                        begin
                            if dbo.UFN_SITEALLOWEDFORUSER(@CURRENTAPPUSERID, @SITEID) = 0 begin
                                raiserror ('BBERR_SITE_NOACCESS',13,1);
                                return 1;
                            end
                        end

                        update dbo.REVALUECOMMITMENTSPROCESS set
                            REVALUECOMMITMENTSPROCESS.NAME = @NAME,
                            REVALUECOMMITMENTSPROCESS.DESCRIPTION = @DESCRIPTION,
                            REVALUECOMMITMENTSPROCESS.REVALUEBYTYPECODE = @REVALUEBYTYPECODE,
                            REVALUECOMMITMENTSPROCESS.INCLUDEGRANTAWARDS = @INCLUDEGRANTAWARDS,
                            REVALUECOMMITMENTSPROCESS.INCLUDEPLANNEDGIFTS = @INCLUDEPLANNEDGIFTS,
                            REVALUECOMMITMENTSPROCESS.INCLUDEPLEDGES = @INCLUDEPLEDGES,
                            REVALUECOMMITMENTSPROCESS.INCLUDERECURRINGGIFTS = @INCLUDERECURRINGGIFTS,
                            REVALUECOMMITMENTSPROCESS.IDSETREGISTERID = @IDSETREGISTERID,
                            REVALUECOMMITMENTSPROCESS.CURRENCYEXCHANGERATEASOFTYPECODE = @CURRENCYEXCHANGERATEASOFTYPECODE,
                            REVALUECOMMITMENTSPROCESS.CURRENCYEXCHANGERATEASOFDATETIMEOFFSET = @CURRENCYEXCHANGERATEASOFDATETIMEOFFSET,
                            REVALUECOMMITMENTSPROCESS.TIMEZONEENTRYID = @TIMEZONEENTRYID,
                            REVALUECOMMITMENTSPROCESS.CURRENCYEXCHANGERATESOURCECODEID = @CURRENCYEXCHANGERATESOURCECODEID,
                            REVALUECOMMITMENTSPROCESS.ADJUSTMENTDATE = @ADJUSTMENTDATE,
                            REVALUECOMMITMENTSPROCESS.ADJUSTMENTPOSTDATE = @ADJUSTMENTPOSTDATE,
                            REVALUECOMMITMENTSPROCESS.ADJUSTMENTPOSTSTATUSCODE = @ADJUSTMENTPOSTSTATUSCODE,
                            REVALUECOMMITMENTSPROCESS.ADJUSTMENTREASONCODEID = @ADJUSTMENTREASONCODEID,
                            REVALUECOMMITMENTSPROCESS.ADJUSTMENTREASON = coalesce(@ADJUSTMENTREASON, N''),
                            REVALUECOMMITMENTSPROCESS.CREATEOUTPUTIDSET = @CREATEOUTPUTIDSET,
                            REVALUECOMMITMENTSPROCESS.OUTPUTIDSETRECORDTYPEID = @OUTPUTIDSETRECORDTYPEID,
                            REVALUECOMMITMENTSPROCESS.OUTPUTIDSETNAME = @OUTPUTIDSETNAME,
                            REVALUECOMMITMENTSPROCESS.OVERWRITEOUTPUTIDSET = @OVERWRITEOUTPUTIDSET,
                            REVALUECOMMITMENTSPROCESS.CREATEEXCEPTIONIDSET = @CREATEEXCEPTIONIDSET,
                            REVALUECOMMITMENTSPROCESS.EXCEPTIONIDSETNAME = @EXCEPTIONIDSETNAME,
                            REVALUECOMMITMENTSPROCESS.OVERWRITEEXCEPTIONIDSET = @OVERWRITEEXCEPTIONIDSET,
                            REVALUECOMMITMENTSPROCESS.CHANGEDBYID = @CHANGEAGENTID,
                            REVALUECOMMITMENTSPROCESS.DATECHANGED = @CURRENTDATE,
                            REVALUECOMMITMENTSPROCESS.USEEXCHANGERATEDATEFORADJUSTMENTDATES = @USEEXCHANGERATEDATEFORADJUSTMENTDATES,
                            REVALUECOMMITMENTSPROCESS.INCLUDEINSTALLMENTPLANS = @INCLUDEINSTALLMENTPLANS
                        where
                            REVALUECOMMITMENTSPROCESS.ID = @ID;

                        update dbo.BUSINESSPROCESSINSTANCE 
                            set SITEID = @SITEID,
                                CHANGEDBYID = @CHANGEAGENTID,
                                DATECHANGED = @CURRENTDATE
                        where BUSINESSPROCESSINSTANCE.BUSINESSPROCESSPARAMETERSETID = @ID
                            and BUSINESSPROCESSINSTANCE.BUSINESSPROCESSCATALOGID = @BUSINESSPROCESSCATALOGID
                            and (BUSINESSPROCESSINSTANCE.SITEID <> @SITEID 
                              or BUSINESSPROCESSINSTANCE.SITEID is null and @SITEID is not null 
                              or BUSINESSPROCESSINSTANCE.SITEID is not null and @SITEID is null);

                    end try

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

                    return 0;
                end