หรือจะลองแบบนี้

select i.mdc
,count(i.an) 'Total_case'
,sum(i.adjrw) 'Total_AdjRW'
,avg(i.adjrw) 'Total_CMI'
,sum(substring(i.drg,3,2) between '01' and '49') 'Total_OP_case'
,sum(if(substring(i.drg,3,2) between '01' and '49',i.adjrw,0)) 'Total_OP_AdjRW'
,avg(if(substring(i.drg,3,2) between '01' and '49',i.adjrw,null)) 'Total_OP_CMI'
,sum(substring(i.drg,3,2)>'49') 'Total_NonOP_case'
,sum(if(substring(i.drg,3,2)>'49',i.adjrw,0)) 'Total_NonOP_AdjRW'
,avg(if(substring(i.drg,3,2)>'49',i.adjrw,null)) 'Total_NonOP_CMI'

,sum(p.pttype_spp_id in (3,4)) 'UC_case'
,sum(if(p.pttype_spp_id in (3,4),i.adjrw,0)) 'UC_AdjRW'
,avg(if(p.pttype_spp_id in (3,4),i.adjrw,null)) 'UC_CMI'
,sum(p.pttype_spp_id in (3,4) and substring(i.drg,3,2) between '01' and '49') 'UC_OP_case'
,sum(if(p.pttype_spp_id in (3,4) and substring(i.drg,3,2) between '01' and '49',i.adjrw,0)) 'UC_OP_AdjRW'
,avg(if(p.pttype_spp_id in (3,4) and substring(i.drg,3,2) between '01' and '49',i.adjrw,null)) 'UC_OP_CMI'
,sum(p.pttype_spp_id in (3,4) and substring(i.drg,3,2)>'49') 'UC_NonOP_case'
,sum(if(p.pttype_spp_id in (3,4) and substring(i.drg,3,2)>'49',i.adjrw,0)) 'UC_NonOP_AdjRW'
,avg(if(p.pttype_spp_id in (3,4) and substring(i.drg,3,2)>'49',i.adjrw,null)) 'UC_NonOP_CMI'

,sum(p.pttype_spp_id in (1)) 'A2_case'
,sum(if(p.pttype_spp_id in (1),i.adjrw,0)) 'A2_AdjRW'
,avg(if(p.pttype_spp_id in (1),i.adjrw,null)) 'A2_CMI'
,sum(p.pttype_spp_id in (1) and substring(i.drg,3,2) between '01' and '49') 'A2_OP_case'
,sum(if(p.pttype_spp_id in (1) and substring(i.drg,3,2) between '01' and '49',i.adjrw,0)) 'A2_OP_AdjRW'
,avg(if(p.pttype_spp_id in (1) and substring(i.drg,3,2) between '01' and '49',i.adjrw,null)) 'A2_OP_CMI'
,sum(p.pttype_spp_id in (1) and substring(i.drg,3,2)>'49') 'A2_NonOP_case'
,sum(if(p.pttype_spp_id in (1) and substring(i.drg,3,2)>'49',i.adjrw,0)) 'A2_NonOP_AdjRW'
,avg(if(p.pttype_spp_id in (1) and substring(i.drg,3,2)>'49',i.adjrw,null)) 'A2_NonOP_CMI'

,sum(p.pttype_spp_id in (2)) 'A7_case'
,sum(if(p.pttype_spp_id in (2),i.adjrw,0)) 'A7_AdjRW'
,avg(if(p.pttype_spp_id in (2),i.adjrw,null)) 'A7_CMI'
,sum(p.pttype_spp_id in (2) and substring(i.drg,3,2) between '01' and '49') 'A7_OP_case'
,sum(if(p.pttype_spp_id in (2) and substring(i.drg,3,2) between '01' and '49',i.adjrw,0)) 'A7_OP_AdjRW'
,avg(if(p.pttype_spp_id in (2) and substring(i.drg,3,2) between '01' and '49',i.adjrw,null)) 'A7_OP_CMI'
,sum(p.pttype_spp_id in (2) and substring(i.drg,3,2)>'49') 'A7_NonOP_case'
,sum(if(p.pttype_spp_id in (2) and substring(i.drg,3,2)>'49',i.adjrw,0)) 'A7_NonOP_AdjRW'
,avg(if(p.pttype_spp_id in (2) and substring(i.drg,3,2)>'49',i.adjrw,null)) 'A7_NonOP_CMI'

