ruby-hl7 1.2.3 → 1.3.0

data/spec/mfe_segment_spec.rb

@@ -0,0 +1,28 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::MFE do
+  context 'general' do
+    before :all do
+      @base_sft = 'MFE|MAD|6772331|200106290500|BUD^Buddhist^HL70006|CE'
+    end
+
+    it 'creates an MFE segment' do
+      expect do
+        sft = HL7::Message::Segment::MFE.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 MFE segment' do
+      expect do
+        sft = HL7::Message::Segment::MFE.new( @base_sft )
+        expect(sft.record_level_event_code).to eq 'MAD'
+        expect(sft.mfn_control_id).to eq '6772331'
+        expect(sft.primary_key_value).to eq 'BUD^Buddhist^HL70006'
+        expect(sft.primary_key_value_type).to eq 'CE'
+      end.not_to raise_error
+    end
+  end
+end

data/spec/mfi_segment_spec.rb

@@ -0,0 +1,28 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::MFI do
+  context 'general' do
+    before :all do
+      @base_sft = 'MFI|HL70006^RELIGION^HL70175|TEST|UPD|||AL'
+    end
+
+    it 'creates an MFI segment' do
+      expect do
+        sft = described_class.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 MFI segment' do
+      expect do
+        sft = described_class.new( @base_sft )
+        expect(sft.master_file_identifier).to eq 'HL70006^RELIGION^HL70175'
+        expect(sft.master_file_application_identifier).to eq 'TEST'
+        expect(sft.file_level_event_code).to eq 'UPD'
+        expect(sft.response_level_code).to eq 'AL'
+      end.not_to raise_error
+    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
+      expect do
+        msa = HL7::Message::Segment::MSA.new( @base_msa )
+        expect(msa).not_to be_nil
+        expect(msa.to_s).to eq @base_msa
+      end.not_to raise_error
+    end
+
+    it 'allows access to an MSA segment' do
+      expect do
+        msa = HL7::Message::Segment::MSA.new( @base_msa )
+        expect(msa.ack_code).to eq "AR"
+        expect(msa.control_id).to eq "ZZ9380 ERR"
+      end.not_to 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='^~\\&'
+      expect(msh.version_id).to eq '2.5'
+      expect(msh.country_code).to eq 'AU'
+      expect(msh.charset).to eq 'ASCII'
+      expect(msh.sending_responsible_org).to eq 'AN ORG'
+      expect(msh.receiving_network_address).to eq 'RECNET.ORG'
+    end
+
+    it 'allows creation of an MSH segment' do
+      msh = HL7::Message::Segment::MSH.new
+      msh.sending_facility="A Facility"
+      expect(msh.sending_facility).to eq 'A Facility'
+      msh.time = DateTime.iso8601('20010203T040506')
+      expect(msh.time).to eq '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
+      expect do
+        nk1 = HL7::Message::Segment::NK1.new( @base_nk1 )
+        expect(nk1).not_to be_nil
+        expect(nk1.to_s).to eq @base_nk1
+      end.not_to raise_error
+    end
+
+    it 'allows access to an NK1 segment' do
+      expect do
+        nk1 = HL7::Message::Segment::NK1.new( @base_nk1 )
+        expect(nk1.name).to eq 'Mum^Martha^M^^^^L'
+        expect(nk1.phone_number).to eq '^PRN^PH^^1^555^5552006'
+      end.not_to 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
+      expect(@obr.to_s).to eq @base
+      expect(@obr.e1).to eq "2"
+      expect(@obr.set_id).to eq "2"
+      expect(@obr.placer_order_number).to eq "^USSSA"
+      expect(@obr.filler_order_number).to eq "0000000567^USSSA"
+      expect(@obr.universal_service_id).to eq "37956^CT ABDOMEN^LN"
+    end
+
+    it 'allows modification of an OBR segment' do
+      @obr.set_id = 1
+      expect(@obr.set_id).to eq "1"
+      @obr.placer_order_number = "^DMCRES"
+      expect(@obr.placer_order_number).to eq "^DMCRES"
+    end
+
+    it 'supports the diagnostic_serv_sect_id method' do
+      expect(@obr).to respond_to(:diagnostic_serv_sect_id)
+      expect(@obr.diagnostic_serv_sect_id).to eq "NMR"
+    end
+
+    it 'supports the result_status method' do
+      expect(@obr).to respond_to(:result_status)
+      expect(@obr.result_status).to eq "P"
+    end
+
+    it 'supports the reason_for_study method' do
+      expect(@obr.reason_for_study).to eq "R/O TUMOR"
+    end
+
+    it 'supports the parent_universal_service_identifier method' do
+      expect(@obr.parent_universal_service_identifier).to eq "123"
+    end
+  end
+end

