Reply To: Removing parenthesis and dashes from phone numbers

[Ariba Jones]

Ok, Charlie.  I am trying to follow you here.  Forgive me for my “stupid” questions.  I am pretty new to doing all of this “manipulation” on the engine.  I haven’t had to do things like this (or any manipulation, really) until this project I am currently working on.  Please have patience with me when I ask you questions.

I think you are telling me that I could have a tcl proc with just those lines of code you indicate (in your last email) to remove the parenthesis and dashes from any occurrence of telephone numbers in the ADT message.  Is that correct?

Would I have something like this as a proc?

proc phone-noparenth  {}  {

  set phoneNo [lindex $xlateInVa

  set xlateOutVals

]

}

Or would I have something like this to take care of both the phone number and ssn?

proc ssnph_nodash   {}  {

  set phoneNo [string map “( {} } {} – {}” $phoneNum]

  set ssan [string map “- {}” $ssan]

}

I am just trying to figure out how I need to setup the TCL proc since I have never written one of these before.

Thanks,

Ariba