Field Edit

[Jared Miller]

Looking for a bit of help in character removal from the Name field.  Would like to be able to remove all / . and – from that field.

I am currently using the following on TE-ST;BABY;1 BOY:

regsub -all {\|/|-|.} $name “” name

The problem is that it outputs TEST only so the first and middle names are gone.  What am I doing wrong??

Topic

[James Cobane]

Jared,

Make sure that you are treating xlateInVals and xlateOutVals as lists in your code:

set name [lindex $xlateInVals 0]

regsub -all {\|/|-|.} $name “” name

set xlateOutVals

Hope this helps.

Jim Cobane

Henry Ford Health

[Jared Miller]

Here’s what I have…..

       set xlateOutVals “”

       set name $xlateInVals

       set name [lindex $xlateInVals 0]

       regsub -all {\|/|-|.} $name “” name

       set xlateOutVals

[Anonymous]

Jared,

When you use the field reference of a field that has subfields as the source of a translation action, the engine creates a list of all the subfields to put into xlateInVals.  So, the name field doesn’t contain “name;name;name” it contains “name name name”.  You can actually simplify your code to accomodate by not doing the lindex or passing the field back as a list.

Try this line only:

regsub -all {\|/|-|.} $xlateInVals “” xlateOutVals

[Jared Miller]

Ah, that makes sense Greg.  That worked for me perfectly.  

Thank you both for your assistance.

[Author]

Replies