USP_STEWARDSHIPPLAN_MAKEHISTORICAL

Parameters

Parameter Parameter Type Mode Description
@ID uniqueidentifier IN
@CHANGEAGENTID uniqueidentifier IN

Definition

Copy


            create procedure dbo.USP_STEWARDSHIPPLAN_MAKEHISTORICAL
            (
                @ID uniqueidentifier,
                @CHANGEAGENTID uniqueidentifier
            )
            as begin
                if @CHANGEAGENTID is null  
                    exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

                declare @ALLSTEPSCOMPLETED bit;

                if exists(select 1 from STEWARDSHIPPLAN PP 
                            where PP.ID = @ID
                                and exists(select 1 from STEWARDSHIPPLANSTEP 
                            where PLANID = PP.ID and STATUSCODE = 0))
                    set @ALLSTEPSCOMPLETED = 0;
                else
                    set @ALLSTEPSCOMPLETED = 1;

                if @ALLSTEPSCOMPLETED = 0
                begin
                    raiserror('BBERR_STEWARDSHIPPLAN_STEPS_ALLSTEPSCOMPLETED',13,1)
                    return
                end

                update dbo.STEWARDSHIPPLAN set 
                    ISACTIVE=0,
                    CHANGEDBYID=@CHANGEAGENTID,
                    DATECHANGED=getdate()
                where
                    ID=@ID
                    and ISACTIVE=1;

                return 0;
            end