tech addict

require 'rubygems'
require 'ruby-hl7'

msg = HL7::Message.new "my_msg.hl7"

#this will go through each observation and print the observed values
msg["OBR"].each |obr|
  obr.children.each do |obx|
    puts obx.observation_value
  end
end

# When a message is parsed, the parser checks for a class matching this format
class HL7::Message::Segment::BLG < HL7::Message::Segment
  weight 600  # we want this to go after every other segment (they are sorted ascendingly)

  # we're adding a field alias to BLG.1, which happens to be "when to charge" in the docs
  add_field :name=>:when_to_charge 
  
  # we'll include some value checking logic in the next field we add
  VALID_CHARGES = %w[ CH CO DR DP GR NC NP RS ]
  add_field :name=>:charge_type do |c|
     raise HL7::Exception.new("Invalid charge type") unless c
     raise HL7::Exception.new("Invalid charge type") unless VALID_CHARGES.index(c)
     c # we need to return the final value of c as this is called on read/write
  end

  # we can explicitly set the field id, this would point to BLG.4
  add_field :name=>:charge_type_reason, :idx=>4
end

# create the empty hl7 message
msg = HL7::Message.new

# create our segments and fill in some data
msh = HL7::Message::Segment::MSH.new 
blg = HL7::Message::Segment::BLG.new
blg.when_to_charge = Date.new.to_s
blg.charge_type = "CH"

msg << msh
msg << blg

require 'rubygems'
require 'ruby-hl7'
require 'socket'

# create the empty hl7 message
msg = HL7::Message.new

# create an empty MSH segment
msh = HL7::Message::Segment::MSH.new 

# create an empty NTE segment
nte = HL7::Message::Segment::NTE.new
msg << msh # add the MSH segment to our message
msg << nte  # add the NTE segment to our message

# let's fill in some fields using pre-defined aliases
msh.sending_app = "my test app"
msh.sending_facility = "my apartment"
nte.comment = "my message rocks, ruby-hl7 is great"

# let's create our own on-the-fly segment (NK1 is not implemented in code)
seg = HL7::Message::Segment::Default.new
seg.e0 = "NK1"             # define the segment's name
seg.e1 = "MORE INFO"   # define it's first field
seg.e2 = "OTHER INFO" # define it's second field
msg << seg  # add the new segment to the message
  
soc = TCPSocket.open( "192.168.1.234", 5700 )
soc.write msg.to_mllp
soc.close