set 08 2024
reportesemitidos=./tmp/reportesemitidos
ihmq reportesemitidos h00^ h01^ h02^ h03^ h04^ h05^$2-$1 h06^ > $reportesemitidos

awk -F^ ' BEGIN { base="/home3/tamblayo/public_html/xls/tm/" }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{

prst[trail($3)]++
prof[trail($4)]++
profd[trail($4)"^"substr($6,9,2)+0]++
paci[trail($5)]++
dias[trail($6)]++
cier[substr($2,1,10)]++
}
END {
for (i in prst) printf "%s^%d\n",i,prst[i]>base"prst"
for (i in prof) printf "%s^%d\n",i,prof[i]>base"prof"
for (i in prof) {
printf "%s^",i>base"prod"
for (j=1;j<32;j++) printf "%d^",profd[i"^"j]>base"prod"
printf "%d\n",prof[i]>base"prod"
}
for (i in paci) printf "%s^%d\n",i,paci[i]>base"paci"
for (i in dias) printf "%s^%d\n",i,dias[i]>base"dias"
for (i in cier) printf "%s^%d\n",i,cier[i]>base"cier"
} ' $reportesemitidos

base=/home3/tamblayo/public_html/xls/tm/
sort -t^ -k2 -nr $base/prst -o $base/prst
sort -t^ -k2 -nr $base/prof -o $base/prof
sort -t^ -k2 -nr $base/paci -o $base/paci
sort $base/prod -o $base/prod
sort $base/dias -o $base/dias
sort $base/cier -o $base/cier
exit



086148^2024-07-01 08:23:52 ^Medicina      ^Omar Ugarte                             ^HUGO YAEGER                             ^2024-06-29^27.088.231-5+00728+2024-06-29+01+00+21+C+1   ^
086149^2024-07-01 08:26:52 ^Enfermera    ^Barbara Rojas                           ^ROSA ABARCA                             ^2024-06-28^19.679.119-1+00805+2024-06-28+02+01+21+C+1   ^
086150^2024-07-01 08:38:08 ^Medicina      ^Omar Ugarte                             ^MARIA MAGDALENA GUTIERREZ               ^2024-06-29^27.088.231-5+00737+2024-06-29+01+00+21+C+1   ^
086152^2024-07-01 09:23:53 ^Medicina      ^Alexandra Figueroa                      ^ROSA ABARCA                             ^2024-06-29^25.743.976-3+00805+2024-06-29+01+00+21+C+1   ^
086154^2024-07-01 12:54:20 ^Medicina      ^Karelia Hernandez                       ^CARLOS FUENTES                          ^2024-07-01^26.324.373-0+00732+2024-07-01+01+00+21+C+1   ^
086155^2024-07-01 13:04:51 ^Medicina      ^Andrea Parrales                         ^RODRIGO AGUILAR                         ^2024-06-24^25.564.001-1+00787+2024-06-24+01+00+21+C+1   ^
086156^2024-07-01 13:04:53 ^Medicina      ^Andrea Parrales                         ^ANA MARIA ROJAS                         ^2024-06-26^25.564.001-1+00859+2024-06-26+01+00+21+C+1   ^
086157^2024-07-01 13:04:55 ^Medicina      ^Andrea Parrales                         ^JORGE CEPEDA                            ^2024-06-26^25.564.001-1+00853+2024-06-26+01+00+21+C+1   ^
086158^2024-07-01 13:04:56 ^Medicina      ^Andrea Parrales                         ^LINA ROJAS                              ^2024-06-26^25.564.001-1+00835+2024-06-26+01+00+21+C+1   ^
086159^2024-07-01 13:04:58 ^Medicina      ^Andrea Parrales                         ^SILVIA ITURRIETA                        ^2024-06-26^25.564.001-1+00799+2024-06-26+01+00+21+C+1   ^

# |  1 H00 registr 006 000   0 | 2 H01 fechaci 020 000   6 | 3 H02 prestac 014 000  26 | 4 H03 profesi 040 000  40 | 5 H04 pacient 040 000  80 |
# |  6 H05 fechare 010 009 120 | 7 H06 paramet 045 000 130 |

