ruby-hl7 1.1.0 → 1.1.1

data/spec/orc_segment_spec.rb

@@ -0,0 +1,27 @@
+# encoding: UTF-8
+$: << '../lib'
+require 'ruby-hl7'
+
+describe HL7::Message::Segment::ORC do
+  context 'general' do
+    before :all do
+      @base_orc = 'ORC|RE|23456^EHR^2.16.840.1.113883.19.3.2.3^ISO|9700123^Lab^2.16.840.1.113883.19.3.1.6^ISO|||||||||1234^Admit^Alan^A^III^Dr^^^&2.16.840.1.113883.19.4.6^ISO^L^^^EI^&2.16.840.1.113883.19.4.6^ISO^^^^^^^^MD||^WPN^PH^^1^555^5551005|||||||Level Seven Healthcare, Inc.^L^^^^&2.16.840.1.113883.19.4.6^ISO^XX^^^1234|1005 Healthcare Drive^^Ann Arbor^MI^99999^USA^B|^WPN^PH^^1^555^5553001|4444 Healthcare Drive^Suite 123^Ann Arbor^MI^99999^USA^B|||||||7844'
+    end
+
+    it 'creates an ORC segment' do
+      lambda do
+        orc = HL7::Message::Segment::ORC.new( @base_orc )
+        orc.should_not be_nil
+        orc.to_s.should == @base_orc
+      end.should_not raise_error
+    end
+
+    it 'allows access to an ORC segment' do
+      orc = HL7::Message::Segment::ORC.new( @base_orc )
+      orc.ordering_provider.should == '1234^Admit^Alan^A^III^Dr^^^&2.16.840.1.113883.19.4.6^ISO^L^^^EI^&2.16.840.1.113883.19.4.6^ISO^^^^^^^^MD'
+      orc.call_back_phone_number.should == '^WPN^PH^^1^555^5551005'
+      orc.ordering_facility_name.should == 'Level Seven Healthcare, Inc.^L^^^^&2.16.840.1.113883.19.4.6^ISO^XX^^^1234'
+      orc.parent_universal_service_identifier.should == '7844'
+    end
+  end
+end

data/spec/pid_segment_spec.rb

@@ -0,0 +1,70 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::PID do
+  context 'general' do
+    before :all do
+      @base = "PID|1||333||LastName^FirstName^MiddleInitial^SR^NickName||19760228|F||2106-3^White^HL70005^CAUC^Caucasian^L||||||||555.55|012345678||||||||||201011110924-0700|Y|||||||||"
+    end
+
+    it 'validates the admin_sex element' do
+      pid = HL7::Message::Segment::PID.new
+      lambda do
+        vals = %w[F M O U A N C] + [ nil ]
+        vals.each do |x|
+          pid.admin_sex = x
+        end
+        pid.admin_sex = ""
+      end.should_not raise_error
+
+      lambda do
+        ["TEST", "A", 1, 2].each do |x|
+          pid.admin_sex = x
+        end
+      end.should raise_error(HL7::InvalidDataError)
+    end
+
+    it "sets values correctly" do
+      pid = HL7::Message::Segment::PID.new @base
+      pid.set_id.should == "1"
+      pid.patient_id.should == ""
+      pid.patient_id_list.should == "333"
+      pid.alt_patient_id.should == ""
+      pid.patient_name.should == "LastName^FirstName^MiddleInitial^SR^NickName"
+      pid.mother_maiden_name.should == ""
+      pid.patient_dob.should == "19760228"
+      pid.admin_sex.should == "F"
+      pid.patient_alias.should == ""
+      pid.race.should == "2106-3^White^HL70005^CAUC^Caucasian^L"
+      pid.address.should == ""
+      pid.country_code.should == ""
+      pid.phone_home.should == ""
+      pid.phone_business.should == ""
+      pid.primary_language.should == ""
+      pid.marital_status.should == ""
+      pid.religion.should == ""
+      pid.account_number.should == "555.55"
+      pid.social_security_num.should == "012345678"
+      pid.driver_license_num.should == ""
+      pid.mothers_id.should == ""
+      pid.ethnic_group.should == ""
+      pid.birthplace.should == ""
+      pid.multi_birth.should == ""
+      pid.birth_order.should == ""
+      pid.citizenship.should == ""
+      pid.vet_status.should == ""
+      pid.nationality.should == ""
+      pid.death_date.should == "201011110924-0700"
+      pid.death_indicator.should == "Y"
+      pid.id_unknown_indicator.should == ""
+      pid.id_readability_code.should == ""
+      pid.last_update_date.should == ""
+      pid.last_update_facility.should == ""
+      pid.species_code.should == ""
+      pid.breed_code.should == ""
+      pid.strain.should == ""
+      pid.production_class_code.should == ""
+      pid.tribal_citizenship.should == ""
+    end
+  end
+end

