LUA script for accessing DICOM study data in JSON format

toskrip · Aug 6th 2013

Hallo,

I have a need to create web application where one of the feature should allow to access DICOM study and series data from Conquest. For this purpose I wrote a small lua script which reports the studies and series hierarchy of specified patient. I just want to share the script, maybe somebody else also find it useful.

Code

local patientid = CGI('patientidmatch');


-- Functions declaration


function queryallseries()
  local series, seriest, b, s;


  if source == '(local)' then
    s = servercommand('get_param:MyACRNema')
  else
    s = source;
  end


  b=newdicomobject();
  b.PatientID = patientid
  b.StudyDate        = '';
  b.StudyInstanceUID = '';
  b.StudyDescription = '';
  b.SeriesDescription= '';
  b.SeriesInstanceUID= '';
  b.Modality         = '';
  b.SeriesTime       = '';


  series=dicomquery(s, 'SERIES', b);


  -- convert returned DDO (userdata) to table; needed to allow table.sort
  seriest={}
  for k1=0,#series-1 do
    seriest[k1+1]={}
    seriest[k1+1].StudyDate        = series[k1].StudyDate
    seriest[k1+1].PatientID        = series[k1].PatientID
    seriest[k1+1].StudyDate        = series[k1].StudyDate
    seriest[k1+1].SeriesTime       = series[k1].SeriesTime
    seriest[k1+1].StudyInstanceUID = series[k1].StudyInstanceUID
    seriest[k1+1].SeriesDescription= series[k1].SeriesDescription
    seriest[k1+1].StudyDescription = series[k1].StudyDescription
    seriest[k1+1].SeriesInstanceUID= series[k1].SeriesInstanceUID
    seriest[k1+1].Modality         = series[k1].Modality
  end
  return seriest
end


-- RESPONSE


HTML('Content-type: application/json\n\n');


local series=queryallseries()
table.sort(series, function(a,b) return a.StudyInstanceUID<b.StudyInstanceUID end)


jsonstring = [[ { "Studies": [ ]] -- start of json obj, start of studies collection


for i=1,#series do
  if series[i].StudyDate == '' then series[i].StudyDate = series[i].SeriesDate end
  if series[i].StudyDate == '' or series[i].StudyDate == nil then series[i].StudyDate = 'Unknown' end

  -- If it is first study study or next study in a list
  local split = (i==1) or (series[i-1].StudyInstanceUID ~= series[i].StudyInstanceUID)


  -- If it is a next study
  if split and i~=1 then
    jsonstring = jsonstring .. [[ ] ]] -- end of series collection if next exist
    jsonstring = jsonstring .. [[ } ]] -- end of study object if next exist
    jsonstring = jsonstring .. [[, ]] -- next study can be created
  end


  -- If  it is first study or next study in a list
  if split then
    --DICOM study json object
    jsonstring = jsonstring .. [[ { ]] -- begin of study object
    jsonstring = jsonstring .. [[ "StudyInstanceUID": "]] .. series[i].StudyInstanceUID .. [[", ]]
    jsonstring = jsonstring .. [[ "StudyDate": "]] .. series[i].StudyDate .. [[", ]]
    if series[i].StudyDescription ~= '' and series[i].StudyDescription ~= nil then
      jsonstring = jsonstring .. [[ "StudyDescription": "]] .. series[i].StudyDescription .. [[", ]]  
    end
    jsonstring = jsonstring .. [[ "Series" : [ ]] -- begin of series collection
  end

  -- DICOM series json collection
  jsonstring = jsonstring .. [[ { ]] -- begin of series object
  jsonstring = jsonstring .. [[ "SeriesInstanceUID" : "]] ..series[i].SeriesInstanceUID .. [[", ]]
  if series[i].SeriesDescription ~= '' and series[i].SeriesDescription ~= nil then
    jsonstring = jsonstring .. [[ "SeriesDescription": "]] .. series[i].SeriesDescription .. [[", ]]
  end
  if series[i].SeriesTime ~= '' and series[i].SeriesTime ~= nil then
    jsonstring = jsonstring .. [[ "SeriesTime": "]] .. series[i].SeriesTime .. [[", ]]
  end
  jsonstring = jsonstring .. [[ "Modality": "]] .. series[i].Modality .. [[ " ]]
  jsonstring = jsonstring .. [[ } ]] -- end of series object


  if i ~= #series then
   if series[i+1].StudyInstanceUID == series[i].StudyInstanceUID then
    jsonstring = jsonstring .. [[, ]] -- there will be nex series object
   end
  end  
end


jsonstring = jsonstring .. [[ ] ]] -- end of series collection
jsonstring = jsonstring .. [[ } ]] -- end of study object
jsonstring = jsonstring .. [[ ] ]] -- end of studies collection
jsonstring = jsonstring .. [[ } ]] -- end of json obj


HTML(jsonstring)

Display More

best

Tomas

marcelvanherk · Aug 6th 2013

Nice!

Marcel

toskrip · Aug 21st 2013

Small bugfix and more optional searching parameters via URL query strings.

