sort -t^ -k6 tmp/tunic -o tmp/tunic
awk -F^ '
{ split($7,par,"+") }
{
pac[par[2]]++
paci[par[2]]=$5
pacp[par[2]"^"par[4]]++
print par[2]"^"$6"^"$7 >"tmp/REPREP"
}
END {
for (i in pac) { printf "%s^",paci[i]
for (j =1;j<8;j++) printf "%3d^",pacp[i"^"sprintf("%.2d",j)]
printf "%4d^%s\n",pac[i],i
}



} ' tmp/tunic >tmp/REPRPP
sort tmp/REPRPP -o tmp/REPRPP
sort tmp/REPREP -o tmp/REPREP

exit
087384^2024-08-02 22:59:07 ^Enfermera    ^Carla Valdes                            ^HAROLDO COFRE                           ^2024-08-01^18.663.968-5+00742+2024-08-01+02+01+21+C+1   ^GESMED                   ^
