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";
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";
Exporting examination codes from Siemens Syngo RIS
