Sending Message to Email

Thanks for suggesting the search…I had done a search a few weeks ago and didn’t find anything I was able to get to work for me, however, today I find something I was able to adapt into a working solution.

   # Here we retrieve the data from our original message

   set msg [msgget $mh]

   #Variable to set what is sent in the body of the email

   set EmailMsg “$msg”

   #Variable to set what is sent as the email subject

   set EmailSub “Invalid Registration – NO MRN”

   #Variable to set what email addresses to send to

   set Emails “sample@tmcmed.org”

   # Now we need to determine our field and subcomponent seperatoprs

   set field_sep [csubstr $msg 3 1] ;# HL7 field separator    

   set sub_sep [csubstr $msg 4 1] ;# HL7 subfield separator    

   # Here we spilt the original message into a list of the segments contained within

   set segmentList [split $msg r]

   # Now we iterate over each segment in our list.

   foreach segment $segmentList {

if {[cequal [crange $segment 0 2] PID]} {

set fieldList [split $segment $field_sep]

set pid_3 [lindex $fieldList 3]

                   # split PID-3 on the sub-seperator

                        set pid_3_list [split $pid_3 $sub_sep]

                   #  get the first element in PID-3

                      set pid_3_1 [lindex $pid_3_list 0]

   if {[cequal $pid_3_1 “”]} {

catch [exec << $EmailMsg mailx -s $EmailSub $Emails]

lappend dispList “KILL $mh”

return $dispList

} else {

lappend dispList “CONTINUE $mh”

return $dispList

}

   }

}

   }