x12 0.1.0

data/cf/820_004010X061.cf

@@ -0,0 +1,102 @@
+[LOOPS]
+ISA
+GS
+ST
+1000A
+1000B
+2000A
+2000B
+SE
+GE
+IEA
+
+#--- start of loop details ---#
+
+[ISA]
+segment=ISA:::ISA:R:1
+
+[GS]
+segment=GS:::GS:R:1
+
+#LOOP ID - HEADER
+[ST]
+segment=ST:::820 Header:R:1
+segment=BPR:::Financial Information:R:1
+segment=TRN:::Reassociation Key:R:1
+segment=CUR:::Non-US Dollars Currency:S:1
+segment=REF:::Premium Receivers Identification Key:S:>1
+segment=DTM:::Process Date:S:1
+segment=DTM:::Delivery Date:S:1
+segment=DTM:::Coverage Period:S:1
+
+#LOOP ID - 1000A PREMIUM RECEIVER�S NAME 1
+[1000A]
+segment=N1:1:PE:Premium Receiver�s Name:R:1
+segment=N2:::Premium Receiver Additional Name:S:1
+segment=N3:::Premium Receiver�s Address:S:1
+segment=N4:::Premium Receiver�s City, State, Zip:S:1
+
+#LOOP ID - 1000B PREMIUM PAYER�S NAME 1
+[1000B]
+segment=N1:1:PR:Premium Payer�s Name:R:1
+segment=N2:::Premium Payer Additional Name:S:1
+segment=N3:::Premium Payer�s Address:S:1
+segment=N4:::Premium Payer�s City, State, Zip:S:1
+segment=PER:::Premium Payer�s Administrative Contact:S:>1
+
+#LOOP ID - 2000A ORGANIZATION SUMMARY REMITTANCE 1
+[2000A]
+segment=ENT:::Organization Summary Remittance:S:1
+loop=2300A
+
+#LOOP ID - 2300A ORGANIZATION SUMMARY REMITTANCE DETAIL >1
+[2300A]
+segment=RMR:::Organization Summary Remittance Detail:R:1
+loop=2310A
+loop=2320A
+
+#LOOP ID - 2310A SUMMARY LINE ITEM 1
+[2310A]
+segment=IT1:::Summary Line Item:S:1
+loop=2315A
+
+#LOOP ID - 2315A MEMBER COUNT >1
+[2315A]
+segment=SLN:::Member Count:S:1
+
+#LOOP ID - 2320A ORGANIZATION SUMMARY REMITTANCE LEVEL ADJUSTMENT >1
+[2320A]
+segment=ADX:::Organization Summary Remittance Level Adjustment:S:1
+
+#LOOP ID - 2000B INDIVIDUAL REMITTANCE >1
+[2000B]
+segment=ENT:::Individual Remittance:S:1
+loop=2100B
+loop=2300B
+
+#LOOP ID - 2100B INDIVIDUAL NAME >1
+[2100B]
+segment=NM1:1:EY:Individual Name:S:1
+
+#LOOP ID - 2300B INDIVIDUAL PREMIUM REMITTANCE DETAIL >1
+[2300B]
+segment=RMR:::Individual Premium Remittance Detail:S:1
+segment=DTM:::Individual Coverage Period:S:1
+loop=2320B
+
+#LOOP ID - 2320B INDIVIDUAL PREMIUM ADJUSTMENT >1
+[2320B]
+segment=ADX:::Individual Premium Adjustment:S:1
+
+#LOOP ID - TRAILER
+[SE]
+segment=SE:::820 Trailer:R:1
+
+[GE]
+segment=GE:::GE:R:1
+
+[IEA]
+segment=IEA:::IEA:R:1
+
+
+

data/cf/832.cf

