I am solving PDEs with `NDSolve` and `NIntegrate`, but I do not know how to pass arguments correctly. I simplfied my working codes as following:

 ClearAll[x, y,r, t];
 ss = NDSolve[{
 x'[t] == (NIntegrate[x[t]*r*r, {r, 0, 5}] + y[t] + t)*y[t], 
 y'[t] == -x[t], x[0] == 1, y[0] == 1}, {x, y}, {t, 10}];
 Plot[Evaluate[{x[t], y[t]} /. ss], {t, 0, 10}]
But I want to set other arguments to pass througn functions, which is necessary with complex functions. The modified codes are as followings:

 ClearAll[x, y, z, zz, t];
 u[x_, r_] := x*r;
 v[u_?NumericQ] := NIntegrate[u*r, {r, 0, 5}];
 z[v_, y_, t_] := v + y + t;

 s = NDSolve[{
 x'[t] == z[t, t, t]*y[t], 
 y'[t] == -x[t], x[0] == 1, y[0] == 1}, {x, y}, {t, 10}];
 Plot[Evaluate[{x[t], y[t]} /. s], {t, 0, 10}]
Then I got different results. 

I also tried to pass all the arguments inside `NDSolve` to correct it, as below, but I got error messages.

 s = NDSolve[{
 x'[t] == z[v[u[x[t], r]], y[t], t]*y[t], 
 y'[t] == -x[t], x[0] == 1, y[0] == 1}, {x, y}, {t, 10}];
How to pass arguments in such cases?

Sixpenny