X12 0.0.5 → 0.1.0

data/CHANGELOG

@@ -1,6 +1,11 @@
 = CHANGELOG
 
-$Id: CHANGELOG 35 2008-11-13 18:33:44Z ikk $
+$Id: CHANGELOG 60 2009-03-19 22:39:00Z ikk $
+
+== 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
 

data/Rakefile

@@ -20,7 +20,7 @@
 #     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: Rakefile 39 2008-11-13 19:43:55Z ikk $
+# $Id: Rakefile 58 2009-03-19 20:31:26Z ikk $
 #++
 require 'rubygems'
 require 'rake'
@@ -70,10 +70,20 @@ task :example do |x|
   }
 end
 
+# Run examples in scratch dir
+task :scratch do |x|
+  Dir['scratch/p270.rb'].each {|f|
+    puts "Running #{f}"
+    sh(RUBY, '-I', 'lib', f) do |ok, res|
+      fail "Command failed (status = #{res.exitstatus})" unless ok
+    end
+  }
+end
+
 task :test do |x|
   Rake::TestTask.new { |t|
     t.libs << "test"
-    t.test_files = Dir['test/ts_*.rb']
+    t.test_files = Dir['test/tc_*.rb']
     t.verbose = true
   }
 end # :test
@@ -126,7 +136,8 @@ spec = Gem::Specification.new do |s|
    "COPYING",
    "doc/**/*",
    "lib/**/*",
-   "test/**/*",
+   "test/tc_factory_997.rb",
+   "test/tc_parse_997.rb",
    "example/**/*",
    "misc/**/*"
   ].each do |i|

data/example/parse.rb

@@ -35,6 +35,7 @@ m997='ST*997*2878~AK1*HS*293328532~AK2*270*307272179~'\
 
 # Parse the message
 r = parser.parse('997', m997)
+r.show
 
 # Access components of the message as desired
 

data/lib/X12.rb

@@ -38,13 +38,13 @@ require 'X12/parser'
 # This relies on the polyglot package to compile and load x12syntax.treetop
 require 'x12/x12syntax'
 
-# $Id: X12.rb 35 2008-11-13 18:33:44Z ikk $
+# $Id: X12.rb 59 2009-03-19 22:32:13Z ikk $
 #
 # Package implementing direct manipulation of X12 structures using Ruby syntax.
 
 module X12
 
-  VERSION = '0.0.5'
+  VERSION = '0.1.0'
   EMPTY = Empty.new()
   
 end

data/lib/X12/Base.rb

@@ -23,7 +23,7 @@
 #
 module X12
 
-  # $Id: Base.rb 35 2008-11-13 18:33:44Z ikk $
+  # $Id: Base.rb 49 2009-03-17 19:46:08Z ikk $
   #
   # Base class for Segment, Composite, and Loop. Contains setable
   # segment_separator, field_separator, and composite_separator fields.
@@ -60,6 +60,10 @@ module X12
       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)  : j.show(ind+'  ')

data/lib/X12/Field.rb

@@ -23,7 +23,7 @@
 #
 module X12
 
-  # $Id: Field.rb 35 2008-11-13 18:33:44Z ikk $
+  # $Id: Field.rb 56 2009-03-18 19:56:01Z ikk $
   #
   # Class to represent a segment field. Please note, it's not a descendant of Base.
 
@@ -53,13 +53,15 @@ module X12
     end
 
     def render
-      # FIXME - this is for debug only
+      unless @content
+        @content = $1 if self.type =~ /"(.*)"/ # If it's a constant
+      end
       @content || ''
     end # render
 
-    # Check if it's been set yet
+    # Check if it's been set yet and it's not a constant
     def has_content?
-      !@content.nil?
+      !@content.nil? && ('"'+@content+'"' != self.type)
     end
 
     # Erase the content
@@ -67,15 +69,17 @@ module X12
       @content = nil
     end
 
-#     def to_regexp
-#       r = case type
-#           when 'I' : "\\d{#{min_length},#{max_length}}"
-#           when 'S' : ".{#{min_length},#{max_length}}"
-#           when /C.*/ : 'composite'
-#           when /"(.*)"/ : $1
-#           else ''
-#           end # case
-#       Regexp.new("#{CONSTANT[:field]}#{r}")
-#     end
+    # Returns string regexp for this field, takes field separator as an argument
+    def str_regexp(sep)
+      min = required ? @min_length : 0
+      case self.type
+      when 'I'      : "\\d{#{min},#{@max_length}}"
+      when 'S'      : "[^#{Regexp.escape(sep)}]{#{min},#{@max_length}}"
+      when /C.*/    : "[^#{Regexp.escape(sep)}]{#{min},#{@max_length}}"
+      when /"(.*)"/ : $1
+      else ''
+      end # case
+    end # str_regexp
+
   end
 end

data/lib/X12/Loop.rb

@@ -23,7 +23,7 @@
 #
 module X12
 
-  # $Id: Loop.rb 35 2008-11-13 18:33:44Z ikk $
+  # $Id: Loop.rb 59 2009-03-19 22:32:13Z ikk $
   #
   # Implements nested loops of segments
 
@@ -63,11 +63,15 @@ module X12
 
     # Render all components of this loop as string suitable for EDI
     def render
-      self.to_a.inject(''){|loop_str, i|
-        loop_str += i.nodes.inject(''){|nodes_str, j|
-          nodes_str += j.render
-        } 
-      }
+      if self.has_content?
+        self.to_a.inject(''){|loop_str, i|
+          loop_str += i.nodes.inject(''){|nodes_str, j|
+            nodes_str += j.render
+          } 
+        }
+      else
+        ''
+      end
     end # render
 
   end # Loop

data/lib/X12/Parser.rb

@@ -23,7 +23,7 @@
 #
 module X12
 
-  # $Id: Parser.rb 35 2008-11-13 18:33:44Z ikk $
+  # $Id: Parser.rb 54 2009-03-18 17:04:45Z ikk $
   #
   # Main class for creating X12 parsers and factories.
 
@@ -31,7 +31,10 @@ module X12
 
     # Creates a parser out of a definition
     def initialize(file_name)
