ruby-hl7 1.3.3 → 1.4.0

data/spec/pid_segment_spec.rb

@@ -1,78 +0,0 @@
-# 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||AA||||||555.55|012345678||||||||||201011110924-0700|Y|||||||||"
-    end
-
-    it 'validates the admin_sex element' do
-      pid = HL7::Message::Segment::PID.new
-      expect do
-        vals = %w[F M O U A N C] + [ nil ]
-        vals.each do |x|
-          pid.admin_sex = x
-        end
-        pid.admin_sex = ""
-      end.not_to raise_error
-
-      expect do
-        ["TEST", "A", 1, 2].each do |x|
-          pid.admin_sex = x
-        end
-      end.to raise_error(HL7::InvalidDataError)
-    end
-
-    it "sets values correctly" do
-      pid = HL7::Message::Segment::PID.new @base
-      expect(pid.set_id).to eq "1"
-      expect(pid.patient_id).to eq ""
-      expect(pid.patient_id_list).to eq "333"
-      expect(pid.alt_patient_id).to eq ""
-      expect(pid.patient_name).to eq "LastName^FirstName^MiddleInitial^SR^NickName"
-      expect(pid.mother_maiden_name).to eq ""
-      expect(pid.patient_dob).to eq "19760228"
-      expect(pid.admin_sex).to eq "F"
-      expect(pid.patient_alias).to eq ""
-      expect(pid.race).to eq "2106-3^White^HL70005^CAUC^Caucasian^L"
-      expect(pid.address).to eq ""
-      expect(pid.county_code).to eq "AA"
-      expect(pid.phone_home).to eq ""
-      expect(pid.phone_business).to eq ""
-      expect(pid.primary_language).to eq ""
-      expect(pid.marital_status).to eq ""
-      expect(pid.religion).to eq ""
-      expect(pid.account_number).to eq "555.55"
-      expect(pid.social_security_num).to eq "012345678"
-      expect(pid.driver_license_num).to eq ""
-      expect(pid.mothers_id).to eq ""
-      expect(pid.ethnic_group).to eq ""
-      expect(pid.birthplace).to eq ""
-      expect(pid.multi_birth).to eq ""
-      expect(pid.birth_order).to eq ""
-      expect(pid.citizenship).to eq ""
-      expect(pid.vet_status).to eq ""
-      expect(pid.nationality).to eq ""
-      expect(pid.death_date).to eq "201011110924-0700"
-      expect(pid.death_indicator).to eq "Y"
-      expect(pid.id_unknown_indicator).to eq ""
-      expect(pid.id_readability_code).to eq ""
-      expect(pid.last_update_date).to eq ""
-      expect(pid.last_update_facility).to eq ""
-      expect(pid.species_code).to eq ""
-      expect(pid.breed_code).to eq ""
-      expect(pid.strain).to eq ""
-      expect(pid.production_class_code).to eq ""
-      expect(pid.tribal_citizenship).to eq ""
-    end
-
-    it "aliases the county_code field as country_code for backwards compatibility" do
-      pid = HL7::Message::Segment::PID.new @base
-      expect(pid.country_code).to eq "AA"
-
-      pid.country_code = "ZZ"
-      expect(pid.country_code).to eq "ZZ"
-    end
-  end
-end

data/spec/prd_segment_spec.rb

@@ -1,29 +0,0 @@
-# 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

@@ -1,23 +0,0 @@
-# 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

@@ -1,29 +0,0 @@
-# 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

@@ -1,32 +0,0 @@
-# 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

@@ -1,110 +0,0 @@
-# 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

@@ -1,32 +0,0 @@
-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

@@ -1,47 +0,0 @@
-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

@@ -1,38 +0,0 @@
-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

@@ -1,26 +0,0 @@
-# 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

@@ -1,13 +0,0 @@
-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

@@ -1,19 +0,0 @@
-# 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

@@ -1,26 +0,0 @@
-# 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

@@ -1,72 +0,0 @@
-# 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