ruby-hl7 1.2.3 → 1.3.3

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
+      expect(prd.provider_role).to eql 'RP'
+    end
+
+    it 'should set the name' do
+      expect(prd.provider_name).to eql 'LastName^FirstName^MiddleInitial^SR^NickName'
+    end
+
+    it 'should set the provider_address' do
+      expect(prd.provider_address).to eql '444 Home Street^Apt B^Ann Arbor^MI^99999^USA'
+    end
+
+    it 'should set the provider_location' do
+      expect(prd.provider_location).to eql '^^^A Wonderful Clinic'
+    end
+
+    it 'should set provider_communication_information' do
+      expect(prd.provider_communication_information).to 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
+      expect(pv1.patient_class).to eq "R"
+    end
+
+    it 'allows creation of an OBX segment' do
+      pv1= HL7::Message::Segment::PV1.new
+      pv1.referring_doctor="Smith^John"
+      expect(pv1.referring_doctor).to eq "Smith^John"
+      pv1.admit_date = Date.new(2014, 1, 1)
+      expect(pv1.admit_date).to eq '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
+      expect(rf1.referral_status).to eq 'P^Pending^HL70283'
+      expect(rf1.referral_priority).to eq 'R^Routine^HL70280'
+      expect(rf1.referral_type).to eq 'GRF^General referral^HL70281'
+      expect(rf1.referral_disposition).to eq 'AM^Assume management^HL70282'
+      expect(rf1.originating_referral_identifier).to eq '8094'
+      expect(rf1.effective_date).to eq '20060705'
+      expect(rf1.process_date).to eq '20060705'
+      expect(rf1.external_referral_identifier).to eq '42'
+    end
+
+    it 'allows creation of an RF1 segment' do
+      rf1 = HL7::Message::Segment::RF1.new
+      rf1.expiration_date=Date.new(2058, 12, 1)
+      expect(rf1.expiration_date).to eq '20581201'
+    end
+  end
+end

data/spec/sch_segment_spec.rb

@@ -0,0 +1,32 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::SCH do
+  context 'general' do
+    before :all do
+      @base_sch = 'SCH|||||681|S^SCHEDULED|^BONE DENSITY PB,cf/RH |30^30 MINUTE APPOINTMENT|45|m|^^45^200905260930^200905261015|||||||||polly^^POLLY BRESCOCK|^^^^^^ ||||SCHEDULED'
+    end
+
+    it 'creates an SCH segment' do
+      expect do
+        sch = HL7::Message::Segment::SCH.new( @base_sch )
+        expect(sch).not_to be_nil
+        expect(sch.to_s).to eq @base_sch
+      end.not_to raise_error
+    end
+
+    it 'allows access to an SCH segment' do
+      expect do
+        sch = HL7::Message::Segment::SCH.new( @base_sch )
+        expect(sch.schedule_id).to eq '681'
+        expect(sch.event_reason).to eq 'S^SCHEDULED'
+        expect(sch.appointment_reason).to eq '^BONE DENSITY PB,cf/RH '
+        expect(sch.appointment_type).to eq '30^30 MINUTE APPOINTMENT'
+        expect(sch.appointment_duration).to eq '45'
+        expect(sch.appointment_duration_units).to eq 'm'
+        expect(sch.entered_by_person).to eq 'polly^^POLLY BRESCOCK'
+        expect(sch.filler_status_code).to eq 'SCHEDULED'
+      end.not_to raise_error
+    end
+  end
+end

data/spec/segment_field_spec.rb

