Lap ต้องการใบแล็ปตรวจของแรงงานพม่า ช่วยแนะนำหน่่อยครับ

[joyjoy]

คือว่าที่ รพ. ต้องการใช้งานใบแล็ปที่เป็นเฉพาะของแรงงานต่างด้าวนะครับ ช่วยแนะนำวิธีทำหน่อยครับผมเป็น admin ใหม่ครับช่วยสอนผมหน่อยครับทุกท่าน

[golf_win]

ก็พิมพ์ใบรายงานผล lab ก็ได้แล้วครับ ลองตรวจสอบ Form-Labreport -1

[udomchok]

คือว่าที่ รพ. ต้องการใช้งานใบแล็ปที่เป็นเฉพาะของแรงงานต่างด้าวนะครับ ช่วยแนะนำวิธีทำหน่อยครับผมเป็น admin ใหม่ครับช่วยสอนผมหน่อยครับทุกท่าน

แบบนี้ไหวไหม

[udomchok]

ช่วงนี้อยู่ในระหว่างการตรวจสุขภาพแรงงานต่างด้าว ก็มีน้องที่เอ็กซเรย์มาปรึกษาเกี่ยวกับการนำ HOSxP ไปช่วยในงานตรวจต่างด้าว ก็เลยลองออกแบบระบบว่าจะประยุกต์ใช้ HOSxP อย่างไรบ้าง (โดยไม่ได้ใช้ระบบตรวจสุขภาพ) สุดท้ายก็ออกมาแบบนี้ครับ
1. กำหนดสิทธิผู้ใหม่เพิ่มมาใหม่ 1 สิทธิ คือ 9A แรงงานต่างด้าว(ตรวจสุขภาพ) แล้วกำหนดให้ค่าใช้จ่ายของสิทธินี้เป็นลด 100% สำหรับเอ็กซเรย์ และ LAB
2. เพิ่มหมวดค่าใช้จ่ายอีก 2 หมวด (เพื่อใช้ออกในใบเสร็จจาก HOSxP) คือ
      - ค่าบริการตรวจสุขภาพประจำปี
      - ค่าประกันสุขภาพแรงงานต่างด้าว
และเพิ่มรายการค่ารักษาพยาบาลมาอีก 2 รายการ โดยใช้ชื่อเดียวกับหมวดค่าใช้จ่ายข้างต้น พร้อมทั้งกำหนดให้อยู่ในหมวดที่ถูกต้องตรงกัน และกำหนดให้ใช้เฉพาะสิทธิ 9A แรงงานต่างด้าว(ตรวจสุขภาพ)
3. ที่สิทธิ 9A แรงงานต่างด้าว(ตรวจสุขภาพ) กำหนดให้เพิ่มค่าธรรมเนียมอัตโนมัติ 2 รายการ(พอดี...ที่ค่าธรรมเนียมสิทธิที่ต้องชำระเอง 1 และ 2)
4. กำหนดให้ห้องบัตรลงทะเบียนส่งตรวจแรงงานต่างด้าวที่มาตรวจสุขภาพ ส่งตรวจด้วยสิทธิที่กำหนด (9A แรงงานต่างด้าว(ตรวจสุขภาพ)) ไปยังคลินิกที่กำหนด (คลินิกอาชีวเวชกรรม)
5. ห้องบัตรสามารถพิมพ์สรุปการลงทะเบียนแยกตามนายจ้าง เพื่อตรวจสอบความถูกต้อง (และใช้ส่งข้อมูลให้จุดตรวจสุขภาพแรงงานต่างด้าว) เพื่อให้ทราบว่ามีใครมาลงทะเบียนตรวจบ้าง (fwf_card)
6. หลังจากแรงงานต่างด้าวมาก็ทำการชั่งน้ำหนัก วัดส่วนสูง BP ซึ่งสามารถบันทึกข้อมูลลงในเอกสารจากข้อ 5 ได้ (แต่เมื่อวันศุกร์ที่ปรับเปลี่ยนไปใช้ "บัตรคิว" แทน....เดี๋ญวจะให้ดูตัวอย่างอีกที)
7. ส่งข้อมูลมาบันทึกโดยใช้ระบบคัดกรอง ลงข้อมูล น้ำหนัก ส่วนสูง BP และสั่ง LAB พร้อมทั้งพิมพ์ sticker Bar Code (ให้ LAB ใช้แปะ tube เลือด)
8. ส่งตัวไปเก็บฉี่ และกินยา LAB ก็จะบันทึกข้อมูลการตรวจปัสสาวะ (Methamp. กับ UPT) ลงในแบบฟอร์มที่ LAB พิมพ์มาจาก HOSxP (fwf_lab)
9. ส่งตัวไปเอ็กซเรย์
10. ครบเวลา 30 นาที ก็มาเจาะเลือด
11. เมื่อตรวจครบทีมก็มาให้นายจ้างเสียเงิรชน จนท.ที่เก็บเงินก็เก็บเงินได้ ป้อน HN (หรือยิง Bar Code) ก็ออกใบเสร็จได้ (ต้องตรวจสอบก่อนว่ามีรายการสั่ง LAB และ X-Ray แล้ว)
12. นายจ้างรับใบนัด (fwf_appoint) และใบเสร็จเพื่อมารับใบรับรองแพทย์ตามวันที่นัด

นอกจากนี้ยังตรวจสอบได้อีกด้วยว่ามีการสั่ง LAB ผิดพลาดหรือไม่ (ถ้าผิดพลาดช่อง Ch จะเป็น N) จาก fwf_laborder โดยจะตรวจสอบเพศกับใบสั่ง LAB

