Added job names:

...

),'') AS BlockingText

,CASE

WHEN LEFT(es.program_name, 31) = 'SQLAgent - TSQL JobStep (Job 0x' THEN 'SQLAgent - ' + sysjobs.[name]

ELSE Coalesce(es.program_name,' - ')

END as ProgramName

,Coalesce(es.client_interface_name,' - ') as ClientInterface

...

On ec.session_id = st.session_id

LEFT JOIN

[msdb].[dbo].[sysjobs] sysjobs

WITH (NOLOCK)

ON

CONVERT(VARCHAR(50), sysjobs.[job_id])

= SUBSTRING(es.program_name, 38, 2)

+ SUBSTRING(es.program_name, 36, 2)

+ SUBSTRING(es.program_name, 34, 2)

+ SUBSTRING(es.program_name, 32, 2)

+ '-'

+ SUBSTRING(es.program_name, 42, 2)

+ SUBSTRING(es.program_name, 40, 2)

+ '-'

+ SUBSTRING(es.program_name, 46, 2)

+ SUBSTRING(es.program_name, 44, 2)

+ '-'

+ SUBSTRING(es.program_name, 48, 4)

+ '-'

+ SUBSTRING(es.program_name, 52, 12)

Where es.is_user_process >= (case when @IsUserProcess = 0 Then 0 Else 1 End)

...