Delphi Tip
[HOSxP Tip] vn Script ระบบตรวจสอบ ATK กักตัวไม่ครบ 14 วันแล้วหรือไม่

[HOSxP Tip] vn Script ระบบตรวจสอบ ATK กักตัวไม่ครบ 14 วันแล้วหรือไม่

ตอบคำถามสมาชิกท่านหนึ่งให้โจทย์มา ว่าทำระบบ POPUP แสดงเตือน กรณี ATK แล้ว Pos ว่าได้กักตัวครบ 14 วันหรือไม่ ถ้ายังไม่ครบก็แสดงแจ้งเตือน
– ถ้าไม่ครบ 14 วันให้แจ้งเตือน ถ้าครบหรือเกิน 14 วันก็ไม่แสดง POPUP เท่านั้นเอง
ตอบ : ทำได้ รายละเอียดตามนี้ครับ (ทำได้เฉพาะ HOSxP V3 นะครับ และตรวจสอบผล lab ของ ATK โดยถ้าจะนำไปใช้ก็แก้ไข lab_items_code ของ รพ.ท่านเองนะครับ)

-มาเริ่มกันเลย
เตรียมอะไรบ้าง
1. ดาวโหลด script ชื่อ vnscript fcheck_atk_14_u.zip *** vnscript fcheck_atk_14_u.zip (53 downloads ) ***


2. เพิ่ม script นี้ไปแทรกใน SYS_VN_PRE_SCRIPT

if getsqldata(‘select DATEDIFF(now(),(SELECT h.report_date FROM lab_head h ‘+
‘ left outer join lab_order o on o.lab_order_number=h.lab_order_number and o.confirm=”Y” ‘+
‘ and o.lab_order_result<>” ” and o.lab_order_result is not NULL ‘+
‘ WHERE h.hn=”‘+fhn+'” ‘+
‘ AND (o.lab_items_code in (select lab_items_code from lab_items where lab_items_name like”%Rapid%”)) ‘+
‘ AND o.lab_order_result like”%pos%”) ‘+
‘ ) as datedif ‘) > 0 then
begin
//showmessage(‘atk < 14 ‘);
RunHOSxP_ScriptProgram(‘fcheck_atk_14_f’);
end;

3. ตัว SYS_VN_PRE_SCRIPT จะตรวจสอบเองว่ามีข้อมูล ตามเงื่อนไขหรือไม่ ถ้ามีก็จะแสดง popup ขึ้นมานั้นเองครับ

4. การนำไปใช้ admin ก็ต้องทราบรายละเอียดเช่น ภาษา pascal และ query ที่เอาไปค้นหา นะครับ
หรือผู้สนใจ ก็เข้าไปทบทวนหรือศึกษาได้ที่ Link นี้นะ ผมเคยเขียน vn script ไว้แล้ว “vn script

5. และอย่าลืมกำหนดให้ ชื่อห้องตรวจ หรือแผนกที่จะให้รัน vn Pre vn script ด้วยนะครับ ไม่งั้นพอเปิดใช้งาน อาจจะไม่แสดงก็เป็นได้

6. ที่เหลือก็ตรวจสอบ error เวลาเอาไปแทรก script นะครับ อาจจะพิมพ์ผิดหรืออาจจะวางตำแหน่งผิด ก็เป็นได้ ทำให้ ทำงานผิดพลาด อันนี้ก็ให้แจ้งผมมาก็ได้ จะได้เช็คให้ครับ

น่าจะประมาณนี้ มีอะไรให้ปรึกษา หรือมีข้อเสนอแนะก็แจ้งมาได้ครับ
ขอบคุณที่ติดตาม แล้วพบกันใหม่ครับ


Loading

ใส่ความเห็น

อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น ช่องข้อมูลจำเป็นถูกทำเครื่องหมาย *

This site uses Akismet to reduce spam. Learn how your comment data is processed.