[Jeffkohl]

Jason,

I am new to TCL can do basic hl7 adjustments but this one is new to me

This is the full TCL

Where am I assigning the the location the file should go after it is processed?

Is there anything not needed

proc test_move { args } {
keylget args MODE mode ;# Fetch mode

switch -exact — $mode {
start {
return “”
}

run {
# Get message handle
keylget args MSGID mh

# Check for correct context
keylget args CONTEXT ctx

if {$ctx != “fileset_ibdel”} {
echo “\nERROR proc used in wrong context”
echo “Context should be fileset_ibdel”
echo “Proc called in: $ctx\n”
return {CONTINUE $mh}
}

# In this context the message handed to this proc
# by the driver in not a data message. Rather
# it is a list of file names from the directory
# the fileset driver is configured to read.
#
# The list of files to process is accessed
# in the same way data messages in other contexts
# are accessed.
#
# The list is manipulated and returned
#
# The fileset driver now processes the files in
# order they appear in the returned message list.

set msg_list [msgget $mh]
set ofileid [open file_process.log a]
echo “Inbound File: $msg_list”
#set destination_file $arg_dest_dir
set destination_file $msg_list.processed
#echo “ofile: $msg_list.processed”

file rename -force $msg_list $destination_file

# Put modified list in the message handle
msgset $mh $msg_list

lappend dispList “CONTINUE $mh”
}
}
}

[Jeffkohl]

Thanks everybody what is the syntax for  when you pass through the ARGS

I used: {DESTDIR{/hci/cis2022.09/integrator/hmh_none_clin/data/archive}}

It did not like it and it kept the source file in the folder where it reads from and got stuck in a loop processing the same file with the messages over and over again

[Jeffkohl]

THANK YOU SO MUCH THIS HELPS ALOT!!!!

[Jeffkohl]

Brent thank you for the tcl that is what I was trying to to do just did not know what the variables where to pull and change.

I will have to play around .  Where did you plug that TCL into in the route or some where else

Also never did a connection using PROTOCOL:http-client, we usually use TCPIP first time connecting to an API

I can not get my thread to start I keep getting an error: Error Msg : No Query TPS configured — HTTP Client driver will do nothing without it.

I found that field on the set up. is there a standard TCL to plug in there or is this something specific to this thread I need to create

THanks for any help anybody can provide!!

 

[Jeffkohl]

we do have the Java/ws-client license and can use that if that is the better way

 

[Jeffkohl]

Thank you I will review with one of my co-works and give it a try!!!!!!!!!!

[Jeffkohl]

Thank you Robert that is just wanted I needed !

[Jeffkohl]

yes it is a little over kill but being super cautious

[Author]

Replies