ruby-hl7 1.2.3 → 1.3.0

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
+      expect(HL7::Message).to 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
+      expect do
+        HL7::Message.parse_batch HL7MESSAGES[:empty_batch]
+      end.to raise_exception(HL7::ParseError, 'empty_batch_message')
+    end
+
+    it 'should raise an exception when parsing a single message as a batch' do
+      expect do
+        HL7::Message.parse_batch HL7MESSAGES[:realm_minimal_message]
+      end.to 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
+      expect(count).to eq 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
+    expect(@batch_message.hl7_batch?).to be true
+    expect(@plain_message).to respond_to(:hl7_batch?)
+  end
+
+  it 'should return true when passed a batch message' do
+    expect(@batch_message).to be_an_hl7_batch
+  end
+
+  it 'should return false when passed a plain message' do
+    expect(@plain_message).not_to 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
+      expect(msg).not_to be_nil
+      expect(msg[:OBR]).not_to be_nil
+      expect(msg[:OBR].length).to eq 3
+      expect(msg[:OBR][0].children).not_to be_nil
+      expect(msg[:OBR][0].children.length).to eq 6
+      expect(msg[:OBR][1].children).not_to be_nil
+      expect(msg[:OBR][1].children.length).to eq 3
+      expect(msg[:OBR][2].children).not_to be_nil
+      expect(msg[:OBR][2].children.length).to eq 1
+      expect(msg[:OBX][0].children).not_to be_nil
+      expect(msg[:OBX][0].children.length).to eq 1
+
+      msg[:OBR][0].children.each do |x|
+        expect(x).not_to be_nil
+      end
+      msg[:OBR][1].children.each do |x|
+        expect(x).not_to be_nil
+      end
+      msg[:OBR][2].children.each do |x|
+        expect(x).not_to be_nil
+      end
+    end
+
+    it 'allows adding child segments' do
+      msg = HL7::Message.new @base
+      expect(msg).not_to be_nil
+      expect(msg[:OBR]).not_to be_nil
+      ob = HL7::Message::Segment::OBR.new
+      expect(ob).not_to be_nil
+
+      msg << ob
+      expect(ob.children).not_to be_nil
+      expect(ob.segment_parent).not_to be_nil
+      expect(ob.segment_parent).to eq msg
+      orig_cnt = msg.length
+
+      (1..4).each do |x|
+        m = HL7::Message::Segment::OBX.new
+        m.observation_value = "taco"
+        expect(m).not_to be_nil
+        expect(/taco/.match(m.to_s)).not_to be_nil
+        ob.children << m
+        expect(ob.children.length).to eq x
+        expect(m.segment_parent).not_to be_nil
+        expect(m.segment_parent).to eq ob
+      end
+
+      expect(@base).not_to eq msg.to_hl7
+      expect(msg.length).not_to eq orig_cnt
+      text_ver = msg.to_hl7
+      expect(/taco/.match(text_ver)).not_to 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
+    expect(subject).to 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 { expect(time_now.to_time.to_hl7).to eq formated_time }
+    end
+
+    context "with_fraction" do
+      it { expect(time_now.to_time.to_hl7(3)).to eq formated_time + fraction_3 }
+
+      it { expect(time_now.to_time.to_hl7(9)).to 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 )
+      expect(seg.to_s).to eq @base_msa
+    end
+
+    it 'converts to a string' do
+      seg = HL7::Message::Segment::Default.new( @base_msa )
+      expect(seg.to_s).to eq @base_msa
+      expect(seg.to_hl7).to eq 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"
+      expect(seg.to_s).to eq "NK1|INFO|MORE INFO|||LAST INFO"
+    end
+  end
+end

data/spec/dg1_spec.rb

@@ -0,0 +1,42 @@
+# encoding: UTF-8
+require "spec_helper"
+
+describe HL7::Message::Segment::DG1 do
+  context "reading" do
+    let(:base_string) do
+      "DG1|1|I9|71596^OSTEOARTHROS NOS-L/LEG ^I9|OSTEOARTHROS NOS-L/LEG |20170615140551-0800||A|"
+    end
+    let(:segment){ HL7::Message::Segment::DG1.new(base_string) }
+
+    it "allows access to an DG1 segment" do
+      expect(segment.set_id).to eq("1")
+      expect(segment.diagnosis_coding_method).to eq("I9")
+      expect(segment.diagnosis_code).to eq("71596^OSTEOARTHROS NOS-L/LEG ^I9")
+      expect(segment.diagnosis_description).to eq("OSTEOARTHROS NOS-L/LEG ")
+      expect(segment.diagnosis_date_time).to eq("20170615140551-0800")
+      expect(segment.diagnosis_type).to eq("")
+      expect(segment.major_diagnostic_category).to eq("A")
+      expect(segment.diagnosis_related_group).to eq("")
+      expect(segment.drg_approval_indicator).to eq(nil)
+      expect(segment.drg_grouper_review_code).to eq(nil)
+      expect(segment.outlier_type).to eq(nil)
+      expect(segment.outlier_days).to eq(nil)
+      expect(segment.outlier_cost).to eq(nil)
+      expect(segment.grouper_version_and_type).to eq(nil)
+      expect(segment.diagnosis_priority).to eq(nil)
+      expect(segment.diagnosis_clinician).to eq(nil)
+      expect(segment.diagnosis_classification).to eq(nil)
+      expect(segment.confidential_indicator).to eq(nil)
+      expect(segment.attestation_date_time).to eq(nil)
+    end
+  end
+
+  context "creating" do
+    let(:segment){ HL7::Message::Segment::DG1.new }
+
+    it "allows creation of an DGH segment" do
+      segment.set_id = "2"
+      expect(segment.set_id).to eq("2")
+    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
+
+      expect(seg.to_s).to eq "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
+
+      expect(seg.to_s).to eq "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
+
+      expect { e3 "TEST" }.to raise_error(NoMethodError)
+      expect(seg.to_s).to eq "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
+      expect do
+        err = HL7::Message::Segment::ERR.new( @base_err )
+        expect(err).not_to be_nil
+        expect(err.to_s).to eq @base_err
+      end.not_to raise_error
+    end
+
+    it 'allows access to an ERR segment' do
+      expect do
+        err = HL7::Message::Segment::ERR.new( @base_err )
+        expect(err.severity).to eq 'E'
+        expect(err.error_location).to eq 'OBR^1'
+      end.not_to 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
+      expect(evn.type_code).to eq "A04"
+    end
+
+    it 'allows creation of an EVN segment' do
+      evn = HL7::Message::Segment::EVN.new
+      evn.event_facility="A Facility"
+      expect(evn.event_facility).to eq 'A Facility'
+      evn.recorded_date = Date.new 2001,2,3
+      expect(evn.recorded_date).to eq "20010203"
+    end
+  end
+end

