From 31a90455d00e36b1b7d822439649b90563ef7068 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 1 Dec 2021 11:49:23 -0500 Subject: [PATCH] LP1952931 Parsing DESADV EDI Messages Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm index 7b91722921..cd2ecbeb1d 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm @@ -29,7 +29,9 @@ my %edi_fields = ( purchase_order => qr/^RFF\+ON:(\S+)/, invoice_ident => qr/^BGM\+380\+([^\+]+)/, total_billed => qr/^MOA\+86:([^:]+)/, - invoice_date => qr/^DTM\+137:([^:]+)/ + invoice_date => qr/^DTM\+137:([^:]+)/, # This is really "messge date" + package_code => qr/^GIN\+BJ\+([^:]+)/, + lading_number => qr/^RFF\+BM:([^:]+)/ ); my %edi_li_fields = ( @@ -42,7 +44,9 @@ my %edi_li_fields = ( avail_status => qr/^FTX\+LIN\++([^:]+):8B:28/, # "1B" codes are deprecated, but still in use. # Pretend it's "12B" and it should just work - order_status => qr/^FTX\+LIN\++([^:]+):12?B:28/ + order_status => qr/^FTX\+LIN\++([^:]+):12?B:28/, + # DESADV messages have multiple PO ID's, one RFF+ON per LIN. + purchase_order => qr/^RFF\+ON:(\S+)/ ); my %edi_li_ident_fields = ( -- 2.11.0