my $pain_elmt = $is_coll ? 'CstmrDrctDbtInitn' : 'CstmrCdtTrfInitn';
my @pii_base = (strftime('PII%Y%m%d%H%M%S', @now), rand(1000000000));
my $pain_elmt = $is_coll ? 'CstmrDrctDbtInitn' : 'CstmrCdtTrfInitn';
my @pii_base = (strftime('PII%Y%m%d%H%M%S', @now), rand(1000000000));