if  (0 != ExecStoredProcedureArg1("pr_CustomForPV", "$VersionID,$AutoNumber", "IsCustom"))

{
   # Do some thing
}



sub ExecStoredProcedureArg1($$$)
{
    writelog(info,"Entering ExecStoredProcedureArg1() : ====");
    my ($strStoredProc,$strArg, $strResultField) = @_;

    my $strResultValue = "";

    my $mydb = Win32::ODBC->new($DSN);
    if (!$mydb)
    {
        Win32::ODBC::DumpError();
        writelog(logdie,"Failed to connect to $DB_SERVER!");
    }

    my $sql = qq|$strStoredProc $strArg|;

    if ($mydb->Sql($sql))
    {
        Win32::ODBC::DumpError();
    }
    if ($mydb->FetchRow())
    {
        %DataSet = $mydb->DataHash();
        $strResultValue = $DataSet{$strResultField};
    }
    else
    {
        writelog(info,"No row found for $strResultField");
        $mydb->Close();
    }
    $mydb->Close();

    writelog(info,"$strStoredProc $strArg for $strResultField:  value = $strResultValue");

    writelog(info,"Exiting ExecStoredProcedureArg1() : ====");
    return $strResultValue;
}