hippo 0.0.10 → 0.0.11

data/lib/hippo/code_lists.rb

@@ -0,0 +1,10 @@
+module Hippo
+  module CodeLists
+    autoload :ClaimAdjustmentReasonCodes,   'hippo/code_lists/claim_adjustment_reason_codes'
+    autoload :ClaimStatusCategoryCodes,     'hippo/code_lists/claim_status_category_codes'
+    autoload :ClaimStatusCodes,             'hippo/code_lists/claim_status_codes'
+    autoload :RemittanceAdviceRemarkCodes,  'hippo/code_lists/remittance_advice_remark_codes'
+    autoload :ServiceTypeCodes,             'hippo/code_lists/service_type_codes'
+    autoload :TaxonomyCodes,                'hippo/code_lists/taxonomy_codes'
+  end
+end

data/lib/hippo/parser.rb

@@ -10,11 +10,22 @@ module Hippo
       setup_separators(options)
     end
 
+    def read_string(input)
+      @raw_data = input
+      remove_base_control_characters
+      parse_separators(@raw_data)
+    end
+
     def read_file(filename)
       @raw_data = File.read(filename)
+      remove_base_control_characters
       parse_separators(@raw_data)
     end
 
+    def remove_base_control_characters
+      @raw_data.gsub!(/[\a\e\f\n\r\t\v]/,'')
+    end
+
     def initialize_segment(input)
       fields = input.split(@field_separator)
 
@@ -45,31 +56,62 @@ module Hippo
       segment
     end
 
+    def find_first_segment(segments, identifier, reverse = false)
+      segments.reverse! if reverse
+
+      if index = segments.index{|o| o.identifier == identifier}
+        segments[index]
+      else
+        nil
+      end
+    end
+
     def populate_transaction_sets
-      raw_transaction_sets = []
+      raw_transaction_sets  = []
+      segments              = []
+      inside_transaction    = false
 
       @raw_data.split(@segment_separator).each do |segment_string|
         next if segment_string.strip.empty?
 
-        if segment_string =~ /\AST/
-          raw_transaction_sets << []
+        segments << initialize_segment(segment_string)
+      end
+
+      segments.each_with_index do |segment, index|
+
+        if segment.identifier == 'ST'
+          raw_transaction_sets << {:segments  => [],
+                                   :ISA       => find_first_segment(segments[0,index + 1], 'ISA', true),
+                                   :GS        => find_first_segment(segments[0,index + 1], 'GS', true),
+                                   :GE        => find_first_segment(segments[index + 1,segments.length - index + 1], 'GE'),
+                                   :IEA       => find_first_segment(segments[index + 1,segments.length - index + 1], 'IEA')}
+
+          inside_transaction = true
         end
 
-        raw_transaction_sets.last << initialize_segment(segment_string)
+        raw_transaction_sets.last[:segments] << segment if inside_transaction
+
+        inside_transaction = false if segment.identifier == 'SE'
       end
 
-      raw_transaction_sets.collect do |segments|
-        transaction_set_id = segments.first.ST01
+      raw_transaction_sets.collect do |transaction|
+        transaction_set_id = transaction[:segments].first.ST01
         transaction_set = Hippo::TransactionSets.constants.select{|c| c.to_s.end_with?(transaction_set_id) }.first
 
-        Hippo::TransactionSets.const_get(transaction_set)::Base.new(separators.merge(:segments => segments))
+        Hippo::TransactionSets.const_get(transaction_set)::Base.new(separators.merge(transaction))
       end
     end
 
-    def parse(filename)
+    def parse_file(filename)
       read_file(filename)
       populate_transaction_sets
     end
+    alias :parse :parse_file
+
+    def parse_string(input)
+      read_string(input)
+      populate_transaction_sets
+    end
   end
 end
 

data/lib/hippo/segments/TA1.rb

