cd ..
paci1=./IMP/paci1
./appl/sh/paci1  | awk -F"^" ' { print $1";"trail($2)";"trail($3) }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) } '  | sort -u > $paci1
cd IMP
paci1=./paci1
# |  7 H06 comuna 20 00 188 | 8 H07 ciudad 20 00 208 | 9 H08 sexoss 09 50 228 |
# | 10 H09 nacimt 10 00 237 |11 H10 contac 40 00 247 |12 H11 telefo 40 00 287 |
# | 13 H12 tcelul 40 00 327 |14 H13 correo 50 00 367 |15 H14 actges 10 00 417 |
# | 16 H15 renova 10 00 427 |17 H16 diagno 80 00 437 |18 H17 observ 512 13 517 |
# | 19 H18 isapre 02 51 1029 |20 H19 fechat 10 00 1031 |21 H20 status 02 53 1041 |

# 22 D00 presta  2   54 | 23 D01 modali  2   52 | 24 D02 topes   2   01 | 
# 25 D03 di      2   00 | 26 D04 di      2   00 | 27 D05 di      2   00 | 
# 28 D06 di      2   00 | 29 D07 di      2   00 | 30 D08 di      2   00 | 
# 31 D09 di      2   00 | 32 D10 di      2   00 | 33 D11 di      2   00 | 
# 34 D12 di      2   00 | 35 D13 di      2   00 | 36 D14 di      2   00 | 
# 37 D15 di      2   00 | 38 D16 di      2   00 | 39 D17 di      2   00 | 
# 40 D18 di      2   00 | 41 D19 di      2   00 | 42 D20 di      2   00 | 
# 43 D21 di      2   00 | 44 D22 di      2   00 | 45 D23 di      2   00 | 
# 46 D24 di      2   00 | 47 D25 di      2   00 | 48 D26 di      2   00 | 
# 49 D27 di      2   00 | 50 D28 di      2   00 | 51 D29 di      2   00 | 
# 52 D30 di      2   00 | 53 D31 di      2   00 | 54 D32 di      2   00 | 
# 55 D33 total   1   01 | 
cat "Oncovida PAGO 2019-1-28.csv" | ./etoa >PG1
cat "Oncovida PAGO 2019-2-25.csv" | ./etoa >PG2
awk -F";" '
FILENAME == ARGV[1] { pac[$2]=$1"^"$3 ;next  } 
FILENAME == ARGV[2] { rrt[$2]=$1"^"$3 ;next  } 
function f1(f) { return substr(f,9)"/"substr(f,6,2)"/"substr(f,1,4) }
function rut(rt)
{
	if(length(rt)==9) return substr(rt,1,1)"."substr(rt,2,3)"."substr(rt,5)
else return substr(rt,1,2)"."substr(rt,3,3)"."substr(rt,6)
} 
$1+0 {
	

tr=rut($1)
 if(pac[tr]!="")
{
printf "%s^",pac[tr]
printf "%s",tr
 if(rrt[$4]!="") printf "%s^",rrt[4]
#printf "%s^",$4
printf "%s^",$9
#printf "%s^",$3
printf "%s^",f1($6)
printf "%s^",f1($7)
printf "%s^",f1($8)
printf "%s^",$9
printf "%s^",$10
printf "%s^",$11
printf "%s^",FNR,FILENAME
print "" 
}
else print "MALO  "tr,$2
} ' $paci1 RRT PG

exit

IDPACIENTE;NOMBRE PACIENTE;PREVISION;NOMBRE ǍTEM;ID PROGRAMA;FECHA PRESTACION;VIGENCIA DESDE;VIGENCIA HASTA;VALOR;PRESTADOR;RUT PRESTADOR;EMPRESA;RUT EMPRESA
4179099-7;JOSE LAGOS MERINO;DIPRECA;Visita a domicilio por enfermera, matrona o nutricionista;153934;2018-12-11;2018-12-10;2019-01-09;$ 28.171;Sandra Nicole MaulUn Angel;6621429-7;SERVICIOS MEDICOS DE TELEMEDICINA Y TELERADIOLOGIA SPA;76.713.857-1
4179099-7;JOSE LAGOS MERINO;DIPRECA;Visita a domicilio por enfermera, matrona o nutricionista;153934;2018-12-14;2018-12-10;2019-01-09;$ 28.171;Sandra Nicole MaulUn Angel;6621429-7;SERVICIOS MEDICOS DE TELEMEDICINA Y TELERADIOLOGIA SPA;76.713.857-1
4179099-7;JOSE LAGOS MERINO;DIPRECA;Visita a domicilio por enfermera, matrona o nutricionista;153934;2018-12-20;2018-12-10;2019-01-09;$ 28.171;Sandra Nicole MaulUn Angel;6621429-7;SERVICIOS MEDICOS DE TELEMEDICINA Y TELERADIOLOGIA SPA;76.713.857-1
4179099-7;JOSE LAGOS MERINO;DIPRECA;Visita a domicilio por enfermera, matrona o nutricionista;153934;2018-12-27;2018-12-10;2019-01-09;$ 28.171;Sandra Nicole MaulUn Angel;6621429-7;SERVICIOS MEDICOS DE TELEMEDICINA Y TELERADIOLOGIA SPA;76.713.857-1
