segfault-ruby-hl7 0.3.0

data/lib/segments/evn.rb

@@ -0,0 +1,12 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::EVN < HL7::Message::Segment
+  weight 0 # should occur after the MSH segment 
+  add_field :type_code, :idx=>1
+  add_field :recorded_date, :idx=>2
+  add_field :planned_date, :idx=>3
+  add_field :reason_code, :idx=>4
+  add_field :operator_id, :idx=>5
+  add_field :event_occurred, :idx=>6
+  add_field :event_facility, :idx=>6
+end

data/lib/segments/msa.rb

@@ -0,0 +1,12 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::MSA < HL7::Message::Segment
+  weight 0 # should occur after the msh segment
+  add_field :ack_code
+  add_field :control_id
+  add_field :text
+  add_field :expected_seq
+  add_field :delayed_ack_type
+  add_field :error_cond
+end
+

data/lib/segments/msh.rb

@@ -0,0 +1,22 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::MSH < HL7::Message::Segment
+  weight( -1 ) # the msh should always start a message
+  add_field :enc_chars, :idx=>1
+  add_field :sending_app, :idx=>2
+  add_field :sending_facility, :idx=>3
+  add_field :recv_app, :idx=>4
+  add_field :recv_facility, :idx=>5
+  add_field :time, :idx=>6
+  add_field :security, :idx=>7
+  add_field :message_type, :idx=>8
+  add_field :message_control_id, :idx=>9
+  add_field :processing_id, :idx=>10
+  add_field :version_id, :idx=>11
+  add_field :seq, :idx=>12
+  add_field :continue_ptr, :idx=>13
+  add_field :accept_ack_type, :idx=>14
+  add_field :app_ack_type, :idx=>15
+  add_field :country_code, :idx=>16
+  add_field :charset, :idx=>17
+end

data/lib/segments/nte.rb

@@ -0,0 +1,9 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::NTE < HL7::Message::Segment
+  weight 4
+  add_field :set_id, :idx=>1
+  add_field :source, :idx=>2
+  add_field :comment, :idx=>3
+  add_field :comment_type, :idx=>4
+end

data/lib/segments/obr.rb

@@ -0,0 +1,53 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::OBR < HL7::Message::Segment
+  weight 89 # obr.weight-1
+  has_children [:OBX]
+  add_field :set_id
+  add_field :placer_order_number
+  add_field :filler_order_number
+  add_field :universal_service_id
+  add_field :priority
+  add_field :requested_date
+  add_field :observation_date
+  add_field :observation_end_date
+  add_field :collection_volume
+  add_field :collector_identifier
+  add_field :specimen_action_code
+  add_field :danger_code
+  add_field :relevant_clinical_info
+  add_field :specimen_received_date
+  add_field :specimen_source
+  add_field :ordering_provider
+  add_field :order_callback_phone_number
+  add_field :placer_field_1
+  add_field :placer_field_2
+  add_field :filer_field_1
+  add_field :filer_field_2
+  add_field :results_status_change_date
+  add_field :charge_to_practice
+  add_field :parent_result
+  add_field :quantity_timing
+  add_field :result_copies_to
+  add_field :parent
+  add_field :transport_mode
+  add_field :reason_for_study
+  add_field :principal_result_interpreter
+  add_field :assistant_result_interpreter
+  add_field :technician
+  add_field :transcriptionist
+  add_field :scheduled_date
+  add_field :number_of_sample_containers
+  add_field :transport_logistics_of_sample
+  add_field :collectors_comment
+  add_field :transport_arrangement_responsibility
+  add_field :transport_arranged
+  add_field :escort_required
+  add_field :planned_patient_transport_comment
+  add_field :procedure_code
+  add_field :procedure_code_modifier
+  add_field :placer_supplemental_service_info
+  add_field :filler_supplemental_service_info
+  add_field :medically_necessary_dup_procedure_reason #longest method name ever. sry.
+  add_field :result_handling
+end

data/lib/segments/obx.rb

@@ -0,0 +1,26 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::OBX < HL7::Message::Segment
+  weight 90
+  has_children [:NTE]
+  add_field :set_id
+  add_field :value_type
+  add_field :observation_id
+  add_field :observation_sub_id
+  add_field :observation_value
+  add_field :units
+  add_field :references_range
+  add_field :abnormal_flags
+  add_field :probability
+  add_field :nature_of_abnormal_test
+  add_field :observation_result_status
+  add_field :effective_date_of_reference_range
+  add_field :user_defined_access_checks
+  add_field :observation_date
+  add_field :producer_id
+  add_field :responsible_observer
+  add_field :observation_method
+  add_field :equipment_instance_id
+  add_field :analysis_date
+end
+

data/lib/segments/oru.rb

@@ -0,0 +1,4 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::ORU < HL7::Message::Segment
+end

data/lib/segments/pid.rb

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

data/lib/segments/pv1.rb

