Exporting examination codes from Siemens Syngo RIS

View my short perl script to create a list of examinations codes from a Siemens Syngo RIS.

First create an export of the examination tree. Usually this file ends with .tre.

They you can apply this script to that file and you receive a list of all examination codes.

Use at your own risk!

Here you are:

get_exam_code.pl

#!/usr/bin/perl

open IN, "<$ARGV[0]" || die; while ($data=){
while ($data=~s/[\w \d\xe4\xf6\xfc].\x00([\w \d\xe4\xf6\xfc]{1,})// ){
print "$1\n";
$hits++
}
}

close IN;

print "Hits: $hits\n";