<html><head><style type='text/css'>p { margin: 0; }</style></head><body><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" &lt;spinaker@adinet.com.uy&gt;<br><b>Para: </b>"reddes bvs-tech" &lt;reddes.bvs-tech@listas.bireme.br&gt;<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"&nbsp;
    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>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        instr(mid(mid(v10,instr(v10,'^1'),size(v10)),3,size(v10)),'^1')&gt;0
        then '^mAFFILIATION1^d',v10, /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        instr(mid(mid(v10,instr(v10,'^2'),size(v10)),3,size(v10)),'^2')&gt;0
        then '^mAFFILIATION2^d',v10, /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        instr(mid(mid(v10,instr(v10,'^3'),size(v10)),3,size(v10)),'^3')&gt;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')&gt;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')&gt;0
          then '^mAFFILIATION5^d',v10, /fi</font><br>
      </font></b><b><font face="Courier New, Courier, monospace">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        if
        instr(mid(mid(v10,instr(v10,'^r'),size(v10)),3,size(v10)),'^r')&gt;0
        then '^mAFFILIATIONr^d',v10, /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        instr(mid(mid(v10,instr(v10,'^p'),size(v10)),3,size(v10)),'^p')&gt;0
        then '^mAFFILIATIONp^d',v10, /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        instr(mid(mid(v10,instr(v10,'^c'),size(v10)),3,size(v10)),'^c')&gt;0
        then '^mAFFILIATIONc^d',v10, /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /fi<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if right(v10^1,1) = '.' then '^mPOINT^d'v10^1 fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if right(v10^2,1) = '.' then '^mPOINT^d'v10^2 fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        right(v10^p,1) = '.' then '^mPOINT^d'v10^p fi, <br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if right(v10^c,1) = '.' then '^mPOINT^d'v10^c fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if right(v10^1,1) = ' ' then '^mSPACE^d'v10^1 fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if right(v10^2,1) = ' ' then '^mSPACE^d'v10^2 fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if
        right(v10^c,1) = ' ' then '^mSPACE^d'v10^c fi,<br>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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>Reddes.bvs-tech@listas.bireme.br<br>http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech<br></div></body></html>