ฝากให้ รพ.หนองหาน อุดรธานี ครับ

[Khuad]

... ลองทดสอบดูก่อนนะครับ  ไม่รู้ตรงใจหรือเปล่า  แต่ยังคงให้แสดงรายการได้หน้าละ  10  รายการเหมือนเดิมนะครับ(แต่รายละเอียดของผู้ป่วยจะมีทุกหน้าแล้วนะครับ) ....

... ส่วนของ variable ที่เกี่ยวกับวันนัด ของเดิมผมยังเก็บไว้อยู่นะครับ แต่ผมยกเลิกการเลือก visible เอาไว้ ...

... ให้แก้ไข lab_items_code ของ LAB ทั้งสามตัวให้ตรงกับของ หนองหาน ด้วยนะครับ  ตัวละ 2 จุด ตามรูปที่แนบครับ ...

... ในส่วนของผล FBS ที่แสดงในฟอร์ม จะดูจาก ตาราง lab_order ก่อน ถ้าไม่มีข้อมูลที่ ตาราง lab_order  ก็จะไปดูข้อมูลจาก ตาราง opdscreen  สำหรับกรณีที่ส่งเสริมฯ ตรวจ DTX เองแล้วเอาผลไปลงที่หน้า Screen โดยไม่ผ่านระบบห้อง LAB  ตามที่ได้บอกมานะครับ 
    ส่วนอีก 2 ตัวที่เหลือ ดูจาก ตาราง lab_order อย่างเดียวครับ ....

... เครื่องหมายถูกหน้ารายการ LAB  ถ้ามีการสั่ง ถึงจะยังไม่มีการรายงานผล ก็จะแสดงนะครับ(สำหรับ FBS ถ้าไม่มีการสั่งผ่าน LAB   ก็จะดูไปจาก ตาราง opdscreen  ด้วยครับ)
    ส่วนผลการตรวจที่มาจาก ตาราง lab_order ต้องมีการยืนยันผลด้วยนะครับ ถึงจะแสดงในฟอร์ม ....

... ส่วนตั้งครรภ์ กับ ให้นมบุตร เอามาจาก opdscreen ตามปกติ   ส่วน ให้นมบุตร นี่ สงสัย อ.mn จะยังไม่ได้เอาไปแสดงที่หน้าจอห้องตรวจแพทย์ ผมหาไม่เจอเลย  มีแต่ที่หน้าจอซักประวัติ  ....


... ถ้าผิดพลาดตกหล่นตรงใหนก็แจ้งด้วยนะครับ ...  ....

[Khuad]

... ตัวฟอร์มใบสั่งยาครับ  แต่ชื่อของฟอร์มจะเป็น FORM-Doctor-RxORDER-หนองหาน  นะครับ

    ถ้าจะใช้จริงๆ ค่อย save แล้วเปลี่ยนชื่อเป็น FORM-Doctor-RxORDER  .....  ...

[pongsa]

ขอบคุณอาจารย์ขวดมากครับ  ห้องยาฝากมาอีกแล้วครับอยากได้ฟอร์มบันทึกรายการยากลับบ้านครับของผู้ป่วยในครับ   ยังไงผมจะฝากทาง mail ให้เพื่อพิจารณาดูครับ

[atit]

ขอเก็บอีกแล้วครับท่าน

[pongsa]

ฝากให้อาจารย์ขวดครับ 
ค่าของ  FBS

    s := GetSQLStringData('select l2.lab_order_result from lab_head l1 '+
         'left outer join lab_order l2 on l2.lab_order_number = l1.lab_order_number '+
         'where l1.vn = "'+DBPipeline['vn']+'" and  l2.lab_items_code in("116","305","597") and l2.confirm = "Y" ') ;
         
    Value := s;
   

    if   s = ''  then

    Value := GetSQLStringData('select fbs from opdscreen where vn = "'+DBPipeline['vn']+'" ') ;

ผลคือ  ไม่ได้ตรวจจาก LAB  และค่าใน opdscreen เป็น 0 จะโชว์ว่า     เลือก FBS และแสดงค่า 0
สิ่งที่ต้องการคือ   ถ้าไม่มีการตรวจ  ไม่ต้องมีการเลือกและให้เป้นค่าว่างครับ
***********************************************************
ค่า Creatinine

Value := GetSQLStringData('select l2.lab_order_result from lab_head l1 '+
         'left outer join lab_order l2 on l2.lab_order_number = l1.lab_order_number '+
         'where l1.vn = "'+DBPipeline['vn']+'" and  l2.lab_items_code in("114") and l2.confirm = "Y" ') ;


*****************************************************************
ค่า  INR

Value := GetSQLStringData('select l2.lab_order_result from lab_head l1 '+
         'left outer join lab_order l2 on l2.lab_order_number = l1.lab_order_number '+
         'where l1.vn = "'+DBPipeline['vn']+'" and  l2.lab_items_code in("78") and l2.confirm = "Y" ') ;


ขอบคุณล่วงหน้าครับ

[Khuad]

ฝากให้อาจารย์ขวดครับ 

... ต้องขออภัยด้วยนะครับ ไปดูตาราง opdscreen ของ version ที่ รพ. ผมใช้จริงอยู่  เลยไม่ได้สังเกตุว่า ใน version ใหม่ๆ  fbs ใน opdscreen มีค่า default เป็น 0 แล้ว    ...


... ขออนุญาตถามเพิ่มเติมนิดนะครับ  เห็นในส่วนของ FBS ของพี่ pongsa มีอยู่ 3 ตัว  ไม่ทราบว่า 3 รายการนี้มีโอกาสที่จะถูกสั่งตรวจพร้อมกันในคนไข้ visit เดียวกันบ้างหรือเปล่าครับ ...  ....

[pongsa]

ไม่น่าจะมีครับ  สำหรับที่เอามาจาก opdscreen นี้สำหรับคนไข้ที่ตรวจที่ PCU โรงพยาบาล  เขาเจาะน้ำตาลเองแล้งลงผลในหน้าซักประวัติ  เท่าที่ทดสอบจากฐาน  ถ้าหาเป้นการตรวจผ่านห้อง lab รายการ lab จะไม่มาปรากฎอยู่ใน opdscreen ครับ  (สรุปถ้าเป้นค่าว่างให้เอาค่าจาก opdscreen มาแทนเลยครับ)

[Khuad]

... แก้ไขให้แล้วนะครับ  พี่ pongsa ลองทดสอบดูนะครับ ...  ...

[pongsa]

ขอบคุณครับ  ประมาณ 3 ทุ่มจะรายงานผลครับ

[udomchok]

ขอบคุณครับ  ประมาณ 3 ทุ่มจะรายงานผลครับ

นี่ 4 ทุ่มกว่าแล้วครับ ได้ผลเป็นอย่างไรบ้าง 

[jdadmin1]

นี่ 4 ทุ่มกว่าแล้วครับ ได้ผลเป็นอย่างไรบ้าง  Wink Wink Wink Wink Wink

มิวายเก็บเล็กเก็บน้อยนะครับ

[มดตานอย ครับ..]

รพ.หนองหาน   พันธมิตร เยอะจริงๆ     

[pongsa]

ผลการทดสอบผ่านตลอดครับ  ใช้ในฐานจริงอย่างเป็นทางการแล้วครับ