RadiAnt DICOM Viewer - Discussion Forum
send DICOM to PACS from RadiAnt Viewer

Hi, the new beta can correctly query and retrieve cases from a PACS and load the DICOM images inside the RadiAnt Viewer application.

I'm wondering if you guys are planning to add a feature to do the opposite which is to send the DICOM images loaded inside RadiAnt to the PACS.

It happens often to me to read CDs from outside clinics with RadiAnt and it would be very nice to be able with 1 click to send all the DICOMs into my PACS.

actually I have to manually download the DICOMs from the CD, save it in my hard disk and then manually import them into the PACS.

I think that when RadiAnt reads a CD it already temporarily saves those images in the hard disk, why not also sending them to a correctly configured DICOM node?


Oct 23, 2014 10:19 PM
by Tommy
Sure, the DICOM send feature is planned. However it's a bit more complicated - the images read from CDs often need to be converted to match the server's transfer syntax. There are also some other issues. Anyway, there are a few things that we need to deal with first. Like oblique MPR/MIP/VR, for example.


Oct 25, 2014 12:58 PM
by RadiAnt
actually I create a Visual Basic script that copies the DICOM folder from the CD into my PACS system (I use a ClearCanvas PACS that has a special folder called "primary incoming" where you can just copy DICOM files that will then be automatically processed and archived into the PACS) and then load the same images in RadiAnt

here's the code, feel free to use it and adapt it to your PACS scenario.
save it as a text file and then change the extension from .txt to .vbs

you need to know Visual Basic in order to tweak it.
code comments are in Italian but you may use any online translation tool to convert them.



'--------------------------------------------------------------------------------------
' CopiaCD.vbs - VBScript per copiare cartelle da CD-ROM ad HD - last update 17-11-2015
'--------------------------------------------------------------------------------------

' 1- copia immagini DICOM da CD ad HD
' 2- carica immagini salvate su HD in RadiAnt Viewer
' 3- copia immagini salvate su HD nello STORAGE
' 4- espulsione CD

'--------------------------------------------------------------------------------------
' 1- copia immagini DICOM da CD ad HD
'--------------------------------------------------------------------------------------
' definisce il nome della cartella di salvataggio dei files su HD mediante InputBox
NomeCD = InputBox("inserire NOME del CD da copiare. es. ROSSI MARIO RM 2010","INSERIMENTO DATI COPIA CD","")

CopiaCDsuHD = "C:\DICOM\Import" & "\" & NomeCD 'cartella dove verranno copiate le immagini da CD ad HD

Dim oShell
Set oShell = WScript.CreateObject ("WScript.Shell")
RadiAntLoad = "cmd.exe /C ""C:\Program Files\RadiAntViewer64bit\RadiAntViewer.exe"" -d " & CopiaCDsuHD
'oShell.run RadiAntLoad

' verifica che il CD-ROM contenga un disco
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives


If objDrive.DriveType = 4 Then
If objDrive.IsReady Then
' cerca le cartelle con immagini DICOM nel CD e le copia su HD nella cartella specificata
Set FSO = CreateObject("Scripting.FileSystemObject")

if Fso.FolderExists ("D:\DATA") then
FSO.CopyFolder "D:\DATA", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\DICOM") then
FSO.CopyFolder "D:\DICOM", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\IMAGES") then
FSO.CopyFolder "D:\IMAGES", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\000") then
FSO.CopyFolder "D:\000", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\studies") then
FSO.CopyFolder "D:\studies", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\_STUDIES") then
FSO.CopyFolder "D:\_STUDIES", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\CDSURF") then
FSO.CopyFolder "D:\CDSURF", CopiaCDsuHD
end if

if Fso.FolderExists ("D:\study000") then
FSO.CopyFolder "D:\study000", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\DATA") then
FSO.CopyFolder "E:\DATA", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\DICOM") then
FSO.CopyFolder "E:\DICOM", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\IMAGES") then
FSO.CopyFolder "E:\IMAGES", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\000") then
FSO.CopyFolder "E:\000", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\studies") then
FSO.CopyFolder "E:\studies", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\_STUDIES") then
FSO.CopyFolder "E:\_STUDIES", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\CDSURF") then
FSO.CopyFolder "E:\CDSURF", CopiaCDsuHD
end if

if Fso.FolderExists ("E:\study000") then
FSO.CopyFolder "E:\study000", CopiaCDsuHD
end if


'if Fso.FolderExists ("C:\Test\DICOM") then
'FSO.CopyFolder "C:\Test\DICOM", CopiaCDsuHD
'end if

'attiva l'espulsione del CD
Call EjectCD


'--------------------------------------------------------------------------------------
' 2- carica immagini salvate su HD in RadiAnt Viewer
'--------------------------------------------------------------------------------------
' carica le immagini copiate sull'HD e le lancia su RadiAnt via linea di comando
RadiAntLoad = "cmd.exe /C ""C:\Program Files\RadiAntViewer64bit\RadiAntViewer.exe"" -d " & CopiaCDsuHD
oShell.run Ra


Apr 23, 2016 06:37 AM
by Tommy
Post reply

Author:


Message: