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