With a large magnifying glass and carefully squinting, notice the font of the \[Psi]'' inside your NDSolve is microscopically different from other instances, like the \[Psi]''[z] that begins your Eq222. This means you have been "desktop published" and while your equations might look good they are unfortunately meaningless to Mathematica.
To try to fix this, if you carefully scrape the \[Psi]''[z] that begins your Eq222, which appears to be OK, and paste it over the top of the \[Psi]'' inside your NDSolve and then carefully manually replace that z with 10 then the error message you see goes away.
Unfortunately it is then replaced with two other messages. Those are less related to desktop publishing, more directly related to mathematics and with a little math background you might be able to better interpret those messages. The first message is cautioning you that you have mixed equations that have no derivatives with equations that do have derivatives and Mathematica will try to deal with this. The second message is telling you that it thinks you have given it a boundary problem and with mixed equations it can only deal with initial value problems when given mixed equations. That may or may not be a misunderstanding by Mathematica or by you.
Can you perhaps separate the problem of solving the differential equations from solving the algebraic equations? That might help avoid some of the difficulty.