BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: KingNKPH ที่ มีนาคม 13, 2014, 11:43:02 AM
-
ขอคำแนะนำอาจารย์ทุกท่านด้วยครับ เกี่ยวกับการใช้งาน AN_SCRIPT ลองอ่านตามกระทู้เก่าแล้วยังไม่ค่อยเข้าใจครับ
ให้คำแนะนำแบบละเอียดจะขอบพระคุณมากครับ :D :D :D
ขออภัยหากตั้งกระทู้ซ้ำครับ
--ตอนนี้ที่ทำไปแล้ว ตามภาพแนบครับ---
-
จะเริ่มจากตรงไหนดีครับ ลองถามเป็นข้อๆที่ไม่เข้าใจนะครับ
-
;D แฮ่ะๆ ผมก็งงๆ ครับ เรียบเรียงความต้องการไม่ค่อยถูก
คืออยากทำ pop up แจ้งเตือนค่า GFR ของผู้ป่วยในหน้าจอ Drug Profile ผู้ป่วยในครับ (หรือแสดงค่าอื่นๆ)
ผู้ป่วยนอก (ใช้ SYS_VN_PRE_SCRIPT) อันนี้ทำได้แล้วครับ
ก็เลยอยากให้ pop up นี้แสดงในผู้ป่วยในด้วยครับ
:D :D :D
-
ลองไล่คำสั่งตามตัวอย่างนี้นะครับ
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;
-
ลงชื่อขอติดตามครับ ;D ;D ;D ;D
-
ลองไล่คำสั่งตามตัวอย่างนี้นะครับ
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;
;D ;D คำสั่งนี้ต้องเอาไปวางที่ไหน จึงจะขึ้นในหน้าผู้ป่วยใน ครับ
ผมวางใน script ชื่อ SYS_AN_PRE_SCRIPT ก็ไม่แสดง เปลี่ยนชื่อเป็น SYS_AN_SCRIPT ก็ยังไม่แสดง showmessage ครับ
ขอวิธีทำแบบละเอียดๆ ได้ไหมครับ อ.golf_win ขอบคุณมากครับ
-
ลองค้นหาวิธีนำเข้า script จากตาราง doraemon
sys_an_pre_script
-
ลองค้นหาวิธีนำเข้า script จากตาราง doraemon
sys_an_pre_script
ขอบคุณมากครับ ลองเอาสคริปไปใส่ใน sys_an_script แล้ว ป๊อบอัพจะแจ้งเตือนเฉพาะเคสที่จำหน่าย (discharge) ผู้ป่วยแล้วครับ
ถ้ายังไม่จำหน่าย ก็จะไม่เตือนครับ ??? ???