BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: yuttasak ที่ ธันวาคม 23, 2010, 14:45:02 PM

หัวข้อ: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: yuttasak ที่ ธันวาคม 23, 2010, 14:45:02 PM
เรียนาหน้าที่ BMS เนื่องจากผมได้ SQL รายงานที่ขอจากเพื่อนสมาชิกแล้ว แต่ยังขาดไปอีกนิดหนึ่งคืออยากให้ตัวรายงานมี
HN แสดงออกมาด้วยครับ และก็สามารถเรียกแยกตามห้องตรวจได้ด้วยครับ เช่นห้องตรวจอายุรกรรม(001),เวชปฎิบัติ(402) ห้องตวจเบาหวาน(007)ไม่ทราบว่าต้องต่อยอดยังงัยครับ
SQL ที่ได้มาตามนี้ครับ
select vn.vstdate,concat(pt.pname,fname,'  ',lname) as ptname,pt.cid,vn.pttype,ptt.name,
vn.pdx,icd.name,vn.income,ost.name
from vn_stat vn
left outer join patient pt on pt.hn=vn.hn
left outer join pttype ptt on ptt.pttype=vn.pttype
left outer join icd101 icd on icd.code=vn.pdx
left outer join ovst ovs on ovs.vn=vn.vn
left outer join ovstost ost on ost.ovstost=ovs.ovstost
where vn.vstdate between '2010-11-01' and '2010-11-01'
หัวข้อ: Re: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: nahos ที่ ธันวาคม 23, 2010, 14:59:21 PM

ออกหน่วยมีห้องตรวจด้วยเหรอครับ

 ???
หัวข้อ: Re: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: yuttasak ที่ ธันวาคม 23, 2010, 15:09:19 PM
ออกหน่วยตรวจข้างนอก.....แต่เวลาเอามากรอกในโรงพยาบาลเป็นห้องตรวจ ออกหน่วยแพทย์ครับผม :)
หัวข้อ: Re: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: phatipan2 ที่ ธันวาคม 24, 2010, 09:52:42 AM
ลองใช้คำสั่งนี้ ไปเขียนรายงานดูครับ
 GetDateRangeDialog(d1, d2);
ds1:=formatdatetime('yyyy-mm-dd',d1);
ds2:=formatdatetime('yyyy-mm-dd',d2);

    suchat:= GetPickupList('select department from kskdepartment');

   ChangeReportSQL('select vn.vstdate,vn.hn,concat(pt.pname,pt.fname,"  ",pt.lname) as ptname,pt.cid,vn.pttype,ptt.name,  '+
'vn.pdx,icd.name,vn.income,ost.name ,k1.department,k2.department  '+
'from vn_stat vn      '+
'left outer join patient pt on pt.hn=vn.hn    '+
'left outer join pttype ptt on ptt.pttype=vn.pttype  '+
'left outer join icd101 icd on icd.code=vn.pdx  '+
'left outer join ovst ovs on ovs.vn=vn.vn  '+
'left outer join ovstost ost on ost.ovstost=ovs.ovstost  '+
'left outer join kskdepartment k1 on k1.depcode = ovs.main_dep '+
'left outer join kskdepartment k2 on k2.depcode = ovs.last_dep '+
'where vn.vstdate between "'+ds1+'" and "'+ds2+'" '+
'and (k1.department = "'+suchat+'"  or k2.department = "'+suchat+'")');
end;
หัวข้อ: Re: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: yuttasak ที่ ธันวาคม 24, 2010, 15:42:09 PM
นำเข้าแล้วไม่ได้ครับผม...เป็นแบบนี้แหละครับ
หัวข้อ: Re: เรียนเจ้าหน้าที่ BMS ช่วยต่อยอดรายงานให้ด้วยครับ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ ธันวาคม 24, 2010, 15:56:23 PM
ลอลเอาเครื่องหมาย  ( ' ) ออกให้หมดครับ... เหลือไว้แค่ (" " )