Pesquisa de Publicações e Artigos Médicos


"","\"" => "%22"," " => "+"); $eword = strtr($eword, $eword_array); $eword_simples = $eword; $epalavra = $eword; $epalavra_array = array("%22" => "\"","+" => " "); $epalavra = strtr($epalavra, $epalavra_array); $epalavra_html = $eword; $epalavra_html_array = array("%22" => ""","+" => " "); $epalavra_html = strtr($epalavra_html, $epalavra_html_array); $datahoje = getdate(); ########################################################################### ######################################## if ($CAMPO=="All Fields") { #$eword = $eword."[all]"; #if ($limitadoa){$virgula = ", ";} #$limitadoa = $limitadoa.$virgula."Campo: Todos os Campos"; #$limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if($CAMPO=="Affiliation") { $eword = $eword."[ad]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Instituição"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Author") { $eword = $eword."[au]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Autores"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="EC/RN Number") { $eword = $eword."[rn]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Número EC/RN"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Entrez Date") { $eword = $eword."[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Data no Entrez"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Filter") { $eword = $eword."[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Filtro"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Grant Number") { $eword = $eword."[gr]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Número"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Issue") { $eword = $eword."[ip]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Ensaio"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Journal") { $eword = $eword."[ta]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Revista"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Language") { $eword = $eword."[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Idioma"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="MeSH Date") { $eword = $eword."[mhda]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Data do MeSH"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="MeSH Major Topic") { $eword = $eword."[majr]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Tópico Principal do MeSH"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="MeSH Subheading") { $eword = $eword."[sh]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Cabeçalho do MeSH"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="MeSH Terms") { $eword = $eword."[mh]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Termos do MeSH"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Pagination") { $eword = $eword."[pg]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Paginação"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Pharmacological Action") { $eword = $eword."[pa]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Ação Farmacológica"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Publication Date") { $eword = $eword."[dp]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Data de Publicação"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Publication Type") { $eword = $eword."[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Tipo de Publicação"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Secondary Source ID") { $eword = $eword."[si]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: ID de Fonte Secundária"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Substance Name") { $eword = $eword."[nm]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Nome de Substância"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Text Word") { $eword = $eword."[tw]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Palavra do Texto"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Title") { $eword = $eword."[ti]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Título"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Title/Abstract") { $eword = $eword."[tiab]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Título/Resumo"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } else if ($CAMPO=="Volume") { $eword = $eword."[vi]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Campo: Volume"; $limitadoformget = $limitadoformget."&CAMPO=$CAMPO"; } ######################################## if ($HASABSTRACT=="true") { $eword = $eword."+AND+hasabstract"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Apenas itens com resumo"; $limitadoformget = $limitadoformget."&HASABSTRACT=$HASABSTRACT"; } ######################################## if ($PUBTYPE=="Clinical Trial") { $eword = $eword."+AND+Clinical+Trial[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Ensaio Clínico"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Editorial") { $eword = $eword."+AND+Editorial[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Editorial"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Letter") { $eword = $eword."+AND+Letter[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Carta"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Meta-Analysis") { $eword = $eword."+AND+Meta-Analysis[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Meta-Análise"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Practice Guideline") { $eword = $eword."+AND+Practice+Guideline[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Guia Prático"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Randomized Controlled Trial") { $eword = $eword."+AND+Randomized+Controlled+Trial[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Ensaio Controle Randomizado"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } else if ($PUBTYPE=="Review") { $eword = $eword."+AND+Review[pt]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Tipos de Publicação: Revisão"; $limitadoformget = $limitadoformget."&PUBTYPE=$PUBTYPE"; } ######################################## if ($LANGUAGE == "frances") { $eword = $eword."+AND+french[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Francês"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "portugues") { $eword = $eword."+AND+portuguese[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Português"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "alemao") { $eword = $eword."+AND+german[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Alemão"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "ingles") { $eword = $eword."+AND+english[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Inglês"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "italiano") { $eword = $eword."+AND+italian[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Italiano"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "japones") { $eword = $eword."+AND+japonese[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Japonês"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "russo") { $eword = $eword."+AND+russian[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Russo"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } else if ($LANGUAGE == "espanhol") { $eword = $eword."+AND+spanish[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Espanhol"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } ######################################## if ($SUBSET == "AIDS") { $eword = $eword."+AND+AIDS[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: AIDS"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Bioethics") { $eword = $eword."+AND+Bioethics[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Bioethics"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Cancer") { $eword = $eword."+AND+Cancer[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Cancer"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Complementary Medicine") { $eword = $eword."+AND+cam[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Complementary Medicine"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Core clinical journals") { $eword = $eword."+AND+Core+clinical+journals[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Core clinical journals"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Dental journals") { $eword = $eword."+AND+Dental+journals[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Dental journals"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "History of Medicine") { $eword = $eword."+AND+history[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: History of Medicine"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "MEDLINE") { $eword = $eword."+AND+MEDLINE[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: MEDLINE"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Nursing journals") { $eword = $eword."+AND+Nursing+journals[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Nursing journals"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "OLDMEDLINE for Pre1966") { $eword = $eword."+AND+OLDMEDLINE[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: OLDMEDLINE for Pre1966"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "PubMed Central") { $eword = $eword."+AND+pubmed+pmc+local[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: PubMed Central"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Space Life Sciences") { $eword = $eword."+AND+space[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Space Life Sciences"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } else if ($SUBSET == "Toxicology") { $eword = $eword."+AND+tox[sb]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Sub-Itens: Toxicology"; $limitadoformget = $limitadoformget."&SUBSET=$SUBSET"; } ######################################## if ($FAIXAETARIA == "0-23 meses") { $eword = $eword."+AND+infant[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: 0-23 meses"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "0-18 anos") { $eword = $eword."+AND+infant[MeSH Terms]+OR+child[MeSH Terms]OR+adolescent[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: 0-18 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Acima de 19 anos") { $eword = $eword."+AND+adult[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Acima de 19 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Neonato: 0-1 mês") { $eword = $eword."+AND+infant%2Cnewborn[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Neonato: 0-1 mês"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Lactente: 1-23 meses") { $eword = $eword."+AND+infant[MeSH Terms:noexp]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Lactente: 1-23 meses"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Pré-Escolar: 2-5 anos") { $eword = $eword."+AND+child%2Cpreschool[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Pré-Escolar: 2-5 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Escolar: 6-12 anos") { $eword = $eword."+AND+child[MeSH Terms:noexp]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Escolar: 6-12 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Adolescente: 13-18 anos") { $eword = $eword."+AND+adolescent[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Adolescente: 13-18 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Adulto: 19-36 anos") { $eword = $eword."+AND+adult[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Adulto: 19-36 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Meia Idade: 45-64 anos") { $eword = $eword."+AND+middle+aged[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Meia Idade: 45-64 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Acima de 45 anos") { $eword = $eword."+AND+middle+aged[MeSH Terms]+OR+aged[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Acima de 45 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Idoso: Acima de 65 anos") { $eword = $eword."+AND+aged[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Idoso: Acima de 65 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } else if ($FAIXAETARIA == "Acima de 80 anos") { $eword = $eword."+AND+aged%2C80+and+over[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Faixa Etária: Acima de 80 anos"; $limitadoformget = $limitadoformget."&FAIXAETARIA=$FAIXAETARIA"; } ######################################## if ($GENERO == "Masculino") { $eword = $eword."+AND+male[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Gênero: Masculino"; $limitadoformget = $limitadoformget."&GENERO=$GENERO"; } else if ($GENERO == "Feminino") { $eword = $eword."+AND+female[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Gênero: Feminino"; $limitadoformget = $limitadoformget."&GENERO=$GENERO"; } ######################################## if ($HUMANOOUANIMAL == "Humano") { $eword = $eword."+AND+human[MeSH Terms]+OR+hominidae[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Humano"; $limitadoformget = $limitadoformget."&HUMANOOUANIMAL=$HUMANOOUANIMAL"; } else if ($HUMANOOUANIMAL == "Animal") { $eword = $eword."+AND+animals[MeSH Terms]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Animal"; $limitadoformget = $limitadoformget."&HUMANOOUANIMAL=$HUMANOOUANIMAL"; } ######################################## if ($DATAPUBMED == "1 Dia") { $dataentrez[mday] = $datahoje[mday] - 1; $eword = $eword."+AND+\"$datahoje[year]%2F$datahoje[mon]%2F$dataentrez[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 1 Dia($dataentrez[mday]/$datahoje[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "7 Dias") { $dataentrez[mday] = $datahoje[mday] - 7; $eword = $eword."+AND+\"$datahoje[year]%2F$datahoje[mon]%2F$dataentrez[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 7 Dias($dataentrez[mday]/$datahoje[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "30 Dias") { $dataentrez[mon] = $datahoje[mon] - 1; $eword = $eword."+AND+\"$datahoje[year]%2F$dataentrez[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 30 Dias($datahoje[mday]/$dataentrez[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "60 Dias") { $dataentrez[mon] = $datahoje[mon] - 2; $eword = $eword."+AND+\"$datahoje[year]%2F$dataentrez[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 60 Dias($datahoje[mday]/$dataentrez[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "90 Dias") { $dataentrez[mon] = $datahoje[mon] - 3; $eword = $eword."+AND+\"$datahoje[year]%2F$dataentrez[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 90 Dias($datahoje[mday]/$dataentrez[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "180 Dias") { $dataentrez[mon] = $datahoje[mon] - 6; $eword = $eword."+AND+\"$datahoje[year]%2F$dataentrez[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 180 Dias($datahoje[mday]/$dataentrez[mon]/$datahoje[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "1 Ano") { $dataentrez[year] = $datahoje[year] - 1; $eword = $eword."+AND+\"$dataentrez[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 1 Ano($datahoje[mday]/$datahoje[mon]/$dataentrez[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "2 Anos") { $dataentrez[year] = $datahoje[year] - 2; $eword = $eword."+AND+\"$dataentrez[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 2 Anos($datahoje[mday]/$datahoje[mon]/$dataentrez[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "5 Anos") { $dataentrez[year] = $datahoje[year] - 5; $eword = $eword."+AND+\"$dataentrez[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 5 Anos($datahoje[mday]/$datahoje[mon]/$dataentrez[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } else if ($DATAPUBMED == "10 Anos") { $dataentrez[year] = $datahoje[year] - 10; $eword = $eword."+AND+\"$dataentrez[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]+:+\"$datahoje[year]%2F$datahoje[mon]%2F$datahoje[mday]+$datahoje[hours].$datahoje[minutes]\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data: 10 Anos($datahoje[mday]/$datahoje[mon]/$dataentrez[year] a $datahoje[mday]/$datahoje[mon]/$datahoje[year])"; $limitadoformget = $limitadoformget."&DATAPUBMED=$DATAPUBMED"; } ######################################## if (($DATAPUBLICACAO == "Data de Publicação") AND ($DATAPUBMINANO!="") AND ($DATAPUBMAXANO!="") AND ($DATAPUBMED!="Data no PubMed")) { $eword = $eword."+AND+\"$DATAPUBMINANO%2F$DATAPUBMINMES%2F$DATAPUBMINDIA\"[pdat]+:+\"$DATAPUBMAXANO%2F$DATAPUBMAXMES%2F$DATAPUBMAXDIA\"[pdat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data de Publicação: $DATAPUBMINDIA/$DATAPUBMINMES/$DATAPUBMINANO a $DATAPUBMAXDIA/$DATAPUBMAXMES/$DATAPUBMAXANO"; $limitadoformget = $limitadoformget."&DATAPUBLICACAO=$DATAPUBLICACAO"."&DATAPUBMINANO=$DATAPUBMINANO&DATAPUBMINMES=$DATAPUBMINMES&DATAPUBMINDIA=$DATAPUBMINDIA&DATAPUBMAXANO=$DATAPUBMAXANO&DATAPUBMAXMES=$DATAPUBMAXMES&DATAPUBMAXDIA=$DATAPUBMAXDIA"; } else if (($DATAPUBLICACAO == "Data no PubMed") AND ($DATAPUBMINANO!="") AND ($DATAPUBMAXANO!="") AND ($DATAPUBMED!="Data no PubMed")) { $eword = $eword."+AND+\"$DATAPUBMINANO%2F$DATAPUBMINMES%2F$DATAPUBMINDIA\"[edat]+:+\"$DATAPUBMAXANO%2F$DATAPUBMAXMES%2F$DATAPUBMAXDIA\"[edat]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Data no PubMed: $DATAPUBMINDIA/$DATAPUBMINMES/$DATAPUBMINANO a $DATAPUBMAXDIA/$DATAPUBMAXMES/$DATAPUBMAXANO"; $limitadoformget = $limitadoformget."&DATAPUBLICACAO=$DATAPUBLICACAO"."&DATAPUBMINANO=$DATAPUBMINANO&DATAPUBMINMES=$DATAPUBMINMES&DATAPUBMINDIA=$DATAPUBMINDIA&DATAPUBMAXANO=$DATAPUBMAXANO&DATAPUBMAXMES=$DATAPUBMAXMES&DATAPUBMAXDIA=$DATAPUBMAXDIA"; } $limitadoformget_array = array("\\" => "","\"" => "%22"," " => "+"); $limitadoformget = strtr($limitadoformget, $limitadoformget_array); ########################################################################### if ($portugues) { $eword = $eword."+AND+portuguese[la]"; if ($limitadoa){$virgula = ", ";} $limitadoa = $limitadoa.$virgula."Idioma: Português"; $limitadoformget = $limitadoformget."&LANGUAGE=$LANGUAGE"; } $pagetitle = "PubMed.com.br - NetMed"; $metatag = "" ."" ."" ."" ."" ."" ."" ."" ."" ."" .""; if ($limitadoa) { if($portugues) { include("bloco_menu_form_pubmed.php"); } else { include("bloco_menu_form_pubmed_avanc.php"); } } else { include("bloco_menu_form_pubmed.php"); } function spellcheck($xword) { $xterm="${xword}"; $xterm_array = array(" " => "+","'" => "%27","[" => "%5B","]" => "%5D",); $xterm = strtr($xterm, $xterm_array); $xurl="http://eutils.ncbi.nlm.nih.gov/entrez/eutils/espell.fcgi?db=pubmed&term=$xterm"; include_once("../functions_url.php");$efile=implode("",file2($xurl)); $doc=xml22_parse($efile, FALSE ); foreach($doc as $ind0 => $val0) { if($doc[$ind0]["tag"]=="eSpellResult") { foreach($doc[$ind0]["children"] as $ind1 => $val1) { if($doc[$val1]["tag"]=="Query") { $pdigitada=$doc[$val1]["content"]; } if($doc[$val1]["tag"]=="CorrectedQuery") { $pcorrigida=$doc[$val1]["content"]; } foreach($doc[$val1]["children"] as $ind2 => $val2) { if($doc[$val2]["tag"]=="Replaced") { $psubstituida=$doc[$val2]["content"]; } if($doc[$val2]["tag"]=="Original") { $poriginal=$doc[$val2]["content"]; } } } } } if ($pcorrigida) { echo "Você quis dizer $pcorrigida ?"; } } /* function reg_palavra($xword) { ############# $dbhost = "localhost"; // DB Host name $dbusername = "netmedc_user"; // DB User $dbpass = "ltwgisl"; // DB User password $dbname = "netmedc_database2"; // DB Name ############# $ChecaPalavra = "SELECT * FROM dbpubmed WHERE palavra='$xword'"; $InserePalavra = "INSERT INTO dbpubmed(palavra, qtdpesquisas) VALUES ('$xword', '1')"; $connection = mysql_connect($dbhost, $dbusername, $dbpass); $SelectedDB = mysql_select_db($dbname); $palavra_existe = mysql_query($ChecaPalavra); $row = mysql_fetch_array($palavra_existe); if (mysql_num_rows($palavra_existe) > 0) { $qtdpesq = $row[qtdpesquisas]; $qtdpesq = $qtdpesq + 1 ; $SelectedDB = mysql_select_db($dbname); $AtualizaPalavra = "UPDATE dbpubmed SET qtdpesquisas='$qtdpesq' WHERE palavra='$xword'"; $result = mysql_query($AtualizaPalavra); } else { $SelectedDB = mysql_select_db($dbname); $result = mysql_query($InserePalavra); } } */ function fetch_no_of_entries($xword,$bd) { # Allgemeine Anfrage --> um zu sehen, wie viele Eintraege in der Pubmed vorhanden sind $xterm="${xword}"; $xterm_array = array(" " => "+","'" => "%27","[" => "%5B","]" => "%5D",); $xterm = strtr($xterm, $xterm_array); $xbd="${bd}"; $xurl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?db=$xbd&term=$xterm"; include_once("../functions_url.php");$efile=implode("",file2($xurl)); $doc=xml22_parse($efile, FALSE ); #print_r($doc); foreach($doc as $ind0 => $val0){ if($doc[$ind0]["tag"]=="eSearchResult"){ foreach($doc[$ind0]["children"] as $ind1 => $val1){ if($doc[$val1]["tag"]=="Count"){ $total=$doc[$val1]["content"]; }}}} if (!$total){ $total = 0; } return $total; } #=============================================================== function fetch_ids($xword,$total,$retstart,$retmax,$bd) { $xterm="${xword}"; $xterm_array = array(" " => "+","'" => "%27","[" => "%5B","]" => "%5D",); $xterm = strtr($xterm, $xterm_array); $xbd="${bd}"; $ids=array(); # Nun anfragen, um die IDs zu bekommen und zwar alle. $xurl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?db=$xbd&term=$xterm&retstart=$retstart&retmax=$retmax"; include_once("../functions_url.php");$efile=implode("",file2($xurl)); #echo "

\n$efile

\n"; $doc=xml22_parse($efile, FALSE ); foreach($doc as $ind0 => $val0){ if($doc[$ind0]["tag"]=="eSearchResult"){ foreach($doc[$ind0]["children"] as $ind1 => $val1){ if($doc[$val1]["tag"]=="IdList"){ foreach($doc[$val1]["children"] as $ind2 => $val2){ if($doc[$val2]["tag"]=="Id"){ $ids[]=$doc[$val2]["content"]; # echo $doc[$val2]["content"]; # echo "\n"; }}}}}} return $ids; } #=============================================================== function fetch_entries_of_id($ids,$total,$retstart,$retmax,$bd) { $xbd="${bd}"; # Wenn ich die IDs nun habe, dann kann ich mir ja auch den ganzen Eintrag holen. $auflistung=array("Id","AuthorList","LangList","HasAbstract","FullJournalName","Title","Source","Volume","Issue","Pages","PubDate","RecordStatus"); # $retinicio = $retstart + 1; # $retlast= $retstart + $retmax; # if ($retlast > $total){ # $retlast=$total; # } # echo "
Exibindo $retinicio-$retlast de $total artigos: \n"; $burl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=$xbd&retmode=xml&id="; $xburl=$burl.$ids; include_once("../functions_url.php");$efile=implode("",file2($xburl)); $doc=xml22_parse($efile, FALSE ); #print_r($doc); $i=0; $res=array(); foreach($doc as $ind0 => $val0){ if($doc[$ind0]["tag"]=="eSummaryResult"){ foreach($doc[$ind0]["children"] as $ind1 => $val1){ if($doc[$val1]["tag"]=="DocSum"){ foreach($doc[$val1]["children"] as $ind2 => $val2){ if($doc[$val2]["tag"]=="Id"){ $res[$i]["pubmedid"]=$doc[$val2]["content"]; } if($doc[$val2]["tag"]=="Item"){ foreach($auflistung as $aufind => $aufval){ if($doc[$val2]["attributes"]["Name"]==$aufval) { if($aufval=="AuthorList"){ foreach($doc[$val2]["children"] as $ind3 => $val3) { if($doc[$val3]["attributes"]["Name"]=="Author") { if (!$res[$i][autores]) { $res[$i][autores]=$doc[$val3]["content"]; } else { $res[$i][autores]=$res[$i][autores].",".$doc[$val3]["content"]; } } } } elseif($aufval=="LangList"){ foreach($doc[$val2]["children"] as $ind3 => $val3) { if($doc[$val3]["attributes"]["Name"]=="Lang") { if (!$res[$i][idiomas]) { $res[$i][idiomas]=$doc[$val3]["content"]; } else { $res[$i][idiomas]=$res[$i][idiomas].",".$doc[$val3]["content"]; } } } } else { $res[$i][$aufval]=$doc[$val2]["content"]; } }}}} $i++; }}}} return $res; } #=============================================================== function fetch_abstracts_of_id($ids,$retmax,$total,$bd) { $xbd="${bd}"; # Wenn ich die IDs nun habe, dann kann ich mir ja auch den ganzen Eintrag holen. $auflistung=array("PmId","Author","Title","Journal","Volume","Issue","Pagination","PubDate"); $res=array(); $burl="http://www.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=$xbd&retmode=xml&rettype=abstract&id="; for($i=0; $i"; print_r($doc); echo ""; */ foreach($doc as $ind0 => $val0){ if($doc[$ind0]["tag"]=="PubmedArticleSet"){ foreach($doc[$ind0]["children"] as $ind1 => $val1){ if($doc[$val1]["tag"]=="PubmedArticle"){ foreach($doc[$val1]["children"] as $ind2 => $val2){ if($doc[$val2]["tag"]=="MedlineCitation"){ foreach($doc[$val2]["children"] as $ind3 => $val3){ if($doc[$val3]["tag"]=="Article"){ foreach($doc[$val3]["children"] as $ind4 => $val4){ if($doc[$val4]["tag"]=="Abstract"){ foreach($doc[$val4]["children"] as $ind5 => $val5){ if($doc[$val5]["tag"]=="AbstractText"){ $res[$pid]=$doc[$val5]["content"]; #echo $res[$pid],"\n--------$pid-------------\n"; }}}}}}}}}}}} } return $res; } function fetch_elinks_of_id($ids,$retmax,$total,$bd) { $xbd="${bd}"; # Wenn ich die IDs nun habe, dann kann ich mir ja auch den ganzen Eintrag holen. $auflistung=array("PmId","Author","Title","Journal","Volume","Issue","Pagination","PubDate"); $res=array(); $burl="http://eutils.ncbi.nlm.nih.gov/entrez/eutils/elink.fcgi?dbfrom=pubmed&cmd=llinks&retmode=xml&id="; for($i=0; $i"; print_r($doc); echo ""; */ foreach($doc as $ind0 => $val0){ if($doc[$ind0]["tag"]=="eLinkResult"){ foreach($doc[$ind0]["children"] as $ind1 => $val1){ if($doc[$val1]["tag"]=="LinkSet"){ foreach($doc[$val1]["children"] as $ind2 => $val2){ if($doc[$val2]["tag"]=="IdUrlList"){ foreach($doc[$val2]["children"] as $ind3 => $val3){ if($doc[$val3]["tag"]=="IdUrlSet"){ $i=0; foreach($doc[$val3]["children"] as $ind4 => $val4){ if($doc[$val4]["tag"]=="ObjUrl"){ foreach($doc[$val4]["children"] as $ind5 => $val5){ if($doc[$val5]["tag"]=="Url"){ $res[$i][url][$pid]=$doc[$val5]["content"]; } if($doc[$val5]["tag"]=="IconUrl"){ $res[$i][iconurl][$pid]=$doc[$val5]["content"]; } } } $i++; }}}}}}}}} } return $res; } function output_res($eword,$res,$abs,$elinks,$retstart,$bd) { #-------------------------------------------------------------- # die sachen aus dem ergebnis rausfischen , die mich interessieren und in einem neuen array abspeichern $contador= $retstart + 1; $xterm=$eword; $xterm_array = array(" " => "+","'" => "%27","[" => "%5B","]" => "%5D",); $xterm = strtr($xterm, $xterm_array); echo "

\n"; echo "\n"; foreach($res as $ind => $val){ $xTitle = $val["Title"]; $xAuthors = $val["autores"]; $xIdiomas = $val["idiomas"]; if ($val["HasAbstract"] == 1) { $resumo="Resumo Disponível"; } else { $resumo=""; } $val["Title"] = str_replace("\"","\\\"",$val["Title"]); $val["Title"] = str_replace("'","",$val["Title"]); $val["autores"] = str_replace("'","",$val["Author"]); $pid=$val["pubmedid"]; if ($xIdiomas == "Portuguese") { $xIdiomas = "Português"; } elseif ($xIdiomas == "French") { $xIdiomas = "Francês"; } elseif ($xIdiomas == "English") { $xIdiomas = "Inglês"; } elseif ($xIdiomas == "German") { $xIdiomas = "Alemão"; } elseif ($xIdiomas == "Danish") { $xIdiomas = "Dinamarquês"; } elseif ($xIdiomas == "Spanish") { $xIdiomas = "Espanhol"; } if ($contador%2==1) { $bgcolor="DDDDDD"; } else { $bgcolor="FFFFFF"; } $abstr = $abs[$pid]; $abstr = str_replace("\"","\\\"",$abstr); $abstr = str_replace("'","",$abstr); $abstr = addslashes($abstr); echo ""; echo "
"; foreach($elinks as $l_ind => $l_val) { $purl = $l_val[url][$pid]; $picon = $l_val[iconurl][$pid]; if (($purl) AND ($picon)) { echo ""; } } echo "
\n"; echo ""; echo " "; echo " "; echo "\n"; echo "
"; echo "\n"; printf("\t\n", $xTitle); printf("\t\n",$xAuthors); printf("\t\n", $val["Source"],$val["FullJournalName"],$xIdiomas); printf("\t\n", $val["Volume"],empty($val["Issue"])?"":" Edição: ".$val["Issue"],$val["Pages"],$val["PubDate"]); printf("\t\n", $abstr); printf("\t\n", $pid,$val["RecordStatus"]); echo "
%s
Autores: %s
Revista: %s (%s). Idioma: %s
Volume: %s%s Páginas: %s Data: %s

%s

PubMed ID: %s. [%s]
\n"; echo ""; $contador++; } echo "
\n"; } ###################################################################### #header("Content-type:text/plain"); ###Início da parte de cima do código HTML ### ?> PubMed/MedLine: Citações e Resumos da Literatura Biomédica - Resumo
TRUE ); xml22_setup($options); #-------------------------------------------------------------- $mval="2001,336,1"; $mval="2001,16,1"; $retmax="10"; if (!$eword){ $eword=$_POST[eword]; } if ($submit==y) { if(($retstart=="")){ $retstart=0;} $mval="$eword"; list($xword) = explode(",",$mval); #-------------------------------------------------------------- # Aus der Antwort das Ergebis extrahieren. # Registra Palavras Chaves no Banco de Dados #if($retstart=="0"){ #reg_palavra($eword); #} # ################# #Testa palavra usando a funcao spellcheck() if ($spellcheck == "1") { spellcheck($xword); } ################# if ($limitadoa){ echo "
Sua busca está limitada a: $limitadoa.

\n"; } else { } #$ids = fetch_ids($xword,$total,$retstart,$retmax,$bd); $res = fetch_entries_of_id($ids,$total,$retstart,$retmax,$bd); $abs = fetch_abstracts_of_id($ids,$total,$retmax,$bd); $elinks = fetch_elinks_of_id($ids,$retmax,$total,$bd); ###Início da exibição dos resultados### include("anuncios/adsense_pubmed.php"); output_res($eword,$res,$abs,$elinks,$retstart,$bd); ###Fim da exibição dos resultados### } #Fim do IF submit=y else { echo "

PubMed, um serviço da Biblioteca Nacional de Medicina (NLM), provê acesso a mais de 12 milhões de citações MedLine catalogados desde meados de 1960. O PubMed possui também links para vários sites com artigos completos e outros conteúdos relacionados.

"; } ?>