sub read_record {
    my ($line) = @_;
    my %claim_record = ();
    @claim_record{ get_fields() } = unpack( get_template(), $line);
    return \%claim_record;
}

##
## Returns all of the field names in @Claim_Fields
##
sub get_fields {
    my @fields = ();
    foreach my $claim_field ( @Claim_Fields ) {
        push(@fields, $claim_field->[0]);
    }
    return @fields;
}

##
## Builds the template from the template fields in @Claim_Fields
##
sub get_template {
    my $template = '';
    foreach my $claim_field ( @Claim_Fields ) {
        $template .= $claim_field->[2];
    }
    return $template;
}

##
## Builds a hash table for lookup from @Claim_Fields
##
sub get_table {
    my %table = ();
    foreach my $claim_field ( @Claim_Fields ) {
        $table{$claim_field->[0]} = $claim_field->[1];
    }
    return %table;
}