USP_DATAFORMTEMPLATE_EDIT_PATTERNBLOCK

The save procedure used by the edit dataform template "Pattern Block Edit Data Form".

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	Block
@MEETINGS	xml	IN	Meetings
@COLORSTYLE	int	IN	Color

Definition

Copy



                        CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_PATTERNBLOCK (
                            @ID uniqueidentifier,
                            @CHANGEAGENTID uniqueidentifier = null,
                            @NAME nvarchar(100),
                            @MEETINGS xml,
                            @COLORSTYLE int
                        )
                        as

                            set nocount on;

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

                            declare @CURRENTDATE datetime
                            set @CURRENTDATE = getdate()

                            begin try
                                -- handle updating the data

                                update dbo.PATTERNBLOCK set
                                    PATTERNBLOCK.CHANGEDBYID = @CHANGEAGENTID,
                                    PATTERNBLOCK.DATECHANGED = @CURRENTDATE,
                                    PATTERNBLOCK.NAME = @NAME,
                                    PATTERNBLOCK.COLORSTYLECODE = @COLORSTYLE
                                where PATTERNBLOCK.ID = @ID

                                exec dbo.USP_PATTERNBLOCK_GETPATTERNBLOCKMEETINGS_UPDATEFROMXML @ID, @MEETINGS, @CHANGEAGENTID

                                if not exists(select ID from dbo.PATTERNBLOCKMEETING where PATTERNBLOCKID = @ID)
                                    raiserror('BBERR_PATTERNBLOCK_ATLEASTONEBLOCKMEETING', 13, 1)
                            end try

                            begin catch
                                exec dbo.USP_RAISE_ERROR
                                return 1
                            end catch

                        return 0;