hippo_eyeDoc 0.0.1

data/lib/hippo_eyeDoc/segments/UR.rb

@@ -0,0 +1,23 @@
+module Hippo_eyeDoc::Segments
+  class UR < Hippo_eyeDoc::Segments::Base
+
+    segment_identifier 'UR'
+
+    field :name                 => 'ApprovalCode',
+          :sequence             => 1,
+          :datatype             => :list,
+          :minimum              => 1,
+          :maximum              => 1,
+          :required             => true,
+          :data_element_number  => 1318
+
+    field :name                 => 'Quantity',
+          :sequence             => 2,
+          :datatype             => :decimal,
+          :minimum              => 1,
+          :maximum              => 15,
+          :required             => false,
+          :data_element_number  => 380
+
+  end
+end

data/lib/hippo_eyeDoc/segments/VEH.rb

@@ -0,0 +1,159 @@
+module Hippo_eyeDoc::Segments
+  class VEH < Hippo_eyeDoc::Segments::Base
+
+    segment_identifier 'VEH'
+
+    field :name                 => 'AssignedNumber',
+          :sequence             => 1,
+          :datatype             => :integer,
+          :minimum              => 1,
+          :maximum              => 6,
+          :required             => false,
+          :data_element_number  => 554
+
+    field :name                 => 'VehicleIdentificationNumber',
+          :sequence             => 2,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 30,
+          :required             => false,
+          :data_element_number  => 539
+
+    field :name                 => 'Year',
+          :sequence             => 3,
+          :datatype             => :integer,
+          :minimum              => 4,
+          :maximum              => 4,
+          :required             => false,
+          :data_element_number  => 1095
+
+    field :name                 => 'AgencyQualifierCode',
+          :sequence             => 4,
+          :datatype             => :list,
+          :minimum              => 2,
+          :maximum              => 2,
+          :required             => false,
+          :data_element_number  => 559
+
+    field :name                 => 'ReferenceIdentification',
+          :sequence             => 5,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 50,
+          :required             => false,
+          :data_element_number  => 127
+
+    field :name                 => 'ReferenceIdentification',
+          :sequence             => 6,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 50,
+          :required             => false,
+          :data_element_number  => 127
+
+    field :name                 => 'ReferenceIdentification',
+          :sequence             => 7,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 50,
+          :required             => false,
+          :data_element_number  => 127
+
+    field :name                 => 'Length',
+          :sequence             => 8,
+          :datatype             => :decimal,
+          :minimum              => 1,
+          :maximum              => 8,
+          :required             => false,
+          :data_element_number  => 82
+
+    field :name                 => 'ReferenceIdentification',
+          :sequence             => 9,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 50,
+          :required             => false,
+          :data_element_number  => 127
+
+    field :name                 => 'StateOrProvinceCode',
+          :sequence             => 10,
+          :datatype             => :list,
+          :minimum              => 2,
+          :maximum              => 2,
+          :required             => false,
+          :data_element_number  => 156
+
+    field :name                 => 'LocationIdentifier',
+          :sequence             => 11,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 30,
+          :required             => false,
+          :data_element_number  => 310
+
+    field :name                 => 'YesNoConditionOrResponseCode',
+          :sequence             => 12,
+          :datatype             => :list,
+          :minimum              => 1,
+          :maximum              => 1,
+          :required             => false,
+          :data_element_number  => 1073
+
+    field :name                 => 'Amount',
+          :sequence             => 13,
+          :datatype             => :decimal,
+          :minimum              => 1,
+          :maximum              => 15,
+          :required             => false,
+          :data_element_number  => 610
+
+    field :name                 => 'YesNoConditionOrResponseCode',
+          :sequence             => 14,
+          :datatype             => :list,
+          :minimum              => 1,
+          :maximum              => 1,
+          :required             => false,
+          :data_element_number  => 1073
+
+    field :name                 => 'Amount',
+          :sequence             => 15,
+          :datatype             => :decimal,
+          :minimum              => 1,
+          :maximum              => 15,
+          :required             => false,
+          :data_element_number  => 610
+
+    field :name                 => 'ActionCode',
+          :sequence             => 16,
+          :datatype             => :list,
+          :minimum              => 1,
+          :maximum              => 2,
+          :required             => false,
+          :data_element_number  => 306
+
+    field :name                 => 'CountryCode',
+          :sequence             => 17,
+          :datatype             => :list,
+          :minimum              => 2,
+          :maximum              => 3,
+          :required             => false,
+          :data_element_number  => 26
+
+    field :name                 => 'Name',
+          :sequence             => 18,
+          :datatype             => :string,
+          :minimum              => 1,
+          :maximum              => 60,
+          :required             => false,
+          :data_element_number  => 93
+
+    field :name                 => 'CountryCode',
+          :sequence             => 19,
+          :datatype             => :list,
+          :minimum              => 2,
+          :maximum              => 3,
+          :required             => false,
+          :data_element_number  => 26
+
+  end
+end