@@ -0,0 +1,46 @@
+module Hippo::Segments
+  class TA1 < Base
+
+    segment_identifier  'TA1'
+
+    field   :name                 => 'InterchangeControlNumber',
+            :sequence             => 1,
+            :datatype             => :string,
+            :minimum              => 9,
+            :maximum              => 9,
+            :required             => true,
+            :data_element_number  => 'I12'
+
+    field   :name                 => 'InterchangeDate',
+            :sequence             => 2,
+            :datatype             => :string,
+            :minimum              => 6,
+            :maximum              => 6,
+            :required             => true,
+            :data_element_number  => 'I08'
+
+    field   :name                 => 'InterchangeTime',
+            :sequence             => 3,
+            :datatype             => :string,
+            :minimum              => 4,
+            :maximum              => 4,
+            :required             => true,
+            :data_element_number  => 'I09'
+
+    field   :name                 => 'InterchangeAcknowledgmentCode',
+            :sequence             => 4,
+            :datatype             => :string,
+            :minimum              => 1,
+            :maximum              => 1,
+            :required             => true,
+            :data_element_number  => 'I17'
+
+    field   :name                 => 'InterchangeNoteCode',
+            :sequence             => 5,
+            :datatype             => :string,
+            :minimum              => 3,
+            :maximum              => 3,
+            :required             => true,
+            :data_element_number  => 'I18'
+  end
+end

data/lib/hippo/segments/base.rb

@@ -74,8 +74,12 @@ module Hippo::Segments
     end
 
     def get_field(field)
-      if field.class == Numeric || field =~ /\A#{self.class.identifier}(?:(\d+)(?:_(\d+)){0,1})\z/
-        self.class.fields[$1.to_i - 1]
+      if field =~ /\A#{self.class.identifier}(?:(\d+)(?:_(\d+)){0,1})\z/
+        if $2 && self.class.fields[$1.to_i - 1].class == Array
+          self.class.fields[$1.to_i - 1][$2.to_i - 1]
+        else
+          self.class.fields[$1.to_i - 1]
+        end
       else
         fields = self.class.fields.flatten.select{|f| f.name == field.gsub(/_\d{1,2}\z/,'')}
 
@@ -144,7 +148,11 @@ module Hippo::Segments
           self.values[field.sequence] = args[0]
         end
       else
-        self.values[field.sequence]
+        if field.composite
+          self.values[field.composite_sequence][field.sequence]
+        else
+          self.values[field.sequence]
+        end
       end
     end
   end

data/lib/hippo/segments.rb

@@ -86,5 +86,6 @@ module Hippo
     autoload :GS,        'hippo/segments/GS'
     autoload :GE,        'hippo/segments/GE'
     autoload :IEA,       'hippo/segments/IEA'
+    autoload :TA1,       'hippo/segments/TA1'
   end
 end

data/lib/hippo/transaction_sets/HIPAA_277/L2000C.rb

@@ -37,6 +37,16 @@ module Hippo::TransactionSets
                   'TRN.TRN01' => '1'
                 }
 
+      #Patient Level
+      loop    Hippo::TransactionSets::HIPAA_277::L2000D,
+                :name           => 'Patient Level',
+                :minimum        => 0,
+                :maximum        => 99999,
+                :position       => 100,
+                :identified_by => {
+                  'HL.HL03' => 'PT'
+                }
+
     end
   end
 end

data/lib/hippo/transaction_sets/HIPAA_277/base.rb

@@ -58,16 +58,6 @@ module Hippo::TransactionSets
                   'HL.HL04' => ["0", "1"]
                 }
 
-      #Patient Level
-      loop    Hippo::TransactionSets::HIPAA_277::L2000D,
-                :name           => 'Patient Level',
-                :minimum        => 0,
-                :maximum        => 99999,
-                :position       => 100,
-                :identified_by => {
-                  'HL.HL03' => 'PT'
-                }
-
       #Transaction Set Trailer
       segment Hippo::Segments::SE,
                 :name           => 'Transaction Set Trailer',

data/lib/hippo/transaction_sets/base.rb

@@ -20,10 +20,14 @@ module Hippo::TransactionSets
       alias loop add_component
     end
 
-    attr_accessor :values, :parent, :sequences
+    attr_accessor :values, :parent, :sequences, :ISA, :GS, :GE, :IEA
 
     def initialize(options = {})
       @parent = options[:parent]
+      @ISA    = options[:ISA]
+      @GS     = options[:GS]
+      @GE     = options[:GE]
+      @IEA    = options[:IEA]
 
       setup_separators(options)
 
@@ -67,7 +71,6 @@ module Hippo::TransactionSets
             break unless starting_index
 
             remaining_components = self.class.components.slice(component_index + 1, self.class.components.length - 1)
-
             remaining_components.each do |next_component|
               break if found_next_segment
               length = 0
@@ -82,10 +85,17 @@ module Hippo::TransactionSets
 
             length = segments.length - starting_index if length == 0
 
