Code:

######################################################################
#     Name:     test_lab_251_compendium.tcl
#
#   Purpose:  Builds lab compendium for auditing purposes.
#
#   Author: Brandon Grudt
#       Memorial Health
#      …Read more

Terry Kellum wrote:
Expiring old codes will be a problem.

When you set those two variables, the lindex format is way off.

set editedvalue [tbllookup -side MY_SIDE MY_TABLENAME $value]

(You’d substitute MY_SIDE with either input or output)

Typically you would split the string like you had, and then perform a foreach.

  set count 0

$stmt->bindParam(‘:MessageControlID’, ‘$messageControlId’, PDO::PARAM_STR);

I read through this thread and it seems like AGES ago.  After receiving some good advice on here, I settled on a standardized thread naming structure.  

All of my threads look like this –

pa_01_i_pgon_aor

I use the underscore to split the thread name in tcl for various things.  The sub-components are as follows –

1. pa – This stands…Read more

http://www.hl7.org/implement/standards/product_brief.cfm?product_id=186

I’ve never worked with it either, but I’ve done some research.  It seems like it would be great if we could just blink V3 into being the standard, but the time and effort to get a bunch of vendors to migrate to this standard seems to be a…Read more

The inclusion of tcl would allow us to also manipulate the message to our specs.  For instance, if I…Read more

As I’m writing this, I wonder if the issue is that I am sending these OB post-proc from SMAT.  That seems like it would…Read more

Here are our ARGS –

Quote:
{SEGNAME PID} {FIELDNUM 18} {SUBFIELDNUM 0} {RECIPIENTS {brandon.grudt@memorialhosp.org,other.user@memorialhosp.org}} {VALUE ENCOUNTER} {ACTION CONTINUE}

Here is a working email proc that we have in place -…Read more

Typically, I use the inter-site routing method when I want to merge client feeds.  I use a loop when I want an client to send messages to a server.

To use the inter-site…Read more

set out [string map { ~~ ~ ~~~ ~ } $in]

– The testing tool in Cloverleaf is your best friend.  Save a test message as a txt file, and use the TPS testing tool.  Send it to the proc hcitpstestshowbydisp.  The result will show you both the output and…Read more

I’d be curious to hear what you decide.  We are in the same position.

If you want to send to a client (outbound thread) you must set the inter-site routing port on the client you want to receive the data.  Then, you must create a new destination (instead of a new thread) and point it to the client that has the inter-site routing port.

If you…Read more

#loop through the message and convert OBX.3 to UPPERCASE
foreach loc [lsearch -all -regexp $msg “^OBX”] {

# get the obx segment and obx 3 field from the message
set obxseg [lindex $msg $loc]
set obx_3 [lindex [split $obxseg $fsep] 3]

#make all data in obx.3 UPPERCASE
regsub -all — {.*} $obx_3…Read more

Scott Rush wrote:

Epic doesn’t solve everything.
It is not the end all, be all.
Ha ha

One thing you can consider when there are port limitations is using a destination.  Set an OB thread as a destination for another OB “thread” (set as a destination, not as a thread), which…Read more

David Barr wrote:
Sunquest sent us this URL:

https://questions.cms.gov/faq.php?faqId=8904

It sounds like Cloverleaf could be used for our purposes because we don’t want to use it “to satisfy a meaningful use requirement and not simply to transport the data”.

I take this to mean that we won’t be able to modify messages in our engine unless…Read more

Terry Kellum wrote:
Cool Beans Charlie!!!
I have never heard of lvarpop before.

As a rule of thumb, I use lsearch to validate messages or change a single known field.  Alternatively, I use the foreach loop if multiple modifications need to be made, with a few exceptions.  Basically, if I know I need to parse a section of the message, I’ll just throw a loop out there.  If I know exact coordinates, I’ll identify them…Read more

In this case, you would want to perform a foreach loop on the segment list.  In it, you would do an if statement to grab the segment with the I10.  You would also want to remove the following segment as well.

This may not be…Read more

Instead of converting lifespan to seconds, then back to years, all you need to do is compare dates.  That will get you your difference.  Also, I would use a date listed as an admit or discharge date in your…Read more

set bday [grab the last 4…Read more

Use a variable set to 0 as a counter, then run a foreach on the segments.  Split the segment into fields, find the field you want, set a variable with the data from that field, then run a search in an if statement to see if it contains that sequence of characters.  If true, increase…Read more

return “KILL $mh”

line at the end of your script.

Thanks.