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"}]
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"}]
Thank you, I just sent you a new email with informations to use and test the API
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
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"}]
How could I get more informations of the study with lua script, such as StudyDate,StudyModal,PatientNam,PatientID,StudyInsta,PatientBir ?
I just create a lua file testecq.lua with:
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"])
endWhen I execute I get no results. What am I missing here?
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:
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"])
endHi,
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
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
Your second sample could run:
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"])
endIf 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.
Your second sample could run:
Codefunction 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"]) endIf 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.
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))
endI get an error:
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.
Hi, Marcel
This is the lua script as you said:
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)
endWhen I run, I get now a new error:
change line 12 into
return f
and the last line 26-28 into
print(b)
Marcel
change line 12 into
return f
and the last line 26-28 into
print(b)
Marcel
I did it. Still no dataset results.
F:\Programas\AppProg\dicomserver150c>dgate64 "--dolua:dofile([[testecq.lua]])"
nil
That means the query is not executed. What appears in the conquest log?
is CONQUESTSRV1 right?
is CONQUESTSRV1 right?
Yes, It its.
Here is the conquest logs when after I run the command:
....
.....
[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 SECONDSpost the current code?
post the current code?
Here is:
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)
-- endThis works!
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)f is a json string. do not use print as it crashes over ~1000 characters
Don’t have an account yet? Register yourself now and be a part of our community!