@@ -0,0 +1,110 @@
+# 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)
+
+      expect(msg.to_s).to       eq @base
+      expect(msg.no_block).to   eq "no_block"
+      expect(msg.validating).to eq "validated"
+      expect(msg.converting).to eq "Xconverted"
+
+      msg.no_block = "NO_BLOCK"
+      expect(msg.no_block).to eq "NO_BLOCK"
+
+      msg.validating = "good"
+      expect(msg.validating).to eq "good"
+      msg.validating = "bad"
+      expect(msg.validating).to eq ""
+
+      msg.converting = "empty"
+      expect(msg.converting).to eq "XXempty"
+    end
+
+    it 'is not evaluated on read access by eXXX alias' do
+      msg = MockSegment.new(@base)
+
+      expect(msg.e1).to eq "no_block"
+      expect(msg.e2).to eq "validated"
+      expect(msg.e3).to eq "converted"
+    end
+
+    it 'is not evaluated on write access by eXXX alias' do
+      msg = MockSegment.new(@base)
+
+      msg.e1 = "NO_BLOCK"
+      expect(msg.e1).to eq "NO_BLOCK"
+
+      msg.e2 = "good"
+      expect(msg.e2).to eq "good"
+      msg.e2 = "bad"
+      expect(msg.e2).to eq "bad"
+
+      msg.e3 = "empty"
+      expect(msg.e3).to eq "empty"
+    end
+  end
+
+  describe '#[]' do
+    it 'allows index access to the segment' do
+      msg = HL7::Message::Segment.new(@base)
+      expect(msg[0]).to eq 'Mock'
+      expect(msg[1]).to eq 'no_block'
+      expect(msg[2]).to eq 'validated'
+      expect(msg[3]).to eq 'converted'
+    end
+  end
+
+  describe '#[]=' do
+    it 'allows index assignment to the segment' do
+      msg = HL7::Message::Segment.new(@base)
+      msg[0] = 'Kcom'
+      expect(msg[0]).to eq 'Kcom'
+    end
+  end
+
+  describe '#alias_field' do
+    context 'with a valid field' do
+      it 'uses alias field names' do
+        msg = MockSegment.new(@base)
+        expect(msg.no_block).to eq "no_block"
+        expect(msg.no_block_alias).to eq "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)
+        expect{  msg.no_block_alias }.to raise_error(HL7::InvalidDataError)
+      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
+      expect(segment_generator.valid_segments_parts?).to 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
+        expect(segment_generator.valid_segments_parts?).to 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
+      expect(segment.accepts?(:OBR)).to be true
+      expect(segment.child_types).to 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|
+        expect(segment_instance.respond_to?(method)).to 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
+        expect(segment_instance.respond_to?(:children)).to 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,38 @@
+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"
+      expect(segment.length).to eq 3
+    end
+  end
+
+  describe 'enumerable' do
+    it 'enumerates over elements' do
+      seg = HL7::Message::Segment::Default.new
+      segment_count = 0
+      seg.each do |s|
+        segment_count = segment_count + 1
+      end
+      expect(segment_count).to eq(seg.length)
+    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
+      expect(segment.is_child_segment?).to 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
+      expect(HL7::Message::Segment.convert_to_ts(time_now)).to 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|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
+      expect do
+        sft = HL7::Message::Segment::SFT.new( @base_sft )
+        expect(sft).not_to be_nil
+        expect(sft.to_s).to eq @base_sft
+      end.not_to raise_error
+    end
+
+    it 'allows access to an SFT segment' do
+      expect do
+        sft = HL7::Message::Segment::SFT.new( @base_sft )
+        expect(sft.software_product_name).to eq 'An Lab System'
+        expect(sft.software_install_date).to eq '20080817'
+      end.not_to raise_error
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,13 @@
+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__)
+require 'pry'

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
+      expect(doc).not_to be_nil
+      ends = Time.now
+      expect(ends-start).to be < 1
+    end
+  end
+end

data/spec/spm_segment_spec.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::SPM do
+  context 'general' do
+    before :all do
+      @base_spm = 'SPM|1|23456&EHR&2.16.840.1.113883.19.3.2.3&ISO^9700122&Lab&2.16.840.1.113883.19.3.1.6&ISO||122554006^Capillary blood specimen^SCT^BLDC^Blood capillary^HL70070^20080131^2.5.1||HEPA^Ammonium heparin^HL70371^^^^2.5.1|CAP^Capillary Specimen^HL70488^^^^2.5.1|181395001^Venous structure of digit^SCT^^^^20080731|||P^Patient^HL60369^^^^2.5.1|50^uL&Micro Liter&UCUM&&&&1.6|||||200808151030-0700|200808151100-0700'
+    end
+
+    it 'creates an SPM segment' do
+      expect do
+        spm = HL7::Message::Segment::SPM.new( @base_spm )
+        expect(spm).not_to be_nil
+        expect(spm.to_s).to eq @base_spm
+      end.not_to raise_error
+    end
+
+    it 'allows access to an SPM segment' do
+      expect do
+        spm = HL7::Message::Segment::SPM.new( @base_spm )
+        expect(spm.specimen_type).to eq '122554006^Capillary blood specimen^SCT^BLDC^Blood capillary^HL70070^20080131^2.5.1'
+        expect(spm.set_id).to eq '1'
+      end.not_to raise_error
+    end
+  end
+end