@@ -0,0 +1,88 @@
+[LOOPS]
+ISA
+GS
+ST-H
+BCT-H
+N1-H
+LIN-D
+CTT-S
+SE-S
+GE
+IEA
+
+[ISA]
+segment=ISA:::ISA:R:1
+
+[GS]
+segment=GS:::GE:R:1
+
+[ST-H]
+segment=ST:1:832:Transaction set header:R:1
+
+[BCT-H]
+segment=BCT:1:PC:Beginning segment for price sales catalog:R:1
+
+[N1-H]
+segment=N1:1:VN:Name:S:1
+loop=REF-H
+
+[REF-H]
+segment=REF:::Reference identification:S:1
+
+[N1-H]
+segment=N1:::Name:S:1
+
+[LIN-D]
+segment=LIN:2:VN:Item identification:S:1
+loop=G53-D
+loop=REF-D
+loop=YNQ-D
+loop=PID-D
+loop=MEA-D
+loop=PKG-D
+loop=CTP-D
+loop=SLN-D
+
+[G53-D]
+segment=G53:1:001,002,003,CEP,PRI:Maitenance type:S:1
+
+[REF-D]
+segment=REF:1:BD,MR,SU,XX,S6:Reference identification:S:1
+
+[YNQ-D]
+segment=YNQ:1:IO:Yes no question:S:1
+
+[PID-D]
+segment=PID:::Product item description:S:1
+
+[MEA-D]
+segment=MEA:1:WT,PS,SD:Measurements:S:1
+
+[PKG-D]
+segment=PKG:::Marketing packaging loading:S:1
+
+[CTP-D]
+segment=CTP:1:IN:Pricing information:S:1
+loop=DTM-D
+
+[DTM-D]
+segment=DTM:1:007:Date time reference:S:1
+
+[SLN-D]
+segment=SLN:::Subline item detail:S:1
+loop=MTX-D
+
+[MTX-D]
+segment=MTX:::Text:S:1
+
+[CTT-S]
+segment=CTT:::Transaction Totals:S:1
+
+[SE-S]
+segment=SE:::Transaction set trailer:S:1
+
+[GE]
+segment=GE:::GE:R:1
+
+[IEA]
+segment=IEA:::IEA:R:1

data/cf/835_004010X091.cf

@@ -0,0 +1,86 @@
+[LOOPS]
+ISA
+GS
+ST
+1000A
+1000B
+2000
+SE
+GE
+IEA
+
+#--- start of loop details ---#
+
+[ISA]
+segment=ISA:::ISA:R:1
+
+[GS]
+segment=GS:::GE:R:1
+
+[ST]
+segment=ST:1:835:Transaction Set Header:R:1
+segment=BPR:::Financial Information:R:1
+segment=TRN:::Reassociation Trace Number:R:1
+segment=CUR:::Foreign Currency Information:S:1
+segment=REF:1:EV:Receiver Identification:S:1
+segment=REF:1:F2:Version Identification:S:1
+segment=DTM:1:405:Production Date:S:1
+
+[1000A]
+segment=N1:1:PR:Payer Identification:R:1
+segment=N3:::Payer Address:R:1
+segment=N4:::Payer City, State, ZIP Code:R:1
+segment=REF:1:2U,EO,HI,NF:Additional Payer Identification:S:4
+segment=PER:1:CX:Payer Contact Information:S:1
+
+[1000B]
+segment=N1:1:PE:Payee Identification:R:1
+segment=N3:::Payee Address:S:1
+segment=N4:::Payee City, State, ZIP Code:S:1
+segment=REF:::Payee Additional Identification:S:>1
+
+[2000]
+segment=LX:::Header Number:S:1
+segment=TS3:::Provider Summary Information:S:1
+segment=TS2:::Provider Supplemental Summary Information:S:1
+loop=2100
+
+[2100]
+segment=CLP:::Claim Payment Information:R:1
+segment=CAS:1:PR:Claim Adjustment:S:99
+segment=NM1:1:QC:Patient Name:R:1
+segment=NM1:1:IL:Insured Name:S:1
+segment=NM1:1:74:Corrected Patient/Insured Name:S:1
+segment=NM1:1:82:Service Provider Name:S:1
+segment=NM1:1:TT:Crossover Carrier Name:S:1
+segment=NM1:1:PR:Corrected Priority Payer Name:S:2
+segment=MIA:::Inpatient Adjudication Information:S:1
+segment=MOA:::Outpatient Adjudication Information:S:1
+segment=REF:::Other Claim Related Identification:S:5
+segment=REF:::Rendering Provider Identification:S:10
+segment=DTM:::Claim Date:S:4
+segment=PER:::Claim Contact Information:S:3
+segment=AMT:::Claim Supplemental Information:S:14
+segment=QTY:::Claim Supplemental Information Quantity:S:15
+loop=2110
+
+[2110]
+segment=SVC:::Service Payment Information:S:1
+segment=DTM:::Service Date:S:3
+segment=CAS:::Service Adjustment:S:99
+segment=REF:::Service Identification:S:7
+segment=REF:::Rendering Provider Information:S:10
+segment=AMT:::Service Supplemental Amount:S:12
+segment=QTY:::Service Supplemental Quantity:S:6
+segment=LQ:::Health Care Remark Codes:S:99
+segment=PLB:::Provider Adjustment:S:>1
+
+[SE]
+segment=SE:::Transaction Set Trailer:R:1
+
+[GE]
+segment=GE:::GE:R:1
+
+[IEA]
+segment=IEA:::IEA:R:1
+

