This worked perfectly…:)

set fileHandle [open $emailfilepath r]
set wholeFile [read $fileHandle]
close $fileHandle

Thank you…:)

set emailfilepath “/quovadx/cis5.8/integrator/kdtest_miln/files/infor_inscvg/temp/email_infor_inscvg.txt”

set msg2 [open $emailfilepath r]

echo
echo msg2 $msg2
echo

set emailfilepath “/quovadx/cis5.8/integrator/kdtest_miln/files/infor_inscvg/temp/email_infor_inscvg.txt”

set emailfile [open $emailfilepath r]

close…Read more

two questions:

1. I get the following error when I do a test on a tclproc:

sourceFilter /quovadx/cis5.8/integrator/kdtest_miln/tclprocs/tps_infor_deltaden_inscvg.tcl: Failed to source filtered file: can’t read “dispList”: no such variable

What is the best way to fix this.

2. I keep getting an error that example ‘can’t read ‘per05’;…Read more

I think that would be great. Would it be good sometime between 7:30am PT to 1:00pm PT. My number is below or I can call you whatever is convenient.

My number is 559-624-5386 or 1-559-936-4785

Thank you

I set this up and getting the following error when testing. Not sure what this is.

Please Wait ……
Command Issued: hcixlttest -a -i -e ASCII -d 1 -f eof infor_deltadental_inscvg.xlt /quovadx/cis5.8/integrator/kdtest_miln/Testing_VRL2.CONTINUE
Command output:

MESSAGE 1

Field Number:…Read more

Please let me know if you need more info…

set newspccntn1p5 [append test $seg$spccntn1p5]

Why do we have to put ‘test’ in for a variable? Does not affect the outcome, I am just curious.

Thank you…

regsub -all {~*} $msg “~” msg

Also, this is what I have under ‘Run’

# ‘run’ mode always has a MSGID; fetch and process it
keylget args MSGID mh
keylget args ARGS newchar
set st 0
if { [llength $newchar] == 3 } { set st [lindex $newchar 2] }
set msg [msgget…Read more

This is a fixed length file that is coming into cloverleaf and I map it to a variable length and goes outbound.  I then want to you tcl to replace the characters described above.

The second part of the question is h…Read more

echo set xlateOutVals $newmrn

I took the echo off and all was ok… odd…

Thanks,

Tom

Hope all is well…

Do you still have those tcl procs?  my email is tgilbert@vmchealth.com.

Thanks,

Tom

I am attaching my Tcl Proc and xlate

set err2 [odbc SQLGetDiagRec SQL_HANDLE_STMT $hstmt 1 SqlState NativeError MessageText 511 TextLength]

echo err2 $err2
echo sqlstate $SqlState
echo nativeerror $NativeError
echo messagetext $MessageText

incase you are calling the tcl from a xlate that is included otherwise just remove it.

I use the DNS on the cloverleaf server and I call a stored procedure:

set debug 1
package require odbc

upvar   xlateId       xlateId
       xlateInList   xlateInList
       xlateInTypes  xlateInTypes
     …Read more

set newmsg $KDDH_Message
set mh [msgcreate -recover $newmsg]
lappend dispList “CONTINUE $mh”

The msgcreate is creating message0 which is great but not going to the thread…

I attached the setting when i select Protocol: UPOC for my protocol and the Read…Read more

Is this correct?

ib_lab  

  PROTOCOL: pdl-tcpip
  Type: Server
  Port: 6040

ps_hospital

  PROTOCOL: tcpip
  Type: Client
  Host: localhost
  Port: 12345

ob_hospital

  PROTOCOL: pdl-tcpip
  Type: Client
  Host: 172.16.10.31
  Port: 7050

Here is a screen shot…

[/img]

hcidbdump -r -U tgilbert -f fr_prm_orm -D

I got the following:

Done.  No messages found to delete.

There is one message in pending on this thread…

Thanks…

fr_thread1
  xlate_to_thread2
     proc1
     proc2
     xlate1
     xlate2

I know there is a way to select multiple procs and set the order in which to run.

I do not see a way to select xlate1 and xlate2 to be on the same route message.

I was wondering if it is possible and how it can be…

I put in a while statement in the beginning of my tcl proc looking for the value.  

Then I ran through the sql query.

If there was no value found I killed the connection and went the through the while until data was found in the column I was expecting.  

I then…Read more

This is resolved with the help of Jim.  I will be attaching a document soon with screen shots on how this was resolved…

Thanks,

Tom

I finally got the error: 2400 Invaled Cursor State

I used the following command to get the error:

set err2 [odbc SQLGetDiagRec SQL_HANDLE_STMT $hstmt 1 SqlState NativeError MessageText 511 TextLength]
echo err2 $err2
echo sqlstate $SqlState
echo nativeerror $NativeError
echo messagetext $MessageText

The…Read more

set err [odbc SQLExecDirect $hstmt $insert SQL_NTS]

What would be the best way to configure SQLGetDiagRec.  I keep getting wrong args… 😕

Thank you

set insert “INSERT INTO PRM_PCIS_OrderNo_xRef (prm_msgid,pcis_orderno) VALUES(”,’$msh_10′,”,”)”

set err [odbc SQLExecDirect $hstmt $insert SQL_NTS]
echo err $err

$erro is equaling ‘SQL_ERROR’

Any thoughts…

MESSAGE 1
Tcl callout error
erroCode: NONE

errorInfo:
wrong # args: odbc SQLExecute hstmt
      while executiong
“odbc SQLExecute $hstmt “INSERT INTO $table (id,prm_msgid,pcis_orderno,insertdatetime) values(,$msh_10,,)” SQL_NTS”
      (procedure “vmctps_storemsgid_prm_kddh_orm” line 83)
      invoked from…Read more

I am trying to insert data to the SQL table trying to use the following:

set err [odbc SQLExecute $hstmt “INSERT INTO $table (id,prm_msgid,pcis_orderno,insertdatetime) values(,$msh_10,,)” SQL_NTS]

Please help Need assistance on why it is not working… ❓

Yes I do have the outbound only unchecked on the outbound thread

What do you mean by increasing noise?