hippo 0.0.4

data/lib/hippo/transaction_sets.rb

@@ -0,0 +1,11 @@
+module Hippo
+  module TransactionSets
+
+    autoload :Base,      'hippo/transaction_sets/base'
+    autoload :HIPAA_276,  'hippo/transaction_sets/HIPAA_276'
+    autoload :HIPAA_277,  'hippo/transaction_sets/HIPAA_277'
+    autoload :HIPAA_835,  'hippo/transaction_sets/HIPAA_835'
+    autoload :HIPAA_837,  'hippo/transaction_sets/HIPAA_837'
+    autoload :HIPAA_999,  'hippo/transaction_sets/HIPAA_999'
+  end
+end

data/lib/hippo/version.rb

@@ -0,0 +1,3 @@
+module Hippo
+  VERSION = "0.0.4"
+end

data/lib/hippo.rb

@@ -0,0 +1,15 @@
+libdir = File.dirname(__FILE__)
+$LOAD_PATH.unshift(libdir) unless $LOAD_PATH.include?(libdir)
+
+module Hippo
+  autoload :Exceptions,       'hippo/exceptions'
+  autoload :Segments,         'hippo/segments'
+  autoload :TransactionSets,  'hippo/transaction_sets'
+  autoload :Field,            'hippo/field'
+  autoload :CompositeField,   'hippo/composite_field'
+  autoload :Parser,           'hippo/parser'
+
+  FieldSeparator = '*'
+  CompositeSeparator = ':'
+  SegmentSeparator = '~'
+end

data/samples/835_4010.edi

@@ -0,0 +1 @@
+ISA*00*          *00*          *ZZ*EMEDNYBAT      *ZZ*530            *080716*1801*U*00401*198000001*0*T*:~GS*HP*EMEDNYBAT*530*20080716*18011900*198000001*X*004010X091A1~ST*835*159900001~BPR*H*0*C*NON************20080716~TRN*1*NO PAYMENT*1141797357~REF*EV*530~REF*F2*004010X091A1~DTM*405*20080716~N1*PR*NYSDOH~N3*OFFICE OF MEDICAID MANAGEMENT*CORNING TOWER, EMPIRE STATE PLAZA~N4*ALBANY*NY*122370080~N1*PE*ST ELSEWARE HSP MED CTR NY*XX*1234567890~REF*TJ*111991234~LX*1~CLP*0711000004462420*22*-123.86*-134.7**MC*0712000000015920*13*7~CAS*CR*A2*10.84*0~NM1*QC*1*PATIENT*ANNIBEL*X***MI*AA00000Z~NM1*82*1******XX*1234567890~REF*EA*607887001~REF*9A*4303~DTM*232*20070413~DTM*233*20070413~PER*CX*RETRO RATE REVERSAL~CLP*0711000004462420*1*123.86*130.7**MC*0712000000015920*13*7~CAS*CO*A2*-6.84*0~NM1*QC*1*PATIENT*ANNIBEL*X***MI*AA00000Z~NM1*82*1******XX*1234567890~REF*EA*607887001~REF*9A*4303~DTM*232*20070413~DTM*233*20070413~PER*CX*RETRO RATE CORRECTION~PLB*1234567890*20081231*FB:000000000000000000000000000000*-4~SE*32*159900001~GE*1*198000001~IEA*1*198000001~

data/samples/837_4010A1.edi

