stupidedi 1.2.17 → 1.2.18

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (30) hide show
  1. checksums.yaml +4 -4
  2. data/README.md +1 -1
  3. data/bin/edi-pp +1 -1
  4. data/lib/stupidedi/config.rb +3 -0
  5. data/lib/stupidedi/contrib/004010/guides.rb +1 -0
  6. data/lib/stupidedi/contrib/004010/transaction_set_defs.rb +3 -0
  7. data/lib/stupidedi/contrib/004010/transaction_set_defs/PR855.rb +35 -0
  8. data/lib/stupidedi/contrib/004010/transaction_set_defs/SH856.rb +26 -12
  9. data/lib/stupidedi/guides/005010.rb +4 -0
  10. data/lib/stupidedi/guides/005010/X212-HR276.rb +387 -0
  11. data/lib/stupidedi/guides/005010/guide_builder.rb +2 -2
  12. data/lib/stupidedi/version.rb +1 -1
  13. data/lib/stupidedi/versions/functional_groups/004010/element_defs.rb +6 -1
  14. data/lib/stupidedi/versions/functional_groups/004010/element_types/time_val.rb +1 -0
  15. data/lib/stupidedi/versions/functional_groups/004010/segment_defs.rb +9 -0
  16. data/lib/stupidedi/versions/functional_groups/004010/segment_defs/BAK.rb +24 -0
  17. data/lib/stupidedi/versions/functional_groups/004010/segment_defs/PRF.rb +20 -0
  18. data/lib/stupidedi/versions/functional_groups/004010/segment_defs/TD4.rb +26 -0
  19. data/lib/stupidedi/versions/functional_groups/004010/segment_defs/TD5.rb +2 -2
  20. data/lib/stupidedi/versions/functional_groups/005010/element_defs.rb +6 -3
  21. data/spec/examples/integration/parsing/005010/X091A1-HP835.example +94 -0
  22. data/spec/examples/integration/parsing/005010/X212-HR276.example +152 -0
  23. data/spec/examples/integration/parsing/005010/X221-HP835.example +386 -0
  24. data/spec/examples/integration/parsing/005010/X222-HC837.example +257 -0
  25. data/spec/fixtures/PR855/1-good-v4010.txt +11 -0
  26. data/spec/fixtures/PR855/2-good-v4010.txt +17 -0
  27. data/spec/fixtures/SH856/2-good.txt +31 -0
  28. data/spec/support/matchers/navigation_matchers.rb +0 -1
  29. metadata +17 -3
  30. data/spec/examples/integration/parsing.example +0 -674