,sum(p.pttype_spp_id in (5,6)) 'Other_case'
,sum(if(p.pttype_spp_id in (5,6),i.adjrw,0)) 'Other_AdjRW'
,avg(if(p.pttype_spp_id in (5,6),i.adjrw,null)) 'Other_CMI'
,sum(p.pttype_spp_id in (5,6) and substring(i.drg,3,2) between '01' and '49') 'Other_OP_case'
,sum(if(p.pttype_spp_id in (5,6) and substring(i.drg,3,2) between '01' and '49',i.adjrw,0)) 'Other_OP_AdjRW'
,avg(if(p.pttype_spp_id in (5,6) and substring(i.drg,3,2) between '01' and '49',i.adjrw,null)) 'Other_OP_CMI'
,sum(p.pttype_spp_id in (5,6) and substring(i.drg,3,2)>'49') 'Other_NonOP_case'
,sum(if(p.pttype_spp_id in (5,6) and substring(i.drg,3,2)>'49',i.adjrw,0)) 'Other_NonOP_AdjRW'
,avg(if(p.pttype_spp_id in (5,6) and substring(i.drg,3,2)>'49',i.adjrw,null)) 'Other_NonOP_CMI'

from ipt i
left join pttype p on p.pttype=i.pttype

where i.dchdate between '2011-10-1' and '2012-9-30'

group by i.mdc

ลองหาไฟล์ MDCName มาประกอบดูคับ

set @ds:='2012-1-1';
select hn,birthday,timestampdiff(year,birthday,@ds) 'age_y'
,addrpart,lpad(moopart,2,'0') moopart,tmbpart,amppart,chwpart
from patient p
where timestampdiff(year,birthday,@ds) between 15 and 34
and chwpart=62
and amppart=10
and tmbpart=03
and moopart in (3,4,7,8)

ให้เลือกแฟ้มชื่อ VFP5508.DBF นะครับ

มีวิธีตรวจสอบว่าเราเปิด form อะไรอยู่หรือไม่?
เช่น ลงทะเบียนการส่งตรวจรักษา หัว form ก้อเป็น OPD Paitent Registry
หรือใช้แบบ GetGlobalValue(ตัวแปร) เช่น VN , Cuurent_DepCode

select a.mdc,count(a.mdc) 'Total'
,sum(dd>49) 'NonOP'
,sum(dd<50) 'OP'
from (select i.mdc ,SUBSTRING(i.drg,3,2) as dd
from ipt i
where i.dchdate between '2012-01-01' and '2012-01-31') a
group by a.mdc
order by a.mdc

select *
from replicate_log a
where a.sql like "%550004481%"   
limit 20
ใส่ชื่อเล่นให้มัน แล้วเรียกจากชื่อเล่น

select q.*
from (select min(vn) vn
from pq_doctor
where doctor_date between "2012-06-01" and "2012-06-01"
and doctor in ("001")
and doctor_time between "08:00:00" and "16:00:00") a
left join pq_doctor q on a.vn=q.vn

น่าจะเป็น Bug ของ โปรแกรม Report Design
ให้นำของ Version เก่าๆ มาใช้
หรือไม่ก้อใหม่ๆ ไปเลยคับ

ให้ลบไฟล์
- vfp9r.dll
- vfp9t.dll
- vfp9renu.dll
- msvcr71.dll
- gdiplus.dll
ใน folder ของ Tgrouper  ออก
แล้วหา runtime VFP9 มาติดตั้งใหม่ครับ

select v.vn,v.income
,sum(if(o.paidst=00,o.sum_price,0)) 'Paidst00'
,sum(if(o.paidst=01,o.sum_price,0)) 'Paidst01'
,sum(if(o.paidst=02,o.sum_price,0)) 'Paidst02'
,sum(if(o.paidst=03,o.sum_price,0)) 'Paidst03'
,sum(if(o.paidst=04,o.sum_price,0)) 'Paidst04'
from vn_stat v
left join opitemrece o on v.vn=o.vn
where v.vstdate between '2012-1-1' and '2012-1-1'
group by v.vn
ประมาณนี้มั๊ย

ค่าผิดพลาดตรงไหนคับ
ลอง
select income
from opitemrece
where vstdate between '2012-04-01' and '2012-04-31'
and an is null
group by income
ว่ามีค่าอยู่แค่ 01-17 หรือไม่?
ถ้ามีมากกว่านั้น ก้อคงต้องตรวจสอบกันหน่อย

select r.rfrcs,rr.name,count(r.vn) cc
from referout r
left join rfrcs rr on r.rfrcs=rr.rfrcs
where year(r.refer_date)=2012 and month(r.refer_date)=1
group by r.rfrcs
order by cc desc
limit 5

select lh.vn,lo.lab_items_code,l1.lab_items_name
,lo.lab_order_result
,if(l1.range_check_min is null,' '
,if(lo.lab_order_result between l1.range_check_min and l1.range_check_max,' ','Y'))
'result'
,l1.range_check_min,l1.range_check_max
from lab_head lh
left join lab_order lo on lo.lab_order_number=lh.lab_order_number
left join lab_items l1 on l1.lab_items_code=lo.lab_items_code
where lh.order_date between "2012-02-01" and "2012-02-01"

ลองคำสั่งนี้ดู

