pacie=tmp/pacie
D1=tmp/D1
awk -F^ ' FILENAME==ARGV[1]  {if(rutp[$1]=="") rutp[$1]=$2 ;next}
function sacap(xx){
rr=""
while(xx!="") {
if (substr(xx,1,1)!=".")
rr=rr""substr(xx,1,1) 
xx=substr(xx,2)

}
return rr
}
FILENAME==ARGV[2] {
printf "%s^",rutp[$1] 
printf "%4s-%.2d-%.2d^",substr($10,7),substr($10,4),$10
printf "%2.2s^",$8

print ""
}
' $pacie $D1
exit
00375^MARCELO ESPINOZA^00337|Machal&iacute;^Enfermera^02^Domicilio^1 ^0116^06/11/2021^19/11/2021
00387^MARIA SIMPSON^00053|Concepcin^Mdico^01^Domicilio^3 ^0011^09/11/2021^17/11/2021
00387^MARIA SIMPSON^00053|Concepcin^Mdico^01^Domicilio^3 ^0025^09/11/2021^01/12/2021
00387^MARIA SIMPSON^00053|Concepcin^Mdico^01^Domicilio^3 ^0033^09/11/2021^09/12/2021
00387^MARIA SIMPSON^00053|Concepcin^Mdico^01^Domicilio^3 ^0039^09/11/2021^15/12/2021
00387^MARIA SIMPSON^00053|Concepcin^Enfermera^02^Domicilio^3 ^0120^09/11/2021^26/11/2021
00387^MARIA SIMPSON^00053|Concepcin^Enfermera^02^Domicilio^3 ^0127^09/11/2021^03/12/2021
00387^MARIA SIMPSON^00053|Concepcin^Enfermera^02^Domicilio^3 ^0134^09/11/2021^10/12/2021
00387^MARIA SIMPSON^00053|Concepcin^Kinesilogo^03^Domicilio^3 ^0220^09/11/2021^26/11/2021
00387^MARIA SIMPSON^00053|Concepcin^Kinesilogo^03^Domicilio^3 ^0233^09/11/2021^09/12/2021
