Adding a mask to a 10 digit phone number

I know how to remove parenthesis, spaces and dashes from phone numbers that need them removed for downstreams – I utilize an “xlt_string_map” proc from within an xlate (provided by Jim Koslovsky) and it works great….

Now, I have the opposite problem. I am getting a 10 digit phone number in the format xxxxxxxxxx from the sending system – and must now reformat the number into a (xxx) xxx-xxxx format (note the space after the closing parenthesis for the area code).

I’m hoping someone may have a tcl proc that can be run from within an xlate – or even a few lines of tcl coding that can be directly pasted into the xlate – that will acomplish this.

Can anyone help me out?

Thanks!

Tom