Ruby-HL7 0.1.23

data/lib/segments/evn.rb

@@ -0,0 +1,12 @@
+# $Id: evn.rb 13 2007-03-09 04:42:29Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::EVN < HL7::Message::Segment
+  weight 0 # should occur after the MSH segment 
+  add_field :name=>:type_code, :idx=>1
+  add_field :name=>:recorded_date, :idx=>2
+  add_field :name=>:planned_date, :idx=>3
+  add_field :name=>:reason_code, :idx=>4
+  add_field :name=>:operator_id, :idx=>5
+  add_field :name=>:event_occurred, :idx=>6
+  add_field :name=>:event_facility, :idx=>6
+end

data/lib/segments/msa.rb

@@ -0,0 +1,12 @@
+# $Id: msa.rb 15 2007-03-11 05:21:09Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::MSA < HL7::Message::Segment
+  weight 0 # should occur after the msh segment
+  add_field :name=>:ack_code
+  add_field :name=>:control_id
+  add_field :name=>:text
+  add_field :name=>:expected_seq
+  add_field :name=>:delayed_ack_type
+  add_field :name=>:error_cond
+end
+

data/lib/segments/msh.rb

@@ -0,0 +1,22 @@
+# $Id: msh.rb 13 2007-03-09 04:42:29Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::MSH < HL7::Message::Segment
+  weight -1 # the msh should always start a message
+  add_field :name=>:enc_chars, :idx=>1
+  add_field :name=>:sending_app, :idx=>2
+  add_field :name=>:sending_facility, :idx=>3
+  add_field :name=>:recv_app, :idx=>4
+  add_field :name=>:recv_facility, :idx=>5
+  add_field :name=>:time, :idx=>6
+  add_field :name=>:security, :idx=>7
+  add_field :name=>:message_type, :idx=>8
+  add_field :name=>:message_control_id, :idx=>9
+  add_field :name=>:processing_id, :idx=>10
+  add_field :name=>:version_id, :idx=>11
+  add_field :name=>:seq, :idx=>12
+  add_field :name=>:continue_ptr, :idx=>13
+  add_field :name=>:accept_ack_type, :idx=>14
+  add_field :name=>:app_ack_type, :idx=>15
+  add_field :name=>:country_code, :idx=>16
+  add_field :name=>:charset, :idx=>17
+end

data/lib/segments/nte.rb

@@ -0,0 +1,9 @@
+# $Id: nte.rb 13 2007-03-09 04:42:29Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::NTE < HL7::Message::Segment
+  weight 4
+  add_field :name=>:set_id, :idx=>1
+  add_field :name=>:source, :idx=>2
+  add_field :name=>:comment, :idx=>3
+  add_field :name=>:comment_type, :idx=>4
+end

data/lib/segments/obr.rb

@@ -0,0 +1,52 @@
+# $Id: obr.rb 16 2007-03-14 05:06:36Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::OBR < HL7::Message::Segment
+  weight 89 # obr.weight-1
+  has_children
+  add_field :name=>:set_id
+  add_field :name=>:placer_order_number
+  add_field :name=>:filler_order_number
+  add_field :name=>:priority
+  add_field :name=>:requested_date
+  add_field :name=>:observation_date
+  add_field :name=>:observation_end_date
+  add_field :name=>:collection_volume
+  add_field :name=>:collector_identifier
+  add_field :name=>:specimen_action_code
+  add_field :name=>:danger_code
+  add_field :name=>:relevant_clinical_info
+  add_field :name=>:specimen_received_date
+  add_field :name=>:specimen_source
+  add_field :name=>:ordering_provider
+  add_field :name=>:order_callback_phone_number
+  add_field :name=>:placer_field_1
+  add_field :name=>:placer_field_2
+  add_field :name=>:filer_field_1
+  add_field :name=>:filer_field_2
+  add_field :name=>:results_status_change_date
+  add_field :name=>:charge_to_practice
+  add_field :name=>:parent_result
+  add_field :name=>:quantity_timing
+  add_field :name=>:result_copies_to
+  add_field :name=>:parent
+  add_field :name=>:transport_mode
+  add_field :name=>:reason_for_study
+  add_field :name=>:principal_result_interpreter
+  add_field :name=>:assistant_result_interpreter
+  add_field :name=>:technician
+  add_field :name=>:transcriptionist
+  add_field :name=>:scheduled_date
+  add_field :name=>:number_of_sample_containers
+  add_field :name=>:transport_logistics_of_sample
+  add_field :name=>:collectors_comment
+  add_field :name=>:transport_arrangement_responsibility
+  add_field :name=>:transport_arranged
+  add_field :name=>:escort_required
+  add_field :name=>:planned_patient_transport_comment
+  add_field :name=>:procedure_code
+  add_field :name=>:procedure_code_modifier
+  add_field :name=>:placer_supplemental_service_info
+  add_field :name=>:filler_supplemental_service_info
+  add_field :name=>:medically_necessary_dup_procedure_reason #longest method name ever. sry.
+  add_field :name=>:result_handling
+end

