#!/bin/ksh
fname=${1:-"P04096.7"}
firstline=${2:-"0"}
exam=${3:-"12345"}
headerprefix=${4:-""}
detailprefix=${5:-""}
#mojoe_dir="/export/home/sdc/mojoe"
mojoe_dir=$MOJOE_DIR
if (test ${#mojoe_dir} -lt 1)
    then
    mojoe_dir=$HOME/mojoe
fi
# capture summary?
if (test $fname = "csummary") then
    billtable=$mojoe_dir/log/billing/mojoe_cbill_$exam.txt
    echo $headerprefix",NumberOfImages" > $billtable
    echo $detailprefix",0" >> $billtable
    exit
fi
billtable=$mojoe_dir/log/billing/mojoe_clist_$exam.txt
prefix=''
if (test ${#headerprefix} -gt 0) then
    prefix=$headerprefix","
fi
headerline=$line"NumberOfImages,PSDName,SeriesNumber,SeriesDescription,Protocol"
if (test $firstline -eq 1) then
    echo $prefix$headerline >> $billtable
fi
#
read_pfile_header=$mojoe_dir/Read_header/read_pfile_header
#
#PSDName="`$read_pfile_header -f $fname | grep "PSD Name" | cut -d'=' -f2`"
PSDName="Unknown"
item="PSD Name"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line | tr ',' ' ' | cut -d'=' -f2`"
    PSDName=$value
fi
#
#let SeriesNumber="`$read_pfile_header -f $fname | grep "Series Number" | cut -d'=' -f2`"
let SeriesNumber=0
item="Series Number"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line | tr -d ' ' | cut -d'=' -f2`"
    case $value in
    +([0-9])) let SeriesNumber=$value
    esac
fi
#
#SeriesDescription="`$read_pfile_header -f $fname | grep "Series Description" | cut -d'=' -f2`"
SeriesDescription="Unknown"
item="Series Description"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line |  tr ',' ' ' | cut -d'=' -f2`"
    SeriesDescription=$value
fi
#
#Protocol="`$read_pfile_header -f $fname | grep "Protocol" | cut -d'=' -f2`"
Protocol="Unknown"
item="Protocol"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line |  tr ',' ' ' | cut -d'=' -f2`"
    Protocol=$value
fi
#
#let ImagingVolumes="`$read_pfile_header -f $fname | grep "Imaging Volumes" | cut -d'=' -f2`"
let ImagingVolumes=0
item="Imaging Volumes"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line |  tr -d ' ' | cut -d'=' -f2`"
    case $value in
    +([0-9])) let ImagingVolumes=$value
    esac
fi
#
#let NumberOfSlices="`$read_pfile_header -f $fname | grep "Number of Slices" | cut -d'=' -f2`"
let NumberOfSlices=0
item="Number of Slices"
line="`$read_pfile_header -f $fname | grep "$item"`"
if (test ${#line} -gt 0) then
    value="`echo $line |  tr -d  ' ' | cut -d'=' -f2`"
    case $value in
    +([0-9])) let NumberOfSlices=$value
    esac
fi
#
let NumberOfImages='ImagingVolumes * NumberOfSlices'
detailline=$NumberOfImages",`echo $PSDName`","$SeriesNumber,"`echo $SeriesDescription`","`echo $Protocol`
if (test ${#detailprefix} -gt 0) then
    echo $detailprefix","$detailline >> $billtable
else
    echo $detailline >> $billtable
fi
