I’ve tried SMAT DBs with a few hundred messages and it’s a little faster, but not enough.

The script is doing simple queries.

such as:

select MIN(Time),MAX(Time) from smat_msgs

select MidDomain,MidHub,MidNum,Time,rowid from smat_msgs

These examples are regularly taking 300-500 milliseconds.

Combined processing time for indexing a SMAT DB…Read more

All preliminary work was done on a test, unencrypted SMAT DB and all worked fine.

Now that I have a pilot build that uses encrypted SMAT DB, it’s showing numbers that are 6-8 times slower.  That won’t get the job done.

Is anyone doing similar things with SMAT DB?

Are…Read more

I’ve asked questions related to this in the past, so this may sound somewhat familiar.

I am trying to see a way to use SMATDB, but I continue to see problems with timely  updates of messages in the DB – in the Cloverleaf GUI at least.

I’m writing all of our prod ADT to SMATDB and consistently see…Read more

Are you wanting this script to email an alert and kill the message if it doesn’t have an MR in PID-3 and continue the message if you do find an MR?

Please confirm what…Read more

If you only want to kill if there’s a missing MRN, you’ll need to put a condition in there to check the MRN – once you’ve found it – for validity.

You’ll also want to set mrn to “” prior to your loop so that the variable exists in case you don’t find a repeat that contains “MR”.

Once you have your variable, you can use it…Read more

I expect that’s counting the number of repeats in PID-3.1 and likely returning 1 rather than the number of repeats in all of PID-3.

If that’s the case, it would never get to the repeat with the “MR”

Try [hl7::count hl7 PID.3] instead

I think that passing the variable by name is correct since the command prior to the one generating the error would probably have barfed if it was sent a string (hl7) and it was expecting the value in that string.

Passing the name and then referencing it with upvar in the called procedure is fine – and the only way to do it if the passed…Read more

lindex { segment segrep field fieldrep component subcomponent } $level

… to select one of the six values from the list {segment segrep field fieldrep component subcomponent }.  If level is zero, lindex returns “segment”.  If level is 3, lindex returns “…Read more

Like the Bartles & James guys said – “Thank you for your continued support”

Those that have failed recently have been the largest payloads – a couple MB or more. – so I considered that size might be an issue.  But I wasn’t thinking they’re huge.

I switched my test inbound to use TCPIP with MLLP encapsulation, and now get a different error, but looks like the same…Read more

The messages contain Base64 encoded PDF documents.

Most of the messages flow through this process smoothly.

There are a few, however, that are generating these errors:

[pdl :PDL :WARN/0:imageTrend_ib:05/01/2024 13:52:53] match phrase basic-msg…Read more

If it’s just a delay in the display of data, that’s one thing, but if it’s actually not storing messages in SMATDB real-time, that’s another thing entirely.

There’s certainly value to being able to query across…Read more

I have a test interface that’s storing ADT in one DB and corresponding ACKs in another.

When I display all messages (in time saved order) with both DBs selected, I expect to see each message displayed followed by its corresponding ACK.

But – sometimes – I’ll see several…Read more

I didn’t find documentation for non-current versions of SQLite, but did…Read more

You can use the SQLite Tcl extension/API commands directly from your Tcl script.

To check if a table exists:

if { ! [llength [$dbHandle eval “PRAGMA table_info(yourTableName)” ]] } { puts “table does not exist – do something.” }

To create a table:

