view release on metacpan or  search on metacpan

lib/Business/EDI/Composite.pm  view on Meta::CPAN

    3055 => { pos => '030', def => 'an..3' , },
    7450 => { pos => '040', def => 'an..35', },
}},
'C944' => { label => 'MEMBERSHIP STATUS', desc => 'Code and/or description of membership status.', parts =>{
    7453 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    7452 => { pos => '040', def => 'an..35', },
}},
'C945' => { label => 'MEMBERSHIP LEVEL', desc => 'Identification of a membership level.', parts =>{
    7455 => { pos => '010', def => 'an..3' , mandatory => 1, },
    7457 => { pos => '020', def => 'an..9' , },
    1131 => { pos => '030', def => 'an..17', },
    3055 => { pos => '040', def => 'an..3' , },
    7456 => { pos => '050', def => 'an..35', },
}},
'C948' => { label => 'EMPLOYMENT CATEGORY', desc => 'Code and/or description of an employment category.', parts =>{
    9005 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9004 => { pos => '040', def => 'an..35', },
}},
'C950' => { label => 'QUALIFICATION CLASSIFICATION', desc => 'Qualification classification description and/or code. This specifies the trade, skill, professional or similar qualification category.', parts =>{
    9007 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9006 => { pos => '040', def => 'an..35', },
    9006 => { pos => '050', def => 'an..35', },
}},
'C951' => { label => 'OCCUPATION', desc => 'Description of an occupation.', parts =>{
    9009 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9008 => { pos => '040', def => 'an..35', },
    9008 => { pos => '050', def => 'an..35', },
}},
'C953' => { label => 'CONTRIBUTION TYPE', desc => 'Identification of the type of a contribution to a scheme or group.', parts =>{
    5049 => { pos => '010', def => 'an..3' , mandatory => 1, },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    5048 => { pos => '040', def => 'an..35', },
}},
'C955' => { label => 'ATTRIBUTE TYPE', desc => 'Identification of the type of attribute.', parts =>{
    9021 => { pos => '010', def => 'an..17', },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9020 => { pos => '040', def => 'an..70', },
}},
'C956' => { label => 'ATTRIBUTE DETAIL', desc => 'Identification of the attribute related to an entity.', parts =>{
    9019 => { pos => '010', def => 'an..17', },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9018 => { pos => '040', def => 'an..256', },
}},
'C960' => { label => 'REASON FOR CHANGE', desc => 'Code and/or description of the reason for a change.', parts =>{
    4295 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    4294 => { pos => '040', def => 'an..35', },
}},
'C961' => { label => 'FORMULA COMPLEXITY', desc => 'Identification of the complexity of a formula.', parts =>{
    9505 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
}},
'C970' => { label => 'CLAUSE NAME', desc => 'Identification of a clause in coded or clear form.', parts =>{
    4069 => { pos => '010', def => 'an..17', },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    4068 => { pos => '040', def => 'an..70', },
}},
'C971' => { label => 'PROVISO TYPE', desc => 'Specification of the proviso type in coded or clear form.', parts =>{
    4073 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    4072 => { pos => '040', def => 'an..35', },
}},
'C972' => { label => 'PROVISO CALCULATION', desc => 'Specification of the proviso calculation in coded or clear form.', parts =>{
    4075 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    4074 => { pos => '040', def => 'an..35', },
}},
'C973' => { label => 'APPLICABILITY TYPE', desc => 'Specification of the applicability type in coded or clear form.', parts =>{
    9049 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9048 => { pos => '040', def => 'an..35', },
}},
'C974' => { label => 'BASIS TYPE', desc => 'Specification of the basis in coded or clear form.', parts =>{
    9047 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    9046 => { pos => '040', def => 'an..35', },
}},
'C977' => { label => 'PERIOD DETAIL', desc => 'Specification of the period detail in coded or clear form.', parts =>{
    2119 => { pos => '010', def => 'an..3' , },
    1131 => { pos => '020', def => 'an..17', },
    3055 => { pos => '030', def => 'an..3' , },
    2118 => { pos => '040', def => 'an..35', },
}},
};

sub codemap {
    # my $self = shift;
    return $guts;
}

sub chunk {
    my ($class, $key) = @_;
    my $chunk = $guts->{$key};
    if (! $chunk) {
         $debug and carp __PACKAGE__ . " : Composite key '$key' unrecognized";
         return;
    }
    return $chunk;
}

sub spec_parts {
    my ($class, $key) = @_;
    if (! $key) {