my $origin = $1;
my $company = $conf->config('company_name', $pay_batch->agentnum);
- $company = substr(uc($company). (' 'x23), 0, 23);
+
+ my $origin_name = $conf->config('batchconfig-nacha-origin_name')
+ || $company;
+ $origin_name = substr(uc($origin_name). (' 'x23), 0, 23);
+
+ $company = substr(uc($company). (' 'x16), 0, 16);
my $now = time;
'10'. #Blocking Factor
'1'. #Format code
$dest_name. #Immediate Destination Name / 23 char bank name
- $company. #Immediate Origin Name / 23 char company name
+ $origin_name. #Immediate Origin Name / 23 char company name
$refcode. "\n". #Reference Code (internal/optional)
###
'5'. #Record Type Code
'225'. #Service Class Code (220 credits only,
# 200 mixed debits & credits)
- substr($company, 0, 16). #on cust. statements
+ $company. #on cust. statements
(' 'x20 ). #20 char "company internal use if desired"
$origin. #Company Identification (Immediate Origin)
'PPD'. #others?