BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: bbbas ที่ กุมภาพันธ์ 11, 2015, 12:20:33 PM
-
เป็นรายงานการใช้ยาทุกตัวของโรงพยาบาลครับ แต่ปัญหาคือยาบางตัวไม่มีข้อมูลครับ ทั้ง ๆ ที่ดูจากใบสั่งยาแล้วก็มีการสั่งใช้ครับ ไม่ทราบว่ารายงานต้องปรับตรงไหน หรือขอคำแนะนำ หรือที่ไหนมีฟอร์มรายงานแบบนี้ ผมขอความอนุเคราะห์ด้วยน่ะครับ
ตัวอย่างโค้ดครับ
GetDateRangeDialog(date1, date2);
ds1:= FormatDatetime('yyyy-mm-dd', Date1);
ds2:= FormatDatetime('yyyy-mm-dd', Date2);
p1:= GetPickupList('select name from drugitems ');
if p1 <>'' then
begin
p2:= GetSQLStringData('select icode from drugitems where name = "'+p1+'"');
ChangeReportSQL('select o.hn,concat(p.pname,"",p.fname," ",p.lname) as fullname, '+
'du.code,o.qty as cc,(case when o.an <> "" then "IPD" else "OPD" end) as type ,o.an,o.rxdate,p.cid from opitemrece o '+
'left outer join drugitems d on d.icode = o.icode '+
'left outer join patient p on p.hn = o.hn '+
'left outer join drugusage du on du.drugusage = o.drugusage '+
'where o.rxdate between "'+ds1+'" and "'+ds2+'" '+
' and o.icode = "'+p2+'" '+
' and o.qty > 0 '+
'order by o.rxdate ASC');
end;
-
พี่โก้ทำไว้เมื่อนานมาแล้วครับ