[Alka Sharma]

Thanks Everyone for the input. I have enough code to figure out what I need to do.

[Alka Sharma]

I do have it checked.

[Alka Sharma]

Thanks everyone.

Chris,

I am waiting for the company to let me know if it is mod10 or 11 verification. Thanks for the code

[Alka Sharma]

I checked in the wild card route and it worked.

[Alka Sharma]

Thanks for your input Russ. We are not on AIX. Our site is on cloverleaf 5.6 rev 2 on windows server 2003.

To run this script – do I need to install some perl toolkit on windows server?

[Alka Sharma]

Thanks so much Nate and Levy

[Alka Sharma]

I am able to send an email using tcl proc now. Thanks Ron for all your help.

I had to to the following:

I had to define my credentials on the SMTP server. I then sent the email using the command line from the cloverleaf server and it worked. Then I used the same command from my tcl proc. I had to escape spaces, “|” to send the email. I am writing this and attaching my tcl proc so someone else can benefit from this.

Alka…

[Alka Sharma]

Thanks so much! I will try your option.

[Alka Sharma]

I did it accidentally. My apologies

[Alka Sharma]

We have successfully upgraded Cloverleaf from 5.3 to 5.6. We have three sites prod1 , prod2, and prod3. Prod 1 being the heaviest in volume. I am using the new recover 56 procs .  I do not have send_ok, kill_ob_save  procs in my outbound thread. I am using the automatic resend feature of 5.6.

We are using an altered check_ack_new proc. I have also changed

set my_mh $ob_save

Replaced it with this:

keylget args OBMSGID my_mh

Our institution does not want the message to go to Error database if AR or CR is received. So we have modified the check ack and deleted the line to increment the counter. This way, if we get an AR or CR, the message will fall in the else statement of the code and engine will proto the message.

After talking to quovadx support, I was told to use the recover 56 check ack. But once again, I had to alter the check ack to remove the If.

Both tcl procs attached.  The thread that I keep getting a State 16 has the tendency to disconnect and reconnect sporadically.

Any help is greatly appreciated.

[Alka Sharma]

Thanks Robert! I will try your suggestion and also Jim K’s solution today. Since this was an emergency Mike H helped me write a post tcl which converts Obrnte into ADD in post proc.

thanks everyone

Alka…

[Alka Sharma]

This is the output I am trying to achieve using iterate

0000000503MSH|^`&||L|IDX||200903181517||ORU|00035054|P|2.2

PID|1||I99700013||ZZZZPUP^BERGINH||19650101|M||||||||||I10001644

PV1|||119^119X^01||||8369^PILLAI^OMPRAKASH

ORC|||F9180009||||||20090318151704|||10994^ALFORD^TODD

OBR|1||F9180009|NA^LAB01262^Sodium|||200903181028|200903181028||JPASM||||200903181030||10994^ALFORD^TODD||||||20090318151704|||F|||||||EHK||EHK

OBX|1|NM|NA^LAB01262^Sodium||145|meq/L|137-144|H|||F

ADD|1||analyzed on hemolyzed specimen.

ADD|2|| THESE ARE COMMENTS; JEFF PYZYNSKI; ESTER KING

[Alka Sharma]

No, it should add the obrnte at the bottom of the obx segment as ADD segment. If OBX has an NTE, I am able to change the OBXNTE to ADD but not the OBRNTE’s

[Alka Sharma]

There will be multiple OBR NTE’s that needs to be changed to ADD segments at the end of the each OBX.

[Alka Sharma]

Thanks! It worked but Can you explain the expression

(d+?),

Alka…

[Author]

Replies