Given that your table is named Claim, then I think this should do it, (not tested)
Select Main.ClaimNumber,
Left(Main.Serials,Len(Main.Serials)-1) As "Serials" From(Select distinct T2.ClaimNumber,
(Select T1.SerialNumber + ',' AS [text()]
From Claim T1
Where T1.ClaimNumber = T2.ClaimNumber
ORDER BY T1.ClaimNumber
For XML PATH ('')) [Serials]
From Claim T2) [Main]