รายงานผลการตรวจสุขภาพเจ้าหน้าที่

[Bluebird]

ช่วยรายงานผลการตรวจสุขภาพเจ้าหน้าที่
ตามรูปน่ะครับ

[atit]

ส่งตัวอย่าง form ขึ้นมาดูครับเดี๋ยวท่าน neo จอมขยันก็มาทำให้ครับ ฮิฮิ

[golf_win]

ส่งฟอร์มขึ้นมาครับ

[Bluebird]

แบบฟอร์มนี้เลยครับ แต่ยังไม่ได้ดึงรายการ LAB อีกครับ

[thannawe]

รอท่าน neo ครับ

[Bluebird]

ยังเขียนคำสั่ง valible ไม่ได้อีกครับ เพื่อ ดึง ผล Lab แต่ละรายการ

[Bluebird]

select p.pname,p.fname,p.lname,o.age_y,d.bw,d.height,d.bps,d.bpd,d.bmi,d.waist,b.lab_items_name_ref,b.lab_order_result,concat(pname,fname,"  ",lname) as fullname
 from vn_stat o 


left outer join patient p on p.hn = o.hn
left outer join opdscreen d on d.vn = o.vn
left outer join lab_head a on a.vn = d.vn
left outer join lab_order b on b.lab_order_number = a.lab_order_number
where  o.vstdate between '2009-07-20'  and '2009-07-28'     and  p.work_addr= "รพ.ระแงะ"  and o.pdx="z000"
order by o.vstdate

[nuttavut]

ยังเขียนคำสั่ง valible ไม่ได้อีกครับ เพื่อ ดึง ผล Lab แต่ละรายการ

ก๊อปคำสั่งนี้ ไปใสใน Variable  จากนั้นแก้ lab_items สีแดงให้ตรงกับ รหัสที่ใช้งานอยู่

Value :=  GetSQLStringData('select lo.lab_order_result from lab_head lh   '+
            ' left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+
            ' left outer join lab_items li on li.lab_items_code=lo.lab_items_code '+
            ' where lo.lab_items_code in("4","155") and lh.vn ="'+dbpipeline['vn']+'" ');

[nummon]

sql เแรกหา lab_order_number ที่เป็นการตรวจสุขภาพ (ไม่ต้องดึง lab_order_result)

select p.pname,p.fname,p.lname,o.age_y,d.bw,d.height,d.bps,d.bpd,d.bmi,d.waist,a.lab_order_number,concat(pname,fname,"  ",lname) as fullname
from vn_stat o 

left outer join patient p on p.hn = o.hn
left outer join opdscreen d on d.vn = o.vn
left outer join lab_head a on a.vn = d.vn
where  o.vstdate between '2009-07-20'  and '2009-07-28'     and  p.work_addr= "รพ.ระแงะ"  and o.pdx="z000"
order by o.vstdate

แล้วสร้าง variable โดยใช้  lab_order_number  ใน pipeline
มาหา  lab_order_result ที่ตรงกับแต่ละ items (เป็นแถว)(3 ของรพ.ผมเป็น Hct)

Value := GetSQLStringData('select lab_order_result from lab_order '+
        ' where lab_order_number="'+DBPipeline['lab_order_number']+'" and '+
        ' lab_items_code="3"')

[Bluebird]

ขอบคุณคุณ Nuttavut

สำเร็จแล้วครับ
ลองดู