Can someone please tell me what the issue is with my query below?

Error string “BADDATA caught exception trying to processMessageFromCloverleaf: Failed to write message to database: Incorrect syntax near ‘<‘.”. Returning bad send to engine.

UPDATE IMS_TCHEADER

SET

IMS_TCHEADER. FILLER=NULL,

IMS_TCHEADER.FILLER1=’Y’,…Read more

How can format the query so that sql database interprets it correctly as the actual date when UPDATING a database from an incoming file (string)?

Output from logs:

IMS_TCHEADER.TCHEADERAGRMNTDATE= 2018-10-02,

*********************************************

In Cloverleaf it is configured as below:

UPDATE IMS_TCHEADER
SET…Read more

Now I need help with writing a TRIX_id tcl please using the commands keylget and keylset and USERDATA

I want to extract 3 types files where the msgDriverControl /Protocol Driver may have either

1. IMS_Daily or
2. IMS_CVENDOR or
3. IMS_TCHEADER
4. All the others can be killed

I have attached Metadata and Protocol Driver…Read more

I am not good with tcl and need help to write a simple UPOC to do the following please:

I receive various file names from a source once daily and I need to update the database only of the file type is SMS Daily , TCHEADER  or CVENDOR . The rest can be killed.

The problem is, the contents of the file is received in a separate message that…Read more

Some is odd again!
I am unable to select all the column names in one of the table but can on the other?
Please refer to my screenshots to see the difference.

Thank you.

I have checked with our DBA and it’s not a permission issue. I can only select a singe row, the rest can not be selected.

I have added a screenshots to demonstrate the issue.

Not sure why?

Thanks.

Qn #3:

Why is the “errormsg” set at the top does not get displayed in an email?

I tried changing the variable to an “error” but still the same?

set errormsg “This is the message ID: $MSH_10 nn This is the reason why:nn $errormsg nn The Order Id is : (OBR.2) $OBR_2”

*****************************************

The ema…Read more

Just to clarify,

(1) This line (.1):

set found_mrn [hl7::get_field hl7 PID.3(5=MR).1]

Does “.1” mean PID3.5.1 field value?

(2) I know I am not using the “for” look in the code above anymore but,

for { set i 1 } { $i <= [hl7::count hl7 PID.3] } { incr i } {

Does the above mean that loop through the repitions of PID-3 field and…Read more

This has worked without a for loop.
Thank you, nice and simple solution.

proc tpsMissingMRN_1 { args } {
global HciConnName
keylget args MODE mode
set ctx “” ; keylget args CONTEXT ctx
set module “tpsMissingMRN/$HciConnName/$ctx”
set uargs {} ; keylget args ARGS uargs
set debug 0
catch {keylget uargs DEBUG debug}
set dispList…Read more

I replaced

for { set i 1 } { $i <= [hl7::count hl7 PID.3] } { incr i } {

with your suggested line,

set mrn [hl7::get_field hl7 PID.3(5=MR).1]

but it errored?

I will try it.

If anybody has any TCL with Cloverleaf training guide or good tcl example re-usable scripts, please let me know.

######################################################################
# Name: tpsMissingMRN
# Purpose: This will pick up relevant details from the ADT and ORM message from Meditech and…Read more

Please IGNORE the above,

I have added a new error below:

Error:

MSH_10: ORDERS-OUT.12.2431267
PID_3: X1234785^^^^PI~123456^^^^MR
[0:TEST] Tcl error:
msgId= message0
proc= ‘tpsMissingMRN’
args= ”
result= ‘can’t read “1”: no such variable’
errorInfo: ‘
can’t read “1”: no such variable
    while executing
“hl7::get_field hl7 P…Read more

Thank you, edited but still erroring?
MSH_3: 
MSH_10: ORDERS-OUT.12.2431267
PID_3: X1234785^^^^PI~123456^^^^MR
[0:TEST] Tcl error:
msgId= message0
proc= ‘tpsMissingMRN’
args= ”
result= ‘expected integer but got “=0″‘
errorInfo: ‘
expected integer but got “=0”
    while executing
“incr pid_counter  “
    (procedure “tpsMissingMRN” line…Read more

Testing Tool output

Please Wait ……
Command Issued: hcitpstest -r run -x UTF-8 -L -f nl -c sms_ib_data -e “hcitpstestshowbydisp ” /cloverleaf/cis19.1/integrator/site_cvis/TestMessages/NO_MR_ORDERS-OUT.12.2431267.nl “tpsMissingMRN”
Command output:

I am here
MSH_3:
MSH_10: ORDERS-OUT.…Read more

Testing Tool output

Please Wait ……
Command Issued: hcitpstest -r run -x UTF-8 -L -f nl -c sms_ib_data -e “hcitpstestshowbydisp ” /cloverleaf/cis19.1/integrator/site_cvis/TestMessages/NO_MR_ORDERS-OUT.12.2431267.nl “tpsMissingMRN”
Command output:

I am here
MSH_3:
MSH_10: ORDERS-OUT.12.2431267
PID_3:…Read more

I change that too (as per your comment).

for { set i 1 } { $i < [hl7::count hl7 PID.3] } { incr i } {
incr pid_counter

if { [hl7::get_field hl7 PID.3($i).5] eq “MR” } {
set mrn [hl7::get_field hl7 PID.3($i).1]

}
}

Let me revisit it.

My script is not erroring anymore after I edited however it is not giving the desired results, unsure why?

This is my test message:

MSH|^~&||COCLB|||202406041326||ORM^O01|ORDERS-OUT.12.2431267|P|2.4|||AL|NE| PID|1||X1234785^^^^PI~123456^^^^MR||Test^Testing^^^^^L||19760101|M|||||.^PRN|||||E2911111|…Read more

I am novice tcl programmer.

Need help with the tcl error below:
Please Wait ……
Command Issued: hcitpstest -r run -x UTF-8 -f nl -c sms_ib_data -e “hcitpstestshowbydisp ” /cloverleaf/cis19.1/integrator/site_cvis/TestMessages/NO_MR_ORDERS-OUT.12.2431267.nl “tpsMissingMRN”
Command output:

[0:TEST] Tcl error:
msgId= message0
proc=…Read more