data/spec/fts_segment_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe HL7::Message::Segment::FTS do
+  context 'general' do
+    before :all do
+      base_string = 'FTS||End of File'
+      @fts = HL7::Message::Segment::FTS.new(base_string)
+    end
+
+    it 'creates an FTS segment' do
+      expect(@fts).to_not be_nil
+    end
+
+    it 'allows access to an FTS segment' do
+      expect(@fts.file_batch_count).to eq('')
+      expect(@fts.file_trailer_comment).to eq('End of File')
+    end
+  end
+end

data/spec/in1_segment_spec.rb

@@ -0,0 +1,34 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::IN1 do
+  context 'general' do
+    before :all do
+      @base_in1 = 'IN1|1||752|ACORDIA NATIONAL||||A|GRP|||||||SMITH^JOHN|19|19700102||||||||||||||||||WC23732763278A|||||||||||||||||X'
+    end
+
+    it 'creates an IN1 segment' do
+      expect do
+        in1 = HL7::Message::Segment::IN1.new( @base_in1 )
+        expect(in1).not_to be_nil
+        expect(in1.to_s).to eq @base_in1
+      end.not_to raise_error
+    end
+
+    it 'allows access to an IN1 segment' do
+      expect do
+        in1 = HL7::Message::Segment::IN1.new( @base_in1 )
+        expect(in1.set_id).to eq '1'
+        expect(in1.insurance_company_id).to eq '752'
+        expect(in1.insurance_company_name).to eq 'ACORDIA NATIONAL'
+        expect(in1.group_number).to eq 'A'
+        expect(in1.group_name).to eq 'GRP'
+        expect(in1.name_of_insured).to eq 'SMITH^JOHN'
+        expect(in1.insureds_relationship_to_patient).to eq '19'
+        expect(in1.insureds_date_of_birth).to eq '19700102'
+        expect(in1.policy_number).to eq 'WC23732763278A'
+        expect(in1.vip_indicator).to eq 'X'
+      end.not_to raise_error
+    end
+  end
+end

data/spec/message_spec.rb

@@ -0,0 +1,53 @@
+require 'spec_helper'
+
+describe HL7::Message do
+  describe "#correction?" do
+    let(:hl7) { HL7::Message.new data  }
+    subject { hl7.correction? }
+
+    context "when is a correction" do
+      let(:data) {
+        [
+          'OBR|1|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300',         # "F" final
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||F||||OMG',
+          'NTE|1||SOME',
+          'NTE|2||THOUGHTS',
+          'OBR|2|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300',         # "C" corrected
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||C||||OMG',
+          'NTE|1||SOME',
+          'NTE|2||THOUGHTS',
+        ].join("\r")
+      }
+
+      it { is_expected.to be true }
+    end
+
+    context "when is not a correction" do
+      let(:data) {
+        [
+          'OBR|1|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300',         # "F" final
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||F||||OMG',
+          'NTE|1||SOME',
+          'NTE|2||THOUGHTS',
+          'OBR|2|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300',         # "F" final
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||F||||OMG',
+          'NTE|1||SOME',
+          'NTE|2||THOUGHTS',
+        ].join("\r")
+      }
+
+      it { is_expected.to be false }
+    end
+
+    context "when there are no results (OBX) segments" do
+      let(:data) {
+        [
+          'OBR|1|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300',
+          'OBR|2|A241Z^LAB||123456^A TEST^L|||201508181431||1234||||None|201502181432||||OMG123||||20150818143300'
+        ].join("\r")
+      }
+
+      it { is_expected.to be false }
+    end
+  end
+end

data/spec/messages_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe "HL7 Messages" do
+  it 'processes multiple known messages without failing' do
+    expect do
+      HL7MESSAGES.each_pair do |key, hl7|
+        HL7::Message.new(hl7)
+      end
+    end.not_to raise_exception
+  end
+
+  describe 'MFN M13 Messages' do
+    it "extracts the MSH" do
+      expect(HL7::Message.new(HL7MESSAGES[:mfn_m13])[:MSH].sending_app).to eq 'HL7REG'
+    end
+    it 'extracts the MFI' do
+      expect(HL7::Message.new(HL7MESSAGES[:mfn_m13])[:MFI].master_file_identifier).to eq 'HL70006^RELIGION^HL70175'
+    end
+    it 'extracts the MFE' do
+      expect(HL7::Message.new(HL7MESSAGES[:mfn_m13])[:MFE][0].mfn_control_id).to eq '6772333'
+      expect(HL7::Message.new(HL7MESSAGES[:mfn_m13])[:MFE][1].mfn_control_id).to eq '6772334'
+    end
+  end
+end