USP_DATAFORMTEMPLATE_EDIT_PLEDGEREMINDERPROCESS_5

The save procedure used by the edit dataform template "Pledge Reminder Process Edit Form 2".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter indicating the ID of the record being edited.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@NAME	nvarchar(100)	IN	Name
@IDSETREGISTERID	uniqueidentifier	IN	Selection
@DESCRIPTION	nvarchar(255)	IN	Description
@CREATEOUTPUTIDSET	bit	IN	Create selection from results
@OUTPUTIDSETRECORDTYPEID	uniqueidentifier	IN	Selection type
@OUTPUTIDSETNAME	nvarchar(100)	IN	Selection name
@OVERWRITEOUTPUTIDSET	bit	IN	Overwrite existing selection
@BUSINESSPROCESSVIEWID	uniqueidentifier	IN	Output format
@DATETYPECODE	tinyint	IN	Calculate amounts as of
@DATE	datetime	IN	Process date
@LETTERFILE	varbinary	IN	File
@LETTERFILENAME	nvarchar(255)	IN	Letter template
@DISPLAYEDLETTERFILENAME	nvarchar(255)	IN	File
@LETTERFILECHANGED	bit	IN	File changed?
@LABELFILE	varbinary	IN	Label File
@LABELFILENAME	nvarchar(255)	IN	Label template
@DISPLAYEDLABELFILENAME	nvarchar(255)	IN	Label file
@LABELFILECHANGED	bit	IN	Label File changed?
@MARKREMINDERSSENT	bit	IN	Mark reminders sent when process completes
@SENTDATETYPECODE	tinyint	IN	Sent date
@SENTDATE	datetime	IN	Sent date
@EXCLUSIONDATETYPECODE	tinyint	IN	Consider exclusions as of
@EXCLUSIONASOFDATE	datetime	IN	Consider exclusions as of
@EXCLUDEDECEASED	bit	IN	Exclude deceased constituents
@EXCLUDEINACTIVE	bit	IN	Exclude inactive constituents
@EXCLUSIONS	xml	IN	Exclusions
@CUSTOMPARAMETERDATAFORMITEM	xml	IN
@CURRENTAPPUSERID	uniqueidentifier	IN	Input parameter indicating the ID of the current user.
@ISRECURRINGGIFTS	bit	IN
@ISPLEDGES	bit	IN
@OUTPUTGROUPINGCODE	tinyint	IN	Output grouping
@EXPORTDEFINITIONID	uniqueidentifier	IN	Export definition
@SITEID	uniqueidentifier	IN	Site

Definition

