DSolve[-x^2 - 3*x*y[x] - 7*y[x]^2 + 3*x^2*Derivative[1][y][x] == 0,y[x],x]