#!/bin/sh
 
## disable filename globbing
 
  BASE=`pwd`
  APPLDIR=$BASE/appl
  DATADIR=$BASE/data
  PATH=$PATH:$BASE/ihd/bin:.
  export PATH APPLDIR DATADIR
#
agend=./tmp/agend
./appl/sh/agend > $agend

# |  1 H00 regist 06 00   0 | 2 H01 pacien 05 51   6 | 3 H02 fechai 10 00  11 |
# |  4 H03 valida 04 00  21 | 5 H04 profes 12 52  25 | 6 H05 fechae 10 00  37 |
# |  7 H06 transs 01 00  47 | 8 H07 transc 20 00  48 | 9 H08 usuari 20 00  68 |
awk -F"^" ' BEGIN {
print "var ag = new Array()"
print "var rz = new Array()"
print "var cr = new Array()"
print "var pr = new Array()"
inic=fec("'"$1"'")
fina=fec("'"$2"'")
}
{
 pr[substr($2,1,5)substr($4,1,2)]=substr($5,1,12)
}
function fec(x) { return substr(x,7)""substr(x,4,2)""substr(x,1,2) }
fec($6) >= inic {
if($7=="A") print "ag[\""substr($2,1,5)$4"\"]=\""$8"+"substr($2,1,5)$4"+"substr($5,1,12)"+"$7"+"$3"+"$6"+"$9"\""
if($7=="V") print "rz[\""substr($2,1,5)$4"\"]=\""$8"+"substr($2,1,5)$4"+"substr($5,1,12)"+"$7"+"$3"+"$6"+"$9"\""
if($7=="C") print "cr[\""substr($2,1,5)$4"\"]=\""$8"+"substr($2,1,5)$4"+"substr($5,1,12)"+"$7"+"$3"+"$6"+"$9"\""
}
END {
for ( i in pr)  print "pr[\""i"\"]=\""pr[i]"\""


}  ' $agend  > ../js/agenda.js
