คุณ Neo แฟ้ม er_emergency_type มีอะไรบ้างคับ

 

ใส่ Caption ให้กับ GetPickupList() ได้ป่าวคับ?
เพราะตอนแสดงจะไม่ทราบว่าเป็นอะไร ต้อง dragdrop ก่อน
หรือให้แสดงอัตโนมัติเลยได้มั๊ยคับ

select a.dx_doctor,dr.name,o.icode,concat(d.name,' ',d.strength) as drug
,d.units,d.unitprice,d.unitcost
,sum(if(month(o.vstdate)=1,o.qty,0)) as 'mo1'
,sum(if(month(o.vstdate)=2,o.qty,0)) as 'mo2'
,sum(if(month(o.vstdate)=3,o.qty,0)) as 'mo3'
,sum(if(month(o.vstdate)=4,o.qty,0)) as 'mo4'
,sum(if(month(o.vstdate)=5,o.qty,0)) as 'mo5'
,sum(if(month(o.vstdate)=6,o.qty,0)) as 'mo6'
,sum(if(month(o.vstdate)=7,o.qty,0)) as 'mo7'
,sum(if(month(o.vstdate)=8,o.qty,0)) as 'mo8'
,sum(if(month(o.vstdate)=9,o.qty,0)) as 'mo9'
,sum(if(month(o.vstdate)=10,o.qty,0)) as 'mo10'
,sum(if(month(o.vstdate)=11,o.qty,0)) as 'mo11'
,sum(if(month(o.vstdate)=12,o.qty,0)) as 'mo12'
,sum(o.qty) as qty
,sum(o.sum_price) as sum_price
from opitemrece o
left join drugitems d on o.icode=d.icode
left join an_stat a on o.an=a.an
left join doctor dr on a.dx_doctor=dr.code
where o.vstdate between '2008-1-1' and '2008-12-31'
and d.antibiotic='Y'
and left(a.pdx,1)='J'
group by a.dx_doctor,o.icode
order by a.dx_doctor,o.icode

ขอโทษทีคับ sum ผิดที่ เห็นได้ค่าเลยไม่ได้ตรวจสอบ
ลองดูคับผม
*****
ราคารวมผมว่าน่าจะเป็น unitprice มากกว่า unitcost นะคับ

select a.dx_doctor,dr.name,concat(d.name,' ',d.strength) as drug
,d.units,d.unitcost
,if(month(o.vstdate)=1,sum(o.qty),0) as 'mo1'
,if(month(o.vstdate)=2,sum(o.qty),0) as 'mo2'
,if(month(o.vstdate)=3,sum(o.qty),0) as 'mo3'
,if(month(o.vstdate)=4,sum(o.qty),0) as 'mo4'
,if(month(o.vstdate)=5,sum(o.qty),0) as 'mo5'
,if(month(o.vstdate)=6,sum(o.qty),0) as 'mo6'
,if(month(o.vstdate)=7,sum(o.qty),0) as 'mo7'
,if(month(o.vstdate)=8,sum(o.qty),0) as 'mo8'
,if(month(o.vstdate)=9,sum(o.qty),0) as 'mo9'
,if(month(o.vstdate)=10,sum(o.qty),0) as 'mo10'
,if(month(o.vstdate)=11,sum(o.qty),0) as 'mo11'
,if(month(o.vstdate)=12,sum(o.qty),0) as 'mo12'
,sum(o.qty) as qty
,sum(o.sum_price) as sum_price
from opitemrece o
left join drugitems d on o.icode=d.icode
left join an_stat a on o.an=a.an
left join doctor dr on a.dx_doctor=dr.code
where o.vstdate between '2008-1-1' and '2008-12-31'
and d.antibiotic='Y'
and left(a.pdx,1)='J'
group by a.dx_doctor,o.icode
order by a.dx_doctor,o.icode

แบบนี้พอไหวมั๊ยคับ  อาจจะเพี้ยนถ้าไม่ใช่ปีเดียวกัน
ตอนทำรายงานก้อ summary group จาก dx_doctor เอาคับ

select a.an, a.hn,p.pname,p.fname,p.lname
,current_date as 'now',a.regdate,a.dchdate,current_date-a.regdate as 'stay'
from an_stat a
left join patient p on a.hn = p.hn
where a.dchdate is null
and current_date-a.regdate>90
แบบนี้รึป่าว?

