ruby-hl7 1.1.0 → 1.1.1

data/spec/batch_parsing_spec.rb

@@ -0,0 +1,52 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message do
+  context 'batch parsing' do
+    it 'should have a class method HL7::Message.parse_batch' do
+      HL7::Message.should respond_to(:parse_batch)
+    end
+
+    it 'should raise an exception when parsing an empty batch' do
+      # :empty_batch message contains a valid batch envelope with no
+      # contents
+      lambda do
+        HL7::Message.parse_batch HL7MESSAGES[:empty_batch]
+      end.should raise_exception(HL7::ParseError, 'empty_batch_message')
+    end
+
+    it 'should raise an exception when parsing a single message as a batch' do
+      lambda do
+        HL7::Message.parse_batch HL7MESSAGES[:realm_minimal_message]
+      end.should raise_exception(HL7::ParseError, 'badly_formed_batch_message')
+    end
+
+    it 'should yield multiple messages from a valid batch' do
+      count = 0
+      HL7::Message.parse_batch(HL7MESSAGES[:realm_batch]) do |m|
+        count += 1
+      end
+      count.should == 2
+    end
+  end
+end
+
+describe 'String extension' do
+  before :all do
+    @batch_message = HL7MESSAGES[:realm_batch]
+    @plain_message = HL7MESSAGES[:realm_minimal_message]
+  end
+
+  it 'should respond_to :hl7_batch?' do
+    @batch_message.hl7_batch?.should be true
+    @plain_message.should respond_to(:hl7_batch?)
+  end
+
+  it 'should return true when passed a batch message' do
+    @batch_message.should be_an_hl7_batch
+  end
+
+  it 'should return false when passed a plain message' do
+    @plain_message.should_not be_an_hl7_batch
+  end
+end

data/spec/child_segment_spec.rb

@@ -0,0 +1,66 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message do
+  context 'child segments' do
+    before :all do
+      @base = open( './test_data/obxobr.hl7' ).readlines
+    end
+
+    it 'allows access to child segments' do
+      msg = HL7::Message.new @base
+      msg.should_not be_nil
+      msg[:OBR].should_not be_nil
+      msg[:OBR].length.should == 3
+      msg[:OBR][0].children.should_not be_nil
+      msg[:OBR][0].children.length.should == 6
+      msg[:OBR][1].children.should_not be_nil
+      msg[:OBR][1].children.length.should == 3
+      msg[:OBR][2].children.should_not be_nil
+      msg[:OBR][2].children.length.should == 1
+      msg[:OBX][0].children.should_not be_nil
+      msg[:OBX][0].children.length.should == 1
+
+      msg[:OBR][0].children.each do |x|
+        x.should_not be_nil
+      end
+      msg[:OBR][1].children.each do |x|
+        x.should_not be_nil
+      end
+      msg[:OBR][2].children.each do |x|
+        x.should_not be_nil
+      end
+    end
+
+    it 'allows adding child segments' do
+      msg = HL7::Message.new @base
+      msg.should_not be_nil
+      msg[:OBR].should_not be_nil
+      ob = HL7::Message::Segment::OBR.new
+      ob.should_not be_nil
+
+      msg << ob
+      ob.children.should_not be_nil
+      ob.segment_parent.should_not be_nil
+      ob.segment_parent.should == msg
+      orig_cnt = msg.length
+
+      (1..4).each do |x|
+        m = HL7::Message::Segment::OBX.new
+        m.observation_value = "taco"
+        m.should_not be_nil
+        /taco/.match(m.to_s).should_not be_nil
+        ob.children << m
+        ob.children.length.should == x
+        m.segment_parent.should_not be_nil
+        m.segment_parent.should == ob
+      end
+
+      @base.should_not == msg.to_hl7
+      msg.length.should_not == orig_cnt
+      text_ver = msg.to_hl7
+      /taco/.match(text_ver).should_not be_nil
+    end
+  end
+end
+

