ผู้เขียน หัวข้อ: รบกวนดู code ค่า GFR ใน opdcard หน่อยครับ  (อ่าน 2784 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Knott

  • Hero Member
  • *****
  • กระทู้: 888
  • Respect: +1
    • ดูรายละเอียด
รบกวนดู code ค่า GFR ใน opdcard หน่อยครับ
« เมื่อ: พฤศจิกายน 07, 2012, 10:20:19 AM »
0
ผมทำ variable คำนวนค่า GFR เพิ่มใน opdcard แต่เมื่อเวลาพิมพ์แล้ว ฟ้อง error กรณีที่คนไข้ไม่มีการตรวจ creatinine แต่คนที่มีการตรวจ พิมพ์และโชว์ค่าได้ตามปกติครับ

ไม่ทราบว่าจะแก้ไขอย่างไรดีครับ

ตัวอย่าง Code ใน variable ครับ

gfr_cr:=getsqlstringdata('select lo.lab_order_result from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=(select lab_items_code from lab_items where lab_items_name= '+
      '(select sys_value from sys_var where sys_name="lab_link_cr" limit 1)) '+
      ' and lh.vn="'+DBPipeline['vn']+'" ');

gfr_age :=  DBPipeline['age_y'];

gfr_sex:=getsqldoubledata('select if(sex=1,1,0.742) as factor from patient where hn="'+DBPipeline['hn']+'"');

if gfr_cr='' then
        gfr_cr1:=0.00
   else
        gfr_cr1:=strtoint(gfr_cr);

value:=175*exp(-1.154*ln(gfr_cr1))*exp(-0.203*ln(gfr_age))*gfr_sex;
รพช.วัดโบสถ์ จ.พิษณุโลก
ขึ้นระบบ 1 เมษายน 2551 (ขึ้นระบบเอง)
Server : IBM x3250 M2, RAM 4 GB, FreeBSD 7.2, Mysql 5.1.30
HOSxP Version 3.56.1.15