LastCr:=getsqldata('select lo.lab_order_result from lab_head lh, lab_order lo '+
' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="78" and lh.hn="'+fhn+'" '+
' order by lh.order_date desc, lh.order_time desc limit 1');
age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');
sex:=getsqldata('select sex from patient where hn="'+fhn+'"');
if sex=1 then
factor:=1
else
factor:=0.742;
end;
//crcl:=(140-age_y)*bw*factor/(72*LastCr);
//showmessage(crcl);
gfr:=186*exp(-1.154*ln(LastCr))*exp(-0.203*ln(age_y))*factor;
sgfr:=FormatFloat('#.####', gfr);