data/spec/prd_segment_spec.rb

@@ -0,0 +1,29 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::PRD do
+  context 'general' do
+    let (:base) { 'PRD|RP|LastName^FirstName^MiddleInitial^SR^NickName|444 Home Street^Apt B^Ann Arbor^MI^99999^USA|^^^A Wonderful Clinic|^WPN^PH^^^07^5555555|PH|4796^AUSHICPR|20130109163307+1000|20140109163307+1000' }
+    let (:prd) { HL7::Message::Segment::PRD.new base }
+
+    it 'should set the provider_role' do
+      prd.provider_role.should eql 'RP'
+    end
+
+    it 'should set the name' do
+      prd.provider_name.should eql 'LastName^FirstName^MiddleInitial^SR^NickName'
+    end
+
+    it 'should set the provider_address' do
+      prd.provider_address.should eql '444 Home Street^Apt B^Ann Arbor^MI^99999^USA'
+    end
+
+    it 'should set the provider_location' do
+      prd.provider_location.should eql '^^^A Wonderful Clinic'
+    end
+
+    it 'should set provider_communication_information' do
+      prd.provider_communication_information.should eql '^WPN^PH^^^07^5555555'
+    end
+  end
+end

data/spec/pv1_segment_spec.rb

@@ -0,0 +1,23 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::PV1 do
+  context 'general' do
+    before :all do
+      @base = "PV1||R|||||||||||||||A|||V02^19900607~H02^19900607"
+    end
+
+    it 'allows access to an PV1 segment' do
+      pv1 = HL7::Message::Segment::PV1.new @base
+      pv1.patient_class.should == "R"
+    end
+
+    it 'allows creation of an OBX segment' do
+      pv1= HL7::Message::Segment::PV1.new
+      pv1.referring_doctor="Smith^John"
+      pv1.referring_doctor.should == "Smith^John"
+      pv1.admit_date = Date.new(2014, 1, 1)
+      pv1.admit_date.should == '20140101'
+    end
+  end
+end

data/spec/rf1_segment_spec.rb

@@ -0,0 +1,29 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::RF1 do
+  context 'general' do
+    before :all do
+      @base = 'RF1|P^Pending^HL70283|R^Routine^HL70280|GRF^General referral^HL70281|AM^Assume management^HL70282||8094|20060705||20060705||42'
+
+    end
+
+    it 'allows access to an RF1 segment' do
+      rf1 = HL7::Message::Segment::RF1.new @base
+      rf1.referral_status.should == 'P^Pending^HL70283'
+      rf1.referral_priority.should == 'R^Routine^HL70280'
+      rf1.referral_type.should == 'GRF^General referral^HL70281'
+      rf1.referral_disposition.should == 'AM^Assume management^HL70282'
+      rf1.originating_referral_identifier.should == '8094'
+      rf1.effective_date.should == '20060705'
+      rf1.process_date.should == '20060705'
+      rf1.external_referral_identifier.should == '42'
+    end
+
+    it 'allows creation of an RF1 segment' do
+      rf1 = HL7::Message::Segment::RF1.new
+      rf1.expiration_date=Date.new(2058, 12, 1)
+      rf1.expiration_date.should == '20581201'
+    end
+  end
+end