data/lib/hippo_eyeDoc/segments/base.rb

@@ -0,0 +1,190 @@
+module Hippo_eyeDoc::Segments
+  class Base
+    include Hippo_eyeDoc::Separator
+    include Hippo_eyeDoc::Parser::Segment
+    include Hippo_eyeDoc::Outputters::HTML::Segment
+    include Hippo_eyeDoc::Outputters::PDF::Segment
+    include Hippo_eyeDoc::Outputters::PrettyString::Segment
+
+    class << self
+      attr_accessor :fields, :identifier, :fixed_width
+
+      def fields
+        @fields ||= []
+      end
+
+      def identifier
+        @identifier ||= ''
+      end
+
+      def field(field)
+        f              = Hippo_eyeDoc::Field.new
+        f.sequence     = fields.length + 1
+        f.name         = field[:name]
+        f.datatype     = field[:datatype]
+        f.minimum      = field[:minimum]
+        f.maximum      = field[:maximum]
+        f.options      = field[:options]
+        f.restrictions = field[:restrictions]
+        f.required     = field[:required]  || false
+        f.separator    = field[:separator] || @default_separator || :field_separator
+
+        if @composite_block
+          f.composite = true
+          f.composite_sequence = fields.length
+          f.sequence = fields.last.length + 1
+          fields.last << f
+        else
+          fields << f
+        end
+      end
+
+      def segment?
+        true
+      end
+
+      def transaction_set?
+        false
+      end
+
+      def composite_field(field_name)
+        @composite_block = true
+        @default_separator = :composite_separator
+        fields << []
+        yield
+        @default_separator = :field_separator
+        @composite_block = false
+      end
+
+      def segment_identifier(id)
+        @identifier = id
+        @fields     = []
+      end
+
+      def segment_fixed_width
+        @fixed_width = true
+      end
+    end
+
+    attr_accessor :values, :parent
+
+    def segments
+      [self]
+    end
+
+    def segment_count
+      segments.count
+    end
+
+    def ancestors
+      if parent
+        parent.ancestors.flatten
+      else
+        []
+      end
+    end
+
+    def to_ary
+      nil
+    end
+    alias :to_a :to_ary
+
+    def initialize(options = {})
+      @parent = options.delete(:parent)
+
+      super
+    end
+
+    def values
+      @values ||= {}
+    end
+
+    def get_field_name(text)
+      text.to_s.gsub(' ','').gsub('=','')
+    end
+
+    def get_field(field)
+      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/,'')}
+
+        if field =~ /_(\d{1,2})\z/
+          fields[$1.to_i - 1]
+        else
+          fields.first
+        end
+      end
+    end
+
+    def to_s
+      output = self.class.identifier + @field_separator
+
+      self.class.fields.each_with_index do |field, index|
+        if field.class == Array # this is a composite field
+          field.each do |comp_field|
+            field_value = if values[comp_field.composite_sequence]
+                            # some values exist for this composite field
+                            comp_field.string_value(values[comp_field.composite_sequence][comp_field.sequence])
+                          else
+                            # no values exist for the entire composite field
+                            ''
+                          end
+
+            output += field_value + @composite_separator
+          end
+
+          output += @field_separator
+        else # standard field
+          field_value = field.string_value(values[field.sequence])
+
+          output += field_value + @field_separator
+        end
+      end
+
+      unless self.class.fixed_width
+        output = remove_empty_fields(output)
+        output = output.gsub(repeating_composite_separator_regexp, @field_separator)
+      end
+
+      output += @segment_separator
+      output = output.gsub(repeating_field_separator_at_end_of_segment_regexp, @segment_separator)
+
+      output =~ /\A#{self.class.identifier}#{segment_separator}/ ? '' : output
+    end
+
+    def identifier
+      self.class.identifier
+    end
+
+    def method_missing(method_name, *args)
+      values
+
+      field = get_field(get_field_name(method_name.to_s))
+
+      if field.nil? || field.class == Array
+         raise Hippo_eyeDoc::Exceptions::InvalidField.new("Invalid field '#{method_name.to_s}' specified.")
+      end
+
+      if method_name.to_s =~ /=\z/
+        if field.composite
+          self.values[field.composite_sequence] ||= {}
+          self.values[field.composite_sequence][field.sequence] = field.formatted_value(args[0])
+        else
+          self.values[field.sequence] = field.formatted_value(args[0])
+        end
+      else
+        if field.composite
+          self.values[field.composite_sequence] ||= {}
+          self.values[field.composite_sequence][field.sequence]
+        else
+          self.values[field.sequence]
+        end
+      end
+    end
+  end
+end