select o.vn,o.hn,c.number,concat(p.pname,p.fname," ",p.lname) as ptname
,o.vstdate,o.vsttime,s.bw,s.height,s.bmi,s.bps,s.bpd
,if(s.bps between 140 and 159 or s.bpd between 90 and 99,'1'
,if(s.bps between 160 and 179 or s.bpd between 100 and 109,'2'
,if(s.bps>=180 or s.bpd>=110,'3'
,if(s.bps is null or s.bpd is null,'Error',' ')))) 'BP_Grade'
,if(s.bps between 140 and 159 or s.bpd between 90 and 99,1,0) 'BP_Grade1'
,if(s.bps between 160 and 179 or s.bpd between 100 and 109,1,0) 'BP_Grade2'
,if(s.bps>=180 or s.bpd>=110,1,0) 'BP_Grade3'
,s.tg,s.ldl,s.hdl,s.hbA1c,s.creatinine,s.ua
,s.fbs
,if(s.fbs is null,'Error'
,if(s.fbs<=125,'Normal',if(s.fbs<=154,'1',if(s.fbs<=182,'2','3')))) 'FBS_Grade'
,if(s.fbs between 126 and 154,1,0) 'FBS_Grade1'
,if(s.fbs between 155 and 182,1,0) 'FBS_Grade2'
,if(s.fbs>=183,1,0) 'FBS_Grade3'
from ovst o
left join patient p on p.hn=o.hn
left join opdscreen s on o.vn=s.vn
left join clinicmember c on c.hn=o.hn
where o.vstdate between '2012-01-01' and '2012-06-30'
and c.clinic ="001"
order by o.hn,o.vn

inc01-inc17 ใน vn_stat ตรวจสอบตาม income_group คับ

select sum(er.er_emergency_type=1) 'Emergency'
,sum(er.er_emergency_type=2) 'Urgent'
,sum(er.er_emergency_type=3) 'illness'
,sum(er.er_emergency_type=4) 'Non_illness'
,sum(v.pcode in ('uc','aa','ab','ac','ad','ae','af','ag','ah','ai','aj','ak','al')) 'UC'
,sum(v.pcode in ('a2')) 'A2'
,sum(v.pcode in ('a7')) 'A7'
,sum(v.pcode not in ('uc','aa','ab','ac','ad','ae','af','ag','ah','ai','aj','ak','al','a2','a7')) 'Other'
,sum(o.ovstost='54') 'referout'
,sum(o.ovstist='04') 'referin'
from er_regist er
left join ovst o on o.vn=er.vn
left join vn_stat v on o.vn=v.vn
where er.vstdate between '2012-1-1' and '2012-1-31'
ลองเอาคำสั่งไป run ดูคับ

_is:=getsqlstringdata('select char(39) as cc');
_sql:='select * from person_anc_service where service_text regexp '+_is+'ฉีดวัคซีนบาดทะยักเข็มที่ 1'+_is;
changereportsql(_sql);
ประมาณนี้มั๊ย
MSN:=woravet12@hotmail.com

หา file ไม่เจอคับ

มี script สร้าง Table/Index จาก hosxp_ddl_field บ้างมั๊ยคับ

ผมอยาก SET lower_case_table_names=1 ตรงไหนคับ

Value :=   GetSQLStringData('SELECT clinic.name ' +
'FROM clinic '+
'INNER JOIN oapp ON oapp.clinic = clinic.clinic '+
'where oapp.oapp_id="'+DBPipeline['oapp_id']+'" ');

select ชื่อตารางอักษรตัวใหญ่ แล้วไม่ได้ข้อมูลออกมา
select * from VN_STAT limit 10 ไม่ได้ข้อมูล
แต่ select * from vn_stat limit 10 มีข้อมูล
จะต้องตรวจสอบ หรือแก้ไขอย่างไรบ้างครับ

select px.icode,d.name
,sum(if(length(px.vn)>9,px.qty,0)) 'OPD_Qty'
,sum(if(length(px.vn)>9,px.sum_price,0)) 'OPD_Price'
,sum(if(length(px.vn)>9,0,px.qty)) 'IPD_Qty'
,sum(if(length(px.vn)>9,0,px.sum_price)) 'IPD_Price'
from opitemrece px
left join drugitems d on px.icode=d.icode
where px.vstdate between '2011-1-1' and '2011-1-1'
and d.name is not null
group by px.icode
order by px.icode

เพิ่มตัวแปร อีกสักตัว
nUric:Integer;
แล้วไปแปลงค่า variable44 เอา
nUric:=strtoint(variable44.value);
*****
น่าจะพอใช้ได้นะ

ดูจากตารางน่าจะเกิดข้อผิดพลาดในการส่งออก
IRFyymm ไม่น่าจะมี refertype=1 ซึ่งน่าจะเป็นของผู้ป่วยนอก
*****
แล้วดู refertype=2 ผมว่า AN น่าจะถูกต้อง