Get a list of users connected to e-MDs TopsData application

listTopsDataUsers.sql

SELECT DISTINCT
  loginame [Login],
  hostname,
  sd.name DBName,
  [program_name] ProgramName
FROM master.dbo.sysprocesses sp
JOIN master.dbo.sysdatabases sd ON sp.dbid = sd.dbid
WHERE sd.name = 'TopsData'
AND program_name = 'e-MDs Solution Series'
ORDER BY loginame