ลองเอาค่าใน field hos_guid ของตาราง opitemrece ไปค้นจาก replicate_log ด้วยคำสั่งนี้ครับ

select * from replicate_log where `sql` like '%{xxxxx-xxxx-xxxx-xxxx-xxxx}%'

ไม่รู้ผมตีโจทย์ถูกเปล่านะครับ
-สิทธิปัจจุบัน ณ ตอนที่รัน รายงาน ? ต้อง join ไปตาราง patient กับ pttypeno เพื่อดึงสิทธิปัจจุบัน
-ส่วน hospsub เป็นค่าว่าง ? น่าจะเป็นสิทธิชำระเงินเอง หรือสิทธิที่ไม่ต้องใส่ hospmain และ hospsub
ถ้าเข้าใจแบบนี้ น่าจะได้ query ประมาณนี้ครับ

select h.name,h.hospcode,count(vn.vn) as sumvn,count(distinct vn.hn) as cc
from vn_stat vn
inner join patient pt on pt.hn = vn.hn
left join pttypeno pttn on pttn.hn = pt.hn and pttn.pttype = pt.pttype
left join pttype ptt on ptt.pttype = pttn.pttype
left join hospcode h on h.hospcode = pttn.hospsub
left join clinicmember cm on cm.hn = vn.hn
where vn.vstdate between '2011-08-01' and '2011-08-31'
and ptt.pcode <> 'A1'
group by vn.hospsub
order by cc desc

อ้างจาก: เข้ม ที่ กันยายน 22, 2011, 13:08:38 PM

อ้างจาก: NaYDeKDee ที่ กันยายน 22, 2011, 11:55:17 AM

เข้า  systemsetting  โลด ไป ติดเลือก คนไข้แอดมิดไม่สามารถส่งตรวจได้

หาไม่เจอ ... 3.54.5.15  

3.54.9.18 ก็หาไม่เจอครับ

hosxp3.54.8.19b   มีหรือครับผมหาไม่เห็น

รพ.ผมก็มีปัญหาเหมือนกันครับในตาราง ICD101 มี R51,R5100,R5101 มีทั้งสามตัวครับถ้าเราจะลบ R5100 และ R5101 ออกในรายที่เรา diag ไปแล้วและมีในฐานข้อมูลที่ผ่านมาจะมีปัญหาอะไรไหมครับ และก็มีอีกตัวครับคือ M9400 พวกนี้ถ้า diag เป็น M940 ตรวจผ่านใน 18 แฟ้ม แต่เวลาลง Diag ใน Hosxp บังคับให้ลงครบ 4 หลัก คือ M9400 และในส่วนของ R51 ก็บังคับให้ลงเป็น R5100 หรือ R5101 ครับ ไม่ทราบว่าอาจารย์ท่านใดพอมีแนวทางแก้ไขหรือมีคำสั่งในการแก้อย่างไรบ้างครับ ลอง Up Version Hosxp ลงแล้วก็ยังเป็นเหมือนเดิมครับ ปัจจุบันใช้ Hosxp version 3.54.8.22 ครับ

อี๊ด ครับ
รพร.บ้านดุง ฐานจริง up 3.54.9.14

                      ส่วน client V.3.54.8.8

ก็ยังไม่พบปัญหานะครับ

ห้อง ER  เวลาคลิกที่ปุ่มบันทึก  ใช้เวลานานมากเลยครับ  คลิกอะไรต่อก็ไม่ได้
ไม่รู้ว่าบันทึกหรือเปล่า

ออกให้ทดสอบครับ  เป็น  web service โปรแกรมบริหารบุคลากร (เวอร์ชัน รพร.ด่านซ้าย นะครับ)
มีทะเบียนประวัติ
ประวัติการศึกษา
ทะเบียนการลา
ทะเบียนฝึกอบรม
ทะเบียนเงินเดือน
แผนศึกษาต่อ
ประวัติเครื่องราชฯ

พัฒนามาจากโปรแกรม BiographyNew ที่เป็น  access 2003
เป็น php  นะครับ อาจจะเก่าหน่อย(ไม่ค่อยสวยเท่าไร)
ท่านไหนเอาไปใช้ก็สามารถพัฒนาเพิ่มเติมได้นะครับ
ไฟล์  sql จะอยู่ใน ไฟล์ rar  นะครับ

ปล. โหลดไฟล์ใหม่นะครับ  ลืมแนบตาราง  login  ให้ครับ

ตั้งค่าที่วิธีการใช้ยา  และรายการยา

อ้างจาก: usa0823 ที่ สิงหาคม 19, 2011, 09:35:55 AM

เห็นด้วยครับ เพราะคำนวนตามวันนัดยาจะออกเศษครับ

แต่คนไข้ก็จะได้ยาครบ พอดีกับวันนัด
ถ้ากินเหลือหรือขาดก็จะทำให้ทราบว่าคนไข้กินถูกหรือไม่
ยาก็ไม่ต้องไปเหลือที่คนไข้ ช่วยประเทศชาติ

แต่จริงๆก็อยู่ที่ระบบ อันนี้เป็นแค่ตัวช่วย 
แต่ก็ต้องขอบคุณ อาจารย์ชัยพร ที่ให้เราได้ใช้งานสะดวกขึ้น 

ใช่เลยครับ...อ.ชัยพร..SA ระบบยาได้เยอะมาก ช่วยให้งานบริการมีคุณภาพขึ้นอีกเยอะ 

เอามาแจก และให้ทดสอบครับ เป็นรายงานการ Re-Visit ของ
ผู้ป่วยนอกทั้งหมดครับ รูปร่างหน้าตาคร่าวๆ ดังรูปครับ

