PER=2022-$1
BIT=$PER/BIT
for i in $PER/B[0123456789]*.txt
do
awk ' { print substr($0,1,length-1) } ' $i | 
awk -F"	" ' BEGIN { t=0 }
/Buscar/ { t=1; next }
t==0 {next }
/Mostrando/ { exit }
$1+0 >0 {t=2 }
t==1 {
#for(i=1;i<=NF;i++) printf "%s^",$i
z+=NF
next
}
t==2 { if(substr($1,1,7)+0>9000+0) {rr=0 ;print ""
#printf "\n%s:%5d-!!!!-%10.10s  $1=%s ES MAYOR A 10000-!!!!--",FILENAME,NR,$1,substr($1,1,7)
}
#print NF,$NF 
rr +=NF

if(NF==0) {next }
if(NF!=2) {ant1=ant;nf1=nf0}
if(NF!=2) {ant=$0;nf0=NF}
#if(NF==2) {print  ant1; print ant; print NF,$0 ; next }
if(NF==2) {printf " %s^",$1 ; next }
if($NF=="enfermera" || $NF=="psicologo" || $NF=="kinesiologo" || $NF=="nutricionista" ) {
for(i=1;i<NF;i++)
{
	for(i=1;i<=NF;i++) printf "^%s",$i
}
next
}
if(NF==1) { printf " %s",$0; next}
#if(NF==0) { printf "	" rr;}
#if (NF==1 && rr=1) printf "TXT:%s ",$0
#printf "\nNF=%d - %s-- r=%d///\n",NF,$0,r
#if(rr!=1)
#if(NF==2 && r==13)  printf " %s",$1
if(substr($0,1,1)=="	")
for(i=1;i<NF;i++)
{
	#printf "****"
	for(i=2;i<=NF;i++) printf "^%s",$i
}
else for(i=1;i<=NF;i++) printf "^%s",$i
rr=0
}
END {
print ""
}



 ' 
done >$BIT
