สอบถาม script แจ้งเตือนผู้ป่วย ปกส.ที่ ER

[niyomstd]

ไม่ทราบว่าถูกต้องหรือเปล่า ช่วยตรวจสอบให้ทีครับ
var
  fvn,fcomputername,fdepartment,fhn : string;
  tc : TClientDataset;

begin
 // showmessage('TEST Script');

  fvn:= GetGlobalValue('VN');
  fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');


 //  showmessage('Current VN = '+fvn+'  , Computer Name = '+fcomputername+' , Department Code = '+fdepartment);

if fdepartment='011' then
 begin
  if getsqldata('select *  '+
                      'from er_regist e '+
                      'left outer join vn_stat v on e.vn=v.vn where   v.pttype="34" and e.vn = "'+fvn+'" ')>0 then
       begin
       showmessage('[ ผู้ป่วยสิทธิประกันสังคม กรุณาตรวจสอบก่อน admit ครับ ]');
       end;
   end;
end;