data/lib/segments/obx.rb

@@ -0,0 +1,24 @@
+# $Id: obx.rb 16 2007-03-14 05:06:36Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::OBX < HL7::Message::Segment
+  weight 90
+  add_field :name=>:set_id
+  add_field :name=>:value_type
+  add_field :name=>:observation_id
+  add_field :name=>:observation_sub_id
+  add_field :name=>:observation_value
+  add_field :name=>:units
+  add_field :name=>:references_range
+  add_field :name=>:probability
+  add_field :name=>:nature_of_abnormal_test
+  add_field :name=>:observation_result_status
+  add_field :name=>:effective_date_of_reference_range
+  add_field :name=>:user_defined_access_checks
+  add_field :name=>:observation_date
+  add_field :name=>:producer_id
+  add_field :name=>:responsible_observer
+  add_field :name=>:observation_method
+  add_field :name=>:equipment_instance_id
+  add_field :name=>:analysis_date
+end
+

data/lib/segments/oru.rb

@@ -0,0 +1,4 @@
+# $Id: oru.rb 13 2007-03-09 04:42:29Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::ORU < HL7::Message::Segment
+end

data/lib/segments/pid.rb

@@ -0,0 +1,49 @@
+# $Id: pid.rb 21 2007-03-17 04:49:50Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::PID < HL7::Message::Segment
+  weight 1
+  add_field :name=>:set_id
+  add_field :name=>:patient_id
+  add_field :name=>:patient_id_list
+  add_field :name=>:alt_patient_id
+  add_field :name=>:patient_name
+  add_field :name=>:mother_maiden_name
+  add_field :name=>:patient_dob
+  add_field :name=>:admin_sex do |sex|
+    unless /^[FMOUAN]$/.match(sex) || sex == nil
+      raise HL7::InvalidDataError.new( "bad administrative sex value (not F|M|O|U|A|N)" )
+    end
+    sex = "" unless sex
+    sex
+  end
+  add_field :name=>:patient_alias
+  add_field :name=>:race
+  add_field :name=>:address
+  add_field :name=>:country_code
+  add_field :name=>:phone_home
+  add_field :name=>:phone_business
+  add_field :name=>:primary_language
+  add_field :name=>:marital_status
+  add_field :name=>:religion
+  add_field :name=>:account_number
+  add_field :name=>:social_security_num
+  add_field :name=>:mothers_id
+  add_field :name=>:ethnic_group
+  add_field :name=>:birthplace
+  add_field :name=>:multi_birth
+  add_field :name=>:birth_order
+  add_field :name=>:citizenship
+  add_field :name=>:vet_status
+  add_field :name=>:nationality
+  add_field :name=>:death_date
+  add_field :name=>:death_indicator
+  add_field :name=>:id_unknown_indicator
+  add_field :name=>:id_readability_code
+  add_field :name=>:last_update_date
+  add_field :name=>:last_update_facility
+  add_field :name=>:species_code
+  add_field :name=>:breed_code
+  add_field :name=>:strain
+  add_field :name=>:production_class_code
+  add_field :name=>:tribal_citizenship
+end

