ลองใช้ Variable ครับ คำสั่งตามนี้ครับ

Value := ReplaceStr(GetSQLSubQueryData('select plain_text from ptnote where hn="'+DBPipeline['hn']+'" '),'''',' ');

ปล. อย่าลืมใช้ wordwrap นะครับ

ขออภัยครับ ผิดกระทู้ครับ

ลองติ๊กถูกออกตรง แสดงเฉพาะเด็กที่ยังไม่ถูกจำหน่าย แล้วลองค้นหาชื่อใหม่อีกครั้งครับ

ข่าวร้ายคือบันทึกแล้วแก้ไขไม่ได้ครับ หาใบสั่งยาใบนี้ไม่เจอครับ....

select i.admdoctor,d.name,avg(admdate) as avgdate from ipt i
left outer join an_stat a on a.an=i.an
left outer join doctor d on d.code=i.admdoctor
where i.dchdate between "2015-10-01" and "2016-07-31"
group by i.admdoctor

if ((DBPipeline['bps']>0) and (DBPipeline['bps']<130) and (DBPipeline['bpd']>0) and (DBPipeline['bpd']<85)) then
begin
   Value:='ความดันโลหิตปกติ';
end
else
   if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=130) and (DBPipeline['bps']<140))
   or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=85) and (DBPipeline['bps']<90))) then
   begin
      Value:='ความดันโลหิตสูงเล็กน้อย';
   end
   else
      if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=140))
      or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=90))) then
      begin
         Value:='ความดันโลหิตสูง';
      end;
   end;
end;

ลองทดสอบดูนะครับ

procedure GlobalOnCreate;
begin
  GetDateRangeDialog(date1, date2);
  bdate := Formatdatetime('yyyy-mm-dd',date1);
  edate := Formatdatetime('yyyy-mm-dd',date2);
 
  sp :=GetPickupList('select "·Ø¡â»Ãá¡ÃÁ" union select  name from lansaka_risk_program_head ');
  if sp<>'·Ø¡â»Ãá¡ÃÁ' then
    begin
      sp1:=GetSQLStringData('select id from lansaka_risk_program_head where name="'+sp+'" ');
    end;

 

  if sp='·Ø¡â»Ãá¡ÃÁ' then
    begin
      ChangeReportSQL('select risk_sum_dep,risk_id,risk_date,risk_time,risk_event,risk_level,login_name,risk_safety,risk_program_head,risk_program_detail '+
      ' from lansaka_risk_head  '+
      ' where risk_date between "'+bdate+'" and "'+edate+'" '+
      ' and risk_level in  ("1","2","3","4","A","B","C","D","E","F","G","H","I") '+
      ' order by risk_level desc ');
    end;
   
  if sp<>'·Ø¡â»Ãá¡ÃÁ' then
    begin
      ChangeReportSQL('select risk_sum_dep,risk_id,risk_date,risk_time,risk_event,risk_level,login_name,risk_safety,risk_program_head,risk_program_detail '+
      ' from lansaka_risk_head  '+
      ' where risk_date between "'+bdate+'" and "'+edate+'" '+
      ' and risk_level in  ("1","2","3","4","A","B","C","D","E","F","G","H","I") '+
      ' and risk_program_head="'+sp1+'" '+
      ' order by risk_level desc ');
    end;
 

end;

ต้องมีการบันทึกข้อมูลในบัญชีเชิงรุก บช 2,3,4,5,6 ครับ

ถ้าใช้งานจากปุ่ม BP ลบได้นะครับ ctrl+delete ครับ
เห็นด้วยที่ระบบทันตกรรมควรมีปุ่ม BP เช่นเดียวกับจุดซักประวัติครับ

+'and o.spclty in ('+c_name+')  '

บอกแพทย์ไปเลยครับ ปีงบ 2559 แพทย์ได้ใช้ตรงนี้แน่ ๆ ซ้อมคีย์ไว้รอได้เลยครับ
 

ถ้าจะไม่ทำตามแน่ๆละครับ อิอิ

ถ้าไฟล์ scan ใหญ่ขนาดนี้ผมว่าน่าจะลองแยกเป็น image server น่าจะดีกว่า+บริหารจัดการง่ายกว่านะครับ

select * from rcpt_print_detail where paidst="04"

หลังชื่อยา folic มีตัว * ด้วยเหรอครับ

ผมลองทำตามใน v. 3.59.3.31 remed ได้ปกติครับ
ลอง restart เครื่องดูก่อนครับเผื่อได้

ตั้งค่า timeout ใน my.cnf ไว้เท่าไรครับ

ขอโทษที่ช้าครับ 

select d.name,i.xray_items_name,count(x.vn) as cc
from xray_report x
left outer join doctor d on d.code=x.request_doctor
left outer join xray_items i on i.xray_items_code=x.xray_items_code
where x.request_date between "2016-03-01" and "2016-03-31"
group by x.request_doctor,x.xray_items_code
order by x.request_doctor,cc desc

ขอบคุณมากครับ

OPD

select concat(b.name,' ',strength) as drugname,generic_name,g.pharmacology_group_name,unitcost,sum(qty),units,
b.unitprice ,sum(qty*b.unitprice) as total,f.cur_dep,department
from opitemrece a
left outer join drugitems b on a.icode=b.icode
left outer join ovst f  on f.vn = a.vn
left outer join kskdepartment c on f.cur_dep=c.depcode
left outer join pharmacology_group g on g.pharmacology_group_id=b.pharmacology_group1
where a.icode like'1%'
and qty>=1
and a.rxdate between '2016-03-10'  and '2016-03-12' and a.an is null
group by b.name,strength,units,b.unitprice,a.dep_code,department
order by f.cur_dep,b.name


IPD

select concat(b.name,' ',strength) as drugname,generic_name,g.pharmacology_group_name,unitcost,sum(qty),units,
b.unitprice ,sum(qty*b.unitprice) as total,f.cur_dep,department
from opitemrece a
left outer join drugitems b on a.icode=b.icode
left outer join ovst f  on f.vn = a.vn
left outer join kskdepartment c on f.cur_dep=c.depcode
left outer join pharmacology_group g on g.pharmacology_group_id=b.pharmacology_group1
where a.icode like'1%'
and qty>=1
and a.rxdate between '2016-03-10'  and '2016-03-12' and a.an<>""
group by b.icode
order by f.cur_dep,b.name

ขอดูหน้าจอทะเบียนเวชภัณฑ์ยาที่บันทึกกลุ่มยาครับ

รบกวนส่งแบบฟอร์มมาทดสอบหน่อยครับ

ลองติ๊กตรงที่วงไว้แล้วลองส่งออกข้อมูลอีกทีครับ

ถ้าจำไม่ผิดต้องไปเพิ่มค่าใช้จ่ายที่ระบบงานอื่นๆ แทน เช่นที่ระบบห้องจ่ายยาครับ เพื่อป้องกันความผิดพลาดของระบบห้องการเงินนะครับ

ไม่ควรลบครับ ถ้าไม่ใช้แล้วก็เลือกติ๊กยกเลิกการใช้งาน เพียงเท่านี้ user ก็ค้นไม่เจอรายการที่ยกเลิกแล้วครับ