Lines 607-617
sub message_date_segment {
Link Here
|
607 |
|
607 |
|
608 |
sub _const { |
608 |
sub _const { |
609 |
my $key = shift; |
609 |
my $key = shift; |
610 |
Readonly my %S => { |
610 |
if ( $key eq 'service_string_advice' ) { |
611 |
service_string_advice => q{UNA:+.? '}, |
611 |
return q{UNA:+.? '}; |
612 |
message_identifier => q{+ORDERS:D:96A:UN:EAN008'}, |
612 |
} elsif ( $key eq 'message_identifier' ) { |
613 |
}; |
613 |
return q{+ORDERS:D:96A:UN:EAN008'}; |
614 |
return ( $S{$key} ) ? $S{$key} : q{}; |
614 |
} |
|
|
615 |
return q{}; |
615 |
} |
616 |
} |
616 |
|
617 |
|
617 |
sub _interchange_sr_identifier { |
618 |
sub _interchange_sr_identifier { |
618 |
- |
|
|