เมื่อวันพฤหัสได้ลองออกแบบบัตรประกันสุขภาพ (fwf_health_card) ให้สามารถ print มาจากจุดคัดกรองได้เลย เป็น sticker ใช้แปะบนบัรประกันสุขาพที่ประทับชื่อ ผอ. และนายแพทย์ สสจ. มาแล้ว (แต่อันนี้มีปัญหาว่า set printer Zebra อีกตัวไม่ได้ กะว่าจะได้ไม่เปลื่องคอมพิวเตอร์ ก็เลยใช้คอมตัวเดียว แต่จะให้ออก Sticker Bar Code [LPT] และ Sticker บัตรประกัน [USB]...มันไม่ยอม detect printer อีกตัว)

เมื่อผล LAB ออกแล้วสามารถสรุปเป็นทะเบียนการตรวจ (fwf_summary) ออกมาได้เลย โดยมีผล LAB ออกมาด้วย หากรายการไหนไม่ได้ตรวจเช่น UPT ในผู้ชายจะขึ้นเป็น - แทน ""

ครบวันนัดก็สามารถพิมพ์ใบรับรองแพทย์ออกมาได้เลย (check กับผล LAB เลย ไม่ต้องมานั่งติ๊กอีก)...อันนี้ยังไม่เรียบร้อยดี

ทั้งหมดนี่ก็ทำไป...ปรับไป..แก้ปัญหาไป  ยังไม่ลงตัวซทีเดียว ปัญหายุ่งยากคือต้องยกคอมพิสเรอ์เข้า ๆ ออก ๆ ต้องไป set ให้ทุกวัน เพราะไม่มีห้องตรวจเฉพาะ ใช้ที่ว่าง ๆ ในตึกเก่า

[udomchok]

อันนี้ตัอย่างบัตรคิว

[doramon]

ทำแบบเดียวกับพี่ โก  ครับ แต่ว่าทำให้เสร็จในวันเดียวมาแล้วได้เอกสารกับไปเลย 

 

[joyjoy]

ขอบคุณมากครับสำหรับแนวทาง

[udomchok]

ทำแบบเดียวกับพี่ โก  ครับ แต่ว่าทำให้เสร็จในวันเดียวมาแล้วได้เอกสารกับไปเลย 

 

เริ่มทำตอนบ่ายโมง ต้องรอผล LAB ยังไงก็ไม่เสร็จในวันเดียวครับ ต้องรอแพทย์เซ็นชื่ออีก

[atit]

 

[udomchok]

อันนี้ใบรับรองแพทย์

[วีระวัฒน์ (เอก)]

ของผมมีระบบจองคิวล่วงหน้า รับไม่เกินวันละ 400 คน รับใบรับรองแพทย์วันรุ่งขึ้นครับ เพิ่งทำคู่มือเสร็จ เรียบเรียงแล้ว จัดส่งให้ครับ

[udomchok]

ปรับแก้ ใบรับรองแพทย์
การใช้ function Pos(substr,S) ในการแก้ปัญหา

ผมทำรายงานผลการตรวจร่างกายแรงงานต่างด้าวที่มาซื้อประกันสุขภาพ
ในการตรวจผมีผล LAB เรื่องของสารเสพติด
สมัยก่อน LAB จะรายงานผลว่า "Not Found"
ต่อมาเปลี่ยนเป็น "ตรวจไม่พบสารเสพติด แอมเฟตามีน ในปัสสาวะ"
ช่วงนี้มีการเปลี่ยน LIS วันนี้มีการโทร.มาแจ้งว่าผลตรวจในใบรับรองแพทย์ออกมาผิด
ผมก็ดูแล้วว่า code ไม่ผิดอะไร กลับไปไล่การลงผล ปรากฏว่ามีการลงเป็น "
ตรวจไม่พบสารเสพติด สารประกอบ Methamphetamine ในปัสสาวะ" ซะงั้น

จากเดิมที่เคย detect ว่า ถ้าพบคำว่า "ตรวจไม่พบสารเสพติด แอมเฟตามีน ในปัสสาวะ" ให้ติ๊กที่ช่อง "ปกติ" มาวันนนี้ใบรับรองแพทย์กลายเป็นรายงานผลสารเสพติด "ผิดปกติ" ทุกราย

ผมจึงมาใช้ Function Pos(substr,S) ช่วยครับ โดยหากมีคำว่า "ไม่พบ" ก็จะให้ค่าเป็น "ปกติ"

มาดูการเขียน script กันครับ ผมตัดตอนให้แสดงว่า "ปกติ" หรือ "ผิดปกติ" นะครับ
รายงานจริง ๆ จะเป็น check ในช่อง [ ] ปกติ [ ] ผิดปกติ

r_Methamp = GetSQLStringData('select lab_order_result from lab_order lo join lab_head lh on lh.lab_order_number = lo.lab_order_number where lo.lab_items_code="692" and lh.vn="'+DBPipeline['vn']+'" and lh.lab_receive_number > 0');

If r_Methamp ='' then
Text := '';
else
If Pos('ไม่พบ',r_Methamp) > 0 then
Text := 'ปกติ';
else
Text := 'ผิดปกติ';

อันนี้ตัวจริง
r_Methamp := GetSQLStringData('select lab_order_result from lab_order lo join lab_head lh on lh.lab_order_number = lo.lab_order_number where lo.lab_items_code="692" and lh.vn="'+DBPipeline['vn']+'" and lh.lab_receive_number > 0');
If r_Methamp = '' then
begin
lblMethampN.visible := false;
lblMethampP.visible := false;
lblMethampT.visible := false;
end
else
If Pos('ไม่พบ', r_Methamp) > 0 then
begin
lblMethampN.visible := true;
lblMethampP.visible := false;
lblMethampT.visible := false;
end
else
begin
lblMethampN.visible := false;
lblMethampP.visible := true;
lblMethampT.visible := false;
end;