hippo_eyeDoc 0.0.1

data/lib/hippo_eyeDoc/transaction_sets/component.rb

@@ -0,0 +1,96 @@
+module Hippo_eyeDoc::TransactionSets
+  class Component
+    attr_reader :options, :klass, :sequence, :maximum, :identified_by, :conditions
+
+    def initialize(options)
+      @identified_by  = options.delete(:identified_by)              || {}
+      @conditions     = options.delete(:parent_context_conditions)  || {}
+      @maximum        = options.delete(:maximum)                    || 1
+      @klass          = options.delete(:klass)
+      @sequence       = options.delete(:sequence)
+
+      @options        = options
+    end
+
+    def repeating?
+      @maximum > 1
+    end
+
+    def transaction_set?
+      @klass.ancestors.include? Hippo_eyeDoc::TransactionSets::Base
+    end
+    alias :loop? :transaction_set?
+
+    def segment?
+      @klass.ancestors.include? Hippo_eyeDoc::Segments::Base
+    end
+
+    def identifier
+      @klass.identifier
+    end
+
+    def populate_component(component, defaults = nil)
+      defaults ||= identified_by
+
+      defaults.each do |key, value|
+        value = Array(value)
+
+        if key =~ /(\w+)\.(.+)/
+          next_component, next_component_value = component.send($1.to_sym), {$2 => value}
+
+          populate_component(next_component, next_component_value)
+        else
+          next if value.length > 1
+
+          component.send((key + '=').to_sym, value.first)
+        end
+      end
+
+      component
+    end
+
+    def initialize_component(parent)
+      if repeating?
+        RepeatingComponent.new(self, parent)
+      else
+        populate_component(@klass.new(:parent => parent))
+      end
+    end
+
+    def valid?(segment)
+      if klass.ancestors.include? Hippo_eyeDoc::Segments::Base
+        valid_segment?(segment)
+      else
+        valid_entry_segment?(segment)
+      end
+    end
+
+    def valid_segment?(segment)
+      segment.identifier == identifier && identified_by.all? {|k, v| Array(v).include?(segment.send(k.to_sym))}
+    end
+
+    def valid_entry_segment?(segment)
+      if identified_by.empty?
+        initial_segment_id = @klass.components.first.identifier
+
+        segment.identifier == initial_segment_id
+      else
+        path, value = identified_by.first
+        # TODO: handle arbitrary depth in loop identified_by parsing
+        segment_id, field_name = path.split('.')
+
+        segment.identifier == segment_id && Array(value).include?(segment.send(field_name))
+      end
+    end
+
+    def conditions_match?(instance, segment)
+      if conditions.empty?
+        true
+      else
+        conditions.all? do |method, expected|
+          Array(expected).include?(instance.instance_eval("self." + method))
+        end
+      end
+    end
+  end
+end

data/lib/hippo_eyeDoc/transaction_sets/repeating_component.rb

@@ -0,0 +1,48 @@
+module Hippo_eyeDoc::TransactionSets
+  class RepeatingComponent < Array
+    include Hippo_eyeDoc::Outputters::HTML::RepeatingComponent
+    include Hippo_eyeDoc::Outputters::PDF::RepeatingComponent
+    include Hippo_eyeDoc::Outputters::PrettyString::RepeatingComponent
+
+    def initialize(component_entry, parent)
+      @component_entry = component_entry
+      @parent = parent
+    end
+
+    def build
+      component = @component_entry.populate_component(@component_entry.klass.new(:parent => @parent))
+
+      push(component)
+      yield component if block_given?
+      component
+    end
+
+    def to_s
+      self.map(&:to_s).join
+    end
+
+    def segments
+      return [] unless self.length != 0
+
+      self.map(&:segments).flatten
+    end
+
+    def segment_count
+      segments.length
+    end
+
+    def ancestors
+      if parent
+        parent.ancestors.flatten
+      else
+        []
+      end
+    end
+
+    def method_missing(method_name, *args, &block)
+      build if self.length == 0
+
+      self.first.send(method_name, *args, &block)
+    end
+  end
+end

data/lib/hippo_eyeDoc/utilities.rb