data/spec/core_ext/date_time_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+describe Date do
+
+  subject{ Date.parse('2013-12-02').to_hl7 }
+
+  it "should respond to the HL7 timestamp" do
+    subject.should eq "20131202"
+  end
+end
+
+describe "to_hl7 for time related classes" do
+
+  let(:formated_time){ time_now.strftime('%Y%m%d%H%M%S') }
+  let(:fraction_3){ "." + sprintf('%06d', time_now.to_time.usec)[0, 3] }
+  let(:fraction_9){ "." + sprintf('%06d', time_now.to_time.usec) + ("0" * 3) }
+
+  shared_examples "a time to_hl7" do
+    context "without fraction" do
+      it { time_now.to_time.to_hl7.should eq formated_time }
+    end
+
+    context "with_fraction" do
+      it { time_now.to_time.to_hl7(3).should eq formated_time + fraction_3 }
+
+      it { time_now.to_time.to_hl7(9).should eq formated_time + fraction_9 }
+    end
+  end
+
+  describe Time do
+    let(:time_now){ Time.now }
+
+    it_should_behave_like "a time to_hl7"
+  end
+
+  describe DateTime do
+    let(:time_now){ DateTime.now }
+
+    it_should_behave_like "a time to_hl7"
+  end
+
+end
+

data/spec/default_segment_spec.rb

@@ -0,0 +1,31 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::Default do
+  context 'general' do
+
+    before :all do
+      @base_msa = "MSA|AR|ZZ9380 ERR"
+    end
+
+    it 'stores an existing segment' do
+      seg = HL7::Message::Segment::Default.new( @base_msa )
+      seg.to_s.should == @base_msa
+    end
+
+    it 'converts to a string' do
+      seg = HL7::Message::Segment::Default.new( @base_msa )
+      seg.to_s.should == @base_msa
+      seg.to_hl7.should == seg.to_s
+    end
+
+    it 'creates a raw segment' do
+      seg = HL7::Message::Segment::Default.new
+      seg.e0 = "NK1"
+      seg.e1 = "INFO"
+      seg.e2 = "MORE INFO"
+      seg.e5 = "LAST INFO"
+      seg.to_s.should == "NK1|INFO|MORE INFO|||LAST INFO"
+    end
+  end
+end

data/spec/dynamic_segment_def_spec.rb

@@ -0,0 +1,37 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe 'dynamic segment definition' do
+  context 'general' do
+    it 'accepts a block with a parameter' do
+      seg = HL7::Message::Segment.new do |s|
+        s.e0 = "MSK"
+        s.e1 = "1234"
+        s.e2 = "5678"
+      end
+
+      seg.to_s.should == "MSK|1234|5678"
+    end
+
+    it 'accepts a block without a parameter' do
+      seg = HL7::Message::Segment.new do
+        e0 "MSK"
+        e1 "1234"
+        e2 "5678"
+      end
+
+      seg.to_s.should == "MSK|1234|5678"
+    end
+
+    it "doesn't pollute the caller namespace" do
+      seg = HL7::Message::Segment.new do |s|
+        s.e0 = "MSK"
+        s.e1 = "1234"
+        s.e2 = "5678"
+      end
+
+      lambda { e3 "TEST" }.should raise_error(NoMethodError)
+      seg.to_s.should == "MSK|1234|5678"
+    end
+  end
+end

data/spec/err_segment_spec.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::ERR do
+  context 'general' do
+    before :all do
+      @base_err = 'ERR||OBR^1|100^Segment sequence error^HL70357|E|||Missing required OBR segment|Email help desk for further information on this error||||^NET^Internet^helpdesk@hl7.org'
+    end
+
+    it 'creates an ERR segment' do
+      lambda do
+        err = HL7::Message::Segment::ERR.new( @base_err )
+        err.should_not be_nil
+        err.to_s.should == @base_err
+      end.should_not raise_error
+    end
+
+    it 'allows access to an ERR segment' do
+      lambda do
+        err = HL7::Message::Segment::ERR.new( @base_err )
+        err.severity.should == 'E'
+        err.error_location.should == 'OBR^1'
+      end.should_not raise_error
+    end
+  end
+end

data/spec/evn_segment_spec.rb

