USP_RECORDOPERATION_INCOMECOMPENSATION_STATUS_MARKCURRENT

      create procedure dbo.USP_RECORDOPERATION_INCOMECOMPENSATION_STATUS_MARKCURRENT
      (
          @ID uniqueidentifier,
        @CURRENTAPPUSERID uniqueidentifier,
          @CHANGEAGENTID uniqueidentifier
      )
      as begin

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

         declare @CURRENTDATE datetime
      set @CURRENTDATE = getdate()


            update dbo.WPINCOMECOMPENSATION set 
                DATECHANGED = @CURRENTDATE,
                CHANGEDBYID = @CHANGEAGENTID,
        HISTORICCODE = 0,
        HISTORICSET = 1
            where
              ID = @ID

      declare @WEALTHID uniqueidentifier;
            select @WEALTHID=WEALTHID from dbo.WPINCOMECOMPENSATION where ID=@ID;

      exec dbo.USP_WEALTHPOINT_UPDATEWEALTHSUMMARY_INCOMECOMPENSATION @WEALTHID, @CHANGEAGENTID;
            exec dbo.USP_WEALTHCAPACITY_UPDATE @WEALTHID, @CHANGEAGENTID;

            return 0;

      end