เขียน valiable ขึ้น error ต้องแก้ตรงไหนครับ

[xycop]

begin

if  DBPipeline['sex']=1 then
     if  DBPipeline['creatinine']<=0.9 then
       Value :=141*exp(-0.411*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993))
       else
       Value:=141*exp(-1.209*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993));
if  DBPipeline['sex']=2 then
     if DBPipeline['creatinine']<=0.7 then
         Value:=144*exp(-0.329*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993))
         else
         Value:=144*exp(-1.209*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993));
end;

[xycop]

ดันครับ

[Terminator2015]

  ผมว่าตอนนี้ไม่ต้องเขียนคำนวณแล้วนะครับ เพราะ อ.MN บันทึกค่านี้ลงใน opdscreen ฟิวส์ egfr แล้วครับ เป็นสูตร CDK-EPI ตามที่ท่านเขียนนี้ล่ะครับ ถ้าเขียน ผมว่าไปเขียนแยก Stage ดีกว่าครับ 

[James011]

begin

if  DBPipeline['sex']=1 then
     if  DBPipeline['creatinine']<=0.9 then
       Value :=141*exp(-0.411*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993))
       else
       Value:=141*exp(-1.209*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993));
if  DBPipeline['sex']=2 then
     if DBPipeline['creatinine']<=0.7 then
         Value:=144*exp(-0.329*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993))
         else
         Value:=144*exp(-1.209*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993));
end;

        ตัวหารเป็น  0

[xycop]

procedure Variable35OnCalc(var Value: Variant);
begin

  if (DBPipeline['egfr']='')  then s := '0' ;
    Value := strtofloat(s);

end;

[thannawe]

เทพ 

[xycop]

เทพท่านใด ช่วยหน่อย

[James011]

procedure Variable35OnCalc(var Value: Variant);
begin

  if (DBPipeline['egfr']='')  then Value:=0 ;

end;

  ลองดูครับ

[xycop]

ไม่ผ่านครับมันขึ้นเหมือนเดิม

[เกื้อกูล ครับ..]

ไม่ผ่านครับมันขึ้นเหมือนเดิม

เผา  script  แล้วเริ่มใหม่ครับ 

[pop_hosxp]

แบบนี้ได้ไหมครับ

procedure Variable35OnCalc(var Value: Variant);
begin

  if (DBPipeline['egfr']='')  then s:='0.00';
    Value := strtofloat(s);

end;

[xycop]

ที่ผมเขียนโค๊ด GFR ขึ้นมาเองเพราะว่า บางรายที่ตรวจ  creatinine มันไม่มีผล egfr เลย ผลต้องเขียนขึ้นมาเองครับ นั่งเทียนลองไปลองมาเกือบทั้งวัน ได้ code ตามนี้ครับ
procedure Variable35OnCalc(var Value: Variant);
begin
  s := DBPipeline['creatinine'];
  if s='0' then
  begin   Value := '-';
  end else
  begin
   if  DBPipeline['sex']=1 then
     if  DBPipeline['creatinine']<=0.9 then
       Value:= 141*exp(-0.411*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993))
         else
       Value:= 141*exp(-1.209*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993));
if  DBPipeline['sex']=2 then
     if DBPipeline['creatinine']<=0.7 then
         Value:=144*exp(-0.329*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993))
         else
         Value:=144*exp(-1.209*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993));
  end;
end;

[golf_win]

ผมว่าบางทีที่ไม่มีค่า egfr อาจมาจาก LIS ครับ ลองกด update lablink แล้วตรวจสอบ egfr ในตาราง opdscreen ครับ

[James011]

    วิธีการเขียนป้องกัน Script Error ให้เขียนแบบนี้ครับ

โค๊ด: Delphi

1.          if  getsqldata('select count(gfr) from opdscreen where vn="xxxxxxx"')>0 then
2.          begin
3.            
4.            ------------------Statement--------------------------------
5.  
6.          end;
7.          

[BBT Hospital]

ลองดูคล้าย ๆ แบบนี้ดูไหมครับ
เพราะว่า Variable 37 นำค่า Last Creatinine ออกมาเป็น String ครับ
 If   DBPipeline['age_y']<18 then
  begin
    if ((Variable37.value)>0.01) and ((Variable37.value)<= 99.99) then
    Value:= (0.41 * DBPipeline['height'])/Variable37.Value;
  end else
  if DBPipeline['sex']='2'  then
  Begin{Female}
     if ((Variable37.value)>0.01) and ((Variable37.value)<= 0.7) then
        Value := (144 * (exp(-0.329*ln((Variable37.value)/0.7)))*exp(DBPipeline['age_y']*ln(0.993))) else
     if ((Variable37.value)>0.7) and (Strtofloat(Variable37.value)< 99.99) then
        Value := (144 * (exp(-1.209*ln((Variable37.value)/0.7)))*exp(DBPipeline['age_y']*ln(0.993)));
  End  {Female}
  else
  Begin{Male}
     if ((Variable37.value)>0.01) and ((Variable37.value)<= 0.9) then
        Value := (141 * (exp(-0.411*ln(Strtofloat(Variable37.value)/0.9)))*exp(DBPipeline['age_y']*ln(0.993))) else
     if ((Variable37.value)>0.9) and ((Variable37.value)< 99.99) then
        Value := (141 * (exp(-1.209*ln((Variable37.value)/0.9)))*exp(DBPipeline['age_y']*ln(0.993))) ;
  End;
ส่วนการกำหนดช่วงเพราะเคยมีการใส่ข้อมูลที่ไม่ใช่ตัวเลขในโปรแกรมทำให้ error ในการคำนวนแล้วข้อมูลไม่ออกได้ครับ