Programa vai ampliar bolsas de residência médica onde há falta de profissionais
Os ministérios da Educação e da Saúde apresentaram hoje (22) um programa para ampliação do número de bolsas de residência médica em regiões onde há falta de médicos para o Sistema Único de Saúde (SUS). Serão oferecidas 2 mil bolsas em hospitais universitários federais para áreas como atenção primária à saúde, saúde da criança, saúde da mulher, saúde mental, oncologia, saúde do idoso, e urgência e emergência.
As bolsas serão distribuídas por meio de apresentação de propostas às secretarias de Educação Superior do MEC e de Gestão do Trabalho e da Educação na Saúde do Ministério da Saúde. Hospitais universitários federais, hospitais de ensino e secretarias estaduais e municipais de saúde poderão se candidatar às bolsas. Serão atendidas prioritariamente as regiões Norte, Nordeste e Centro-Oeste.
O secretário de Gestão do Trabalho e da Educação em Saúde, Francisco Campos, disse que um dos principais objetivos desse programa é fazer com que haja profissionais capacitados em políticas de saúde importantes em locais onde há falta desses médicos.
“A população brasileira está envelhecendo e há pouca oferta de gerontólogo e geriatra. Isso porque havia uma formação muito grande de pediatras e hoje nascem menos crianças do que antes. Provavelmente, além de formar bons pediatras, também precisamos formar gerontólogos”, exemplificou.
Ele disse ainda que os estados onde há mais carência de oferta de residências são Rondônia, Acre, Roraima, Tocantis e Amapá.
O secretário explicou ainda que nos estados onde há hospitais universitários ou federais mas não há estrutura para oferecer essas residências serão distribuídas bolsas para que as instituições apresentem projetos. Nesse caso, será necessário que as instituições interessadas façam convênios com estabelecimentos de referência.
A secretária de Educação Superior do MEC, Maria Paula Dallari Bucci, disse que uma das formas para atrair o profissional para o interior é fazer com que ele conte com uma estrutura de apoio. “O atrativo vai estar na criação das condições de trabalho. O médico não gosta de ficar numa cidade onde ele vai ficar isolado. O programa de residência vai dar a ele condição de estar num hospital com médicos mais experientes que vão dar atenção, vai haver programas de estudos”, afirmou.
Também foi lançado hoje pelos dois ministérios um programa de mestrado profissional combinado com programas de residência. As instituições interessadas que já tem programas de mestrado reconhecidos pelo Ministério da Educação podem apresentar propostas até o dia 30 de dezembro.
Fonte: Agência Brasil
" & 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: Programa vai ampliar bolsas de residência médica onde há falta de profissionais" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1358.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Programa vai ampliar bolsas de residência médica onde há falta de profissionais" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Programa vai ampliar bolsas de residência médica onde há falta de profissionais" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1358.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 %>