hippo 0.0.4

data/lib/hippo/transaction_sets/HIPAA_837/L2420F.rb

@@ -0,0 +1,26 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class L2420F < Hippo::TransactionSets::Base
+      loop_name 'L2420F'    #Referring Provider Name
+
+      #Referring Provider Name
+      segment Hippo::Segments::NM1,
+                :name           => 'Referring Provider Name',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5000,
+                :defaults => {
+                  'NM102' => '1'
+                }
+
+      #Referring Provider Secondary Identification
+      segment Hippo::Segments::REF,
+                :name           => 'Referring Provider Secondary Identification',
+                :minimum        => 0,
+                :maximum        => 20,
+                :position       => 5250
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_837/L2420G.rb

@@ -0,0 +1,34 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class L2420G < Hippo::TransactionSets::Base
+      loop_name 'L2420G'    #Ambulance Pick-up Location
+
+      #Ambulance Pick-up Location
+      segment Hippo::Segments::NM1,
+                :name           => 'Ambulance Pick-up Location',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5310,
+                :defaults => {
+                  'NM101' => 'PW',
+                  'NM102' => '2'
+                }
+
+      #Ambulance Pick-up Location Address
+      segment Hippo::Segments::N3,
+                :name           => 'Ambulance Pick-up Location Address',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5340
+
+      #Ambulance Pick-up Location City, State, ZIP Code
+      segment Hippo::Segments::N4,
+                :name           => 'Ambulance Pick-up Location City, State, ZIP Code',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5350
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_837/L2420H.rb

@@ -0,0 +1,34 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class L2420H < Hippo::TransactionSets::Base
+      loop_name 'L2420H'    #Ambulance Drop-off Location
+
+      #Ambulance Drop-off Location
+      segment Hippo::Segments::NM1,
+                :name           => 'Ambulance Drop-off Location',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5380,
+                :defaults => {
+                  'NM101' => '45',
+                  'NM102' => '2'
+                }
+
+      #Ambulance Drop-off Location Address
+      segment Hippo::Segments::N3,
+                :name           => 'Ambulance Drop-off Location Address',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5410
+
+      #Ambulance Drop-off Location City, State, ZIP Code
+      segment Hippo::Segments::N4,
+                :name           => 'Ambulance Drop-off Location City, State, ZIP Code',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5420
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_837/L2430.rb

@@ -0,0 +1,44 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class L2430 < Hippo::TransactionSets::Base
+      loop_name 'L2430'    #Line Adjudication Information
+
+      #Line Adjudication Information
+      segment Hippo::Segments::SVD,
+                :name           => 'Line Adjudication Information',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5400
+
+      #Line Adjustment
+      segment Hippo::Segments::CAS,
+                :name           => 'Line Adjustment',
+                :minimum        => 0,
+                :maximum        => 5,
+                :position       => 5450
+
+      #Line Check or Remittance Date
+      segment Hippo::Segments::DTP,
+                :name           => 'Line Check or Remittance Date',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5500,
+                :defaults => {
+                  'DTP01' => '573',
+                  'DTP02' => 'D8'
+                }
+
+      #Remaining Patient Liability
+      segment Hippo::Segments::AMT,
+                :name           => 'Remaining Patient Liability',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5505,
+                :defaults => {
+                  'AMT01' => 'EAF'
+                }
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_837/L2440.rb

@@ -0,0 +1,23 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class L2440 < Hippo::TransactionSets::Base
+      loop_name 'L2440'    #Form Identification Code
+
+      #Form Identification Code
+      segment Hippo::Segments::LQ,
+                :name           => 'Form Identification Code',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 5510
+
+      #Supporting Documentation
+      segment Hippo::Segments::FRM,
+                :name           => 'Supporting Documentation',
+                :minimum        => 1,
+                :maximum        => 99,
+                :position       => 5520
+
+    end
+  end
+end

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

