Connect to Cloverleaf tcp/ip thread with tcl socket command

I did something similar, as far as connecting to an input thread, but some of the options I’m using are different – it does not mean I know what I’m doing though! I got it to work but I think there was a byte or two ‘leftover’. And I just waited for a response and discarded it, mostly because the thread I was sending to wanted to send an ACK and I needed to consume it. I don’t know much about the ‘buffering’ or ‘blocking’ options.

Peter

######################################################################
# Name:      prl_status_tcp
# Purpose:   Put information into a tcp/ip connection. This is called
#            in Send_OK or in a batch script. That is all it does.
#            A pair of threads will be on the receiving end of this
#            tcp socket – getting the tcp/ip message and then sending
#            it to the outbound thread which updates a database.
#
#            This is a called proc.
#
#            Specific use:
#            This updates the audit_prl SQL Server table which tracks
#            prl message delivery.
#
#            The values are all passed in a list:
#
# UPoC type: tcl
#
# History:   2016/06/30 PCH created
#

proc prl_status_tcp { debug module flist } {

set debug 2
set module “$module.prl_status_tcp:”
if {$debug > 1} {echo “$module debug”}

if {$debug > 1} {echo “$module flist: $flist”}

lassign $flist uid tstamp interface facility status note type server path name size time
set status “”
set mlp_begin “\x0b”
set mlp_end “\x0d\x1c\x0d”

if {$debug > 1} {echo “$module uid: $uid tstamp: $tstamp interface: $interface facility: $facility status: $status note: $note”}
if {$debug > 1} {echo “$module type: $type server: $server path: $path name: $name size: $size time: $time”}

# join list to set file content
set tcpdata [join “$flist” “|”]
if {$debug > 1} {echo “$module tcpdata: $tcpdata”}

set tcpdata “$mlp_begin$tcpdata$mlp_end”
if {$debug > 1} {echo “$module tcpdata with mlp: $tcpdata”}

# send data to tcp/ip socket
set tcpaddr [hcitbllookup “general_parms” “fr_batch_status_tcp_address”]
set tcpport [hcitbllookup “general_parms” “fr_batch_status_tcp_port”]

set chan [socket $tcpaddr $tcpport]     ;# Open the connection
puts -nonewline $chan “$tcpdata”         ;# Send a string
flush $chan                              ;# Flush the output buffer
set response [gets $chan]                ;# Receive a string
close $chan                              ;# Close the socket
if {$debug > 1} {echo “$module tcp ip chan $chan send response: $response”}

}

Hi Robert,

We don’t use this method you are describing I’m sorry I can’t help you with that.

But I think we use something different for the same problem.

In the CWZ Nijmegen we will call this “enrichment / verrijking” procedure and use it to check for data in another our EHR while the orders are coming from a different facility.

I basically make a new QRY message on the (national) IDnumber, store the original message in a sql lite database,

After the qry, I use the result of the qry to use take the appropriate route ( positive QRY-result is an other route than a negative QRY-result).

Then I pull the original message from the database (based on multiple fields) and start to enrich the original message and sent it to the right location.

You don’t want to enrich the message (I think)  but the making of the qry and the receiving of the qry and the routing are the same..

If this is what you are after.. please sent me a message ( in dutch).

• This reply was modified 4 years, 6 months ago by lauri buijs.
• This reply was modified 4 years, 6 months ago by lauri buijs.