set xlateOutVals

lassign xlateInVals in_obx_5
set out_…Read more

We have a similar setup to Grace.  We have eight hospitals and multiple clinics.

We have three ADT interfaces out of Epic.
– One is strictly for clinical use so doesn’t have the hospital admissions, transfers, and discharges – just the registration and patient level updates.  The messages come in on one site and then route to 4 other s…Read more

I keep telling them I’ll move up my retirement if they switch to the cloud – right now th…Read more

#current date minus 5 years

set todays_date_minus_5 [clock format [clock scan ” – 5 years”] -format “%Y%m%d”]

there is also a clock add command:

set todays_date_minus_5 [clock format [clock add [clock seconds] -5 years] -format…

Read more

string range <string> <first> <last>

where <string> is the value you are pulling from, either a variable or in quotes

<first> is the position of the first character to pull (zero based index)

<last> is the position of the last character…Read more

Or through a command line, use the hcimsiutil command.  Options ar…Read more

lassign $xlateInVals in_val
set o…Read more

For AIX you can find what is using that port by using a couple of commands.

This returns the PID that is using the port:

lsof -i:<port>

This will then show what the process is:

ps -ef|grep <pid>

You can then top the process using the port,…Read more

For instance, we have one of these procs setup for messages from our…Read more

As with most things in Cloverleaf, there are multiple ways to get to the end results you want.  With the given information, I would probably do this in a translate as opposed to writing a TCL proc, but that could…Read more

We’ve never had an issue with Interconnect reading the complete OBX segment so we’ve never had the need to split the OBX value.  We do have one vendor that limits the characters in OBX-5 and will send multiple lines for the PDF report.  Interconnect handles them with no issues.

Regarding multiple PDFs sent to Interconnect, we have n…Read more

2(0).3(0).0(0).AIL(0).#3(0).[0] ne @lit_clinic_screening

Thanks.

Thanks!

keylset userdata DATA “verbiage to display in USERDATA”
msgmetaset $mh USERDATA $userdata

This is assuming that “mh” is the variable name used with the keylget args MSGID command.

as far as the colors when changing a variant. When you first add/change a field, it will show as italicized before saving. After saving, it will not be italicized.

Added fields,…Read more

I have two different tps procs, one named proc_1 and another named proc_2 (not their real names ;-)).   Both procs have a namespace called “workSubs” (namespace eval workSubs), the namespaces in each have a proc called “…Read more

• add an argument for VENDOR which is just a free text that is used on the email body and s…

Read more

lassign $xlateInvals in_name
# assuming “<firstname> <lastname>”
# pull out last name
set out_pid_5_0 [lindex $in_name end]
# pull out first name – everything except last…Read more

I believe %l1 has the value in the list (“one”, “two”, “three”, so forth) , not an index so that is why it is bombing on the lindex command.

Since we aren’t on a version that does that yet (getting there!), I usually use the work-around that Jim K has in this post: Iterate using the list option – Clovertech (infor.com)

You might need to get the TS for Interconnect involved to make sure the setup is correct there.

switch -exact — $field_to_check {
“value 1” {action to take}
“value 2” {action to take}
…
default {action to take}
}

There are two other options besides -exact: -glob and -regexp.  The “–” marks the end of the options, and the “default”…Read more

To expand on Jim’s entry:

set keyed_name [msgmetaget $mh DRIVERCTL]  ;# pulls out the file information

set filepath [keylget keyed_name FILENAME] ;# pulls out the path and file name

You could combine those into one c…Read more

input is the PID-7 field, output is a variable used as a flag (@underage_flag in my case)

lassign $xlateInVals dob_date
# get yr, m and day only
set temp_date [string range…Read more