@@ -0,0 +1,81 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    class Base < Hippo::TransactionSets::Base
+
+      #Transaction Set Header
+      segment Hippo::Segments::ST,
+                :name           => 'Transaction Set Header',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 50,
+                :defaults => {
+                  'ST01' => '837'
+                }
+
+      #Beginning of Hierarchical Transaction
+      segment Hippo::Segments::BHT,
+                :name           => 'Beginning of Hierarchical Transaction',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 100,
+                :defaults => {
+                  'BHT01' => '0019'
+                }
+
+      #Submitter Name
+      loop    Hippo::TransactionSets::HIPAA_837::L1000A,
+                :name           => 'Submitter Name',
+                :identified_by  => {'NM1.NM101' => '41'},
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 200
+
+      #Receiver Name
+      loop    Hippo::TransactionSets::HIPAA_837::L1000B,
+                :name           => 'Receiver Name',
+                :identified_by  => {'NM1.NM101' => '40'},
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 500
+
+      #Billing Provider Hierarchical Level
+      loop    Hippo::TransactionSets::HIPAA_837::L2000A,
+                :name           => 'Billing Provider Hierarchical Level',
+                :identified_by  => {
+                  'HL.HL03' => '20'
+                },
+                :minimum        => 1,
+                :maximum        => nil,
+                :position       => 10
+
+      #Subscriber Hierarchical Level
+      loop    Hippo::TransactionSets::HIPAA_837::L2000B,
+                :name           => 'Subscriber Hierarchical Level',
+                :identified_by  => {
+                  'HL.HL03' => '22'
+                },
+                :minimum        => 1,
+                :maximum        => nil,
+                :position       => 10
+
+      #Patient Hierarchical Level
+      loop    Hippo::TransactionSets::HIPAA_837::L2000C,
+                :name           => 'Patient Hierarchical Level',
+                :identified_by  => {
+                  'HL.HL03' => '23'
+                },
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 10
+
+      #Transaction Set Trailer
+      segment Hippo::Segments::SE,
+                :name           => 'Transaction Set Trailer',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 5550
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_837.rb

@@ -0,0 +1,45 @@
+module Hippo::TransactionSets
+  module HIPAA_837
+
+    autoload :Base,      'hippo/transaction_sets/HIPAA_837/base'
+    autoload :L1000A,    'hippo/transaction_sets/HIPAA_837/L1000A'
+    autoload :L1000B,    'hippo/transaction_sets/HIPAA_837/L1000B'
+    autoload :L2000A,    'hippo/transaction_sets/HIPAA_837/L2000A'
+    autoload :L2000B,    'hippo/transaction_sets/HIPAA_837/L2000B'
+    autoload :L2000C,    'hippo/transaction_sets/HIPAA_837/L2000C'
+    autoload :L2010AA,   'hippo/transaction_sets/HIPAA_837/L2010AA'
+    autoload :L2010AB,   'hippo/transaction_sets/HIPAA_837/L2010AB'
+    autoload :L2010AC,   'hippo/transaction_sets/HIPAA_837/L2010AC'
+    autoload :L2010BA,   'hippo/transaction_sets/HIPAA_837/L2010BA'
+    autoload :L2010BB,   'hippo/transaction_sets/HIPAA_837/L2010BB'
+    autoload :L2010CA,   'hippo/transaction_sets/HIPAA_837/L2010CA'
+    autoload :L2300,     'hippo/transaction_sets/HIPAA_837/L2300'
+    autoload :L2310A,    'hippo/transaction_sets/HIPAA_837/L2310A'
+    autoload :L2310B,    'hippo/transaction_sets/HIPAA_837/L2310B'
+    autoload :L2310C,    'hippo/transaction_sets/HIPAA_837/L2310C'
+    autoload :L2310D,    'hippo/transaction_sets/HIPAA_837/L2310D'
+    autoload :L2310E,    'hippo/transaction_sets/HIPAA_837/L2310E'
+    autoload :L2310F,    'hippo/transaction_sets/HIPAA_837/L2310F'
+    autoload :L2320,     'hippo/transaction_sets/HIPAA_837/L2320'
+    autoload :L2330A,    'hippo/transaction_sets/HIPAA_837/L2330A'
+    autoload :L2330B,    'hippo/transaction_sets/HIPAA_837/L2330B'
+    autoload :L2330C,    'hippo/transaction_sets/HIPAA_837/L2330C'
+    autoload :L2330D,    'hippo/transaction_sets/HIPAA_837/L2330D'
+    autoload :L2330E,    'hippo/transaction_sets/HIPAA_837/L2330E'
+    autoload :L2330F,    'hippo/transaction_sets/HIPAA_837/L2330F'
+    autoload :L2330G,    'hippo/transaction_sets/HIPAA_837/L2330G'
+    autoload :L2400,     'hippo/transaction_sets/HIPAA_837/L2400'
+    autoload :L2410,     'hippo/transaction_sets/HIPAA_837/L2410'
+    autoload :L2420A,    'hippo/transaction_sets/HIPAA_837/L2420A'
+    autoload :L2420B,    'hippo/transaction_sets/HIPAA_837/L2420B'
+    autoload :L2420C,    'hippo/transaction_sets/HIPAA_837/L2420C'
+    autoload :L2420D,    'hippo/transaction_sets/HIPAA_837/L2420D'
+    autoload :L2420E,    'hippo/transaction_sets/HIPAA_837/L2420E'
+    autoload :L2420F,    'hippo/transaction_sets/HIPAA_837/L2420F'
+    autoload :L2420G,    'hippo/transaction_sets/HIPAA_837/L2420G'
+    autoload :L2420H,    'hippo/transaction_sets/HIPAA_837/L2420H'
+    autoload :L2430,     'hippo/transaction_sets/HIPAA_837/L2430'
+    autoload :L2440,     'hippo/transaction_sets/HIPAA_837/L2440'
+
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2000 - AK2.rb

