infrep=./tmp/infrep
pacie=./tmp/pacie
ihmq pacie h00^ h01^ >$pacie
{
ihmq reporte01 h00^ h02^ h04^ h03^ h01^ h08^ h36^ h37^ | awk ' { printf "01^%s\n",$0 } ' 
ihmq reporte02 h00^ h02^ h04^ h03^ h01^ h08^ h42^ h43^ | awk ' { printf "02^%s\n",$0 } ' 
ihmq reporte03 h00^ h02^ h04^ h03^ h01^ h08^ h97^ h97^ | awk ' { printf "03^%s\n",$0 } ' 
ihmq reporte04 h00^ h02^ h04^ h03^ h01^ h08^ h15^ h16^ | awk ' { printf "04^%s\n",$0 } ' 
ihmq reporte05 h00^ h02^ h04^ h03^ h01^ h08^ h17^ h18^ | awk ' { printf "05^%s\n",$0 } ' 
ihmq reporte06 h00^ h02^ h04^ h03^ h01^ h08^ h66^ h67^ | awk ' { printf "06^%s\n",$0 } ' 
ihmq reporte07 h00^ h02^ h04^ h03^ h01^ h08^ h17^ h18^ | awk ' { printf "07^%s\n",$0 } ' 
} | tee $infrep.b |
awk -F^ '
FILENAME==ARGV[1] { pac[trail($2)]=$1; next }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{
for (i=1;i<NF;i++) if(i==4) printf "%s^",pac[trail($i)]
else printf "%s^",trail($i)
print ""
x[$1]++
}
END {
#for (i=1;i<8;i++) printf "%.2d:%5d\n",i,x[sprintf("%.2d",i)]

} ' $pacie - | sort -t^ -k5,5 -k7,7 -k1,1 >$infrep

awk -F^ ' { printf "%s+%s+%s+%s+%.2d+21+C^%s\n",$3,$4,$7,$1,$1-1,"",$0

} ' $infrep

