DICOM

DICOM
Primer Aproximación

En esta entrada abordaré los conceptos más importantes de DICOM desde una perspectiva de programación informática la cual espero les sea de utilidad ademas, como siempre, espero  me puedan servir como apuntes para futuras referencias.


DICOM (Digital Imaging and Communications in Medicine)

Es un protocolo o estándar que define los mecanismos para:  obtener, intercambiar, almacenar, recuperar, revisar o imprimir  resultados de estudios médicos especialmente de aquellos estudios que produce imagen o video* tales como:

• Rayos X
• Ultrasonido
• Resonancia Magnética
• Tomografía Computarizada 

Historia
   
    Con el surgimiento de la tomografía computarizada y el auge de otras técnicas de diagnóstico basado en imágenes durante la  década de los 70's, salieron a la luz diversidad de dispositivos que producian imágenes para el apoyo en el diagnóstico cada uno con sus propios formatos sus propies reglas y casi siempre incompatibles unos sistemas con otros

Es así que en 1983  el ACR (American College of Radiology) junto con el NEMA (National Electrical Manufacturers Association) decidieron formar un comité para desarrollar un estándar que permitiera:

•     El intercambio de  imágenes digitales entre dispositivos de diferentes fabricantes.
•     Facilitar la administración (almacenamiento e intercambio)  de imágenes digitales y permitir la comunicación entre diferentes dispositivos del área médica. 
•  

Uno de los mayores exitos de DICOM se debe a que fue visualizado para el cambio, la actualización y el mantenimiento y es por eso que hoy se encuentra tan vigtente, pues a lo largo de su hostoria ha recibido modificaciones revisiones y mejoras

• 1988 Se publicó la versión 1 del protocolo
• 1998 Se publicó la versión 2.0 del protocolo
• 1993 Se revisó modificó y reemplazo el estándar ACR-NEMA 300 por el "nuevo" DICOM
• 1995 Se agrega características para el manejo de imágenes cardiológicas.

Referencias

http://dicom.nema.org/medical/dicom/current/output/html/part01.html

Web AAPI :net Core

Estructura

Como estructura generaremos los siguientes cuatro proyectis

3 Bibliotecas de clase .Net Core
   Models
   Data
   Dtos

1.-Solución WEB Net Core Vacía
   Api

