Web server

marcelvanherk · Jul 30th 2022

You can also look at file metadicom.lua. It shows how to process a dicom object element by element.

Marcel

jweste · Jul 31st 2022

Quote from marcelvanherk

Hi,

to only get the metadata, read the object

x:Read(patientid..':'..sopistanceuid)

and then clear the pixel data

x.PixelData=nil

To query on number say:

q["00231001"]=""

or q[string]="", where you fill the string with eg 00231001

Marcel

Display More

Hi Marcel,

I need to pass a long list of params(in json format) to a lua function and I´d like to access that params key/values:

Code

function wadouri(params)
// I´d like to access the params details here
// as params.studyUID,  params.seriesUID .....   
end

How could I do that?

Code

const params = {
    studyUID: "",
    seriesUID: "",
    objectUID: "",
    requestType: "",
    contentType: "",
    rows: "0",
    columns: "0",
    region: "",
    windowCenter: "0",
    windowWidth: "0",
    frameNumber: "0",
    transferSyntax: "",
    anonymize: "",
    annotation: "",
    imageQuality: 100,
    charset: "",
    presentationUID: "",
  };
  const cmd = `--dolua:dofile([[${APIFOLDER}/queryfunctions.lua]]);wadouri([[params]])`;

Display More

jweste · Jul 31st 2022

Hi, Marcel,

I am trying adapt wado.lua script to get a console output. I get an error:

*** lua run error ...r\server_iclindoctor/api/dicomapi/queryfunctions.lua:166: bad argument #1 to 'write' (string expected, got nil) in 'dofile([[F:\Programas\vuejs\nuxt-iclindoctor\server_iclindoctor/api/dicomapi/queryfunctions.lua]]);wado([[1.3.46.670589.5.2.10.2156913941.892665384.993397]],[[1.3.46.670589.5.2.10.2156913941.892665339.860724]],[[1.3.46.670589.5.2.10.2156913941.892665339.718742]])'

Code

function scommand(obj, region, rows, columns, contentType, transferSyntax, anonymize, annotation, bridge,
  windowCenter,windowWidth,frameNumber,imageQuality)
  local bridge=''
  region = string.gsub(region, ',', '/')
  annotation = string.gsub(annotation, ',', '/')
  windowCenter = math.floor(windowCenter+0.5)
  windowWidth = math.floor(windowWidth+0.5)
  local lwfq=string.format("%d/%d/%d/%d", windowCenter, windowWidth, tonumber(frameNumber), tonumber(imageQuality))
  
  local size=string.format("%d/%d", tonumber(rows), tonumber(columns))
  

  local command=string.format("wadorequest:%s,%s,%s,%s,%s,%s,%s,%s,%s", obj, lwfq, size, region, contentType, transferSyntax, anonymize, annotation, bridge)
  local remotecode =
  [[
    local outfile = tempfile('.out')
    ]]..command..[[..','..outfile
    returnfile=outfile
  ]]
  r=servercommand('lua:'..remotecode)
  io.write(r)
end;


function wado(studyUID, seriesUID, objectUID)
local contentType=contentType or ""
local rows=rows or "0"
local columns=columns or "0"
local region=region or  ""
local windowCenter=windowCenter or "0"
local windowWidth=windowWidth or "0"
local frameNumber=frameNumber or "0"
local transferSyntax=transferSyntax or  ""
local anonymize=anonymize or ""
local annotation=annotation or ""
local imageQuality=imageQuality or "100"
local charset=charset or ""
local presentationUID=presentationUID or ""
local bridge=bridge or ""

region = string.gsub(region, ',', '/')
annotation = string.gsub(annotation, ',', '/')
windowCenter = math.floor(windowCenter+0.5)
windowWidth = math.floor(windowWidth+0.5)
  local obj=string.format("%s\\%s\\%s", studyUID, seriesUID, objectUID)  
  if contentType=="image/bmp" and tonumber(frameNumber)<0 then
    -- scommand(command)
  elseif contentType=="image/jpeg" and tonumber(frameNumber)<0 then
    scommand(command)
  else
    scommand(obj, region, rows, columns, contentType, transferSyntax, anonymize, annotation, bridge,
    windowCenter,windowWidth,frameNumber,imageQuality)
  end 
  io.write(obj) 
