แสดงกระทู้

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.


Messages - woravet

หน้า: 1 ... 5 6 [7] 8 9
301
การเขียน SQL Script / Re: ขอคำสั่ง Sql
« เมื่อ: สิงหาคม 28, 2009, 09:53:01 AM »
select cid,pname,fname,lname,birthdate,year(birthdate)+543 as 'year'
from person
where year(birthdate)+543 in (2518,2513,2508,2503,2498,2493)
ประมาณนี้คับ

302
แจ้งปัญหา / ขอความช่วยเหลือ / Re: Microsoft visual foxpro error
« เมื่อ: สิงหาคม 14, 2009, 09:28:51 AM »
เป็นผลของโปรแกรม Tgrp3 คับ
ตอบ yes
หรือไปลบแฟ้ม FOXUSER.DBF กับ FOXUSER.FPT ที่ C:\Program files\HOSxP\Tgrp3 ออก
แล้วก้อเข้า HOSxP ใหม่คับ

303
select a.aid,ifnull(t.full_name,if(left(a.aid,2)='62','ในจังหวัด','จังหวัดอื่น')) as name
,count(distinct a.hn) as 'case',count(a.hn) as 'total'
,sum(count_in_month=0) as new_month
,sum(count_in_year=0) as new_year
from (select v.vn,v.hn,count_in_year,count_in_month
,if(left(v.aid,4)='6210',v.aid
,if(left(v.aid,2)='62','629999','999999')) as aid
from vn_stat v
where v.vstdate between "2009-07-01" and  "2009-07-31"
and v.age_y>=40 ) a
left join thaiaddress t on a.aid=t.addressid
group by a.aid
order by a.aid


304
select a.aid,ifnull(t.full_name,if(left(a.aid,2)='62','ในจังหวัด','จังหวัดอื่น')) as name
,count(distinct a.hn) as 'case',count(a.hn) as 'total'
from (select v.vn,v.hn
,if(left(v.aid,4)='6210',v.aid
,if(left(v.aid,2)='62','629999','999999')) as aid
from vn_stat v
where v.vstdate between "2009-07-01" and  "2009-07-31"
and v.age_y>=40 ) a
left join thaiaddress t on a.aid=t.addressid
group by a.aid
order by a.aid

ลองแก้เป้นรหัสจังหวัด อำเภอของเรา
ลองดูคับ

305
select v.aid,t.full_name,count(v.vn) as cc
from vn_stat v
left join thaiaddress t on t.addressid=v.aid
where v.vstdate between "2009-07-01" and  "2009-07-31"
and v.age_y>40
group by v.aid

306
Report Exchange / Re: ช่วยกันคิดหน่อยครับ !
« เมื่อ: กรกฎาคม 30, 2009, 15:35:33 PM »
ของ อ.ขวด น่าจะถูกแล้วนะ
mm5:='2009-5-1';
mm6:='2009-6-1';
mm7:='2009-7-1';

Admit=GetSQLDoubledata('select count(*) from an_stat where regdate between "'+mm6+'" and date_add("'+mm7+'",interval -1 day)');
**ที่ผมใช้ mm7 เผื่อใช้กับเดือน กพ. เพราะไม่รู้ว่า 28 หรือ 29 วัน

ยกมา=GetSQLDoubleData('select count(*) from an_stat where regdate <"'+mm6+'" and (dchdate>="'+mm6+'"  or dchdate is null)');

ส่วน and a.ward='01' ผมไม่แน่ใจ เห็นมีแต่ใน Admit ไม่มีในยกมา
ลองดูนะคับ


307
ผมตรวจข้อมูล Slave กับ Master แล้ว Slave มีข้อมูลมากกว่า
ซึ่งผมคิด slave น้อยกว่าหรือแค่เท่ากับ master
มีวิธีตรวจสอบ record ต่อ record มั๊ยคับ


308
select o.vstdate
,count(o.vn) as amount
,sum(o.vsttime between '08:00:00' and '15:59:59') as morning
,sum(o.vsttime between '16:00:00' and '23:59:59') as afternoon
,sum(o.vsttime between '00:00:00' and '07:59:59') as nigth
from ovst o
where o.vstdate between '2009-05-01' and'2009-05-31'
group by o.vstdate

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

 

310
select v.pcode,
sum(if(d.count_in_year =0,1,0l)) as newpt ,
sum(if(d.count_in_year >0,1,0l)) as oldpt ,
count(d.vn) as cc
from dt_list d
inner join vn_stat v on v.vn=d.vn
left join  pttype p on v.pttype=p.pttype
where v.vstdate between "2008-12-01" and "2008-12-30"
and v.aid like "4304%"
group by  p.pcode

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

312
กำหนด parameter ผิด ต้องกำหนดใหม่คับ

313
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 นะคับ

314
ติ๊ก ลงข้อมูลซักประวัติออก

315
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 เอาคับ

