ขอคำแนะนำการใช้งาน AN_SCRIPT ครับ

[KingNKPH]

ขอคำแนะนำอาจารย์ทุกท่านด้วยครับ เกี่ยวกับการใช้งาน AN_SCRIPT ลองอ่านตามกระทู้เก่าแล้วยังไม่ค่อยเข้าใจครับ
ให้คำแนะนำแบบละเอียดจะขอบพระคุณมากครับ 
ขออภัยหากตั้งกระทู้ซ้ำครับ

--ตอนนี้ที่ทำไปแล้ว ตามภาพแนบครับ---

[golf_win]

จะเริ่มจากตรงไหนดีครับ ลองถามเป็นข้อๆที่ไม่เข้าใจนะครับ

[KingNKPH]

  แฮ่ะๆ ผมก็งงๆ ครับ เรียบเรียงความต้องการไม่ค่อยถูก
คืออยากทำ pop up แจ้งเตือนค่า GFR ของผู้ป่วยในหน้าจอ Drug Profile ผู้ป่วยในครับ (หรือแสดงค่าอื่นๆ)
ผู้ป่วยนอก (ใช้ SYS_VN_PRE_SCRIPT) อันนี้ทำได้แล้วครับ
ก็เลยอยากให้ pop up นี้แสดงในผู้ป่วยในด้วยครับ
 

[golf_win]

ลองไล่คำสั่งตามตัวอย่างนี้นะครับ

var
fan,fdepartment,fonlineid : string;
tc:tclientdataset;

begin
  //showmessage('SYS_AN_Script');
  tc:=tclientdataset.create(nil);

  fonlineid:=get_onlineid;
  fan:= GetGlobalValue('AN');
  fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');

  {======================check refer cost=======================}
  if (fdepartment='ËéͪÓÃÐàÔ¹') or (fdepartment='ËéͨèÒÂÂÒ') then
  begin
  if getsqldata('select count(r.vn) as cc from ipt i '+
                'left outer join referout r on r.vn=i.an  '+
                'where r.vn="'+fan+'" and r.department="IPD" ')>0 then
       begin
       showmessage('¼Ùé»èÇÂÃÒ¹Õéà»ç¹ case refer ¡ÃسҵÃǨÊͺ¤èÒà refer 500 ºÒ·´éǤÃѺ');
       end;
  end

end;

[jackkawave]

ลงชื่อขอติดตามครับ 

[KingNKPH]

ลองไล่คำสั่งตามตัวอย่างนี้นะครับ

var
fan,fdepartment,fonlineid : string;
tc:tclientdataset;

begin
  //showmessage('SYS_AN_Script');
  tc:=tclientdataset.create(nil);

  fonlineid:=get_onlineid;
  fan:= GetGlobalValue('AN');
  fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');

  {======================check refer cost=======================}
  if (fdepartment='ËéͪÓÃÐàÔ¹') or (fdepartment='ËéͨèÒÂÂÒ') then
  begin
  if getsqldata('select count(r.vn) as cc from ipt i '+
                'left outer join referout r on r.vn=i.an  '+
                'where r.vn="'+fan+'" and r.department="IPD" ')>0 then
       begin
       showmessage('¼Ùé»èÇÂÃÒ¹Õéà»ç¹ case refer ¡ÃسҵÃǨÊͺ¤èÒà refer 500 ºÒ·´éǤÃѺ');
       end;
  end

end;

คำสั่งนี้ต้องเอาไปวางที่ไหน จึงจะขึ้นในหน้าผู้ป่วยใน ครับ
ผมวางใน script ชื่อ SYS_AN_PRE_SCRIPT ก็ไม่แสดง เปลี่ยนชื่อเป็น SYS_AN_SCRIPT ก็ยังไม่แสดง showmessage ครับ
ขอวิธีทำแบบละเอียดๆ ได้ไหมครับ อ.golf_win ขอบคุณมากครับ

[golf_win]

ลองค้นหาวิธีนำเข้า script จากตาราง doraemon
sys_an_pre_script

[KingNKPH]

ลองค้นหาวิธีนำเข้า script จากตาราง doraemon
sys_an_pre_script

ขอบคุณมากครับ ลองเอาสคริปไปใส่ใน sys_an_script แล้ว ป๊อบอัพจะแจ้งเตือนเฉพาะเคสที่จำหน่าย (discharge) ผู้ป่วยแล้วครับ
ถ้ายังไม่จำหน่าย ก็จะไม่เตือนครับ