Griddata ด้านขวาของ patient EMR มาจาก visitcds
visitcds.data := hosxp_getdataset (select o.vstdate,o.vsttime,o.vn,o.an, ...
from ovst o ..... where o.hn= hnedit.text )
if (visitcds.fieldbyname('an').asstring <> '') then
afont.color := clred;
ดังนั้นถ้าไม่แดงแปลว่า an ใน ovst ของ visit นั้นว่าง
แตยังไม่รู้ ผิดพลาดขั้นตอนไหนครับ