Slit Long OB.5 into Multiple OBX segment with fixed OBX.5 lenth

I do not think there is anything native in Xlate to do the split portion. So you will need Tcl do do that specialized split.

You could have the result of that split be a list then use ITERATE (either list or user type depending on your release level of Cloverleaf) to actually build the OBX segments from the list entries.

I suspect the issue is the receiving system wants to display OBX-5 but has a 60 character line limit. In my opinion this is a failing of their software and they should make the appropriate accommodations.

Here is the tcl I use to change a NTE segment where NTE-3 is longer than 120 to multiple NTEs.

Gene Millard

The Guthrie Clinic

• This reply was modified 1 year, 8 months ago by Gene Millard.

There is a package of text utilities that I have used to split a line into specific lengths.  At the top of your proc, include the line “package require textutil”, then the function “textutil::adjust” will split the line to the specified length, returning the lines in a list separated by a line feed.  In the tcl proc we use it in, I have the command:

set split_OBX5_list [split [textutil::adjust $obx5 -full 1 -length $max_length] \n]

where $obx5 is the original value in obx-5 from the message and $max_length is the maximum length each line can be on the returned value.  The value placed in split_OBX5_list is the returned value split by the carriage return.  You can then loop through split_OBX5_list and create the new OBX lines.

If you search for “tcl textutil” you can find the full help text of all the package procedures and options for textutil.

Paul,

So where is that package located?

Good info to know.

Thanks

Never mind – I see it is part of the Tcl distribution.