คิดว่ามีข้อบกพร่อง แน่นอน (น้อมรับคำแนะนำเสมอครับ) ถ้าไม่มีก็แล้วไปครับ
ผมเอาจากในบอร์ดนี้ มา พัฒนาต่อครับ หัดเขียนไปเรื่อยๆ เผื่อจะเก่งเหมือน
ท่านเทพในบอร์ดแห่งนี้บ้าง

หวังว่าคงเป็นแนวทางสำหรับท่านที่กำลังหัดเขียน Report เหมือนกัน
หรือท่านที่นำไปใช้นะครับ  แก้ไข ต่อเติมได้ ไม่ว่ากัน แต่อย่าลืม
เอามาแจกกันต่อด้วยนะครับ     

ลองแก้ไข+เพิ่มเติม เป็นรายงาน revisit in 48 hr. กับ เลือก diag 2 แบบ - diag เดียวกัน กับ คนละ diag ในแต่ละ revisit

' revisit in 48 hr, diag เดียวกัน

select op.vn as vn_1,op.vstdate as d1,i1.name as icdname_1,d1.name as doctor_name1,
 concat(p.pname,"",p.fname,"  ",p.lname) as ptname ,
 v.hn,count(v.hn),
op2.vn as vn_2,op2.vstdate as d2,op.vsttime as time_1,op2.vsttime as time_2, i2.name as icdname_2, d2.name as doctor_name2 ,
(((to_days(op2.vstdate)*24)- ((to_days(op.vstdate)*24)) + (( time_to_sec(op2.vsttime))/3600)) - (( time_to_sec(op.vsttime))/3600))
as revist_time
from opitemrece op
left outer join vn_stat v on v.vn=op.vn
left outer join ovst o on o.hn=v.hn  and o.vn > v.vn  and o.vn is not null
left outer join vn_stat v2 on v2.vn=o.vn
left outer join opitemrece op2 on o.vn=op2.vn and  op2.vn is not null
left outer join icd101 i1 on i1.code=v.pdx
left outer join icd101 i2 on i2.code=v2.pdx
left outer join doctor d1 on d1.code=v.dx_doctor
left outer join doctor d2 on d2.code=v2.dx_doctor
left outer join patient p on p.hn=o.hn 
where op.vstdate between'2009-03-01'and'2009-03-01'
 and (((to_days(op2.vstdate)*24)- ((to_days(op.vstdate)*24)) + (( time_to_sec(op2.vsttime))/3600)) - (( time_to_sec(op.vsttime))/3600)) between 0.001 and 48
and v.pdx=v2.pdx
group by v.hn
having count(v.hn)>1
order by op.vstdate

...............................................................

' revisit in 48 hr, คนละ diag 


select op.vn as vn_1,op.vstdate as d1,i1.name as icdname_1,d1.name as doctor_name1,
 concat(p.pname,"",p.fname,"  ",p.lname) as ptname ,
 v.hn,count(v.hn),
op2.vn as vn_2,op2.vstdate as d2,op.vsttime as time_1,op2.vsttime as time_2, i2.name as icdname_2, d2.name as doctor_name2 ,
(((to_days(op2.vstdate)*24)- ((to_days(op.vstdate)*24)) + (( time_to_sec(op2.vsttime))/3600)) - (( time_to_sec(op.vsttime))/3600))
as revist_time
from opitemrece op
left outer join vn_stat v on v.vn=op.vn
left outer join ovst o on o.hn=v.hn  and o.vn > v.vn  and o.vn is not null
left outer join vn_stat v2 on v2.vn=o.vn
left outer join opitemrece op2 on o.vn=op2.vn and  op2.vn is not null
left outer join icd101 i1 on i1.code=v.pdx
left outer join icd101 i2 on i2.code=v2.pdx
left outer join doctor d1 on d1.code=v.dx_doctor
left outer join doctor d2 on d2.code=v2.dx_doctor
left outer join patient p on p.hn=o.hn 
where op.vstdate between'2009-03-01'and'2009-03-01'
 and (((to_days(op2.vstdate)*24)- ((to_days(op.vstdate)*24)) + (( time_to_sec(op2.vsttime))/3600)) - (( time_to_sec(op.vsttime))/3600)) between 0.001 and 48
and v.pdx<>v2.pdx
group by v.hn
having count(v.hn)>1
order by op.vstdate

..........................................................................

// ลองรันดูนะครับ

ผมลองแล้วแต่ยังไม่ได้ลองทานสอบกับ database แบบ manual ดู 

 Value :=  GetSQLStringData('select concat(a.op0,"   ",icd9.name) as cc0  '+
' from an_stat a  left join  iptoprt  i on a.an=i.an and a.op0=i.icd9 '+
        ' left join  icd9cm1 icd9 on icd9.code=a.op0 '+
       ' where i.an="'+DBPipeline['an']+'" ');

Value :=GetSQLStringData('select i.opdate from iptoprt  i '+
        ' left join an_stat a on a.an=i.an and a.op0=i.icd9 '+
        ' where i.an="'+DBPipeline['an']+'" ');

จาก code เห็นข้อผิดพลาดไหมครับ

แล้วทำไม ถึงใช้ทำ subreport แบบนี้ครับ

โดดอบรมอย่างนั้นแหละ
แนบรายงานมาดูหน่อยครับ ไป join ตารางอื่นมาด้วยหรือเปล่าครับ
แค่นี้ก็น่าจะได้ละนะ

select * from iptoprt  order by an,opdate,optime