- This topic has 10 replies, 3 voices, and was last updated 10 years, 9 months ago by
.
-
Topic
-
-
Replies
-
-
See code below, I’m sure there can be improvements in it, but it gets the job done!
Hope this helps!
Jerry
Code:keylget args MSGID mh
echo “MODULE: ”#Get the metadata portion that contains the inbound filename
#with directory path.
set filepath [msgmetaget $mh DRIVERCTL]#Split it up so we can pull just the filename.
set parse [split $filepath “/”]#Get only the filename, always the last item in the index.
#Truncate the extra bracket from the righthand side.
set filename [string map {”}” “”} [string range [lindex $parse end] 0 end-1]]
echo “FILENAME: ”#Append the filename to the OBFILE metadata.
msgmetaset $mh DRIVERCTL “{FILESET {{OBFILE $filename}}}”#Continue the message.
lappend dispList “CONTINUE $mh” -
Where do you normally place this proc? I actually got this proc from a earlier post and could not get it to work. I am realizing now that maybe I am placing it in the wrong place? I have two threads File_Inbound > File_Outbound. I was placing this in the File_Inbound inbound TPS and the File_Outbound Outbound TPS sections. Is this incorrect? -
-
-
-
-
Danny, I just noted you are using the FILE Protocol.
I do not believe you can change the file name on the fly in using the FILE Protocol.
Try to use the Fileset/Local protocol – among other things you can change the file name in that protocol.
email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.
-
I finally got it working. The issue ended up being a TCL callout error:
[xlt :xlat:ERR /0:Radiology_xlate:12/23/2013 14:44:59] Tcl error:
msgId = message0
proc = ‘tps_set_obfilename_eq_ibfilename2’
args = ”
result = ‘can’t read “module”: no such variable’
errorInfo: ‘
can’t read “module”: no such variable
while executing
“echo “MODULE: “”
(“run” arm line 4)
invoked from within
“switch -exact — $mode {
start {
# Perform special init functions
# N.B.: there may or may not be a MSGID key in args
…”
(procedure “tps_set_obfilename_eq_ibfilename2” line 6)
invoked from within
“tps_set_obfilename_eq_ibfilename2 {MSGID message0} {CONTEXT xlt_raw} {ARGS {}} {MODE run} {VERSION 3.0}”‘
I removed this line (echo “MODULE: ) and it allowed it to process correctly. Thanks so much for you help!
-
-
-
- The forum ‘Cloverleaf’ is closed to new topics and replies.
