Com ampliação da campanha, governo espera vacinar 100 milhões contra gripe A
Crianças de 2 a 4 anos e 11 meses vão poder receber a vacina contra a influenza A (H1N1) – gripe suína a partir da próxima segunda-feira (24). O anúncio foi feito hoje (21) pelo ministro da Saúde, José Gomes Temporão, no Rio de Janeiro. Com a ampliação da campanha, a meta de imunização passa de 90 milhões para 100 milhões de pessoas.
“O estoque estratégico, durante esses dois meses [desde o início da campanha nacional de imunização] , funcionou como uma reserva para qualquer eventualidade [rejeição de lote de vacina ou demanda extra]. Como conseguimos manter a reserva de cerca de 10 milhões de doses, é suficiente para que possamos incluir mais uma faixa etária”, afirmou o ministro.
Temporão explicou ainda que o novo grupo que começa a receber a vacina foi selecionado por apresentar maior vulnerabilidade a desenvolver complicações pela influenza A (H1N1), depois dos grupos prioritários já incluídos anteriormente na campanha.
A vacinação segue até o dia 2 de junho. O prazo vai ser aproveitado também para prorrogar a imunização de gestantes e o grupo de pessoas com idade entre 30 e 39 anos.
“O inverno está chegando. A circulação viral aumenta e, no ano passado, essa doença matou 2 mil brasileiros. A vacina é segura, protege e está disponível em todos os 36 mil postos de saúde do país”, assinalou Temporão.
Nenhum estado conseguiu atingir a meta de imunização na faixa etária entre 30 e 39 anos. E, entre as gestantes, apenas seis unidades da Federação atingiram o percentual esperado.
De acordo com dados do Ministério da Saúde, mais de 62 milhões de pessoas já foram imunizadas em todo o Brasil. O número representa mais de 70% da meta estipulada pelo governo federal.
Todos os estados conseguiram imunizar o total definido entre crianças de 6 meses e menores de 2 anos. Entre os doentes crônicos, 80% foram imunizado.
Já entre as gestantes, esse percentual foi de 68%. Entre adultos com idade entre 20 e 29 anos, o índice ficou em 77%. Entre os adultos com idade entre 30 e 39 anos, apenas 37% se vacinaram.
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: Com ampliação da campanha, governo espera vacinar 100 milhões contra gripe A" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1183.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Com ampliação da campanha, governo espera vacinar 100 milhões contra gripe A" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Com ampliação da campanha, governo espera vacinar 100 milhões contra gripe A" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1183.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 %>