Mercurial > hg > orthanc
view OrthancServer/Resources/Samples/Lua/ClassifyUsingAet.lua @ 5925:9704181280c6 find-refactoring
static linking against SQLite on macOS: reverted changeset 3a5b8ed2d859
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Mon, 16 Dec 2024 14:31:04 +0100 |
parents | cbf9afa17415 |
children |
line wrap: on
line source
-- Write the received DICOM instances to an external directory, and -- group the patients by the source AET that has sent the DICOM -- files. This sample is similar to "WriteToDisk.lua". -- https://groups.google.com/g/orthanc-users/c/7RU1EVi9VYY/m/tBdvkeI1AAAJ TARGET = '/tmp/lua' function ToAscii(s) -- http://www.lua.org/manual/5.1/manual.html#pdf-string.gsub -- https://groups.google.com/d/msg/orthanc-users/qMLgkEmwwPI/6jRpCrlgBwAJ return s:gsub('[^a-zA-Z0-9-/-: ]', '_') end function GetFromTable(t, key, defaultValue) local result = t[key] if result == nil or result == '' then return defaultValue else return result end end function OnStoredInstance(instanceId, tags, metadata, origin) local dicom = RestApiGet('/instances/' .. instanceId .. '/file') local tags = ParseJson(RestApiGet('/instances/' .. instanceId .. '/tags?simplify')) local metadata = ParseJson(RestApiGet('/instances/' .. instanceId .. '/metadata?expand')) local path = ToAscii(TARGET .. '/' .. GetFromTable(metadata, 'RemoteAET', 'None') .. '/'.. GetFromTable(tags, 'StudyDate', '') .. '/' .. GetFromTable(tags, 'PatientID', '') .. ' - ' .. GetFromTable(tags, 'PatientName', '') .. ' - ' .. GetFromTable(tags, 'StudyDescription', '') .. '/' .. GetFromTable(tags, 'Modality', '') .. ' - ' .. GetFromTable(tags, 'SeriesDescription', '')) -- Create the subdirectory (CAUTION: For Linux demo only, this is insecure!) -- http://stackoverflow.com/a/16029744/881731 os.execute('mkdir -p "' .. path .. '"') -- Write to the file local target = assert(io.open(path .. '/' .. GetFromTable(tags, 'SOPInstanceUID', 'none') .. '.dcm', 'wb')) target:write(dicom) target:close() -- Optional step: Remove the DICOM instance from Orthanc RestApiDelete('/instances/' .. instanceId) end