set sql "INSERT INTO inbound_log (mrn, hl7_raw, received_dt) VALUES ('$mrn', '$hl7_text', GETDATE())" hciodbc::exec $conn $sql hciodbc::disconnect $conn
# Parse MSH-9 (Message Type) set fields [split $msh " cloverleaf interface engine tutorial pdf
proc route_by_type data args set msh [lindex [split $data "\r"] 0] set fields [split $msh " set sql "INSERT INTO inbound_log (mrn, hl7_raw, received_dt)
return $data When a TCL error command is called or a process crashes, Cloverleaf moves the message to: set sql "INSERT INTO inbound_log (mrn
# process_msg.tcl - Basic HL7 logging proc process_msg data args global HCI_ROOT # Extract MSH segment set lines [split $data "\r"] set msh [lindex $lines 0]
Send ADT^A01 to an EHR, but ADT^A03 to a Pharmacy system.