DSolve[Derivative[1][y][x] == (I/2)*x*(I - 2*Sqrt[-x^2 + 4*Log[a] + 4*Log[y[x]]])*y[x],y[x],x]