DSolve[Derivative[1][y][x] == -(y[x]^2*(-2*x + y[x] - 2*x*y[x] + x^2*y[x]))/(2*x*(-2 - 2*y[x] + x*y[x])),y[x],x]