data/spec/examples/integration/parsing/005010/X221-HP835.example ADDED
@@ -0,0 +1,386 @@
1
+ require "spec_helper"
2
+ using Stupidedi::Refinements
3
+
4
+ describe "X221-HP835" do
5
+ include NavigationMatchers
6
+
7
+ let(:parser) { Fixtures.file("X221-HP835/1-good.txt") }
8
+
9
+ context 'parser' do
10
+ let(:iea) { parser.segment.fetch }
11
+
12
+ it 'is deterministic' do
13
+ expect(parser).to be_deterministic
14
+ expect(parser).to be_last
15
+ end
16
+
17
+ it 'knows iea position' do
18
+ expect(iea.node.position.line).to eq(40)
19
+ expect(iea.node.position.column).to eq(1)
20
+ end
21
+
22
+ it 'infers separators' do
23
+ expect(parser).to have_separators(
24
+ :element => "+",
25
+ :component => ">",
26
+ :repetition => "~",
27
+ :segment => "\r"
28
+ )
29
+ end
30
+ end
31
+
32
+ context 'structure' do
33
+ let(:isa) { parser.parent.fetch }
34
+
35
+ it 'has defined sequence' do
36
+ expect(parser).to have_sequence(%w(ISA GS ST BPR TRN DTM N1 N3 N4 REF REF
37
+ N1 REF LX TS3 TS2 CLP CAS NM1 MIA DTM DTM AMT QTY LX TS3 CLP CAS
38
+ NM1 MOA DTM AMT PLB SE GE IEA))
39
+ end
40
+
41
+ it 'is correct' do
42
+ expect(isa).to have_distance(35).to(parser)
43
+ # See matchers/navigation_matchers.rb
44
+ #
45
+ # Ss: list of segment matchers
46
+ # C: composite element
47
+ #
48
+ # S: the segment might be reachable, and /is/ reachable
49
+ # R: the segment might be reachable, but didn't occur
50
+ # X: the segment would never be reachable
51
+ #
52
+ expect(isa).to have_structure(
53
+ Ss(X(:ST),
54
+ R(:ISA), # No more ISAs
55
+ S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
56
+ Ss(R(:GS), # No more GSs
57
+ S(:ST) =>
58
+ Ss(R(:ST), # No more STs
59
+ S(:BPR, nil, 150000) =>
60
+ Ss(S(:TRN),
61
+ S(:DTM),
62
+ S(:N1, "PR"),
63
+ S(:N1, "PE"),
64
+ S(:LX, "110212"),
65
+ S(:LX, "130212"),
66
+ S(:PLB),
67
+ S(:SE),
68
+ S(:GE),
69
+ S(:IEA)),
70
+ S(:TRN, "1", "12345") =>
71
+ Ss(X(:BPR)),
72
+
73
+ S(:DTM, "405", Date.civil(2002, 9, 13)) =>
74
+ Ss(X(:TRN)),
75
+
76
+ # 1000A PAYER IDENTIFICATION
77
+ S(:N1, "PR", "INSURANCE COMPANY OF TIMBUCKTU") =>
78
+ Ss(S(:N3, "1 MAIN STREET"),
79
+ S(:N4),
80
+ S(:REF, "2U", "999"),
81
+ S(:REF, "NF", "12345"),
82
+ S(:SE),
83
+ S(:GE),
84
+ S(:IEA)),
85
+
86
+ # 1000B PAYEE IDENTIFICATION
87
+ S(:N1, "PE", nil, "XX", "1232343560") =>
88
+ Ss(S(:REF, "TJ"),
89
+ S(:SE),
90
+ S(:GE),
91
+ S(:IEA)),
92
+
93
+ # 2000 HEADER NUMBER
94
+ S(:LX, "110212") =>
95
+ Ss(S(:LX, "130212"),
96
+ S(:TS3),
97
+ S(:TS2),
98
+ S(:CLP) =>
99
+ Ss(S(:CAS, "CO", 45, "73348.57"),
100
+ S(:NM1, "QC", nil, "JONES"),
101
+ S(:MIA, 0, nil, nil, "138018.4".to_d),
102
+ S(:DTM, "232", "20020816"),
103
+ S(:DTM, "233", "20020824"),
104
+ S(:AMT, "AU", 150000),
105
+ S(:QTY, "CA", 8))),
106
+
107
+ # 2000 HEADER NUMBER
108
+ S(:LX, "130212") =>
109
+ Ss(R(:LX, "110212"),
110
+ S(:TS3, "6543210909", "13", "1996/12/31", 1, 15000),
111
+ S(:CLP, "777777") =>
112
+ Ss(S(:CAS, "CO", "45", "3019.67"),
113
+ S(:NM1, "QC"),
114
+ S(:MOA, nil, nil, "MA02"),
115
+ S(:DTM, "232", "2002-05-12"),
116
+ S(:AMT, "AU", 17000))),
117
+
118
+ S(:PLB, "6543210903") =>
119
+ Ss(S(:SE, 32, 1234),
120
+ S(:GE, 1, 1),
121
+ S(:IEA, 1, 905)),
122
+ S(:PLB, nil, "20021231") =>
123
+ Ss(S(:SE, "32", "1234"),
124
+ S(:GE, "1", "1"),
125
+ S(:IEA, "1", "905")),
126
+ S(:PLB, nil, nil, C("CV", "CP")) => Ss(),
127
+ S(:PLB, nil, nil, nil, "-1.27") => Ss(),
128
+
129
+ S(:SE) => Ss(S(:GE),
130
+ S(:IEA))),
131
+ S(:GE) => Ss(S(:IEA)),
132
+ S(:IEA) => Ss())))
133
+ end
134
+
135
+ context 'with issues in Table 3 (Summary)' do
136
+ context 'with missing PLB' do
137
+ let(:parser) { Fixtures.file("X221-HP835/2-good.txt") }
138
+
139
+ it 'is handled' do
140
+ expect(parser).to be_deterministic
141
+
142
+ parser.parent.tap do |isa|
143
+ expect(isa).to have_structure(
144
+ Ss(X(:SE),
145
+ X(:PLB),
146
+ S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
147
+ Ss(X(:SE),
148
+ X(:PLB),
149
+ S(:ST) =>
150
+ Ss(R(:PLB),
151
+ S(:LX) =>
152
+ Ss(S(:SE),
153
+ R(:PLB)),
154
+ S(:SE) =>
155
+ Ss(X(:PLB),
156
+ X(:SE))))))
157
+ end
158
+ end
159
+ end
160
+
161
+ context 'with single PLB' do
162
+ let(:parser) { Fixtures.file("X221-HP835/1-good.txt") }
163
+
164
+ it 'is handled' do
165
+ expect(parser).to be_deterministic
166
+
167
+ parser = Fixtures.file("X221-HP835/1-good.txt")
168
+ expect(parser).to be_deterministic
169
+
170
+ parser.parent.tap do |isa|
171
+ expect(isa).to have_structure(
172
+ Ss(X(:SE),
173
+ X(:PLB),
174
+ S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
175
+ Ss(X(:SE),
176
+ X(:PLB),
177
+ S(:ST) =>
178
+ Ss(S(:LX) =>
179
+ Ss(S(:SE),
180
+ S(:PLB)),
181
+ S(:SE) =>
182
+ Ss(X(:PLB),
183
+ X(:SE)),
184
+ S(:PLB) =>
185
+ Ss(R(:PLB), # only one PLB
186
+ S(:SE))))))
187
+ end
188
+ end
189
+ end
190
+
191
+ context 'with multiple PLBs' do
192
+ let(:parser) { Fixtures.file("X221-HP835/3a-good.txt") }
193
+ it 'is handled' do
194
+ expect(parser).to be_deterministic
195
+
196
+ parser.parent.tap do |isa|
197
+ expect(isa).to have_structure(
198
+ Ss(X(:SE),
199
+ X(:PLB),
200
+ S(:GS, "HP", nil, nil, "19991231", nil, 1) =>
201
+ Ss(X(:SE),
202
+ X(:PLB),
203
+ S(:ST) =>
204
+ Ss(S(:LX) =>
205
+ Ss(S(:SE),
206
+ S(:PLB),
207
+ S(:PLB, "9876543210"),
208
+ S(:PLB, "0123456789")),
209
+ S(:SE) =>
210
+ Ss(X(:PLB),
211
+ X(:SE)),
212
+ S(:PLB) =>
213
+ Ss(S(:PLB),
214
+ S(:PLB, "0123456789"),
215
+ R(:PLB, "9876543210"),
216
+ S(:SE)),
217
+ S(:PLB, "0123456789") =>
218
+ Ss(R(:PLB, "0123456789"),
219
+ R(:PLB, "9876543210"),
220
+ S(:SE)),
221
+ S(:PLB, "9876543210") =>
222
+ Ss(R(:PLB, "9876543210"),
223
+ S(:PLB, "0123456789"),
224
+ S(:SE))))))
225
+ end
226
+ end
227
+ end
228
+
229
+ context 'with table level permutations' do
230
+ # # 837
231
+ # Table 2A
232
+ # 2000A HL*..*..*20
233
+ # Table 2B
234
+ # 2000B HL*..*..*22
235
+ # Table 2C
236
+ # 2000C HL*..*..*23
237
+ let(:dsl) do
238
+ c = Stupidedi::Config.hipaa
239
+ b = Stupidedi::Builder::BuilderDsl.build(c, false)
240
+ b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc,
241
+ Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
242
+ b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X222")
243
+ b. ST("837", "0001", b.default)
244
+ b.BHT("0019", "00", "46X2A6", Time.now.utc, Time.now.utc, "CH")
245
+ b.NM1("41", "2", "TERRIBLE BILLING", nil, nil, nil, nil, "46", "X82BJJ")
246
+ b.PER("IC", nil, "TE", "5551212")
247
+ b.NM1("40", "2", "TERRIBLE INSURAN", nil, nil, nil, nil, "46", "3057XK")
248
+
249
+ b # return BuilderDsl instance
250
+ end
251
+
252
+ it "in HL*..*..20, HL*..*..*22, HL*..*..*23 are handled" do
253
+ ss = [["1", nil, "20", "1"],
254
+ ["2", nil, "20", "1"],
255
+ ["3", "1", "22", "1"],
256
+ ["4", "2", "22", "1"],
257
+ ["5", "3", "23", "0"],
258
+ ["6", "4", "23", "0"]]
259
+
260
+ ss.permutation do |p|
261
+ b = dsl.dup
262
+ p.each{|es| b.send(:HL, *es) }
263
+
264
+ m = b.machine.first.flatmap{|x| x.sequence(:GS, :ST) }
265
+
266
+ expect(m.map{|x| x.count(:HL, nil, nil, "20") }).to be_success(2)
267
+ expect(m.map{|x| x.count(:HL, nil, nil, "22") }).to be_success(2)
268
+ expect(m.map{|x| x.count(:HL, nil, nil, "23") }).to be_success(2)
269
+
270
+ expect(m.map{|x| x.count(:HL) }).to be_success(6)
271
+
272
+ expect(m.flatmap{|x| x.sequence(:HL) }.
273
+ map{|x| x.count(:HL) }).to be_success(5)
274
+
275
+ expect(m.flatmap{|x| x.sequence(:HL, :HL) }.
276
+ map{|x| x.count(:HL) }).to be_success(4)
277
+
278
+ expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL) }.
279
+ map{|x| x.count(:HL) }).to be_success(3)
280
+
281
+ expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL) }.
282
+ map{|x| x.count(:HL) }).to be_success(2)
283
+
284
+ expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL, :HL) }.
285
+ map{|x| x.count(:HL) }).to be_success(1)
286
+
287
+ expect(m.flatmap{|x| x.sequence(:HL, :HL, :HL, :HL, :HL, :HL) }.
288
+ map{|x| x.count(:HL) }).to be_success(0)
289
+ end if ss.respond_to?(:permutation)
290
+ end
291
+ end
292
+
293
+ context 'with loop-level permutations' do
294
+ # 837
295
+ # Table 1
296
+ # 1000A NM1*41
297
+ # 1000B NM1*40
298
+ let(:dsl) do
299
+ c = Stupidedi::Config.hipaa
300
+ b = Stupidedi::Builder::BuilderDsl.build(c, false)
301
+ b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc,
302
+ Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
303
+ b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X222")
304
+ b. ST("837", "0001", b.default)
305
+ b.BHT("0019", "00", "46X2A6", Time.now.utc, Time.now.utc, "CH")
306
+
307
+ b # return BuilderDsl instance
308
+ end
309
+
310
+ specify "in NM1*41, NM1*40 is handled" do
311
+ ss = [["41", "2", "TERRIBLE BILLING", nil, nil, nil, nil, "46", "X82BJJ"],
312
+ ["40", "2", "TERRIBLE INSURAN", nil, nil, nil, nil, "46", "3057XK"]]
313
+
314
+ ss.permutation do |p|
315
+ b = dsl.dup
316
+ p.each{|es| b.send(:NM1, *es) }
317
+
318
+ m = b.machine.parent
319
+ expect(m.map{|x| x.count(:NM1) }).to be_success(2)
320
+
321
+ expect(m.flatmap{|x| x.sequence(:NM1) }.
322
+ map{|x| x.count(:NM1) }).to be_success(1)
323
+
324
+ expect(m.flatmap{|x| x.sequence(:NM1, :NM1) }.
325
+ map{|x| x.count(:NM1) }).to be_success(0)
326
+ end if ss.respond_to?(:permutation)
327
+ end
328
+ end
329
+
330
+ context 'with segment-level permutations' do
331
+ # 835
332
+ # Table 1
333
+ # 1000A N1*PR
334
+ # PER*CX
335
+ # PER*BL
336
+ # PER*IC
337
+ let(:dsl) do
338
+ c = Stupidedi::Config.hipaa
339
+ b = Stupidedi::Builder::BuilderDsl.build(c)
340
+ b.ISA("00", nil, "01", "SECRET", "ZZ", "SUBMITTER", "ZZ", "RECEIVER", Time.now.utc,
341
+ Time.now.utc, nil, "00501", 123456789, "1", "T", nil)
342
+ b. GS("HP", "SENDER", "RECEIVER", Time.now.utc, Time.now.utc, 1, "X", "005010X221")
343
+ b. ST("835", "0001")
344
+ b.BPR("C", 150000, "C", "ACH", "CTX", "01", "999999992", "DA", "123456", "1512345678", nil, "01",
345
+ "999988880", "DA", "98765", "20020913")
346
+ b.TRN("1", "12345", "1512345678")
347
+ b.DTM("405", Time.now.utc)
348
+ b. N1("PR", "INSURANCE COMPANY OF TIMBUCKTU")
349
+ b. N3("1 MAIN STREET")
350
+ b. N4("TIMBUCKTU", "AK", "99501")
351
+ b.REF("2U", "999")
352
+ b.REF("NF", "12345")
353
+
354
+ b # return BuilderDsl instance
355
+ end
356
+
357
+ specify "in PER*IC, PER*BL, PER*CX is handled" do
358
+ ss = [["IC", nil, "UR", "WEBSITE.COM"],
359
+ ["BL", "COMPUTER PAT"],
360
+ ["BL", "COMPUTER SAM"],
361
+ ["CX", "BUSINESS KIM"]]
362
+
363
+ ss.permutation do |p|
364
+ b = dsl.dup
365
+ p.each{|es| b.send(:PER, *es) }
366
+
367
+ m = b.machine.parent
368
+ expect(m.map{|x| x.count(:PER) }).to be_success(4)
369
+
370
+ expect(m.flatmap{|x| x.sequence(:PER) }.
371
+ map{|x| x.count(:PER) }).to be_success(3)
372
+
373
+ expect(m.flatmap{|x| x.sequence(:PER, :PER) }.
374
+ map{|x| x.count(:PER) }).to be_success(2)
375
+
376
+ expect(m.flatmap{|x| x.sequence(:PER, :PER, :PER) }.
377
+ map{|x| x.count(:PER) }).to be_success(1)
378
+
379
+ expect(m.flatmap{|x| x.sequence(:PER, :PER, :PER, :PER) }.
380
+ map{|x| x.count(:PER) }).to be_success(0)
381
+ end if ss.respond_to?(:permutation)
382
+ end
383
+ end
384
+ end
385
+ end
386
+ end
data/spec/examples/integration/parsing/005010/X222-HC837.example ADDED
@@ -0,0 +1,257 @@
1
+ require "spec_helper"
2
+ using Stupidedi::Refinements
3
+
4
+ describe "X222-HC837" do
5
+ include NavigationMatchers
6
+
7
+ let(:parser) { Fixtures.file("X222-HC837/1-good.txt") }
8
+ context 'parser' do
9
+ let(:iea) { parser.segment.fetch }
10
+
11
+ it 'is deterministic' do
12
+ expect(parser).to be_deterministic
13
+ expect(parser).to be_last
14
+ end
15
+
16
+ it 'infers separators' do
17
+ expect(parser).to have_separators(
18
+ :element => "*",
19
+ :component => ":",
20
+ :repetition => "^",
21
+ :segment => "~"
22
+ )
23
+ end
24
+
25
+ it 'knows iea position' do
26
+ expect(iea.node.position.line).to eq(53)
27
+ expect(iea.node.position.column).to eq(1)
28
+ end
29
+ end
30
+
31
+ context 'structure' do
32
+ let(:isa) { parser.parent.fetch }
33
+
34
+ it 'has defined sequence' do
35
+ expect(parser).to have_sequence(%w(ISA GS ST BHT NM1 PER NM1 HL PRV NM1 N3 N4
36
+ REF NM1 N3 N4 HL SBR NM1 N3 N4 DMG NM1 N4 REF HL PAT NM1 N3 N4 DMG CLM
37
+ REF HI LX SV1 DTP LX SV1 DTP LX SV1 DTP LX SV1 DTP SE GE IEA))
38
+ end
39
+
40
+ it 'is correct' do
41
+ # Should have 49 total segments in the parse tree
42
+ expect(isa).to have_distance(48).to(parser)
43
+
44
+ # See matchers/navigation_matchers.rb
45
+ #
46
+ # Ss: list of segment matchers
47
+ # C: composite element
48
+ #
49
+ # S: the segment might be reachable, and /is/ reachable
50
+ # R: the segment might be reachable, but didn't occur
51
+ # X: the segment would never be reachable
52
+ #
53
+ expect(isa).to have_structure(
54
+ Ss(X(:ST),
55
+ R(:ISA), # No more ISAs
56
+ S(:GS, "HC", nil, nil, nil, nil, 1) =>
57
+ Ss(R(:GS), # No more GSs
58
+ S(:ST) =>
59
+ Ss(R(:ST), # No more STs
60
+ X(:PRV),
61
+ X(:NM1, "85"),
62
+ X(:NM1, "87"),
63
+ X(:SBR),
64
+ X(:NM1, "IL"),
65
+ X(:NM1, "PR"),
66
+ S(:BHT) =>
67
+ Ss(S(:NM1, "41"),
68
+ S(:NM1, "40"),
69
+ S(:HL, "1"),
70
+ S(:HL, "2"),
71
+ S(:HL, "3"),
72
+ S(:SE),
73
+ S(:GE),
74
+ S(:IEA)),
75
+ # 1000A SUBMITTER NAME
76
+ S(:NM1, "41") =>
77
+ Ss(S(:PER),
78
+ S(:NM1, "40"),
79
+ S(:HL, "1"),
80
+ S(:HL, "2"),
81
+ S(:HL, "3"),
82
+ S(:SE),
83
+ S(:GE),
84
+ S(:IEA)),
85
+ # 1000B RECEIVER NAME
86
+ S(:NM1, "40") =>
87
+ Ss(S(:HL, "1"),
88
+ S(:HL, "2"),
89
+ S(:HL, "3"),
90
+ S(:SE),
91
+ S(:GE),
92
+ S(:IEA)),
93
+ # 2000A BILLING PROVIDER HIERARCHICAL LEVEL
94
+ S(:HL, "1") =>
95
+ Ss(S(:PRV) =>
96
+ Ss(S(:NM1, "85"),
97
+ S(:NM1, "87"),
98
+ S(:HL, "2"),
99
+ S(:HL, "3"),
100
+ S(:SE),
101
+ S(:GE),
102
+ S(:IEA)),
103
+ # 2010AA BILLING PROVIDER NAME
104
+ S(:NM1, "85") =>
105
+ Ss(S(:NM1, "87") => Ss(),
106
+ S(:N3) => Ss(S(:N4),
107
+ S(:REF, "EI"),
108
+ S(:NM1, "87")),
109
+ S(:N4) => Ss(S(:REF, "EI"),
110
+ S(:NM1, "87")),
111
+ S(:REF, "EI") => Ss(S(:NM1, "87")),
112
+ S(:SE) => Ss(),
113
+ S(:GE) => Ss(),
114
+ S(:IEA) => Ss()),
115
+ # 2010AB PAY-TO ADDRESS NAME
116
+ S(:NM1, "87") =>
117
+ Ss(S(:N3) => Ss(S(:N4),
118
+ S(:HL, "2")),
119
+ S(:N4) => Ss(S(:HL, "2")),
120
+ S(:SE) => Ss(),
121
+ S(:GE) => Ss(),
122
+ S(:IEA) => Ss()),
123
+ S(:HL, "2") => Ss(),
124
+ S(:HL, "3") => Ss(),
125
+ S(:SE) => Ss(),
126
+ S(:GE) => Ss(),
127
+ S(:IEA) => Ss()),
128
+ # 2000B SUBSCRIBER HIERARCHICAL LEVEL
129
+ S(:HL, "2") =>
130
+ Ss(S(:SBR) =>
131
+ Ss(S(:NM1, "IL"),
132
+ S(:NM1, "PR"),
133
+ S(:HL, "3"),
134
+ S(:SE),
135
+ S(:GE),
136
+ S(:IEA)),
137
+ # 2010BA SUBSCRIBER NAME
138
+ S(:NM1, "IL") =>
139
+ Ss(S(:N3) => Ss(S(:N4),
140
+ S(:DMG),
141
+ S(:NM1, "PR"),
142
+ S(:HL, "3")),
143
+ S(:N4) => Ss(S(:DMG),
144
+ S(:NM1, "PR"),
145
+ S(:HL, "3")),
146
+ S(:DMG) => Ss(S(:NM1, "PR"),
147
+ S(:HL, "3")),
148
+ S(:SE) => Ss(),
149
+ S(:GE) => Ss(),
150
+ S(:IEA) => Ss()),
151
+ # 2010BB PAYER NAME
152
+ S(:NM1, "PR") =>
153
+ Ss(S(:N4) => Ss(S(:REF, "G2"),
154
+ S(:HL, "3")),
155
+ S(:REF, "G2") => Ss(S(:HL, "3")),
156
+ S(:SE) => Ss(),
157
+ S(:GE) => Ss(),
158
+ S(:IEA) => Ss()),
159
+ S(:HL, "3") => Ss(),
160
+ S(:SE) => Ss(),
161
+ S(:GE) => Ss(),
162
+ S(:IEA) => Ss()),
163
+ # 2000C PATIENT HIERARCHICAL LEVEL
164
+ S(:HL, "3") =>
165
+ Ss(S(:PAT) => Ss(S(:NM1, "QC"),
166
+ S(:CLM),
167
+ S(:SE),
168
+ S(:GE),
169
+ S(:IEA)),
170
+ # 2010CA PATIENT NAME
171
+ S(:NM1, "QC") =>
172
+ Ss(S(:N3) => Ss(S(:N4),
173
+ S(:DMG),
174
+ S(:CLM)),
175
+ S(:N4) => Ss(S(:DMG),
176
+ S(:CLM)),
177
+ S(:DMG) => Ss(S(:CLM)),
178
+ S(:CLM) => Ss(),
179
+ S(:SE) => Ss(),
180
+ S(:GE) => Ss(),
181
+ S(:IEA) => Ss()),
182
+ # 2300 CLAIM INFORMATION
183
+ S(:CLM) =>
184
+ Ss(R(:CLM), # No more CLMs
185
+ S(:REF, "D9"),
186
+ S(:HI, C("BK", "0340"), C("BF", "V7389")),
187
+ # 2400 SERVICE LINE NUMBER
188
+ S(:LX, "1") =>
189
+ Ss(R(:LX, "1"), # No more LX*1's
190
+ S(:LX, "2"),
191
+ S(:LX, "3"),
192
+ S(:LX, "4"),
193
+ S(:SV1, C(nil, "99213")) => Ss(S(:DTP, "472"),
194
+ S(:LX, "2"),
195
+ S(:LX, "3"),
196
+ S(:LX, "4"),
197
+ S(:SE),
198
+ S(:GE),
199
+ S(:IEA)),
200
+ S(:DTP, "472") => Ss(S(:LX, "2"),
201
+ S(:LX, "3"),
202
+ S(:LX, "4"),
203
+ S(:SE),
204
+ S(:GE),
205
+ S(:IEA))),
206
+ # 2400 SERVICE LINE NUMBER
207
+ S(:LX, "2") =>
208
+ Ss(R(:LX, "1"),
209
+ R(:LX, "2"), # No more LX*2's
210
+ S(:LX, "3"),
211
+ S(:LX, "4"),
212
+ S(:SV1, C(nil, "87070")) => Ss(S(:DTP, "472"),
213
+ S(:LX, "3"),
214
+ S(:LX, "4"),
215
+ S(:SE),
216
+ S(:GE),
217
+ S(:IEA)),
218
+ S(:DTP, "472") => Ss(S(:LX, "3"),
219
+ S(:LX, "4"),
220
+ S(:SE),
221
+ S(:GE),
222
+ S(:IEA))),
223
+ # 2400 SERVICE LINE NUMBER
224
+ S(:LX, "3") =>
225
+ Ss(R(:LX, "1"), # No more LX*1's
226
+ R(:LX, "2"), # No more LX*2's
227
+ R(:LX, "3"), # No more LX*3's
228
+ S(:LX, "4"),
229
+ S(:SV1, C(nil, "99214")) => Ss(S(:DTP, "472"),
230
+ S(:LX, "4"),
231
+ S(:SE),
232
+ S(:GE),
233
+ S(:IEA)),
234
+ S(:DTP, "472") => Ss(S(:LX, "4"),
235
+ S(:SE),
236
+ S(:GE),
237
+ S(:IEA))),
238
+ # 2400 SERVICE LINE NUMBER
239
+ S(:LX, "4") =>
240
+ Ss(R(:LX, "1"),
241
+ R(:LX, "2"),
242
+ R(:LX, "3"),
243
+ R(:LX, "4"),
244
+ S(:SV1, C(nil, "86663")) => Ss(S(:DTP, "472"),
245
+ S(:SE),
246
+ S(:GE),
247
+ S(:IEA)),
248
+ S(:DTP, "472") => Ss(S(:SE),
249
+ S(:GE),
250
+ S(:IEA))))),
251
+ S(:SE) => Ss(S(:GE),
252
+ S(:IEA))),
253
+ S(:GE) => Ss(S(:IEA)),
254
+ S(:IEA) => Ss())))
255
+ end
256
+ end
257
+ end