BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: k_toedkiets ที่ พฤษภาคม 21, 2013, 11:24:27 AM
-
ใครมีฟอร์ม FORM-RB1T02 ที่มีข้อมูลสมบูรณ์บ้างครับ
-
ประมาณนี้พอได้ไหม
-
ประมาณนี้พอได้ไหม
ขอไฟล์ ด้วยครับ...ขอบพระคุณอย่างสูง
-
ประมาณนี้พอได้ไหม
ทำไมห้ามนำออกนอก โรงพยาบาล ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. ;D ;D ;D ;D ;D ;D นอก รพ.ก็มิใช่น้อย ๆ
-
ประมาณนี้พอได้ไหม
ทำไมห้ามนำออกนอก โรงพยาบาล ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. ;D ;D ;D ;D ;D ;D นอก รพ.ก็มิใช่น้อย ๆ
เอ่อ... OPD Card ไม่มีขานะครับ ;D ;D ;D ;D ;D
ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ
-
ประมาณนี้พอได้ไหม
ทำไมห้ามนำออกนอก โรงพยาบาล ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. ;D ;D ;D ;D ;D ;D นอก รพ.ก็มิใช่น้อย ๆ
เอ่อ... OPD Card ไม่มีขานะครับ ;D ;D ;D ;D ;D
ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ
ขอบคุณครับ
-
ประมาณนี้พอได้ไหม
ทำไมห้ามนำออกนอก โรงพยาบาล ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. ;D ;D ;D ;D ;D ;D นอก รพ.ก็มิใช่น้อย ๆ
เอ่อ... OPD Card ไม่มีขานะครับ ;D ;D ;D ;D ;D
ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ
แต่ OPDCARD แบบนี้ บินได้ทาง Internet ก๊าบบบ ;D ;D ;D ;D ;D
-
ประมาณนี้พอได้ไหม
ทำไมห้ามนำออกนอก โรงพยาบาล ทั้ง ๆ ที่ความจริง ผมเห็นวิ่งไปทั่ว.. ;D ;D ;D ;D ;D ;D นอก รพ.ก็มิใช่น้อย ๆ
เอ่อ... OPD Card ไม่มีขานะครับ ;D ;D ;D ;D ;D
ต้นฉบับทำให้ที่ ร.พ. ท่าช้าง ครับ
แต่ OPDCARD แบบนี้ บินได้ทาง Internet ก๊าบบบ ;D ;D ;D ;D ;D
แสดงว่า OPD Card ไม่มีขา แต่มีปีกครับ อ.เกื้อ
-
ประมาณนี้พอได้ไหม
กรณีคนที่ไม่มีประวัติการแพ้ยา เขียนคำสั่งยังไงให้มันแสดงว่า "ปฏิเสธการแพ้ยา"
-
if GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"')<>'' then
Value := ''+GetSQLStringData('select drugallergy from patient where hn="'+DBPipeline['HN'] +'"') else
Value := 'ปฏิเสธการแพ้ยา';
-
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 := 'ไม่มีข้อมูลการแพ้ยา';
-
มีแต่แบบนี้ FORM-RB1T02-TAG นะครับ
-
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