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/perlopen 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";
