From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 1 Dec 2021 17:01:59 +0000 (-0500)
Subject: LP1952931 Parsing DESADV EDI Messages
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3d33b3ae72519dbfbe098b1f839bc0dddd935233;p=working%2FEvergreen.git

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 cd2ecbeb1d..e68f6eabdf 100644
--- 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}/;
         }