Clinical summary

[Noppadol]

ด้วยในเกณฑ์การประเมินเวชระเบียน (MRA) มีส่วนที่ต้องประเมิน clinical summary ด้วยจึงขอฟอร์มน้องๆมา Modify แต่พอสั่งพิมพ์มันขึ้น Error ตามนี้ แต่ตอนที่ preview ดูก็เห็นปกติอะครับ..................รบกวนอาจารย์ทั้งหลายหน่อยครับ.....................

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

ลองอันนี้เป็นครับ...

[Noppadol]

ลองอันนี้เป็นครับ...

ถาม อ.เกื้อ ต่อครับ.....ถ้าจะเพิ่ม Final Diagnosis ไปอีกต้องใช้คำสั่งยังไงบ้างครับ....แบบว่าหมอสรุปมาหลายๆโรค ก็อยากจะเอามาใส่ให้มันหมดเลย

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

วางเป็น Memo.text มาจาก variable ของ iptdiag ของ an นั้น ๆ ครับ..

[Noppadol]

วางเป็น Memo.text มาจาก variable ของ iptdiag ของ an นั้น ๆ ครับ..

คงต้องรบกวน อ.เกื้อ สอนวิธีหาปลานี้ให้หน่อยนะครับ......ไม่เป็นจริงๆ........

[Noppadol]

แวะมาดันซะหน่อย..ง

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

แวะมาดันซะหน่อย..ง

วาง variable


Value := GetSQLSubqueryData('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"');

memo1.lines.text:=GetListFromQuery('select name from icd101 where code in ('+
  GetSQLSubqueryData('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"')+') ');

memo2.lines.text:=GetListFromQuery('select icd10 from iptdiag where an="'+DBPipeline['an']+'" and diagtype="2"');