Copy



          CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_PLEDGEREMINDERPROCESS_5
          (
            @ID uniqueidentifier,
            @CHANGEAGENTID uniqueidentifier = null,                
            @NAME nvarchar(100), 
            @IDSETREGISTERID uniqueidentifier, 
            @DESCRIPTION nvarchar(255), 
            @CREATEOUTPUTIDSET bit,
            @OUTPUTIDSETRECORDTYPEID uniqueidentifier, 
            @OUTPUTIDSETNAME nvarchar(100), 
            @OVERWRITEOUTPUTIDSET bit,                        
            @BUSINESSPROCESSVIEWID uniqueidentifier,
            @DATETYPECODE tinyint,
            @DATE datetime,
            @LETTERFILE varbinary(max),
            @LETTERFILENAME nvarchar(255),
            @DISPLAYEDLETTERFILENAME nvarchar(255),
            @LETTERFILECHANGED bit,
            @LABELFILE varbinary(max),
            @LABELFILENAME nvarchar(255),
            @DISPLAYEDLABELFILENAME nvarchar(255),
            @LABELFILECHANGED bit,
            @MARKREMINDERSSENT bit,
            @SENTDATETYPECODE tinyint,
            @SENTDATE datetime,
            @EXCLUSIONDATETYPECODE tinyint,
            @EXCLUSIONASOFDATE datetime,
            @EXCLUDEDECEASED bit,
            @EXCLUDEINACTIVE bit,
            @EXCLUSIONS xml,
            @CUSTOMPARAMETERDATAFORMITEM xml,
            --@OVERRIDEREQUIREDEXCLUSIONS bit,

            --@REQUIREDEXCLUSIONS xml,

            @CURRENTAPPUSERID uniqueidentifier = null,
                        @ISRECURRINGGIFTS bit,
                        @ISPLEDGES bit,
                        @OUTPUTGROUPINGCODE tinyint,
            @EXPORTDEFINITIONID uniqueidentifier,
                        @SITEID uniqueidentifier
          )
          as                
          begin
            set nocount on

            declare @CURRENTDATE datetime
            set @CURRENTDATE = getdate()

                        declare @BUSINESSPROCESSCATALOGID uniqueidentifier = '84414BD2-3196-4697-998A-2493C29A302A';

            begin try
              if @CHANGEAGENTID is null  
                exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

                            if (@SITEID is not null) 
                          begin
                            if dbo.UFN_SITEALLOWEDFORUSER(@CURRENTAPPUSERID, @SITEID) = 0 
                                begin
                                raiserror ('BBERR_SITE_NOACCESS',13,1);
                            return 1;
                            end
                        end
              if exists(select 1 from dbo.[BUSINESSPROCESSSTATUS] where [STATUSCODE] = 4 and [BUSINESSPROCESSPARAMETERSETID] = @ID)
                raiserror('ERR_ENQUEUED', 13, 1);

              update
                dbo.PLEDGEREMINDERPROCESS
              set
                NAME = @NAME, 
                IDSETREGISTERID = @IDSETREGISTERID, 
                DESCRIPTION = @DESCRIPTION, 
                CREATEOUTPUTIDSET = @CREATEOUTPUTIDSET,
                OUTPUTIDSETRECORDTYPEID = @OUTPUTIDSETRECORDTYPEID,
                OUTPUTIDSETNAME = @OUTPUTIDSETNAME, 
                OVERWRITEOUTPUTIDSET = @OVERWRITEOUTPUTIDSET,
                DATETYPECODE = @DATETYPECODE,
                DATE = @DATE,
                MARKREMINDERSSENT = @MARKREMINDERSSENT,
                SENTDATETYPECODE = @SENTDATETYPECODE,
                SENTDATE = @SENTDATE,
                BUSINESSPROCESSVIEWID = @BUSINESSPROCESSVIEWID,
                LETTERFILENAME = case when @LETTERFILECHANGED = 1 then @DISPLAYEDLETTERFILENAME else LETTERFILENAME end,
                LETTERFILE = case when @LETTERFILECHANGED = 1 then @LETTERFILE else LETTERFILE end,
                LABELFILENAME = case when @LABELFILECHANGED = 1 then @DISPLAYEDLABELFILENAME else LABELFILENAME end,    
                LABELFILE = case when @LABELFILECHANGED = 1 then @LABELFILE else LABELFILE end,
             CHANGEDBYID = @CHANGEAGENTID,
                DATECHANGED = @CURRENTDATE,
                CUSTOMPARAMETERDATAFORMITEM = @CUSTOMPARAMETERDATAFORMITEM,
                                ISRECURRINGGIFTS = @ISRECURRINGGIFTS,
                                ISPLEDGES = @ISPLEDGES,
                                OUTPUTGROUPINGCODE = @OUTPUTGROUPINGCODE,
                EXPORTDEFINITIONID = @EXPORTDEFINITIONID
              where
                ID = @ID;

              exec dbo.USP_BUSINESSPROCESSCOMMPREF_UPDATE @CHANGEAGENTID = @CHANGEAGENTID,
                                    @BUSINESSPROCESSCATALOGID = '84414BD2-3196-4697-998A-2493C29A302A',
                                    @BUSINESSPROCESSPARAMETERSETID = @ID,
                                    @EXCLUSIONDATETYPECODE = @EXCLUSIONDATETYPECODE,
                                    @EXCLUSIONASOFDATE = @EXCLUSIONASOFDATE,
                                    @EXCLUDEDECEASED = @EXCLUDEDECEASED,
                                    @EXCLUDEINACTIVE = @EXCLUDEINACTIVE,
                                    @EXCLUSIONS = @EXCLUSIONS,
                                    --@OVERRIDEREQUIREDEXCLUSIONS = @OVERRIDEREQUIREDEXCLUSIONS,

                                    --@REQUIREDEXCLUSIONS = @REQUIREDEXCLUSIONS,

                                    @CURRENTAPPUSERID = @CURRENTAPPUSERID;

                            update dbo.BUSINESSPROCESSINSTANCE
                            set
                                BUSINESSPROCESSINSTANCE.SITEID = @SITEID,
                                BUSINESSPROCESSINSTANCE.CHANGEDBYID = @CHANGEAGENTID,
                                BUSINESSPROCESSINSTANCE.DATECHANGED = @CURRENTDATE
                            where
                                BUSINESSPROCESSINSTANCE.BUSINESSPROCESSCATALOGID = @BUSINESSPROCESSCATALOGID
                    and
                                BUSINESSPROCESSINSTANCE.BUSINESSPROCESSPARAMETERSETID = @ID
                                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