data/cf/855.cf

@@ -0,0 +1,60 @@
+[LOOPS]
+ISA
+GS
+ST-H
+BAK-H
+DTM-H
+N1-H
+PO1-D
+CTT-S
+SE-S
+GE
+IEA
+
+[ISA]
+segment=ISA:::ISA:R:1
+
+[GS]
+segment=GS:::GE:R:1
+
+[ST-H]
+segment=ST:1:855:R:1
+
+[BAK-H]
+segment=BAK:1:00,04:R:1
+
+[DTM-H]
+segment=DTM:::Date Time Reference
+
+[N1-H]
+segment=N1:1:ST:O:1
+segment=N3:::Address Information:S:1
+segment=N4:::Geographic Location:S:1
+
+[PO1-D]
+segment=PO1:::Purchase Order Ack:S:1
+loop=PID-D
+loop=ACK-D
+loop=N1-D
+
+[PID-D]
+segment=PID:::Product Item Description:S:1
+
+[ACK-D]
+segment=ACK:1:IA,IC,ID,IR:Line item ack:S:1
+
+[N1-D]
+segment=N1:1:QC:Name:S:1
+
+[CTT-S]
+segment=CTT:::Transaction Totals:S:1
+
+[SE-S]
+segment=SE:::Transaction Set Trailer:R:1
+
+[GE]
+segment=GE:::GE:R:1
+
+[IEA]
+segment=IEA:::IEA:R:1
+

data/cf/997.cf

@@ -0,0 +1,57 @@
+[LOOPS]
+ISA
+GS
+ST
+AK1
+AK2
+AK2/AK3
+AK5
+AK9
+SE
+GE
+IEA
+
+#--- start of loop details ---#
+
+[ISA]
+segment=ISA:::ISA:R:1
+
+[GS]
+segment=GS:::GS:R:1
+
+#LOOP ID - HEADER
+[ST]
+segment=ST:::Transaction Set Header:R:1
+
+#LOOP ID - AK1
+[AK1]
+segment=AK1:::Functional Group Response Header:S:1
+
+#LOOP ID - AK2 999999
+[AK2]
+segment=AK2:::Transaction Set Response Header:S:1
+loop=AK2/AK3
+
+#LOOP ID - AK2/AK3 999999
+[AK2/AK3]
+segment=AK3:::Data Segment Note:S:99
+segment=AK4:::Data Element Note:S:99
+
+#LOOP ID - AK5
+[AK5]
+segment=AK5:::Transaction Set Response Trailer:R:1
+
+#LOOP ID - AK9
+[AK9]
+segment=AK9:::Functional Group Response Trailer:R:1
+
+#LOOP ID - TRAILER
+[SE]
+segment=SE:::Transaction Set Trailer:R:1
+
+[GE]
+segment=GE:::GE:R:1
+
+[IEA]
+segment=IEA:::IEA:R:1
+

data/lib/x12.rb

@@ -0,0 +1,24 @@
+# This file is part of Ruby X12-Parser (x12-parser)
+#
+# Copyright (C) 2008 Chris Parker
+# All rights reserved
+#
+# Based on Perl X12::Parser by
+# Prasad Poruporuthan
+# http://search.cpan.org/src/PRASAD/X12-0.09
+#
+# x12-parser 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 3 of the License, or
+# (at your option) any later version.
+#
+# x12-parser 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 General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with x12-parser.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'x12/cf'
+require 'x12/parser'

