ลองใช้ระบบ sys_vn_script ครับช่วยได้เยอะเลย code ก็ประมาณนี้ครับ

 {==================== check BW ====================}
   bw:= getsqldata('select bw from opdscreen '+
           ' where vn="'+fvn+'" and bw>0 ');

   age_y:= getsqldata('select age_y from vn_stat '+
           ' where vn="'+fvn+'" ');

   if (age_y<6) and (bw>50) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁà´ç¡ÍÒÂØ < 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;
   if (age_y>5) and (bw>149) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁÍÒÂØ >= 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;

{==================== check height ====================}
   if Getsqldata('select count(vn) as cc from opdscreen where height>220 and vn="'+fvn+'"')>0 then
        begin
          showmessage('ÃкºµÃǨ¾ºÇèÒÁÕ¡Òúѹ·Ö¡¤èÒ ***ÊèǹÊÙ§*** ¤ÅÒ´à¤Å×è͹ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ  ÊèǹÊÙ§ ÍÕ¡¤ÃÑ駤ÃѺ');
          showmessage('¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ ***ÊèǹÊÙ§*** ÍÕ¡¤ÃÑ駹ФÃѺ');
        end;

เห็นด้วยอย่างยิ่งครับ 

 

ลอง dl ที่นี่ครับ ผมเก็บสะสมเอาไว้
http://csmhos.thaiddns.com:3128/index.php/s/SvO89BvU55SFOxp

var
  fvn,fcomputername,fdepartment,fhn : string;
  tc : TClientDataset;

begin
 // showmessage('PRE-Script');

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

if fdepartment='035' then // 035 คือคลินิคอายุกรรม
  begin
     fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');

    if getsqldata('select count(l2.vn) as cc from lab_order l1 ' +
    ' left outer join lab_head l2 on l2.lab_order_number = l1.lab_order_number '+
    ' where l2.hn = "'+fhn+'"  '+
    ' and l2.order_date between "2014-10-01" and now() '+
    ' and l1.lab_items_code = "102" and l1.lab_order_result>0  ')>0  then
    begin
      showmessage('มีการตรวจ TC แล้ว !');
    end;

   end;
end;

ลองตรวจสอบตามนี้ครับ

ดันครับอยากได้ pain score ในระบบคัดกรองครับ

พี่โก้ทำไว้เมื่อนานมาแล้วครับ

รายงานเก่าที่อ.ท่านใดทำไว้นานแล้วครับ ผมก็จำไม่ได้ ขออภัยมา ณ โอกาสนี้ครับ
อย่าลืมแก้ไข lab_items_code นะครับ

set @d1 = '2013-10-01';
set @d2 = '2014-03-31';

select *
from
(select v.hn,concat(p.pname,p.fname,space(3),p.lname) as ptname, v.aid,
(select lo.lab_order_result from lab_order lo
left outer join lab_head lh on lh.lab_order_number=lo.lab_order_number
where lo.lab_items_code=66 and lh.hn=v.hn
and lh.order_date between @d1 and @d2
order by lh.report_date desc,lh.report_time desc limit 0,1) as fbs
,
(select lo2.lab_order_result from lab_order lo2
left outer join lab_head lh2 on lh2.lab_order_number=lo2.lab_order_number
where lo2.lab_items_code=66 and lh2.hn=v.hn
order by lh2.report_date desc,lh2.report_time desc limit 1,1) as fbs1
,
(select lo3.lab_order_result from lab_order lo3
left outer join lab_head lh3 on lh3.lab_order_number=lo3.lab_order_number
where lo3.lab_items_code=66 and lh3.hn=v.hn
order by lh3.report_date desc,lh3.report_time desc limit 2,1) as fbs2
from vn_stat v
left join patient p on p.hn = v.hn
where v.vstdate between @d1 and @d2
and v.hn in (select hn from clinicmember where clinic="001")
group by v.hn
order by v.aid desc ,p.pname,p.fname,p.lname
) as ttemp
where fbs between 70 and 130 and fbs1 between 70 and 130 and fbs2 between 70 and 130

upgrade structure ด้วย 3.58.1.23 ครับ

คลินิกพิเศษ--->คลินิกเบาหวาน ครับ

ทดสอบแล้วพบว่าปัญหาเป็นตามที่แจ้งครับ ถ้าถอด smartcard ก็จะเลือกได้ตามปกติครับ

เลือกแสดงผู้ป่วยที่ส่งไปห้อง---> ALL ครับ ถึงจะดึง HN ที่ visit ในวันแต่ไม่ได้ถูกส่งมาที่ห้อง ER ได้ครับ

 

ตอนสั่งยาได้เลือกเบิกยาจาก... หรือป่าวครับ

upgrade structure หรือยังครับปกติ store procedure จะสร้างเวลา upgrade structure ครับ

ลองตัวนี้ครับ Colasoft Capsa Enterprise ใช้งานได้ดีเลยครับ

 

ลองแบบนี้ครับ

select v.vstdate,p.birthday,timestampdiff(year,p.birthday,v.vstdate) as count_year,
timestampdiff(month,p.birthday,v.vstdate) as count_month,timestampdiff(day,p.birthday,v.vstdate) as count_day
from vn_stat v
left outer join patient p on p.hn=v.hn
where v.hn=xxxxxxx
order by vstdate desc

ขอบคุณมากครับ โดนใจจริงๆ

มาชุดใหญ่เลยขอบคุณมากครับ 
ขอเพิ่มประเภทความเสี่ยงตามภาพที่ 2 ให้แสดงในภาพที่ 1 ด้วยครับ(เพิ่มช่องแสดงผลครับ) และอยากให้บังคับการบันทึกประเภทความเสี่ยงครับ ถ้าไม่บันทึกไม่ให้ save ครับ

ยังเท่าเดิมครับ

อย่างนั้นก็ต้องนำเข้า files snapshot ไปที่ตาราง sks_drug_code ครับ

ลองลบลงใหม่ครับ แค่ตัวโปรแกรม ลงตัว full ก่อน แล้วค่อยลงตัว update ล่าสุดครับ

tpu_code--->select * from tmt_tpu_code
fsn--->select * from sks_drug_code