En en el proyecto de Data ejecutaremos los siguientes comandos (desde la consola del administrador de paquetes NuGet.

Install-Package Microsoft.EntityFrameworkCore.SqlServer -version 2.2.6 

Install-Package Microsoft.EntityFrameworkCore.Tools -version 2.2.6

scaffold-dbcontext "Data Source=localhost\SQLEXPRESS;Initial Catalog=TuBD;Integrated Security=True;" Microsoft.EntityFrameworkCore.SqlServer 

Caracteres Extraños Oracle ñ

En algunos casos al trabajar con bases de datos Oracle nos encontramos con que algunos caracteres especiales tales como Ñ, Á ü, no son mostrados correctamente.

Lo más probable es que el error se esté generando debido a que el cliente y el servidor de la base de datos tiene configurado diferente Juego de caracteres.

Para corregir este problema es necesario igualar el juego de caracteres de la base de datos y del cliente que esta realizando la consulta , inserción y actualización (Es recomendable revisar y unificar la  juego de caracteres de cada uno de los clientes que se conecte a la BD. de lo contrario podría existir discrepancia entre lo que diferentes clientes pueden ver)

1.- Ejecuta la siguiente consulta en la base de datos Oracle  con la que estas experimentando el problema: 

SELECT *
FROM V$NLS_PARAMETERS
WHERE PARAMETER in ('NLS_LANGUAGE','NLS_TERRITORY','NLS_CHARACTERSET'); 

    El resultado de la consulta deberá ser similar al siguiente: 

   


2.- Genera una cadena con los tres  valores devueltos. La cadena deberá tener la siguiente estructura: [NS_LANGUAGE_[NLS_TERRITORY].[NLS_CHARACTERSET]


3.- Agrega una nueva entrada en las variables del entorno del sistema (Inicio>>Este Equipo>>(botón secundario)>>Propiedades>>Configuración Avanzada del sistema.>>Variables del Entorno)


Ejemplo: MEXICAN SPANISH_MEXICO.WE8ISO8859P1



4.- Reinicia el sistema







Cursores Implicitos Oracle

Los cursores no son mi herramienta favorita pero por alguna razón que no tengo muy clara la realidad es que en el mundo de Oracle es una de las formas más comunes de hacer las cosas .. Cursor para esto, cursor para aquello, todo se puede resolver con cursores y la verdad es que he de reconocer que tienen un gran poder sin embargo prefiero prescindir de ellos en la medida de lo posible.

Pero para aquellos casos en los que no hay más opciones o la manera rápida de hacerlo es mediante un cursos aqui les dejo la forma que considero más sencilla de trabajar con cursores son los cursores implicitos. Aqui dejo un ejemplo de como se pueden usar 



BEGIN
    FOR  REGISTRO IN  (SELECT CAMPO1, CAMPO2
                                   FROM   Tabla1                 T1
                                              Inner join Tabla2  T2 On T1.A = T2.B
                                         )
     LOOP
          DBMS_OUTPUT.put_line(registro.campo1);     
    END LOOP;        
END; 

En esta entrada comparto un script para poder enviar correos desde Power Shel es importante señalar que antes de poder realizar el envío desde cuentas de gmail u outlook es necesario habilitar el envío de Aquí puedes encontrar un manual de como hacerlo.

$EmailFrom = "pruebas@gmail.com"
$EmailPass = "1234"
$EmailTo = "pruebas@gmail.com"
$Subject = "Prueba de correo PowerShel"
$Body = "Cuertpo del correo"
$SMTPServer = "smtp.gmail.com"
$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body)
$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
$SMTPClient.EnableSsl = $true
$SMTPClient.Credentials = New-Object System.Net.NetworkCredential($EmailFrom, $EmailPass)
$SMTPCliente.EnableSsl = $true;
$SMTPClient.send($SMTPMessage)



Es posible que el antivirus bloquee el envío de correos en esta caso podrías recibir un error similar al siguiente:





Si este es el caso revisa

Para enviar el mismo correo varias veces puedes sustituir la ultima linea por estas tres lineas:

for($i=0; $i -lt 3; $i++)
{
   $SMTPClient.send($SMTPMessage)
}

Monitor de licencias ASPEL

Hoy me enfrente con que el servidor de licencias de ASPEL no funcionaba y no me permita entrar en ninguno de los equipo (trabajo en red) y después de muchos intentes finalmente lo conseguí hacer funcionar.


1.- Desinstala y instala el servicio windows de licencias de usuario
  Abre una consola de comandos (CMD)
  Ejecuta la siguiente instrucción : C:\windowsSysWOW64\servlicasp /uninstall
  Reinicia la maquina.

Abre una consola de comandos (CMD)   Ejecuta la siguiente instrucción : C:\windowsSysWOW64\servlicasp /install
  Reinicia la maquina y asegurate de que el servicio se este ejecutando (Inicio->Servicios).


2.-Registra la DLL midas.dll
   regsvr32.exe c:\windows\system32\midas.dll


3.-Verifica que todas las referencias a a la DLL Midas.dll estén correctas en el reg edit
   Entrar al Regedit , seleccionar MI PC luego menú Edición / Buscar / midas.dll
  Verificar que todas las etiquetas que encuentres tengan la misma ruta y sea correcta es posible que hagan referencia a una ruta que ya no existe.


En otro momento ampliaré esta información.

Copia masiva de datos usando OracleBulkCopy y Array Binding

En algunas ocasiones en nuestros desarrollos nos encontramos con la necesidad de copiar o insertar una gran cantidad de registros a nuestra base de datos desde algún origen externo como lo puede ser un archivo u otra base de datos; En esta entrada les comparto dos formas en las que pueden realizar esta copia de información de manera eficiente

El poderoso método de copia masiva BulkCopy

No tiene rival cuando de copiar una gran cantidad de datos se trata, yo lo recomiendo cuando se trata de más de 10,000 registros e incluso menos si es que requieres que tu copia de datos sea rápida. Debes garantizar que los registros que copias no infrinjan alguna de las reglas de la tabla y solo se puede hacer la copia no se puede usar con sentencias sql.

public static void CopiaMasivao(List<Libro> listaLibros)

{

        OracleBulkCopy copiaMasiva = new OracleBulkCopy("tu cadena de conexion");

        

        copiaMasiva.BulkCopyTimeout = 600;

        copiaMasiva.DestinationTableName = "LIBRO";

        copiaMasiva.ColumnMappings.Add("ID", "ID");

        copiaMasiva.ColumnMappings.Add("TITULO", "TITULO");

        copiaMasiva.ColumnMappings.Add("ISBN", "ISBN");

        //El uso de mappings sólo se requiere cuando el origen y el destino tienen número u orden de

        //columnas/propiedades diferentes. 

     

        copiaMasiva.WriteToServer(listaLibros.ToDataTable());

       cmdInsert.Connection.Close()

}

//Método  que que permite convertir una IEnumerable (en este caso nuestra lista generica) en un DataTable 

  public static class IEnumerableExtensions

    {

      public static DataTable ToDataTable<T>(this IEnumerable<T> data)

            {

                PropertyDescriptorCollection properties = TypeDescriptor.GetProperties(typeof(T));

                var table = new DataTable();

                foreach (PropertyDescriptor prop in properties)

                    table.Columns.Add(prop.Name, Nullable.GetUnderlyingType(prop.PropertyType) ?? prop.PropertyType);

                foreach (T item in data)

                {

                    DataRow row = table.NewRow();

                    foreach (PropertyDescriptor prop in properties)

                        row[prop.Name] = prop.GetValue(item) ?? DBNull.Value;

                    table.Rows.Add(row);

                }

                return table;

            }

        

    }

---------------------------------------------------------------------------------------------------------------------

El  poco documentado método de Array Binding (hasta donde se sólo disponible para Oracle)

Este método es muy efectivo lo recomiendo cuando se trata de menos de 10,000 registros o bien cuando no no se puede hacer uso de BulkCopy. La diferencia respecto al método de registro por registros que este método manda la información por bloques a la BD en lugar de enviar uno por uno, el tamaño del bloque es determinado por la propiedad BatchSieze. Es un excelente método de realizar no solo copia de datos sino de ejecutar instrucciones SQL con parámetros asociados.

public static void CopiaArray(List<Libro> listaLibros)

{

            string strSql = @"INSERT INTO LIBRO (ID,  TITULO,  ISBN) 

                                        VALUES  (:ID, :TITULO, :ISBN)";

            OracleCommand cmdInsert= new OracleCommand(strSql);

            cmdInsert.Connection = new OracleConnection("tu cadena de conexion");

            cmdInsert.Parameters.Add(":ID",OracleDbType.Int64);

            cmdInsert.Parameters.Add(":TITULO",OracleDbType.Varchar2,255);

            cmdInsert.Parameters.Add(":ISBN",OracleDbType.Int64);

            cmdInsert.Connection.Open();

            cmdInsert.Parameters["ID"].Value =  listaLibros.Select(x => x.ID).ToArray();

            cmdInsert.Parameters["TITULO"].Value = listaLibros.Select(x => x.Titulo).ToArray();

            cmdInsert.Parameters["ISBN"].Value =listaLibros.Select(x => x.ISBN).ToArray();;

            cmd.ArrayBindCount = listaLibros.Count;

          

            cmdInsert.ExecuteNonQuery();

            cmdInsert.Connection.Close()

}

El viejo y conocido método de registro por registro  

Ineficiente a la hora de copiar o insertar un numero importante de registros,  ya que por cada execute del comando se realiza un viaje a la BD con el respectivo costo que esto implica. Solo es recomendable cuando la inserción puede generar un error  y se requiere que continúe  con las demás inserciones 

public static void CopiaRegistroPorRegistro(List<Libro> listaLibros)

{

            string strSql = @"INSERT INTO LIBRO (ID,  TITULO,  ISBN) 

                                        VALUES  (:ID, :TITULO, :ISBN)";

            OracleCommand cmdInsert= new OracleCommand(strSql);

            cmdInsert.Connection = new OracleConnection("tu cadena de conexion");

            cmdInsert.Parameters.Add(":ID",OracleDbType.Int64);

            cmdInsert.Parameters.Add(":TITULO",OracleDbType.Varchar2,255);

            cmdInsert.Parameters.Add(":ISBN",OracleDbType.Int64);

            cmdInsert.Connection.Open();

            foreach (Libro libro  in listaLibros)

            {

                cmdInsert.Parameters["ID"].Value = libro.ID;

                cmdInsert.Parameters["TITULO"].Value = libro.Titulo;

                cmdInsert.Parameters["ISBN"].Value = libro.ISBN;

                cmdInsert.ExecuteNonQuery();

            }

            cmdInsert.Connection.Close()

}