Tried to send to:  peggy.schwartz@valeywisehealth.org

Got this response:  <peggy.schwartz@valeywisehealth.org>: Host or domain name not found. Name  service error for name=valeywisehealth.org type=A: Host not found

Let me know if you got it

Its amazing that after all this time Cloverleaf does not recognize HL7 escape characters.

See this web page: h…Read more

Sorry about that

Instead of   lappend dispList “CONTINUE $mh”  try set dispList “CONTINUE $mh”

What do you mean by the hook? I am not saying to interrogate the Error Database via a proc.  Once the process and the thread is shutdown, I am sure there will be some manual intervention before restarting.  At that time you can ma…Read more

When you exec this from the engine you must make sure the process does not receive any more messages since the stop command may take a while.  You can do this by just not…Read more

To make it better, if he original message was large, after getting the data from the original message handle you could do something “msgset $mh “.  That way you are not copying the data wi…Read more

set dispList {“KILL $mh”}
set nmh msgcopy [msgcopy $mh]

foreach fn $files {
msgset $nmh $fn
lappend dispList {“CONTINUE $nmh”}
}

Return $displist

For the above you need to have three array elements:  OrderNo, AccNo and Code.  Then make each a list . As you parse a value,  lassign it to the proper array element as needed.

Other than this I would need to see your proc.

It is for rudimentary parsing.  If you need more look for he Tcl DOM package.

If simple XML and you have a priori knowledge of the layout it can be done quite nicely with regular expressions.

For some reason, regex scares the hell out of some but it is…Read more

Just a thought

I tried send the proc tour email but it bounced.  Any ideas.  Maybe change the suffix?

I tied uploading it to the forums as .htc suffix and then again as .txt and was rejected each time

Has anyone had any luck uploading a proc to the forum?

I sally put it in contrib directory so I have a path.

set dt 20250305

regsub — {(d{4})(d{4})} $dt {21} newdt

echo $newdt  ==> 03052025

The beauty of TCL is there are several ways to do the same thing

The change will require restart any way so no need to automate too much.

6.2 is REALLY old 🙂

Try fileset-local protocol

Good luck with it.  Problems like this can be a bitch troubleshoot

With that said I don’t understand the repeated use of the hl7 package when it is so easy to simply split the message into segments and then into fields to get what you need.  The package is not very ergonomic since with each call it…Read more

You are so right Jim.  He will be sorely missed!

Simply create multiple Alert files and give each some meaningful name like weekend.alrt, etc.   Make sure you save a copy of your stardard alerts file to something like standard.alrt. Then when you need your special alerts simply rename the alert file you want to use to default.alrt.  Th…Read more

I find it safer to stop the process even if it means putting a thread in…Read more

Here is a snippet from the X12MetaData_template that resides in $HCIROOT/tclprocs.

Perhaps you could use it as a template to extract the fields you need.

set USER_DATA [msgmetaget $mh USERDATA]
if {[catch {set ISA_DATA [keylget USER_DATA ISA]}] == 0} {
set i…Read more

If me I would do something like: (Assuming you want current site NetConfig)

netconfig load $::HciSiteDir/NetConfig

foreach conn [netconfig get connection list] {

set data [netconfig get connection data $conn]
set klst [keylget data DATAXLATE]

foreach {full part}…Read more

<i>dbcmd</i>  <b>copy</b>  <i>conflict-algorithm</i>   <i>table-name </i>  <i>file-name </i>     ?<i>column-separator</i>?   ?<i>nul…

Read more

You can exec any executable from Tcl.  How it behaves depends on how it is written.  Where the output goes where it expects input from dependencies, etc.

Just a thought.

Look at hciunixservice in the help files.

For two of your cas…Read more

Also, in Windows, if you add the .htc extension to each file  and then make sure the ext…Read more

In Linux or Unix you call the tcl script direct but then must capture stdout by doing something like:
set x [hciconnstatus > $foo]

Then set myvar  [re…Read more

Also, on older AIX boxes there were system values that had to be manipulated for very large messages.  I’m not sure that is still an issue.   I can’t remember the values that had to be changed (old man memory) but I am sure Clo…Read more