<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: Arial; font-size: 12pt; color: #000000'>Spinak,<br><br>A mi me parece que debes revisar el formateo, algo como:<br><br><b><font face="Courier New, Courier,
monospace"> if s(mpu,v5[1].1,mpl)='S' and v4004[1] = 'Y' and
a(v10^1) and v113[1]='p' then '^mAFFILIATION^d',v10,<br>
else<br>
if
instr(mid(mid(v10,instr(v10,'^1'),size(v10)),3,size(v10)),'^1')>0
then '^mAFFILIATION1^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^2'),size(v10)),3,size(v10)),'^2')>0
then '^mAFFILIATION2^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^3'),size(v10)),3,size(v10)),'^3')>0
then '^mAFFILIATION3^d',v10, /fi<br>
</font></b><b><font face="Courier New, Courier, monospace"> <font color="#cc0000">if
instr(mid(mid(v10,instr(v10,'^4'),size(v10)),3,size(v10)),'^4')>0
then '^mAFFILIATION4^d',v10, /fi<br>
</font></font></b><b><font face="Courier New, Courier,
monospace"><font color="#cc0000"> if
instr(mid(mid(v10,instr(v10,'^5'),size(v10)),3,size(v10)),'^5')>0
then '^mAFFILIATION5^d',v10, /fi</font><br>
</font></b><b><font face="Courier New, Courier, monospace">
if
instr(mid(mid(v10,instr(v10,'^r'),size(v10)),3,size(v10)),'^r')>0
then '^mAFFILIATIONr^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^p'),size(v10)),3,size(v10)),'^p')>0
then '^mAFFILIATIONp^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^c'),size(v10)),3,size(v10)),'^c')>0
then '^mAFFILIATIONc^d',v10, /fi<br>
/fi<br>
if right(v10^1,1) = '.' then '^mPOINT^d'v10^1 fi,<br>
if right(v10^2,1) = '.' then '^mPOINT^d'v10^2 fi,<br>
if right(v10^3,1) = '.' then '^mPOINT^d'v10^3 fi,</font></b><b><font face="Courier New, Courier, monospace"><br>
<font color="#cc0000">if right(v10^<span style="color: rgb(102, 51, 0);">4</span>,1) = '.' then
'^mPOINT^d'v10^4 fi,<br>
</font></font></b><font color="#cc0000"><b><font face="Courier New, Courier, monospace">if right(v10^<span style="color: rgb(102, 51, 51);">5</span>,1) =
'.' then '^mPOINT^d'v10^5 fi,</font></b></font><br>
<b><font face="Courier New, Courier, monospace"> if
right(v10^p,1) = '.' then '^mPOINT^d'v10^p fi, <br>
if right(v10^c,1) = '.' then '^mPOINT^d'v10^c fi,<br>
if right(v10^1,1) = ' ' then '^mSPACE^d'v10^1 fi,<br>
if right(v10^2,1) = ' ' then '^mSPACE^d'v10^2 fi,<br>
if right(v10^3,1) = ' ' then '^mSPACE^d'v10^3 fi,<br>
</font></b><font color="#cc0000"><b><font face="Courier New,
Courier, monospace">if right(v10^<span style="color: rgb(102, 51, 0);">4</span>,1) = ' ' then
'^mSPACE^d'v10^4 fi,<br>
</font></b><b><font face="Courier New, Courier, monospace">if
right(v10^<span style="color: rgb(102, 51, 0);">5</span>,1) = ' ' then '^mSPACE^d'v10^5 fi,</font></b></font><br>
<b><font face="Courier New, Courier, monospace"> if
right(v10^c,1) = ' ' then '^mSPACE^d'v10^c fi,<br>
if right(v10^p,1) = ' ' then '^mSPACE^d'v10^p fi,</font></b><br><br>No estoy seguro, pero Katia nos puede ayudar en eso.<br><br>Saludos<br>Francisco<br><hr id="zwchr"><b>De: </b>"spinaker" <spinaker@adinet.com.uy><br><b>Para: </b>"Francisco J D M Lopes Santos" <francisco.lopes@bireme.org><br><b>Cc: </b>"reddes bvs-tech" <reddes.bvs-tech@listas.bireme.br><br><b>Enviadas: </b>Quinta-feira, 17 de Maio de 2012 12:33:26<br><b>Assunto: </b>Re: [Reddes.bvs-tech] LILACS - subcampos de afililiacion<br><br>
Francisco<br>
<br>
Entiendo la explicación<br>
La información que me falta es si la modificación que sugiero a mi
campo de control es suficiente o es neceario considerar alguna otra
cosa que ignoro<br>
<br>
gracias<br>
Ernesto Spinak<br>
<br>
<br>
<br>
<br>
<br>
El 17/05/2012 12:15, Francisco J D M Lopes Santos escribió:
<blockquote cite="mid:1747069776.317302.1337267755536.JavaMail.root@pombo.bireme.br">
<style>p { margin: 0; }</style>
<div style="font-family: Arial; font-size: 12pt; color: #000000">Hola
Spinak,<br>
Hola todos,<br>
<br>
Esta customização não causa maiores problemas, lembrando que, em
se tratando de personalizações individuais, cada um deve efetuar
as alterações por sua própria conta e risco.<br>
<br>
No caso, os subcampos adicionais serão ignorados no momento de
incorporação à LILACS na BIREME, assim a informação dos
subcampos adicionais seria perdida o que indica ser ótimo
reformatar o conjunto de subcampos 3, 4, e 5 para o subcampo 3
antes do envio à BIREME, sem esquecer que os conteúdos são
delimitados pelo caractere ponto (.) da forma prevista na
metodologia LILACS.<br>
<br>
Não imagino outra forma 'livre de programação' para cumprir seu
objetivo.<br>
<br>
Saludos desde São Paulo<br>
Francisco José Lopes<br>
<br>
<br>
<hr id="zwchr"><b>De: </b>"spinaker"
<a class="moz-txt-link-rfc2396E" href="mailto:spinaker@adinet.com.uy" target="_blank"><spinaker@adinet.com.uy></a><br>
<b>Para: </b>"reddes bvs-tech"
<a class="moz-txt-link-rfc2396E" href="mailto:reddes.bvs-tech@listas.bireme.br" target="_blank"><reddes.bvs-tech@listas.bireme.br></a><br>
<b>Enviadas: </b>Segunda-feira, 14 de Maio de 2012 8:53:07<br>
<b>Assunto: </b>[Reddes.bvs-tech] LILACS - subcampos de
afililiacion<br>
<br>
Estimados<br>
<br>
La Facultad de Medicina tiene exigencias de estudios
bibliometricos y cienciometricos por causa de la acreditación de
la facultad, y esto debe ser en caracter permanente.<br>
Por ese motivo requiere, entro otros valores, un análisis de la
productividad de los autores asociado a sus instituciones.<br>
Para generar las estadisticas usamos los elementos de
"afiliación" en los subcampos ^1, ^2, ^3<br>
El problema es que el nivel de granularidad (tres niveles) no es
suficiente para generar las tablas necesarias, <br>
y de acuerdo a la normalización que se ha realizado en las
cátedras, hospital, etc. sería necesario cinco niveles por lo
menos.<br>
o sea agregar los subcampos ^4, ^5<br>
<br>
<b>Pregunta:</b><br>
Si agregamos los subcampos ^4 y ^5 a los campos v10, v16, v23,
entonces debemos modificar además de la definción del campo el
formato de control que sigue (para cada campo)<br>
<hr size="2" width="100%"><b><font face="Courier New, Courier,
monospace"><br>
if s(mpu,v5[1].1,mpl)='S' and v4004[1] = 'Y' and
a(v10^1) and v113[1]='p' then '^mAFFILIATION^d',v10,<br>
else<br>
if
instr(mid(mid(v10,instr(v10,'^1'),size(v10)),3,size(v10)),'^1')>0
then '^mAFFILIATION1^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^2'),size(v10)),3,size(v10)),'^2')>0
then '^mAFFILIATION2^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^3'),size(v10)),3,size(v10)),'^3')>0
then '^mAFFILIATION3^d',v10, /fi<br>
</font></b><b><font face="Courier New, Courier, monospace"> <font color="#cc0000">if
instr(mid(mid(v10,instr(v10,'^4'),size(v10)),3,size(v10)),'^4')>0
then '^mAFFILIATION4^d',v10, /fi<br>
</font></font></b><b><font face="Courier New, Courier,
monospace"><font color="#cc0000"> if
instr(mid(mid(v10,instr(v10,'^5'),size(v10)),3,size(v10)),'^5')>0
then '^mAFFILIATION5^d',v10, /fi</font><br>
</font></b><b><font face="Courier New, Courier, monospace">
if
instr(mid(mid(v10,instr(v10,'^r'),size(v10)),3,size(v10)),'^r')>0
then '^mAFFILIATIONr^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^p'),size(v10)),3,size(v10)),'^p')>0
then '^mAFFILIATIONp^d',v10, /fi<br>
if
instr(mid(mid(v10,instr(v10,'^c'),size(v10)),3,size(v10)),'^c')>0
then '^mAFFILIATIONc^d',v10, /fi<br>
/fi<br>
if right(v10^1,1) = '.' then '^mPOINT^d'v10^1 fi,<br>
if right(v10^2,1) = '.' then '^mPOINT^d'v10^2 fi,<br>
if right(v10^3,1) = '.' then '^mPOINT^d'v10^3 fi,</font></b><b><font face="Courier New, Courier, monospace"><br>
<font color="#cc0000">if right(v10^3,1) = '.' then
'^mPOINT^d'v10^4 fi,<br>
</font></font></b><font color="#cc0000"><b><font face="Courier New, Courier, monospace">if right(v10^3,1) =
'.' then '^mPOINT^d'v10^5 fi,</font></b></font><br>
<b><font face="Courier New, Courier, monospace"> if
right(v10^p,1) = '.' then '^mPOINT^d'v10^p fi, <br>
if right(v10^c,1) = '.' then '^mPOINT^d'v10^c fi,<br>
if right(v10^1,1) = ' ' then '^mSPACE^d'v10^1 fi,<br>
if right(v10^2,1) = ' ' then '^mSPACE^d'v10^2 fi,<br>
if right(v10^3,1) = ' ' then '^mSPACE^d'v10^3 fi,<br>
</font></b><font color="#cc0000"><b><font face="Courier New,
Courier, monospace">if right(v10^3,1) = ' ' then
'^mSPACE^d'v10^4 fi,<br>
</font></b><b><font face="Courier New, Courier, monospace">if
right(v10^3,1) = ' ' then '^mSPACE^d'v10^5 fi,</font></b></font><br>
<b><font face="Courier New, Courier, monospace"> if
right(v10^c,1) = ' ' then '^mSPACE^d'v10^c fi,<br>
if right(v10^p,1) = ' ' then '^mSPACE^d'v10^p fi,</font></b><br>
<hr size="2" width="100%"><b>Preguntas</b>:<br>
<ul>
<li>¿Es esto suficiente o hay alguna cosa adicional para
corregir?</li>
<li>¿Es necesario al enviar los registros a Bireme hacer un
reformateo y generar ^3+^4+^5 como un solo subfield ^3 ?</li>
<li>Si no modificamos los subcampos: ¿hay alguna otra forma de
generar tablas a 5 columnas sin necesidad de intervernir un
programador cada vez?</li>
</ul>
Saludos<br>
Ernesto Spinak<br>
<pre class="moz-signature">--
.^. .^.
( ) ( )
=== ===
=[=]================================[=]=
| | Ernesto Spinak | |
| | <a class="moz-txt-link-abbreviated" href="mailto:spinaker@adinet.com.uy" target="_blank">spinaker@adinet.com.uy</a> | |
| | Montevideo, Uruguay | |
| | tel/fax (598) 2622-3352 | |
| | celular (598) 99612238 | |
=[=]================================[=]=
=== ===
( ) ( )
V V </pre>
<br>
_______________________________________________<br>
Reddes.bvs-tech mailing list<br>
<a class="moz-txt-link-abbreviated" href="mailto:Reddes.bvs-tech@listas.bireme.br" target="_blank">Reddes.bvs-tech@listas.bireme.br</a><br>
<a class="moz-txt-link-freetext" href="http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech" target="_blank">http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech</a><br>
</div>
</blockquote>
<br>
<br>
<pre class="moz-signature">--
.^. .^.
( ) ( )
=== ===
=[=]================================[=]=
| | Ernesto Spinak | |
| | <a class="moz-txt-link-abbreviated" href="mailto:spinaker@adinet.com.uy" target="_blank">spinaker@adinet.com.uy</a> | |
| | Montevideo, Uruguay | |
| | tel/fax (598) 2622-3352 | |
| | celular (598) 99612238 | |
=[=]================================[=]=
=== ===
( ) ( )
V V </pre>
</div></body></html>