Ministro da Saúde convoca população a aderir à campanha de vacinação
O ministro da Saúde, José Gomes Temporão, convocou nesta sexta (7) as famílias a aderirem ao Dia D de vacinação contra a influenza A (H1N1) e gripe comum para idosos neste sábado (8). A ideia, segundo ele, é que as pessoas aproveitem a 12ª edição da Campanha Nacional de Vacinação do Idoso Contra a Gripe Comum para tomarem a vacina da influenza A (H1N1) – gripe suína, diante da constatação de que apenas 10 dos 27 estados da federação atingiram a meta de vacinar 80% de cada grupo.
A campanha de vacinação contra a nova gripe, que terminaria neste sábado (8) para doentes crônicos, crianças de seis meses a dois anos, gestantes e jovens de 20 a 29 anos, foi prorrogada até o dia 21 de maio nos estados que não conseguiram atingir a meta.
Temporão atribuiu a baixa adesão às dúvidas e desconfianças geradas sobre a eficácia da vacina, mas se mostrou otimista de que o Dia D, neste sábado, vai atrair milhares de pessoas aos postos, que funcionarão das 8h às 17h.
O Rio de Janeiro foi um dos estados com índices mais baixos de vacinação entre gestantes e jovens de 20 a 29 anos de idade.
“No Rio de Janeiro tivemos aquela tragédia das chuvas, que atrapalhou muito. Tivemos também duas semanas com feriados prolongados. Teve uma semana que tivemos quatro dias sem atividades e isso evidentemente comprometeu. Mas o estado e o município estão mobilizados e nós vamos prorrogar a vacinação no Rio de Janeiro e também em outros estados que tiveram problemas semelhantes ou de outra natureza, para atingir a meta que nós queremos, que é proteger a população brasileira contra esta nova doença”, enfatizou.
A partir da próxima segunda-feira (10), a vacina contra a influenza A (H1N1) – gripe suína estará disponível para adultos de 30 a 39 anos. A expectativa do ministério é vacinar 30 milhões de pessoas nessa faixa etária.
Temporão informou que até agora foram aplicadas no país 47,5 milhões de doses contra a nova gripe, o que representa mais de 15% das doses da vacina aplicadas em todo o mundo. “Vamos dar uma acelerada e no final destes dois meses e meio de campanha chegaremos a 90 milhões de brasileiros vacinados, deixando o Brasil como o país com a maior cobertura contra este vírus”, reiterou o ministro.
Ele lembrou que a escolha dos grupos a serem vacinados (trabalhadores da área de saúde, gestantes, doentes crônicos e indígenas aldeados) foi uma determinação da Organização Mundial de Saúde (OMS) e que o acréscimo das crianças de seis meses a dois anos e de jovens de 20 a 39 anos foi feito no Brasil com base nos altos índices de registro da doença nestes grupos.
Este ano, o Ministério da Saúde registrou 50 mortes pela influenza A (H1N1) – gripe suína e 361 internações. Um em cada cinco doentes eram mulheres grávidas.
A campanha de vacinação do idoso contra a gripe comum lançada hoje (7) segue até o dia 21 de maio nas regiões Sudeste, Centro-Oeste e Nordeste. Nas regiões Norte e Sul, a campanha começou no dia 24 de abril e termina neste fim de semana.
Segundo o Ministério da Saúde, a divisão do calendário ocorreu devido a um atraso na entrega das vacinas pelo Instituto Butantan.
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: Ministro da Saúde convoca população a aderir à campanha de vacinação" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1174.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Ministro da Saúde convoca população a aderir à campanha de vacinação" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Ministro da Saúde convoca população a aderir à campanha de vacinação" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1174.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 %>