#!/usr/bin/ksh
#imagedir="/export/home1/sdc_image_pool/images"
imagedir=$MOJOE_POOL
if (test ${#imagedir} -lt 1)
    then
    imagedir="/export/home1/sdc_image_pool/images"
fi
#mojoe_dir="/export/home/sdc/mojoe"
mojoe_dir=$MOJOE_DIR
if (test ${#mojoe_dir} -lt 1)
    then
    mojoe_dir=$HOME/mojoe
fi
#
set -A argv "$@"
exam=$1
temp_output=$mojoe_dir/temp$$.txt
print "order sourcepath exam series image newfilename" > $temp_output
let k=1
while (( $k < $# )); do
    series=${argv[k]}
    pattern=`echo $exam $series | awk '{printf "%05ld  %04ld", $1, $2}'`
    lineno=`cut -c1-11 < $mojoe_dir/dicom_serieslist | grep -n "$pattern" | cut -f1 -d':'`
    lines=$lineno","$lineno"p"
    dir=`cat $mojoe_dir/dicom_serieslist | sed -n $lines | cut -c61- | tr -d ' '` 
    $mojoe_dir/dicom/pat3 $imagedir $dir $exam $series  | sort -n >> $temp_output
    let k=k+1
done
sort -n < $temp_output > $mojoe_dir/tempfile.txt
rm -rf $temp_output
