BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: apatnon86 ที่ กุมภาพันธ์ 23, 2012, 15:19:34 PM

หัวข้อ: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: apatnon86 ที่ กุมภาพันธ์ 23, 2012, 15:19:34 PM
          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: ittipol ที่ กุมภาพันธ์ 23, 2012, 15:23:14 PM
อันนี้เป็นของ รพ....
นะครับ
ทดลองใช้งานดู้ครับ
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: ittipol ที่ กุมภาพันธ์ 23, 2012, 15:31:29 PM
แก้ไข้แบบนี้ครับ

Variables

Value := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'"');
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: apatnon86 ที่ กุมภาพันธ์ 23, 2012, 15:39:23 PM
คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: nutsuanplu ที่ กุมภาพันธ์ 23, 2012, 15:46:57 PM
คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ

เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)

dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: apatnon86 ที่ กุมภาพันธ์ 23, 2012, 16:06:49 PM
คือผมอยากให้มันแสดงข้อความ   "ไม่มีประวัติการแพ้ยา"     ถ้าใน  drugallergy  เป็นค่าว่างน่ะครับ

เอาไปวางใน variable ครับ (กำหนดตัวแปร dd ด้วยนะครับ ใน Dedarations)

dd := GetSQLStringData('select drugallergy from patient where hn = "'+DBPipeline['hn']+'" ');
if(dd='') then value := 'ปฏิเสธการแพ้ยา'
else
value := dd;

ขอบคุณครับ   แบบนี้แหละที่ต้องการ     ;D ;D ;D
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: udomchok ที่ กุมภาพันธ์ 24, 2012, 14:50:53 PM
          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ
ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ

If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';
หัวข้อ: Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
เริ่มหัวข้อโดย: nutsuanplu ที่ กุมภาพันธ์ 24, 2012, 15:25:57 PM
          ตามรูปที่ทำกรอบไว้  คือถ้าผู้ป่วยมียาที่แพ้มันก็แสดงครับ  แต่ถ้าไม่มีการแพ้ยา  อยากให้มันแสดงข้อความ
ประมาณว่า  "ไม่มีประวัติการแพ้ยา"  วันนี้นั่งลองหลายวิธีแล้ว ทั้งติด Error และไม่ออก  ได้โปรดชี้แนะข้าน้อยด้วย

ขอบคุณครับ
ผมใช้ OnGetText ช่วยอีกทีครับ
ของ variable นั่นแหละ

If Text =''
then text := 'ไม่มีประวัติการแพ้ยา';

มีความรู้ที่เป็นเกร็ดเล็ก เกร็ดน้อยตลอดเลยครับพี่โก้
ถ้าไม่มีพี่โก้ ทุกวันนี้ผมก็คงช่วยงานโรงพยาบาลไม่ได้ขนาดนี้
เป็นอาจารย์สอนผมเพียงไม่กี่วัน แต่ความรู้ที่ได้ถ่ายทอดมาเหลือคณานับ
อยากให้มีเหมือนพี่โก้ ทุกโรงพยาบาลเลยครับ  ;D