ruby-hl7 1.2.3 → 1.3.3

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/ft1_segment_spec.rb

@@ -0,0 +1,35 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::FT1 do
+  context 'general' do
+    before :all do
+      @base_ft1 = 'FT1|1|||20180705|20180705|||Description||1||||||123456^The Location|||R45.82^Worries~H18.892^Other specified disorders of cornea|1043312457^Provider^Testing^^^^|1043312457^Provider^Testing^^^^||||99392^HEART FAILURE COMPOSITE|'
+    end
+
+    it 'creates an FT1 segment' do
+      expect do
+        ft1 = HL7::Message::Segment::FT1.new( @base_ft1 )
+        expect(ft1).not_to be_nil
+        expect(ft1.to_s).to eq @base_ft1
+      end.not_to raise_error
+    end
+
+    it 'allows access to an FT1 segment' do
+      expect do
+        ft1 = HL7::Message::Segment::FT1.new( @base_ft1 )
+        expect(ft1.set_id).to eq '1'
+        expect(ft1.date_of_service).to eq '20180705'
+        expect(ft1.transaction_posting_date).to eq '20180705'
+        expect(ft1.transaction_description).to eq 'Description'
+        expect(ft1.transaction_quantity).to eq '1'
+        expect(ft1.assigned_patient_location).to eq '123456^The Location'
+        expect(ft1.diagnosis_code).to eq 'R45.82^Worries~H18.892^Other specified disorders of cornea'
+        expect(ft1.performed_by_provider).to eq '1043312457^Provider^Testing^^^^'
+        expect(ft1.ordering_provider).to eq '1043312457^Provider^Testing^^^^'
+        expect(ft1.procedure_code).to eq '99392^HEART FAILURE COMPOSITE'
+
+      end.not_to raise_error
+    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/gt1_segment_spec.rb

@@ -0,0 +1,32 @@
+# encoding: UTF-8
+require 'spec_helper'
+
+describe HL7::Message::Segment::GT1 do
+  context 'general' do
+    before :all do
+      @base_gt1 = 'GT1||440|Crusher^Beverly||1003 Elm Street^^Enterprise^MD^29433|(330)644-1234^^^bcrusher@ufp.net^^330^6441234| |19600411000000|F||18|339-33-6657||||||||F||||||||||M'
+    end
+
+    it 'creates an GT1 segment' do
+      expect do
+        gt1 = HL7::Message::Segment::GT1.new( @base_gt1 )
+        expect(gt1).not_to be_nil
+        expect(gt1.to_s).to eq @base_gt1
+      end.not_to raise_error
+    end
+
+    it 'allows access to an GT1 segment' do
+      expect do
+        gt1 = HL7::Message::Segment::GT1.new( @base_gt1 )
+        expect(gt1.guarantor_number).to eq '440'
+        expect(gt1.guarantor_name).to eq 'Crusher^Beverly'
+        expect(gt1.guarantor_address).to eq '1003 Elm Street^^Enterprise^MD^29433'
+        expect(gt1.guarantor_date_of_birth).to eq '19600411000000'
+        expect(gt1.guarantor_sex).to eq 'F'
+        expect(gt1.guarantor_relationship).to eq '18'
+        expect(gt1.guarantor_ssn).to eq '339-33-6657'
+        expect(gt1.guarantor_employment_status).to eq 'F'
+      end.not_to raise_error
+    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

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