ฟอร์ม FORM-RB1T02

[k_toedkiets]

ใครมีฟอร์ม FORM-RB1T02 ที่มีข้อมูลสมบูรณ์บ้างครับ

[udomchok]

ประมาณนี้พอได้ไหม

[k_toedkiets]

ประมาณนี้พอได้ไหม

ขอไฟล์ ด้วยครับ...ขอบพระคุณอย่างสูง

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

ประมาณนี้พอได้ไหม

ทำไมห้ามนำออกนอก โรงพยาบาล  ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. นอก รพ.ก็มิใช่น้อย ๆ

[udomchok]

ประมาณนี้พอได้ไหม

ทำไมห้ามนำออกนอก โรงพยาบาล  ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. นอก รพ.ก็มิใช่น้อย ๆ

เอ่อ... OPD Card ไม่มีขานะครับ 



ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ

[k_toedkiets]

ประมาณนี้พอได้ไหม

ทำไมห้ามนำออกนอก โรงพยาบาล  ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. นอก รพ.ก็มิใช่น้อย ๆ

เอ่อ... OPD Card ไม่มีขานะครับ 



ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ

ขอบคุณครับ

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

ประมาณนี้พอได้ไหม

ทำไมห้ามนำออกนอก โรงพยาบาล  ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. นอก รพ.ก็มิใช่น้อย ๆ

เอ่อ... OPD Card ไม่มีขานะครับ 



ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ

แต่ OPDCARD แบบนี้ บินได้ทาง Internet  ก๊าบบบ   

[k_toedkiets]

ประมาณนี้พอได้ไหม

ทำไมห้ามนำออกนอก โรงพยาบาล  ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. นอก รพ.ก็มิใช่น้อย ๆ

เอ่อ... OPD Card ไม่มีขานะครับ 



ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ

แต่ OPDCARD แบบนี้ บินได้ทาง Internet  ก๊าบบบ   

แสดงว่า OPD Card ไม่มีขา แต่มีปีกครับ อ.เกื้อ

[bannok]

ประมาณนี้พอได้ไหม

กรณีคนที่ไม่มีประวัติการแพ้ยา เขียนคำสั่งยังไงให้มันแสดงว่า "ปฏิเสธการแพ้ยา"

[golf_win]

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

[golf_win]

if GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"')<>'' then
Value := ''+GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"') else
if GetSQLIntegerData('select count(distinct(v.vn)) as cc from rx_operator r '+
' inner join vn_stat v on v.vn=r.vn '+
' where v.hn="'+DBPipeline['HN'] +'" and r.pay="Y" and r.pay_staff in (select code from doctor where position_id in (3,7)) ')>0 then
Value := 'ปฏิเสธอาการแพ้ยา' else
Value := 'ไม่มีข้อมูลการแพ้ยา';

[hard2521]

มีแต่แบบนี้ FORM-RB1T02-TAG นะครับ

[bannok]

if GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"')<>'' then
Value := ''+GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"') else
if GetSQLIntegerData('select count(distinct(v.vn)) as cc from rx_operator r '+
' inner join vn_stat v on v.vn=r.vn '+
' where v.hn="'+DBPipeline['HN'] +'" and r.pay="Y" and r.pay_staff in (select code from doctor where position_id in (3,7)) ')>0 then
Value := 'ปฏิเสธอาการแพ้ยา' else
Value := 'ไม่มีข้อมูลการแพ้ยา';

thanks