+      save_definition = @x12_definition
+      #puts "Reading definition from #{file_name}"
       str = File.open(file_name, 'r').read
+      @dir_name = File.dirname(file_name) # to look up other files if needed
       treetop_parser = X12::X12syntaxParser.new
       res = treetop_parser.parse(str)
       throw Exception.new("Cannot parse X12 definition in #{file_name}") unless res
@@ -41,7 +44,7 @@ module X12
       @x12_definition[X12::Loop].each_pair{|k, v|
         #puts "Processing loop #{k}"
         process_loop(v)
-      }
+      } if @x12_definition[X12::Loop]
 #       @x12_definition.keys.each{|t|
 #         puts "**** #{t}"
         
@@ -54,6 +57,15 @@ module X12
 #         puts "\n\n"
 #       }
 
+      # Merge the saved definition, if any, into the newly parsed one
+      return unless save_definition
+      save_definition.keys.each{|t|
+        @x12_definition[t] ||= {}
+        save_definition[t].keys.each{|u|
+          @x12_definition[t][u] = save_definition[t][u] 
+        }
+      }
+
     end
 
     # Parse a loop of a given name out of a string. Throws an exception if the loop name is not defined.
@@ -79,7 +91,7 @@ module X12
       loop.nodes.each{|i|
         case i
           when X12::Loop: process_loop(i)
-          when X12::Segment: process_segment(i)
+          when X12::Segment: process_segment(i) unless i.nodes.size > 0
           else return
         end
       }
@@ -87,10 +99,24 @@ module X12
 
     # Instantiate segment's fields as previously defined
     def process_segment(segment)
-      segment_definition = @x12_definition[X12::Segment][segment.name]
-      return unless segment_definition
+      unless @x12_definition[X12::Segment] && @x12_definition[X12::Segment][segment.name]
+        # Try to find it in a separate file if missing from the @x12_definition structure
+        initialize(File.join(@dir_name, segment.name+'.d12'))
+        segment_definition = @x12_definition[X12::Segment][segment.name]
+        throw Exception.new("Cannot find a definition for segment #{segment.name}") unless segment_definition
+      else
+        segment_definition = @x12_definition[X12::Segment][segment.name]
+      end
       segment_definition.nodes.each_index{|i|
         segment.nodes[i] = segment_definition.nodes[i] 
+        # Make sure we have the validation table if any for this field. Try to read one in if missing.
+        table = segment.nodes[i].validation
+        if table
+          unless @x12_definition[X12::Table] && @x12_definition[X12::Table][table]
+            initialize(File.join(@dir_name, table+'.d12'))
+            throw Exception.new("Cannot find a definition for table #{table}") unless @x12_definition[X12::Table] && @x12_definition[X12::Table][table]
+          end
+        end
       }
     end
 

data/lib/X12/Segment.rb

@@ -23,7 +23,7 @@
 #
 module X12
 
-  # $Id: Segment.rb 35 2008-11-13 18:33:44Z ikk $
+  # $Id: Segment.rb 54 2009-03-18 17:04:45Z ikk $
   #
   # Implements a segment containing fields or composites
     
@@ -65,7 +65,20 @@ module X12
 
     # Returns a regexp that matches this particular segment
     def regexp
-      @regexp ||= Regexp.new("^#{name}#{Regexp.escape(field_separator)}[^#{Regexp.escape(segment_separator)}]*#{Regexp.escape(segment_separator)}")
+      unless @regexp
+        if self.nodes.find{|i| i.type =~ /^".+"$/ }
+          # It's a very special regexp if there are constant fields
+          re_str = self.nodes.inject("^#{name}#{Regexp.escape(field_separator)}"){|s, i|
+            s+i.str_regexp(field_separator)+Regexp.escape(field_separator)
+          } + '?'+Regexp.escape(segment_separator)
+          @regexp = Regexp.new(re_str)
+        else
+          # Simple match
+          @regexp = Regexp.new("^#{name}#{Regexp.escape(field_separator)}[^#{Regexp.escape(segment_separator)}]*#{Regexp.escape(segment_separator)}")
+        end
+        #puts @regexp
+      end
+      @regexp
     end
 
     # Finds a field in the segment. Returns EMPTY if not found.

data/misc/997.d12

@@ -20,731 +20,9 @@
    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: 997.d12 36 2008-11-13 18:36:36Z ikk $
+   $Id: 997.d12 59 2009-03-19 22:32:13Z ikk $
 
 */
