4 use strict; use warnings;
8 use OpenILS::Utils::Cronscript;
9 use OpenILS::Application::Acq::EDI;
10 use Business::EDI::DataElement;
11 use Business::EDI::Segment::RFF;
12 use vars qw/%code_hash/;
14 require Business::EDI::DataElement;
16 my $verbose = @ARGV ? shift : 0;
18 my $core = OpenILS::Utils::Cronscript->new();
19 my $editor = $core->editor;
21 my $slurp = join '', <DATA>;
23 my ($aref, $whole) = OpenILS::Application::Acq::EDI->process_jedi($slurp);
25 $Data::Dumper::Indent = 1;
26 # print Dumper($aref);
30 # `print Dumper(\@innards);
36 "7008": ["LACY, AL THINGS NOT SEEN"]
58 # my $count = scalar(@{$_->{SG26}});
59 my $count = scalar(@$_);
60 print STDERR "->{SG26} has $count pieces: ";
61 for (my $i = 0; $i < $count; $i++) {
62 my $label = $_->[$i]->[0];
63 my $body = $_->[$i]->[1];
64 print STDERR "$label ";
65 $label eq 'QTY' and push @qtys, $body;
66 $label eq 'RFF' and push @rffs, $body;
69 # foreach my $qty (@{$_->{SG26}->[0]}) {
72 printf "%4d LINs found\n", scalar(@innards);
73 printf "%4d QTYs found\n", scalar(@qtys);
74 printf "%4d RFFs found (inside LINs)\n", scalar(@rffs);
77 my $example = shift or return;
78 print "\nexample QTY: ", Dumper($example);
79 foreach (keys %{$example->{C186}}) {
80 # no warnings 'uninitialized';
81 my $x = Business::EDI::DataElement->new($_);
82 print $x->label, " ($_) : ", $example->{C186}->{$_}, "\n";
86 # example_dump($qtys[-1]);
88 # We want: RFF > C506 > 1154 where 1153 = LI
89 foreach my $rff (@rffs) {
90 my $obj = Business::EDI::Segment::RFF->new($rff);
91 $verbose and print Dumper ($obj);
92 foreach my $subrff (keys %$rff) {
93 $subrff eq 'C506' or next;
95 foreach (sort keys %{$rff->{$subrff}}) {
96 my $x = Business::EDI::DataElement->new($_, $rff->{$subrff}->{$_});
97 $x or warn "Unknown DataElement code $_";
98 print "$_ ", $x->label, " ", $x->value, " ";
99 $i++ == 0 and print "==> ";
166 "7008": ["LACY, AL THINGS NOT SEEN"]
205 "7140": "9781576734131",
213 "7008": ["LACY, AL FINAL JUSTICE"]
252 "7140": "9781590529966",
260 "7008": ["MALAMUD, B NATURAL"]
299 "7140": "9780374502003",
307 "7008": ["SCOTT, PAU RAJ QUARTET THE JEWEL IN"]
346 "7140": "9780307263964",
354 "7008": ["JAMES, P. SHROUD FOR A NIGHTINGALE"]
393 "7140": "9780743219600",
401 "7008": ["LAHAYE, TI TRIBULATION FORCE THE CO"]
440 "7140": "9780842329217",
448 "7008": ["ZANE AFTERBURN A NOVEL"]
487 "7140": "9780743470988",
495 "7008": ["CABOT, MEG BOY NEXT DOOR"]
534 "7140": "9780060096199",
542 "7008": ["VONNEGUT, BREAKFAST OF CHAMPIONS"]
581 "7140": "9780385334204",
589 "7008": ["DOSTOYEVSK BROTHERS KARAMAZOV"]
628 "7140": "9781593083526",
636 "7008": ["KINGSBURY, FORGIVEN"]
675 "7140": "9780842387446",
683 "7008": ["BERLINSKI, FIELDWORK"]
722 "7140": "9780374299163",
730 "7008": ["GREGORY, P MERIDON A NOVEL"]
769 "7140": "9780743249317",
777 "7008": ["MCCALL SMI MORALITY FOR BEAUTIFUL G"]
816 "7140": "9781400031368",
824 "7008": ["CLEAGE, PE WHAT LOOKS LIKE CRAZY ON"]
863 "7140": "9780380794874",
871 "7008": ["GREGORY, P WIDEACRE"]
910 "7140": "9780743249294",
918 "7008": ["FERBER, ED SO BIG"]
957 "7140": "9780060956691",
965 "7008": ["GREGORY, P OTHER BOLEYN GIRL"]
1004 "7140": "9780743227445",
1022 "ORDRSP": [["UNH", {
1075 "7008": ["HOLM, BILL WINDOWS OF BRIMNES"]
1114 "7140": "9781571313027",
1122 "7008": ["REPA, BARB YOUR RIGHTS IN THE WORKP"]
1161 "7140": "9781413306439",
1169 "7008": ["GUERIN, LI ESSENTIAL GUIDE TO WORKP"]
1208 "7140": "9781413306910",
1216 "7008": ["CLIFFORD, ESTATE PLANNING BASICS"]
1255 "7140": "9781413307023",
1263 "7008": ["FRIEDMAN, BABY CARE BOOK"]
1302 "7140": "9780778801603",
1310 "7008": ["KING, RUSS ATLAS OF HUMAN MIGRATION"]
1349 "7140": "9781554072873",
1357 "7008": ["ASH, RUSSE FIREFLYS WORLD OF FACTS"]
1396 "7140": "9781554073139",
1404 "7008": ["WARNER, RA 101 LAW FORMS FOR PERSON"]
1443 "7140": "9781413307122",
1451 "7008": ["BRAY, ILON NOLOS ESSENTIAL GUIDE TO"]
1490 "7140": "9781413306286",
1498 "7008": ["WESTWOOD, HOW TO WRITE A MARKETING"]
1537 "7140": "9780749445546",
1545 "7008": ["ROANE, SUS HOW TO WORK A ROOM YOUR "]
1584 "7140": "9780061238673",
1592 "7008": ["GERMAIN, D REACHING PAST THE WIRE A"]
1631 "7140": "9780873516068",
1639 "7008": ["KLING, KEV DOG SAYS HOW"]
1678 "7140": "9780873515993",
1686 "7008": ["SHORT, SUS BUNDT CAKE BLISS DELICIO"]
1725 "7140": "9780873515856",
1733 "7008": ["BRADY, TIM GOPHER GOLD LEGENDARY FI"]
1772 "7140": "9780873516013",
1780 "7008": ["ROBERTS, K MINNESOTA 150 THE PEOPLE"]
1819 "7140": "9780873515948",
1827 "7008": ["MAK, GEERT IN EUROPE A JOURNEY THRO"]
1866 "7140": "9780375424953",
1874 "7008": ["DONAHUE, P PARENTING WITHOUT FEAR O"]
1913 "7140": "9780312358914",
1921 "7008": ["MURRAY, LI BABYCENTERS ESSENTIAL GU"]
1960 "7140": "9781594864117",
1968 "7008": ["LAPINE, MI SNEAKY CHEF SIMPLE STRAT"]
2007 "7140": "9780762430758",
2025 "ORDRSP": [["UNH", {
2078 "7008": ["SHAW, REBE COUNTRY LOVERS"]
2117 "7140": "9781400098224",
2125 "7008": ["BLAKE, TON TEMPT ME TONIGHT"]
2164 "7140": "9780061136092",
2172 "7008": ["MONING, KA BLOODFEVER"]
2211 "7140": "9780385339162",
2219 "7008": ["MCKENNA, S EDGE OF MIDNIGHT"]
2258 "7140": "9780758211859",
2266 "7008": ["BALZO, SAN GROUNDS FOR MURDER"]
2305 "7140": "9780727865496",
2313 "7008": ["PALMER, DI HARD TO HANDLE"]
2352 "7140": "9780373772612",
2360 "7008": ["JONES, LLO MR PIP"]
2399 "7140": "9780385341066",
2407 "7008": ["JILES, PAU STORMY WEATHER"]
2446 "7140": "9780060537326",
2454 "7008": ["DELILLO, D FALLING MAN A NOVEL"]
2493 "7140": "9781416546023",
2501 "7008": ["MORRISON, SWEETER THAN HONEY"]
2540 "7140": "9780758215116",
2548 "7008": ["SMITH, SHE FOX"]
2587 "7140": "9780756404215",
2595 "7008": ["GROSSMAN, SOON I WILL BE INVINCIBL"]
2634 "7140": "9780375424861",
2642 "7008": ["LEWYCKA, M SHORT HISTORY OF TRACTOR"]
2681 "7140": "9780143036746",
2689 "7008": ["BANNISTER, FLAWED"]
2728 "7140": "9780312375669",
2736 "7008": ["ALEXANDER, REMEMBERED"]
2775 "7140": "9780764201103",
2783 "7008": ["TANIGUCHI, OCEAN IN THE CLOSET"]
2822 "7140": "9781566891943",
2830 "7008": ["HENKE, ROX SECRET OF US"]
2869 "7140": "9780736917018",
2877 "7008": ["HERMAN, KA EVER PRESENT DANGER"]
2916 "7140": "9781590529218",
2924 "7008": ["CHAPMAN, G IT HAPPENS EVERY SPRING"]
2963 "7140": "9781414311654",
2971 "7008": ["JACKSON, N YADA YADA PRAYER GROUP G"]
3010 "7140": "9781591453628",
3027 "recipient": "8888888",
3028 "sender": "1556150",
3048 "sender_qual": "31B",
3051 "decimal_sign": ".",
3057 "recipient_qual": "31B"