USP_PDACCOUNTSYSTEM_LINKTOREVENUE

CREATE procedure dbo.USP_PDACCOUNTSYSTEM_LINKTOREVENUE
            (
                @ID uniqueidentifier,
                @PDACCOUNTSYSTEMID uniqueidentifier,
                @CHANGEDATE datetime = null,
                @CHANGEAGENTID uniqueidentifier = null
            )
            as
                set nocount on;

            if dbo.UFN_VALID_BASICGL_INSTALLED() != 0
              begin
                    if @CHANGEAGENTID is null
                        exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;
                    if @CHANGEDATE is null
                        set @CHANGEDATE = getdate();     
                    if exists(select ID from dbo.PDACCOUNTSYSTEMFORREVENUE where ID = @ID) 
                    begin
                        if @PDACCOUNTSYSTEMID is null
                        begin
                            set @PDACCOUNTSYSTEMID = '4B121C2C-CCE6-440D-894C-EA0DEF80D50B';
                        end
                        update dbo.FINANCIALTRANSACTION set
                            PDACCOUNTSYSTEMID = @PDACCOUNTSYSTEMID,
                            CHANGEDBYID = @CHANGEAGENTID,
                            DATECHANGED = @CHANGEDATE
                        where
                            ID = @ID
                            and TYPECODE in (0,1,4,5,6,7)
                    end
                end