316
Report Exchange / Re: ช่วยทีครับER
« เมื่อ: พฤษภาคม 26, 2009, 15:01:51 PM »
select x.code,x.type,x.period,ifnull(y.amount,0) as 'amount'
from (select concat(e1.er_emergency_type,e2.er_period) as 'code'
,e1.name as 'Type',e2.name as 'Period'
from er_emergency_type e1,er_period e2
order by code) x
left join (select concat(e.er_emergency_type,e.er_period) as 'code'
,count(e.vn) as 'amount'
from er_regist e
where e.vstdate between '2009-1-1' and '2009-1-1'
group by e.er_emergency_type,e.er_period) y on x.code=y.code


แบบนี้พอได้ม่ะ

317
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
แบบนี้รึป่าว?

318
Report Exchange / Re: รบกวนผู้รู้ช่วยทีครับ
« เมื่อ: พฤษภาคม 14, 2009, 15:12:15 PM »
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

ตก ) ไปตัวหนึ่ง

319
Report Exchange / Re: รบกวนผู้รู้ช่วยทีครับ
« เมื่อ: พฤษภาคม 14, 2009, 09:50:14 AM »
เอาใหม่
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

320
Report Exchange / Re: รบกวนผู้รู้ช่วยทีครับ
« เมื่อ: พฤษภาคม 14, 2009, 09:45:44 AM »
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='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

321
Report Exchange / Re: รบกวนผู้รู้ช่วยทีครับ
« เมื่อ: พฤษภาคม 07, 2009, 11:52:56 AM »
คำสั่ง 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
แบบนี้ไวมั๊ย เปลี่ยนช่วงเดือนเอาหล่ะกันคับ

322
1.แบบ dx ว่าเป็น I10 และ K30
select v.*
from vn_stat v
left join ovstdiag o1 on v.vn=o1.vn
left join ovstdiag o2 on v.vn=o2.vn
where o1.icd10='I10' and o2.icd10='K30'
and v.vstdate between '2009-1-1' and '2009-1-31'
group by v.vn

2.แบบ dx เป็น I10 หรือ K30
select v.*
from vn_stat v
left join ovstdiag o1 on v.vn=o1.vn
where o1.icd10 in ('I10','K30')
and v.vstdate between '2009-1-1' and '2009-1-31'
group by v.vn

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

324
การเขียน SQL Script / Re: ผู้ป่่วยโรคแทรกซ้อน
« เมื่อ: มีนาคม 30, 2009, 14:56:36 PM »
ลองตรวจสอบข้อมูลของ IPTDIAG ดู เช่น
select a.hn,a.an,a.dchdate,i.icd10
from an_stat a
left join iptdiag i on i.an=a.an
where a.an=510001325
ว่ามีข้อมูลมั๊ย?

325
การเขียน SQL Script / Re: ผู้ป่่วยโรคแทรกซ้อน
« เมื่อ: มีนาคม 30, 2009, 13:53:13 PM »
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

326
การเขียน SQL Script / Re: ผู้ป่่วยโรคแทรกซ้อน
« เมื่อ: มีนาคม 30, 2009, 10:45:14 AM »
select a.hn,a.an,concat(p.pname,p.fname,'  ',p.lname) as ptname
,a.pdx,a.dx0,a.dx1,a.dx2,a.dx3,a.dx4,a.dx5
from an_stat a
left join iptdiag i on i.an=a.an
left join patient p on p.hn=a.hn
where a.dchdate between '2007-12-01' and '2008-09-30'
and i.icd10 between 'E10' and 'E1499'
and (i.icd10 between 'L01' and 'L099' or i.icd10='T793' or i.icd10='L89'
or i.icd10 in ('E105','E115','E145','E100','E110','E119','E149'))
group by a.an

327
แบบนี้ไหวมั๊ย
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 ไหนก้อเพิ่มเองนะคับ

328
select v.hn as HN,replace(p.cardno,'-','') as CID,o.icd10 as ICD10,pt.informname as N1,pt.informaddr as N2,
concat(pt.pname,pt.fname," ",pt.lname) as fullname,s.name as sex ,pt.birthday,
v.vstdate,na.name as nationality,pt.hometel
from vn_stat v,ovstdiag o,visit_pttype vp,ptcardno p,patient pt
left outer join sex s on s.code=pt.sex
left outer join nationality na on na.nationality=pt.nationality
where v.vn=o.vn and v.vn=vp.vn and v.hn = pt.hn and vp.pttype="52"
and o.icd10 in ("Z021","Z027") and p.hn=v.hn
and v.vstdate between "2008-02-11" and "2008-02-11" group by v.hn

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


330
ขอทราบวิธีใช้งาน ReSync-VN หรือ AN หน่อยครับ
*****
ของ VN ใช่ไปที่เมนูผู้ป่วยนอก->บันทึกผลวินิจฉัย แล้ว คลิ๊กขวา
ส่วน AN ไปที่เมนูผู้ป่วยใน->บันทึกผลวินิจฉัย แล้ว คลิ๊กขวา
ใช่มั๊ยครับ
*****
หรือมีวิธีที่จะให้ทำงานโดยระบุทั้งปี หรือ เดือน บ้างมั๊ยครับ


