/usr/share/perl5/Business/EDI/Segment.pm is in libbusiness-edi-perl 0.05-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | package Business::EDI::Segment;
use base qw/Business::EDI/;
use strict;
use warnings;
use Carp;
our $VERSION = 0.01;
our $debug = 0;
our @codes = ();
our @required_codes = ();
sub new {
my $class = shift;
my $unblessed = $class->SUPER::unblessed(shift, \@codes);
$unblessed or return;
my $self = bless($unblessed, $class);
$self->debug($debug);
return $self;
}
1;
__END__
Data comes in looking like this, where the hashref is what gets passed to new():
'BGM',
{
'1004' => '582822',
'4343' => 'AC',
'1225' => '29', # ACCEPTED!
'C002' => { '1001' => '231' }
}
From the ORDRSP spec:
BGM - Beginning of message
A segment by which the sender must uniquely identify the order response by means of its number and when necessary its function.
MESSAGE |
FUNCTION | Meaning
CODE |
=================================================================
12 | Total message was NOT processed, rejected or accepted.
27 | Rejected
29 | ACCEPTED (w/o Amendment)
28 | Accepted w/ Amendment in Heading info
30 | Accepted w/ Amendment in Detail section (LIN)
34 | Accepted w/ Amendment in Heading AND Detail
12 | NOT PROCESSED: acknowledgement of receipt by seller, but remains to be processed within his application system.
2 | NOT ACCEPTED
If 28 or 34, then all segments in the heading section must be used from the ORDRES or ORDCHG message being responded to. This includes both amended and non amended segments.
For 28, the Detail Section is considered as acknowledged without change.
|