PD_x12 1.3.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.project

@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>x12</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+	</buildSpec>
+	<natures>
+		<nature>com.aptana.projects.webnature</nature>
+		<nature>com.aptana.ruby.core.rubynature</nature>
+	</natures>
+</projectDescription>

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in x12.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 MJPete3
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,70 @@
+# X12
+
+This project originated from App Design's X12 parser.  The website is located: http://www.appdesign.com/x12parser.  Project was forked by Sean Walberg, creating version 1.2.0 in April 2012.  
+Current version has been upgraded to run under ruby version >= 1.9.1
+
+Changes welcome, especially new document types or better tests.
+
+# License
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2.1 of the License, or (at your option) any later version.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'X12'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install X12
+
+# Usage
+
+TODO: Write usage instructions here
+
+# Change Log
+
+11/23/12 - release 1.3.0
+* Updated to work with Ruby version >= 1.9.1
+* includes bundle gem_tasks
+* In misc/T105.xml escaped ampersand in Dun & Bradstreet   
+ 
+4/18/12 - Release 1.2.0
+* Works with Ruby version >= 1.8.6
+* All the gem info has been changed to use bundler
+* Everything has been renamed to be lower case and work on case sensitive systems
+* Stopped including REXML, which was causing problems with Rails 3 and mailer
+* To use version 1.2.0, install with "$gem install sx12"
+
+5/15/09 - Release 1.1.0
+* Ported X12 definitions and definition parser from proprietary d12 language to XML.
+* Added X12 definitions for 270 message and all its dependent segments and validation tables.
+
+3/19/09 - Release 0.1.0
+* Implemented field constants.
+* Implemented separate definition files for segments and validation tables.
+
+11/15/08 - Release 0.0.5, first public one
+* Added comments.
+* Added examples.
+* Wrote README
+
+4/10/08 - Release 0.0.1
+* Internal release for testing

data/Rakefile

@@ -0,0 +1,26 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"
+
+require 'rake'
+require 'rake/testtask'
+require 'rdoc/task'
+
+desc 'Test the plugin'
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib'
+  t.libs << 'test'
+  t.pattern = 'test/t*.rb'
+  t.verbose = true
+end
+
+desc 'Generate RDoc docs'
+Rake::RDocTask.new(:rdoc) do |rdoc|
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title    = 'Versapay'
+  rdoc.options << '--line-numbers' << '--inline-source'
+  rdoc.rdoc_files.include('README.md')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+
+
+task :default => :test

data/example/factory.rb

@@ -0,0 +1,92 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+require 'x12'
+
+# Read message definition and create an actual parser
+# by compiling .d12 file
+parser = X12::Parser.new('misc/997single.xml')
+
+# Make a new 997 message 
+r = parser.factory('997')
+
+#
+# Set various fields as desired
+#
+
+# Set fields directly
+r.ST.TransactionSetIdentifierCode = 997
+r.ST.TransactionSetControlNumber  = '2878'
+
+# Set fields inside a segment (AK1 in this case)
+r.AK1 { |ak1|
+  ak1.FunctionalIdentifierCode = 'HS'
+  ak1.GroupControlNumber       = 293328532
+}
+
+# Set fields deeply inside a segment inside 
+# nested loops (L1000/L1010/AK4 in this case)
+r.L1000.L1010.AK4.DataElementSyntaxErrorCode = 55
+r.L1000.AK2.TransactionSetIdentifierCode     = 270
+
+# Set nested loops
+r.L1000.L1010 {|l|
+  l.AK3 {|s|
+    s.SegmentIdCode      = 'NM1'
+    s.LoopIdentifierCode = 'L1000D'
+  }
+  l.AK4 {|s|
+    s.CopyOfBadDataElement = 'Bad element'
+  }
+}
+
+# Add loop repeats
+r.L1000.repeat {|l1000|
+  (0..1).each {|loop_repeat| # Two repeats of the loop L1010
+    l1000.L1010.repeat {|l1010|
+      l1010.AK3 {|s|
+        s.SegmentIdCode                   = 'DMG'
+        s.SegmentPositionInTransactionSet = 0
+        s.LoopIdentifierCode              = 'L1010'
+        s.SegmentSyntaxErrorCode          = 22
+      } if loop_repeat == 0 # AK3 only in the first repeat of L1010
+      (0..1).each {|ak4_repeat| # Two repeats of the segment AK4
+        l1010.AK4.repeat {|s|
+          s.PositionInSegment          = loop_repeat
+          s.DataElementSyntaxErrorCode = ak4_repeat
+        } # s
+      } # ak4_repeat
+    } # l1010
+  } # loop_repeat
+
+  l1000.AK5{|a|
+    a.TransactionSetAcknowledgmentCode = 666
+    a.TransactionSetSyntaxErrorCode4   = 999
+  } # a
+} # l1000
+
+# Print the message as a string -> ST*997*2878~AK1*HS*293328532~
+# AK2*270*~AK3*NM1**L1000D~AK4***55*Bad element~AK5*~AK3*DMG*0*
+# L1010*22~AK4*0**0~AK4*0**1~AK4*1**0~AK4*1**1~AK5*666****999~
+# AK9****~SE**~
+puts r.render

