- This topic has 5 replies, 3 voices, and was last updated 7 years, 5 months ago by
.
-
Topic
-
-
Replies
-
-
First – I don’t think you will need Tcl for this.
Second – is the layout you show actually what is in your variant(s)?
If so I don’t think they are correct.
email me if you would like me to help you and I will work with you off-line.
email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.
-
The variant – has the OBX in it –
The message never does.
The inbound message has an NTE that has to be parsed up into
a MANY – OBX’s outbound
I’ve only been successful with getting my Xlate to work by creating a message with a single benign OBX.
end_prologue
MSH
PID
[ PV1 ]
[ PD1 ]
{
{
[{ IN1 } ]
[ IN2 ]
[ IN3 ]
}
[ GT1 ]
}
{
[{ ORC } ]
[{ NTE } ]
{
[{ OBR } ]
[{ NTE } ]
[{ DG1 } ]
[{ OBX } ]
}
}
Lawrence Nelson
System Architect - MaineHealth IT -
-
Changed my mind. Decided to post code – nothing else going on 😀
Jim will tell you how to do without Tcl and you can decide which way to go
Did not test a lot as I don’t have your messages
==============================================
# Set canned OBX segnent to whatever
set OBX OBX|1||||||.|
# Split message into segments
set Segments [split $msg r]
# Get location of all OBR segments
set obrLoc [lsearch -all -regexp $Segments {^OBR}]
# Traverse in reverse order so as not to change OBR locations
foreach loc [lsort -integer -decreasing $obrLoc] {
# Assume no DG1
set dg1Loc -1
# List of all DG1 segments each time
foreach dg1Loc [lsearch -all -regexp $Segments {^DG1}] {
# We need DG1 *AFTER* the OBR
if {$dg1Loc < $loc} {continue}
# Got one after OBR – bail out
break
}
# No DG1 found – No mod to this OBR loop
if {$dg1Loc < 0} {continue}
# Get last one
# See if multiple DG1 and hget location of last one for the loop
while {[regexp {^DG1} [lindex $Segments [expr $dg1Loc + 1]]]} {
incr dg1Loc
}
# Incr location so we insert *AFTER* DG1
incr dg1Loc
set Segments [linsert $Segments $dg1Loc $OBX]
}
msgset $mh [join $segments r]
return “{CONTINUE $mh}”
-
-
- The forum ‘Tcl Library’ is closed to new topics and replies.
