set 2024 $1
CERRAG=tmp/CERRAG
REPEMIT=tmp/REPEMIT
pcc=tmp/pcc
agecc=tmp/agecc
prest=tmp/prest
ihmq pacie h00^ d00^ d01^ h20^00|awk -F^ ' ant!=$1 { j=0; ant=$1}
{
printf "%s%.2d^%s\n",$1,j++,$2
} ' > $prest
ihmq pacie h00^ h01^ h02^ h04^ | awk -F^ ' 
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{ print $1"^"$2"^"trail($4)" "trail($3) } ' >$pcc
ihmq agend h01^ h02^$2/$1 h03^ H04^ h05^$2/$1 h06^C h00^ h08^|
awk -F^ ' FILENAME==ARGV[1] { pac[$1]=$2;pacn[$1]=substr($3,1,30);next}
{
printf "%12.12s%12.12s%s%2.2s^%s\n",$4,pac[substr($1,1,5)],substr($5,7)"-"substr($5,4,2)"-"substr($5,1,2),$3,$7" "$8" "pacn[substr($1,1,5)]
#printf "%12.12s%12.12s%s%2.2s^%s\n",$4,pac[substr($1,1,5)],substr($5,7)"-"substr($5,4,2)"-"substr($5,1,2),$3,$7" "$8" " substr($4,14)" "pacn[substr($1,1,5)]
} ' $pcc - | sort >$CERRAG
ls RPZ | egrep $1-$2 |sort >$REPEMIT
wc $CERRAG $REPEMIT

awk -F^ ' FILENAME==ARGV[1] { age[$1]=$1; fol[$1]=$2;ag[$1]++}
 FILENAME==ARGV[2] { rep[$0]=$0;rp[$0]++ }
{rrg[$1]++}
END {
for (i in rrg) if(rrg[i]<2) if(rp[i]) printf "RPZ/%s\n",rep[i]
for (i in rrg) if(rrg[i]<2) if(ag[i]) printf "%-40s %s\n",age[i],fol[i]
#for (i in rrg) if(rrg[i]<2) printf "RPZ/%-40s %s %s\n",rep[i],age[i],""
} ' $CERRAG $REPEMIT > tmp/RPPEMIT
cat tmp/RPPEMIT
awk -F= ' BEGIN {
x["00"]="H37"
x["01"]="H43"
x["02"]="H97"
x["03"]="H16"
x["04"]="H18"
x["05"]="H67"
x["06"]="H18"
y["00"]="MEDICINA"
y["01"]="ENFERMERIA"
y["02"]="KINESIOLOGIA"
y["03"]="PSICOLOGIA"
y["04"]="NUTRICIONISTA"
y["05"]="TENS"
y["06"]="CURACIONES"
}
!/RPZ/ { next }

{
file=$0
 xx=substr(file,length-1)
print NR,y[xx]
while ((getline < file )>0)
	if($1=="H00" || $1=="H01" || $1=="H03" || $1=="H08" ) print $2
close(file)
print ""

} ' tmp/RPPEMIT