data/spec/txa_segment_spec.rb

@@ -0,0 +1,72 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::TXA do
+  let(:segment) do
+    "TXA|1|AR|AP|20220611113300|1^Name|20220611|2022061110||1^Creator|" \
+    "1^Author|1^Typer|A^V02^UID^TC|A^V01^UID^TC|01|02|file.txt|C|P|AV|ST||" \
+    "2022061110|DC|AR|FileName|202206111011"
+  end
+  let(:filled_txa) { HL7::Message::Segment::TXA.new segment }
+
+  it 'allows access to an TXA segment' do
+    expect(filled_txa.set_id).to eq('1')
+    expect(filled_txa.document_type).to eq('AR')
+    expect(filled_txa.document_content_presentation).to eq('AP')
+    expect(filled_txa.activity_date_time).to eq('20220611113300')
+    expect(filled_txa.primary_activity_provider_code).to eq('1^Name')
+    expect(filled_txa.origination_date_time).to eq('20220611')
+    expect(filled_txa.transcription_date_time).to eq('2022061110')
+    expect(filled_txa.edit_date_time).to eq('')
+    expect(filled_txa.originator_code).to eq('1^Creator')
+    expect(filled_txa.assigned_document_authenticator).to eq('1^Author')
+    expect(filled_txa.transcriptionist_code).to eq('1^Typer')
+    expect(filled_txa.unique_document_number).to eq('A^V02^UID^TC')
+    expect(filled_txa.parent_document_number).to eq('A^V01^UID^TC')
+    expect(filled_txa.placer_order_number).to eq('01')
+    expect(filled_txa.filler_order_number).to eq('02')
+    expect(filled_txa.unique_document_file_name).to eq('file.txt')
+    expect(filled_txa.document_completion_status).to eq('C')
+    expect(filled_txa.document_confidentiality_status).to eq('P')
+    expect(filled_txa.document_availability_status).to eq('AV')
+    expect(filled_txa.document_storage_status).to eq('ST')
+    expect(filled_txa.document_change_reason).to eq('')
+    expect(filled_txa.authentication_person_time_stamp).to eq('2022061110')
+    expect(filled_txa.distributed_copies_code).to eq('DC')
+    expect(filled_txa.folder_assignment).to eq('AR')
+    expect(filled_txa.document_title).to eq('FileName')
+    expect(filled_txa.agreed_due_date_time).to eq('202206111011')
+  end
+
+  it 'allows creation of an TXA segment' do
+    txa = HL7::Message::Segment::TXA.new
+    txa.set_id = '1'
+    txa.document_type = 'AR'
+    txa.document_content_presentation = 'AP'
+    txa.activity_date_time = '20220611113300'
+    txa.primary_activity_provider_code = '1^Name'
+    txa.origination_date_time = '20220611'
+    txa.transcription_date_time = '2022061110'
+    txa.edit_date_time = ''
+    txa.originator_code = '1^Creator'
+    txa.assigned_document_authenticator = '1^Author'
+    txa.transcriptionist_code = '1^Typer'
+    txa.unique_document_number = 'A^V02^UID^TC'
+    txa.parent_document_number = 'A^V01^UID^TC'
+    txa.placer_order_number = '01'
+    txa.filler_order_number = '02'
+    txa.unique_document_file_name = 'file.txt'
+    txa.document_completion_status = 'C'
+    txa.document_confidentiality_status = 'P'
+    txa.document_availability_status = 'AV'
+    txa.document_storage_status = 'ST'
+    txa.document_change_reason = ''
+    txa.authentication_person_time_stamp = '2022061110'
+    txa.distributed_copies_code = 'DC'
+    txa.folder_assignment = 'AR'
+    txa.document_title = 'FileName'
+    txa.agreed_due_date_time = '202206111011'
+
+    expect(txa.to_s).to eq(segment)
+  end
+end