@@ -0,0 +1 @@
+ISA*00*          *00*          *ZZ*498            *ZZ*123456789      *070814*1741*U*00401*000001234*0*P*:~GS*HC*123*123456789*20070814*1741*2353*X*004010X098A1~ST*837*0001~BHT*0019*00*1*20070814*1741*CH~REF*87*004010X098A1~NM1*41*2*John Doe Clinic*****46*498~PER*IC*John Doe Clinic*TE*1305862479~NM1*40*2*NONEBLUE CROSS OF OKLAHOMA*****00*1301112222~HL*1**20*1~NM1*85*2*John Doe Clinic*****XX*1134125735~N3*12 MAIN STREET~N4*CITY*ST*56789~REF*EI*76053151601~HL*2*1*22*1~SBR*P**702510******CI~NM1*IL*1*DOE*JOHN****ST*123456789~N3*123 DOE ST~N4*CITY*ST*12345~DMG*D8*20020202*M~NM1*PR*2*NONEBLUE CROSS OF OKLAHOMA*****PI*12345~N3*P O BOX 000000~N4*CITY*ST*77210~HL*3*2*23*0~PAT*19******01*239~NM1*QC*1*SMITH*DOE Q****MI*123456789~N3*12 MAIN STREET~N4*CITY*ST*56789~CLM*968928879*45***12::1*Y*A*Y*Y*C~REF*9F*2417401094~REF*D9*26485~HI*BK:8489~NM1*DN*1*DOE*JANE~REF*1G*F01234~LX*1~SV1*HC:E0114:NU*45.00*UN*1***1~DTP*472*RD8*20070515-20070515~NM1*DK*1*DOE*JANE~N3*1234 NOWHERE SUITE 100~N4*CITY*ST*56789~REF*1G*F12345~PER*IC*JOHN DOLITTLE*TE*1301112222~SE*40*0001~GE*1*2353~IEA*1*000001234~

data/test/test_helper.rb

@@ -0,0 +1,118 @@
+require 'rubygems'
+gem 'minitest'
+require 'minitest/autorun'
+
+require_relative '../lib/hippo'
+require 'pp'
+
+module Hippo::Segments
+  class TestSimpleSegment < Hippo::Segments::Base
+    segment_identifier 'TSS'
+
+    field :name => 'Field1'
+    field :name => 'Field2'
+    field :name => 'Field3'
+    field :name => 'Field4'
+    field :name => 'CommonName'
+    field :name => 'CommonName'
+  end
+
+  class TestCompoundSegment < Hippo::Segments::Base
+    segment_identifier 'TCS'
+
+    composite_field 'CompositeField' do
+      field :name => 'Field1'
+      field :name => 'Field2'
+      field :name => 'Field3'
+      field :name => 'CompositeCommonName'
+    end
+
+    composite_field 'CompositeField' do
+      field :name => 'Field4'
+      field :name => 'Field5'
+      field :name => 'Field6'
+      field :name => 'CompositeCommonName'
+    end
+
+    field :name => 'Field7'
+  end
+end
+
+module Hippo::TransactionSets
+  module Test
+    class L0001 < Hippo::TransactionSets::Base
+      loop_name 'L0001'
+
+      segment Hippo::Segments::TestSimpleSegment,
+                :name           => 'Test Simple Segment #1',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 50
+    end
+
+    class L0002 < Hippo::TransactionSets::Base
+      loop_name 'L0002'
+
+      segment Hippo::Segments::TestCompoundSegment,
+                :name           => 'Test Compound Segment #4',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 100,
+                :defaults => {
+                  'Field7' => 'Preset Field 7'
+                }
+
+      segment Hippo::Segments::TestSimpleSegment,
+                :name           => 'Test Simple Segment #5',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 50,
+                :defaults => {
+                  'TSS01' => 'Last Segment'
+                }
+    end
+
+    class Base < Hippo::TransactionSets::Base
+
+      segment Hippo::Segments::TestSimpleSegment,
+                :name           => 'Test Simple Segment #1',
+                :minimum        => 1,
+                :maximum        => 5,
+                :position       => 50,
+                :defaults => {
+                  'TSS01' => 'Blah'
+                }
+
+      segment Hippo::Segments::TestCompoundSegment,
+                :name           => 'Test Compound Segment #2',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 100,
+                :defaults => {
+                  'Field7' => 'Preset Field 7'
+                }
+
+      segment Hippo::Segments::TestSimpleSegment,
+                :name           => 'Test Simple Segment #3',
+                :minimum        => 1,
+                :maximum        => 1,
+                :position       => 50,
+                :defaults => {
+                  'TSS01' => 'Last Segment'
+                }
+
+      loop Hippo::TransactionSets::Test::L0001,
+                :name           => 'Test Sub-Loop',
+                :identified_by  => {
+                  'TSS.TSS01'   => 'Foo'
+                }
+
+      loop Hippo::TransactionSets::Test::L0002,
+                :name           => 'Test Sub-Loop',
+                :maximum        => 5,
+                :identified_by  => {
+                  'TCS.Field7'   => 'Foo2'
+                }
+    end
+  end
+end