data/example/parse.rb

@@ -0,0 +1,57 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+require 'x12'
+
+# Read message definition and create an actual parser
+# by compiling .d12 file
+parser = X12::Parser.new('misc/997single.xml')
+
+# Define a test message to parse
+m997='ST*997*2878~AK1*HS*293328532~AK2*270*307272179~'\
+'AK3*NM1*8*L1010_0*8~AK4*0:0*66*1~AK4*0:1*66*1~AK4*0:2*'\
+'66*1~AK3*NM1*8*L1010_1*8~AK4*1:0*66*1~AK4*1:1*66*1~AK3*'\
+'NM1*8*L1010_2*8~AK4*2:0*66*1~AK5*R*5~AK9*R*1*1*0~SE*8*2878~'
+
+# Parse the message
+r = parser.parse('997', m997)
+r.show
+
+# Access components of the message as desired
+
+# Whole ST segment: -> ST*997*2878~
+puts r.ST
+
+# One filed, Group Control Number of AK1 -> 293328532
+puts r.AK1.GroupControlNumber
+
+# Individual loop, namely, third L1010 subloop of
+# L1000 loop: -> AK3*NM1*8*L1010_2*8~AK4*2:0*66*1~
+puts r.L1000.L1010[2]
+
+# First encounter of Data Element Reference Number of the 
+# first L1010 sub-loop of L1000 loop -> 66
+puts r.L1000.L1010.AK4.DataElementReferenceNumber
+
+# Number of L1010 sub-loops in L1000 loop -> 3
+puts r.L1000.L1010.size

data/lib/x12.rb

@@ -0,0 +1,42 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+# $Id: X12.rb 91 2009-05-13 22:11:10Z ikk $
+#
+# Package implementing direct manipulation of X12 structures using Ruby syntax.
+
+require "x12/version"
+require 'x12/base'
+require 'x12/empty'
+require 'x12/field'
+require 'x12/composite'
+require 'x12/segment'
+require 'x12/table'
+require 'x12/loop'
+require 'x12/xmldefinitions'
+require 'x12/parser'
+
+module X12
+  EMPTY = Empty.new()
+  TEST_REPEAT = 100
+end

data/lib/x12/base.rb