-table TblI01 {
-  00 No Authorization Information Present (No Meaningful Information in I02)
-  01 UCS Communications ID
-  02 EDX Communications ID
-  03 Additional Data Identification
-  04 Rail Communications ID
-  05 Department of Defense (DoD) Communication Identifier
-  06 United States Federal Government Communication Identifier
-} # TblI01
-
-table TblI03 {
-  00 No Security Information Present (No Meaningful Information in I04)
-  01 Password
-} # TblI01
-
-table TblI05 {
-  01 Duns (Dun & Bradstreet)
-  02 SCAC (Standard Carrier Alpha Code)
-  03 FMC (Federal Maritime Commission)
-  04 IATA (International Air Transport Association)
-  08 UCC EDI Communications ID (Comm ID)
-  09 X.121 (CCITT)
-  10 Department of Defense (DoD) Activity Address Code
-  11 DEA (Drug Enforcement Administration)
-  12 Phone (Telephone Companies)
-  13 UCS Code (The UCS Code is a Code Used for UCS Transmissions; it includes the Area Code and Telephone Number of a Modem; it Does Not Include Punctuation, Blanks or Access Code)
-  14 Duns Plus Suffix
-  15 Petroleum Accountants Society of Canada Company Code
-  16 Duns Number With 4-Character Suffix
-  17 American Bankers Association (ABA) Transit Routing Number (Including Check Digit, 9 Digit)
-  18 Association of American Railroads (AAR) Standard Distribution Code
-  19 EDI Council of Australia (EDICA) Communications ID Number (COMM ID)
-  20 Health Industry Number (HIN)
-  21 Integrated Postsecondary Education Data System, or (IPEDS)
-  22 Federal Interagency Commission on Education, or FICE
-  23 National Center for Education Statistics Common Core of Data 12-Digit Number for Pre-K-Grade 12 Institutes, or NCES
-  24 The College Board's Admission Testing Program 4-Digit Code of Postsecondary Institutes, or ATP
-  25 American College Testing Program 4-Digit Code of Postsecondary Institutions, or ACT
-  26 Statistics of Canada List of Postsecondary Institutions
-  27 Carrier Identification Number as assigned by Health Care Financing Administration (HCFA)
-  28 Fiscal Intermediary Identification Number as assigned by Health Care Financing Administration (HCFA)
-  29 Medicare Provider and Supplier Identification Number as assigned by Health Care Financing Administration (HCFA)
-  30 U.S. Federal Tax Identification Number
-  31 Jurisdiction Identification Number Plus 4 as assigned by the International Association of Industrial Accident Boards and Commissions (IAIABC)
-  32 U.S. Federal Employer Identification Number (FEIN)
-  33 National Association of Insurance Commissioners Company Code (NAIC)
-  34 Medicaid Provider and Supplier Identification Number as assigned by individual State Medicaid Agencies in conjunction with Health Care Financing Administration (HCFA)
-  35 Statistics Canada Canadian College Student Information System Institution Codes
-  36 Statistics Canada University Student Information System Institution Codes
-  37 Society of Property Information Compilers and Analysts
-  AM Association Mexicana del Codigo de Producto (AMECOP) Communication ID
-  NR National Retail Merchants Association (NRMA) - Assigned
-  SN Standard Address Number
-  ZZ Mutually Defined
-} # TblI05
-
-table TblI10 {
-  U U.S. EDI Community of ASC X12, TDCC, and UCS
-} # TblI10
-
-table TblI11 {
-  00200 Standard Issued as ANSI X12.5-1987
-  00201 Draft Standard for Trial Use Approved by ASC X12 Through August 1988
-  00204 Draft Standard for Trial Use Approved by ASC X12 Through May 1989
-  00300 Standard Issued as ANSI X12.5-1992
-  00301 Draft Standard for Trial Use Approved for Publication by ASC X12 Procedures Review Board Through October 1990
-  00302 Draft Standard for Trial Use Approved for Publication by ASC X12 Procedures Review Board Through October 1991
-  00303 Draft Standard for Trial Use Approved for Publication by ASC X12 Procedures Review Board Through October 1992
-  00304 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1993
-  00305 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1994
-  00306 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1995
-  00307 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1996
-  00400 Standard Issued as ANSI X12.5-1997
-  00401 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1997
-  00402 Draft Standards for Trial Use Approved for Publication by ASC X12 Procedures Review Board through October 1998
-} # TblI11
-
-table TblI13 {
-  0 No Acknowledgment Requested
-  1 Interchange Acknowledgment Requested
-} # TblI13
-
-table TblI14 {
-  I Information
-  P Production Data
-  T Test Data
-} # TblI14
-
-table Tbl143 {
-  100 Insurance Plan Description
-  101 Name and Address Lists
-  104 Air Shipment Information
-  105 Business Entity Filings
-  106 Motor Carrier Rate Proposal
-  107 Request for Motor Carrier Rate Proposal
-  108 Response to a Motor Carrier Rate Proposal
-  109 Vessel Content Details
-  110 Air Freight Details and Invoice
-  112 Property Damage Report
-  120 Vehicle Shipping Order
-  121 Vehicle Service
-  124 Vehicle Damage
-  125 Multilevel Railcar Load Details
-  126 Vehicle Application Advice
-  127 Vehicle Baying Order
-  128 Dealer Information
-  129 Vehicle Carrier Rate Update
-  130 Student Educational Record (Transcript)
-  131 Student Educational Record (Transcript) Acknowledgment
-  135 Student Loan Application
-  138 Testing Results Request and Report
-  139 Student Loan Guarantee Result
-  140 Product Registration
-  141 Product Service Claim Response
-  142 Product Service Claim
-  143 Product Service Notification
-  144 Student Loan Transfer and Status Verification
-  146 Request for Student Educational Record (Transcript)
-  147 Response to Request for Student Educational Record (Transcript)
-  148 Report of Injury, Illness or Incident
-  149 Notice of Tax Adjustment or Assessment
-  150 Tax Rate Notification
-  151 Electronic Filing of Tax Return Data Acknowledgment
-  152 Statistical Government Information
-  153 Unemployment Insurance Tax Claim or Charge Information
-  154 Uniform Commercial Code Filing
-  155 Business Credit Report
-  157 Notice of Power of Attorney
-  159 Motion Picture Booking Confirmation
-  160 Transportation Automatic Equipment Identification
-  161 Train Sheet
-  163 Transportation Appointment Schedule Information
-  170 Revenue Receipts Statement
-  175 Court and Law Enforcement Notice
-  176 Court Submission
-  180 Return Merchandise Authorization and Notification
-  185 Royalty Regulatory Report
-  186 Insurance Underwriting Requirements Reporting
-  188 Educational Course Inventory
-  189 Application for Admission to Educational Institutions
-  190 Student Enrollment Verification
-  191 Student Loan Pre-Claims and Claims
-  194 Grant or Assistance Application
-  195 Federal Communications Commission (FCC) License Application
-  196 Contractor Cost Data Reporting
-  197 Real Estate Title Evidence
-  198 Loan Verification Information
-  199 Real Estate Settlement Information
-  200 Mortgage Credit Report
-  201 Residential Loan Application
-  202 Secondary Mortgage Market Loan Delivery
-  203 Secondary Mortgage Market Investor Report
-  204 Motor Carrier Load Tender
-  205 Mortgage Note
-  206 Real Estate Inspection
-  210 Motor Carrier Freight Details and Invoice
-  211 Motor Carrier Bill of Lading
-  212 Motor Carrier Delivery Trailer Manifest
-  213 Motor Carrier Shipment Status Inquiry
-  214 Transportation Carrier Shipment Status Message
-  215 Motor Carrier Pick-up Manifest
-  216 Motor Carrier Shipment Pick-up Notification
-  217 Motor Carrier Loading and Route Guide
-  218 Motor Carrier Tariff Information
-  219 Logistics Service Request
-  220 Logistics Service Response
-  222 Cartage Work Assignment
-  223 Consolidators Freight Bill and Invoice
-  224 Motor Carrier Summary Freight Bill Manifest
-  225 Response to a Cartage Work Assignment
-  242 Data Status Tracking
-  244 Product Source Information
-  248 Account Assignment/Inquiry and Service/Status
-  249 Animal Toxicological Data
-  250 Purchase Order Shipment Management Document
-  251 Pricing Support
-  252 Insurance Producer Administration
-  255 Underwriting Information Services
-  256 Periodic Compensation
-  260 Application for Mortgage Insurance Benefits
-  261 Real Estate Information Request
-  262 Real Estate Information Report
-  263 Residential Mortgage Insurance Application Response
-  264 Mortgage Loan Default Status
-  265 Real Estate Title Insurance Services Order
-  266 Mortgage or Property Record Change Notification
-  267 Individual Life, Annuity and Disability Application
-  268 Annuity Activity
-  270 Eligibility, Coverage or Benefit Inquiry
-  271 Eligibility, Coverage or Benefit Information
-  272 Property and Casualty Loss Notification
-  273 Insurance/Annuity Application Status
-  275 Patient Information
-  276 Health Care Claim Status Request
-  277 Health Care Claim Status Notification
-  278 Health Care Services Review Information
-  280 Voter Registration Information
-  285 Commercial Vehicle Safety and Credentials Information Exchange
-  286 Commercial Vehicle Credentials
-  288 Wage Determination
-  290 Cooperative Advertising Agreements
-  300 Reservation (Booking Request) (Ocean)
-  301 Confirmation (Ocean)
-  303 Booking Cancellation (Ocean)
-  304 Shipping Instructions
-  306 Dock Receipt
-  309 U.S. Customs Manifest
-  310 Freight Receipt and Invoice (Ocean)
-  311 Canadian Customs Information
-  312 Arrival Notice (Ocean)
-  313 Shipment Status Inquiry (Ocean)
-  315 Status Details (Ocean)
-  317 Delivery/Pickup Order
-  319 Terminal Information
-  321 Demurrage Guarantee (Ocean)
-  322 Terminal Operations and Intermodal Ramp Activity
-  323 Vessel Schedule and Itinerary (Ocean)
-  324 Vessel Stow Plan (Ocean)
-  325 Consolidation of Goods in Container
-  326 Consignment Summary List
-  350 U.S. Customs Status Information
-  352 U.S. Customs Carrier General Order Status
-  353 U.S. Customs Events Advisory Details
-  354 U.S. Customs Automated Manifest Archive Status
-  355 U.S. Customs Acceptance/Rejection
-  356 U.S. Customs Permit to Transfer Request
-  357 U.S. Customs In-Bond Information
-  358 U.S. Customs Consist Information
-  361 Carrier Interchange Agreement (Ocean)
-  362 Cargo Insurance Advice of Shipment
-  404 Rail Carrier Shipment Information
-  410 Rail Carrier Freight Details and Invoice
-  411 Freight Details and Invoice Summary (Rail)
-  414 Rail Carhire Settlements
-  417 Rail Carrier Waybill Interchange
-  418 Rail Advance Interchange Consist
-  419 Advance Car Disposition
-  420 Car Handling Information
-  421 Estimated Time of Arrival and Car Scheduling
-  422 Shipper's Car Order
-  423 Rail Industrial Switch List
-  425 Rail Waybill Request
-  426 Rail Revenue Waybill
-  429 Railroad Retirement Activity
-  431 Railroad Station Master File
-  432 Rail Deprescription
-  433 Railroad Reciprocal Switch File
-  434 Railroad Mark Register Update Activity
-  435 Standard Transportation Commodity Code Master
-  436 Locomotive Information
-  437 Railroad Junctions and Interchanges Activity
-  440 Shipment Weights
-  451 Railroad Event Report
-  452 Railroad Problem Log Inquiry or Advice
-  453 Railroad Service Commitment Advice
-  455 Railroad Parameter Trace Registration
-  456 Railroad Equipment Inquiry or Advice
-  460 Railroad Price Distribution Request or Response
-  463 Rail Rate Reply
-  466 Rate Request
-  468 Rate Docket Journal Log
-  470 Railroad Clearance
-  475 Rail Route File Maintenance
-  485 Ratemaking Action
-  486 Rate Docket Expiration
-  490 Rate Group Definition
-  492 Miscellaneous Rates
-  494 Scale Rate Table
-  500 Medical Event Reporting
-  501 Vendor Performance Review
-  503 Pricing History
-  504 Clauses and Provisions
-  511 Requisition
-  517 Material Obligation Validation
-  521 Income or Asset Offset
-  527 Material Due-In and Receipt
-  536 Logistics Reassignment
-  540 Notice of Employment Status
-  561 Contract Abstract
-  567 Contract Completion Status
-  568 Contract Payment Management Report
-  601 U.S. Customs Export Shipment Information
-  602 Transportation Services Tender
-  620 Excavation Communication
-  622 Intermodal Ramp Activity
-  625 Well Information
-  650 Maintenance Service Order
-  715 Intermodal Group Loading Plan
-  805 Contract Pricing Proposal
-  806 Project Schedule Reporting
-  810 Invoice
-  811 Consolidated Service Invoice/Statement
-  812 Credit/Debit Adjustment
-  813 Electronic Filing of Tax Return Data
-  814 General Request, Response or Confirmation
-  815 Cryptographic Service Message
-  816 Organizational Relationships
-  818 Commission Sales Report
-  819 Operating Expense Statement
-  820 Payment Order/Remittance Advice
-  821 Financial Information Reporting
-  822 Account Analysis
-  823 Lockbox
-  824 Application Advice
-  826 Tax Information Exchange
-  827 Financial Return Notice
-  828 Debit Authorization
-  829 Payment Cancellation Request
-  830 Planning Schedule with Release Capability
-  831 Application Control Totals
-  832 Price/Sales Catalog
-  833 Mortgage Credit Report Order
-  834 Benefit Enrollment and Maintenance
-  835 Health Care Claim Payment/Advice
-  836 Procurement Notices
-  837 Health Care Claim
-  838 Trading Partner Profile
-  839 Project Cost Reporting
-  840 Request for Quotation
-  841 Specifications/Technical Information
-  842 Nonconformance Report
-  843 Response to Request for Quotation
-  844 Product Transfer Account Adjustment
-  845 Price Authorization Acknowledgment/Status
-  846 Inventory Inquiry/Advice
-  847 Material Claim
-  848 Material Safety Data Sheet
-  849 Response to Product Transfer Account Adjustment
-  850 Purchase Order
-  851 Asset Schedule
-  852 Product Activity Data
-  853 Routing and Carrier Instruction
-  854 Shipment Delivery Discrepancy Information
-  855 Purchase Order Acknowledgment
-  856 Ship Notice/Manifest
-  857 Shipment and Billing Notice
-  858 Shipment Information
-  859 Freight Invoice
-  860 Purchase Order Change Request - Buyer Initiated
-  861 Receiving Advice/Acceptance Certificate
-  862 Shipping Schedule
-  863 Report of Test Results
-  864 Text Message
-  865 Purchase Order Change Acknowledgment/Request - Seller Initiated
-  866 Production Sequence
-  867 Product Transfer and Resale Report
-  868 Electronic Form Structure
-  869 Order Status Inquiry
-  870 Order Status Report
-  871 Component Parts Content
-  872 Residential Mortgage Insurance Application
-  875 Grocery Products Purchase Order
-  876 Grocery Products Purchase Order Change
-  877 Manufacturer Coupon Family Code Structure
-  878 Product Authorization/De-Authorization
-  879 Price Information
-  880 Grocery Products Invoice
-  881 Manufacturer Coupon Redemption Detail
-  882 Direct Store Delivery Summary Information
-  883 Market Development Fund Allocation
-  884 Market Development Fund Settlement
-  885 Retail Account Characteristics
-  886 Customer Call Reporting
-  887 Coupon Notification
-  888 Item Maintenance
-  889 Promotion Announcement
-  891 Deduction Research Report
-  893 Item Information Request
-  894 Delivery/Return Base Record
-  895 Delivery/Return Acknowledgment or Adjustment
-  896 Product Dimension Maintenance
-  920 Loss or Damage Claim - General Commodities
-  924 Loss or Damage Claim - Motor Vehicle
-  925 Claim Tracer
-  926 Claim Status Report and Tracer Reply
-  928 Automotive Inspection Detail
-  940 Warehouse Shipping Order
-  943 Warehouse Stock Transfer Shipment Advice
-  944 Warehouse Stock Transfer Receipt Advice
-  945 Warehouse Shipping Advice
-  947 Warehouse Inventory Adjustment Advice
-  980 Functional Group Totals
-  990 Response To a Load Tender
-  994 Administrative Message
-  996 File Transfer
-  997 Functional Acknowledgment
-  998 Set Cancellation
-} # Tbl143
-
-table Tbl479 {
-  AA Account Analysis (822)
-  AB Logistics Service Request (219)
-  AD Individual Life, Annuity and Disability Application (267)
-  AF Application for Admission to Educational Institutions (189)
-  AG Application Advice (824)
-  AH Logistics Service Response (220)
-  AI Automotive Inspection Detail (928)
-  AK Student Educational Record (Transcript) Acknowledgment (131)
-  AL Set Cancellation (998) and Application Acceptance/Rejection Advice (499)
-  AN Return Merchandise Authorization and Notification (180)
-  AO Income or Asset Offset (521)
-  AR Warehouse Stock Transfer Shipment Advice (943)
-  AS Transportation Appointment Schedule Information (163)
-  AT Animal Toxicological Data (249)
-  AW Warehouse Inventory Adjustment Advice (947)
-  BC Business Credit Report (155)
-  BE Benefit Enrollment and Maintenance (834)
-  BF Business Entity Filings (105)
-  BL Motor Carrier Bill of Lading (211)
-  BS Shipment and Billing Notice (857)
-  CA Purchase Order Change Acknowledgment/Request - Seller Initiated (865)
-  CB Unemployment Insurance Tax Claim or Charge Information (153)
-  CC Clauses and Provisions (504)
-  CD Credit/Debit Adjustment (812)
-  CE Cartage Work Assignment (222)
-  CF Corporate Financial Adjustment Information (844 and 849)
-  CG Administrative Message (994)
-  CH Car Handling Information (420)
-  CI Consolidated Service Invoice/Statement (811)
-  CJ Manufacturer Coupon Family Code Structure (877)
-  CK Manufacturer Coupon Redemption Detail (881)
-  CM Component Parts Content (871)
-  CN Coupon Notification (887)
-  CO Cooperative Advertising Agreements (290)
-  CP Electronic Proposal Information (251, 805)
-  CR Rail Carhire Settlements (414)
-  CS Cryptographic Service Message (815)
-  CT Application Control Totals (831)
-  CV Commercial Vehicle Safety and Credentials Information Exchange (285)
-  D3 Contract Completion Status (567)
-  D4 Contract Abstract (561)
-  D5 Contract Payment Management Report (568)
-  DA Debit Authorization (828)
-  DD Shipment Delivery Discrepancy Information (854)
-  DF Market Development Fund Allocation (883)
-  DI Dealer Information (128)
-  DM Shipper's Car Order (422)
-  DS Data Status Tracking (242)
-  DX Direct Exchange Delivery and Return Information (894, 895)
-  EC Educational Course Inventory (188)
-  ED Student Educational Record (Transcript) (130)
-  EI Railroad Equipment Inquiry or Advice (456)
-  ER Revenue Receipts Statement (170)
-  ES Notice of Employment Status (540)
-  EV Railroad Event Report (451)
-  EX Excavation Communication (620)
-  FA Functional Acknowledgment (997)
-  FB Freight Invoice (859)
-  FC Court and Law Enforcement Information (175, 176)
-  FG Motor Carrier Loading and Route Guide (217)
-  FH Motor Carrier Tariff Information (218)
-  FR Financial Reporting (821, 827)
-  FT File Transfer (996)
-  GB Average Agreement Demurrage (423)
-  GC Damage Claim Transaction Sets (920, 924, 925, 926)
-  GE General Request, Response or Confirmation (814)
-  GF Response to a Load Tender (990)
-  GL Intermodal Group Loading Plan (715)
-  GP Grocery Products Invoice (880)
-  GR Statistical Government Information (152)
-  GT Grant or Assistance Application (194)
-  HB Eligibility, Coverage or Benefit Information (271)
-  HC Health Care Claim (837)
-  HI Health Care Services Review Information (278)
-  HN Health Care Claim Status Notification (277)
-  HP Health Care Claim Payment/Advice (835)
-  HR Health Care Claim Status Request (276)
-  HS Eligibility, Coverage or Benefit Inquiry (270)
-  IA Air Freight Details and Invoice (110, 980)
-  IB Inventory Inquiry/Advice (846)
-  IC Rail Advance Interchange Consist (418)
-  ID Insurance/Annuity Application Status (273)
-  IE Insurance Producer Administration (252)
-  IG Direct Store Delivery Summary Information (882)
-  II Rail Freight Details and Invoice Summary (411)
-  IJ Report of Injury, Illness or Incident (148)
-  IM Motor Carrier Freight Details and Invoice (210, 980)
-  IN Invoice Information (810,819)
-  IO Ocean Shipment Billing Details (310, 312, 980)
-  IP Intermodal Ramp Activity (622)
-  IR Rail Carrier Freight Details and Invoice (410, 980)
-  IS Estimated Time of Arrival and Car Scheduling (421)
-  KM Commercial Vehicle Credentials (286)
-  LA Federal Communications Commission (FCC) License Application (195)
-  LB Lockbox (823)
-  LI Locomotive Information (436)
-  LN Property and Casualty Loss Notification (272)
-  LR Logistics Reassignment (536)
-  LS Asset Schedule (851)
-  LT Student Loan Transfer and Status Verification (144)
-  MA Motor Carrier Summary Freight Bill Manifest (224)
-  MC Request for Motor Carrier Rate Proposal (107)
-  MD Department of Defense Inventory Management (527)
-  ME Mortgage Origination (198, 200, 201, 261, 262, 263, 833, 872)
-  MF Market Development Funds Settlement (884)
-  MG Mortgage Servicing Transaction Sets (203, 206, 260, 264, 266)
-  MH Motor Carrier Rate Proposal (106)
-  MI Motor Carrier Shipment Status Inquiry (213)
-  MJ Secondary Mortgage Market Loan Delivery (202)
-  MK Response to a Motor Carrier Rate Proposal (108)
-  MM Medical Event Reporting (500)
-  MN Mortgage Note (205)
-  MO Maintenance Service Order (650)
-  MP Motion Picture Booking Confirmation (159)
-  MQ Consolidators Freight Bill and Invoice (223)
-  MR Multilevel Railcar Load Details (125)
-  MS Material Safety Data Sheet (848)
-  MT Electronic Form Structure (868)
-  MV Material Obligation Validation (517)
-  MW Rail Waybill Response (427)
-  MX Material Claim (847)
-  MY Response to a Cartage Work Assignment (225)
-  NC Nonconformance Report (842)
-  NL Name and Address Lists (101)
-  NP Notice of Power of Attorney (157)
-  NT Notice of Tax Adjustment or Assessment (149)
-  OC Cargo Insurance Advice of Shipment (362)
-  OG Order Group - Grocery (875, 876)
-  OR Organizational Relationships (816)
-  OW Warehouse Shipping Order (940)
-  PA Price Authorization Acknowledgment/Status (845)
-  PB Railroad Parameter Trace Registration (455)
-  PC Purchase Order Change Request - Buyer Initiated (860)
-  PD Product Activity Data (852)
-  PE Periodic Compensation (256)
-  PF Annuity Activity (268)
-  PG Insurance Plan Description (100)
-  PH Pricing History (503)
-  PI Patient Information (275)
-  PJ Project Schedule Reporting (806)
-  PK Project Cost Reporting (839) and Contractor Cost Data Reporting (196)
-  PL Railroad Problem Log Inquiry or Advice (452)
-  PN Product Source Information (244)
-  PO Purchase Order (850)
-  PQ Property Damage Report (112)
-  PR Purchase Order Acknowledgement (855)
-  PS Planning Schedule with Release Capability (830)
-  PT Product Transfer and Resale Report (867)
-  PU Motor Carrier Shipment Pick-up Notification (216)
-  PV Purchase Order Shipment Management Document (250)
-  PY Payment Cancellation Request (829)
-  QG Product Information (878, 879, 888, 889, 893, 896)
-  QM Transportation Carrier Shipment Status Message (214)
-  QO Ocean Shipment Status Information (313, 315)
-  RA Payment Order/Remittance Advice (820)
-  RB Railroad Clearance (470)
-  RC Receiving Advice/Acceptance Certificate (861)
-  RD Royalty Regulatory Report (185)
-  RE Warehouse Stock Receipt Advice (944)
-  RH Railroad Reciprocal Switch File (433)
-  RI Routing and Carrier Instruction (853)
-  RJ Railroad Mark Register Update Activity (434)
-  RK Standard Transportation Commodity Code Master (435)
-  RL Rail Industrial Switch List (423)
-  RM Railroad Station Master File (431)
-  RN Requisition Transaction (511)
-  RO Ocean Booking Information (300, 301,303)
-  RP Commission Sales Report (818)
-  RQ Request for Quotation (840) and Procurement Notices (836)
-  RR Response to Request For Quotation (843)
-  RS Order Status Information (869, 870)
-  RT Report of Test Results (863)
-  RU Railroad Retirement Activity (429)
-  RV Railroad Junctions and Interchanges Activity (437)
-  RW Rail Revenue Waybill (426)
-  RX Rail Deprescription (432)
-  RY Request for Student Educational Record (Transcript) (146)
-  RZ Response to Request for Student Educational Record (Transcript) (147)
-  SA Air Shipment Information (104)
-  SB Switch Rails (424)
-  SC Price/Sales Catalog (832)
-  SD Student Loan Pre-Claims and Claims (191)
-  SE Shipper's Export Declaration (601)
-  SG SG Receiving Advice - Grocery (885)
-  SH Ship Notice/Manifest (856)
-  SI Shipment Information (858)
-  SJ Transportation Automatic Equipment Identification (160)
-  SL Student Loan Application and Guarantee (135, 139)
-  SM Motor Carrier Load Tender (204)
-  SN Rail Route File Maintenance (475)
-  SO Ocean Shipment Information (304, 306, 309, 311, 317, 319, 321, 322, 323, 324, 325, 350, 352, 353, 354, 355, 356, 357, 358, 361)
-  SP Specifications/Technical Information (841)
-  SQ Production Sequence (866)
-  SR Rail Carrier Shipment Information (404, 419)
-  SS Shipping Schedule (862)
-  ST Railroad Service Commitment Advice (453)
-  SU Account Assignment/Inquiry and Service/Status (248)
-  SV Student Enrollment Verification (190)
-  SW Warehouse Shipping Advice (945)
-  TA Electronic Filing of Tax Return Data Acknowledgment (151)
-  TC Court Submission (176)
-  TD Trading Partner Profile (838)
-  TF Electronic Filing of Tax Return Data (813)
-  TI Tax Information Exchange (826)
-  TM Motor Carrier Delivery Trailer Manifest (212)
-  TN Tax Rate Notification (150)
-  TO Real Estate Title Services (197, 199, 265)
-  TP Rail Rate Transactions (460, 463, 466, 468, 485, 486, 490, 492, 494)
-  TR Train Sheet (161)
-  TS Transportation Services Tender (602)
-  TT Testing Results Request and Report (138)
-  TX Text Message (864)
-  UA Retail Account Characteristics (885)
-  UB Customer Call Reporting (886)
-  UC Uniform Commercial Code Filing (154)
-  UD Deduction Research Report (891)
-  UI Underwriting Information Services (255)
-  UP Motor Carrier Pick-up Manifest (215)
-  UW Insurance Underwriting Requirements Reporting (186)
-  VA Vehicle Application Advice (126)
-  VB Vehicle Baying Order (127)
-  VC Vehicle Shipping Order (120)
-  VD Vehicle Damage (124)
-  VE Vessel Content Details (109)
-  VH Vehicle Carrier Rate Update (129)
-  VI Voter Registration Information (280)
-  VS Vehicle Service (121)
-  WA Product Service Transaction Sets (140, 141, 142, 143)
-  WB Rail Carrier Waybill Interchange (417)
-  WG Vendor Performance Review (501)
-  WI Wage Determination (288)
-  WL Well Information (625)
-  WR Shipment Weights (440)
-  WT Rail Waybill Request (425)
-} # Tbl479
-
-table Tbl715 {
-  A Accepted
-  E Accepted, But Errors Were Noted.
-  M Rejected, Message Authentication Code (MAC) Failed
-  P Partially Accepted, At Least One Transaction Set Was Rejected
-  R Rejected
-  W Rejected, Assurance Failed Validity Tests
-  X Rejected, Content After Decryption Could Not Be Analyzed
-} # Tbl715
-
-table Tbl716 {
-  1 Functional Group Not Supported
-  2 Functional Group Version Not Supported
-  3 Functional Group Trailer Missing
-  4 Group Control Number in the Functional Group Header and Trailer Do Not Agree
-  5 Number of Included Transaction Sets Does Not Match Actual Count
-  6 Group Control Number Violates Syntax
-  10 Authentication Key Name Unknown
-  11 Encryption Key Name Unknown
-  12 Requested Service (Authentication or Encryption) Not Available
-  13 Unknown Security Recipient
-  14 Unknown Security Originator
-  15 Syntax Error in Decrypted Text
-  16 Security Not Supported
-  17 Incorrect Message Length (Encryption Only)
-  18 Message Authentication Code Failed
-  19 S1E Security End Segment Missing for S1S Security Start Segment
-  20 S1S Security Start Segment Missing for S1E End Segment
-  21 S2E Security End Segment Missing for S2S Security Start Segment
-  22 S2S Security Start Segment Missing for S2E Security End Segment
-  23 S3E Security End Segment Missing for S3S Security Start Segment
-  24 S3S Security Start Segment Missing for S3E End Segment
-  25 S4E Security End Segment Missing for S4S Security Start Segment
-  26 S4S Security Start Segment Missing for S4E Security End Segment
-} # Tbl716
-
-table Tbl717 {
-  A Accepted
-  E Accepted But Errors Were Noted
-  M Rejected, Message Authentication Code (MAC) Failed
-  R Rejected
-  W Rejected, Assurance Failed Validity Tests
-  X Rejected, Content After Decryption Could Not Be Analyzed
-} # Tbl717
-
-table Tbl718 {
-  1 Transaction Set Not Supported
-  2 Transaction Set Trailer Missing
-  3 Transaction Set Control Number in Header and Trailer Do Not Match
-  4 Number of Included Segments Does Not Match Actual Count
-  5 One or More Segments in Error
-  6 Missing or Invalid Transaction Set Identifier
-  7 Missing or Invalid Transaction Set Control Number
-  8 Authentication Key Name Unknown
-  9 Encryption Key Name Unknown
-  10 Requested Service (Authentication or Encrypted) Not Available
-  11 Unknown Security Recipient
-  12 Incorrect Message Length (Encryption Only)
-  13 Message Authentication Code Failed
-  15 Unknown Security Originator
-  16 Syntax Error in Decrypted Text
-  17 Security Not Supported
-  19 S1E Security End Segment Missing for S1S Security Start Segment
-  20 S1S Security Start Segment Missing for S1E Security End Segment
-  21 S2E Security End Segment Missing for S2S Security Start Segment
-  22 S2S Security Start Segment Missing for S2E Security End Segment
-  23 Transaction Set Control Number Not Unique within the Functional Group
-  24 S3E Security End Segment Missing for S3S Security Start Segment
-  25 S3S Security Start Segment Missing for S3E Security End Segment
-  26 S4E Security End Segment Missing for S4S Security Start Segment
-  27 S4S Security Start Segment Missing for S4E Security End Segment
-} # Tbl718
-
-table Tbl720 {
-  1 Unrecognized segment ID
-  2 Unexpected segment
-  3 Mandatory segment missing
-  4 Loop Occurs Over Maximum Times
-  5 Segment Exceeds Maximum Use
-  6 Segment Not in Defined Transaction Set
-  7 Segment Not in Proper Sequence
-  8 Segment Has Data Element Errors
-} # Tbl720
-
-table Tbl723 {
-  1 Mandatory data element missing
-  2 Conditional required data element missing.
-  3 Too many data elements.
-  4 Data element too short.
-  5 Data element too long.
-  6 Invalid character in data element.
-  7 Invalid code value.
-  8 Invalid Date
-  9 Invalid Time
-  10 Exclusion Condition Violated
-} # Tbl723
 
 /* Code indicating the relative position of a simple data element, or
 the relative position of a composite data structure combined with the
@@ -758,51 +36,6 @@ composite C030 {
   ComponentDataElementPositionInComposite I O 1-2   /* To identify the component data element position within the composite that is in error */
 } # C030
 
