Mascara para Campo

Como criar uma mascara em um campo onde possa utilizar em duas rotinas distintas?

Na configuração do campo no Formato @!@R AAA-9999 e Form. Variável chame a sua user function

---------------------------------------------------------------------------------------

#Include "protheus.ch"

function u_MASKA()//testE ok

local cRet AS CHARACTER
local cRot AS CHARACTER

cRet := ""
cRot := allTrim(funName())

if cRot == "MATA103"
cRet := "@!@R AAA-999"
else
cRet := "@!"
endIf

cRet := cRet + "%C"

return UPPER(cRet)