
# |  1 H00 codigo 12 07   0 | 2 H01 identi 40 00  12 | 3 H02 nombre 40 00  52 |
# |  4 H03 patern 40 00  92 | 5 H04 matern 40 00 132 | 6 H05 direcc 40 00 172 |
# |  7 H06 comuna 25 00 212 | 8 H07 ciudad 25 00 237 | 9 H08 correo 40 00 262 |
# | 10 H09 telefo 50 00 302 |11 H10 especi 02 51 352 |12 H11 zonas  03 53 354 |
# | 13 H12 status 02 52 357 |
rm PAC/* 

awk -F"^" ' BEGIN {
pre["E"]="02"
pre["K"]="03"
pre["M"]="01"
pre["N"]="05"
pre["P"]="04"
pre["T"]="06"

}
function rut(x) { return substr(x,1,2)"."substr(x,3,3)"."substr(x,6) } 
{
file="PAC/"NR
xx=split($3,rr," ")
r=toupper(substr(rr[1],1,1))""tolower(substr(rr[1],2))
r=r" "toupper(substr(rr[2],1,1))""tolower(substr(rr[2],2))
r=r" "toupper(substr(rr[3],1,1))""tolower(substr(rr[3],2))
print r, NR
print "H01"r >file
print "H00"rut($2) >file
print "H10"pre[substr($4,1,1)] >file
print "H11"$1 >file
print "H1200 " >file
} ' PPRF
for i in PAC/*
do
../ihd/bin/ihmu perso ../../IMP/$i
done
exit
BASES/01-02-2019-II^16705214-2^Domingo Saavedra ^Kinesilogo
BASES/01-02-2019-II^18.311.979-6^Scarlett Santander^Enfermera
BASES/01-02-2019-II^18013883-8^Catalina Aravena^Enfermera
BASES/01-02-2019-II^18232709-3^Lilian Saavedra ^Psiclogo
BASES/01-02-2019-II^18311979-6^Scarlett Santander^Enfermera
BASES/01-02-2019-II^18502492-K^Claudio Ramirez^Psiclogo
BASES/01-02-2019-II^18793060-K^Yan li Lau^Nutricionista
BASES/01-02-2019-II^25982534-2^Laudely Escalona^Mdico
BASES/01-02-2019-II^26.609.434-5^Carlos Molina^Mdico
BASES/01-02-2019-II^26743483-2^Abdul  Sarria^Mdico