data/lib/segments/pv1.rb

@@ -0,0 +1,57 @@
+# $Id: pv1.rb 15 2007-03-11 05:21:09Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::PV1 < HL7::Message::Segment
+  weight 2
+  add_field :name=>:set_id
+  add_field :name=>:patient_class
+  add_field :name=>:assigned_location
+  add_field :name=>:admission_type
+  add_field :name=>:preadmit_number
+  add_field :name=>:prior_location
+  add_field :name=>:attending_doctor
+  add_field :name=>:referring_doctor
+  add_field :name=>:consulting_doctor
+  add_field :name=>:hospital_service
+  add_field :name=>:temporary_location
+  add_field :name=>:preadmit_indicator
+  add_field :name=>:readmit_indicator
+  add_field :name=>:admit_source
+  add_field :name=>:ambulatory_status
+  add_field :name=>:vip_indicator
+  add_field :name=>:admitting_doctor
+  add_field :name=>:patient_type
+  add_field :name=>:visit_number
+  add_field :name=>:financial_class
+  add_field :name=>:charge_price_indicator
+  add_field :name=>:courtesy_code
+  add_field :name=>:credit_rating
+  add_field :name=>:contract_code
+  add_field :name=>:contract_effective_date
+  add_field :name=>:contract_amount
+  add_field :name=>:contract_period
+  add_field :name=>:interest_code
+  add_field :name=>:transfer_bad_debt_code
+  add_field :name=>:transfer_bad_debt_date
+  add_field :name=>:bad_debt_agency_code
+  add_field :name=>:bad_debt_transfer_amount
+  add_field :name=>:bad_debt_recovery_amount
+  add_field :name=>:delete_account_indicator
+  add_field :name=>:delete_account_date
+  add_field :name=>:discharge_disposition
+  add_field :name=>:discharge_to_location
+  add_field :name=>:diet_type
+  add_field :name=>:servicing_facility
+  add_field :name=>:bed_status
+  add_field :name=>:account_status
+  add_field :name=>:pending_location
+  add_field :name=>:prior_temporary_location
+  add_field :name=>:admit_date
+  add_field :name=>:discharge_date
+  add_field :name=>:current_patient_balance
+  add_field :name=>:total_charges
+  add_field :name=>:total_adjustments
+  add_field :name=>:total_payments
+  add_field :name=>:alternate_visit_id
+  add_field :name=>:visit_indicator
+  add_field :name=>:other_healthcare_provider
+end

data/lib/segments/pv2.rb

@@ -0,0 +1,53 @@
+# $Id: pv2.rb 15 2007-03-11 05:21:09Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::PV2 < HL7::Message::Segment
+  weight 3
+  add_field :name=>:prior_pending_location
+  add_field :name=>:accommodation_code
+  add_field :name=>:admit_reason
+  add_field :name=>:transfer_reason
+  add_field :name=>:patient_valuables
+  add_field :name=>:patient_valuables_location
+  add_field :name=>:visit_user_code
+  add_field :name=>:expected_admit_date
+  add_field :name=>:expected_discharge_date
+  add_field :name=>:estimated_inpatient_stay_length
+  add_field :name=>:actual_inpatient_stay_length
+  add_field :name=>:visit_description
+  add_field :name=>:referral_source_code
+  add_field :name=>:previous_service_date
+  add_field :name=>:employment_illness_related_indicator
+  add_field :name=>:purge_status_code
+  add_field :name=>:purge_status_date
+  add_field :name=>:special_program_code
+  add_field :name=>:retention_indicator
+  add_field :name=>:expected_number_of_insurance_plans
+  add_field :name=>:visit_publicity_code
+  add_field :name=>:visit_protection_indicator
+  add_field :name=>:clinic_organization_name
+  add_field :name=>:patient_status_code
+  add_field :name=>:visit_priority_code
+  add_field :name=>:previous_treatment_date
+  add_field :name=>:expected_discharge_disposition
+  add_field :name=>:signature_on_file
+  add_field :name=>:first_similar_illness_date
+  add_field :name=>:patient_charge_adjustment_code
+  add_field :name=>:recurring_service_code
+  add_field :name=>:billing_media_code
+  add_field :name=>:expected_surgery_date
+  add_field :name=>:military_partnership_code
+  add_field :name=>:military_non_availibility_code
+  add_field :name=>:newborn_baby_indicator
+  add_field :name=>:baby_detained_indicator
+  add_field :name=>:mode_of_arrival_code
+  add_field :name=>:recreational_drug_use_code
+  add_field :name=>:precaution_code
+  add_field :name=>:patient_condition_code
+  add_field :name=>:living_will_code
+  add_field :name=>:organ_donor_code
+  add_field :name=>:advance_directive_code
+  add_field :name=>:patient_status_effective_date
+  add_field :name=>:expected_loa_return_date
+  add_field :name=>:expected_preadmission_testing_date
+  add_field :name=>:notify_clergy_code
+end