@@ -0,0 +1,30 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2000 - AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2000 - AK2'    #Transaction Set Response Header
+
+      #Transaction Set Response Header
+      segment Hippo::Segments::AK2,
+                :name           => 'Transaction Set Response Header',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 300
+
+      #Error Identification
+      loop    Hippo::TransactionSets::HIPAA_837::L2100 - AK2,
+                :name           => 'Error Identification',
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 400
+
+      #Transaction Set Response Trailer
+      segment Hippo::Segments::IK5,
+                :name           => 'Transaction Set Response Trailer',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 800
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2000AK2.rb

@@ -0,0 +1,30 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2000AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2000AK2'    #Transaction Set Response Header
+
+      #Transaction Set Response Header
+      segment Hippo::Segments::AK2,
+                :name           => 'Transaction Set Response Header',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 300
+
+      #Error Identification
+      loop    Hippo::TransactionSets::HIPAA_999::L2100AK2,
+                :name           => 'Error Identification',
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 400
+
+      #Transaction Set Response Trailer
+      segment Hippo::Segments::IK5,
+                :name           => 'Transaction Set Response Trailer',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 800
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2100 - AK2.rb

@@ -0,0 +1,37 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2100 - AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2100 - AK2'    #Error Identification
+
+      #Error Identification
+      segment Hippo::Segments::IK3,
+                :name           => 'Error Identification',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 400
+
+      #Segment Context
+      segment Hippo::Segments::CTX,
+                :name           => 'Segment Context',
+                :minimum        => 0,
+                :maximum        => 9,
+                :position       => 500
+
+      #Business Unit Identifier
+      segment Hippo::Segments::CTX,
+                :name           => 'Business Unit Identifier',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 510
+
+      #Implementation Data Element Note
+      loop    Hippo::TransactionSets::HIPAA_837::L2110 - AK2,
+                :name           => 'Implementation Data Element Note',
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 600
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2100AK2.rb

@@ -0,0 +1,37 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2100AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2100AK2'    #Error Identification
+
+      #Error Identification
+      segment Hippo::Segments::IK3,
+                :name           => 'Error Identification',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 400
+
+      #Segment Context
+      segment Hippo::Segments::CTX,
+                :name           => 'Segment Context',
+                :minimum        => 0,
+                :maximum        => 9,
+                :position       => 500
+
+      #Business Unit Identifier
+      segment Hippo::Segments::CTX,
+                :name           => 'Business Unit Identifier',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 510
+
+      #Implementation Data Element Note
+      loop    Hippo::TransactionSets::HIPAA_999::L2110AK2,
+                :name           => 'Implementation Data Element Note',
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 600
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2110 - AK2.rb

@@ -0,0 +1,23 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2110 - AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2110 - AK2'    #Implementation Data Element Note
+
+      #Implementation Data Element Note
+      segment Hippo::Segments::IK4,
+                :name           => 'Implementation Data Element Note',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 600
+
+      #Element Context
+      segment Hippo::Segments::CTX,
+                :name           => 'Element Context',
+                :minimum        => 0,
+                :maximum        => 10,
+                :position       => 700
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999/L2110AK2.rb

@@ -0,0 +1,23 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class L2110AK2 < Hippo::TransactionSets::Base
+      loop_name 'L2110AK2'    #Implementation Data Element Note
+
+      #Implementation Data Element Note
+      segment Hippo::Segments::IK4,
+                :name           => 'Implementation Data Element Note',
+                :minimum        => 0,
+                :maximum        => 1,
+                :position       => 600
+
+      #Element Context
+      segment Hippo::Segments::CTX,
+                :name           => 'Element Context',
+                :minimum        => 0,
+                :maximum        => 10,
+                :position       => 700
+
+    end
+  end
+end

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

