stupidedi 1.2.17 → 1.2.18

data/lib/stupidedi/guides/005010/guide_builder.rb

@@ -110,8 +110,8 @@ module Stupidedi
 
                 # ComponentElementUses
                 component_index = "00"
-                component_uses  = e_arguments.zip(u.definition.component_uses).map do |e, c|
-                  c_tag, c_requirement, c_name, c_arguments = e
+                component_uses  = e_arguments.zip(u.definition.component_uses).map do |e1, c|
+                  c_tag, c_requirement, c_name, c_arguments = e1
                   # component_index.succ!
                   component_index = component_index.succ
 

data/lib/stupidedi/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Stupidedi
-  VERSION = "1.2.17"
+  VERSION = "1.2.18"
 end

data/lib/stupidedi/versions/functional_groups/004010/element_defs.rb

@@ -4048,6 +4048,10 @@ module Stupidedi
           E205  = t::Nn.new(:E205 , "Dunnage"                              , 1, 6, 0)
           E206  = t::AN.new(:E206 , "Equipment Initial"                    , 1, 4)
           E207  = t::AN.new(:E207 , "Equipment Number"                     , 1, 10)
+          E208  = t::ID.new(:E208 , "Hazardous Material Code Qualifier"    , 1, 1,
+            s::CodeList.build(
+              "D" => "Hazardous Material Code Qualifier"))
+          E209  = t::ID.new(:E209 , "Hazardous Material Class Code Description", 3, 3)
           E211  = t::ID.new(:E215 , "Packaging Form Code"                  , 3, 3)
           E212  = t:: R.new(:E212 , "Unit Price"                           , 1, 17)
           E213  = t::Nn.new(:E213 , "Lading Line Item Number"              , 1, 3, 0)
@@ -6288,7 +6292,8 @@ module Stupidedi
               "I"  => "Item",
               "S"  => "Shipment",
               "T"  => "Shipping Tare",
-              "P"  => "Pack"))
+              "P"  => "Pack",
+              "O"  => "Order"))
 
           E736  = t::ID.new(:E736 , "Hierarchical Child Code"              , 1, 1,
             s::CodeList.build(

data/lib/stupidedi/versions/functional_groups/004010/element_types/time_val.rb

@@ -291,6 +291,7 @@ module Stupidedi
                 second = object.to_s.slice(4, 2).try{|ss| ss.to_d unless ss.blank? }
 
                 if decimal = object.to_s.slice(6..-1)
+                  decimal = 0 if decimal.empty?
                   second += "0.#{decimal}".to_d
                 end
 

data/lib/stupidedi/versions/functional_groups/004010/segment_defs.rb

@@ -37,6 +37,9 @@ module Stupidedi
           autoload :BEG,
             "stupidedi/versions/functional_groups/004010/segment_defs/BEG"
 
+          autoload :BAK,
+            "stupidedi/versions/functional_groups/004010/segment_defs/BAK"
+
           autoload :BPR,
             "stupidedi/versions/functional_groups/004010/segment_defs/BPR"
 
@@ -201,6 +204,9 @@ module Stupidedi
           autoload :PER,
             "stupidedi/versions/functional_groups/004010/segment_defs/PER"
 
+          autoload :PRF,
+            "stupidedi/versions/functional_groups/004010/segment_defs/PRF"
+
           autoload :PID,
             "stupidedi/versions/functional_groups/004010/segment_defs/PID"
 
@@ -234,6 +240,9 @@ module Stupidedi
           autoload :TD3,
             "stupidedi/versions/functional_groups/004010/segment_defs/TD3"
 
+          autoload :TD4,
+            "stupidedi/versions/functional_groups/004010/segment_defs/TD4"
+
           autoload :TRN,
             "stupidedi/versions/functional_groups/004010/segment_defs/TRN"
 

data/lib/stupidedi/versions/functional_groups/004010/segment_defs/BAK.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+module Stupidedi
+  module Versions
+    module FunctionalGroups
+      module FortyTen
+        module SegmentDefs
+
+          s = Schema
+          e = ElementDefs
+          r = ElementReqs
+
+          BAK = s::SegmentDef.build(:BAK, "Beginning Segment for Purchase Order Acknowledgment",
+            "To indicate the beginning of the Purchase Order Acknowledgment Transaction Set and transmit identifying numbers and dates",
+            e::E353 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
+            e::E587 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
+            e::E324 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
+            e::E373 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
+            e::E367 .simple_use(r::Optional,   s::RepeatCount.bounded(1)))
+
+        end
+      end
+    end
+  end
+end

data/lib/stupidedi/versions/functional_groups/004010/segment_defs/PRF.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+module Stupidedi
+  module Versions
+    module FunctionalGroups
+      module FortyTen
+        module SegmentDefs
+
+          s = Schema
+          e = ElementDefs
+          r = ElementReqs
+
+          PRF = s::SegmentDef.build(:PRF, "Purchase Order Reference",
+            "To provide reference to a specific purchase order",
+            e::E324 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)))
+
+        end
+      end
+    end
+  end
+end

