<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">&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^<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">&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^<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">&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><br>No estoy seguro, pero Katia nos puede ayudar en eso.<br><br>Saludos<br>Francisco<br><hr id="zwchr"><b>De: </b>"spinaker" &lt;spinaker@adinet.com.uy&gt;<br><b>Para: </b>"Francisco J D M Lopes Santos" &lt;francisco.lopes@bireme.org&gt;<br><b>Cc: </b>"reddes bvs-tech" &lt;reddes.bvs-tech@listas.bireme.br&gt;<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&nbsp; 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">&lt;spinaker@adinet.com.uy&gt;</a><br>
        <b>Para: </b>"reddes bvs-tech"
        <a class="moz-txt-link-rfc2396E" href="mailto:reddes.bvs-tech@listas.bireme.br" target="_blank">&lt;reddes.bvs-tech@listas.bireme.br&gt;</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"&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>
        <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>