Reply To: having trouble with ACK

[Mason Miller]

I am putting this proc in the TPS inbound Data field If thier is an easier way to do this or a better way let me know.

proc create_hl7_ack { args } {

   keylget args MODE mode               ;# Fetch mode

   set dispList {} ;# Nothing to return

   switch -exact — $mode {

       start {

       }

       run {

           keylget args MSGID mh

set msg [msgget $mh]

if {[cequal [crange $msg 0 2] “MSH”] && [llength [split $msg “r”]] > 1} {

set acktype AA

set disptype “CONTINUE”

} else {

set acktype AR

set disptype “KILL”

}

set ack [lindex [split $msg “r”] 0]

append ack “r” “MSA” [cindex $msg 3] $acktype “r”

set ackh [msgcreate -type reply $ack]

           lappend dispList “$disptype $mh”

lappend dispList “OVER $ackh”

       }

       time {

       }

shutdown {

   # new mode added by C:hciroot3.8.0Pbinhcitpsconvert.htc on 20020327082942

}

       default {

   error “Unknown mode ‘$mode’ in create_hl7_ack”

       }

   }

   return $dispList

}