-            subcomponent = component.initialize_component(self)
-            subcomponent.populate(segments.slice!(starting_index, length))
+            if component.repeating?
+              values[component.sequence] ||= component.initialize_component(self)
+              values[component.sequence].build do |subcomponent|
+                subcomponent.populate(segments.slice!(starting_index, length))
+              end
+            else
+              subcomponent = component.initialize_component(self)
+              subcomponent.populate(segments.slice!(starting_index, length))
 
-            values[component.sequence] = subcomponent
+              values[component.sequence] = subcomponent
+            end
           end
         end
       end
@@ -140,7 +150,7 @@ module Hippo::TransactionSets
         if name.class == Regexp
           c.options[:name] =~ name
         else
-          c.options[:name] == name  
+          c.options[:name] == name
         end
       end[sequence]
     end

data/lib/hippo/version.rb

@@ -1,3 +1,3 @@
 module Hippo
-  VERSION = "0.0.10"
+  VERSION = "0.0.11"
 end

data/lib/hippo.rb

@@ -9,6 +9,7 @@ module Hippo
   autoload :Field,            'hippo/field'
   autoload :CompositeField,   'hippo/composite_field'
   autoload :Parser,           'hippo/parser'
+  autoload :CodeLists,        'hippo/code_lists'
 
   DEFAULT_FIELD_SEPARATOR        = '*'
   DEFAULT_COMPOSITE_SEPARATOR    = ':'

data/samples/005010X231A1_01.edi

@@ -0,0 +1,11 @@
+ISA*00*          *00*          *01*XXXXXXXXXXXXXXX*ZZ*XXXXXXXXXXXXXXX*111212*1628*^*00501*445289179*0*P*:~
+TA1*346155305*111212*1553*A*000~
+GS*FA*XXXXXX*XXXXXX*20111212*162832*1*X*005010X231A1~
+ST*999*1001*005010X231A1~
+AK1*HC*346155305*005010X222A1~
+AK2*837*0005*005010X222A1~
+IK5*A~
+AK9*A*1*1*1~
+SE*6*1001~
+GE*1*1~
+IEA*1*445289179~

data/samples/005010X231A1_02.edi

@@ -0,0 +1,11 @@
+ISA!00!          !00!          !01!XXXXXXXXXXXXXXX!ZZ!XXXXXXXXXXXXXXX!111212!1628!@!00501!445289179!0!P!~^
+TA1!346155305!111212!1553!A!000^
+GS!FA!XXXXXX!XXXXXX!20111212!162832!1!X!005010X231A1^
+ST!999!1001!005010X231A1^
+AK1!HC!346155305!005010X222A1^
+AK2!837!0005!005010X222A1^
+IK5!A^
+AK9!A!1!1!1^
+SE!6!1001^
+GE!1!1^
+IEA!1!445289179^

data/test/test_helper.rb

@@ -119,6 +119,11 @@ module Hippo::TransactionSets
                 :identified_by  => {
                   'TCS.Field7'   => 'Foo2'
                 }
+
+      segment Hippo::Segments::SE,
+        :identified_by => {
+          'SE02' => 'Test'
+      }
     end
   end
 end

data/test/test_parser.rb

@@ -35,12 +35,52 @@ class TestParser < MiniTest::Unit::TestCase
 
     #'TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Segment*Boo~TSS*Foo*SubBar~TCS*:SubBarBlah**Foo2~TSS*Last Segment*SubBarRepeater~', ts.to_s
 
-    @parser.raw_data = ts.to_s
-    ts_result = @parser.populate_transaction_sets.first
-
-    puts ts.inspect
-    puts ts_result.inspect
+    ts_result = @parser.parse_string(ts.to_s).first
 
     assert_equal ts.values.inspect, ts_result.values.inspect
   end
