Ministério suspende vestibular de dois cursos de medicina
O Ministério da Educação determinou ontem a suspensão do vestibular de dois cursos de medicina e o corte de vagas em mais dois. Outros sete serão notificados pela pasta a assinarem termos de compromisso para sanarem problemas.
A Unig (Universidade Iguaçu) não poderá ter nenhum novo estudante nos próximos 12 meses no campus de Itaperuna (RJ). No de Nova Iguaçu, na Baixada Fluminense, as vagas oferecidas para 2009 terão de cair de 200 para 150.
De acordo com a comissão avaliadora, chefiada pelo ex-ministro Adib Jatene (Saúde), faltam docentes em regime integral e há deficiências no ensino de atividades práticas.
A Unimar (Universidade de Marília) terá de suspender o ingresso de alunos nos próximos três meses e credenciar mais leitos. A instituição, diz o MEC, tem poucos docentes com dedicação exclusiva e espaços físicos pequenos para as atividades ambulatoriais.
Já a Ulbra (Universidade Luterana do Brasil), em Canoas (RS), terá que cortar dez vagas no ano que vem -oferecerá 140, e não 150, segundo o MEC.
Os principais problemas encontrados foram a redução dos leitos do hospital de ensino destinados a aprendizagem supervisionada e suspeitas em relação à correção do vestibular.
Maria Paula Dallari Bucci, secretária de Educação Superior do MEC, diz que as instituições sofreram medidas cautelares devido à iminência dos processos seletivos.
As ações fazem parte do processo de supervisão dos cursos de medicina iniciado em 2007. Os 17 atingidos tiraram notas 1 e 2 no Enade (Exame Nacional de Desempenho de Estudantes), no conceito que mede o desempenho dos universitários e no que verifica quanto conhecimento a instituição agregou.
Outros sete cursos tiveram diagnosticados problemas como inadequação do projeto pedagógico às diretrizes curriculares e de infra-estrutura.
As instituições terão que firmar termo de compromisso com um plano para corrigir as deficiências, sob pena de sofrerem processo administrativo, mas não haverá corte de vagas.
Outras quatro instituições ainda serão avaliadas: Universidade de Uberaba, Centro de Ensino Superior de Valença (RJ), Universidade Severino Sombra (RJ) e Universidade Metropolitana de Santos (SP).
Osmar Rufatto, pró-reitor de graduação da Ulbra, disse que está "disposto a conversar" com o MEC. Ele atribuiu o desempenho ruim no Enade à falta de empenho dos alunos. Sobre a redução no número de leitos, afirmou que a universidade passa por uma crise passageira, mas que foram oferecidos outros locais para as atividades.
Julio Cesar da Silva, reitor da Unig, disse que o curso da instituição tem qualidade, mas que só poderia se posicionar após receber o relatório da comissão. A Unimar afirmou que já fez o processo seletivo e que os aprovados já foram matriculados. Segundo a universidade, o despacho do MEC não tem efeito retroativo e os problemas já foram resolvidos.
A Ulbra informou que vai cumprirá a decisão. A universidade disse que fará o vestibular previsto para amanhã, alterando de 70 para 65 o número de vagas no próximo semestre.
Fonte: Folha de São Paulo
Publicado em 05/12/2008
ENVIE A MATÉRIA:
<%
Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim strThisPage ' This page's URL
Dim strReferringPage ' The referring page's URL
Dim bValidInput ' A boolean indicating valid parameters
' Retrieve this page name and referring page name
strThisPage = Request.ServerVariables("SCRIPT_NAME")
strReferringPage = Request.ServerVariables("HTTP_REFERER")
' Debugging lines:
'Response.Write strThisPage & "" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Ministério suspende vestibular de dois cursos de medicina" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu787.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Ministério suspende vestibular de dois cursos de medicina" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Ministério suspende vestibular de dois cursos de medicina" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu787.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso.
<%
End Sub
%>