function get_procedure_source($name)
{
    global $dbhandle;

    $psource = '';