Web server

marcelvanherk · Jul 14th 2022

Quoting is tricky.

To list studies that would be:

dgate64 "--lua:q=DicomObject:new();q.PatientID=[[106019]];q.StudyInstanceUID=[[]];a=dicomquery([[CONQUESTSRV1]], [[STUDY]], q); local s=tempfile([[.txt]]) local f=io.open(s, [[wb]]) f:write(a:Serialize(true, true)) returnfile=s f:close();"

prints

[{"TransferSyntaxUID":"1.2.840.10008.1.2","QueryRetrieveLevel":"STUDY","PatientI

D":"106019","StudyInstanceUID":"1.3.46.670589.11.0.0.11.4.2.0.734.5.5972.2018110

911462251288"}]

jweste · Jul 14th 2022

Quote from marcelvanherk

Quoting is tricky.

To list studies that would be:

dgate64 "--lua:q=DicomObject:new();q.PatientID=[[106019]];q.StudyInstanceUID=[[]];a=dicomquery([[CONQUESTSRV1]], [[STUDY]], q); local s=tempfile([[.txt]]) local f=io.open(s, [[wb]]) f:write(a:Serialize(true, true)) returnfile=s f:close();"

prints

[{"TransferSyntaxUID":"1.2.840.10008.1.2","QueryRetrieveLevel":"STUDY","PatientI

D":"106019","StudyInstanceUID":"1.3.46.670589.11.0.0.11.4.2.0.734.5.5972.2018110

911462251288"}]

Display More

Thank you, I just sent you a new email with informations to use and test the API

jweste · Jul 14th 2022

Quote from jweste

Thank you, I just sent you a new email with informations to use and test the API

I just found why chrome it´s blocking my emails with the files. It´s because it contains javascript code e .exe files

jweste · Jul 14th 2022

Quote from marcelvanherk

Quoting is tricky.

To list studies that would be:

dgate64 "--lua:q=DicomObject:new();q.PatientID=[[106019]];q.StudyInstanceUID=[[]];a=dicomquery([[CONQUESTSRV1]], [[STUDY]], q); local s=tempfile([[.txt]]) local f=io.open(s, [[wb]]) f:write(a:Serialize(true, true)) returnfile=s f:close();"

prints

[{"TransferSyntaxUID":"1.2.840.10008.1.2","QueryRetrieveLevel":"STUDY","PatientI

D":"106019","StudyInstanceUID":"1.3.46.670589.11.0.0.11.4.2.0.734.5.5972.2018110

911462251288"}]

Display More

How could I get more informations of the study with lua script, such as StudyDate,StudyModal,PatientNam,PatientID,StudyInsta,PatientBir ?

jweste · Jul 15th 2022

I just create a lua file testecq.lua with:

Code

a=DicomObject:new()
a.QueryRetrieveLevel='IMAGE'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
a["9999,0800"]=''
a["9999,0801"]=''
b=dicomquery('CONQUESTSRV1', 'IMAGE', a)


for i=0, #b-1 do
  print(b[i].StudyInstanceUID, b["9999,0800"], b["9999,0801"])
end

Display More

When I execute I get no results. What am I missing here?

Code

F:\Programas\AppProg\dicomserver150c>dgate64.exe --dofile:testcq.lua
There is no response to console

I also tried something as next into 'testcq.lua' without success:

Code

function remotequery(ae, level, q)
local remotecode =
[[
local ae=']]..ae..[[';
local level=']]..level..[[';
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();
local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();
]]
local f = loadstring('return '..servercommand('lua:'..remotecode));
if f then return f() end
end




a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
b=remotequery('CONQUESTSRV1', 'STUDY', a)
for i=0, #b-1 do
print(b[i].StudyInstanceUID, b["9999,0800"], b["9999,0801"])
end

Display More

marcelvanherk · Jul 15th 2022

Hi,

This runs lua in this dgate - prints to console but no access to server resources

dgate64 "--dolua:print(1)"

This runs lua in this server - prints to server status

dgate64 "--lua:print(1)"

My example prints to console from server:

dgate64 "--lua:q=DicomObject:new();q.PatientID=[[106019]];q.StudyInstanceUID=[[]];a=dicomquery([[CONQUESTSRV1]], [[STUDY]], q); local s=tempfile([[.txt]]) local f=io.open(s, [[wb]]) f:write(a:Serialize(true, true)) returnfile=s f:close();"

so you can put this in a file file.lua and say:

dgate64 "--lua:dofile([[file.lua]])"

file.lua

Code

q=DicomObject:new();
q.PatientID=[[106019]];
q.StudyInstanceUID=[[]]; -- add other items you would like to query like this
a=dicomquery([[CONQUESTSRV1]], [[STUDY]], q); 
local s=tempfile([[.txt]]) 
local f=io.open(s, [[wb]]) 
f:write(a:Serialize(true, true)) 
returnfile=s 
f:close();

Marcel

marcelvanherk · Jul 15th 2022

Your second sample could run:

Code

function remotequery(ae, level, q)

local remotecode =

[[

local ae=']]..ae..[[';

local level=']]..level..[[';

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();

local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();

]]

local f = loadstring('return '..servercommand('lua:'..remotecode));

if f then return f() end

end









a=DicomObject:new()

a.QueryRetrieveLevel='STUDY'

a.StudyInstanceUID=''

a.StudyDate='19000101-20221231'

b=remotequery('CONQUESTSRV1', 'STUDY', a)

for i=0, #b-1 do

print(b[i].StudyInstanceUID, b["9999,0800"], b["9999,0801"])

end

Display More

If you run it with dgate64 "--dolua:dofile([[testcq.lua]])". However elements like 9999,0800 are defined at the image level, so this requires an image query.

jweste · Jul 15th 2022

Quote from marcelvanherk

Your second sample could run:

Code

function remotequery(ae, level, q)

local remotecode =

[[

local ae=']]..ae..[[';

local level=']]..level..[[';

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();

local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();

]]

local f = loadstring('return '..servercommand('lua:'..remotecode));

if f then return f() end

end









a=DicomObject:new()

a.QueryRetrieveLevel='STUDY'

a.StudyInstanceUID=''

a.StudyDate='19000101-20221231'

b=remotequery('CONQUESTSRV1', 'STUDY', a)

for i=0, #b-1 do

print(b[i].StudyInstanceUID, b["9999,0800"], b["9999,0801"])

end

Display More

If you run it with dgate64 "--dolua:dofile([[testcq.lua]])". However elements like 9999,0800 are defined at the image level, so this requires an image query.

Hi, Marcel

Sorry, but I still have an error.

Another question:: How can I know the name of all columns(fields) returning from dicomquery before?

I searched in the docs, but I didn´t find.

To make a loop to print the result, I need to know that column names.

Code

function remotequery(ae, level, q)
local remotecode =
[[
local ae=']]..ae..[[';
local level=']]..level..[[';
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();
local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();
]]
local f = loadstring('return '..servercommand('lua:'..remotecode));
if f then return f() end
end


function mc(fff)
return fff or ''
end;


a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
b=remotequery('CONQUESTSRV1', 'STUDY', a)
for i=0, #b-1 do
 print(mc(b[i].StudyInstanceUID))
end

Display More

I get an error:

Code

F:\Programas\AppProg\dicomserver150c>dgate64 "--dolua:dofile([[testecq.lua]])"
*** lua run error testecq.lua:25: attempt to index field '?' (a nil value) in 'dofile([[testecq.lua]])'

marcelvanherk · Jul 15th 2022

Please run again, the error message cannot come from your code as line 25 has no indexation.

dicomquery returns all the fields that you ask for.

marcelvanherk · Jul 15th 2022

If you change line 8 to:

Code

local r = dicomquery(ae, level, q2):Serialize(true, true);

you should get json data.

Marcel

jweste · Jul 15th 2022

Quote from marcelvanherk
If you change line 8 to:
Code
local r = dicomquery(ae, level, q2):Serialize(true, true);
you should get json data.

Marcel

Hi, Marcel

This is the lua script as you said:

Code

function remotequery(ae, level, q)
local remotecode =
[[
local ae=']]..ae..[[';
local level=']]..level..[[';
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);
local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();
]]
local f = loadstring('return '..servercommand('lua:'..remotecode));
if f then return f() end
end


function mc(fff)
return fff or ''
end;


a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
b=remotequery('CONQUESTSRV1', 'STUDY', a)
for i=0, #b-1 do
print(b[i].StudyInstanceUID)
end

Display More

When I run, I get now a new error:

Code

F:\Programas\AppProg\dicomserver150c>dgate64 "--dolua:dofile([[testecq.lua]])"
*** lua run error testecq.lua:24: attempt to get length of global 'b' (a nil value) in 'dofile([[testecq.lua]])'

marcelvanherk · Jul 15th 2022

change line 12 into

return f

and the last line 26-28 into

print(b)

Marcel

jweste · Jul 15th 2022

Quote from marcelvanherk

change line 12 into

return f

and the last line 26-28 into

print(b)

Marcel

Display More

I did it. Still no dataset results.

F:\Programas\AppProg\dicomserver150c>dgate64 "--dolua:dofile([[testecq.lua]])"

nil

marcelvanherk · Jul 15th 2022

That means the query is not executed. What appears in the conquest log?

marcelvanherk · Jul 15th 2022

is CONQUESTSRV1 right?

jweste · Jul 15th 2022

Quote from marcelvanherk

is CONQUESTSRV1 right?

Yes, It its.

Here is the conquest logs when after I run the command:

Code

....
.....
[CONQUESTSRV1] C-Echo
[CONQUESTSRV1] UPACS THREAD 235: ENDED AT: Fri Jul 15 10:49:28 2022
[CONQUESTSRV1] UPACS THREAD 235: TOTAL RUNNING TIME: 0 SECONDS
[CONQUESTSRV1] Server command sent using DGATE -- option
[CONQUESTSRV1] Server command sent using DGATE -- option
[CONQUESTSRV1]
[CONQUESTSRV1] UPACS THREAD 240: STARTED AT: Fri Jul 15 11:04:35 2022
[CONQUESTSRV1] A-ASSOCIATE-RQ Packet Dump
[CONQUESTSRV1]  Calling Application Title : "CONQUESTSRV1    "
[CONQUESTSRV1]  Called Application Title : "CONQUESTSRV1    "
[CONQUESTSRV1]  Application Context : "1.2.840.10008.3.1.1.1", PDU length: 32768
[CONQUESTSRV1]  Number of Proposed Presentation Contexts: 1
[CONQUESTSRV1]  Presentation Context 0 "1.2.840.10008.5.1.4.1.2.2.1" 1
[CONQUESTSRV1] Server Command   := 0020
[CONQUESTSRV1] Message ID       := 16e3
[CONQUESTSRV1] (StudyRootQuery) search level: STUDY
[CONQUESTSRV1] Query On Study
[CONQUESTSRV1] Queried item 0008 0060 is not in the database
[CONQUESTSRV1] Issue Query on Columns: DICOMStudies.StudyDate, DICOMStudies.StudyDescr, DICOMStudies.StudyInsta
[CONQUESTSRV1] Values: DICOMStudies.StudyDate >= '19000101' and DICOMStudies.StudyDate <= '20221231'
[CONQUESTSRV1] Tables: DICOMStudies
[CONQUESTSRV1] Sorting ((null)) DoSort := 0
[CONQUESTSRV1] Records = 7
[CONQUESTSRV1] C-Find (StudyRoot) located 7 records
[CONQUESTSRV1] UPACS THREAD 240: ENDED AT: Fri Jul 15 11:04:35 2022
[CONQUESTSRV1] UPACS THREAD 240: TOTAL RUNNING TIME: 0 SECONDS

Display More

marcelvanherk · Jul 15th 2022

post the current code?

jweste · Jul 15th 2022

Quote from marcelvanherk

post the current code?

Here is:

Code

function remotequery(ae, level, q)
local remotecode =
[[
local ae=']]..ae..[[';
local level=']]..level..[[';
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);
local s=tempfile('txt') local f=io.open(s, "wb") f:write(r) returnfile=s f:close();
]]
local f = loadstring('return '..servercommand('lua:'..remotecode));
return f
-- if f then return f() end
end;




a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
b=remotequery('CONQUESTSRV1', 'STUDY', a)
print(b)
-- for i=0, #b-1 do
-- print(b[i].StudyInstanceUID)
-- end

Display More

marcelvanherk · Jul 15th 2022

This works!

Code

function remotequery(ae, level, q)
local remotecode =
[[
local ae=']]..ae..[[';
local level=']]..level..[[';
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);
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;


a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
a.StudyDate='19000101-20221231'
b=remotequery('CONQUESTSRV1', 'STUDY', a)
io.write(b)

Display More

marcelvanherk · Jul 15th 2022

f is a json string. do not use print as it crashes over ~1000 characters

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