if { [catch {$dbHandle eval “create table yourTableName(mrn INTEGER, personLastName TEXT,…Read more

But this looked like fun so I played around with adding routing/xlate info as well.

Attached is a fairly complete example proc that will read NetConfig for a specified site.

usage: readNetConfigExt <site> <arrayName>

>>> something like:…Read more

It’s also getting more apathetic as it gets older.

I’ll requisition a new one.

my response was substantially like Jim’s, so we’ll just leave it at that.

It should read something like this:

package require base64

set str [lindex $xlateInVals 0]
set xlateOutVals ]

package require base64

set str [lindex $xlateInVals 0]
set xlateOutVals ]

You can then run a wish or tclsh shell and run interactive Tcl commands from there – or you could source them from a file.

Perhaps that’s too simplistic an explanation…

What is it you’re looking to accomplish?

The “if” error handling was set to “skip”.

Defaulting to “skip” is a little optimistic.  I’m thinking a better, more conservative, default would be “error”.

Is the default behavior configurable?

I load a variable (@isAthena) with a boolean flag from a Tcl snippet.

I then attempt to reference that variable in an if.

if @isAthen eq =1

Note that the variable is missing the “a” at the end.

I’d expect it to throw a “variable doesn’t exist” error or something, but…Read more

> sysctl net.ipv4.ip_local_port_range
net.ipv4.ip_local_port_range = 32768    60999
The recommendation is to never use ports in this r…Read more

What port number is the problem?

What OS is your Cloverleaf server running?

There are lots of examples on the web site.

We use it anywhere we need to deliver data via SFTP or HTTPS.

We use it because it’s solid and inexpensive.

A 30 day trial option makes it easy to try.

Shoot me an email and I can send the code we’ve developed for SFTP and HTTPS.…Read more

It has a Tcl extension that has a ton of functions.

So far, we’re using it for SFTP and HTTPS.

I have chilkat integrated into Tcl SFTP and HTTPS utilities I can share if anyone’s interested.

Why not just use a regular file or SQLite (or other) DB?

hcitcl>hcigvt show
Global variable is empty!

I must admit I’ve not used this command at all, but rather read from shell variables – mostly the global variable env for HCI-specific values like $env(HCIROOT)

Back to the original post… Jim – what is it that you’re after…Read more

I’ve not seen this command before.

How does this differ from using Tcl’s regular global variables?

Thanks,
Jeff.

It’s dividing days old by 365, so the older the patient’s age, the greater the calculation error will be.

For example, if a patient was born 3/15/1950, and it’s currently 2023, the patient’s age in years will be calculated as 73 as early as 2/25/2023 – 18 days early.

I’m curious to know what kind of GUI app you’re planning to call from within a TPS proc.

ERROR: Your reply cannot be created at this time.

I’m trying to reply to #119547

I clicked submit and it returned an error – something like: “unable to perform this action  now”

Is there some sort of issue with posting replies?

I’ll loop through messages one at a time – write each message to a temporary file and queue messages with hcicmd using a command something like this:

if { [catch {exec hcicmd -p $process -c “$thread resend ib_pre_tps data 5120 /tmp/requeueFile.txt…Read more

“Web service is disabled on the Global Monitor Server”

My IT support folks assure me that all services are running on the GM server.

Global Monitor works from a browser on my desktop.

Any ideas?

Thanks,

Jeff.

If you want to read the content of the file, you’ll need to do that with read, gets, or something like that.

For example, after opening the file for read you can read the whole file.

set fileHandle [open $emailfilepath r]
set wholeFile [read…Read more

after opening the file:

fconfigure $outputFile -translation binary

You’ll probably also want the file opened in write mode. Otherwise, it will append if the file already exists.

set outputFile [open $pdfFileName w]

You also don’t need the flush since that’s automatically done when you close the file.…Read more

Do the two namespaces exist in different sites in 6.1 and in a master or other common site in 19.1?

Ultimately, they’ll have to be unique.

I usually use unique namespaces.  That way, even if you have procs with the same local name, they won’t conflict.

Something…Read more

package require base64

base64::encode <your data to encode here>

set decodedString [base64::decode <your base64 data here>]

if you’re reading a PDF file to be encoded in a message, open the PDF file with binary translation.

set pdfPath /tmp/jeffTestPdf.pdf
set infile [open $pdfPath r]
fconfigure $infile…Read more

It should definitely throw an error.

Let’s say that it’s designed to define variables on-the-fly as they’re used so you never run into an undefined variable condition (I know it doesn’t make any sense, but go with it for a minute…)

At the very least, if it’s not going to complain about the undefined variable, it should…Read more

We’ve been using a Tcl tool kit from Chilkat Software that would probably suit your needs.  It has lots of nice comm tools that are easily integrated into real time scripts.

We currently use it inside of a few TPS scripts for SFTP.  It allows us to read a file via SFTP into a string that we digest and built into HL7 messages.

It’s also u…Read more

The same is true for “array names”, so that’s not surprising.

If your array keys are consistent date/time stamps, you can just sort them with lsort.

foreach key [lsort [array names FT]] {

<do stuff with $FT($key) here>

}