With MaxXact (ServerName, PublisherDBID, XactSeqNo)
As (Select S.name, DA.publisher_database_id, max(H.xact_seqno)
    From distribution.dbo.MSdistribution_history H with(nolock)
    Inner Join distribution.dbo.MSdistribution_agents DA with(nolock) On DA.id = H.agent_id
    Inner Join master.sys.servers S with(nolock) On S.server_id = DA.subscriber_id
    Group By S.name, DA.publisher_database_id)
Select MX.ServerName, MX.PublisherDBID, COUNT(*) As TransactionsNotReplicated
From distribution.dbo.msrepl_transactions T with(nolock)
Right Join MaxXact MX On MX.XactSeqNo < T.xact_seqno And MX.PublisherDBID = T.publisher_database_id
Group By MX.ServerName, MX.PublisherDBID;

With MaxXact (ServerName, PublisherDBID, XactSeqNo)
As (Select S.name, DA.publisher_database_id, max(H.xact_seqno)
    From distribution.dbo.MSdistribution_history H with(nolock)
    Inner Join distribution.dbo.MSdistribution_agents DA with(nolock) On DA.id = H.agent_id
    Inner Join master.sys.servers S with(nolock) On S.server_id = DA.subscriber_id
    Group By S.name, DA.publisher_database_id)
Select MX.ServerName, MX.PublisherDBID, COUNT(*) As CommandsNotReplicated
From distribution.dbo.MSrepl_commands C with(nolock)
Right Join MaxXact MX On MX.XactSeqNo < C.xact_seqno And MX.PublisherDBID = C.publisher_database_id
Group By MX.ServerName, MX.PublisherDBID;

SELECT
  GETDATE() as now,
  DATEDIFF(SECOND, transaction_begin_time, GETDATE()) as tran_elapsed_time_seconds,
  st.session_id,
  txt.text, 
  *
FROM
  sys.dm_tran_active_transactions at
  INNER JOIN sys.dm_tran_session_transactions st ON st.transaction_id = at.transaction_id
  LEFT OUTER JOIN sys.dm_exec_sessions sess ON st.session_id = sess.session_id
  LEFT OUTER JOIN sys.dm_exec_connections conn ON conn.session_id = sess.session_id
    OUTER APPLY sys.dm_exec_sql_text(conn.most_recent_sql_handle)  AS txt
where program_name='MAILSERVER\NEWB_Discount_Discount'
ORDER BY
  tran_elapsed_time_seconds DESC;

create procedure [sp_MSupd_dboBONUSES]
		@c1 bigint = NULL,
		@c2 varchar(36) = NULL,
		@c3 varchar(12) = NULL,
		@c4 varchar(13) = NULL,
		@c5 smallint = NULL,
		@c6 datetime2 = NULL,
		@c7 datetime2 = NULL,
		@c8 datetime2 = NULL,
		@c9 numeric(15,2) = NULL,
		@c10 numeric(15,2) = NULL,
		@c11 nvarchar(36) = NULL,
		@c12 nvarchar(max) = NULL,
		@c13 varchar(36) = NULL,
		@c14 numeric(15,2) = NULL,
		@c15 datetime2 = NULL,
		@c16 tinyint = NULL,
		@c17 varchar(36) = NULL,
		@pkc1 bigint = NULL,
		@bitmap binary(3)
as
begin  
	declare @primarykey_text nvarchar(100) = ''
update [dbo].[BONUSES] set
		[BNS_ID] = case substring(@bitmap,1,1) & 2 when 2 then @c2 else [BNS_ID] end,
		[B_USERID] = case substring(@bitmap,1,1) & 4 when 4 then @c3 else [B_USERID] end,
		[B_CARDNO] = case substring(@bitmap,1,1) & 8 when 8 then @c4 else [B_CARDNO] end,
		[B_ENABLE] = case substring(@bitmap,1,1) & 16 when 16 then @c5 else [B_ENABLE] end,
		[B_DT_INSERT] = case substring(@bitmap,1,1) & 32 when 32 then @c6 else [B_DT_INSERT] end,
		[B_DT_OPEN] = case substring(@bitmap,1,1) & 64 when 64 then @c7 else [B_DT_OPEN] end,
		[B_DT_BURN] = case substring(@bitmap,1,1) & 128 when 128 then @c8 else [B_DT_BURN] end,
		[B_VALUE] = case substring(@bitmap,2,1) & 1 when 1 then @c9 else [B_VALUE] end,
		[B_USED_VAL] = case substring(@bitmap,2,1) & 2 when 2 then @c10 else [B_USED_VAL] end,
		[B_PLACE] = case substring(@bitmap,2,1) & 4 when 4 then @c11 else [B_PLACE] end,
		[B_DESCRIPT] = case substring(@bitmap,2,1) & 8 when 8 then @c12 else [B_DESCRIPT] end,
		[B_RESOURCE_ID] = case substring(@bitmap,2,1) & 16 when 16 then @c13 else [B_RESOURCE_ID] end,
		[B_RESOURCE_SUM] = case substring(@bitmap,2,1) & 32 when 32 then @c14 else [B_RESOURCE_SUM] end,
		[B_DT] = case substring(@bitmap,2,1) & 64 when 64 then @c15 else [B_DT] end,
		[B_OPER_TYPE] = case substring(@bitmap,2,1) & 128 when 128 then @c16 else [B_OPER_TYPE] end,
		[CheckNumber] = case substring(@bitmap,3,1) & 1 when 1 then @c17 else [CheckNumber] end
	where [B_ID] = @pkc1
if @@rowcount = 0
    if @@microsoftversion>0x07320000
		Begin
			if exists (Select * from sys.all_parameters where object_id = OBJECT_ID('sp_MSreplraiserror') and [name] = '@param3')
			Begin
				
				set @primarykey_text = @primarykey_text + '[B_ID] = ' + convert(nvarchar(100),@pkc1,1)
				exec sp_MSreplraiserror @errorid=20598, @param1=N'[dbo].[BONUSES]', @param2=@primarykey_text, @param3=13233 
			End
			Else
				exec sp_MSreplraiserror @errorid=20598
		End
end