data/lib/hippo_eyeDoc/separator.rb

@@ -0,0 +1,79 @@
+module Hippo_eyeDoc
+  DEFAULT_FIELD_SEPARATOR        = '*'
+  DEFAULT_COMPOSITE_SEPARATOR    = ':'
+  DEFAULT_SEGMENT_SEPARATOR      = '~'
+  DEFAULT_REPETITION_SEPARATOR   = '^'
+
+  module Separator
+    attr_accessor :field_separator, :composite_separator, :repetition_separator, :segment_separator
+
+    def initialize(options = {})
+      [:field_separator, :repetition_separator, :composite_separator, :segment_separator].each do |sym|
+        value = options[sym] || parent_or_default_separator(sym)
+
+        self.send(:"#{sym}=", value)
+      end
+    end
+
+    def parent_or_default_separator(separator_type)
+      if defined?(parent) && parent
+        parent.send(separator_type.to_sym)
+      else
+        Hippo_eyeDoc.const_get(:"DEFAULT_#{separator_type.to_s.upcase}")
+      end
+    end
+
+    def parse_separators(input)
+      if input =~ /\AISA/
+        @field_separator      = input[3,1]
+        @repetition_separator = input[82,1]
+        @composite_separator  = input[104,1]
+        @segment_separator    = input[105,1]
+      end
+    end
+
+    def separators
+      {
+        :field_separator      => @field_separator,
+        :composite_separator  => @composite_separator,
+        :segment_separator    => @segment_separator,
+        :repetition_separator => @repetition_separator
+      }
+    end
+
+    def repeating_field_separator_at_end_of_segment_regexp
+      %r{
+          #{Regexp.escape(@field_separator)}+
+          #{Regexp.escape(@segment_separator)}
+        }x
+    end
+
+    def repeating_composite_separator_regexp
+      %r{
+          #{Regexp.escape(@composite_separator)}+
+          #{Regexp.escape(@field_separator)}
+        }x
+    end
+
+    def regexp_escaped_separators
+      Regexp.escape(@composite_separator) +
+        Regexp.escape(@field_separator)   +
+        Regexp.escape(@segment_separator)
+    end
+
+    def empty_field_regexp
+      %r{([#{regexp_escaped_separators}])
+          \s+
+          ([#{regexp_escaped_separators}])
+        }x
+    end
+
+    def remove_empty_fields(input)
+      while input =~ empty_field_regexp
+        input = input.gsub(empty_field_regexp, '\1\2')
+      end
+
+      input
+    end
+  end
+end