data/lib/stupidedi/versions/functional_groups/004010/segment_defs/TD4.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+module Stupidedi
+  module Versions
+    module FunctionalGroups
+      module FortyTen
+        module SegmentDefs
+
+          s = Schema
+          e = ElementDefs
+          r = ElementReqs
+
+        # Definition might be outdated, working from ANSI X12 2001 specification
+
+          TD4 = s::SegmentDef.build(:TD4, "Carrier Details (Special Handling, or Hazardous Materials, or Both)",
+            "To specify transportation special handling requirements, or hazardous materials information, or both",
+            e::E152 .simple_use(r::Mandatory, s::RepeatCount.bounded(2)),
+            e::E208 .simple_use(r::Mandatory, s::RepeatCount.bounded(1)),
+            e::E209 .simple_use(r::Mandatory, s::RepeatCount.bounded(1)),
+            e::E352 .simple_use(r::Mandatory, s::RepeatCount.bounded(1)),
+            e::E1073.simple_use(r::Mandatory, s::RepeatCount.bounded(1)))
+
+        end
+      end
+    end
+  end
+end

data/lib/stupidedi/versions/functional_groups/004010/segment_defs/TD5.rb

@@ -14,8 +14,8 @@ module Stupidedi
             e::E133.simple_use(r::Optional,  s::RepeatCount.bounded(1)),
             e::E66 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
             e::E67 .simple_use(r::Mandatory,  s::RepeatCount.bounded(1)),
-            e::E91 .simple_use(r::Relational, s::RepeatCount.bounded(1)))
-
+            e::E91 .simple_use(r::Relational, s::RepeatCount.bounded(1)),
+            e::E387.simple_use(r::Relational, s::RepeatCount.bounded(1)))
         end
       end
     end

data/lib/stupidedi/versions/functional_groups/005010/element_defs.rb

@@ -185,7 +185,7 @@ module Stupidedi
               "3L"  => "Branch Identifier",
               "4A"  => "Personal Identification Number (PIN)",
               "4N"  => "Special Payment Reference Number",
-	      "49"  => "Family Unit Number",
+              "49"  => "Family Unit Number",
               "60"  => "Account Suffix Code",
               "6M"  => "Application Number",
               "6O"  => "Cross Reference Number",
@@ -196,7 +196,7 @@ module Stupidedi
               "9C"  => "Adjusted Repriced Claim Reference Number",
               "9D"  => "Adjusted Repriced Line Item Reference Number",
               "9F"  => "Referral Number",
-	      "9K"  => "Servicer",
+              "9K"  => "Servicer",
               "9V"  => "Payment Category",
               "9X"  => "Account Category",
               "ABB" => "Personal ID Number",
@@ -236,7 +236,7 @@ module Stupidedi
               "G1"  => "Prior Authorization Number",
               "G2"  => "Provider Commercial Number",
               "G3"  => "Predetermination of Benefits Identification Number",
-	      "GH"  => "Identification Card Serial Number",
+              "GH"  => "Identification Card Serial Number",
               "G4"  => "Peer Review Organization (PRO) Approval Number",
               "GE"  => "Geographic Number",
               "HI"  => s::CodeList.external("121"),