data/lib/x12/cf.rb

@@ -0,0 +1,203 @@
+# This file is part of Ruby X12-Parser (x12-parser)
+#
+# Copyright (C) 2008 Chris Parker
+# All rights reserved
+#
+# Based on Perl X12::Parser by
+# Prasad Poruporuthan
+# http://search.cpan.org/src/PRASAD/X12-0.09
+#
+# x12-parser 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 3 of the License, or
+# (at your option) any later version.
+#
+# x12-parser 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 General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with x12-parser.  If not, see <http://www.gnu.org/licenses/>.
+
+
+module X12
+
+  class LoopTree
+    attr_accessor :loop
+    attr_accessor :level
+  end
+
+  class CF
+
+    attr_accessor :loop_trees
+    attr_accessor :segmentstart
+    attr_accessor :file_contents
+    attr_accessor :loops
+    attr_accessor :level
+
+    def initialize
+      @loop_trees = []
+      @segmentstart = {}
+      @file_contents = []
+      @loops = []
+    end
+
+    def load(file)
+      
+      load_file = nil   
+
+      local_path = File.dirname(__FILE__).to_s + "/../../cf/#{file}"
+
+      if File.exist?(file)
+        load_file = file
+      end
+
+      if File.exist?(local_path)
+        load_file = local_path
+      end
+
+      return false if not load_file
+
+      File.open(load_file, 'r') { |file|
+        file.each do |line|
+          @file_contents << line.strip
+        end
+      }
+
+      self._find_loops
+      self._parse_loops
+    end
+
+    def _find_loops
+
+      in_loops = false
+
+      @file_contents.each do |line|
+        if line == '[LOOPS]'
+          in_loops = true
+          next
+        end
+
+        return if line == ''
+
+        @loops << line if in_loops == true
+
+      end
+    end
+
+    def _parse_loops
+
+      @loops.each { |loop|
+        @level = 0
+        _parse_loop(loop)
+      }
+      @loops.each { |loop|
+        _parse_segment(loop)
+      }
+    end
+
+    def _parse_loop(loop)
+
+      in_loop = false
+
+      @level += 1
+
+      @file_contents.each { |line|
+
+        if line == "[#{loop}]"
+
+          loop_tree = LoopTree.new
+          loop_tree.loop = loop
+          loop_tree.level = @level
+          @loop_trees << loop_tree
+          in_loop = true
+
+        elsif in_loop == true and line =~ /^loop=/
+          tmp = line.split('=')
+          _parse_loop(tmp[1])
+          @level -= 1
+        end
+
+        return if in_loop and line == ''
+      }
+
+    end
+
+    def _parse_segment(loop)
+
+      in_loop = false
+
+      @file_contents.each { |line|
+
+        if line == "[#{loop}]"
+          in_loop = true
+        end
+
+        if in_loop == true
+
+          if line =~ /^segment=/
+            tmp = line.split('=')
+            @segmentstart[loop] = [] if not @segmentstart[loop]
+            @segmentstart[loop] << tmp[1]
+          end
+
+          if line =~ /^loop=/
+            tmp = line.split('=')
+            _parse_segment(tmp[1])
+          end
+        end
+
+        return if in_loop == true and line == ''
+
+      }
+    end
+
+    def get_level_one
+
+      tmp = []
+
+      i = 0
+
+      @loop_trees.each do |lt|
+        if lt.level == 1
+          tmp.push(i)
+        end
+
+        i += 1
+      end
+      tmp
+
+    end
+
+    def get_next_level(current_pos)
+      current_level = @loop_trees[current_pos].level || 0
+
+      if @loop_trees[current_pos + 1]
+        next_level = @loop_trees[current_pos + 1].level
+      else
+        next_level = 0
+      end
+
+      tmp = []
+
+      if current_level < next_level
+        current_pos += 1
+
+        while @loop_trees[current_pos].level > current_level
+          if @loop_trees[current_pos].level == next_level
+            tmp.push(current_pos)
+          end
+          current_pos += 1
+        end
+      else
+        tmp.push('END')
+      end
+
+      tmp
+
+    end
+
+  end
+
+end