@@ -0,0 +1,37 @@
+# encoding: utf-8
+
+# This is the source code for require_relative, a Ruby gem that backports that
+# particular feature to Ruby 1.8.
+#
+# Please check out the [README](https://github.com/steveklabnik/require_relative/blob/master/README.md)
+# for more information on how to build your own copy of the gem, as well as
+# contribute fixes.
+
+# require\_relative has no effect on Ruby 1.9 (or other versions that provide Kernel#require_relative
+# out of the box)
+unless Object.new.respond_to?(:require_relative, true)
+  # Yep, you're looking at it! This gem is pretty small, and for good reason.
+  # There's not much to do! We use split to find the filename that we're
+  # looking to require, raise a LoadError if it's called in a context (like eval)
+  # that it shouldn't be, and then require it via regular old require.
+  #
+  # Now, in 1.9, "." is totally removed from the $LOAD_PATH. We don't do that
+  # here, because that would break a lot of other code! You're still vulnerable
+  # to the security hole that caused this change to happen in the first place.
+  # You will be able to use this gem to transition the code you write over to
+  # the 1.9 syntax, though.
+  def require_relative(relative_feature)
+
+    file = caller.first.split(/:\d/,2).first
+
+    raise LoadError, "require_relative is called in #{$1}" if /\A\((.*)\)/ =~ file
+
+    require File.expand_path(relative_feature, File.dirname(file))
+  end
+end
+
+def autoload_relative(symbol, relative_path)
+  file = caller.first.split(/:\d/,2).first
+
+  autoload symbol, File.expand_path(relative_path, File.dirname(file))
+end

data/lib/hippo_eyeDoc/version.rb

@@ -0,0 +1,3 @@
+module Hippo_eyeDoc
+  VERSION = "0.0.1" unless defined?(Hippo_eyeDoc::VERSION)
+end

data/samples/005010X221A1_business_scenario_1.edi

@@ -0,0 +1 @@
+ST*835*1234~BPR*C*150000*C*ACH*CTX*01*999999992*DA*123456*1512345678**01*999988880*DA*98765*20020913~TRN*1*12345*1512345678~DTM*405*20020916~N1*PR*INSURANCE COMPANY OF TIMBUCKTU~N3*1 MAIN STREET~N4*TIMBUCKTU*AK*89111~REF*2U*999~N1*PE*REGIONAL HOPE HOSPITAL*XX*6543210903~LX*110212~TS3*6543210903*11*20021231*1*211366.97****138018.4**73348.57~TS2*2178.45*1919.71**56.82*197.69*4.23~CLP*666123*1*211366.97*138018.4**MA*1999999444444*11*1~CAS*CO*45*73348.57~NM1*QC*1*JONES*SAM*O***HN*666666666A~MIA*0***138018.4~DTM*232*20020816~DTM*233*20020824~QTY*CA*8~LX*130212~TS3*6543210909*13*19961231*1*15000****11980.33**3019.67~CLP*777777*1*15000*11980.33**MB*1999999444445*13*1~CAS*CO*45*3019.67~NM1*QC*1*BORDER*LIZ*E***HN*996669999B~MOA***MA02~DTM*232*20020512~PLB*6543210903*20021231*CV:CP*-1.27~SE*28*1234~

data/samples/005010X221A1_tmhp_example.edi

