[Tom Gilbert]

Hello Sir,

This worked perfectly…:)

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

Thank you…:)

[Tom Gilbert]

file already exists

[Tom Gilbert]

Here is the value from echo below… ‘msg2 file6’ Not sure where file6 is coming from

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

[Tom Gilbert]

Thank you for all your help. I looked over that a million times. appreciate everything…:)

[Tom Gilbert]

Here is the tcl proc…

Attachments:

You must be logged in to view attached files.

[Tom Gilbert]

Hello Jim,

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

[Tom Gilbert]

You mention record structure. This is a HIPAA 834 record structure. This is employee insurance coverage for deltadental. The have segment name like ISA, GS, ST, BGNN… This file they give me is fixed length and because that is not quite true I had to put it through a tickle proc and not it is a delimited file so made it a vrl. There are 22 total segments but 11 repeat.

8 – These are header information and only done once

11 – Main body that gets repeated for every employee and there dependent

3 – Are the Footer and only done once

Please let me know if any questions…

Thanks,

Tom

[Tom Gilbert]

Hello Jim, Been a long time…:) Hope all is well.

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: 1 (empty)
Field Name: OB_HIPAA_834

Thanks,

Tom

[Tom Gilbert]

Sorry this is a flat file and is suppose to be a fixed length. The source cannot pad spaces at end of the segments so I am adding them to get to max length via a pre tcl so I can map correctly in xlate.

[Tom Gilbert]

The above worked great… Thank you so much…:)

[Tom Gilbert]

Hello All, looks like I got it. Here is what I am using:

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…

[Tom Gilbert]

I got this to work with your help…:)  Here is the regsub I used and it is working…:)

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 $mh]
regsub -all {~\*} $msg “~” msg
msgset $mh $msg
lappend dispList “CONTINUE $mh”

Thank you again…:)

Tom Gilbert

[Tom Gilbert]

I got it to work.  was odd…  I had the following:

echo set xlateOutVals $newmrn

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

Thanks,

Tom

[Tom Gilbert]

Jim, has been awesome to me and never tells me no.  I am so grateful and he is an incredible asset on here…  Thank you for everything Jim…

[Tom Gilbert]

Hello Jim,

Hope all is well…

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

Thanks,

Tom

[Author]

Replies