set 10 11
cur=`date -d2024-$1-01 +%a`
prx=`date -d2024-$2-01 +%a`
echo $cur $prx
newdoc=./data/pacien/NEWDOC
newhead=./data/pacien/NEWHEAD
pacien=./tmp/pacienew
./ihd/bin/ihmq pacie h00^ h20^00 | awk -F^ ' { print $1 } '  >$pacien
awk ' BEGIN { 
wd["Mon"]=1
wd["Tue"]=2
wd["Wed"]=3
wd["Thu"]=4
wd["Fri"]=5
wd["Sat"]=6
wd["Sun"]=7
md["01"]=31*2
md["02"]=28*2
md["03"]=31*2
md["04"]=30*2
md["05"]=31*2
md["06"]=30*2
md["07"]=31*2
md["08"]=31*2
md["09"]=30*2
md["10"]=31*2
md["11"]=30*2
md["12"]=31*2
di=wd["'"$cur"'"]
df=wd["'"$prx"'"]
ireg =(df -di)*2
if(ireg<0) ireg +=14
print "ireg="ireg

}
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
FILENAME==ARGV[1] && $1!=ant {
#if(ant!="") { exit }
regd[sprintf("%d",$1-1)]=1
regh[$1]=1
ant=$1
}
FILENAME == ARGV[1] {next }
FILENAME == ARGV[2] && regh[substr($0,1,5)] { printf "%415.415s%s%s\n",$0,"'"$2"'",substr($0,418) >"'"$newhead"'"
next } 
FILENAME == ARGV[2] { print >"'"$newhead"'" }
FILENAME == ARGV[3] && regd[$NF] {
line=$0
while (ind=index(line,"AG")) line=substr(line,1,ind-1)"  "substr(line,ind+2)
while (ind=index(line,"VC")) line=substr(line,1,ind-1)"PD"substr(line,ind+2)
while (ind=index(line,"VA")) line=substr(line,1,ind-1)"PD"substr(line,ind+2)

	
rd0=substr(line,1,6)
rd1=substr(line,ireg+7,md["'"$2"'"]-ireg)substr(line,7,ireg)
frm=sprintf("%%%-ds%5d",81-ireg-md["'"$2"'"],$NF)
rd2=sprintf(frm,"")

printf "%s%s%s\n",rd0,rd1,rd2 >"'"$newdoc"'"
next
}

FILENAME == ARGV[3] { print >"'"$newdoc"'"} 

 ' $pacien data/pacie/HEAD  data/pacie/DOC 

