<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
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" cols="72">--
.^. .^.
( ) ( )
=== ===
=[=]================================[=]=
| | Ernesto Spinak | |
| | <a class="moz-txt-link-abbreviated" href="mailto:spinaker@adinet.com.uy">spinaker@adinet.com.uy</a> | |
| | Montevideo, Uruguay | |
| | tel/fax (598) 2622-3352 | |
| | celular (598) 99612238 | |
=[=]================================[=]=
=== ===
( ) ( )
V V </pre>
</body>
</html>