end;

Display More

marcelvanherk · Jul 31st 2022

#140 pass a table e.g. t({a=1, b=2}) function t (a) print (a.a) end

#141 wadorequest prints to stdout itself, so it does not return anything

Marcel

marcelvanherk · Jul 31st 2022

You need to call it directly wthout lua, it may actually return the object.

Marcel

jweste · Jul 31st 2022

Quote from marcelvanherk

You need to call it directly wthout lua, it may actually return the object.

Marcel

Hi, Marcel

I called directly without lua. But I have no console output.

The conquest log is:

Code

...
[CONQUESTSRV1] Server Command   := 0030

[CONQUESTSRV1] Message ID       := 0002
[CONQUESTSRV1] C-Echo
[CONQUESTSRV1] UPACS THREAD 14: ENDED AT: Sun Jul 31 10:20:40 2022
[CONQUESTSRV1] UPACS THREAD 14: TOTAL RUNNING TIME: 0 SECONDS
[CONQUESTSRV1] Locating file:MAG0 86542\1.3.46.670589.30.1.6.1.116520970982.1491318133781.1_0001_000001_16575404210002.dcm

Code

function scommand(obj, region, rows, columns, contentType, transferSyntax, anonymize, annotation, bridge,
  windowCenter,windowWidth,frameNumber,imageQuality)
  local bridge=''
  region = string.gsub(region, ',', '/')
  annotation = string.gsub(annotation, ',', '/')
  windowCenter = math.floor(windowCenter+0.5)
  windowWidth = math.floor(windowWidth+0.5)
  local lwfq=string.format("%d/%d/%d/%d", windowCenter, windowWidth, tonumber(frameNumber), tonumber(imageQuality))
  
  local size=string.format("%d/%d", tonumber(rows), tonumber(columns))
  local command=string.format("wadorequest:%s,%s,%s,%s,%s,%s,%s,%s,%s", obj, lwfq, size, region, contentType, transferSyntax, anonymize, annotation, bridge)
  servercommand(command)
end;

Display More

marcelvanherk · Jul 31st 2022

In that format it returns the data try servercommand(command , "cgibinary")

Marcel

jweste · Jul 31st 2022

Hi Marcel,

The response from server command is something as:

Code

Content-type: image/jpeg
Access-Control-Allow-Origin:*
ÿØÿà►JFIF☺☺☺☺ÿÛC☻☺☺☺☺☺☻☺☺☺☻☻☻☻☻♦♥☻☻☻☻♣♦♦♥♦♠♣♠♠♠♣♠♠♠    ♠        ♠♂
♂♀♂
♀
ÿÛC☺☻☻☻☻☻☻♣♥♥♣
♠
ÿÀ☺@☺@♥☺"☻◄☺♥◄☺ÿÄ▼☺♣☺☺☺☺☺☺☺☻♥♦♣♠
♂ÿÄµ►☻☺♥♥☻♦♥♣♣♦♦☺}☺☻♥♦◄♣↕!1A♠‼Qa"q¶2#B±Á§RÑð$3br
▬↨↑↓→%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz

So, I was taking a wrong way.

I change the code to the next.

I still get no valid image response. Could you help on it?

Code

