support CHRG_DATE_CLMRET

diff --git a/transform_unicorn_flat_charges.pl b/transform_unicorn_flat_charges.pl
index 18b8d71..9a94dd6 100755 (executable)
--- a/transform_unicorn_flat_charges.pl
+++ b/transform_unicorn_flat_charges.pl
@@ -11,10 +11,11 @@ sub print_line {
         $records{ $count }{'CHRG_LIBRARY'} || '',
         $records{ $count }{'CHRG_DC'} || '',
         $records{ $count }{'CHRG_DATEDUE'} || '',
+        $records{ $count }{'CHRG_DATE_CLMRET'} || '',
     ) . "\n"; 
 }
 
-print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\n";
+print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\nCHRG_DATE_CLMRET\n";
 
 while (my $line = <>) {
     chomp $line; $line =~ s/[\r\n]//g;
@@ -42,6 +43,9 @@ while (my $line = <>) {
     if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
         $records{ $count }{'CHRG_DATEDUE'} = $1;
     }
+    if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
+        $records{ $count }{'CHRG_DATE_CLMRET'} = $1;
+    }
 }
 print_line();