@@ -0,0 +1,57 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::PV1 < HL7::Message::Segment
+  weight 2
+  add_field :set_id
+  add_field :patient_class
+  add_field :assigned_location
+  add_field :admission_type
+  add_field :preadmit_number
+  add_field :prior_location
+  add_field :attending_doctor
+  add_field :referring_doctor
+  add_field :consulting_doctor
+  add_field :hospital_service
+  add_field :temporary_location
+  add_field :preadmit_indicator
+  add_field :readmit_indicator
+  add_field :admit_source
+  add_field :ambulatory_status
+  add_field :vip_indicator
+  add_field :admitting_doctor
+  add_field :patient_type
+  add_field :visit_number
+  add_field :financial_class
+  add_field :charge_price_indicator
+  add_field :courtesy_code
+  add_field :credit_rating
+  add_field :contract_code
+  add_field :contract_effective_date
+  add_field :contract_amount
+  add_field :contract_period
+  add_field :interest_code
+  add_field :transfer_bad_debt_code
+  add_field :transfer_bad_debt_date
+  add_field :bad_debt_agency_code
+  add_field :bad_debt_transfer_amount
+  add_field :bad_debt_recovery_amount
+  add_field :delete_account_indicator
+  add_field :delete_account_date
+  add_field :discharge_disposition
+  add_field :discharge_to_location
+  add_field :diet_type
+  add_field :servicing_facility
+  add_field :bed_status
+  add_field :account_status
+  add_field :pending_location
+  add_field :prior_temporary_location
+  add_field :admit_date
+  add_field :discharge_date
+  add_field :current_patient_balance
+  add_field :total_charges
+  add_field :total_adjustments
+  add_field :total_payments
+  add_field :alternate_visit_id
+  add_field :visit_indicator
+  add_field :other_healthcare_provider
+end

data/lib/segments/pv2.rb

@@ -0,0 +1,53 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::PV2 < HL7::Message::Segment
+  weight 3
+  add_field :prior_pending_location
+  add_field :accommodation_code
+  add_field :admit_reason
+  add_field :transfer_reason
+  add_field :patient_valuables
+  add_field :patient_valuables_location
+  add_field :visit_user_code
+  add_field :expected_admit_date
+  add_field :expected_discharge_date
+  add_field :estimated_inpatient_stay_length
+  add_field :actual_inpatient_stay_length
+  add_field :visit_description
+  add_field :referral_source_code
+  add_field :previous_service_date
+  add_field :employment_illness_related_indicator
+  add_field :purge_status_code
+  add_field :purge_status_date
+  add_field :special_program_code
+  add_field :retention_indicator
+  add_field :expected_number_of_insurance_plans
+  add_field :visit_publicity_code
+  add_field :visit_protection_indicator
+  add_field :clinic_organization_name
+  add_field :patient_status_code
+  add_field :visit_priority_code
+  add_field :previous_treatment_date
+  add_field :expected_discharge_disposition
+  add_field :signature_on_file
+  add_field :first_similar_illness_date
+  add_field :patient_charge_adjustment_code
+  add_field :recurring_service_code
+  add_field :billing_media_code
+  add_field :expected_surgery_date
+  add_field :military_partnership_code
+  add_field :military_non_availibility_code
+  add_field :newborn_baby_indicator
+  add_field :baby_detained_indicator
+  add_field :mode_of_arrival_code
+  add_field :recreational_drug_use_code
+  add_field :precaution_code
+  add_field :patient_condition_code
+  add_field :living_will_code
+  add_field :organ_donor_code
+  add_field :advance_directive_code
+  add_field :patient_status_effective_date
+  add_field :expected_loa_return_date
+  add_field :expected_preadmission_testing_date
+  add_field :notify_clergy_code
+end

data/lib/segments/qrd.rb

@@ -0,0 +1,17 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::QRD < HL7::Message::Segment
+  weight 84
+  add_field :query_date
+  add_field :query_format_code
+  add_field :query_priority
+  add_field :query_id
+  add_field :deferred_response_type
+  add_field :deferred_response_date
+  add_field :quantity_limited_request
+  add_field :who_subject_filter
+  add_field :what_subject_filter
+  add_field :what_department_code
+  add_field :what_data_code
+  add_field :query_results_level
+end

data/lib/segments/qrf.rb

@@ -0,0 +1,15 @@
+# encoding: UTF-8
+require 'ruby-hl7'
+class HL7::Message::Segment::QRF < HL7::Message::Segment
+  weight 85
+  add_field :where_subject_filter
+  add_field :when_start_date
+  add_field :when_end_date
+  add_field :what_user_qualifier
+  add_field :other_qry_subject_filter
+  add_field :which_date_qualifier
+  add_field :which_date_status_qualifier
+  add_field :date_selection_qualifier
+  add_field :when_timing_qualifier
+  add_field :search_confidence_threshold
+end

data/test/test_basic_parsing.rb

@@ -0,0 +1,337 @@
+# encoding: UTF-8
+$: << '../lib'
+require 'test/unit'
+require 'ruby-hl7'
+
+class BasicParsing < Test::Unit::TestCase
+  def setup
+    @simple_msh_txt = open( './test_data/test.hl7' ).readlines.first
+    @empty_txt = open( './test_data/empty.hl7' ).readlines.first
+    @empty_segments_txt = open( './test_data/empty_segments.hl7' ).readlines.first
+    @base_msh = "MSH|^~\\&|LAB1||DESTINATION||19910127105114||ORU^R03|LAB1003929"
+    @base_msh_alt_delims = "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_parse_delims
+    msg = HL7::Message.new( @base_msh )
+    assert_equal( "|", msg.element_delim )
+    assert_equal( "^", msg.item_delim )
+    
+    msg = HL7::Message.new( @base_msh_alt_delims )
+    assert_equal( "$", msg.element_delim )
+    assert_equal( "@", msg.item_delim )
+  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_parse_empty
+    msg = HL7::Message.new @empty_txt
+  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_missing_accessor
+    msg = HL7::Message.new
+    msg.parse @simple_msh_txt
+    assert_nothing_raised do
+      assert_equal( nil, msg[:does_not_exist] )
+    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
+    orig_obx_cnt = msg[:OBX].length
+    (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( 102, 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
+
+  def test_empty_segment
+    msg = HL7::Message.new @empty_segments_txt
+
+  end
+
+end