@@ -0,0 +1,23 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::EVN do
+  context 'general' do
+    before :all do
+      @base = "EVN|A04|20060705000000"
+    end
+
+    it 'allows access to an EVN segment' do
+      evn = HL7::Message::Segment::EVN.new @base
+      evn.type_code.should == "A04"
+    end
+
+    it 'allows creation of an EVN segment' do
+      evn = HL7::Message::Segment::EVN.new
+      evn.event_facility="A Facility"
+      evn.event_facility.should == 'A Facility'
+      evn.recorded_date = Date.new 2001,2,3
+      evn.recorded_date.should == "20010203"
+    end
+  end
+end

data/spec/msa_segment_spec.rb

@@ -0,0 +1,27 @@
+# encoding: UTF-8
+$: << '../lib'
+require 'ruby-hl7'
+
+describe HL7::Message::Segment::MSA do
+  context 'general' do
+    before :all do
+      @base_msa = "MSA|AR|ZZ9380 ERR"
+    end
+
+    it 'creates an MSA segment' do
+      lambda do
+        msa = HL7::Message::Segment::MSA.new( @base_msa )
+        msa.should_not be_nil
+        msa.to_s.should == @base_msa
+      end.should_not raise_error
+    end
+
+    it 'allows access to an MSA segment' do
+      lambda do
+        msa = HL7::Message::Segment::MSA.new( @base_msa )
+        msa.ack_code.should == "AR"
+        msa.control_id.should == "ZZ9380 ERR"
+      end.should_not raise_error
+    end
+  end
+end

data/spec/msh_segment_spec.rb

@@ -0,0 +1,28 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::MSH do
+  context 'general' do
+    before :all do
+      @base = "MSH|^~\\&||ABCHS||AUSDHSV|20070101112951||ADT^A04^ADT_A01|12334456778890|P|2.5|||NE|NE|AU|ASCII|ENGLISH|||AN ORG|||RECNET.ORG"
+    end
+
+    it 'allows access to an MSH segment' do
+      msh = HL7::Message::Segment::MSH.new @base
+      msh.enc_chars='^~\\&'
+      msh.version_id.should == '2.5'
+      msh.country_code.should=='AU'
+      msh.charset.should=='ASCII'
+      msh.sending_responsible_org.should=='AN ORG'
+      msh.receiving_network_address.should=='RECNET.ORG'
+    end
+
+    it 'allows creation of an MSH segment' do
+      msh = HL7::Message::Segment::MSH.new
+      msh.sending_facility="A Facility"
+      msh.sending_facility.should == 'A Facility'
+      msh.time = DateTime.iso8601('20010203T040506')
+      msh.time.should == '20010203040506'
+    end
+  end
+end

data/spec/nk1_segment_spec.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::NK1 do
+  context 'general' do
+    before :all do
+      @base_nk1 = 'NK1|1|Mum^Martha^M^^^^L|MTH^Mother^HL70063^^^^2.5.1| 444 Home Street^Apt B^Ann Arbor^MI^99999^USA^H|^PRN^PH^^1^555^5552006'
+    end
+
+    it 'creates an NK1 segment' do
+      lambda do
+        nk1 = HL7::Message::Segment::NK1.new( @base_nk1 )
+        nk1.should_not be_nil
+        nk1.to_s.should == @base_nk1
+      end.should_not raise_error
+    end
+
+    it 'allows access to an NK1 segment' do
+      lambda do
+        nk1 = HL7::Message::Segment::NK1.new( @base_nk1 )
+        nk1.name.should == 'Mum^Martha^M^^^^L'
+        nk1.phone_number.should == '^PRN^PH^^1^555^5552006'
+      end.should_not raise_error
+    end
+  end
+end

data/spec/obr_segment_spec.rb