@@ -0,0 +1,46 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    class Base < Hippo::TransactionSets::Base
+
+      #Transaction Set Header
+      segment Hippo::Segments::ST,
+                :name           => 'Transaction Set Header',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 100,
+                :defaults => {
+                  'ST01' => '999'
+                }
+
+      #Functional Group Response Header
+      segment Hippo::Segments::AK1,
+                :name           => 'Functional Group Response Header',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 200
+
+      #Transaction Set Response Header
+      loop    Hippo::TransactionSets::HIPAA_999::L2000AK2,
+                :name           => 'Transaction Set Response Header',
+                :minimum        => 0,
+                :maximum        => nil,
+                :position       => 300
+
+      #Functional Group Response Trailer
+      segment Hippo::Segments::AK9,
+                :name           => 'Functional Group Response Trailer',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 900
+
+      #Transaction Set Trailer
+      segment Hippo::Segments::SE,
+                :name           => 'Transaction Set Trailer',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 1000
+
+    end
+  end
+end

data/lib/hippo/transaction_sets/HIPAA_999.rb

@@ -0,0 +1,10 @@
+module Hippo::TransactionSets
+  module HIPAA_999
+
+    autoload :Base,      'hippo/transaction_sets/HIPAA_999/base'
+    autoload :L2000AK2,  'hippo/transaction_sets/HIPAA_999/L2000AK2'
+    autoload :L2100AK2,  'hippo/transaction_sets/HIPAA_999/L2100AK2'
+    autoload :L2110AK2,  'hippo/transaction_sets/HIPAA_999/L2110AK2'
+
+  end
+end

data/lib/hippo/transaction_sets/base.rb

@@ -0,0 +1,136 @@
+module Hippo::TransactionSets
+  class Base
+    class << self
+      attr_accessor :components, :identifier
+
+      def components
+        @components ||= []
+      end
+
+      def loop_name(id)
+        @identifier = id
+      end
+
+      def add_component(klass, options={})
+        options[:maximum] ||= 1
+
+        components << options.merge(:class => klass, :sequence => components.length)
+      end
+      alias segment add_component
+      alias loop add_component
+    end
+
+    attr_accessor :values, :parent
+
+    def initialize(options = {})
+      @parent = options.delete(:parent)
+    end
+
+    def values
+      @values ||= {}
+    end
+
+    def segment_count
+      values.values.map(&:segment_count).inject(&:+)
+    end
+
+    def to_s
+      output = ''
+
+      values.sort.each do |sequence, component|
+        output += component.to_s
+      end
+
+      output
+    end
+
+    def get_component(identifier, sequence = nil)
+      if sequence.nil?
+        sequence = 0
+      else
+        sequence = sequence.to_i - 1
+      end
+
+      self.class.components.select do |c|
+        c[:class].identifier == identifier
+      end[sequence]
+    end
+
+    def populate_component(component, defaults)
+      defaults ||= {}
+
+      defaults.each do |key, value|
+        if key =~ /(\w+)\.(.+)/
+          next_component, next_component_value = component.send($1.to_sym), {$2 => value}
+
+          populate_component(next_component, next_component_value)
+        else
+          component.send((key + '=').to_sym, value)
+        end
+      end
+
+      component
+    end
+
+    def initialize_component(component_entry)
+        component = component_entry[:class].new :parent => self
+
+        # iterate through the hash of defaults
+        # and assign them to the component before
+        # adding to @values
+        populate_component(component, component_entry[:defaults])
+        populate_component(component, component_entry[:identified_by])
+    end
+
+    def method_missing(method_name, *args)
+      component_name, component_sequence = method_name.to_s.split('_')
+      component_entry = get_component(component_name, component_sequence)
+
+      if component_entry.nil?
+        raise Hippo::Exceptions::InvalidSegment.new "Invalid segment specified: '#{method_name.to_s}'."
+      end
+
+      if values[component_entry[:sequence]].nil?
+
+        component = if component_entry[:maximum] > 1
+                      RepeatingComponent.new(component_entry, self)
+                    else
+                      initialize_component(component_entry)
+                    end
+
+        values[component_entry[:sequence]] = component
+      end
+
+      yield values[component_entry[:sequence]] if block_given?
+      return values[component_entry[:sequence]]
+    end
+
+    class RepeatingComponent < Array
+      def initialize(component_entry, parent)
+        @component_entry = component_entry
+        @parent = parent
+      end
+
+      def build
+        self.push(@parent.initialize_component(@component_entry))
+
+        yield self[-1] if block_given?
+        self[-1]
+      end
+
+      def to_s
+        self.map(&:to_s).join
+      end
+
+      def segment_count
+        self.map(&:segment_count).inject(&:+)
+      end
+
+      def method_missing(method_name, *args, &block)
+        build if self.length == 0
+
+        self.first.send(method_name, *args, &block)
+      end
+    end
+  end
+end