331
การเขียน SQL Script / Re: คำสั่ง การแสดงผล
« เมื่อ: สิงหาคม 21, 2008, 16:30:21 PM »
select if(inregion='Y','PCU','N') as inregion
from patient

332
ใช้ VFP9 ครับ
ตัว runtime ต้องไป d/l ที่ สกส.  หรือ www.thaifox.net/vfoxpro

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

334
แฟ้ม NUTRI ของผม มทั้ง PID และ CID ครับ

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

336
พอดีส่งข้อมูลแล้ว สปสช.ไม่สามารถเปิดแฟ้มได้

337
Report Exchange / Re: 5 อันดับโรคที่พบบ่อยของ OPD
« เมื่อ: สิงหาคม 05, 2008, 13:33:45 PM »
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 ใหม่เป็นภาษาไทย

338
Report Exchange / Re: 5 อันดับโรคที่พบบ่อยของ OPD
« เมื่อ: สิงหาคม 04, 2008, 17:43:27 PM »
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 amount desc
limit 5

ที่อยู่คงได้แค่ aid เท่านั้น


339
Report Exchange / Re: 5 อันดับโรคที่พบบ่อยของ OPD
« เมื่อ: สิงหาคม 04, 2008, 15:10:02 PM »
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.

340
แจ้งปัญหา / ขอความช่วยเหลือ / Re: แฟ้มwoman,nutri
« เมื่อ: กรกฎาคม 23, 2008, 16:32:22 PM »
น่าจะเกิดจากความกว้างของ weigth น้อยกว่าจำนวนที่คำนวณได้จาก HOSxP
*****
ใช้ VFP อยู่ ใช่มั๊ยครับ
ลอง use (ชื่อแฟ้มที่ต้องการ)
แล้ว modi stru
แก้ไขความกว้างของฟิล์ด weigth ให้ใหญ่ขึ้น

341
การเขียน SQL Script / Re: ขอคำสั่ง SQl ครับ
« เมื่อ: กรกฎาคม 23, 2008, 16:28:50 PM »
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.* ก้อได้นะครับ
ส่วนที่อยู่แก้ไขตามต้องการนะครับ
ข้าราชการ คงเป็นสิทธิเบิกได้ ทุกอย่าง ทุกโครงการ ใช่มั๊ยครับ

342
ผมใช้คำสั่ง sql
select o.hn,v.cid,o.oqueue,v.age_y,v.age_m,s.bw,s.height,s.bmi,d.name as doctor_name
from ovst o
left join vn_stat v on v.vn=o.vn
left join opdscreen s on s.vn=o.vn
left join doctor d on d.code=v.dx_doctor
where o.vstdate between '2007-10-1' and '2007-10-31' and v.age_y<=5
แล้วมากรองเอา

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

344
จากการตรวจสอบแฟ้ม nutri
ไม่ผ่าน ขึ้นว่า นำไม่ได้เลย(format ไม่ถูกต้อง) ไม่สามารถเปิดไฟล์ได้
ส่งเป็น dbf แก้ไขอย่างไรครับ
*****
รพ.ใด ส่งผ่านบ้างครับ ขอดูตัวอย่างบ้างครับ

345
Development / Re: VFP9+ADO+MySQL5 ตัวอย่างโปรแกรมครับ
« เมื่อ: กรกฎาคม 11, 2008, 16:21:06 PM »
หรือจะลองทำแบบ 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 ขึ้นไป

346
select  p.hn,p.pname,p.fname,p.lname,v.age_y,p.moopart,p.tmbpart
from patient p
left  join vn_stat v on v.hn = p.hn
left join ovstdiag o on o.vn=v.vn
where v.vstdate  between '2008-1-1' and '2008-1-31'
and p.moopart='4'
and p.tmbpart='01'
and o.icd10 between 'i10' and 'i1599'
group by p.hn
order by p.hn

**ระวังไม่ระบุรหัสจังหวัดจะเป็นของจังหวัดอื่นได้ ถ้ามีข้อมูล
**ระวัง moopart ระบุอย่างไรบ้าง

348
ผมจะ add network printer แล้วขึ้นแบบนี้ แก้ไขอย่างไรครับ

349
Report Exchange / Re: ขอความช่วยเหลือ
« เมื่อ: เมษายน 28, 2008, 14:15:55 PM »
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

350
ผมทำการ Update Structure ของ HOSxP_PCU จาก HOSxP_PCU แล้ว Error
ใช้ HOSxP 3.51.3.28 , HOSxP_PCU_Full 3.51.3.18,MySQL 4.1

หน้า: 1 ... 5 6 [7] 8 9