USP_DATAFORMTEMPLATE_ADD_CORRESPONDENCECODE

The save procedure used by the add dataform template "Correspondence Code Add 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	Name
@DESCRIPTION	nvarchar(255)	IN	Description
@CATEGORYCODEID	uniqueidentifier	IN	Category
@SITEID	uniqueidentifier	IN	Site
@CURRENTAPPUSERID	uniqueidentifier	IN	Input parameter indicating the ID of the current user.

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_CORRESPONDENCECODE
                    (
                        @ID uniqueidentifier = null output,
                        @CHANGEAGENTID uniqueidentifier = null,    
                        @NAME nvarchar(100) = '',
                        @DESCRIPTION nvarchar(255) = '',
                        @CATEGORYCODEID uniqueidentifier = null,
                        @SITEID uniqueidentifier = null,
                        @CURRENTAPPUSERID uniqueidentifier = null
                    )
                    as
                        set nocount on;

                        declare @CURRENTDATE datetime;

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

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

                            set @CURRENTDATE = getdate();

                            if dbo.UFN_SITEREQUIREDFORUSER(@CURRENTAPPUSERID) = 1 and @SITEID is null
                            begin
                                raiserror ('ERR_SITE_MUSTHAVESITE',13,1);
                                return 1;
                            end

                            insert into dbo.CORRESPONDENCECODE
                            (
                                ID, 
                                NAME,
                                DESCRIPTION,
                                ISACTIVE,
                                CATEGORYCODEID,
                                SITEID,
                                ADDEDBYID, 
                                CHANGEDBYID, 
                                DATEADDED, 
                                DATECHANGED
                            )
                            values
                            (
                                @ID, 
                                @NAME,
                                @DESCRIPTION,
                                1,
                                @CATEGORYCODEID,
                                @SITEID,
                                @CHANGEAGENTID, 
                                @CHANGEAGENTID, 
                                @CURRENTDATE, 
                                @CURRENTDATE
                            );

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

                        return 0;