[Reddes] [Reddes.bvs-tech] LILACS - subcampos de afililiacion

[Francisco J D M Lopes Santos]

Hola Spinak, 
Hola todos, 

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. 

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. 

Não imagino outra forma 'livre de programação' para cumprir seu objetivo. 

Saludos desde São Paulo 
Francisco José Lopes 



De: "spinaker" <spinaker at adinet.com.uy> 
Para: "reddes bvs-tech" <reddes.bvs-tech at listas.bireme.br> 
Enviadas: Segunda-feira, 14 de Maio de 2012 8:53:07 
Assunto: [Reddes.bvs-tech] LILACS - subcampos de afililiacion 

Estimados 

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. 
Por ese motivo requiere, entro otros valores, un análisis de la productividad de los autores asociado a sus instituciones. 
Para generar las estadisticas usamos los elementos de "afiliación" en los subcampos ^1, ^2, ^3 
El problema es que el nivel de granularidad (tres niveles) no es suficiente para generar las tablas necesarias, 
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. 
o sea agregar los subcampos ^4, ^5 

Pregunta: 
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) 


if s(mpu,v5[1].1,mpl)='S' and v4004[1] = 'Y' and a(v10^1) and v113[1]='p' then '^mAFFILIATION^d',v10, 
else 
if instr(mid(mid(v10,instr(v10,'^1'),size(v10)),3,size(v10)),'^1')>0 then '^mAFFILIATION1^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^2'),size(v10)),3,size(v10)),'^2')>0 then '^mAFFILIATION2^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^3'),size(v10)),3,size(v10)),'^3')>0 then '^mAFFILIATION3^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^4'),size(v10)),3,size(v10)),'^4')>0 then '^mAFFILIATION4^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^5'),size(v10)),3,size(v10)),'^5')>0 then '^mAFFILIATION5^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^r'),size(v10)),3,size(v10)),'^r')>0 then '^mAFFILIATIONr^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^p'),size(v10)),3,size(v10)),'^p')>0 then '^mAFFILIATIONp^d',v10, /fi 
if instr(mid(mid(v10,instr(v10,'^c'),size(v10)),3,size(v10)),'^c')>0 then '^mAFFILIATIONc^d',v10, /fi 
/fi 
if right(v10^1,1) = '.' then '^mPOINT^d'v10^1 fi, 
if right(v10^2,1) = '.' then '^mPOINT^d'v10^2 fi, 
if right(v10^3,1) = '.' then '^mPOINT^d'v10^3 fi, 
if right(v10^3,1) = '.' then '^mPOINT^d'v10^4 fi, 
if right(v10^3,1) = '.' then '^mPOINT^d'v10^5 fi, 
if right(v10^p,1) = '.' then '^mPOINT^d'v10^p fi, 
if right(v10^c,1) = '.' then '^mPOINT^d'v10^c fi, 
if right(v10^1,1) = ' ' then '^mSPACE^d'v10^1 fi, 
if right(v10^2,1) = ' ' then '^mSPACE^d'v10^2 fi, 
if right(v10^3,1) = ' ' then '^mSPACE^d'v10^3 fi, 
if right(v10^3,1) = ' ' then '^mSPACE^d'v10^4 fi, 
if right(v10^3,1) = ' ' then '^mSPACE^d'v10^5 fi, 
if right(v10^c,1) = ' ' then '^mSPACE^d'v10^c fi, 
if right(v10^p,1) = ' ' then '^mSPACE^d'v10^p fi, 

Preguntas : 


    • ¿Es esto suficiente o hay alguna cosa adicional para corregir? 
    • ¿Es necesario al enviar los registros a Bireme hacer un reformateo y generar ^3+^4+^5 como un solo subfield ^3 ? 
    • Si no modificamos los subcampos: ¿hay alguna otra forma de generar tablas a 5 columnas sin necesidad de intervernir un programador cada vez? 

Saludos 
Ernesto Spinak 
-- 
  .^.                                .^.
  ( )                                ( )
  ===                                ===
 =[=]================================[=]=
  | |  Ernesto Spinak                | |
  | | spinaker at adinet.com.uy | |
  | |  Montevideo, Uruguay           | |
  | |  tel/fax  (598) 2622-3352      | |
  | |  celular  (598) 99612238      | |
 =[=]================================[=]=
  ===                                ===
  ( )                                ( )
   V                                  V 
_______________________________________________ 
Reddes.bvs-tech mailing list 
Reddes.bvs-tech at listas.bireme.br 
http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.bireme.br/pipermail/reddes/attachments/20120517/52a9cca5/attachment-0001.html 
-------------- next part --------------
_______________________________________________
Reddes.bvs-tech mailing list
Reddes.bvs-tech at listas.bireme.br
http://listas.bireme.br/mailman/listinfo/reddes.bvs-tech