@@ -284,6 +284,7 @@ module Stupidedi
             s::CodeList.build(
               "270" => "Eligibility, Coverage, or Benefit Inquiry",
               "271" => "Eligibility, Coverage, or Benefit Information",
+              "276" => "Health Care Claim Status Request",
               "277" => "Health Care Information Status Notification",
               "834" => "Benefit Enrollment and Maintenance",
               "835" => "Health Care Claim Payment/Advice",
@@ -653,6 +654,7 @@ module Stupidedi
               "N8"  => "Miscellaneous Taxes",
               "NL"  => "Negative Ledger Balance",
               "P3"  => "Premium Amount",
+              "T3"  => "Total Submitted Charges",
 	       "PB"  => "Billed Amount",
               "R"   => "Spend Down",
               "T"   => "Tax",
@@ -1226,6 +1228,7 @@ module Stupidedi
           E954  = t:: R.new(:E954 , "Percentage as Decimal"                , 1,  10)
           E1005 = t::ID.new(:E1005, "Hierarchical Structure Code"          , 4, 4,
             s::CodeList.build(
+              "0010" => "Information Source, Information Receiver, Provider of Service, Subscriber, Dependent",
               "0019" => "Information Source, Subscriber, Dependent",
               "0022" => "Information Source, Information Receiver, Subscriber, Dependent",
               "0085" => "Information Source, Information Receiver, Provider of Service, Patient"))

data/spec/examples/integration/parsing/005010/X091A1-HP835.example

@@ -0,0 +1,94 @@
+require "spec_helper"
+using Stupidedi::Refinements
+
+describe "X091A1-HP835" do
+  include NavigationMatchers
+  let(:parser) { Fixtures.file("X091A1-HP835/1-good.txt") }
+
+  context 'parser' do
+    let(:iea) { parser.segment.fetch }
+
+    it 'is deterministic' do
+      expect(parser).to be_deterministic
+      expect(parser).to be_last
+    end
+
+    it 'infers separators' do
+      expect(parser).to have_separators(
+        :element => "|",
+        :component => "^",
+        :repetition => nil,
+        :segment => "~"
+      )
+    end
+
+    it 'knows iea position' do
+      expect(iea.node.position.line).to eq(1)
+      expect(iea.node.position.column).to eq(606)
+    end
+  end
+
+  context 'structure' do
+    let(:isa) { parser.parent.fetch }
+
+    it 'has defined sequence' do
+      expect(parser).to have_sequence(%w(ISA GS ST BPR TRN REF N1 N3 N4 REF PER N1
+        REF LX CLP CAS NM1 PLB SE GE IEA))
+    end
+
+    it 'is correct' do
+      expect(isa).to have_distance(20).to(parser)
+      expect(isa).to have_structure(
+        Ss(X(:ST),
+          R(:ISA), # No more ISAs
+          S(:GS, "HP", "MADE UP CLEARING HOUSE", "611358935", "20130508", nil, "3063") =>
+          Ss(R(:GS), # No more GSs
+                S(:ST) =>
+                  Ss(R(:ST), # No more STs
+                     S(:BPR, nil, nil) =>
+                       Ss(S(:TRN),
+                          S(:N1, "PR"),
+                          S(:N1, "PE"),
+                          S(:LX, "1"),
+                          S(:PLB),
+                          S(:SE),
+                          S(:GE),
+                          S(:IEA)),
+                     S(:TRN, "1", "74122910359") =>
+                       Ss(X(:BPR)),
+
+                     # 1000A PAYER IDENTIFICATION
+                     S(:N1, "PR", "MADE UP HEALTH CENTER") =>
+                       Ss(S(:N3, "123 FAKE ST."),
+                          S(:N4),
+                          S(:REF, "2U", "80214"),
+                          S(:SE),
+                          S(:GE),
+                          S(:IEA)),
+
+                     # 1000B PAYEE IDENTIFICATION
+                     S(:N1, "PE", nil, "XX", "1386672277") =>
+                       Ss(S(:REF, "TJ"),
+                          S(:SE),
+                          S(:GE),
+                          S(:IEA)),
+
+                     # 2000 HEADER NUMBER
+                     S(:LX, "1") =>
+                       Ss(
+                        S(:CLP) =>
+                          Ss(S(:CAS, "PI", 23, "157.39"),
+                               S(:NM1, "QC", nil, "DOE"))),
+
+                     S(:PLB, "341491692") =>
+                       Ss(S(:SE, 17, '0001'),
+                          S(:GE, 1, 3063),
+                          S(:IEA, 1, 3063)),
+
+                     S(:SE) => Ss(S(:GE),
+                                  S(:IEA))),
+                S(:GE)  => Ss(S(:IEA)),
+                S(:IEA) => Ss())))
+    end
+  end
+end

data/spec/examples/integration/parsing/005010/X212-HR276.example

@@ -0,0 +1,152 @@
+require "spec_helper"
+using Stupidedi::Refinements
+
+describe "X212-HR276" do
+  include NavigationMatchers
+
+  describe "parser" do
+    let(:parser) { Fixtures.file("X212-HR276/1-good.txt") }
+
+    describe "parser" do
+      let(:iea) { parser.segment.fetch }
+
+      it 'is deterministic' do
+        expect(parser).to be_deterministic
+        expect(parser).to be_last
+      end
+
+      it 'knows iea position' do
+      end
+
+      it 'infers separators' do
+        expect(parser).to have_separators(
+          :element => "*",
+          :component => ":",
+          :repetition => "^",
+          :segment => "~"
+        )
+      end
+    end
+
+    describe "structure" do
+      let(:isa) { parser.parent.fetch }
+
+      it 'has defined sequence' do
+        expect(parser).to have_sequence(%w(
+          ISA GS ST BHT HL NM1 HL NM1 HL NM1 HL DMG NM1 TRN REF REF AMT DTP HL DMG NM1 TRN
+          REF REF AMT DTP HL NM1 HL NM1 HL DMG NM1 TRN REF SVC DTP SE GE IEA
+        ))
+      end
+
+      it 'is correct' do
+        expect(isa).to have_distance(39).to(parser)
+# ISA*00*..........*01*SECRET....*ZZ*SUBMITTERS.ID..*ZZ*RECEIVERS.ID...*030101*1253*^*00501*000000905*1*T*:~
+# GS*HR*SENDER CODE*RECEIVER CODE*19991231*0802*1*X*005010X212~
+        expect(isa).to have_structure(
+          Ss(X(:ST),
+          R(:ISA),
+          # GS*HR*SENDER CODE*RECEIVER CODE*19991231*0802*1*X*005010X212~
+          S(:GS, "HR", "SENDER CODE", "RECEIVER CODE", "19991231", nil, "1", "X", "005010X212") =>
+            Ss(R(:GS),
+                # ST*276*0001*005010X212~
+                S(:ST, "276", "0001", "005010X212") =>
+                  Ss(R(:ST),
+                     # BHT*0010*13*ABC276XXX*20050915*1425~
+                     # 1425 is not set since it leads to NoMethodError, need to investigate
+                     S(:BHT, "0010", "13", "ABC276XXX", "20050915", nil),
+                     # HL*1**20*1~
+                     S(:HL, "1"),
+                     S(:HL, "2"),
+                     S(:HL, "3"),
+                     S(:HL, "4"),
+                     S(:HL, "5"),
+                     S(:HL, "6"),
+                     S(:HL, "7"),
+                     S(:HL, "8"),
+                     S(:HL, "1", nil, "20", "1") => Ss(
+                      # NM1*PR*2*ABC INSURANCE*****PI*12345~
+                      S(:NM1, "PR", "2", "ABC INSURANCE", nil, nil, nil, nil, "PI", "12345"),
+                      X(:BHT)),
+                     # HL*2*1*21*1~
+                     S(:HL, "2", "1", "21","1") => Ss(
+                      # NM1*41*2*XYZ SERVICE*****46*X67E~
+                      S(:NM1, "41", "2", "XYZ SERVICE", nil, nil, nil, nil, "46", "X67E"),
+                      X(:BHT)),
+                     # HL*3*2*19*1~
+                     S(:HL, "3", "2", "19", "1") => Ss(
+                      # NM1*1P*2*HOME HOSPITAL*****XX*1666666668~
+                      S(:NM1, "1P", "2", "HOME HOSPITAL", nil, nil, nil, nil, "XX", "1666666668"),
+                      X(:BHT)),
+                    # HL*4*3*22*0~
+                     S(:HL, "4", "3", "22", "0") => Ss(
+                      # DMG*D8*19301210*M~
+                      S(:DMG, "D8", "19301210", "M"),
+                      # NM1*IL*1*SMITH*FRED****MI*123456789A~
+                      { S(:NM1, "IL", "1", "SMITH", "FRED", nil, nil, nil, "MI", "123456789A") => Ss(
+                        # TRN*1*ABCXYZ1~
+                        S(:TRN, "1", "ABCXYZ1") => Ss(
+                          # REF*BLT*111~
+                          S(:REF, "BLT", "111"),
+                          # REF*EJ*SM123456~
+                          S(:REF, "EJ", "SM123456"),
+                          # AMT*T3*8513.88~
+                          S(:AMT, "T3", "8513.88"),
+                          # DTP*472*RD8*20050831-20050906~
+                          S(:DTP, "472", "RD8", "20050831-20050906")))},
+                      X(:BHT)),
+                     # HL*5*3*22*0~
+                     S(:HL, "5", "3", "22", "0") => Ss({
+                      # NM1*IL*1*JONES*MARY****MI*234567890A~
+                      S(:NM1, "IL", "1", "JONES", "MARY", nil, nil, nil, "MI", "234567890A") => Ss(
+                        # TRN*1*ABCXYZ2~
+                        S(:TRN, "1", "ABCXYZ2") => Ss(
+                          # REF*BLT*111~
+                          S(:REF, "BLT", "111"),
+                          # REF*EJ*JO234567~
+                          S(:REF, "EJ", "JO234567"),
+                          # AMT*T3*7599~
+                          S(:AMT, "T3", "7599"),
+                          # DTP*472*RD8*20050731-20050809~
+                          S(:DTP, "472", "RD8", "20050731-20050809"))
+                      )},
+                      # DMG*D8*19301115*F~
+                      S(:DMG, "D8", "19301115", "F"),
+                      X(:BHT)),
+                     # HL*6*2*19*1~
+                     S(:HL, "6", "2", "19", "1") => Ss(
+                      # NM1*1P*2*HOME HOSPITAL PHYSICIANS*****XX*1666666668~
+                      S(:NM1, "1P", "2", "HOME HOSPITAL PHYSICIANS", nil, nil, nil, nil, "XX", "1666666668"),
+                      X(:BHT)),
+                     # HL*7*6*22*1~
+                     S(:HL, "7", "6", "22", "1") => Ss(
+                      # NM1*IL*1*MANN*JOHN****MI*345678901~
+                      S(:NM1, "IL", "1", "MANN", "JOHN", nil, nil, nil, "MI", "345678901"),
+                      X(:BHT)),
+                     # HL*8*7*23~
+                     S(:HL, "8", "7", "23") => Ss({
+                        # NM1*QC*1*MANN*JOSEPH~
+                        S(:NM1, "QC", "1", "MANN", "JOSEPH") => Ss(
+                          # TRN*1*ABCXYZ3~
+                          S(:TRN, "1", "ABCXYZ3") => Ss({
+                            # REF*EJ*MA345678~
+                            S(:REF, "EJ", "MA345678") => Ss(
+                              # SVC*HC:99203*150*****1~
+                              C(:SVC, "HC:99203", "150", nil, nil, nil, nil, nil, "1")
+                            )
+                          },
+                          # DTP*472*D8*20050501~
+                          S(:DTP, "472", "D8", "20050501"))
+                      )},
+                      # DMG*D8*19951101*M~
+                      S(:DMG, "D8", "19951101", "M"),
+                      X(:BHT)),
+                     ),
+                # GE*1*1~
+                S(:GE)  => Ss(S(:IEA)),
+                # IEA*1*000000905~
+                S(:IEA) => Ss()))
+        )
+      end
+    end
+  end
+end