data/lib/segments/qrd.rb

@@ -0,0 +1,17 @@
+# $Id: qrd.rb 17 2007-03-14 05:25:11Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::QRD < HL7::Message::Segment
+  weight 84
+  add_field :name=>:query_date
+  add_field :name=>:query_format_code
+  add_field :name=>:query_priority
+  add_field :name=>:query_id
+  add_field :name=>:deferred_response_type
+  add_field :name=>:deferred_response_date
+  add_field :name=>:quantity_limited_request
+  add_field :name=>:who_subject_filter
+  add_field :name=>:what_subject_filter
+  add_field :name=>:what_department_code
+  add_field :name=>:what_data_code
+  add_field :name=>:query_results_level
+end

data/lib/segments/qrf.rb

@@ -0,0 +1,15 @@
+# $Id: qrf.rb 17 2007-03-14 05:25:11Z segfault $
+require 'ruby-hl7'
+class HL7::Message::Segment::QRF < HL7::Message::Segment
+  weight 85
+  add_field :name=>:where_subject_filter
+  add_field :name=>:when_start_date
+  add_field :name=>:when_end_date
+  add_field :name=>:what_user_qualifier
+  add_field :name=>:other_qry_subject_filter
+  add_field :name=>:which_date_qualifier
+  add_field :name=>:which_date_status_qualifier
+  add_field :name=>:date_selection_qualifier
+  add_field :name=>:when_timing_qualifier
+  add_field :name=>:search_confidence_threshold
+end

data/test/test_basic_parsing.rb

