HOSxP Tip! ปกปิดผลแลปในฟอร์ม OPDCARD แบบบ้านๆ ลองดูครับ

วันนี้มี เทคนิคเล็กๆ สำหรับการปกปิด ผลแลปในฟอร์ม OPDCARD มาให้อ่านกันครับ
เคยมีน้องๆ รพ.ค่ายฯ แห่งหนึ่ง ปรึกษาเข้ามา  (นานแล้ว )

อ้ามาดูวิธีการกันนะครับ
– เราจะใช้ วิธีไปตรวจสอบในตาราง lab_items_doctor ว่า user แพทย์หรือพยาบาล คนไข้ที่มีสิทธิดูแลปนี้ ถึงจะสามารถแสดงให้เห็นในฟอร์ม OPDCARD ได้ นะครับ  ถ้า user นั้นไม่มีสิทธิดูแลปตัวนี้ก็ให้แสดงข้อความ “ปกปิด” แทนนะครับ  ก็จะพอช่วยป้องกันการดูผลแลป ได้ระดับหนึ่ง

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

ประมาณนี้นะครับ
ก็จะได้เงื่อนไขตามนี้  (เปลี่ยน DBPipeline เอาเองนะครับ อาจจะเลือกใช้ไม่เหมือนกัน)
if GetSQLIntegerData(‘select count(*)as cc from lab_items_doctor ‘+
‘ where lab_items_code=”‘+DBPipeline[‘lab_items_code’]+'” ‘) > 0 then
begin
if GetSQLIntegerData(‘select count(*)as cc from opduser ‘+
‘ where doctorcode in(select doctor_code from lab_items_doctor ‘+
‘ where lab_items_code=”‘+DBPipeline[‘lab_items_code’]+'”) ‘+
‘ and loginname=”‘+GetCurrentUser+'” ‘) > 0 then
Value := DBPipeline[‘lab_order_result’]
else
Value := ‘ปกปิด’;
end
else
begin
Value := DBPipeline[‘lab_order_result’];
end;

เป็นโค้ดที่จะเอาแทรกใน variables นะครับ
ตามรูปนี้






สังเกตุว่าผมเอาตัวแปรที่ชื่อ
GetCurrentUser  คือ  login ที่เข้าใช้งาน hosxp อยู่ ณ ขณะนั้นนะครับ  เอาไปเช็ค

เวลาเราพิมพ์ออกมาก็จะได้ประมาณนี้

อันนี้กรณีที่ user ไม่มีสิทธิในการดูผลแลป นะครับ
ถ้าเป็น user ที่มีสิทธิ ก็จะดูผลแลปได้เลย  ไม่ได้ปกปิด นะครับ

ก็อย่าลืมไปกำหนดสิทธิผู้ใช้งานก่อนนะครับ ระบบนี้ถึงจะทำงานได้สมบูรณ์ครับ

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

ดาวโหลดฟอร์มรายงาน OPDCARD ตัวอย่างนี้ได้ที่ Link นี้นะครับ

ปล.อย่าลืม login นะครับ   เป็น CUSTOM-Doctor-OPDCARD-test นะครับ  มาจาก รพ.ค่ายฯ แห่งหนึ่งครับ ผมไม่ได้เป็นคนทำนะครับ

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