Copy from one OBX segment to a previous OBX in Xlate

               { { OP IF }
                   { ERR 0 }
                   { COND { 1(0).1(0).1(%g1).OBX.00572.[0] == =3} }
                   { THENBODY {
                       { { OP SUB }
                           { ERR 0 }
                           { IN {{$%g1} =2} }
                           { OUT @mynewvar }
                           { FUNCTION SUB }
                       }
                       { { OP COPY }
                           { ERR 0 }
                           { PRE {
                               set #xlateOutVals [string range [lindex $xlateInVals 0] 6 end]
                           }}
                           { IN {{1(0).1(0).1(%g1).OBX.00573(0).[0]}} }
                           { OUT {{1(0).1(0).1($@mynewvar).OBX.00574}} }
                       }
                       { { OP COPY }
                           { ERR 0 }
                           { PRE {
                               echo $xlateInVals
                           }}
                    }}
                   { ELSEBODY {
                   }}

0(0).MSH(0)  :  >|^~&|LAB||||20091021094833||ORU^R01|92940000017|T|2.3|||MI00005265^^^SMD||PNSEVENS^MAYOTEST||19800101|F||||||||||I00000008753|RE|26143.001^LAB||||||||SAROW^ RON||^STRAYER^SUE^^^^^000451|LUBS|1|26143.001^LAB||SPG7P^PNEUMO VACC 7 TYPES||200910210809|200910210809|||||||200910210815||^STRAYER^SUE^^^^^000451||||W9134||||SO|F|SPG7P^SPG7P|^^^^^D|1|NM|SP4^SEROTYPE 4^ST4|1|0.4|Unit: ug/mL|||||F|||200910210947|IB^SMDB – LUBS DESK|7^SAROW^ RON|1||Reference range: >1.9|2|ST|SP14^SEROTYPE 14^ST14|1|<0.6||||||F|||200910210947|IB^SMDB – LUBS DESK|7^SAROW^ RON|2||Reference range: >5.2|3|NM|SP19F^SEROTYPE 19F^ST19F|1|1.6||||||F|||200910210947|IB^SMDB – LUBS DESK|7^SAROW^ RON|3||Reference range: >1.7<