เอาใหม่
select d.icode,d.name as drug,d.units,d.strength
,sum(if(o2.icd10 between 'w00' and 'w9999',o1.qty,0) as 'Code=W'
,sum(if(o2.icd10='a09',o1.qty,0)) as 'A09'
,sum(if(o2.icd10='j039',o1.qty,0)) as 'J039'
,sum(if(o2.icd10='j069',o1.qty,0)) as 'J069'
,sum(if(o2.icd10='j00',o1.qty,0)) as 'J00'
,sum(if(o2.icd10='j029',o1.qty,0)) as 'j029'
from drugitems d
left join opitemrece o1 on o1.icode=d.icode
left join ovstdiag o2 on o1.vn=o2.vn
where o1.vstdate between '2009-1-1' and '2009-1-31'
group by d.icode
order by d.name

คำสั่ง SQL
select d.icode,d.name as drug,d.units,d.strength
,sum(if(o2.icd10='w0099',o1.qty,0)) as 'W0099'
,sum(if(o2.icd10='w9999',o1.qty,0)) as 'W9999'
,sum(if(o2.icd10='a09',o1.qty,0)) as 'A09'
,sum(if(o2.icd10='j039',o1.qty,0)) as 'J039'
,sum(if(o2.icd10='j069',o1.qty,0)) as 'J069'
,sum(if(o2.icd10='j00',o1.qty,0)) as 'J00'
,sum(if(o2.icd10='j029',o1.qty,0)) as 'j029'
from drugitems d
left join opitemrece o1 on o1.icode=d.icode
left join ovstdiag o2 on o1.vn=o2.vn
where o1.vstdate between '2009-1-1' and '2009-1-31'
group by d.icode
order by d.name
แบบนี้ไวมั๊ย เปลี่ยนช่วงเดือนเอาหล่ะกันคับ

เปลี่ยนชื่อแฟ้มใหม่....ให้สั้นๆ

select a.hn,a.an,a.pdx,a.dx0,a.dx1,a.dx2,a.dx3,a.dx4,a.dx5,concat(p.pname,p.fname,'  ',p.lname) as ptname from an_stat a
left outer join patient p on p.hn=a.hn
left join iptdiag i on i.an=a.an
where a.dchdate between '2007-12-01' and '2008-09-30'
and ((i.icd10  >= 'L03' and i.icd10  <= 'L09') and i.icd10 in ('E119','E110','E149','E100')  )
group by a.an
order by a.an

แบบนี้ไหวมั๊ย
select p.hn,p.pname,p.fname,p.lname
,v.pdx,v.dx0,v.dx1,v.dx2,v.dx3,v.dx4,v.dx5
,p.last_visit,max(v.vstdate) as maxdate
from patient p
left join vn_stat v on p.hn=v.hn
left join ovstdiag d on v.vn=d.vn
where v.vstdate between '2009-1-1' and '2009-1-31'
and (d.icd10='E119' or d.icd10='I10')
group by p.hn
order by p.hn
อยากได้ field ไหนก้อเพิ่มเองนะคับ

เนื่องจากมี dx ที่ขึ้นเป็นอักษรพิมพ์เล็ก
จากการตั้ง Auto Diag ของคลีนิคพิเศษ
เลยอยากตรวจสอบ เพราะบ้างครั้ง ผป.ไม่ได้มาตรวจจากคลีนิคพิเศษ/หรือ จนท.ติ๊กผิิิิด

select if(inregion='Y','PCU','N') as inregion
from patient

เป็น Application ที่พัฒนาเองครับ

ช่วยดูหน่อยครับ เกี่ยวแฟ้ม NUTRI
ซึ่ง F18 ผ่านการตรวสอบ แต่ PP ไม่สามารถเปิดแฟ้มได้

select v.pdx,i.name,count(distinct v.hn) as 'คน',count(v.hn) as 'ครั้ง',v.aid
from vn_stat v
left join icd101 i on v.pdx=i.code
where v.vstdate between '2008-1-1' and '2008-1-31'
and v.aid=621001
and i.name is not null
group by v.pdx
order by 4 desc
limit 5

ขอโทษทีครับ พอดีผมเปลี่ยนชื่อ column ใหม่เป็นภาษาไทย

select v.pdx,i.name,count(v.hn) as amount
from vn_stat v
left join icd101 i on v.pdx=i.code
where v.vstdate between '2008-1-1' and '2008-1-31'
and v.aid=621001
group by v.pdx
order by amount desc
limit 5
แบบนี้ได้มั๊ย ให้เปลี่ยน v.aid ตามรหัสที่อยู่เอาเอง ซึ่งจะได้จำนวนครั้ง
ถ้าต้องการจำนวนคน ให้เปลี่ยนจาก count( v.hn) เป็น count(distinct v.hn) เอา
ถ้าต้องการมากกว่า 5 รายการ เปลี่ยนจาก limit 5 เป็น limit จำนวนที่ต้องการ
คำนวนจาก principle dx.

select p.hn,p.pname,p.fname,p.lname,p.pttype,p.death
,p.addrpart,p.moopart,p.tmbpart,p.amppart,p.chwpart
from patient p
left join pttype p1 on p1.pttype=p.pttype
where p1.pcode='A2' and (p.death<>'Y' or p.death is null)
and year(now())-year(p.birthday) between 30 and 50
and p.chwpart=62
and p.amppart=10
and p.tmbpart=01
and p.moopart in (1,5)
order by p.hn

พอได้มั๊ยครับ
ส่วนตรงข้อมูล จะเปลี่ยนเป็น p.* ก้อได้นะครับ
ส่วนที่อยู่แก้ไขตามต้องการนะครับ
ข้าราชการ คงเป็นสิทธิเบิกได้ ทุกอย่าง ทุกโครงการ ใช่มั๊ยครับ

ขอตัวอย่างแฟ้ม nutri ได้มั๊ยครับ

หรือจะลองทำแบบ ODBC
ตัวอย่างรายงาน 504
_server='192.168.0.1'
_user='sa'
_psw='sa'
_database='hos'
_connect = ;
"Driver={MySQL ODBC 3.51 Driver};" + ;
"Server=" + _server + ";" + ;
"UID=" + _user + ";" + ;
"PASSWORD=" + _psw + ";" + ;
"Database="+_database+";" +;
"Port=3306;" + ;
"Option= 0 ;"+;
"Stmt =set names tis620;"
_handle=sqlstringconnect(_connect)
If _handle>0
_sql=[select a.*,ifnull(d.amount,0) as amount from rpt_504_name a left join ]+;
         [(select b.id,count(b.id) as amount from rpt_504_code b,ovstdiag c ]+;
         [where c.icd10 between b.code1 and b.code2 and c.icd10 is not null ]+;
         [and c.vstdate between '2008-1-1' and '2008-1-31' ]+;
         [group by b.id) d on d.id=a.id ]+;
         [order by a.id ]
if sqlexec(_handle,_sql,'TEMP')>0
brow &&แสดงข้อมูลที่คำนวณได้
else
=aeeror(test)
=messagebox('คำสั่ง SQL ผิด',0,'Error')
endif
=sqldisconnect(_handle)
else
=aerror(test)
=messagebox('ติดต่อ HOSxP ไม่ได้'+chr(13)+test(1,2),0,'Error')
endif

ควรใช้ MySQL ODBC Driver vesion 3.51.15 ขึ้นไป

ลองใช้ ifnull() ดู
เช่น
select ifnull(null,0)+1 as 'sum'

select i.an,i.hn,i.regdate,i.dchdate
from ipt
left join an_stat on i.an=a.an
where i.dchdate between '2008-4-1' and '2008-4-30'
and (a.pdx is null or a.pdx=' ')
order by i.regdate

ลองแบบนี้
Value :=GetSQLStringData('select vstdate from vn_stat where hn="'+DBPipeline['HN'] +'"and vn<"'+DBPipeline['vn']  +'" order by vn desc limit 1');
ถ้าต้องวันที่ที่มาครั้งก่อน

แบบนี้พอไหวมั๊ย
select o.vn,o.hn,p.pname,p.fname,p.lname
,p.addrpart,p.moopart,a.full_name as address
,count(op.icode) as amount,s.bps,s.bpd
from ovst o
left join patient p on p.hn=o.hn
left join thaiaddress a on a.addressid=concat(p.chwpart,p.amppart,p.tmbpart)
left join opitemrece op on o.vn=op.vn
left join drugitems d on op.icode=d.icode
left join opdscreen s on s.vn=o.vn
where o.vstdate=now()
and d.name is not null
and o.hn in (select hn from clinicmember where clinic=
(select sys_value from sys_var where sys_name='ht_clinic_code'))
group by o.vn
having amount>=5
order by o.hn

select o.hn,o.vstdate,p.pname,p.fname,p.lname,v.pdx
from ovst o
left join vn_stat v on o.vn=v.vn
left join patient p on o.hn=p.hn
where v.vstdate between '2008-1-1' and '2008-1-31'
and (v.pdx is null or v.pdx=' '
or left(v.pdx,1) in ('0','1','2','3','4','5','6','7','8','9'))
order by o.hn,o.vstdate

ลองประยุกต์ต่อนะครับ

กรณีที่ 2 โดยการสร้าง User DSN ขึ้นมา && สมมุติชื่อ hos
set talk off
close data
_handle=sqlconnect('hos')
if _handle>0
  ?'สามารถ Connect HOSxp ได้'
  =sqldisconect(_handle)
else
 =aerror(merror)
 ?'ไม่สามารถติดต่อ HOSxP ได้'
 ?merror(1,2)
endif
close data

โดยปกติผมจะใช้กรณีที่ 1 เพราะที่ รพ.เปลี่ยน IP กันบ่อยมาก
โดยสร้าง func รับค่าจาก C:\WINDOWS\HOS-WIN32.INI