data/spec/segment_field_spec.rb

@@ -0,0 +1,92 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+class MockSegment < HL7::Message::Segment
+  weight 1
+  add_field :no_block
+  alias_field :no_block_alias, :no_block
+  add_field :validating do |value|
+    value == "bad" ? nil : value
+  end
+  add_field :converting do |value|
+    "X" + value
+  end
+end
+
+describe HL7::Message::Segment do
+  before :all do
+    @base = "Mock|no_block|validated|converted"
+  end
+
+  context "block on field definitions" do
+    it 'is evaluated on access by field name' do
+      msg = MockSegment.new(@base)
+
+      msg.to_s.should       == @base
+      msg.no_block.should   == "no_block"
+      msg.validating.should == "validated"
+      msg.converting.should == "Xconverted"
+
+      msg.no_block = "NO_BLOCK"
+      msg.no_block.should == "NO_BLOCK"
+
+      msg.validating = "good"
+      msg.validating.should == "good"
+      msg.validating = "bad"
+      msg.validating.should == ""
+
+      msg.converting = "empty"
+      msg.converting.should == "XXempty"
+    end
+
+    it 'is not evaluated on read access by eXXX alias' do
+      msg = MockSegment.new(@base)
+
+      msg.e1.should == "no_block"
+      msg.e2.should == "validated"
+      msg.e3.should == "converted"
+    end
+
+    it 'is not evaluated on write access by eXXX alias' do
+      msg = MockSegment.new(@base)
+
+      msg.e1 = "NO_BLOCK"
+      msg.e1.should == "NO_BLOCK"
+
+      msg.e2 = "good"
+      msg.e2.should == "good"
+      msg.e2 = "bad"
+      msg.e2.should == "bad"
+
+      msg.e3 = "empty"
+      msg.e3.should == "empty"
+    end
+  end
+
+  describe '#alias_field' do
+    context 'with a valid field' do
+      it 'uses alias field names' do
+        msg = MockSegment.new(@base)
+        msg.no_block.should == "no_block"
+        msg.no_block_alias.should == "no_block"
+      end
+    end
+
+    context 'with an invalid field' do
+
+      class MockInvalidSegment < HL7::Message::Segment
+        weight 1
+        add_field :no_block
+        alias_field :no_block_alias, :invalid_field
+        add_field :second
+        add_field :third
+      end
+
+
+      it 'throws an error when the field is invalid' do
+        msg = MockInvalidSegment.new(@base)
+        lambda{  msg.no_block_alias }.should raise_error
+      end
+    end
+  end
+end

data/spec/segment_generator_spec.rb

@@ -0,0 +1,32 @@
+require 'spec_helper'
+
+describe HL7::Message::SegmentGenerator do
+  describe 'valid_segments_parts?' do
+
+    let(:element){ "MSH|1|2|3" }
+    let(:delimiter){ HL7::Message::Delimiter.new('|', '^', '\r') }
+    let(:segment_generator) do
+      HL7::Message::SegmentGenerator.new(element, nil, delimiter)
+    end
+
+    it "should return true if @seg_parts is an array of one element or more" do
+      segment_generator.valid_segments_parts?.should be true
+    end
+
+    context 'when is empty' do
+      it "should return false if empty_segment_is_error is false" do
+        segment_generator.seg_parts = nil
+        HL7.ParserConfig[:empty_segment_is_error] = false
+        segment_generator.valid_segments_parts?.should be false
+      end
+
+      it "should raise an error if empty_segment_is_error is true" do
+        HL7.ParserConfig[:empty_segment_is_error] = true
+        segment_generator.seg_parts = nil
+        expect do
+          segment_generator.valid_segments_parts?
+        end.to raise_error HL7::EmptySegmentNotAllowed
+      end
+    end
+  end
+end

