BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: krathokman ที่ กันยายน 19, 2012, 12:30:28 PM

หัวข้อ: Script สำหรับเตือนผู้ป่วย On ยา Warfarin ครับ
เริ่มหัวข้อโดย: krathokman ที่ กันยายน 19, 2012, 12:30:28 PM

.

หัวข้อ: Re: ตรวจสอบตัวแปรใน Pascal ว่าเป็น Null หรือไม่
เริ่มหัวข้อโดย: rt28 ที่ กันยายน 19, 2012, 13:16:30 PM

ต้อง use class variants เข้ามาก่อนครับ
if a <> null then

หัวข้อ: Script สำหรับเตือนผู้ป่วย On ยา Warfarin ครับ
เริ่มหัวข้อโดย: krathokman ที่ กันยายน 19, 2012, 15:27:22 PM

เอาไปใส่ใน  SYS_VN_PRE_SCRIPT  ประยุกต์ใช้เอานะครับ




     WarfarinDim:=getsqldata('select concat("On     " , drugitems.name,"    LastDate    (",vstdate ,")   Becareful Drug Interaction") from opitemrece  left join drugitems    on drugitems.icode=opitemrece.icode where hn="'+fhn+'"  and    drugitems.name like "%warfarin%"      order by  vstdate desc  limit 1');

            if  (WarfarinDim) <> ''  then
   showmessage(WarfarinDim);