+
+  def test_reads_separators_from_isa
+    @parser.parse('samples/005010X231A1_01.edi')
+
+    assert_equal '*', @parser.field_separator
+    assert_equal '^', @parser.repetition_separator
+    assert_equal ':', @parser.composite_separator
+    assert_equal '~', @parser.segment_separator
+
+    @parser = Hippo::Parser.new
+    transaction_set = @parser.parse('samples/005010X231A1_02.edi')
+
+    assert_equal '!', @parser.field_separator
+    assert_equal '@', @parser.repetition_separator
+    assert_equal '~', @parser.composite_separator
+    assert_equal '^', @parser.segment_separator
+
+    assert_equal transaction_set.first.ST.ST01, '999'
+  end
+
+  def test_adds_enveloping_to_transaction_set
+    transaction_set = @parser.parse('samples/005010X231A1_01.edi').first
+
+    assert_equal '445289179', transaction_set.ISA.ISA13
+    assert_equal '1', transaction_set.GS.GS06
+  end
+
+  def test_parses_repeating_loops
+    ts = Hippo::TransactionSets::Test::Base.new
+    ts.ST
+    [1,2,3,4,5].each do |i|
+      ts.TSS.build do |tss|
+        tss.Field2 = 'Bar' + i.to_s
+        tss.Field3 = 'Baz' + i.to_s
+      end
+    end
+
+    ts.TCS.Field1    = 'Blah'
+    ts.TSS_02.Field2 = 'Boo'
+    ts.SE
+
+    # ST*Test~TSS*Blah*Bar1*Baz1~TSS*Blah*Bar2*Baz2~TSS*Blah*Bar3*Baz3~TSS*Blah*Bar4*Baz4~TSS*Blah*Bar5*Baz5~TCS*Blah**Preset Field 7~TSS*Last Standalone Segment*Boo~SE**Test
+    assert_equal ts.values.inspect, @parser.parse_string(ts.to_s).first.values.inspect
+  end
 end

data/test/test_segments_base.rb

@@ -95,6 +95,13 @@ class TestSegmentsBase < MiniTest::Unit::TestCase
     seg.CompositeCommonName_2 = 'CompVal4'
 
     assert_equal 'TCS*:::CompVal3*:::CompVal4~', seg.to_s
+
+    seg.TCS01_04 = 'CompVal5'
+    seg.TCS02_04 = 'CompVal6'
+
+    assert_equal 'TCS*:::CompVal5*:::CompVal6~', seg.to_s
+
+    assert_equal 'CompVal5', seg.TCS01_04
   end
 
   def test_assign_invalid_field_throws_error

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: hippo
 version: !ruby/object:Gem::Version
-  version: 0.0.10
+  version: 0.0.11
   prerelease: 
 platform: ruby
 authors:
@@ -10,11 +10,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-11-29 00:00:00.000000000 Z
+date: 2011-12-18 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: minitest
-  requirement: &70133817722520 !ruby/object:Gem::Requirement
+  requirement: &70206774000140 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -22,10 +22,10 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *70133817722520
+  version_requirements: *70206774000140
 - !ruby/object:Gem::Dependency
   name: rake
-  requirement: &70133817722020 !ruby/object:Gem::Requirement
+  requirement: &70206773999520 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
@@ -33,7 +33,7 @@ dependencies:
         version: 0.9.2
   type: :development
   prerelease: false
-  version_requirements: *70133817722020
+  version_requirements: *70206773999520
 description: HIPAA Transaction Set Generator/Parser
 email:
 - robertj@promedicalinc.com
@@ -50,6 +50,13 @@ files:
 - Rakefile
 - hippo.gemspec
 - lib/hippo.rb
+- lib/hippo/code_lists.rb
+- lib/hippo/code_lists/claim_adjustment_reason_codes.rb
+- lib/hippo/code_lists/claim_status_category_codes.rb
+- lib/hippo/code_lists/claim_status_codes.rb
+- lib/hippo/code_lists/remittance_advice_remark_codes.rb
+- lib/hippo/code_lists/service_type_codes.rb
+- lib/hippo/code_lists/taxonomy_codes.rb
 - lib/hippo/exceptions.rb
 - lib/hippo/field.rb
 - lib/hippo/loop.rb
@@ -133,6 +140,7 @@ files:
 - lib/hippo/segments/SV7.rb
 - lib/hippo/segments/SVC.rb
 - lib/hippo/segments/SVD.rb
+- lib/hippo/segments/TA1.rb
 - lib/hippo/segments/TOO.rb
 - lib/hippo/segments/TRN.rb
 - lib/hippo/segments/TS2.rb
@@ -239,6 +247,8 @@ files:
 - samples/005010X221A1_tmhp_example.edi
 - samples/005010X222A1_anesthesia.edi
 - samples/005010X222A1_commercial_health_insurance.edi
+- samples/005010X231A1_01.edi
+- samples/005010X231A1_02.edi
 - test/test_helper.rb
 - test/test_hipaa_835.rb
 - test/test_hipaa_837.rb