pacie=./tmp/pacie
rm IMP/*
cd ..
./appl/sh/pacie | awk -F^ ' FILENAME==ARGV[1] { x[trail($2)]=$1 ;next }
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
function pun(pp) { return substr(pp,1,2)"."substr(pp,3,3)"."substr(pp,6) }
{
	file=sprintf("TM-A/IMP/F%.3d",FNR)
	print "H01"x[pun($4)] >file
	print "H02"$1 >file
	print "H03"$2 >file
	print "H04"pun($3) >file
	print "H05"$5 >file
	print "H06C" >file
	print "H072022-02-25 20:30:36" >file
	print "H08ralkaraz" >file
	print "H09  " >file
	print file
} ' - TM-A/AGR

cd TM-A

for i in IMP/*
do
../ihd/bin/ihmu agend ../../TM-A/$i -N1
done
exit



exit
25/11/2021;0110;12602780-k;13072615-1;07/12/2021
30/11/2021;0110;13506141-7;09311734-4;31/12/2021
06/12/2021;0110;13983324-4;05264102-0;26/12/2021
06/12/2021;0110;13983324-4;05264102-0;31/12/2021
03/12/2021;0110;19016674-0;06052840-3;30/12/2021
05/12/2021;0110;17200563-2;06033227-4;28/12/2021
17/11/2021;0110;15736311-5;12425498-1;01/12/2021
17/11/2021;0110;15736311-5;12425498-1;08/12/2021
17/11/2021;0110;15736311-5;12425498-1;13/12/2021
07/11/2021;0110;14398431-1;07081329-7;02/12/2021
# |  1 H00 indice 05 15   0 | 2 H01 codigo 13 07   5 | 3 H02 patern 40 00  18 |
# |  4 H03 matern 40 00  58 | 5 H04 nombre 40 00  98 | 6 H05 direcc 50 00 138 |
# |  7 H06 comuna 05 55 188 | 8 H07 ciudad 20 00 193 | 9 H08 sexoss 09 50 213 |
# | 10 H09 nacimt 10 00 222 |11 H10 contac 40 00 232 |12 H11 telefo 40 00 272 |
# | 13 H12 tcelul 40 00 312 |14 H13 correo 50 00 352 |15 H14 actges 10 00 402 |
# | 16 H15 renova 10 00 412 |17 H16 diagno 80 00 422 |18 H17 observ 999 14 502 |
# | 19 H18 isapre 02 51 1501 |20 H19 fechat 10 00 1503 |21 H20 status 02 53 1513 |
# | 22 H21 fecref 10 00 1515 |23 H22 client 02 56 1525 |

# 24 D00 presta  2   54 | 25 D01 modali  2   52 | 26 D02 topes   2   01 | 
# 27 D03 di      2   00 | 28 D04 di      2   00 | 29 D05 di      2   00 | 
# 30 D06 di      2   00 | 31 D07 di      2   00 | 32 D08 di      2   00 | 
# 33 D09 di      2   00 | 34 D10 di      2   00 | 35 D11 di      2   00 | 
# 36 D12 di      2   00 | 37 D13 di      2   00 | 38 D14 di      2   00 | 
# 39 D15 di      2   00 | 40 D16 di      2   00 | 41 D17 di      2   00 | 
# 42 D18 di      2   00 | 43 D19 di      2   00 | 44 D20 di      2   00 | 
# 45 D21 di      2   00 | 46 D22 di      2   00 | 47 D23 di      2   00 | 
# 48 D24 di      2   00 | 49 D25 di      2   00 | 50 D26 di      2   00 | 
# 51 D27 di      2   00 | 52 D28 di      2   00 | 53 D29 di      2   00 | 
# 54 D30 di      2   00 | 55 D31 di      2   00 | 56 D32 di      2   00 | 
# 57 D33 di      2   00 | 58 D34 di      2   00 | 59 D35 di      2   00 | 
# 60 D36 di      2   00 | 61 D37 di      2   00 | 62 D38 di      2   00 | 
# 63 D39 di      2   00 | 64 D40 total   1   01 | 
