From: Bill Erickson Date: Wed, 1 Dec 2021 16:49:23 +0000 (-0500) Subject: LP1952931 Parsing DESADV EDI Messages X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a350dbea1dfaa3e5131ad8883b6fe886c3989d5d;p=working%2FEvergreen.git LP1952931 Parsing DESADV EDI Messages Signed-off-by: Bill Erickson --- 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 = (