Removing parenthesis and dashes from phone numbers

Charlie,

The suggestion you give me to do it on a field-by-field basis is something that I have to put in a tcl proc, right?  If so, is this all that I would put in this proc?

Are you saying that this would be done on a field-by-field basis for every field in the message or every phone number or ssn field I identify in the messages?

I am trying to understand this.

Thanks,

Ariba

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

This is my tcl proc.

Chris,

I changed my tcl proc to look like you indicated, excluding the extra spaces, of course.  I get a different error now.  It looks like the variable xlateInVals is not recognized.

This is what my proc looks like now.

proc phone_nodash {} {

           set phoneNo [lindex $xlateInVals]

           set xlateOutVals

]

}

**Notice that I changed what I originally had as $phoneNum to $xlateInVals as you had in your response.

This is the error I get when I run my xlate through the Testing Tool.

errorInfo:

can’t read “xlateInVals”: no such variable

  while executing

“lindex $xlateInVals”

  (procedure “phone_nodash” line 5)

  invoked from within

“phone_nodash”

Thanks,

Ariba

Thanks, Chris. I will make the change and try again.

I do have a Tcl and Tk book. I just haven’t had time to sit and go through it.  I have been so involved in this project.  I do try to look through this book for syntax questions, but sometimes that is hard for me because  I don’t know what I am doing here.

Thanks,

Ariba

I have tried to test this proc again using my xlate.  I am getting the same error message.

can’t read “xlateInVals”: no such variable

   while executing

“lindex $xlateInVals”

    (procedure “phone_nodash” line 5)

     invoked from within

“phone_nodash”

I put $phoneNum back in the second set line of my proc and I still get this message.  I have pulled out the Tcl book I have to check the syntax for this.  It looks right.  I don’t know what else to do here.

Any suggestions?

Thanks,

Ariba

Michael,

I copied and pasted this proc and tried using it to test my xlate.

This is the message I receive.

errorInfo:

wrong # args: should be “upvar  ?level?  otherVar  localVar  ?otherVar

localVar …?”

   while executing

“upvar xlateId              xlateId             “

    (procedure “nodash_noparen”  line 2)

    invoked from within

“nodash_noparen”

Should I have to specify args for this somewhere?

Thanks,

Ariba

Michael,

I get the same error message after doing this again.

Should there be only one space at the end of each line?  It looks like there may be two spaces at the end of each line when I look at the proc in the Script Editor.

Thanks,

Ariba

OK.  I will manually remove the extra spaces after the and let you know what happens in a minute.

Thanks,

Ariba

Michael, you’re the best!!!!  It works now! I see the parenthesis and dash removed from the field I had this proc attached to in my xlate.  I just have to attach this proc to every field that I know is a phone number field.  Thanks so much!  You have made my day…………even better, I think you have made my WEEK!!!

Thanks,

Ariba