data/test/test_hipaa_837.rb

@@ -0,0 +1,396 @@
+#!/usr/bin/env ruby
+
+require_relative 'test_helper'
+
+class TestHIPAA837 < MiniTest::Unit::TestCase
+
+  def test_commercial_health_insurance
+=begin
+This example file is based on the Commercial Health Insurance example (3.1.1) published in the 5010X222A1 TR3.
+
+Patient is a different person than the Subscriber. Payer is commercial health insurance company.
+
+SUBSCRIBER: Jane Smith
+PATIENT ADDRESS:236 N. Main St., Miami, Fl, 33413
+TELEPHONE NUMBER: 305-555-1111
+SEX: F
+DOB: 05/01/43
+EMPLOYER: ACME Inc.
+GROUP #: 2222-SJ
+KEY INSURANCE COMPANY ID #: JS00111223333
+
+PATIENT: Ted Smith
+PATIENT ADDRESS:236 N. Main St., Miami, Fl, 33413
+TELEPHONE NUMBER: 305-555-1111
+SEX: M
+DOB: 05/01/73
+KEY INSURANCE COMPANY ID #: JS01111223333
+
+DESTINATION PAYER: Key Insurance Company
+PAYER ADDRESS: 3333 Ocean St. South Miami, FL 33000
+PAYER ID: 999996666
+
+SUBMITTER: Premier Billing Service
+EDI#: TGJ23
+CONTACT PERSON AND PHONE NUMBER: JERRY, 305-555-2222 ext. 231
+
+RECEIVER: Key Insurance Company
+EDI #:66783JJT
+
+BILLING PROVIDER: Dr. Ben Kildare,
+ADDRESS: 234 Seaway St, Miami, FL, 33111
+NPI: 9876543210
+TIN: 587654321
+KEY INSURANCE COMPANY PROVIDER ID #: KA6663
+Taxonomy Code: 203BF0100Y
+
+PAY-TO PROVIDER: Kildare Associates,
+PROVIDER ADDRESS: 2345 Ocean Blvd, Miami, Fl 33111
+RENDERING PROVIDER: Dr. Ben Kildare 
+
+PATIENT ACCOUNT NUMBER: 2-646-3774
+CASE: Patient has sore throat.
+
+INITIAL VISIT: DOS=10/03/06. POS=Office
+SERVICES: Office visit, intermediate service, established patient, throat culture.
+CHARGES: Office first visit = $40.00, Lab test for strep = $15.00
+
+FOLLOW-UP VISIT: DOS=10/10/06 POS=Office
+Antibiotics didn’t work (pain continues).
+SERVICES: Office visit, intermediate service, established patient, mono screening.
+CHARGES: Follow-up visit = $35.00, lab test for mono = $10.00.
+
+TOTAL CHARGES: $100.00.
+ELECTRONIC ROUTE: Billing provider (sender), to VAN to Key Insurance Company (receiver).
+VAN claim identification number = 17312345600006351.
+
+=end
+
+    ts = Hippo::TransactionSets::HIPAA_837::Base.new
+
+    ts.ST do |st|
+      st.TransactionSetControlNumber        = '0021'
+      st.ImplementationConventionReference  = '005010X222A1'
+    end
+
+    ts.BHT do |bht|
+      bht.TransactionSetPurposeCode = '00'
+      bht.ReferenceIdentification   = '244579'
+      bht.Date                      = '20061015'
+      bht.Time                      = '1023'
+      bht.TransactionTypeCode       = 'CH'
+    end
+
+    ts.L1000A do |l1000a|
+      l1000a.NM1 do |nm1|
+        nm1.EntityTypeQualifier        = '2'
+        nm1.NameLastOrOrganizationName = 'PREMIER BILLING SERVICE'
+        nm1.IdentificationCode         = 'TGJ23'
+      end
+
+      l1000a.PER do |per|
+        per.Name                            = 'JERRY'
+        per.CommunicationNumberQualifier_01 = 'TE'
+        per.CommunicationNumber_01          = '3055552222'
+        per.CommunicationNumberQualifier_02 = 'EX'
+        per.CommunicationNumber_02          = '231'
+      end
+    end
+
+    ts.L1000B do |l1000b|
+      l1000b.NM1 do |nm1|
+        nm1.EntityTypeQualifier        = '2'
+        nm1.NameLastOrOrganizationName = 'KEY INSURANCE COMPANY'
+        nm1.IdentificationCode         = '66783JJT'
+      end
+    end
+
+    ts.L2000A do |l2000a|
+      l2000a.HL do |hl|
+        hl.HL01 = hl.class.increment_sequence_number
+        hl.HL04 = 1
+      end
+
+      l2000a.PRV do |prv|
+        prv.ReferenceIdentification    = '203BF0100Y'
+      end
+
+      l2000a.L2010AA do |l2010aa|
+
+        l2010aa.NM1 do |nm1|
+          nm1.EntityTypeQualifier           = '2'
+          nm1.NameLastOrOrganizationName    = 'BEN KILDARE SERVICE'
+          nm1.IdentificationCodeQualifier   = 'XX'
+          nm1.IdentificationCode            = '9876543210'
+        end
+
+        l2010aa.N3 do |n3|
+          n3.AddressInformation             = '234 SEAWAY ST'
+        end
+
+        l2010aa.N4 do |n4|
+          n4.CityName                       = 'MIAMI'
+          n4.StateOrProvinceCode            = 'FL'
+          n4.PostalCode                     = '33111'
+        end
+
+        l2010aa.REF do |ref|
+          ref.ReferenceIdentificationQualifier = 'EI'
+          ref.ReferenceIdentification          = '587654321'
+        end
+      end
+
+      l2000a.L2010AB do |l2010ab|
+        l2010ab.NM1 do |nm1|
+          nm1.EntityTypeQualifier         = '2'
+        end
+
+        l2010ab.N3 do |n3|
+          n3.AddressInformation             = '2345 OCEAN BLVD'
+        end
+
+        l2010ab.N4 do |n4|
+          n4.CityName                       = 'MIAMI'
+          n4.StateOrProvinceCode            = 'FL'
+          n4.PostalCode                     = '33111'
+        end
+      end
+
+      ts.L2000B do |l2000b|
+        l2000b.HL do |hl|
+          hl.HL01 = hl.class.increment_sequence_number
+          hl.HL02 = l2000a.HL.HL01
+          hl.HL04 = 1
+        end
+
+        l2000b.SBR do |sbr|
+          sbr.PayerResponsibilitySequenceNumberCode = 'P'
+          sbr.ReferenceIdentification               = '2222-SJ'
+          sbr.ClaimFilingIndicatorCode              = 'CI'
+        end
+
+        l2000b.L2010BA do |l2010ba|
+          l2010ba.NM1 do |nm1|
+            nm1.EntityTypeQualifier         = '1'
+            nm1.NameLastOrOrganizationName  = 'SMITH'
+            nm1.NameFirst                   = 'JANE'
+            nm1.IdentificationCodeQualifier = 'MI'
+            nm1.IdentificationCode          = 'JS00111223333'
+          end
+
+          l2010ba.DMG do |dmg|
+            dmg.DateTimePeriod              = '19430501'
+            dmg.GenderCode                  = 'F'
+          end
+        end
+
+        l2000b.L2010BB do |l2010bb|
+          l2010bb.NM1 do |nm1|
+            nm1.EntityTypeQualifier           = '2'
+            nm1.NameLastOrOrganizationName    = 'KEY INSURANCE COMPANY'
+            nm1.IdentificationCodeQualifier   = 'PI'
+            nm1.IdentificationCode            = '999996666'
+          end
+
+          # second ref segment in L2010BB
+          l2010bb.REF_02 do |ref|
+            ref.ReferenceIdentificationQualifier = 'G2'
+            ref.ReferenceIdentification          = 'KA6663'
+          end
+        end
+
+        ts.L2000C do |l2000c|
+          l2000c.HL do |hl|
+            hl.HL01 = hl.class.increment_sequence_number
+            hl.HL02 = l2000b.HL.HL01
+            hl.HL04 = 0
+          end
+
+          l2000c.PAT do |pat|
+            pat.IndividualRelationshipCode = '19'
+          end
+
+          l2000c.L2010CA do |l2010ca|
+            l2010ca.NM1 do |nm1|
+              nm1.NameLastOrOrganizationName  = 'SMITH'
+              nm1.NameFirst                   = 'TED'
+            end
+
+            l2010ca.N3 do |n3|
+              n3.AddressInformation             = '236 N MAIN ST'
+            end
+
+            l2010ca.N4 do |n4|
+              n4.CityName                       = 'MIAMI'
+              n4.StateOrProvinceCode            = 'FL'
+              n4.PostalCode                     = '33413'
+            end
+
+            l2010ca.DMG do |dmg|
+              dmg.DateTimePeriod  = '19730501'
+              dmg.GenderCode      = 'M'
+            end
+          end
+
+          l2000c.L2300 do |l2300|
+            l2300.CLM do |clm|
+              clm.ClaimSubmitterSIdentifier         = '26463774'
+              clm.MonetaryAmount                    = '100'
+              clm.FacilityCodeValue                 = '11'
+              clm.FacilityCodeQualifier             = 'B'
+              clm.ClaimFrequencyTypeCode            = '1'
+              clm.YesNoConditionOrResponseCode      = 'Y'
+              clm.ProviderAcceptAssignmentCode      = 'A'
+              clm.YesNoConditionOrResponseCode_02   = 'Y'
+              clm.ReleaseOfInformationCode          = 'I'
+            end
+
+            l2300.REF_11 do |ref| #('Claim Identifier For Transmission Intermediaries') do |ref|
+              ref.ReferenceIdentification = '17312345600006351'
+            end
+
+            l2300.HI do |hi|
+              hi.CodeListQualifierCode_01 = 'BK'
+              hi.IndustryCode_01          = '0340'
+
+              hi.CodeListQualifierCode_02 = 'BF'
+              hi.IndustryCode_03          = 'V7389'
+            end
+
+            l2300.L2400.build do |l2400|
+              l2400.LX.LX01 = Hippo::Segments::LX.increment_sequence_number
+
+              l2400.SV1 do |sv1|
+                sv1.ProductServiceIdQualifier     = 'HC'
+                sv1.ProductServiceId              = '99213'
+                sv1.MonetaryAmount                = '40'
+                sv1.UnitOrBasisForMeasurementCode = 'UN'
+                sv1.Quantity                      = '1'
+                sv1.DiagnosisCodePointer          = 1
+              end
+
+              l2400.DTP('Date - Service Date') do |dtp|
+                dtp.DateTimePeriodFormatQualifier = 'D8'
+                dtp.DateTimePeriod                = '20061003'
+              end
+            end
+
+            l2300.L2400.build do |l2400|
+              l2400.LX.LX01 = Hippo::Segments::LX.increment_sequence_number
+
+              l2400.SV1 do |sv1|
+                sv1.ProductServiceIdQualifier     = 'HC'
+                sv1.ProductServiceId              = '87070'
+                sv1.MonetaryAmount                = '15'
+                sv1.UnitOrBasisForMeasurementCode = 'UN'
+                sv1.Quantity                      = '1'
+                sv1.DiagnosisCodePointer          = 1
+              end
+
+              l2400.DTP('Date - Service Date') do |dtp|
+                dtp.DateTimePeriodFormatQualifier = 'D8'
+                dtp.DateTimePeriod                = '20061003'
+              end
+            end
+
+            l2300.L2400.build do |l2400|
+              l2400.LX.LX01 = Hippo::Segments::LX.increment_sequence_number
+
+              l2400.SV1 do |sv1|
+                sv1.ProductServiceIdQualifier     = 'HC'
+                sv1.ProductServiceId              = '99214'
+                sv1.MonetaryAmount                = '35'
+                sv1.UnitOrBasisForMeasurementCode = 'UN'
+                sv1.Quantity                      = '1'
+                sv1.DiagnosisCodePointer          = 2
+              end
+
+              l2400.DTP('Date - Service Date') do |dtp|
+                dtp.DateTimePeriodFormatQualifier = 'D8'
+                dtp.DateTimePeriod                = '20061010'
+              end
+            end
+
+            l2300.L2400.build do |l2400|
+              l2400.LX.LX01 = Hippo::Segments::LX.increment_sequence_number
+
+              l2400.SV1 do |sv1|
+                sv1.ProductServiceIdQualifier     = 'HC'
+                sv1.ProductServiceId              = '86663'
+                sv1.MonetaryAmount                = '10'
+                sv1.UnitOrBasisForMeasurementCode = 'UN'
+                sv1.Quantity                      = '1'
+                sv1.DiagnosisCodePointer          = 2
+              end
+
+              l2400.DTP('Date - Service Date') do |dtp|
+                dtp.DateTimePeriodFormatQualifier = 'D8'
+                dtp.DateTimePeriod                = '20061010'
+              end
+            end
+          end
+        end
+      end
+    end
+
+
+    ts.SE do |se|
+      se.TransactionSetControlNumber = ts.ST.TransactionSetControlNumber
+    end
+
+    ts.SE.NumberOfIncludedSegments    = ts.segment_count
+
+    published_answer = <<EOF
+ST*837*0021*005010X222A1~
+BHT*0019*00*244579*20061015*1023*CH~
+NM1*41*2*PREMIER BILLING SERVICE*****46*TGJ23~
+PER*IC*JERRY*TE*3055552222*EX*231~
+NM1*40*2*KEY INSURANCE COMPANY*****46*66783JJT~
+HL*1**20*1~
+PRV*BI*PXC*203BF0100Y~
+NM1*85*2*BEN KILDARE SERVICE*****XX*9876543210~
+N3*234 SEAWAY ST~
+N4*MIAMI*FL*33111~
+REF*EI*587654321~
+NM1*87*2~
+N3*2345 OCEAN BLVD~
+N4*MIAMI*FL*33111~
+HL*2*1*22*1~
+SBR*P**2222-SJ******CI~
+NM1*IL*1*SMITH*JANE****MI*JS00111223333~
+DMG*D8*19430501*F~
+NM1*PR*2*KEY INSURANCE COMPANY*****PI*999996666~
+REF*G2*KA6663~
+HL*3*2*23*0~
+PAT*19~
+NM1*QC*1*SMITH*TED~
+N3*236 N MAIN ST~
+N4*MIAMI*FL*33413~
+DMG*D8*19730501*M~
+CLM*26463774*100***11:B:1*Y*A*Y*I~
+REF*D9*17312345600006351~
+HI*BK:0340*BF:V7389~
+LX*1~
+SV1*HC:99213*40*UN*1***1~
+DTP*472*D8*20061003~
+LX*2~
+SV1*HC:87070*15*UN*1***1~
+DTP*472*D8*20061003~
+LX*3~
+SV1*HC:99214*35*UN*1***2~
+DTP*472*D8*20061010~
+LX*4~
+SV1*HC:86663*10*UN*1***2~
+DTP*472*D8*20061010~
+SE*42*0021~
+EOF
+
+    assert_equal published_answer, ts.to_s.split('~').join("~\n") + "~\n"
+
+    #* not printing LX segments for each service line
+    #* HL parent/child references wrong
+    #* HL total segments counts should only be counting direct children
+
+  end
+
+end

