#rm tmpN/*
#
 BASE=`pwd`
APPLDIR=$BASE/appl
DATADIR=$BASE/data
PATH=$PATH:$BASE/ihd/bin:.
TZ=America/Santiago
export PATH APPLDIR DATADIR TZ
REMOTE_USER=ralkaraz
export REMOTE_USER
./pac3 01/01/2024 31/12/2024 >/dev/null
cmes=`date +%m`
PAC=tmp/PAC
./appl/sh/agend >tmp/agend
./appl/sh/pacie | awk -F^ ' 
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
$1!= ant {
printf "%s^%s^%s\n",$1,trail($5)" "trail($3),trail(substr($7,index($7,"|")+1))
ant=$1
x=0
}
{
printf "%s%.2d^%s\n",$1,x++,$24 >"tmp/idxp"
}  ' >$PAC
PRF=tmp/PRF
./appl/sh/perso | awk -F^ '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(tx)e-1); return (txt) }
{
printf "%s^%s^%s^%s\n",trail($1),trail($2),substr($11,1,2),trail(substr($11,4))
} ' >$PRF

awk -F^ ' BEGIN {
pre["01"]="Mdico"
pre["02"]="Enfermera"
pre["03"]="Kinesiologa"
pre["04"]="Psicologa"
pre["05"]="Nutricionista"
pre["06"]="TENS"
pre["07"]="Curaciones"
}
BEGIN { inic="20240101";fini="20241231" }
FILENAME==ARGV[1] { pac[$1]=$2"^"$3;next}
FILENAME==ARGV[2] { prf[$1]=$2;pro[$1]=$4;codp[$1]=$3;next}
function fec (rr) { return substr(rr,7)""substr(rr,4,2)""substr(rr,1,2)}
FILENAME==ARGV[3] { prt[$1]=$2;next }
FILENAME==ARGV[4] {
ff=fec($6)
if(ff<inic || ff > fini || $7!="C") next
cdp=substr($5,1,index($5,"|")-1)
codi=sprintf("%5.5s",$2)""substr($4,1,2)
#cier[ff""sprintf("%5.5s",$2)""$4]=1
cie[ff""sprintf("%5.5s",$2)""$4]=sprintf ("%5.5s^%s^%s^%s^%s^1^%s",$2,pac[substr($2,1,5)],pre[prt[codi]],prt[codi],$4,$5)
prr[codi]=$5
#081069^00740|TELLO               ^01/01/2024^0006^27.369.491-9|Marbrig Lopez       ^04/01/2024^C
#20240104^00740^CARMEN TELLO^Ovalle^Kinesilogo^03^0206^1"

#00740^CARMEN TELLO^Ovalle^Mdico^01^0006^1"
#00731^JUAN FLORES^00206|Punta Arenas^Curaciones^07^Domicilio^31^0603^01/01/2024^01/01/2024^31/01/2024
next
}
{
r=fec($10)
z=r""substr($1,1,5)""$8
y[z]=$1"^"$2"^"substr($3,index($3,"|")+1)"^"$4"^"$5"^"$8"^^"prr[substr($1,1,5)""substr($8,1,2)]
#print "r="r" z="z" y="y[z]" cier="cie[z] 
}
END {
for (i in prr) print i"^"prr[i] >"tmp/prr"
for (i in cie) print i"^"cie[i] >"tmp/cie"
for (i in y) y[i]=y[i]

for (i in cie) y[i]=cie[i]
#for (i in cie) if(y[i]=="") y[i]=cie[i]
#else y[i]=y[i]"1"
for (i in y)
	printf "%8.8s^%s\n",i,y[i] 
}
' $PAC $PRF tmp/idxp tmp/agend tmp/D1 | sort -t^ -k3 | tee tmp/AGV |

awk -F^ ' BEGIN {
print "var agend = new Array()"
print "var iagend = new Array()"
}
{
        printf "agend[\"%8.8s%d\"]=\"%s\"\n",$1,x[$1]++,substr($0,10)
}
END {
for (i in x) printf "iagend[\"%s\"]=\"%s\"\n",i,x[i]
} ' - > ../js/version.js
awk -F^ '
{
	personal=substr($9,1,index($9,"|")-1)
	if(personal=="")
	{	 
		#print $1"-"personal"-"q[$1""personal]+0
		personal=1
		#print $1"-"personal"-"q[$1""personal]+0
		#print ""
	}
	if (qq[personal]+0 ==0) { print "var agend = new Array()\nvar iagend = new Array()" >"tmp1/"personal
qq[personal]=1 }
	printf "agend[\"%8.8s%d\"]=\"%s\"\n",$1,q[$1""personal]++,substr($0,10) >"tmp1/"personal
}
END {
dm[1]=32
dm[2]=30
dm[3]=32
dm[4]=31
dm[5]=32
dm[6]=31
dm[7]=32
dm[8]=32
dm[9]=31
dm[10]=32
dm[11]=31
dm[12]=32
cmes="'"$cmes"'"+2
if(cmmes >13) cmes=13
for (q0 in qq) for (m=1;m<cmes;m++) for(d=1;d<dm[m];d++) fff[sprintf("%.4d%.2d%.2d",2024,m,d)""q0]=0
for (i in fff) { 
#print "iagend[\""substr(i,1,8)"\"]="q[i],i
if( q[i]) print "iagend[\""substr(i,1,8)"\"]="q[i]>"tmp1/"substr(i,9)
else print "iagend[\""substr(i,1,8)"\"]="fff[i]>"tmp1/"substr(i,9)
}
}
' tmp/AGV