@@ -0,0 +1 @@
+ST*835*0001~BPR*I*40.80*C*CHK************20110707~TRN*1*020961585*1123456789~REF*EV*745276163~REF*F2*0001~DTM*405*20110701~N1*PR*TEXASMEDICAIDHEALTHCARESERVICES~N3*12365ARIATATRACEPARKWAY~N4*ARSTIN*TX*787276524~PER*BL*JOHNWAYNE*TE*8005551212*EX*123~N1*PE*PROV2*XX*1234567891~N3*ADDRESS2~N4*CITY2*TX*77210~REF*TJ*999999999~LX*1~CLP*PATACCTNTMBER11111*1*40.8*40.8**MC*111111*12*A**10*123456789012345*99999999.99~NM1*QC*1*SHEPHARD*SAM*O***HN*666666666A~NM1*74*1******C*555555555~NM1*PR*2*OHTERINSTRANCENAME2*****PI*9876543210~REF*EA*777~REF*SY*645507788~REF*F8*222222~REF*G1*444~DTM*232*20110103~DTM*233*20110105~PER*CX*1234*TE*5125125122~AMT*DY*9999.89~AMT*T*89988.01~QTY*CA*2222.2~SVC*HC:99215*40.8*40.8~DTM*472*20110223~REF*G3*12345678~REF*1D*749999999~REF*HPI*1234567890~SE*35*0001~ST*835*0002~BPR*I*40.8*C*CHK************20110707~TRN*1*020961585*1123456789~REF*F2*0001~DTM*405*20110301~N1*PR*TEXASMEDICAIDHEALTHCARESERVICES~N3*12365ATRACEPARKWAY~N4*ARSTIN*TX*787276524~PER*BL*JOHNWAYNE*TE*8005551212*EX*123~N1*PE*PROV2*XX*1234567899~N3*ADDRESS2~N4*CITY2*TX*77210~REF*TJ*999999999~LX*1~CLP*PATACCTNTMBER11111*1*40.8*40.8**MC*111111*12*A**10*123456789012345*99999999.99~NM1*QC*1*5PATIENTLASTNAME*PATFTNAM*N**PATSTFFIX*MI*444444444~NM1*74*1******C*555555555~NM1*PR*2*OHTERINSTRANCENAME2*****PI*9876543210~REF*EA*777~REF*SY*645507788~REF*F8*222222~REF*G1*444~DTM*232*20110103~DTM*233*20110107~PER*CX*1234*TE*5125125122~AMT*DY*9999.89~AMT*T*89988.01~QTY*CA*2222.2~SVC*HC:99215*40.8*40.8~DTM*472*20110223~REF*G3*12345678~REF*1D*749999999~REF*HPI*9999999990~SE*34*0002~

data/samples/005010X222A1_anesthesia.edi

@@ -0,0 +1 @@
+ST*837*0001*005010X222A1~BHT*0019*00*0123*20050117*1023*CH~NM1*41*2*PROVIDER MEDICAL GROUP*****46*N305~PER*IC*NINA*TE*6155551212*EX*911~NM1*40*2*ABC PAYER*****46*05440~HL*1**20*1~NM1*85*2*PROVIDER MEDICAL GROUP*****XX*2366554859~N3*1234 WEST END AVE~N4*NASHVILLE*TN*37232~REF*EI*756473826~HL*2*1*22*0~SBR*P*18*******MB~NM1*IL*1*JONES*MARGARET****MI*123456789A~N3*123 RAINBOW ROAD~N4*NASHVILLE*TN*37232~DMG*D8*19740303*F~NM1*PR*2*ABC PAYER*****PI*05440~CLM*153829140*827***22:B:1*Y*A*Y*Y~HI*BK:36616~NM1*82*1*TOWNSEND*JACOB*E***XX*5678912345~PRV*PE*ZZ*207L00000X~NM1*77*2*PROVIDER OP HOSP*****XX*432198765~N3*345 MAIN DRIVE~N4*NASHVILLE*TN*37232~LX*1~SV1*HC:00142:QK:QS:P1*827*MJ*61***1~DTP*472*D8*20050112~SE*28*0001~

data/samples/005010X222A1_commercial_health_insurance.edi

@@ -0,0 +1 @@
+ST*837*0021*005010X222A1~BHT*0019*00*244579*20061015*1023*CH~NM1*41*2*PREMIER BILLING SERVICE*****46*TGJ23~PER*IC*JERRY*TE*3055552222*EX*231~NM1*40*2*KEY INSURANCE COMPANY*****46*66783JJT~HL*1**20*1~PRV*BI*PXC*203BF0100Y~NM1*85*2*BEN KILDARE SERVICE*****XX*9876543210~N3*234 SEAWAY ST~N4*MIAMI*FL*33111~REF*EI*587654321~NM1*87*2~N3*2345 OCEAN BLVD~N4*MIAMI*FL*33111~HL*2*1*22*1~SBR*P**2222-SJ******CI~NM1*IL*1*SMITH*JANE****MI*JS00111223333~DMG*D8*19430501*F~NM1*PR*2*KEY INSURANCE COMPANY*****PI*999996666~REF*G2*KA6663~HL*3*2*23*0~PAT*19~NM1*QC*1*SMITH*TED~N3*236 N MAIN ST~N4*MIAMI*FL*33413~DMG*D8*19730501*M~CLM*26463774*100***11:B:1*Y*A*Y*I~REF*D9*17312345600006351~HI*BK:0340*BF:V7389~LX*1~SV1*HC:99213*40*UN*1***1~DTP*472*D8*20061003~LX*2~SV1*HC:87070*15*UN*1***1~DTP*472*D8*20061003~LX*3~SV1*HC:99214*35*UN*1***2~DTP*472*D8*20061010~LX*4~SV1*HC:86663*10*UN*1***2~DTP*472*D8*20061010~SE*42*0021~

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/samples/200823.EDI