Code

-- This script is querying ConQuest PACS in order to retrieve 
-- DICOM patient/study/series data restricted via QueryString parameters
-- the data is reported in JSON format


local patientid = CGI('patientidmatch');
local studyuid = CGI('studyUID');
local studydate = CGI('studyDate');
local seriesuid = CGI('seriesUID');
local modality = CGI('modality');
local seriestime = CGI('seriesTime');


-- Functions declaration


function queryallseries()
  local series, seriest, b, s;


  if source == '(local)' then
    s = servercommand('get_param:MyACRNema')
  else
    s = source;
  end


  b=newdicomobject();
  b.PatientID = patientid
  b.StudyDate        = studydate;
  b.StudyInstanceUID = studyuid;
  b.StudyDescription = '';
  b.SeriesInstanceUID= seriesuid;
  b.SeriesDescription= '';
  b.Modality         = modality;
  b.SeriesTime       = seriestime;


  series=dicomquery(s, 'SERIES', b);


  -- convert returned DDO (userdata) to table; needed to allow table.sort
  seriest={}
  for k1=0,#series-1 do
    seriest[k1+1]={}
    seriest[k1+1].StudyDate        = series[k1].StudyDate
    seriest[k1+1].PatientID        = series[k1].PatientID
    seriest[k1+1].StudyDate        = series[k1].StudyDate
    seriest[k1+1].SeriesTime       = series[k1].SeriesTime
    seriest[k1+1].StudyInstanceUID = series[k1].StudyInstanceUID
    seriest[k1+1].SeriesDescription= series[k1].SeriesDescription
    seriest[k1+1].StudyDescription = series[k1].StudyDescription
    seriest[k1+1].SeriesInstanceUID= series[k1].SeriesInstanceUID
    seriest[k1+1].Modality         = series[k1].Modality
  end
  return seriest
end


-- RESPONSE


HTML('Content-type: application/json\n\n');


local series = queryallseries()
table.sort(series, function(a,b) return a.StudyInstanceUID<b.StudyInstanceUID end)


jsonstring = [[ { "Studies": [ ]] -- start of json obj, start of studies collection


for i=1,#series do
  if series[i].StudyDate == '' then series[i].StudyDate = series[i].SeriesDate end
  if series[i].StudyDate == '' or series[i].StudyDate == nil then series[i].StudyDate = 'Unknown' end

  -- If it is first study study or next study in a list
  local split = (i==1) or (series[i-1].StudyInstanceUID ~= series[i].StudyInstanceUID)


  -- If it is a next study
  if split and i~=1 then
    jsonstring = jsonstring .. [[ ] ]] -- end of series collection if next exist
    jsonstring = jsonstring .. [[ } ]] -- end of study object if next exist
    jsonstring = jsonstring .. [[, ]] -- next study can be created
  end


  -- If  it is first study or next study in a list
  if split then
    --DICOM study json object
    jsonstring = jsonstring .. [[ { ]] -- begin of study object
    jsonstring = jsonstring .. [[ "StudyInstanceUID": "]] .. series[i].StudyInstanceUID .. [[", ]]
    jsonstring = jsonstring .. [[ "StudyDate": "]] .. series[i].StudyDate .. [[", ]]
    if series[i].StudyDescription ~= '' and series[i].StudyDescription ~= nil then
      jsonstring = jsonstring .. [[ "StudyDescription": "]] .. series[i].StudyDescription .. [[", ]]  
    end
    jsonstring = jsonstring .. [[ "Series" : [ ]] -- begin of series collection
  end

  -- DICOM series json collection
  jsonstring = jsonstring .. [[ { ]] -- begin of series object
  jsonstring = jsonstring .. [[ "SeriesInstanceUID" : "]] ..series[i].SeriesInstanceUID .. [[", ]]
  if series[i].SeriesDescription ~= '' and series[i].SeriesDescription ~= nil then
    jsonstring = jsonstring .. [[ "SeriesDescription": "]] .. series[i].SeriesDescription .. [[", ]]
  end
  if series[i].SeriesTime ~= '' and series[i].SeriesTime ~= nil then
    jsonstring = jsonstring .. [[ "SeriesTime": "]] .. series[i].SeriesTime .. [[", ]]
  end
  jsonstring = jsonstring .. [[ "Modality": "]] .. series[i].Modality .. [[ " ]]
  jsonstring = jsonstring .. [[ } ]] -- end of series object


  if i ~= #series then
   if series[i+1].StudyInstanceUID == series[i].StudyInstanceUID then
    jsonstring = jsonstring .. [[, ]] -- there will be nex series object
   end
  end  
end


if #series > 0 then
  jsonstring = jsonstring .. [[ ] ]] -- end of series collection
  jsonstring = jsonstring .. [[ } ]] -- end of study object
end
jsonstring = jsonstring .. [[ ] ]] -- end of studies collection
jsonstring = jsonstring .. [[ } ]] -- end of json obj


HTML(jsonstring)

Display More

Tomas

LUA script for accessing DICOM study data in JSON format

Participate now!

Share