USP_DATAFORMTEMPLATE_ADD_PROGRAMPREFERENCEGROUP

The save procedure used by the add dataform template "Program Preference Group 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.
@PROGRAMID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@NAME	nvarchar(100)	IN	Name
@PREFERENCES	xml	IN

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_PROGRAMPREFERENCEGROUP
                    (
                        @ID uniqueidentifier = null output,
                        @CHANGEAGENTID uniqueidentifier = null,                        
                        @PROGRAMID uniqueidentifier,
                        @NAME nvarchar(100) = null,
                        @PREFERENCES xml = null 
                    )
                    as                    
                        set nocount on;

                        declare @CURRENTDATE datetime;
                        set @CURRENTDATE = getdate();

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

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

                        begin try
                            insert into dbo.PROGRAMPREFERENCEGROUP
                                (ID, 
                                PROGRAMID, 
                                NAME, 
                                ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                            values
                                (@ID, 
                                @PROGRAMID, 
                                @NAME, 
                                @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);

                            exec dbo.USP_PROGRAMPREFERENCE_GETPREFERENCES_ADDFROMXML @ID, @PREFERENCES, @CHANGEAGENTID    
                        end try

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

                        return 0;