@@ -0,0 +1,22 @@
+ISA*00*          *00*          *ZZ*592015694      *ZZ*B9820          *120119*1701*^*00501*000000001*0*P*:~
+GS*FA*09102*B9820*20120119*170146*1*X*005010X231A1~
+ST*999*0001*005010X231A1~
+AK1*HC*155*005010X222A1~
+AK2*837*0002*005010X222A1~
+IK5*A~
+AK9*A*1*1*1~
+SE*6*0001~
+GE*1*1~
+IEA*1*000000001~
+ISA*00*          *00*          *ZZ*592015694      *ZZ*B9820          *120119*1703*^*00501*000000001*0*P*:~
+GS*FA*09102*B9820*20120119*170300*1*X*005010X231A1~
+ST*999*0001*005010X231A1~
+AK1*HC*156*005010X222A1~
+AK2*837*0002*005010X222A1~
+IK3*N4*5074*2010*8~
+IK4*3*26*2~
+IK5*R*5~
+AK9*R*1*1*0~
+SE*8*0001~
+GE*1*1~
+IEA*1*000000001~

data/samples/837_L2000A_01.edi

@@ -0,0 +1 @@
+HL*1**20*1~PRV*BI*PXC*193200000X~NM1*85*2*ACME CORP*****XX*0123456789~N3*1234 NOWHERE~N4*Testington*CO*1234556789~REF*EI*55801234~NM1*87*2~N3*ACME ADDRESS 1~N4*Testbason*CO*123456789~HL*2*1*22*1~SBR*P**170105M002******BL~NM1*IL*1*FLINSTONE*FRED*D***MI*SABLAD1249~NM1*PR*2*RUBBLE CORP*****PI*RC0201~HL*3*2*23*0~PAT*01~NM1*QC*1*FLINSTONE*WILMA*A~N3*17 RUBBLE WAY~N4*Ancient*WD*000010001~DMG*D8*19000101*F~CLM*3670078*983***21:B:1*Y*A*Y*Y~DTP*435*D8*19000101~REF*G1*NA~HI*BK:65231~NM1*DN*1*NUGGS JR MD*BETTY****XX*9876543210~NM1*82*1*BILLING MD*NAME****XX*6758493021~PRV*PE*PXC*207L00000X~NM1*77*2*HOSPITAL - OB*****XX*930284756~N3*1400 EAST STREET~N4*RANDOM CITY*CO*1234556789~LX*1~SV1*HC:01961:AA*787*MJ*57***1**Y~DTP*472*D8*20120102~REF*6R*3866045~LX*2~SV1*HC:99140*196*UN*1***1**Y~DTP*472*D8*20120102~REF*6R*3866046~

data/samples/837_L2000A_02.edi

