BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: harwae ที่ สิงหาคม 21, 2016, 23:15:49 PM

หัวข้อ: นำค่าความดันโลหิตมาแปรผลโดยใช้ Variable
เริ่มหัวข้อโดย: harwae ที่ สิงหาคม 21, 2016, 23:15:49 PM
อยากทราบวิธีทำรายงาน โดยนำค่าความดันโลหิตสูง ค่า bps , bpd จากตาราง opdscreen โดยใช้ variable ตามเงื่อนไขดังนี้ครับ
บน<130 และ ล่าง<85              ความดันโลหิตปกติ
บน=130-139 หรือ ล่าง 85-89   ความดันโลหิตสูงเล็กน้อย
บน>140 หรือ ล่าง>90              ความดันโลหิตสูง
หัวข้อ: Re: นำค่าความดันโลหิตมาแปรผลโดยใช้ Variable
เริ่มหัวข้อโดย: golf_win ที่ สิงหาคม 22, 2016, 18:31:38 PM
if ((DBPipeline['bps']>0) and (DBPipeline['bps']<130) and (DBPipeline['bpd']>0) and (DBPipeline['bpd']<85)) then
begin
   Value:='ความดันโลหิตปกติ';
end
else
   if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=130) and (DBPipeline['bps']<140))
   or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=85) and (DBPipeline['bps']<90))) then
   begin
      Value:='ความดันโลหิตสูงเล็กน้อย';
   end
   else
      if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=140))
      or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=90))) then
      begin
         Value:='ความดันโลหิตสูง';
      end;
   end;
end;
หัวข้อ: Re: นำค่าความดันโลหิตมาแปรผลโดยใช้ Variable
เริ่มหัวข้อโดย: harwae ที่ สิงหาคม 26, 2016, 11:37:32 AM
ขอบคุณครับ