data/spec/obx_segment_spec.rb

@@ -0,0 +1,68 @@
+# 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
+      expect(obx.set_id).to eq "1"
+      expect(obx.value_type).to eq "NM"
+      expect(obx.observation_id).to eq "30341-2^Erythrocyte sedimentation rate^LN^815117^ESR^99USI^^^Erythrocyte sedimentation rate"
+      expect(obx.observation_sub_id).to eq ""
+      expect(obx.observation_value).to eq "10"
+      expect(obx.units).to eq "mm/h^millimeter per hour^UCUM"
+      expect(obx.references_range).to eq "0 to 17"
+      expect(obx.abnormal_flags).to eq "N"
+      expect(obx.probability).to eq "0.1"
+      expect(obx.nature_of_abnormal_test).to eq ""
+      expect(obx.observation_result_status).to eq "F"
+      expect(obx.effective_date_of_reference_range).to eq ""
+      expect(obx.user_defined_access_checks).to eq ""
+      expect(obx.observation_date).to eq "20110331140551-0800"
+      expect(obx.producer_id).to eq ""
+      expect(obx.responsible_observer).to eq "Observer"
+      expect(obx.observation_site).to eq '^A Site'
+      expect(obx.observation_method).to eq ""
+      expect(obx.equipment_instance_id).to eq ""
+      expect(obx.analysis_date).to eq "20110331150551-0800"
+      expect(obx.performing_organization_name).to eq "Century Hospital^^^^^NIST-AA-1&2.16.840.1.113883.3.72.5.30.1&ISO^XX^^^987"
+      expect(obx.performing_organization_address).to eq "2070 Test Park^^Los Angeles^CA^90067^USA^B^^06037"
+      expect(obx.performing_organization_medical_director).to eq "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
+      expect 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.not_to raise_error
+    end
+
+    describe "#correction?" do
+      let(:obx) { HL7::Message::Segment::OBX.new data  }
+      subject { obx.correction? }
+
+      context "when is a correction" do
+        let(:data) {
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||C||||OMG'
+        }
+
+        it { is_expected.to be true }
+      end
+
+      context "when is not a correction" do
+        let(:data) {
+          'OBX|1|ST|123456^AA OBSERVATION^L^4567890^FIRST OBSERVATION^LN||42|ug/dL^Micrograms per Deciliter^UCUM|<10 ug/dL|H|||F||||OMG'
+        }
+
+        it { is_expected.to be false }
+      end
+    end
+  end
+end

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
+      expect do
+        orc = HL7::Message::Segment::ORC.new( @base_orc )
+        expect(orc).not_to be_nil
+        expect(orc.to_s).to eq @base_orc
+      end.not_to raise_error
+    end
+
+    it 'allows access to an ORC segment' do
+      orc = HL7::Message::Segment::ORC.new( @base_orc )
+      expect(orc.ordering_provider).to eq '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'
+      expect(orc.call_back_phone_number).to eq '^WPN^PH^^1^555^5551005'
+      expect(orc.ordering_facility_name).to eq 'Level Seven Healthcare, Inc.^L^^^^&2.16.840.1.113883.19.4.6^ISO^XX^^^1234'
+      expect(orc.parent_universal_service_identifier).to eq '7844'
+    end
+  end
+end

data/spec/pid_segment_spec.rb

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

@@ -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