@@ -0,0 +1,210 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Base.rb 70 2009-03-26 19:25:39Z ikk $
+  #
+  # Base class for Segment, Composite, and Loop. Contains setable
+  # segment_separator, field_separator, and composite_separator fields.
+
+  class Base
+
+    attr_reader :name, :repeats
+    attr_reader :segment_separator, :field_separator, :composite_separator, :next_repeat, :parsed_str, :nodes
+    attr_writer :segment_separator, :field_separator, :composite_separator, :next_repeat, :parsed_str, :nodes
+
+    # Creates a new base element with a given name, array of sub-elements, and array of repeats if any.
+    def initialize(name, arr, repeats = nil)
+      @nodes = arr
+      @name = name
+      @repeats = repeats
+      @next_repeat = nil        # Next repeat of the same element, if any
+      @parsed_str = nil
+
+      @segment_separator   = '~'
+      @field_separator     = '*'
+      @composite_separator = ':'
+
+      #puts "Created #{name} #{object_id} #{self.class}  "
+    end
+
+    # Formats a printable string containing the base element's content
+    def inspect
+      "#{self.class.to_s.sub(/^.*::/, '')} (#{name}) #{repeats} #{super.inspect[1..-2]} =<#{parsed_str}, #{next_repeat.inspect}> ".gsub(/\\*\"/, '"')
+    end
+
+    # Prints a tree-like representation of the element
+    def show(ind = '')
+      count = 0
+      self.to_a.each{|i|
+        #puts "#{ind}#{i.name} #{i.object_id} #{i.super.object_id} [#{count}]: #{i.parsed_str} #{i.super.class}"
+        puts "#{ind}#{i.name} [#{count}]: #{i.to_s.sub(/^(.{30})(.*?)(.{30})$/, '\1...\3')}"
+        # Force parsing a segment
+        if i.kind_of?(X12::Segment) && i.nodes[0]
+          i.find_field(i.nodes[0].name)
+        end
+        i.nodes.each{|j|
+          case 
+          when j.kind_of?(X12::Base)  then j.show(ind+'  ')
+          when j.kind_of?(X12::Field) then puts "#{ind+'  '}#{j.name} -> '#{j.to_s}'"
+          end
+        } 
+        count += 1
+      }
+    end
+
+    # Try to parse the current element one more time if required. Returns the rest of the string
+    # or the same string if no more repeats are found or required.
+    def do_repeats(s)
+      if self.repeats.end > 1
+        possible_repeat = self.dup
+        p_s = possible_repeat.parse(s)
+        if p_s
+          s = p_s
+          self.next_repeat = possible_repeat
+        end # if parsed
+      end # more repeats
+      s
+    end # do_repeats
+
+    # Empty out the current element
+    def set_empty!
+      @next_repeat = nil
+      @parsed_str = nil
+      self
+    end
+
+    # Make a deep copy of the element
+    def dup
+      n = clone
+      n.set_empty!
+      n.nodes = n.nodes.dup
+      n.nodes.each_index{|i|
+        n.nodes[i] = n.nodes[i].dup
+        n.nodes[i].set_empty!
+      }
+      #puts "Duped #{self.class} #{self.name} #{self.object_id} #{super.object_id} -> #{n.name} #{n.super.object_id} #{n.object_id} "
+      n
+    end # dup
+
+    # Recursively find a sub-element, which also has to be of type Base.
+    def find(e)
+      #puts "Finding [#{e}] in #{self.class} #{name}"
+      case self
+        when X12::Loop
+        # Breadth first
+        res = nodes.find{|i| e==i.name }
+        return res if res
+        # Depth now
+        nodes.each{|i| 
+          res = i.find(e) if i.kind_of?(X12::Loop)
+          return res unless res.nil? or EMPTY==res # otherwise keep looping
+        }
+        when X12::Segment
+        return find_field(e).to_s
+      end # case
+      return EMPTY
+    end
+    
+    # Present self and all repeats as an array with self being #0
+    def to_a
+      res = [self]
+      nr = self.next_repeat
+      while nr do
+        res << nr
+        nr = nr.next_repeat
+      end
+      res
+    end
+
+    # Returns a parsed string representation of the element
+    def to_s
+      @parsed_str || ''
+    end
+
+    # The main method implementing Ruby-like access methods for nested elements
+    def method_missing(meth, *args, &block)
+      str = meth.id2name
+      str = str[1..str.length] if str =~ /^_\d+$/ # to avoid pure number names like 270, 997, etc.
+      #puts "Missing #{str}"
+      if str =~ /=$/
+        # Assignment
+        str.chop!
+        #puts str
+        case self
+        when X12::Segment
+          res = find_field(str)
+          throw Exception.new("No field '#{str}' in segment '#{self.name}'") if EMPTY == res
+          res.content = args[0].to_s
+          #puts res.inspect
+        else
+          throw Exception.new("Illegal assignment to #{meth} of #{self.class}")
+        end # case
+      else
+        # Retrieval
+        res = find(str)
+        yield res if block_given?
+        res
+      end # if assignment
+    end
+    
+    # The main method implementing Ruby-like access methods for repeating elements
+    def [](*args)
+      #puts "squares #{args.inspect}"
+      return self.to_a[args[0]] || EMPTY
+    end
+
+    # Yields to accompanying block passing self as a parameter.
+    def with(&block)
+      if block_given?
+        yield self 
+      else
+        throw Exception.new("Method 'with' requires a block.")
+      end
+    end
+    
+    # Returns number of repeats
+    def size
+      return self.to_a.size
+    end
+
+    # Check if any of the fields has been set yet
+    def has_content?
+      self.nodes.find{|i| i.has_content?}
+    end
+
+    # Adds a repeat to a segment or loop. Returns a new segment/loop or self if empty.
+    def repeat
+      res = if self.has_content? # Do not repeat an empty segment
+              last_repeat = self.to_a[-1]
+              last_repeat.next_repeat = last_repeat.dup
+            else
+              self
+            end
+      yield res if block_given?
+      res
+    end
+
+  end # Base
+end