@@ -0,0 +1 @@
+HL*1**20*1~PRV*BI*PXC*193200000X~NM1*85*2*ACME*****XX*1234567789~N3*1400 ST~N4*SPRINGS*CA*857363900~REF*EI*999125555~NM1*87*2~N3*1234 TEST ST~N4*SPRINGS*CA*01732898~HL*2*1*22*0~SBR*P*18*108000******CI~NM1*IL*1*KELLEY*GRACE*M***MI*JK134324~N3*3825 TERMINAL~N4*SPRINGS*CA*988775801~DMG*D8*19791120*F~NM1*PR*2*UNITED HEALTHCARE*****PI*87726~CLM*3670206*1615***22:B:1*Y*A*Y*Y~HI*BK:7244*BF:72210*BF:E9293~NM1*DN*1*OKEENEN MD*JAMES*S***XX~NM1*82*1*WILL MD*JOSE****XX*0998865412~PRV*PE*PXC*207L00000X~NM1*77*2*MEMORIAL*****XX*12314143423~N3*4050 PARKWAY~N4*SPRINGS*CA*09786653~LX*1~SV1*HC:99201:25*190*UN*1***1:2:3~DTP*472*D8*20120104~REF*6R*3866711~NM1*DN*1*OKEENEN MD*JAMES*S***XX~LX*2~SV1*HC:64483*760*UN*1***1:2:3~DTP*472*D8*20120104~REF*6R*3866712~NM1*DN*1*OKEENEN MD*JAMES*S***XX~LX*3~SV1*HC:64484*475*UN*1***1:2:3~DTP*472*D8*20120104~REF*6R*3866713~NM1*DN*1*OKEENEN MD*JAMES*S***XX~LX*4~SV1*HC:99144*190*UN*1***1:2:3~DTP*472*D8*20120104~REF*6R*3866714~NM1*DN*1*OKEENEN MD*JAMES*S***XX~

data/samples/parse_277.rb

