How to pass a symbolic variable name between nested functions in the dplyr-way?

Question

I want to write a function, which takes symbolic names of columns and pass it to subsequent functions doing something specific (sub-tasks).

Let me show you an example