set 2025
CERRAG=tmp/CERRAG
REPEMIT=tmp/REPEMIT
rpz=tmp/rpz
pcc=tmp/pcc
agecc=tmp/agecc
prest=tmp/prest
ihmq pacie h00^ d00^ d01^ |awk -F^ ' ant!=$1 { j=0; ant=$1}
{
printf "%s%.2d^%s\n",$1,j++,$2
} ' > $prest
ls RPZ > $rpz
ihmq pacie h00^ h01^ h02^ h04^ h22^| awk -F^ ' BEGIN { cli["01"]="GESMED";cli["03"]="ISALUD"}
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{ print $1"^"trail($2)"^"trail($4)" "trail($3)"^"cli[trail($5)] } ' | sort -u >$pcc
#ihmq agend h01^ h02^$2/$1 h03^ H04^ h05^$2/$1 h06^C h00^ h08^ h07^> $agecc
ihmq agend h01^ h02^ h03^ H04^ h05^ h06^C h00^ h08^ h07^> $agecc
profs=./tmp/profs
appl/sh/profs > $profs

awk -F^ '
FILENAME == ARGV[1] { prest[$1]=$2 ; next }
FILENAME==ARGV[2] { rpac[$1]=$2;pac[$1]=trail($3);cli[$1]=$4;next }
FILENAME==ARGV[3] { prfs[$1]=trail($2);next }
FILENAME==ARGV[4] { rpz[$1]=1 ; next }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }

#substr($5,7)substr($5,4,2) < 202406 { next }
{
pacc=substr($1,1,5)
prof=substr($4,1,12)
prst=substr($3,1,2)
datt=substr($5,7)"-"substr($5,4,2)"-"substr($5,1,2)

valo=prest[sprintf("%s%2.2s",pacc,$3)]
rppz=prof""rpac[pacc]""datt""prst
#print "PREST="$3,substr($3,1,2),prfs[substr($3,1,2)],valo
#printf "%s^%s^%s^%s^%s^%s^\n",$7,trail($9),prfs[valo],trail($8),pac[pacc],datt >"tmp/repem"
printf "%s%-20.20s%-14.14s%-40.40s%-40.40s%10.10s",$7,trail($9),prfs[valo],trail($8),pac[pacc],datt >"data/reportesemitidos/HEAD"


printf "%-45s%-25s\n",sprintf("%12.12s+%5.5s+%s+%2.2s+%2.2s+21+C+%d",$4,$1,datt,valo,$3,rpz[rppz]),cli[pacc] > "data/reportesemitidos/HEAD"
} END {
printf "%5d%6d",FNR,0 >"data/reportesemitidos/INFO"
} ' $prest $pcc $profs $rpz $agecc