@@ -0,0 +1,127 @@
+#!/usr/bin/env ruby
+require 'pp'
+require 'pry'
+require 'hippo_eyeDoc'
+
+def wrap_text(text, max_width, wrap_string = "\n")
+  if text.length <= max_width
+    text
+  else
+    text.scan(/.{1,#{max_width}}/).join(wrap_string)
+  end
+end
+
+category_codes = Hippo_eyeDoc::CodeLists::ClaimStatusCategoryCodes
+status_codes   = Hippo_eyeDoc::CodeLists::ClaimStatusCodes
+
+ARGF.each do |infile|
+  ftaq = 0
+  ftaa = 0
+  ftrq = 0
+  ftra = 0
+  parser = Hippo_eyeDoc::Parser.new
+  transaction_sets = parser.parse_string(infile)
+
+  transaction_sets.each do |ts|
+    puts '=' * 120
+	puts "+---------" + ('-' * ARGF.filename.length) + "+"
+	puts "| File [%s] |" % [ARGF.filename] 
+	puts "+---------" + ('-' * ARGF.filename.length) + "+"
+    puts "Confirmation for 837 transaction on %s with a batch control number of %s." % [ts.L2000A.L2200A.DTP.DTP03.to_s, ts.L2000B.L2200B.TRN.TRN02]
+    puts "  %s(%s)" % [ts.L2000A.L2100A.NM1.NameLastOrOrganizationName, ts.L2000A.L2100A.NM1.EntityIdentifierCode]
+
+    if ts.L2000B.L2200B.STC.STC03 == 'U'
+      puts "  Entire batch REJECTED!!!!"
+    else
+      taq = ts.L2000B.L2200B.find_by_name('Total Accepted Quantity').QTY02
+      taq ||= 0
+      taa = ts.L2000B.L2200B.find_by_name('Total Accepted Amount').AMT02
+      taa ||= 0
+      trq = ts.L2000B.L2200B.find_by_name('Total Rejected Quantity').QTY02
+      trq ||= 0
+      tra = ts.L2000B.L2200B.find_by_name('Total Rejected Amount').AMT02
+      tra ||= 0
+      ftaq = ftaq + taq
+      ftaa = ftaa + taa
+      ftrq = ftrq + trq
+      ftra = ftra + tra
+      puts "  Accepted: %4d ($%-9.2f) Rejected: %4d ($%-9.2f)" % [taq, taa, trq, tra]
+    end
+
+    ts.L2000C.each do |l2000c|
+      puts '-----------------------------------------------------------------------------------------------------------------------'
+      puts "    Billing Provider: %s(%s)" % [l2000c.L2100C.NM1.NM103, l2000c.L2100C.NM1.NM109]
+      taq = l2000c.L2200C.find_by_name('Total Accepted Quantity').QTY02
+      taq ||= 0
+      taa = l2000c.L2200C.find_by_name('Total Accepted Amount').AMT02
+      taa ||= 0
+      trq = l2000c.L2200C.find_by_name('Total Rejected Quantity').QTY02
+      trq ||= 0
+      tra = l2000c.L2200C.find_by_name('Total Rejected Amount').AMT02
+      tra ||= 0
+      puts "    Accepted: %4d ($%-9.2f) Rejected: %4d ($%-9.2f)" % [taq, taa, trq, tra]
+
+      #TODO: need to handle/print out Provider level STC if present
+
+      l2000c.L2000D.each do |l2000d|
+        claim_number      = ''
+        patient_name      = ''
+        date_of_service   = ''
+        claim_status      = ''
+        claim_status_text = []
+        services          = []
+
+        patient_name = (l2000d.L2100D.NM1.NM103 + ', '  + l2000d.L2100D.NM1.NM104)[0,30].ljust(30)
+
+        l2000d.L2200D.each do |l2200d|
+          claim_number    = l2200d.TRN.TRN02
+          date_of_service = l2200d.DTP.DTP03
+
+          # claim level
+          claim_status = l2200d.STC.any?{|stc| stc.STC03 == 'U'} ? 'REJECTED' : 'ACCEPTED'
+          claim_status_text = []
+
+          l2200d.STC.each do |stc|
+            next if stc.STC03 != 'U'
+            claim_status_text << "Cat: #{stc.STC01_01} Stat: #{code = stc.STC01_02} - #{wrap_text(status_codes[code][:description], 65)}"
+            claim_status_text << "#{stc.STC12}" if stc.STC12
+          end
+
+          l2200d.L2220D.each do |l2220d|
+            next unless l2220d.STC.STC03 != 'U'
+
+            service_status_text = []
+            l2220d.STC.each do |stc|
+              next if stc.STC03 != 'U'
+
+              service_status_text << "Cat: #{stc.STC01_01} Stat: #{code = stc.STC01_02} - #{wrap_text(status_codes[code][:description], 65)}"
+              service_status_text << "#{stc.STC12}" if stc.STC12
+            end
+
+            services << {
+              :date_of_service => l2220d.DTP.DTP03,
+              :procedure_code => l2220d.SVC.SVC01_02,
+              :modifier_1 => l2220d.SVC.SVC01_03,
+              :modifier_2 => l2220d.SVC.SVC01_04,
+              :service_status_text => service_status_text
+            }
+
+          end
+
+          puts "      CLM# #{claim_number} - #{patient_name} #{claim_status}"
+          puts "        #{claim_status_text.join("\n        ")}\n" if claim_status_text.length > 0
+          puts "" if claim_status == 'REJECTED'
+          services.each do |s|
+            puts "        SVC - REJECTED DOS: #{s[:date_of_service]} - CPT: #{s[:procedure_code]}"
+            puts "          #{s[:service_status_text].join("\n        ")}" if s[:service_status_text].length > 0
+            puts ""
+          end
+        end   #l2000d.L2200D.each
+      end #l2000c.L2000D.each
+    end #ts.L2000C.each
+    puts "+---------" + ('-' * ARGF.filename.length) + "+"
+    puts "| END [%s] |" % [ARGF.filename] 
+    puts "| Accepted: %4d ($%-9.2f) Rejected: %4d ($%-9.2f) |" % [ftaq, ftaa, ftrq, ftra]
+    puts "+---------" + ('-' * ARGF.filename.length) + "+"
+  end #transaction_sets
+end #infile

data/samples/parse_999.rb

@@ -0,0 +1,122 @@
+#!/usr/bin/ruby
+require 'pp'
+require 'pry'
+require 'hippo_eyeDoc'
+
+#
+# This will parse an ANSI X12 999B file and
+# indicate if there are any reported errors / rejections.
+#
+
+def seg_syntax_code_lookup(code)
+  seg_syntax_desc = ""
+  case code
+  when "1"
+    seg_syntax_desc = "Unrecognized Segment ID."
+  when "2"
+    seg_syntax_desc = "Unexpected Segment."
+  when "3"
+    seg_syntax_desc = "Required Segment Missing."
+  when "4"
+    seg_syntax_desc = "Loop Occurs Over Maximum Times."
+  when "5"
+    seg_syntax_desc = "Segment Exceeds Maximum Use."
+  when "6"
+    seg_syntax_desc = "Segment Not in Defined Transaction Set."
+  when "7"
+    seg_syntax_desc = "Segment Not in Proper Sequence."
+  when "8"
+    seg_syntax_desc = "Segment Has Data Element Errors."
+  when "I4"
+    seg_syntax_desc = 'Implementation "Not Used" Segment Present.'
+  when "I6"
+    seg_syntax_desc = "Implementation Dependent Segment Missing."
+  when "I7"
+    seg_syntax_desc = "Implementation Loop Occurs Under Minimum Times."
+  when "I8"
+    seg_syntax_desc = "Implementation Segment Below Minimum Use."
+  when "I9"
+    seg_syntax_desc = 'Implementation Dependent "Not Used" Segment Present.'
+  else
+    seg_syntax_desc = "Unknown seg_syntax_code"
+  end # case code
+  seg_syntax_desc
+end
+
+ARGF.each do |infile|
+  parser = Hippo::Parser.new
+
+  trans_sets = parser.parse_string(infile)
+
+  trans_sets.each do |ts|
+    if ts.ST.ST01 == '999'
+      if ts.AK9.AK901 == 'A'
+        puts "%s indicates all transaction sets were accepted for further processing." % [ARGF.filename]
+      else
+        ts.L2000AK2.each do |l2000ak2|
+          if l2000ak2.IK5.IK501 != 'A'
+            trans_set_control_no = l2000ak2.AK2.AK202
+            emsg = "Error:  "
+            #
+            # presence of loop 2100AK2 for Error Identification
+            #
+            l2000ak2.L2100AK2.each do |l2100ak2|
+              seg_id = l2100ak2.IK3.IK301
+              seg_pos = l2100ak2.IK3.IK302
+              loop_id = l2100ak2.IK3.IK303
+              seg_syntax_code = l2100ak2.IK3.IK304
+              seg_syntax_desc = seg_syntax_code_lookup(seg_syntax_code)
+              ctx_seg_context = l2100ak2.find_by_name('Segment Context')
+              ctx_bus_unit_id = l2100ak2.find_by_name('Business Unit Identifier')
+              emsg += "trans_number: [%s]\n  seg_id_code: [%s]\n  seg_position: [%s]\n  loop: [%s]\n  syntax code: [%s]  %s" % [trans_set_control_no, seg_id, seg_pos, loop_id, seg_syntax_code, seg_syntax_desc]
+              if ctx_seg_context.to_s.length > 0
+                emsg += "\n    Segment Context : [%s]" % [ctx_seg_context]
+              end
+              if ctx_bus_unit_id.to_s.length > 0
+                emsg += "\n    Business Unit Identifier : [%s]" % [ctx_bus_unit_id]
+              end
+              
+              #
+              # presence of loop 2110AK2 for Implementation Data Element Note
+              #
+              l2100ak2.L2110AK2.each do |l2110ak2|
+                pos_in_seg = l2110ak2.IK4
+                data_element = l2110ak2.IK4.IK402
+                data_ele_err_cd = l2110ak2.IK4.IK403
+                data_copy = l2110ak2.IK4.IK404
+                data_ele_err_desc = ""
+                case data_ele_err_cd
+                when "1"
+                  data_ele_err_desc = "Mandatory data element missing"
+                when "2"
+                  data_ele_err_desc = "Conditional required data element missing"
+                when "3"
+                  data_ele_err_desc = "Too many data elements"
+                when "4"
+                  data_ele_err_desc = "Data element too short"
+                when "5"
+                  data_ele_err_desc = "Data element too long"
+                when "6"
+                  data_ele_err_desc = "Invalid character in data element"
+                when "7"
+                  data_ele_err_desc = "Invalid code value"
+                when "8"
+                  data_ele_err_desc = "Invalid date"
+                when "9"
+                  data_ele_err_desc = "Invalid time"
+                when "10"
+                  data_ele_err_desc = "Exclusion Condition Violated"
+                else
+                  data_ele_err_desc = "Unknown"
+                end
+                emsg += "\n      Position in Segment [%s]  Data Element Ref No [%s]  Data Element Err Code [%s ==> %s]  Copy of Bad Data Element  [%s]" % [pos_in_seg, data_element, data_ele_err_cd, data_ele_err_desc, data_copy]
+              end #l2110ak2
+            end # l2100ak2
+            puts emsg
+          end # IK501 != 'A'
+        end # l2000ak2
+      end
+    end # ST01 = 999
+  end # ts
+
+end # infile