LP1952931 Parsing DESADV EDI Messages

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm
index cd2ecbe..e68f6ea 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm
@@ -114,6 +114,11 @@ sub read {
         next unless $msg;
 
         for my $field (keys %edi_fields) {
+
+            # With ASN, a purchase_order value specified per lineitem.
+            # Avoid tracking a message-level PO to avoid confusion.
+            next if $msg->{message_type} eq 'DESADV' && $field eq 'purchase_order';
+
             ($msg->{$field}) = $_ =~ /$edi_fields{$field}/
                 if /$edi_fields{$field}/;
         }