stupidedi 1.2.17 → 1.2.18

data/spec/fixtures/PR855/1-good-v4010.txt

@@ -0,0 +1,11 @@
+ISA*00*          *01*TMMC      *ZZ*208781609-SHRAA*01*207046228P     *170425*0805*U*00400*000002419*0*P*{~
+GS*PR*208781609*207046228P*20170425*0805*365*X*004010~
+ST*855*000002015~
+BAK*00*AT*1D711419*20170502****338093*20170425*CJ~
+N1*SU*SHRADER CANADA*92*SHRAA~
+N3*830 PROGRESS CT~
+N4*OAKVILLE*ON~
+PO1*0001*72*EA*47.34*UM*BP*C000900237~
+SE*7*000002015~
+GE*1*365~
+IEA*1*000002419~

data/spec/fixtures/PR855/2-good-v4010.txt

@@ -0,0 +1,17 @@
+ISA*00* *00* *ZZ*SUPPLIER001 *ZZ*EED1 NYIExxx *060814*213
+5*U*00401*702351422*0*P*>.
+GS*PR*SUPPLIER001*NYIExxx*20060814*2135*48*X*004010.
+ST*855*0001.
+BAK*00*AC*8000000418*20060814****349037459001*20060814.
+N1*BY*Hatrsville Compressor Station.
+N1*SE*SUPPLIER 001.
+PO1*1*2*DZN*13.84**VP*420525112.
+PID*F****PEN,GEL,UNIBALL,.7MM,12/PK,BLK.
+SCH*2*DZN***067*20060817.
+PO1*2*6*BX*0.47**VP*221051.
+PID*F****STAPLE,1/4",SF1,15-25SHT,5M/BX.
+SCH*6*BX***067*20060817.
+CTT*2.
+SE*12*0001.
+GE*1*48.
+IEA*1*702351422.

data/spec/fixtures/SH856/2-good.txt

@@ -0,0 +1,31 @@
+ISA*00*          *01*          *ZZ*010020001-ABCINC*01*207046228T     *180620*2130*U*00400*000000089*0*T*{$
+GS*SH*010020001*207046228T*20180620*2130*000000089*X*004010$
+ST*856*0000001$
+BSN*00*861554*20180313*2130$
+DTM*011*20180620*2120$
+HL*1**S*1$
+MEA*PD*G*3401*LB$
+MEA*PD*N*3400*LB$
+TD1*7239*40$
+TD5*B*2*MATL*SR***DE*TORONTO$
+TD3*TL**861554$
+REF*BM*861554$
+N1*SU*SUPPLIER ABC INC*92*010020001-ABCINC~
+
+N3*123 MAIN ST.~
+
+N4*BEAUPORT*QC*G1K 8Y2*CAN~
+HL*2*1*O*1$
+PRF*3D812906$
+REF*MH*3D812906$
+N1*ST*TORONTO PDC PARTS*92*207046228T$
+N3*80 TEST AVE*$
+N4*SCARBOROUGH*ON*G0X3A0*CAN$
+HL*3*2*I*0$
+LIN*1*BP*C0355UCAD8$
+SN1**40*PC$
+PID*F****GREY MET. PAINT$
+CTT*1$
+SE*25*0000001$
+GE*1*000000089$
+IEA*1*000000089$

data/spec/support/matchers/navigation_matchers.rb

@@ -244,5 +244,4 @@ module NavigationMatchers
       end
     end
   end
-
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: stupidedi
 version: !ruby/object:Gem::Version
-  version: 1.2.17
+  version: 1.2.18
 platform: ruby
 authors:
 - Kyle Putnam/Isi Robayna
@@ -156,6 +156,7 @@ files:
 - lib/stupidedi/contrib/004010/transaction_set_defs/IM210.rb
 - lib/stupidedi/contrib/004010/transaction_set_defs/OW940.rb
 - lib/stupidedi/contrib/004010/transaction_set_defs/PO850.rb
+- lib/stupidedi/contrib/004010/transaction_set_defs/PR855.rb
 - lib/stupidedi/contrib/004010/transaction_set_defs/PS830.rb
 - lib/stupidedi/contrib/004010/transaction_set_defs/QM214.rb
 - lib/stupidedi/contrib/004010/transaction_set_defs/RE944.rb
@@ -204,6 +205,7 @@ files:
 - lib/stupidedi/guides/004010/guide_builder.rb
 - lib/stupidedi/guides/004010/segment_reqs.rb
 - lib/stupidedi/guides/005010.rb
+- lib/stupidedi/guides/005010/X212-HR276.rb
 - lib/stupidedi/guides/005010/X214-HN277.rb
 - lib/stupidedi/guides/005010/X220-BE834.rb
 - lib/stupidedi/guides/005010/X220A1-BE834.rb
@@ -704,6 +706,7 @@ files:
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/B2.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/B2A.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/B3.rb
+- lib/stupidedi/versions/functional_groups/004010/segment_defs/BAK.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/BCT.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/BEG.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/BFR.rb
@@ -765,6 +768,7 @@ files:
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/PLD.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/PO1.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/PO4.rb
+- lib/stupidedi/versions/functional_groups/004010/segment_defs/PRF.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/QTY.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/R3.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/REF.rb
@@ -778,6 +782,7 @@ files:
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/SVC.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/TD1.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/TD3.rb
+- lib/stupidedi/versions/functional_groups/004010/segment_defs/TD4.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/TD5.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/TRN.rb
 - lib/stupidedi/versions/functional_groups/004010/segment_defs/TS2.rb
@@ -968,7 +973,10 @@ files:
 - lib/stupidedi/zipper/root_cursor.rb
 - spec/examples/integration/generating.example
 - spec/examples/integration/navigating.example
-- spec/examples/integration/parsing.example
+- spec/examples/integration/parsing/005010/X091A1-HP835.example
+- spec/examples/integration/parsing/005010/X212-HR276.example
+- spec/examples/integration/parsing/005010/X221-HP835.example
+- spec/examples/integration/parsing/005010/X222-HC837.example
 - spec/examples/ruby/array.example
 - spec/examples/ruby/blank.example
 - spec/examples/ruby/count.example
@@ -998,11 +1006,14 @@ files:
 - spec/fixtures/PO830/1-good.txt
 - spec/fixtures/PO850/1-good-v3010.txt
 - spec/fixtures/PO850/1-good-v3050.txt
+- spec/fixtures/PR855/1-good-v4010.txt
+- spec/fixtures/PR855/2-good-v4010.txt
 - spec/fixtures/PS830/1-good.txt
 - spec/fixtures/RA820/1-good.txt
 - spec/fixtures/SC832/1-good.txt
 - spec/fixtures/SC832/2-good.txt
 - spec/fixtures/SH856/1-good.txt
+- spec/fixtures/SH856/2-good.txt
 - spec/fixtures/SQ866/1-good.txt
 - spec/fixtures/SS862/1-good.txt
 - spec/fixtures/WA142/1-good.txt
@@ -1221,9 +1232,12 @@ test_files:
 - spec/examples/stupidedi/zipper/abstract_cursor.example
 - spec/examples/stupidedi/reader.example
 - spec/examples/stupidedi/zipper.example
-- spec/examples/integration/parsing.example
 - spec/examples/integration/generating.example
 - spec/examples/integration/navigating.example
+- spec/examples/integration/parsing/005010/X212-HR276.example
+- spec/examples/integration/parsing/005010/X091A1-HP835.example
+- spec/examples/integration/parsing/005010/X221-HP835.example
+- spec/examples/integration/parsing/005010/X222-HC837.example
 - spec/examples/ruby/to_d.example
 - spec/examples/ruby/object.example
 - spec/examples/ruby/blank.example

data/spec/examples/integration/parsing.example

@@ -1,674 +0,0 @@
-require "spec_helper"
-using Stupidedi::Refinements
-
-describe "Parsing" do
-  include NavigationMatchers
-
-  context "X222-HC837" do
-    let(:parser) { Fixtures.file("X222-HC837/1-good.txt") }
-
-    it "parses 1-good.txt" do
-      expect(parser).to be_deterministic
-      expect(parser).to be_last
-
-      parser.segment.tap do |iea|
-        expect(iea.node.position.line).to eq(53)
-        expect(iea.node.position.column).to eq(1)
-      end
-
-      expect(parser).to have_sequence(%w(ISA GS ST BHT NM1 PER NM1 HL PRV NM1 N3 N4
-        REF NM1 N3 N4 HL SBR NM1 N3 N4 DMG NM1 N4 REF HL PAT NM1 N3 N4 DMG CLM
-        REF HI LX SV1 DTP LX SV1 DTP LX SV1 DTP LX SV1 DTP SE GE IEA))
-
-      expect(parser).to have_separators(:element => "*", :component => ":",
-                                    :repetition => "^", :segment => "~")
-
-      parser.parent.tap do |isa|
-        # Should have 49 total segments in the parse tree
-        expect(isa).to have_distance(48).to(parser)
-
-        # See matchers/navigation_matchers.rb
-        #
-        # Ss: list of segment matchers
-        #  C: composite element
-        #
-        #  S: the segment might be reachable, and /is/ reachable
-        #  R: the segment might be reachable, but didn't occur
-        #  X: the segment would never be reachable
-        #
-        expect(isa).to have_structure(
-          Ss(X(:ST),
-             R(:ISA), # No more ISAs
-             S(:GS, "HC", nil, nil, nil, nil, 1) =>
-               Ss(R(:GS), # No more GSs
-                  S(:ST) =>
-                    Ss(R(:ST), # No more STs
-                       X(:PRV),
-                       X(:NM1, "85"),
-                       X(:NM1, "87"),
-                       X(:SBR),
-                       X(:NM1, "IL"),
-                       X(:NM1, "PR"),
-                       S(:BHT) =>
-                         Ss(S(:NM1, "41"),
-                            S(:NM1, "40"),
-                            S(:HL, "1"),
-                            S(:HL, "2"),
-                            S(:HL, "3"),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-                       # 1000A SUBMITTER NAME
-                       S(:NM1, "41") =>
-                         Ss(S(:PER),
-                            S(:NM1, "40"),
-                            S(:HL,  "1"),
-                            S(:HL,  "2"),
-                            S(:HL,  "3"),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-                       # 1000B RECEIVER NAME
-                       S(:NM1, "40") =>
-                         Ss(S(:HL, "1"),
-                            S(:HL, "2"),
-                            S(:HL, "3"),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-                       # 2000A BILLING PROVIDER HIERARCHICAL LEVEL
-                       S(:HL, "1") =>
-                         Ss(S(:PRV) =>
-                              Ss(S(:NM1, "85"),
-                                 S(:NM1, "87"),
-                                 S(:HL, "2"),
-                                 S(:HL, "3"),
-                                 S(:SE),
-                                 S(:GE),
-                                 S(:IEA)),
-                            # 2010AA BILLING PROVIDER NAME
-                            S(:NM1, "85") =>
-                              Ss(S(:NM1, "87") => Ss(),
-                                 S(:N3)        => Ss(S(:N4),
-                                                     S(:REF, "EI"),
-                                                     S(:NM1, "87")),
-                                 S(:N4)        => Ss(S(:REF, "EI"),
-                                                     S(:NM1, "87")),
-                                 S(:REF, "EI") => Ss(S(:NM1, "87")),
-                                 S(:SE)        => Ss(),
-                                 S(:GE)        => Ss(),
-                                 S(:IEA)       => Ss()),
-                            # 2010AB PAY-TO ADDRESS NAME
-                            S(:NM1, "87") =>
-                              Ss(S(:N3)  => Ss(S(:N4),
-                                               S(:HL, "2")),
-                                 S(:N4)  => Ss(S(:HL, "2")),
-                                 S(:SE)  => Ss(),
-                                 S(:GE)  => Ss(),
-                                 S(:IEA) => Ss()),
-                            S(:HL, "2") => Ss(),
-                            S(:HL, "3") => Ss(),
-                            S(:SE)      => Ss(),
-                            S(:GE)      => Ss(),
-                            S(:IEA)     => Ss()),
-                         # 2000B SUBSCRIBER HIERARCHICAL LEVEL
-                         S(:HL, "2") =>
-                           Ss(S(:SBR) =>
-                                Ss(S(:NM1, "IL"),
-                                   S(:NM1, "PR"),
-                                   S(:HL, "3"),
-                                   S(:SE),
-                                   S(:GE),
-                                   S(:IEA)),
-                              # 2010BA SUBSCRIBER NAME
-                              S(:NM1, "IL") =>
-                                Ss(S(:N3)  => Ss(S(:N4),
-                                                 S(:DMG),
-                                                 S(:NM1, "PR"),
-                                                 S(:HL, "3")),
-                                   S(:N4)  => Ss(S(:DMG),
-                                                 S(:NM1, "PR"),
-                                                 S(:HL, "3")),
-                                   S(:DMG) => Ss(S(:NM1, "PR"),
-                                                 S(:HL, "3")),
-                                   S(:SE)  => Ss(),
-                                   S(:GE)  => Ss(),
-                                   S(:IEA) => Ss()),
-                              # 2010BB PAYER NAME
-                              S(:NM1, "PR") =>
-                                Ss(S(:N4) => Ss(S(:REF, "G2"),
-                                                S(:HL, "3")),
-                                   S(:REF, "G2") => Ss(S(:HL, "3")),
-                                   S(:SE)        => Ss(),
-                                   S(:GE)        => Ss(),
-                                   S(:IEA)       => Ss()),
-                              S(:HL, "3") => Ss(),
-                              S(:SE)      => Ss(),
-                              S(:GE)      => Ss(),
-                              S(:IEA)     => Ss()),
-                         # 2000C PATIENT HIERARCHICAL LEVEL
-                         S(:HL, "3") =>
-                           Ss(S(:PAT) => Ss(S(:NM1, "QC"),
-                                            S(:CLM),
-                                            S(:SE),
-                                            S(:GE),
-                                            S(:IEA)),
-                              # 2010CA PATIENT NAME
-                              S(:NM1, "QC") =>
-                                Ss(S(:N3)  => Ss(S(:N4),
-                                                 S(:DMG),
-                                                 S(:CLM)),
-                                   S(:N4)  => Ss(S(:DMG),
-                                                 S(:CLM)),
-                                   S(:DMG) => Ss(S(:CLM)),
-                                   S(:CLM) => Ss(),
-                                   S(:SE)  => Ss(),
-                                   S(:GE)  => Ss(),
-                                   S(:IEA) => Ss()),
-                              # 2300 CLAIM INFORMATION
-                              S(:CLM) =>
-                                Ss(R(:CLM), # No more CLMs
-                                   S(:REF, "D9"),
-                                   S(:HI, C("BK", "0340"), C("BF", "V7389")),
-                                   # 2400 SERVICE LINE NUMBER
-                                   S(:LX, "1") =>
-                                     Ss(R(:LX, "1"), # No more LX*1's
-                                        S(:LX, "2"),
-                                        S(:LX, "3"),
-                                        S(:LX, "4"),
-                                        S(:SV1, C(nil, "99213")) => Ss(S(:DTP, "472"),
-                                                                       S(:LX, "2"),
-                                                                       S(:LX, "3"),
-                                                                       S(:LX, "4"),
-                                                                       S(:SE),
-                                                                       S(:GE),
-                                                                       S(:IEA)),
-                                        S(:DTP, "472") => Ss(S(:LX, "2"),
-                                                             S(:LX, "3"),
-                                                             S(:LX, "4"),
-                                                             S(:SE),
-                                                             S(:GE),
-                                                             S(:IEA))),
-                                   # 2400 SERVICE LINE NUMBER
-                                   S(:LX, "2") =>
-                                     Ss(R(:LX, "1"),
-                                        R(:LX, "2"), # No more LX*2's
-                                        S(:LX, "3"),
-                                        S(:LX, "4"),
-                                        S(:SV1, C(nil, "87070")) => Ss(S(:DTP, "472"),
-                                                                       S(:LX, "3"),
-                                                                       S(:LX, "4"),
-                                                                       S(:SE),
-                                                                       S(:GE),
-                                                                       S(:IEA)),
-                                        S(:DTP, "472") => Ss(S(:LX, "3"),
-                                                             S(:LX, "4"),
-                                                             S(:SE),
-                                                             S(:GE),
-                                                             S(:IEA))),
-                                   # 2400 SERVICE LINE NUMBER
-                                   S(:LX, "3") =>
-                                     Ss(R(:LX, "1"), # No more LX*1's
-                                        R(:LX, "2"), # No more LX*2's
-                                        R(:LX, "3"), # No more LX*3's
-                                        S(:LX, "4"),
-                                        S(:SV1, C(nil, "99214")) => Ss(S(:DTP, "472"),
-                                                                       S(:LX, "4"),
-                                                                       S(:SE),
-                                                                       S(:GE),
-                                                                       S(:IEA)),
-                                        S(:DTP, "472") => Ss(S(:LX, "4"),
-                                                             S(:SE),
-                                                             S(:GE),
-                                                             S(:IEA))),
-                                   # 2400 SERVICE LINE NUMBER
-                                   S(:LX, "4") =>
-                                     Ss(R(:LX, "1"),
-                                        R(:LX, "2"),
-                                        R(:LX, "3"),
-                                        R(:LX, "4"),
-                                        S(:SV1, C(nil, "86663")) => Ss(S(:DTP, "472"),
-                                                                       S(:SE),
-                                                                       S(:GE),
-                                                                       S(:IEA)),
-                                        S(:DTP, "472") => Ss(S(:SE),
-                                                             S(:GE),
-                                                             S(:IEA))))),
-                       S(:SE) => Ss(S(:GE),
-                                    S(:IEA))),
-                  S(:GE)  => Ss(S(:IEA)),
-                  S(:IEA) => Ss())))
-      end
-    end
-  end
-
-  context "X221-HP835" do
-
-    it "parses 1-good.txt" do
-      parser = Fixtures.file("X221-HP835/1-good.txt")
-      expect(parser).to be_deterministic
-      expect(parser).to be_last
-
-      parser.segment.tap do |iea|
-        expect(iea.node.position.line).to eq(40)
-        expect(iea.node.position.column).to eq(1)
-      end
-
-      expect(parser).to have_sequence(%w(ISA GS ST BPR TRN DTM N1 N3 N4 REF REF
-        N1 REF LX TS3 TS2 CLP CAS NM1 MIA DTM DTM AMT QTY LX TS3 CLP CAS
-        NM1 MOA DTM AMT PLB SE GE IEA))
-
-      expect(parser).to have_separators(:element => "+", :component => ">",
-                                    :repetition => "~", :segment => "\r")
-
-      parser.parent.tap do |isa|
-        expect(isa).to have_distance(35).to(parser)
-
-        # See matchers/navigation_matchers.rb
-        #
-        # Ss: list of segment matchers
-        #  C: composite element
-        #
-        #  S: the segment might be reachable, and /is/ reachable
-        #  R: the segment might be reachable, but didn't occur
-        #  X: the segment would never be reachable
-        #
-        expect(isa).to have_structure(
-          Ss(X(:ST),
-             R(:ISA), # No more ISAs
-             S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
-               Ss(R(:GS), # No more GSs
-                  S(:ST) =>
-                    Ss(R(:ST), # No more STs
-                       S(:BPR, nil, 150000) =>
-                         Ss(S(:TRN),
-                            S(:DTM),
-                            S(:N1, "PR"),
-                            S(:N1, "PE"),
-                            S(:LX, "110212"),
-                            S(:LX, "130212"),
-                            S(:PLB),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-                       S(:TRN, "1", "12345") =>
-                         Ss(X(:BPR)),
-
-                       S(:DTM, "405", Date.civil(2002, 9, 13)) =>
-                         Ss(X(:TRN)),
-
-                       # 1000A PAYER IDENTIFICATION
-                       S(:N1, "PR", "INSURANCE COMPANY OF TIMBUCKTU") =>
-                         Ss(S(:N3, "1 MAIN STREET"),
-                            S(:N4),
-                            S(:REF, "2U", "999"),
-                            S(:REF, "NF", "12345"),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-
-                       # 1000B PAYEE IDENTIFICATION
-                       S(:N1, "PE", nil, "XX", "1232343560") =>
-                         Ss(S(:REF, "TJ"),
-                            S(:SE),
-                            S(:GE),
-                            S(:IEA)),
-
-                       # 2000 HEADER NUMBER
-                       S(:LX, "110212") =>
-                         Ss(S(:LX, "130212"),
-                            S(:TS3),
-                            S(:TS2),
-                            S(:CLP) =>
-                              Ss(S(:CAS, "CO", 45, "73348.57"),
-                                 S(:NM1, "QC", nil, "JONES"),
-                                 S(:MIA, 0, nil, nil, "138018.4".to_d),
-                                 S(:DTM, "232", "20020816"),
-                                 S(:DTM, "233", "20020824"),
-                                 S(:AMT, "AU", 150000),
-                                 S(:QTY, "CA", 8))),
-
-                       # 2000 HEADER NUMBER
-                       S(:LX, "130212") =>
-                         Ss(R(:LX, "110212"),
-                            S(:TS3, "6543210909", "13", "1996/12/31", 1, 15000),
-                            S(:CLP, "777777") =>
-                              Ss(S(:CAS, "CO", "45", "3019.67"),
-                                 S(:NM1, "QC"),
-                                 S(:MOA, nil, nil, "MA02"),
-                                 S(:DTM, "232", "2002-05-12"),
-                                 S(:AMT, "AU", 17000))),
-
-                       S(:PLB, "6543210903") =>
-                         Ss(S(:SE, 32, 1234),
-                            S(:GE, 1, 1),
-                            S(:IEA, 1, 905)),
-                       S(:PLB, nil, "20021231") =>
-                         Ss(S(:SE, "32", "1234"),
-                            S(:GE, "1", "1"),
-                            S(:IEA, "1", "905")),
-                       S(:PLB, nil, nil, C("CV", "CP")) => Ss(),
-                       S(:PLB, nil, nil, nil, "-1.27")  => Ss(),
-
-                       S(:SE) => Ss(S(:GE),
-                                    S(:IEA))),
-                  S(:GE)  => Ss(S(:IEA)),
-                  S(:IEA) => Ss())))
-      end
-    end
-
-    context "issues with Table 3 (Summary)" do
-      it "handles missing PLB" do
-        parser = Fixtures.file("X221-HP835/2-good.txt")
-        expect(parser).to be_deterministic
-
-        parser.parent.tap do |isa|
-          expect(isa).to have_structure(
-            Ss(X(:SE),
-               X(:PLB),
-               S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
-                 Ss(X(:SE),
-                    X(:PLB),
-                    S(:ST) =>
-                      Ss(R(:PLB),
-                         S(:LX) =>
-                           Ss(S(:SE),
-                              R(:PLB)),
-                         S(:SE) =>
-                           Ss(X(:PLB),
-                              X(:SE))))))
-        end
-      end
-
-      it "handles single PLB" do
-        parser = Fixtures.file("X221-HP835/1-good.txt")
-        expect(parser).to be_deterministic
-
-        parser.parent.tap do |isa|
-          expect(isa).to have_structure(
-            Ss(X(:SE),
-               X(:PLB),
-               S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
-                 Ss(X(:SE),
-                    X(:PLB),
-                    S(:ST) =>
-                      Ss(S(:LX) =>
-                           Ss(S(:SE),
-                              S(:PLB)),
-                         S(:SE) =>
-                           Ss(X(:PLB),
-                              X(:SE)),
-                         S(:PLB) =>
-                           Ss(R(:PLB), # only one PLB
-                              S(:SE))))))
-        end
-      end
-
-      it "handles multiple PLBs" do
-        parser = Fixtures.file("X221-HP835/3a-good.txt")
-        expect(parser).to be_deterministic
-
-        parser.parent.tap do |isa|
-          expect(isa).to have_structure(
-            Ss(X(:SE),
-               X(:PLB),
-               S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
-                 Ss(X(:SE),
-                    X(:PLB),
-                    S(:ST) =>
-                      Ss(S(:LX) =>
-                           Ss(S(:SE),
-                              S(:PLB),
-                              S(:PLB, "9876543210"),
-                              S(:PLB, "0123456789")),
-                         S(:SE) =>
-                           Ss(X(:PLB),
-                              X(:SE)),
-                         S(:PLB) =>
-                           Ss(S(:PLB),
-                              S(:PLB, "0123456789"),
-                              R(:PLB, "9876543210"),
-                              S(:SE)),
-                         S(:PLB, "0123456789") =>
-                           Ss(R(:PLB, "0123456789"),
-                              R(:PLB, "9876543210"),
-                              S(:SE)),
-                         S(:PLB, "9876543210") =>
-                           Ss(R(:PLB, "9876543210"),
-                              S(:PLB, "0123456789"),
-                              S(:SE))))))
-        end
-      end
-    end
-
-    context "table-level permutations" do
-      # 837
-      #   Table 2A
-      #     2000A HL*..*..*20
-      #   Table 2B
-      #     2000B HL*..*..*22
-      #   Table 2C
-      #     2000C HL*..*..*23
-      let(:dsl) do
-        c = Stupidedi::Config.hipaa
-        b = Stupidedi::Builder::BuilderDsl.build(c, false)
-        b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc, Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
-        b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X222")
-        b. ST("837", "0001", b.default)
-          b.BHT("0019", "00", "46X2A6", Time.now.utc, Time.now.utc, "CH")
-          b.NM1("41", "2", "TERRIBLE BILLING", nil, nil, nil, nil, "46", "X82BJJ")
-            b.PER("IC", nil, "TE", "5551212")
-          b.NM1("40", "2", "TERRIBLE INSURAN", nil, nil, nil, nil, "46", "3057XK")
-
-        b # return BuilderDsl instance
-      end
-
-      specify "HL*..*..20, HL*..*..*22, HL*..*..*23" do
-        ss = [["1", nil, "20", "1"],
-              ["2", nil, "20", "1"],
-              ["3", "1", "22", "1"],
-              ["4", "2", "22", "1"],
-              ["5", "3", "23", "0"],
-              ["6", "4", "23", "0"]]
-
-        ss.permutation do |p|
-          b = dsl.dup
-          p.each{|es| b.send(:HL, *es) }
-
-          m = b.machine.first.flatmap{|x| x.sequence(:GS, :ST) }
-
-          expect(m.map{|x| x.count(:HL, nil, nil, "20") }).to be_success(2)
-          expect(m.map{|x| x.count(:HL, nil, nil, "22") }).to be_success(2)
-          expect(m.map{|x| x.count(:HL, nil, nil, "23") }).to be_success(2)
-
-          expect(m.map{|x| x.count(:HL) }).to be_success(6)
-
-          expect(m.flatmap{|x| x.sequence(:HL) }.
-            map{|x| x.count(:HL) }).to be_success(5)
-
-          expect(m.flatmap{|x| x.sequence(:HL, :HL) }.
-            map{|x| x.count(:HL) }).to be_success(4)
-
-          expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL) }.
-            map{|x| x.count(:HL) }).to be_success(3)
-
-          expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL) }.
-            map{|x| x.count(:HL) }).to be_success(2)
-
-          expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL, :HL) }.
-            map{|x| x.count(:HL) }).to be_success(1)
-
-          expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL, :HL, :HL) }.
-            map{|x| x.count(:HL) }).to be_success(0)
-        end if ss.respond_to?(:permutation)
-      end
-    end
-
-    context "loop-level permutations" do
-      # 837
-      #   Table 1
-      #     1000A NM1*41
-      #     1000B NM1*40
-      let(:dsl) do
-        c = Stupidedi::Config.hipaa
-        b = Stupidedi::Builder::BuilderDsl.build(c, false)
-        b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc, Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
-        b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X222")
-        b. ST("837", "0001", b.default)
-          b.BHT("0019", "00", "46X2A6", Time.now.utc, Time.now.utc, "CH")
-
-        b # return BuilderDsl instance
-      end
-
-      specify "NM1*41, NM1*40" do
-        ss = [["41", "2", "TERRIBLE BILLING", nil, nil, nil, nil, "46", "X82BJJ"],
-              ["40", "2", "TERRIBLE INSURAN", nil, nil, nil, nil, "46", "3057XK"]]
-
-        ss.permutation do |p|
-          b = dsl.dup
-          p.each{|es| b.send(:NM1, *es) }
-
-          m = b.machine.parent
-          expect(m.map{|x| x.count(:NM1) }).to be_success(2)
-
-          expect(m.flatmap{|x| x.sequence(:NM1) }.
-            map{|x| x.count(:NM1) }).to be_success(1)
-
-          expect(m.flatmap{|x| x.sequence(:NM1, :NM1) }.
-            map{|x| x.count(:NM1) }).to be_success(0)
-        end if ss.respond_to?(:permutation)
-      end
-    end
-
-    context "segment-level permutations" do
-      # 835
-      #   Table 1
-      #     1000A N1*PR
-      #       PER*CX
-      #       PER*BL
-      #       PER*IC
-
-      let(:dsl) do
-        c = Stupidedi::Config.hipaa
-        b = Stupidedi::Builder::BuilderDsl.build(c)
-        b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc, Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
-        b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X221")
-        b. ST("835", "0001")
-          b.BPR("C", 150000, "C", "ACH", "CTX", "01", "999999992", "DA", "123456", "1512345678", nil, "01", "999988880", "DA", "98765", "20020913")
-          b.TRN("1", "12345", "1512345678")
-          b.DTM("405", Time.now.utc)
-          b. N1("PR", "INSURANCE COMPANY OF TIMBUCKTU")
-            b. N3("1 MAIN STREET")
-            b. N4("TIMBUCKTU", "AK", "99501")
-            b.REF("2U", "999")
-            b.REF("NF", "12345")
-
-        b # return BuilderDsl instance
-      end
-
-      specify "PER*IC, PER*BL, PER*CX" do
-        ss = [["IC", nil, "UR", "WEBSITE.COM"],
-              ["BL", "COMPUTER PAT"],
-              ["BL", "COMPUTER SAM"],
-              ["CX", "BUSINESS KIM"]]
-
-        ss.permutation do |p|
-          b = dsl.dup
-          p.each{|es| b.send(:PER, *es) }
-
-          m = b.machine.parent
-          expect(m.map{|x| x.count(:PER) }).to be_success(4)
-
-          expect(m.flatmap{|x| x.sequence(:PER) }.
-            map{|x| x.count(:PER) }).to be_success(3)
-
-          expect(m.flatmap{|x| x.sequence(:PER, :PER) }.
-            map{|x| x.count(:PER) }).to be_success(2)
-
-          expect(m.flatmap{|x| x.sequence(:PER, :PER, :PER) }.
-            map{|x| x.count(:PER) }).to be_success(1)
-
-          expect(m.flatmap{|x| x.sequence(:PER, :PER, :PER, :PER) }.
-            map{|x| x.count(:PER) }).to be_success(0)
-        end if ss.respond_to?(:permutation)
-      end
-    end
-
-  end
-
-  context "X091A1-HP835" do
-
-    it "parses 1-good.txt" do
-      parser = Fixtures.file("X091A1-HP835/1-good.txt")
-      expect(parser).to be_deterministic
-      expect(parser).to be_last
-
-      parser.segment.tap do |iea|
-        expect(iea.node.position.line).to eq(1)
-        expect(iea.node.position.column).to eq(606)
-      end
-
-      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))
-
-      expect(parser).to have_separators(:element => "|", :component => "^",
-        :repetition => nil, :segment => "~")
-
-      parser.parent.tap do |isa|
-        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
-
-end