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