USP_DATAFORMTEMPLATE_ADD_PATTERNBLOCKMEETINGS

The save procedure used by the add dataform template "Pattern Block Add Data Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@NAME	nvarchar(100)	IN	Block
@PATTERNID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@MEETINGS	xml	IN	Meetings
@COLORSTYLE	int	IN	Color

Definition

Copy



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

                        set nocount on;

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

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

                        declare @CURRENTDATE datetime
                        set @CURRENTDATE = getdate()

                        begin try
                            -- handle inserting the data

                            insert into dbo.PATTERNBLOCK
                            (
                                ID,
                                NAME,
                                PATTERNID,
                                COLORSTYLECODE,
                                ADDEDBYID,
                                CHANGEDBYID,
                                DATEADDED,
                                DATECHANGED
                            )
                            values
                            (
                                @ID,
                                @NAME,
                                @PATTERNID,
                                @COLORSTYLE,
                                @CHANGEAGENTID,
                                @CHANGEAGENTID,
                                @CURRENTDATE,
                                @CURRENTDATE
                            )

                            -- link block meetings

                            exec dbo.USP_PATTERNBLOCK_GETPATTERNBLOCKMEETINGS_ADDFROMXML @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