[James Nelson]

In a tclproc:

set meta_kl [msgmetaget $mh DRIVERCTL]

keylget  meta_kl FILENAME FileName

 

In an Xlate:

set DriverCtl [xpmmetaget $xlateId DRIVERCTL]

keylget DriverCtl FILENAME FileName

[James Nelson]

I too was wondering what happened.  Glad to see we’re back!

[James Nelson]

Best wishes in your retirement and thank you for all of your contributions to the community over the years.

[James Nelson]

What version of HL7 is it using?  HL7 v2.3 only has 3 fields defined in the NTE segment so you could, with a small risk, assume that any pipe character after the first 3 is part of the comment and use ‘string map’ within a tclproc to convert them to the appropriate escape sequence.  HL7 v2.5 has a fourth field, but that could be accounted for as well if you know the valid comment types.

[James Nelson]

Depending on what you’re looking for, it may be available in the built-in env() array.

For example:

global env
puts $env(HOSTNAME)

• This reply was modified 2 years, 2 months ago by James Nelson.

[James Nelson]

Sorry, I didn’t get a notification that anyone had replied to my post.  I never did get it resolved, but I also didn’t open a support case for it.  I’d also be interested to know whether it is fixed in a later version of Cloverleaf.

[James Nelson]

I think Charlie posted a program called ‘hcidbsmat’ that allows one to do searches, including regex, in encrypted SMAT databases.  If you can’t find it, I can repost.  It’s kinda old (2015), but it should still work.

[James Nelson]

This is a simple one that we use.

Attachments:

You must be logged in to view attached files.

[James Nelson]

No reboot needed.  Just restart the engine for the site you changed.

[James Nelson]

If the message is an HL7 message, the reason the spaces are being removed is because, according to the HL7 encoding rules, trailing spaces are not significant so they are removed. This is the same for empty fields at the end of a segment.

If you want to add them after the Xlate, put your tcl proc in the ‘Post Procs’ stack in the Route Details or in the ‘TPS Outbound Data’ stack of the outbound thread.

[James Nelson]

‘string map’ also works well.

set OrigString {abcdefg~*hijklmnop}
set NewVar [string map

$OrigString]

[James Nelson]

Yes, you can have multiple records in your input file.

Format the file with one record per line with a newline at the end.

Use the FileSet-local protocol and in the Style field, select ‘nl’ for your inbound thread.

[James Nelson]

This is how I’ve done it in the past.  It may not be THE leanest way, but it’s pretty lean and works.
<pre>set DOB CCYYMMDD ;# Set DOB to the date of birth from the message
if {[clock scan “today -18 years”] < [clock scan $DOB -format “%Y%m%d”] {
# put your actions here
}</pre>
 

[James Nelson]

Stay safe and stay well, Charlie!

[James Nelson]

You can use the SQLite command line utility to dump the smatdb databases and then create an unencrypted database and reimport the data.

[Author]

Replies