BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: Bluebird ที่ กรกฎาคม 26, 2009, 16:25:58 PM

หัวข้อ: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: Bluebird ที่ กรกฎาคม 26, 2009, 16:25:58 PM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: atit ที่ กรกฎาคม 26, 2009, 17:29:52 PM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: golf_win ที่ กรกฎาคม 26, 2009, 22:25:57 PM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: Bluebird ที่ กรกฎาคม 27, 2009, 09:58:20 AM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: thannawe ที่ กรกฎาคม 27, 2009, 10:10:11 AM

รอท่าน neo ครับ ;D :D

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: Bluebird ที่ กรกฎาคม 28, 2009, 08:33:51 AM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: Bluebird ที่ กรกฎาคม 28, 2009, 11:05:43 AM

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

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: nuttavut ที่ กรกฎาคม 28, 2009, 11:25:01 AM

อ้างจาก: bluebird ที่ กรกฎาคม 28, 2009, 08:33:51 AM

ยังเขียนคำสั่ง 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']+'" ');

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: nummon ที่ กรกฎาคม 28, 2009, 11:54:18 AM

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"')

หัวข้อ: Re: รายงานผลการตรวจสุขภาพเจ้าหน้าที่
เริ่มหัวข้อโดย: Bluebird ที่ กรกฎาคม 28, 2009, 12:46:29 PM

ขอบคุณคุณ Nuttavut

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