Hi Ariba,
Try this tcl-code where you copy FT1-7:
lassign $xlateInVals number;
set newnumber [string range $number end-4 end];
set xlateOutVals [list $newnumber];
This will always take the last 5 digits of the number and further assumes that there are no leading/trailings spaces.
Hope this helps.
Zuyderland Medisch Centrum; Heerlen/Sittard; The Netherlands