Replacing .BR to ~ and split to multiple OBX

Depending on what you feel most comfortable doing, TPS or Xlate, there are several ways to try to tackle this.

1.  Change .br to ~ in a TPS before message hits Xlate.  Then in Xlate, iterate over the repeats, keeping a second counter for your outbound message OBX segments, and copy each repeat iteration to its own OBX outbound.

2.  Do it all in a TPS, break it down, into a list, foreach over the elments and lappend the each item to its own OBX in outbound message segment list.

3.  I did it all in an Xlate, by first using TCL within Xlate COPY to [string map \.br\ ~], split the result on ~, passed resulting list back to @nte_list with @num_vals as the [llength $nte_list].  Then set up clever iteration over the list using BASIS 0 1 (someone put this up in another post and if someone could post a reference to it; AWESOME), to put each list element in its own OBX segment (I had to take NTE and convert to OBX, one line per .br..

Probably more ways to do it too.

Hope this helps,

Henry,

Make the Iteration a List Iteration. Key in the basis as 0 space 1 (0 1). Let’s say you use $l1 as your counter.

Inside the Iterate as long as you want to keep iterating (you have not exhausted your list yet) COPY =0 –> $%l1 (the $ is important here).

ITERATE will then see its counter is not yet greater that the basis count (which is 2) and ITERATE again – this can keep on forever unless you take action to end the loop.

You typically do that with an IF that indicates you have exhausted building your OBXs. In that case you COPY =2 –> $%l1 (again the $ is important).

You will need your own counter for the OBX field OBX-5 (I use somethting like %f99 as it is a field repetition). You will need to increment and manage that counter with MATH Actions, etc. and it is the %f99 counter you will use in the appropriate position of the address path for the OBX-5 field.

😀

This post was a timely post for an issue that I am working on.  I’ve concatenated all of my OBX 5 segments into one OBX 5 using the following logic:

COPY 3(0).0(%g1).OBX(%s1).#5(0) -> 3(0).0(0).OBX(0).#5(%s1)

Produces this output:

…result on our patients.~This patient gets used for lots of radiology result testing.~When this patient goes out at night…

I’m working on a tcl to use in the copy to replace the ~ with /.br/.  Below is the statement that I use in the above copy statement(that doesn’t work)

set xlateOutVals

} [lindex $xlateInVals 0]]]

Any help is appreciated with this issue.

Kindest regards,

Jill Marcotte

Jill,

Give this a try:

inside your ITERATE use a CONCAT to CONCAT the OBX-5 segments into a single OBX-5.

The Sourcxe would have the outbound OBX-5 (no repetition) – it should have a tilde (~) in front. Just select from the outbound and tell it to use as Source (one of the buttons below the field selected)

The second source wilbe your repearting OBX-5 from your inbound message.

in the CONCAT separator use .br

For the destination point to your outbound OBX-5 (no repetition).

You should not need any Tcl.

If you have questions, email me

Thank you – that worked like a charm.  Could you provide me with explanation as to why to pull in the outbound into the source?

Regards,

Jill

Jill,

You ned to add each OBX-5 inbound to one OBX-5 outbound.

So if you did not use the outbound field as part of the Source for the CONCAT within the ITERATE you would end up with the last OBX-5 plus .br – you want them all

First iterate…

  inbound has abc

  outbound has nothing

  after CONCAT

   outbound has .brabc

Second iterate…

  inbound has 123

  outbound has .brabc

  if we use the outbound then we will concat

     .brabc with .br and 123 giving us .brabc.br123

and so on