if($procName ne ''){
        # This is the default call to stored proc.
    $procedure = "BEGIN "."$procName"."(?, ?); "."END;";
    print $procedure, "\n";
    print "After Connection\n";
    $function = $dbh->prepare($procedure);
#
# ... <snip>
#
if($procName eq "PAR_REPORTS_POS.SUN_PRC_AT_I_POSM1W001"){
    $procedure = "BEGIN "."$procName"."(?, ?, ?, ?); "."END;";
    $function = $dbh->prepare($procedure);
    $function->bind_param_inout(3,$finRepId,SQL_VARCHAR);