@@ -0,0 +1,45 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::OBR do
+  context 'general' do
+    before :all do
+      @base = "OBR|2|^USSSA|0000000567^USSSA|37956^CT ABDOMEN^LN|||199405021550|||||||||||||0000763||||NMR|P||||||R/O TUMOR|202300&BAKER&MARK&E|||01&LOCHLEAR&JUDY|||||||||||||||123"
+      @obr = HL7::Message::Segment::OBR.new @base
+    end
+
+    it 'allows access to an OBR segment' do
+      @obr.to_s.should == @base
+      @obr.e1.should == "2"
+      @obr.set_id.should == "2"
+      @obr.placer_order_number.should == "^USSSA"
+      @obr.filler_order_number.should == "0000000567^USSSA"
+      @obr.universal_service_id.should == "37956^CT ABDOMEN^LN"
+    end
+
+    it 'allows modification of an OBR segment' do
+      @obr.set_id = 1
+      @obr.set_id.should == "1"
+      @obr.placer_order_number = "^DMCRES"
+      @obr.placer_order_number.should == "^DMCRES"
+    end
+
+    it 'supports the diagnostic_serv_sect_id method' do
+      @obr.should respond_to(:diagnostic_serv_sect_id)
+      @obr.diagnostic_serv_sect_id.should == "NMR"
+    end
+
+    it 'supports the result_status method' do
+      @obr.should respond_to(:result_status)
+      @obr.result_status.should == "P"
+    end
+
+    it 'supports the reason_for_study method' do
+      @obr.reason_for_study.should == "R/O TUMOR"
+    end
+
+    it 'supports the parent_universal_service_identifier method' do
+      @obr.parent_universal_service_identifier.should == "123"
+    end
+  end
+end

data/spec/obx_segment_spec.rb

@@ -0,0 +1,46 @@
+# encoding: UTF-8
+require 'spec_helper'
+describe HL7::Message::Segment::OBX do
+  context 'general' do
+    before :all do
+      @base = "OBX|1|NM|30341-2^Erythrocyte sedimentation rate^LN^815117^ESR^99USI^^^Erythrocyte sedimentation rate||10|mm/h^millimeter per hour^UCUM|0 to 17|N|0.1||F|||20110331140551-0800||Observer|||20110331150551-0800|^A Site|||Century Hospital^^^^^NIST-AA-1&2.16.840.1.113883.3.72.5.30.1&ISO^XX^^^987|2070 Test Park^^Los Angeles^CA^90067^USA^B^^06037|2343242^Knowsalot^Phil^J.^III^Dr.^^^NIST-AA-1&2.16.840.1.113883.3.72.5.30.1&ISO^L^^^DN"
+    end
+
+    it 'allows access to an OBX segment' do
+      obx = HL7::Message::Segment::OBX.new @base
+      obx.set_id.should == "1"
+      obx.value_type.should == "NM"
+      obx.observation_id.should == "30341-2^Erythrocyte sedimentation rate^LN^815117^ESR^99USI^^^Erythrocyte sedimentation rate"
+      obx.observation_sub_id.should == ""
+      obx.observation_value.should == "10"
+      obx.units.should == "mm/h^millimeter per hour^UCUM"
+      obx.references_range.should == "0 to 17"
+      obx.abnormal_flags.should == "N"
+      obx.probability.should == "0.1"
+      obx.nature_of_abnormal_test.should == ""
+      obx.observation_result_status.should == "F"
+      obx.effective_date_of_reference_range.should == ""
+      obx.user_defined_access_checks.should == ""
+      obx.observation_date.should == "20110331140551-0800"
+      obx.producer_id.should == ""
+      obx.responsible_observer.should == "Observer"
+      obx.observation_site.should == '^A Site'
+      obx.observation_method.should == ""
+      obx.equipment_instance_id.should == ""
+      obx.analysis_date.should == "20110331150551-0800"
+      obx.performing_organization_name.should == "Century Hospital^^^^^NIST-AA-1&2.16.840.1.113883.3.72.5.30.1&ISO^XX^^^987"
+      obx.performing_organization_address.should == "2070 Test Park^^Los Angeles^CA^90067^USA^B^^06037"
+      obx.performing_organization_medical_director.should == "2343242^Knowsalot^Phil^J.^III^Dr.^^^NIST-AA-1&2.16.840.1.113883.3.72.5.30.1&ISO^L^^^DN"
+    end
+
+    it 'allows creation of an OBX segment' do
+      lambda do
+        obx = HL7::Message::Segment::OBX.new
+        obx.value_type = "TESTIES"
+        obx.observation_id = "HR"
+        obx.observation_sub_id = "2"
+        obx.observation_value = "SOMETHING HAPPENned"
+      end.should_not raise_error
+    end
+  end
+end