-/* To define the end of an interchange of zero or more functional
-groups and interchange-related control segments */
-
-segment IEA {
-  NumberOfIncludedFunctionalGroups        I R 1-5 /* A count of the number of functional groups included in an interchange */
-  InterchangeControlNumber                I R 9-9 /* A control number assigned by the interchange sender */
-} # IEA
-
-/* To start and identify an interchange of zero or more functional
-groups and interchange-related control segments */
-
-segment ISA {
-  AuthorizationInformationQualifier       S R 2-2   TblI01 /* Code to identify the type of information in the Authorization Information */
-  AuthorizationInformation                S R 10-10        /* Information used for additional identification or authorization of the interchange sender or the data in the interchange; the type of information is set by the Authorization Information Qualifier (I01) */
-  SecurityInformationQualifier            S R 2-2   TblI03 /* Code to identify the type of information in the Security Information */
-  SecurityInformation                     S R 10-10        /* This is used for identifying the security information about the interchange sender or the data in the interchange; the type of information is set by the Security Information Qualifier (I03) */
-  InterchangeIdQualifier1                 S R 2-2   TblI05 /* Qualifier to designate the system/method of code structure used to designate the sender or receiver ID element being qualified */
-  InterchangeSenderId                     S R 15-15        /* Identification code published by the sender for other parties to use as the receiver ID to route data to them; the sender always codes this value in the sender ID element */
-  InterchangeIdQualifier2                 S R 2-2         
-  InterchangeReceiverId                   S R 15-15        /* Identification code published by the receiver of the data; When sending, it is used by the sender as their sending ID, thus other parties sending to them will use this as a receiving ID to route data to them */
-  InterchangeDate                         S R 6-6          /* Date of the interchange */
-  InterchangeTime                         S R 4-4          /* Time of the interchange */
-  InterchangeControlStandardsIdentifier   S R 1-1   TblI10 /* Code to identify the agency responsible for the control standard used by the message that is enclosed by the interchange header and trailer */
-  InterchangeControlVersionNumber         S R 5-5   TblI11 /* This version number covers the interchange control segments */
-  InterchangeControlNumber                I R 9-9          /* A control number assigned by the interchange sender */
-  AcknowledgmentRuested                   S R 1-1   TblI13 /* Code sent by the sender to request an interchange acknowledgment (TA1) */
-  UsageIndicator                          S R 1-1   TblI14 /* Code to indicate whether data enclosed by this interchange envelope is test, production or information */
-  ComponentElementSeparator               S R 1-1          /* Type is not applicable; the component element separator is a delimiter and not a data element; this field provides the delimiter used to separate component data elements within a composite data structure; this value must be different than the data element separator and the segment terminator */
-} # ISA
-
-/* To indicate the end of the transaction set and provide the count of
-the transmitted segments (including the beginning (ST) and ending (SE)
-segments) */
-
-segment SE {
-  NumberOfIncludedSegments                I R 1-10         /* Total number of segments included in a transaction set including ST and SE segments */
-  TransactionSetControlNumber             S R 4-9          /* Identifying control number that must be unique within the transaction set functional group assigned by the originator for a transaction set */
-} # SE
-
-/* To indicate the start of a transaction set and to assign a control number */
-segment ST {
-  TransactionSetIdentifierCode            S R 3-3   Tbl143 /* Code uniquely identifying a Transaction Set */
-  TransactionSetControlNumber             S R 4-9          /* Identifying control number that must be unique within the transaction set functional group assigned by the originator for a transaction set */
-} # ST
-
 /* To start acknowledgment of a functional group */
 segment AK1 {
   FunctionalIdentifierCode                S R 2-2 Tbl479   /* Code identifying a group of application related transaction sets */
@@ -866,15 +99,15 @@ grouped in functional groups, used in defining transactions for
 business data interchange. This standard does not cover the semantic
 meaning of the information encoded in the transaction sets. */
 
-loop 997 1:1
-{
-  segment ST  1:1
+loop 997 1:1 {
+  segment ST 1:1 {
+    TransactionSetIdentifierCode           "997" R 3-3      /* Code uniquely identifying a Transaction Set */
+    TransactionSetControlNumber            S R 4-9          /* Identifying control number that must be unique within the transaction set functional group assigned by the originator for a transaction set */
+  } # ST
   segment AK1 1:1
-  loop L1000 0:999999
-  {
+  loop L1000 0:999999 {
     segment AK2 0:1
-    loop L1010 0:999999
-    {
+    loop L1010 0:999999 {
       segment AK3 0:1
       segment AK4 0:99
     } # L1010