ไม่เข้าใจ MENUn กำหนดยังไงครับ

[sutthipongr]

รูปแบบ <DUE> <MENUn> ข้อความREFER<LAB></MENUn></DUE
<MENUn> n คือรหัสบันทึกเหตุผลเป็นอะไรก็ได้1-9,a-Z


****
<LAB> ใส่เมื่อต้องการแล็ปยืนยัน และถ้าพบคำว่า REFER จะให้ระบุรพ.

[mit]

ตัวอย่างการกำหนด DUE ของยา MEROPENAM เขียนข้อความในช่อง 'ข้อมูลจำเพาะของยา' ดังนี้

ข้อบ่งใช้ เหมือน Tienam แต่ผู้ป่วยมีโอกาสเกิดการชักได้ง่าย
ขนาดยา ทั่วไป 1g.ทุก 8 ชม. ,meningitis 2g.ทุก 8 ชม.
CrCl 26-50 ml/min : 1g.ทุก 12 ชม.
CrCl 10-25 ml/min : 0.5g. ทุก 12 ชม.
CrCl <= 10 ml/min : 0.5g. ทุก 24 ชม.


<DUE>
<MENU1>ได้รับ REFER จากโรงพยาบาลอื่น ซึ่งใช้ยาชนิดนี้อยู่</MENU1>
<MENU2>For Empiric therapy</MENU2>
<MENU3>Confirmed or suspected infection due to P.aeruginosa<LAB></MENU3>
<MENU4>Severe infection due to ESBL-production pathogens<LAB></MENU4>
<MENU5>Not respond to Cephalosporins,Aminoglycosides,Fluoroquinolones,
Beta-Lactam + Beta-Lactam inhibitor<LAB></MENU5>
<MENU6>Infection due to pathogen resistant to Cephalosporins,
Aminoglycosides,Fluoroquinolones,Beta-Lactam + Beta-Lactam
inhibitor<LAB></MENU6>
<MENU7>Infection due to Pathogen susceptible to other antibiotic
but the patient unable to receive such antibiotics</MENU7>
</DUE>

จากตัวอย่างข้างต้นจะเห็นว่า
เหตุผลที่ 1 โปรแกรมจะให่แพทย์ระบุโรงพยาบาลจาก keyword 'REFER'
เหตุผลที่ 2 ไม่มีอะไรยืนยัน
เหตุผลที่ 3-6 ต้องมีผลแล็ปยืนยันเพราะมี tag <LAB>
ยาแต่ละตัวจะมีเหตุผลต่างกัน แต่ข้อ 1และ2 มักมีเสมอ ถือเป็นมาตรฐาน(ของเรา)ได้เลย

[sutthipongr]

สุดยอดครับ

แล้วสามารถระบุงานพิมพ์ในใบสั่งยา เหมือน ยานอกบัญชีได้ไหมครับ

[mit]

ตอนนี้ยังไม่ได้ ผู้ใช้ยังไม่ได้ออกแบรายงานเลย
แต่สามารถดูเหตุผลในการใช้ยาได้โดยกด <Home> ที่รายการนั้นๆ ถ้ามีการยืนยันด้วย LAB จะแสดงผลแล็ปนั้นด้วย
รหัสของเหตุผลจะเก็บใน field UPD เหมือนยานอกบัญชีแต่อยู่หลักที่ 9 ครับ เราก็เอามาแปรกลับโดยหาใน druglist.text ในโปรแกรมจะอ้างถึงJ.TEXT
โดยข้อความอยู่ใน tag <MENU> ก็ใช้ค่าที่ได้จากหลักที่ 9 ของ drugused.upd( ในโปรแกรมคือ N.upd )มาต่อกันเขียนเป็น Function เช่น
cReturn = ''
tagname = 'MEMU'+substr(n.upd,9,1)
at1 = at(tagname,j.text)
if at1 > 0
cReturn = substr(j.text,at1+6)
cReturn = left(cReturn, at('/'+tagname,cReturn)-1)
endif
แล้วเอา cReturn ไปใช้ แต่นี่เป็นแค่ตัวอย่างให้เห็นภาพ
เขียนจริงก็สามารถเขียนลดรูปกว่านี้ และต้องป้องกันข้อผิดพลาดเช่นผู้ใช้อาจอาจลืมปิด tag
ข้างบนจะ error

[Wantanee]

ภาษาเทพ ไม่เข้าใจ