Business::FedEx::Constants - FedEx Lookup Codes
Index
Code Index:
NAME
Business::FedEx::Constants - FedEx Lookup Codes
DESCRIPTION
This module contains all the required codes needed by the FedEx Ship Manager API.
All hash key lookups need to be done with lower case keys. I wanted to follow the
FedEx Tagged Transaction Guide as close as possible so some of the names are pretty long.
FedEx does occasionally change these tags so please check that you always have the most
current version of this module. Changes should not break existing code. All changes are
documented in a Changes file.
We use this module extensively so as soon as a change is made we are quick to post to CPAN.
Also, any changes or ideas are welcome please email me.
EXPORTS
- %FE_RE
-
RE == XXX?. Maps from field tag to field name. Eg,
$FE_RE{1} = 'customer_transaction_identifier';
- %FE_SE
-
SE == XXX? The reverse of %FE_RE. Eg,
$FE_SE{customer_transaction_identifier} = 1;
- %FE_TT
-
TT == transaction tag? Maps from UTI to a list containing transaction
tag and either the carrier or '' if it applies to all carriers. Eg,
$FE_TT{2016} = ['021', 'FDXE'];
$FE_TT{3000} = ['021', 'FDXG'];
$FE_TT{3003} = ['211', ''];
- %FE_UTI_BY_TT
-
Maps from transaction tag and carrier to UTI. Eg,
$FE_UTI_BY_TT{'021'}{FDXE} = 2016;
$FE_UTI_BY_TT{'021'}{FDXG} = 3000;
$FE_UTI_BY_TT{'211'}{''} = 3003;
'' is used for the carrier if the transaction applies to all carriers.
If you want to determine whether this is the case programmatically,
first check $FE_UTI_BY_TT{$tt}{$carrier}, if that doesn't exist (you can
use a simple boolean test), use $FE_UTI_BY_TT{$tt}{''}. You can use
uti_by_tt_carrier() to do this for you.
- %FE_RQ
-
RQ == required. Maps from UTI to a list of field tags that UTI requires.
Eg,
$FE_RQ{1005} = [0,10,498,3025,29];
- $FE_* hash refs
-
Also exported for backwards compatibility are hash refs for the %FE_RE,
%FE_SE, %FE_TT, and %FE_RQ hashes. Eg, you get $FE_RE, a reference to
%FE_RE. These reference the raw underlying hashes, the % versions are
read-only and they croak if you try to use a non-existent key. You
should use the % versions in new code.
- field_name_to_tag $name_or_tag
-
This translates from field names to field tag numbers. The $name_or_tag
can contain an optional trailing -\d+ for a multiple-occurrence tag.
Given an invalid name it croaks.
- field_tag_to_name $name_or_tag
-
This translates from field tag numbers to field names. The $name_or_tag
can contain an optional trailing -\d+ for a multiple-occurrence tag.
Given an invalid name it croaks.
- uti_by_tt_carrier $transaction_tag, $carrier
-
This returns the UTI to use for the given $transaction_tag and $carrier,
or croaks if there isn't any. The $carrier can be '' for transactions
which aren't carrier-specific (but using a non-empty $carrier will also
work for those transactions).
AUTHORS
Jay Powers, <jpowers@cpan.org>
http://www.vermonster.com/
Copyright (c) 2004 Jay Powers
All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself
If you have any questions, comments or suggestions please contact me.
SEE ALSO
# FedEx::Constants
# $Id: Constants.pm,v 1.17 2004/08/09 16:07:20 jay.powers Exp $
# Copyright (c) 2004 Jay Powers
# All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself
package Business::FedEx::Constants;
require 5.006_000;
use strict;
use Carp qw(croak);
require Exporter;
require Tie::StrictHash;
use vars qw(@ISA @EXPORT $VERSION);
BEGIN {
@ISA = ('Exporter');
@EXPORT = qw(
%FE_RE %FE_SE %FE_TT %FE_UTI_BY_TT %FE_RQ
$FE_RE $FE_SE $FE_TT $FE_RQ
field_name_to_tag
field_tag_to_name
uti_by_tt_carrier
);
$VERSION = '1.01';
}
use vars grep { /^[$@%]/ } @EXPORT;
# Here are all the UTI codes from FedEx
#1002 = 007 / 107 FDXG End-of-day close
#1005 = 023 / 123 FDXE FedEx Express Delete-A-Package
#2016 = 021 / 121 FDXE FedEx Express Ship-A-Package
#2017 = 022 / 122 FDXE Global Rate-A-Package
#2018 = 019 / 119 FDXE Service Availability
#2024 = 025 / 125 ALL Rate Available Services
#2025 = 410 / 510 ALL FedEx Locator
#3000 = 021 / 121 FDXG FedEx Ground Ship-A-Package
#3001 = 023 / 123 FDXG FedEx Ground Delete-A-Package
#3003 = 211 / 311 ALL Subscription
#3004 = 022 / 122 FDXG Global Rate-A-Package
#5000 = 402 / 502 ALL Track By Number, Destination, Ship Date, and Reference
#5001 = 405 / 505 ALL Signature Proof of Delivery
#5002 = 403 / 503 ALL Track By Number, Destination, Ship Date, and Reference
#
# XXX UTI 5000 isn't in the tagged transaction guide version 1.2
# (2003-07-10).
our $FE_TT = {
1002 => ['007','FDXG'],
1005 => ['023','FDXE'],
2016 => ['021','FDXE'],
2017 => ['022','FDXE'],
2018 => ['019','FDXE'],
2024 => ['025',''],
2025 => ['410',''],
3000 => ['021','FDXG'],
3001 => ['023','FDXG'],
3003 => ['211',''],
3004 => ['022','FDXG'],
5000 => ['402',''],
5001 => ['405',''],
5002 => ['403','']
};
# First check $FE_UTI_BY_TT->{$tt}{$carrier}, if that doesn't exist (you
# can use a simple boolean test), use $FE_UTI_BY_TT->{$tt}{''}.
our $FE_UTI_BY_TT = { };
for my $uti (keys %{ $FE_TT }) {
my ($tt, $carrier) = @{ $FE_TT->{$uti} };
if (exists $FE_UTI_BY_TT->{$tt}{$carrier}) {
die "Duplicate %FE_TT entry for $tt/$carrier";
}
$FE_UTI_BY_TT->{$tt}{$carrier} = $uti;
}
our $FE_RQ = {
1002 => [0,10,498,3025,1007,1366],
1005 => [0,10,498,3025,29],
2016 => [0,10,498,3025,4,32,5,7,8,9,117,183,13,18,50,68,23,1273,1401,1333],
2017 => [0,10,498,3025,8,9,117,16,17,50,75,1274,1401,1333],
2018 => [0,10,498,3025,47,9,17,50,24],
2024 => [0,10,498,8,9,117,16,17,50,1401,1333],
2025 => [0,10,498,3025,9],
3000 => [0,10,498,3025,4,32,5,7,8,9,117,183,13,18,50,68,23,1273,1401,1333],
3001 => [0,10,29,498,3025],
3003 => [0,10,4003,4008,4011,4012,4013,4014,4015],
5000 => [0,10,498,3025,24,29],
5001 => [0,10,498,3025,24,29],
5002 => [0,10,498,3025,24,29],
};
our $FE_RE = {
0 => 'transaction_code',
1 => 'customer_transaction_identifier',
2 => 'transaction_error_code',
3 => 'transaction_error_message',
4 => 'sender_company',
5 => 'sender_address_line_1',
6 => 'sender_address_line_2',
7 => 'sender_city',
8 => 'sender_state',
9 => 'sender_postal_code',
10 => 'sender_fedex_express_account_number',
11 => 'recipient_company',
12 => 'recipient_contact_name',
13 => 'recipient_address_line_1',
14 => 'recipient_address_line_2',
15 => 'recipient_city',
16 => 'recipient_state',
17 => 'recipient_postal_code',
18 => 'recipient_phone_number',
20 => 'payer_account_number',
23 => 'pay_type',
24 => 'ship_date',
25 => 'reference_information',
27 => 'cod_flag',
28 => 'cod_return_tracking_number',
29 => 'tracking_number',
30 => 'ursa_code',
32 => 'sender_contact_name',
33 => 'service_commitment',
38 => 'sender_department',
40 => 'alcohol_type',
41 => 'alcohol_packaging',
44 => 'hal_address',
46 => 'hal_city',
47 => 'hal_state',
48 => 'hal_postal_code',
49 => 'hal_phone_number',
50 => 'recipient_country',
51 => 'signature_release_ok_flag',
52 => 'alcohol_packages',
57 => 'dim_height',
58 => 'dim_width',
59 => 'dim_length',
65 => 'astra_barcode',
66 => 'broker_name',
67 => 'broker_phone_number',
68 => 'customs_declared_value_currency_type',
70 => 'duties_pay_type',
71 => 'duties_payer_account',
72 => 'terms_of_sale',
73 => 'parties_to_transaction',
74 => 'country_of_ultimate_destination',
75 => 'weight_units',
76 => 'commodity_number_of_pieces',
79 => 'description_of_contents',
80 => 'country_of_manufacturer',
81 => 'harmonized_code',
82 => 'unit_quantity',
83 => 'export_license_number',
84 => 'export_license_expiration_date',
99 => 'end_of_record',
113 => 'commercial_invoice_flag',
116 => 'package_total',
117 => 'sender_country_code',
118 => 'recipient_irs',
120 => 'ci_marks_and_numbers',
169 => 'importer_country',
170 => 'importer_name',
171 => 'importer_company',
172 => 'importer_address_line_1',
173 => 'importer_address_line_2',
174 => 'importer_city',
175 => 'importer_state',
176 => 'importer_postal_code',
177 => 'importer_account_number',
178 => 'importer_number_phone',
180 => 'importer_id',
183 => 'sender_phone_number',
186 => 'cod_add_freight_charges_flag',
188 => 'label_buffer_data_stream',
190 => 'document_pib_shipment_flag',
194 => 'delivery_day',
195 => 'destination',
198 => 'destination_location_id',
404 => 'commodity_license_exception',
409 => 'delivery_date',
411 => 'cod_return_label_buffer_data_stream',
413 => 'nafta_flag',
414 => 'commodity_unit_of_measure',
418 => 'ci_comments',
431 => 'dim_weight_used_flag',
439 => 'cod_return_contact_name',
440 => 'residential_delivery_flag',
496 => 'freight_service_commitment',
498 => 'meter_number',
526 => 'form_id',
527 => 'cod_return_form_id',
528 => 'commodity_eccn',
535 => 'cod_return',
536 => 'cod_return_service_commitment',
543 => 'cod_return_collect_plus_freight_amount',
557 => 'message_type_code',
558 => 'message_code',
559 => 'message_text',
600 => 'forwarding_agent_routed_export_transaction_indicator',
602 => 'exporter_ein_ssn_indicator',
603 => 'int-con_company_name',
604 => 'int-con_contact_name',
605 => 'int-con_address_line_1',
606 => 'int-con_address_line_2',
607 => 'int-con_city',
608 => 'int-con_state',
609 => 'int-con_zip',
610 => 'int-con_phone_number',
611 => 'int-con_country',
1005 => 'manifest_invoic_e_file_name',
1006 => 'domain_name',
1007 => 'close_manifest_date',
1008 => 'package_ready_time',
1009 => 'time_companyclose',
1032 => 'duties_payer_country_code',
1089 => 'rate_scale',
1090 => 'rate_currency_type',
1092 => 'rate_zone',
1096 => 'origin_location_id',
1099 => 'volume_units',
1101 => 'payer_credit_card_number',
1102 => 'payer_credit_card_type',
1103 => 'sender_fax',
1104 => 'payer_credit_card_expiration_date',
1115 => 'ship_time',
1116 => 'dim_units',
1117 => 'package_sequence',
1118 => 'release_authorization_number',
1119 => 'future_day_shipment',
1120 => 'inside_pickup_flag',
1121 => 'inside_delivery_flag',
1123 => 'master_tracking_number',
1124 => 'master_form_id',
1137 => 'ursa_uned_prefix',
1139 => 'sender_irs_ein_number',
1145 => 'recipient_department',
1159 => 'scan_description',
1160 => 'scan_location_city',
1161 => 'scan_location_state',
1162 => 'scan_date',
1163 => 'scan_time',
1164 => 'scan_location_country',
1167 => 'disp_exception_cd',
1168 => 'status_exception_cd',
1174 => 'bso_flag',
1178 => 'ursa_suffix_code',
1179 => 'broker_fdx_account_number',
1180 => 'broker_company',
1181 => 'broker_line_1_address',
1182 => 'broker_line_2_address',
1183 => 'broker_city',
1184 => 'broker_state',
1185 => 'broker_postal_code',
1186 => 'broker_country_code',
1187 => 'broker_id_number',
1193 => 'ship_delete_message',
1195 => 'payer_country_code',
1200 => 'hold_at_location_hal_flag',
1201 => 'sender_email_address',
1202 => 'recipient_email_address',
1203 => 'optional_ship_alert_message',
1204 => 'ship_alert_email_address',
1206 => 'ship_alert_notification_flag',
1208 => 'no_indirect_delivery_flag_signature_required',
1210 => 'purpose_of_shipment',
1211 => 'pod_address',
1213 => 'proactive_notification_flag',
1237 => 'cod_return_phone',
1238 => 'cod_return_company',
1239 => 'cod_return_department',
1240 => 'cod_return_address_1',
1241 => 'cod_return_address_2',
1242 => 'cod_return_city',
1243 => 'cod_return_state',
1244 => 'cod_return_postal_code',
1253 => 'packaging_list_enclosed_flag',
1265 => 'hold_at_location_contact_name',
1266 => 'saturday_delivery_flag',
1267 => 'saturday_pickup_flag',
1268 => 'dry_ice_flag',
1271 => 'shippers_load_and_count_slac',
1272 => 'booking_number',
1273 => 'packaging_type',
1274 => 'service_type',
1286 => 'exporter_ppi-_contact_name',
1287 => 'exporter_ppi-company_name',
1288 => 'exporter_ppi-address_line_1',
1289 => 'exporter_ppi-address_line_2',
1290 => 'exporter_ppi-city',
1291 => 'exporter_ppi-state',
1292 => 'exporter_ppi-zip',
1293 => 'exporter_ppi-country',
1294 => 'exporter_ppi-phone_number',
1295 => 'exporter_ppi-ein_ssn',
1297 => 'customer_invoice_number',
1300 => 'purchase_order_number',
1331 => 'dangerous',
1332 => 'alcohol_flag',
1333 => 'drop_off_type',
1337 => 'package_content_information',
1339 => 'estimated_delivery_date',
1340 => 'estimated_delivery_time',
1341 => 'sender_pager_number',
1342 => 'recipient_pager_number',
1343 => 'broker_email_address',
1344 => 'broker_fax_number',
1346 => 'emerge_shipment_identifier',
1347 => 'emerge_merchant_identifier',
1349 => 'aes_filing_status',
1350 => 'xtn_suffix_number',
1352 => 'sender_ein_ssn_identificator',
1358 => 'aes_ftsr_exemption_number',
1359 => 'sed_legend_number',
1366 => 'close_manifest_time',
1367 => 'close_manifest_data_buffer',
1368 => 'label_type',
1369 => 'label_printer_type',
1370 => 'label_media_type',
1371 => 'manifest_only_request_flag',
1372 => 'manifest_total',
1376 => 'rate_weight_unit_of_measure',
1377 => 'dim_weight_unit_of_measure',
1391 => 'client_revision_indicator',
1392 => 'inbound_visibility_block_shipment_data_indicator',
1394 => 'shipment_content_records_total',
1395 => 'part_number',
1396 => 'sku_item_upc',
1397 => 'receive_quantity',
1398 => 'description',
1399 => 'aes_entry_number',
1400 => 'total_shipment_weight',
1401 => 'total_package_weight',
1402 => 'billed_weight',
1403 => 'dim_weight',
1404 => 'total_volume',
1405 => 'alcohol_volume',
1406 => 'dry_ice_weight',
1407 => 'commodity_weight',
1408 => 'commodity_unit_value',
1409 => 'cod_amount',
1410 => 'commodity_customs_value',
1411 => 'total_customs_value',
1412 => 'freight_charge',
1413 => 'insurance_charge',
1414 => 'taxes_miscellaneous_charge',
1415 => 'declared_value_carriage_value',
1416 => 'base_rate_amount',
1417 => 'total_surcharge_amount',
1418 => 'total_discount_amount',
1419 => 'net_charge_amount',
1420 => 'total_rebate_amount',
1429 => 'list_variable_handling_charge_amount',
1431 => 'list_total_customer_charge',
1432 => 'cod_customer_amount',
1450 => 'more_data_indicator',
1451 => 'sequence_number',
1452 => 'last_tracking_number',
1453 => 'track_reference_type',
1454 => 'track_reference',
1456 => 'spod_type_request',
1458 => 'spod_fax_recipient_name',
1459 => 'spod_fax_recipient_number',
1460 => 'spod_fax_sender_name',
1461 => 'spod_fax_sender_phone_number',
1462 => 'language_indicator',
1463 => 'spod_fax_recipient_company_name_mail',
1464 => 'spod_fax_recipient_address_line_1_mail',
1465 => 'spod_fax_recipient_address_line_2_mail',
1466 => 'spod_fax_recipient_city_mail',
1467 => 'spod_fax_recipient_state_mail',
1468 => 'spod_fax_recipient_zip_postal_code_mail',
1469 => 'spod_fax_recipient_country_mail',
1470 => 'spod_fax_confirmation',
1471 => 'spod_letter',
1472 => 'spod_ground_recipient_name',
1473 => 'spod_ground_recipient_company_name',
1474 => 'spod_ground_recipient_address_line_1',
1475 => 'spod_ground_recipient_address_line_2',
1476 => 'spod_ground_recipient_city',
1477 => 'spod_ground_recipient_state_province',
1478 => 'spod_ground_recipient_zip_postal_code',
1479 => 'spod_ground_recipient_country',
1480 => 'more_information',
1507 => 'list_total_surcharge_amount',
1525 => 'effective_net_discount',
1528 => 'list_net_charge_amount',
1529 => 'rate_indicator_1_numeric_valid_values',
1530 => 'list_base_rate_amount',
1531 => 'list_total_discount_amount',
1532 => 'list_total_rebate_amount',
1534 => 'detail_scan_indicator',
1535 => 'paging_token',
1536 => 'number_of_relationships',
1537 => 'search_relationship_string',
1538 => 'search_relationship_type_code',
1551 => 'delivery_notification_flag',
1552 => 'language_code',
1553 => 'shipper_delivery_notification_flag',
1554 => 'shipper_ship_alert_flag',
1555 => 'shipper_language_code',
1556 => 'recipient_delivery_notification_flag',
1557 => 'recipient_ship_alert_flag',
1558 => 'recipient_language_code',
1559 => 'broker_delivery_notification_flag',
1560 => 'broker_ship_alert_flag',
1561 => 'broker_language_code',
1562 => 'fedex_staffed_location_flag',
1563 => 'fedex_self_service_location_indicator',
1564 => 'fasc',
1565 => 'latest_express_dropoff_flag',
1566 => 'express_dropoff_after_time',
1567 => 'fedex_location_intersection_street_address',
1568 => 'distance',
1569 => 'hours_of_operation',
1570 => 'hours_of_operation_sat',
1571 => 'last_express_dropoff',
1572 => 'last_express_dropoff_sat',
1573 => 'express_service_flag',
1574 => 'location_count',
1575 => 'fedex_location_business_name',
1576 => 'fedex_location_business_type',
1577 => 'fedex_location_city',
1578 => 'fedex_location_state',
1579 => 'fedex_location_postal_code',
1580 => 'dangerous_goods_flag',
1581 => 'saturday_service_flag',
1582 => 'begin_date',
1583 => 'end_date',
1584 => 'tracking_groups',
1606 => 'variable_handling_charge_level',
1607 => 'doc_tab_header_1',
1608 => 'doc_tab_header_2',
1609 => 'doc_tab_header_3',
1610 => 'doc_tab_header_4',
1611 => 'doc_tab_header_5',
1612 => 'doc_tab_header_6',
1613 => 'doc_tab_header_7',
1614 => 'doc_tab_header_8',
1615 => 'doc_tab_header_9',
1616 => 'doc_tab_header_10',
1617 => 'doc_tab_header_11',
1618 => 'doc_tab_header_12',
1624 => 'doc_tab_field_1',
1625 => 'doc_tab_field_2',
1626 => 'doc_tab_field_3',
1627 => 'doc_tab_field_4',
1628 => 'doc_tab_field_5',
1629 => 'doc_tab_field_6',
1630 => 'doc_tab_field_7',
1631 => 'doc_tab_field_8',
1632 => 'doc_tab_field_9',
1633 => 'doc_tab_field_10',
1634 => 'doc_tab_field_11',
1635 => 'doc_tab_field_12',
1636 => 'delivery_area_surcharge',
1637 => 'list_delivery_area_surcharge',
1638 => 'fuel_surcharge',
1639 => 'list_fuel_surcharge',
1640 => 'fice_surcharge',
1642 => 'value_added_tax',
1644 => 'offshore_surcharge',
1645 => 'list_offshore_surcharge',
1649 => 'other_surcharges',
1650 => 'list_other_surcharges',
1704 => 'service_type_description',
1705 => 'deliver_to',
1706 => 'signed_for',
1707 => 'delivery_time',
1711 => 'status_exception',
1713 => 'tracking_cod_flag',
1715 => 'number_of_track_activities',
1716 => 'delivery_reattempt_date',
1717 => 'delivery_reattempt_time',
1718 => 'package_type_description',
1720 => 'delivery_date_numeric',
1721 => 'tracking_activity_line_1',
1722 => 'tracking_activity_line_2',
1723 => 'tracking_activity_line_3',
1724 => 'tracking_activity_line_4',
1725 => 'tracking_activity_line_5',
1726 => 'tracking_activity_line_6',
1727 => 'tracking_activity_line_7',
1728 => 'tracking_activity_line_8',
1729 => 'tracking_activity_line_9',
1730 => 'tracking_activity_line_10',
1731 => 'tracking_activity_line_11',
1732 => 'tracking_activity_line_12',
1733 => 'tracking_activity_line_13',
1734 => 'tracking_activity_line_14',
1735 => 'tracking_activity_line_15',
2254 => 'recipient_fax_number',
2382 => 'return_shipment_indicator',
3000 => 'cod_type_collection',
3001 => 'fedex_ground_purchase_order',
3002 => 'fedex_ground_invoice',
3003 => 'fedex_ground_customer_reference',
3008 => 'autopod_flag',
3009 => 'aod_flag',
3010 => 'oversize_flag',
3011 => 'other_oversize_flag',
3018 => 'nonstandard_container_flag',
3019 => 'fedex_signature_home_delivery_flag',
3020 => 'fedex_home_delivery_type',
3023 => 'fedex_home_delivery_date',
3024 => 'fedex_home_delivery_phone_number',
3025 => 'carrier_code',
3028 => 'ground_account_number',
3035 => 'ship_alert_fax_number',
3045 => 'cod_return_reference_indicator',
3046 => 'additional_handling_detected',
3053 => 'multiweight_net_charge',
3090 => 'last_ground_dropoff',
3091 => 'last_ground_dropoff_sat',
3092 => 'ground_service_flag',
3124 => 'oversize_classification',
4003 => 'subscriber_contact_name',
4004 => 'subscriber_password_reminder',
4007 => 'subscriber_company_name',
4008 => 'subscriber_address_line_1',
4009 => 'subscriber_address_line_2',
4011 => 'subscriber_city_name',
4012 => 'subscriber_state_code',
4013 => 'subscriber_postal_code',
4014 => 'subscriber_country_code',
4015 => 'subscriber_phone_number',
4017 => 'subscriber_pager_number',
4018 => 'subscriber_email_address',
4021 => 'subscription_service_name',
4022 => 'subscriber_fax_number'
};
## Better to reverse this hash when sending data to FedEx
our $FE_SE;
while (my ($tag, $name) = each %$FE_RE) {
if (exists $FE_SE->{$name}) {
die "Duplicate value `$name' in %FE_RE";
}
$FE_SE->{$name} = $tag;
}
# For each of my hash refs set up a hash which allows only those keys.
#
# XXX also automatically lower-case the keys
for my $name (map { /^%(FE_\w+)/ ? $1 : () } @EXPORT) {
no strict 'refs';
my $r = ${ $name };
tie %$name, 'Tie::StrictHash', %$r;
}
sub _split_tag {
my ($tag) = @_;
my ($base, $mult) = ($tag =~ /^(.*?)(-[1-9]\d*)?\z/)
or croak "Invalid field tag or name `$tag'";
$mult = '' if !defined $mult;
#print "[$base] [$mult]";
my $num = ($base =~ /^\d+\z/)
? $base
: $FE_SE{lc $base};
my $name = $FE_RE{$num};
defined $name
or croak "Invalid FE_RE `$num'";
return $num, $name, $mult;
}
sub field_name_to_tag {
@_ == 1 or croak "need 1 arg, got ", 0+@_;
my ($in) = @_;
my ($num, $name, $mult) = _split_tag $in;
return "$num$mult";
}
sub field_tag_to_name {
@_ == 1 or croak "need 1 arg, got ", 0+@_;
my ($in) = @_;
my ($num, $name, $mult) = _split_tag $in;
return "$name$mult";
}
sub uti_by_tt_carrier {
@_ == 2 or croak "need 2 args, got ", 0+@_;
my ($tt, $carrier) = @_;
return $FE_UTI_BY_TT{$tt}{$carrier}
|| $FE_UTI_BY_TT{$tt}{''}
|| croak "UTI for transaction [$tt] carrier [$carrier] unknown";
}
1;
__END__