1
แจ้งปัญหา / ขอความช่วยเหลือ / Re: รพ.ของพี่ๆ ท่าไหนอัพเดทข้อมูล icd101 เป็น ที่มี Code 2010-2016
« เมื่อ: กุมภาพันธ์ 15, 2018, 09:31:56 AM »
ขอด้วยครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
ลองคำสั่งนี้ไปปรับใช้ดูครับ
select sum(IF(icd10 between 'J440' and 'J449',1,0)) as COPD,
sum(IF(icd10 between 'J45' and 'J76',1,0)) as Asthma
from ovstdiag
where vstdate between '2017-01-01' and '2017-01-31'
ตรง "'fvn'" ลองแก้เป็น "'+fvn+'" ดูครับ
var
fvn : string;
begin
fvn:= GetGlobalValue('VN');
if getsqldata('select count(*) from opdscreen where vn = "'fvn'" and smoking_type_id between "1" and "3"' )>0 then
begin
showmessage('1234');
end;
end;
ลองเปลี่ยนเป็น ขวด แล้วพิมพ์ดูใหม่ว่าได้หรือเปล่านะครับ
ลองเปลี่ยนเป็น ขวด แล้วพิมพ์ดูใหม่ว่าได้หรือเปล่านะครับ
รายการมีหน่วยนับเป็นอะไรครับ
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
ds1 := FormatDatetime('yyyy-mm-dd',date1);
ds2 := FormatDatetime('yyyy-mm-dd',date2);
an := GetUserParameter(0);
hn := GetSQLStringData('select hn from ipt where an = "'+an+'"');
count_record := GetSQLIntegerData('select count(op.icode) from opitemrece op '+
' left outer join drugitems di on di.icode = op.icode'+
' left outer join sp_use sp on op.sp_use = sp.sp_use'+
' where an="'+an+'" and op.rxdate between "'+ds1+'" and "'+ds2+'"'+
' and NOT(op.drugusage = "" '+
' and op.sp_use = "")');
{showmessage(IntToStr(count_record));}
sql := 'select concat(di.name," ",di.strength),op.drugusage, op.sp_use'+
' from opitemrece op '+
' left outer join drugitems di on di.icode = op.icode'+
' left outer join sp_use sp on op.sp_use = sp.sp_use'+
' where an="'+an+'" and op.rxdate between "'+ds1+'" and "'+ds2+'"'+
' and NOT(op.drugusage = "" '+
' and op.sp_use = "")';
while count_record >= 6 do
begin
count_record := count_record-6;
end;
if count_record<>0 then
newline := 6-count_record;
while newline > 0 do
begin
sql := sql + ' union select "","'+IntToStr(newline) +'"' ;
newline := newline - 1;
end;
{showmessage(sql);}
ChangeReportSQL(sql);
end;
รบกวนสอบถามชื่อรพ. ชื่อผู้ติดต่อ และเบอร์โทรติดต่อกลับค่ะ
เพื่อการบันทึกข้อมูล และการประสานงานในการช่วยเหลือแก้ไขปัญหาให้กับทางลูกค้าค่ะ
กนิษฐา อ่องสุวรรณ
หัวหน้าแผนกลูกค้าสัมพันธ์
BMS
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600313154324" and d1.print_mode= "2" and d1.icode like "1%"
group by d1.icode
order by d1.doctor_order_print_code
แนะนำเพิ่มคำสั่ง d1.print_mode=2 ลงในส่วนของเงื่อนไขของ SQL Code
-- ตัวอย่าง SQL Code ที่ใช้ในการพิมพ์ Sticker --
select d1.*,v1.*,o1.*,dp.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
left outer join drugitems_picture dp on d1.icode=dp.icode
where d1.vn="600105091126" and d1.print_server="OPD"
and d1.print_mode=2 order by d1.item_no
ภควดี สว่างพาณิชย์
BMs-Call Center
โรงพยาบาลพรหมพิราม 0836294522 ครับ
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600227075506" and d1.print_server="OPD" and d1.icode like "1%" and d1.print_status <> 'Y'
group by d1.icode
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600227082424" and d1.print_server="OPD" and d1.icode like "1%"
group by d1.icode
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600223134457" and d1.print_server="OPD" and d1.icode like "1%"
group by d1.icode
Value := GetSQLStringData('select therapeutic from drugitems where icode =" ' +DBPipeline1['icode']+' " ');
Value := GetSQLStringData('select hintcode_eng from drugitems where icode =" ' +DBPipeline1['icode']+' " ');
Value := GetSQLStringData('select therapeutic_eng from drugitems where icode =" ' +DBPipeline1['icode']+' " ');