@@ -0,0 +1,306 @@
+# $Id: test_basic_parsing.rb 21 2007-03-17 04:49:50Z segfault $
+$: << '../lib'
+require 'test/unit'
+require 'ruby-hl7'
+
+class BasicParsing < Test::Unit::TestCase
+  def setup
+    @simple_msh_txt = open( './test_data/test.hl7' ).readlines.first
+    @base_msh = "MSH|^~\\&|LAB1||DESTINATION||19910127105114||ORU^R03|LAB1003929"
+  end
+
+  def test_simple_msh
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_equal( @simple_msh_txt, msg.to_hl7 )
+  end
+
+  def test_constructor_parse
+    msg = HL7::Message.new( @simple_msh_txt )
+    assert_equal( @simple_msh_txt, msg.to_hl7 )
+  end
+
+  def test_class_parse
+    msg = HL7::Message.parse( @simple_msh_txt )
+    assert_equal( @simple_msh_txt, msg.to_hl7 )
+  end
+
+  def test_not_string_or_enumerable
+    assert_raise( HL7::ParseError ) do
+      msg = HL7::Message.parse( :MSHthis_shouldnt_parse_at_all )
+    end
+  end
+
+  def test_message_to_string
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    orig = @simple_msh_txt.gsub( /\r/, '\n' )
+    assert_equal( orig, msg.to_s )
+  end
+
+  def test_to_s_vs_to_hl7
+    msg = HL7::Message.new( @simple_msh_txt )
+    assert_not_equal( msg.to_s, msg.to_hl7 )
+  end
+
+  def test_segment_numeric_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_equal( @base_msh, msg[0].to_s ) 
+  end
+
+  def test_segment_string_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_equal( @base_msh, msg["MSH"].to_s ) 
+  end
+
+  def test_segment_symbol_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_equal( @base_msh, msg[:MSH].to_s ) 
+  end
+
+  def test_segment_numeric_mutator
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    inp = HL7::Message::Segment::Default.new
+    msg[1] = inp
+    assert_equal( inp, msg[1] )
+
+    assert_raise( HL7::Exception ) do
+      msg[2] = Class.new
+    end
+  end
+
+  def test_segment_string_mutator
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    inp = HL7::Message::Segment::NTE.new
+    msg["NTE"] = inp
+    assert_equal( inp, msg["NTE"] )
+
+    assert_raise( HL7::Exception ) do
+      msg["NTE"] = Class.new
+    end
+  end
+
+  def test_segment_symbol_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    inp = HL7::Message::Segment::NTE.new
+    msg[:NTE] = inp
+    assert_equal( inp, msg[:NTE] )
+
+    assert_raise( HL7::Exception ) do
+      msg[:NTE] = Class.new
+    end
+  end
+
+  def test_element_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_equal( "LAB1", msg[:MSH].sending_app )
+  end
+
+  def test_element_mutator
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    msg[:MSH].sending_app = "TEST"
+    assert_equal( "TEST", msg[:MSH].sending_app )
+  end
+
+  def test_element_missing_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_raise( HL7::Exception, NoMethodError ) do
+      msg[:MSH].does_not_really_exist_here
+    end
+  end
+
+  def test_element_missing_mutator
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_raise( HL7::Exception, NoMethodError ) do
+      msg[:MSH].does_not_really_exist_here = "TEST"
+    end
+  end
+
+  def test_element_numeric_accessor
+    msg = HL7::Message.new( @simple_msh_txt )
+    
+    assert_equal( "LAB1", msg[:MSH].e2 ) 
+    assert_equal( "", msg[:MSH].e3 )
+  end
+
+  def test_element_numeric_mutator
+    msg = HL7::Message.parse( @simple_msh_txt )
+    msg[:MSH].e2 = "TESTING1234"
+    assert_equal( "TESTING1234", msg[:MSH].e2 )
+  end
+
+  def test_segment_append
+    msg = HL7::Message.new
+    assert_nothing_raised do
+      msg << HL7::Message::Segment::MSH.new
+      msg << HL7::Message::Segment::NTE.new
+    end
+
+    assert_raises( HL7::Exception ) do
+      msg << Class.new
+    end
+  end
+
+
+  def test_segment_sort
+    msg = HL7::Message.new
+    pv1 = HL7::Message::Segment::PV1.new
+    msg << pv1
+    msh = HL7::Message::Segment::MSH.new
+    msg << msh
+    nte = HL7::Message::Segment::NTE.new
+    msg << nte
+    nte2 = HL7::Message::Segment::NTE.new
+    msg << nte
+    msh.sending_app = "TEST"
+    
+
+    initial = msg.to_s
+    sorted = msg.sort
+    final = sorted.to_s
+    assert_not_equal( initial, final )
+  end
+
+  def test_segment_auto_set_id
+    msg = HL7::Message.new
+    msh = HL7::Message::Segment::MSH.new
+    msg << msh
+    ntea = HL7::Message::Segment::NTE.new
+    ntea.comment = "first"
+    msg << ntea
+    nteb = HL7::Message::Segment::NTE.new
+    nteb.comment = "second"
+    msg << nteb
+    ntec = HL7::Message::Segment::NTE.new
+    ntec.comment = "third"
+    msg << ntec
+    assert_equal( "1", ntea.set_id )
+    assert_equal( "2", nteb.set_id )
+    assert_equal( "3", ntec.set_id )
+  end
+
+  def test_enumerable_parsing
+    test_file = open( './test_data/test.hl7' )
+    assert_not_nil( test_file )
+
+    msg = HL7::Message.new( test_file )
+    assert_equal( @simple_msh_txt, msg.to_hl7 )
+  end
+
+  def test_segment_to_info
+    msg = HL7::Message.new( @simple_msh_txt )
+    assert_not_nil( msg[1].to_info )
+  end
+
+  def test_segment_use_raw_array
+    inp = "NTE|1|ME TOO"
+    nte = HL7::Message::Segment::NTE.new( inp.split( '|' ) )
+    assert_equal( inp, nte.to_s )
+  end
+
+  def test_mllp_output
+    msg = HL7::Message.new( @simple_msh_txt )
+    expect = "\x0b%s\x1c\r" % msg.to_hl7
+    assert_equal( expect, msg.to_mllp )
+  end
+
+  def test_parse_mllp
+    raw = "\x0b%s\x1c\r" % @simple_msh_txt
+    msg = HL7::Message.parse( raw )
+    assert_not_nil( msg )
+    assert_equal( @simple_msh_txt, msg.to_hl7 )
+    assert_equal( raw, msg.to_mllp )
+  end
+
+  def test_mllp_output_parse
+    msg = HL7::Message.parse( @simple_msh_txt )
+    assert_not_nil( msg )
+    assert_nothing_raised do
+      post_mllp = HL7::Message.parse( msg.to_mllp )
+      assert_not_nil( post_mllp )
+      assert_equal( msg.to_hl7, post_mllp.to_hl7 )
+    end
+  end
+
+  def test_child_segment_accessor
+    obr = HL7::Message::Segment::OBR.new
+    assert_nothing_raised do
+      assert_not_nil( obr.children )
+      assert_equal( 0, obr.children.length )
+    end
+  end
+
+  def test_child_segment_addition
+    obr = HL7::Message::Segment::OBR.new
+    assert_nothing_raised do
+      assert_equal( 0, obr.children.length )
+      (1..5).each do |x|
+        obr.children << HL7::Message::Segment::OBX.new
+        assert_equal( x, obr.children.length )
+      end
+    end
+  end
+
+  def test_child_segment_invalid_addition
+    obr = HL7::Message::Segment::OBR.new
+    assert_raises(HL7::Exception) do
+      obr.children << Class.new
+    end
+  end
+
+  def test_grouped_sequenced_segments
+    #multible obr's with multiple obx's
+    msg = HL7::Message.parse( @simple_msh_txt )
+    orig_output = msg.to_hl7
+    (1..10).each do |obr_id|
+      obr = HL7::Message::Segment::OBR.new
+      msg << obr
+      (1..10).each do |obx_id|
+        obx = HL7::Message::Segment::OBX.new
+        obr.children << obx
+      end
+    end
+
+    assert_not_nil( msg[:OBR] )
+    assert_equal( 11, msg[:OBR].length )
+    assert_not_nil( msg[:OBX] )
+    assert_equal( 2, msg[:OBX].length ) 
+    assert_equal( "2", msg[:OBR][4].children[1].set_id ) # confirm the id's
+    assert_equal( "2", msg[:OBR][5].children[1].set_id ) # confirm the id's
+
+    final_output = msg.to_hl7
+    assert_not_equal( orig_output, final_output )
+  end
+
+  def test_index_accessor
+    msg = HL7::Message.parse( @simple_msh_txt )
+    assert_equal( 1, msg.index( "PID" ) )
+    assert_equal( 1, msg.index( :PID ) )
+    assert_equal( 2, msg.index( "PV1" ) )
+    assert_equal( 2, msg.index( :PV1 ) )
+    assert_equal( nil, msg.index( "TACOBELL" ) )
+    assert_equal( nil, msg.index( nil ) )
+    assert_equal( nil, msg.index( 1 ) )
+  end
+
+  def test_segment_field_block
+    pid = HL7::Message::Segment::PID.new
+    assert_raises( HL7::InvalidDataError ) do
+      pid.admin_sex = "TEST"
+    end
+    assert_nothing_raised do
+      pid.admin_sex = "F"
+    end
+  end
+
+end