function scommand(obj, region, rows, columns, contentType, anonymize,  bridge,
  windowCenter,windowWidth,frameNumber,imageQuality)
  bridge=bridge or ''
  region = string.gsub(region, ',', '/')
  windowCenter = math.floor(windowCenter+0.5)
  windowWidth = math.floor(windowWidth+0.5)
  local remotecode=
  [[
  local d = newdicomobject()
  local obj=']]..obj..[[';
  d:Read(obj);
  local region=']]..region..[[';
  local rows=']]..rows..[[';
  local columns=']]..columns..[[';
  contentType=']]..contentType..[[';
  anonymize=']]..anonymize..[[';
  bridge=']]..bridge..[[';
  windowCenter=']]..windowCenter..[[';
  windowWidth=']]..windowWidth..[[';
  frameNumber=']]..frameNumber..[[';
  imageQuality=']]..imageQuality..[[';
  
  if tonumber(rows)==0 then rows = d.Rows or 0 end
  if tonumber(columns)==0 then columns = d.Columns or 0 end
  local size=string.format("%d/%d", tonumber(rows), tonumber(columns))
  local nf = tonumber(d.NumberOfFrames or '0')

  if region~='' then
    local startx, endx, starty, endy
    local sx, ex, sy, ey = string.match(region, "(.+)%/(.+)%/(.+)%/(.+)")
    startx = math.floor(tonumber(sx)*tonumber(d.Columns) + 0.5)
    endx = math.floor(tonumber(ex)*tonumber(d.Columns)+ 0.5)
    starty = math.floor(tonumber(sy)*tonumber(d.Rows) + 0.5)
    endy = math.floor(tonumber(ey)*tonumber(d.Rows) + 0.5)
    d:Script(string.format('crop %d,%d,%d,%d', startx, starty, endx, endy))
  end  

  if anonymize=='yes' then 
    d:Script("call anonymize_script.cq")
  elseif anonymize~='' then 
    d:Script(string.format("lua/anonymize_script.lua(%s)", anonymize))
  end
  
  local tempname ='w.out'
  d:Script('rm w.out')

  if contentType=="image/gif" and nf<2 then
    d:Script(string.format("save gif size %s frame %s quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/bmp" and nf<2 then
    d:Script(string.format("save gif size %s frame %s quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/gif" and nf>2 then
    d:Script(string.format("save gif size %s frame %d quality %s level %d window %d to %s", rows, 10000+5, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/jpeg" or contentType=="image/on" or contentType=="image/jp2" then
    d:Script(string.format("save jpg size %s frame %d quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="application/dicom" then
    if presentationUID=="1.2.840.10008.1.2.4.50" then d:Script("compression j3")
    elseif presentationUID=="1.2.840.10008.1.2.4.51" then d:Script("compression j4")
    elseif presentationUID=="1.2.840.10008.1.2.4.53" then d:Script("compression j5")
    elseif presentationUID=="1.2.840.10008.1.2.4.55" then d:Script("compression j1")
    elseif presentationUID=="1.2.840.10008.1.2.4.57" then d:Script("compression j2")
    elseif presentationUID=="1.2.840.10008.1.2.4.70" then d:Script("compression j1")
    elseif presentationUID=="1.2.840.10008.1.2.4.80" then d:Script("compression js")
    elseif presentationUID=="1.2.840.10008.1.2.4.81" then d:Script("compression j7")
    elseif presentationUID=="1.2.840.10008.1.2.4.90" then d:Script("compression jk")
    elseif presentationUID=="1.2.840.10008.1.2.4.91" then d:Script("compression jl")
    else d:Script("compression un") end
    d:Write(tempname)
  elseif contentType=="video/mpeg" and nf>=2 then
  elseif contentType=="text/plain" then
    d:Dump(tempname)
  elseif contentType=="text/html" then
    d:Dump(tempname)
  end
  returnfile=tempname
  ]]
  f=servercommand('lua:'..remotecode)
  io.write(f)  
end;

Display More

jweste · Jul 31st 2022

Never mind, I solved it as:

Code

function scommand(obj, region, rows, columns, contentType, anonymize,  bridge,
  windowCenter,windowWidth,frameNumber,imageQuality)
  bridge=bridge or ''
  region = string.gsub(region, ',', '/')
  windowCenter = math.floor(windowCenter+0.5)
  windowWidth = math.floor(windowWidth+0.5)
  local remotecode=
  [[
  local d = newdicomobject()
  local xobj=']]..obj..[['
  d:Read(xobj);
  local region=']]..region..[[';
  local rows=']]..rows..[[';
  local columns=']]..columns..[[';
  contentType=']]..contentType..[[';
  anonymize=']]..anonymize..[[';
  bridge=']]..bridge..[[';
  windowCenter=']]..windowCenter..[[';
  windowWidth=']]..windowWidth..[[';
  frameNumber=']]..frameNumber..[[';
  imageQuality=']]..imageQuality..[[';
  
  if tonumber(rows)==0 then rows = d.Rows  end
  if tonumber(columns)==0 then columns = d.Columns or 110 end
  local size=string.format("%d/%d", tonumber(rows), tonumber(columns))
  local nf = tonumber(d.NumberOfFrames or '0')
  if region~='' then
    local startx, endx, starty, endy
    local sx, ex, sy, ey = string.match(region, "(.+)%/(.+)%/(.+)%/(.+)")
    startx = math.floor(tonumber(sx)*tonumber(d.Columns) + 0.5)
    endx = math.floor(tonumber(ex)*tonumber(d.Columns)+ 0.5)
    starty = math.floor(tonumber(sy)*tonumber(d.Rows) + 0.5)
    endy = math.floor(tonumber(ey)*tonumber(d.Rows) + 0.5)
    d:Script(string.format('crop %d,%d,%d,%d', startx, starty, endx, endy))
  end  
  if anonymize=='yes' then 
    d:Script("call anonymize_script.cq")
  elseif anonymize~='' then 
    d:Script(string.format("lua/anonymize_script.lua(%s)", anonymize))
  end
  local tempname ='w.out'
  d:Script('rm w.out')
  -- local tempname = tempfile('.out')
  if contentType=="image/gif" and nf<2 then
    d:Script(string.format("save gif size %s frame %s quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/bmp" and nf<2 then
    d:Script(string.format("save gif size %s frame %s quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/gif" and nf>2 then
    d:Script(string.format("save gif size %s frame %d quality %s level %d window %d to %s", rows, 10000+5, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="image/jpeg" or contentType=="image/on" or contentType=="image/jp2" then
    d:Script(string.format("save jpg size %s frame %d quality %s level %d window %d to %s", rows, frameNumber, imageQuality, windowCenter, windowWidth, tempname))
  elseif contentType=="application/dicom" then
    if presentationUID=="1.2.840.10008.1.2.4.50" then d:Script("compression j3")
    elseif presentationUID=="1.2.840.10008.1.2.4.51" then d:Script("compression j4")
    elseif presentationUID=="1.2.840.10008.1.2.4.53" then d:Script("compression j5")
    elseif presentationUID=="1.2.840.10008.1.2.4.55" then d:Script("compression j1")
    elseif presentationUID=="1.2.840.10008.1.2.4.57" then d:Script("compression j2")
    elseif presentationUID=="1.2.840.10008.1.2.4.70" then d:Script("compression j1")
    elseif presentationUID=="1.2.840.10008.1.2.4.80" then d:Script("compression js")
    elseif presentationUID=="1.2.840.10008.1.2.4.81" then d:Script("compression j7")
    elseif presentationUID=="1.2.840.10008.1.2.4.90" then d:Script("compression jk")
    elseif presentationUID=="1.2.840.10008.1.2.4.91" then d:Script("compression jl")
    else d:Script("compression un") end
    d:Write(tempname)
  elseif contentType=="video/mpeg" and nf>=2 then
  elseif contentType=="text/plain" then
    d:Dump(tempname)
  elseif contentType=="text/html" then
    d:Dump(tempname)
  end
  returnfile=tempname
  ]]
  f=servercommand('lua:'..remotecode)
  io.write(f or '')
end;

Display More

marcelvanherk · Aug 1st 2022

Hi,

that works too. Your first response was a binary jpeg image and I think correct.

Marcel

jweste · Aug 1st 2022

Marcel,

I have sent a PM with qido API(some resources are incompletes) and a cornerstone viewer.

Regards, Luiz

jweste · Aug 2nd 2022

Hi, Marcel

In the next command, what is the format to size params?

Does it accept differents formats?

I have seen some places with size calculated as size=rows/cols and others with size=N where N is a single integer.

Code

x:Script('save '..ographic..' level '..math.floor(c)..' window '..(math.ceil(w/2))..' size '..osize..' frame '..oframe..' to '..outfile)

jweste · Aug 2nd 2022

Hi, Marcel

Why SOPInstanceUID is not appearing into results with this query?

And if I add "StudyInstanceUID' It doesn´t appeas as well.

It seems the line code "DicomObject:new(params)" at "function images(server,params)" is getting ridding of some params attribute passed to the function.

I have tried a workaround using "Copy" to preserve parameters passed to the function, but no look.

The results sample is:

Code

[{"TransferSyntaxUID":"1.2.840.10008.1.2","ContentDate":"20161210","ConquestImageTime":"185904","QueryRetrieveLevel":"IMAGE","PatientName":"paciente009","PatientID":"86557","SeriesInstanceUID":"1.3.46.670589.30.1.6.1.116520970982.1481396381781.1","InstanceNumber":"1 ","ConquestObjectFile":"86557\\1.3.46.670589.30.1.6.1.116520970982.1481396381781.1_0001_000001_16593095180000.dcm","ConquestDevice":"MAG0"},{"TransferSyntaxUID":"1.2.840.10008.1.2","ContentDate":"20161210","ConquestImageTime":"185927","QueryRetrieveLevel":"IMAGE","PatientName":"paciente009","PatientID":"86557","SeriesInstanceUID":"1.3.46.670589.30.1.6.1.116520970982.1481396383125.1","InstanceNumber":"1 ","ConquestObjectFile":"86557\\1.3.46.670589.30.1.6.1.116520970982.1481396383125.1_0002_000001_16593095180001.dcm","ConquestDevice":"MAG0"},{"TransferSyntaxUID":"1.2.840.10008.1.2","ContentDate":"20170428","ConquestImageTime":"220621","QueryRetrieveLevel":"IMAGE","PatientName":"paciente009","PatientID":"86557","SeriesInstanceUID":"1.3.46.670589.30.1.6.1.116520970982.1493417300375.1","InstanceNumber":"1 ","ConquestObjectFile":"86557\\1.3.46.670589.30.1.6.1.116520970982.1493417300375.1_0001_000001_16593095180002.dcm","ConquestDevice":"MAG0"},{"TransferSyntaxUID":"1.2.840.10008.1.2","ContentDate":"20170428","ConquestImageTime":"220730","QueryRetrieveLevel":"IMAGE","PatientName":"paciente009","PatientID":"86557","SeriesInstanceUID":"1.3.46.670589.30.1.6.1.116520970982.1493417301687.1","InstanceNumber":"1 ","ConquestObjectFile":"86557\\1.3.46.670589.30.1.6.1.116520970982.1493417301687.1_0002_000001_16593095190003.dcm","ConquestDevice":"MAG0"},{"TransferSyntaxUID":"1.2.840.10008.1.2","ContentDate":"20170428","ConquestImageTime":"220747","QueryRetrieveLevel":"IMAGE","PatientName":"paciente009","PatientID":"86557","SeriesInstanceUID":"1.3.46.670589.30.1.6.1.116520970982.1493417302625.1","InstanceNumber":"1 ","ConquestObjectFile":"86557\\1.3.46.670589.30.1.6.1.116520970982.1493417302625.1_0003_000001_16593095190004.dcm","ConquestDevice":"MAG0"}]

My params is:

Code

const params = JSON.stringify({
    ConquestDevice: "",
    ConquestObjectFile: "",
    ConquestImageDate: "",
    ConquestImageTime: "",
    PatientID: PatientID || "",
    PatientName: "",
    SeriesInstanceUID: SeriesInstanceUID || "",
    InstanceNumber: "",
    ImageDate: "",
    ImageTime: "",
    SOPInstanceUID: "",
    NumberOfFrames: "",
  });

Display More

Code

function remotequery(ae, level, q, dicomweb)
  local isdicomweb=true
   if (dicomweb == nil or dicomweb == '') then isdicomweb= false end;
  local remotecode = 
[[
  local ae=']]..ae..[[';
  local level=']]..level..[[';
  local dicomweb=]]..tostring(isdicomweb)..[[;
  local q=]]..q:Serialize()..[[;
  local q2=DicomObject:new(); for k,v in pairs(q) do q2[k]=v end;
  local r = dicomquery(ae, level, q2):Serialize(true,true,dicomweb);
  local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();
]]
 local f = servercommand('lua:'..remotecode)
 return f
end;

function images(server,params)
local ae = server or servercommand('get_param:MyACRNema')
a=DicomObject:new(params)
b=remotequery(ae, 'IMAGE', a);
io.write(b or '')
end;

Display More

Conquest log

Code

[CONQUESTSRV1] (StudyRootQuery) search level: IMAGE
[CONQUESTSRV1] Query On Image
[CONQUESTSRV1] Issue Query on Columns: DICOMImages.ImageDate, DICOMImages.ImageTime, DICOMImages.ImageNumbe, DICOMSeries.SeriesInst, DICOMStudies.PatientNam, DICOMStudies.PatientID,DICOMImages.ObjectFile,DICOMImages.DeviceName
[CONQUESTSRV1] Values: DICOMStudies.PatientID = '86557' and DICOMSeries.StudyInsta = DICOMStudies.StudyInsta and DICOMImages.SeriesInst = DICOMSeries.SeriesInst
[CONQUESTSRV1] Tables: DICOMImages, DICOMSeries, DICOMStudies
[CONQUESTSRV1] Records = 5
[CONQUESTSRV1] C-Find (StudyRoot) located 5 records
[CONQUESTSRV1] UPACS THREAD 26: ENDED AT: Tue Aug 02 12:14:13 2022
[CONQUESTSRV1] UPACS THREAD 26: TOTAL RUNNING TIME: 0 SECONDS

marcelvanherk · Aug 2nd 2022

#145: conquest only has a downsize with a single parameter, it will downsize such that the largest dimension is <size. WADO has two parameters, but these are not trully implemented.

#146: I do not know, can you print a.SOPInstanceUID in function images and see if it is passed?

Marcel

jweste · Aug 2nd 2022

Hi Marcel

I printed params before "a=DicomObject:new(params)" in the function images. The parameters are ok and passed.

Here is the params printed:

{"ConquestDevice":"","ConquestObjectFile":"","ConquestImageDate":"","ConquestImageTime":"","PatientID":"66971","PatientName":"","SeriesInstanceUID":"","InstanceNumber":"","ImageDate":"","ImageTime":"","StudyInstanceUID":"","SOPInstanceUID":"","NumberOfFrames":""}

the problem is in this line: "a=DicomObject:new(params)".

I think this line is taking away some json parameters as SOPInstanceUID.

function images(server,params)

local ae = server or servercommand('get_param:MyACRNema')

io.write(params) --test

a=DicomObject:new(params)

b=remotequery(ae, 'IMAGE', a);

io.write(b or '')

end;

marcelvanherk · Aug 3rd 2022

Ok,

I can reproduce the issue. It must be a problem with the json parser. I will try to fix it now.

Marcel

marcelvanherk · Aug 3rd 2022

Hi,

fixed a few bugs in the json parser (you are the first actual user!) and an issue serialising empty sequences.

Hope this works allright: dgate.zip

Marcel

jweste · Aug 3rd 2022

Quote from marcelvanherk

Hi,

fixed a few bugs in the json parser (you are the first actual user!) and an issue serialising empty sequences.

Hope this works allright: dgate.zip

Marcel

Display More

Hi, Marcel

Thank you. It´s working.

Web server

Participate now!

Share

Similar Threads

Which versions of MS SQL are supported?

StudyInsta's conflict

Unable to retrieve studies from virtual server

Refused to enter inconsistent link PatientID into DICOMStudies