>I do not see where I am setting procedure to the function that I already have.

You're right, you can add at the top of this function

if not 'encrypt' $ lower(set('procedure'))
   set procedure to Encrypt additive
endif