data/spec/segment_list_storage_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+
+class SegmentNoChildren< HL7::Message::Segment
+end
+
+class SegmentWithChildren < HL7::Message::Segment
+  has_children [:NTE,:ORC,:SPM]
+end
+
+describe HL7::Message::SegmentListStorage do
+  describe "self#add_child_type" do
+    it "should allow to add a new segment type as child" do
+      SegmentWithChildren.add_child_type :OBR
+      segment = SegmentWithChildren.new
+      segment.accepts?(:OBR).should be true
+      segment.child_types.should include :OBR
+    end
+  end
+
+  describe "Adding children has_children and add_child_type" do
+    subject do
+      segment_instance = segment_class.new
+      [:accepts?, :child_types, :children].each do |method|
+        segment_instance.respond_to?(method).should be true
+      end
+    end
+
+    context "when child_types is not present" do
+      let(:segment_class){ SegmentNoChildren }
+
+      it "by adding add_child_type should respond to the children methods" do
+        segment_instance = segment_class.new
+        segment_instance.respond_to?(:children).should be false
+        segment_class.add_child_type(:OBR)
+        subject
+      end
+    end
+
+    context "when child_types is present" do
+      let(:segment_class){ SegmentWithChildren }
+
+      it "should respond to the children methods" do
+        subject
+      end
+    end
+  end
+end

data/spec/segment_spec.rb

@@ -0,0 +1,27 @@
+require 'spec_helper'
+
+describe HL7::Message::Segment do
+  describe 'length' do
+
+    it "should return the length of the elements" do
+      segment = HL7::Message::Segment.new "MSA|AR|ZZ9380 ERR"
+      segment.length.should eq 3
+    end
+  end
+
+  describe 'is_child_segment?' do
+    let(:segment){ HL7::Message::Segment.new "MSA|AR|ZZ9380 ERR" }
+    it "return false when is not set" do
+      segment.is_child_segment?.should be false
+    end
+  end
+
+  describe 'convert_to_ts' do
+    let(:time_now){ DateTime.now }
+    let(:formated_time){ time_now.strftime('%Y%m%d%H%M%S') }
+
+    it "should conver to the hl7 time format" do
+      HL7::Message::Segment.convert_to_ts(time_now).should eq formated_time
+    end
+  end
+end

data/spec/sft_segment_spec.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::SFT do
+  context 'general' do
+    before :all do
+      @base_sft = 'SFT|1|Level Seven Healthcare Software, Inc.^L^^^^&2.16.840.1.113883.19.4.6^ISO^XX^^^1234|1.2|An Lab System|56734||20080817'
+    end
+
+    it 'creates an SFT segment' do
+      lambda do
+        sft = HL7::Message::Segment::SFT.new( @base_sft )
+        sft.should_not be_nil
+        sft.to_s.should == @base_sft
+      end.should_not raise_error
+    end
+
+    it 'allows access to an SFT segment' do
+      lambda do
+        sft = HL7::Message::Segment::SFT.new( @base_sft )
+        sft.software_product_name.should == 'An Lab System'
+        sft.software_install_date.should == '20080817'
+      end.should_not raise_error
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+require 'simplecov'
+
+if ENV["COVERAGE"]
+  SimpleCov.start do
+    add_filter "/test/"
+    add_filter "/spec/"
+  end
+end
+
+# ruby-hl7 loads the rest of the files in lib
+require File.expand_path('../../lib/ruby-hl7', __FILE__)
+require File.expand_path('../../lib/test/hl7_messages', __FILE__)

data/spec/speed_parsing_spec.rb

@@ -0,0 +1,19 @@
+# encoding: UTF-8
+require 'spec_helper'
+require 'time'
+
+describe HL7::Message do
+  context 'speed parsing' do
+    before :all do
+      @msg = open( "./test_data/lotsunknowns.hl7" ).readlines
+    end
+
+    it 'parses large, unknown segments rapidly' do
+      start = Time.now
+      doc = HL7::Message.new @msg
+      doc.should_not be_nil
+      ends = Time.now
+      (ends-start).should be < 1
+    end
+  end
+end