data/test/test_segments_base.rb

@@ -0,0 +1,106 @@
+require_relative './test_helper'
+
+class TestSegmentsBase < MiniTest::Unit::TestCase
+  def setup; end;
+  def teardown; end;
+
+  def test_empty_segment
+    seg = Hippo::Segments::TestSimpleSegment.new
+
+    assert_equal 'TSS~', seg.to_s
+  end
+
+  def test_basic_populated_segment
+    seg = Hippo::Segments::TestSimpleSegment.new
+
+    seg.Field1 = 'TestField1'
+    seg.Field2 = 'TestField2'
+    seg.Field3 = 'TestField3'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS*TestField1*TestField2*TestField3*TestField4~', seg.to_s
+  end
+
+  def test_empty_field_in_segment
+    seg = Hippo::Segments::TestSimpleSegment.new
+
+    seg.Field2 = 'TestField2'
+    seg.Field3 = 'TestField3'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS**TestField2*TestField3*TestField4~', seg.to_s
+
+    seg = Hippo::Segments::TestSimpleSegment.new
+
+    seg.Field2 = 'TestField2'
+
+    assert_equal 'TSS**TestField2~', seg.to_s
+  end
+
+  def test_segment_orders_properly
+    seg = Hippo::Segments::TestSimpleSegment.new
+
+    seg.Field3 = 'TestField3'
+    seg.Field2 = 'TestField2'
+    seg.Field1 = 'TestField1'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS*TestField1*TestField2*TestField3*TestField4~', seg.to_s
+  end
+
+  def test_assign_values_with_same_field_names
+    seg = Hippo::Segments::TestSimpleSegment.new
+    seg.CommonName = 'Value1'
+    seg.CommonName_02 = 'Value2'
+
+    assert_equal 'TSS*****Value1*Value2~', seg.to_s
+
+    seg.CommonName_01 = 'Value3'
+    seg.CommonName_02 = 'Value4'
+
+    assert_equal 'TSS*****Value3*Value4~', seg.to_s
+  end
+
+  def test_compound_segment
+    seg = Hippo::Segments::TestCompoundSegment.new
+
+    seg.Field1  = 'Comp1Field1'
+    seg.Field2  = 'Comp1Field2'
+
+    assert_equal 'TCS*Comp1Field1:Comp1Field2~', seg.to_s
+
+    seg.Field7 = 'Field7'
+
+    assert_equal 'TCS*Comp1Field1:Comp1Field2**Field7~', seg.to_s
+  end
+
+  def test_compound_segment_with_empty_initial_fields
+    seg = Hippo::Segments::TestCompoundSegment.new
+
+    seg.Field2  = 'Comp1Field2'
+
+    assert_equal 'TCS*:Comp1Field2~', seg.to_s
+  end
+
+  def test_compound_segment_assign_values_with_same_field_names
+
+    seg = Hippo::Segments::TestCompoundSegment.new
+
+    seg.CompositeCommonName = 'CompVal1'
+    seg.CompositeCommonName_02 = 'CompVal2'
+
+    assert_equal 'TCS*:::CompVal1*:::CompVal2~', seg.to_s
+
+    seg.CompositeCommonName_1 = 'CompVal3'
+    seg.CompositeCommonName_2 = 'CompVal4'
+
+    assert_equal 'TCS*:::CompVal3*:::CompVal4~', seg.to_s
+  end
+
+  def test_assign_invalid_field_throws_error
+    assert_raises(Hippo::Exceptions::InvalidField) do
+      seg = Hippo::Segments::NM1.new
+      seg.InvalidField = 'Error should be raised.'
+    end
+  end
+end