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

[sutthipongr]

version ล่าสุด 4/10/55 ตอบสนองหนังสือสั่งการกรมบัญชีกลาง ว.111 เรื่องการระบุเหตุผลการใช้ยานอกบัญชียาหลักแห่งชาติ A-F
ไม่ทราบว่า โรงพยาบาลที่ยังพิมพ์ OPD CARD เก็บสามารถพิมพ์ในลงใน OPD CARD ด้วยได้ไหมครับ

[mit]

ตอนนี้ยังไม่ได้ เพราะยังไมมีแนวทางเก็บไว้เป็นหลักฐานให้ตรวจก่อนเอาไว้ทราบว่าต้องทำอย่างไรค่อยดำเนินการ

[mit]

ทำแล้วครับ พิมพ์ออกที่ใบสั่งยาหน้ารายการยานั้นๆ

[sutthipongr]

ต้องปรับ p_order ด้วยไหมครับ ผม test แล้วยังไม่ออกในใบสั่งยา

[mit]

ถ้าไม่ได้ใช้ แบบพิมพ์ที่อยู่ในโปรแกรม ก็ต้องแก้ไขตามแน่นอนครับ a-f จะเก็บอยู่ใน field ชื่อ UDF ครับ

[sutthipongr]

ขอตัวอย่างp_order.prg ของสัตหีบ หรือ ขอตัวแปรก็ได้ครับ

[mit]

ถ้าเป็น UTL ไม่ต้องทำอะไรจะพิมพ์ออกมาได้เลย แต่ถ้าออกแบบ D_order เอง ข้อมูลจะอยู่ที่ตัวแปร DOS_RC ครับ
แต่ถ้าพิมพ์ด้วย P_ORDER.PRG(FXP) อ้างถึง field ชื่อ UPD ครับ
ตัวอย่างตัดมาจากที่อยู่ใน MIT-NET
if isdigit(drug_code)
do case
CASE n.true_price$"XN"
? "(ยาหมด)"
CASE n.true_price = "B"
? "(งดจ่าย)"
CASE n.true_price = "R"
? "(คืนยา)"
other
? iif(upd = 'NoneED' ," [ "+substr(UPD,8,1)+" ] " ,space(7))
endcase

[sutthipongr]

ได้แล้วครับ ขอบคุณครับ

[Wantanee]

เปิด P_ORDER.PRG แก้บรรทัดที่หมอบอก
? iif(upd = 'NoneED' ," [ "+substr(UPD,8,1)+" ] " ,space(7))
compline ด้วย fox dos ใช้ได้แล้วค่ะ
ขอบคุณหมอมิตรค่ะ

[Wantanee]

ตอนนี้ที่พบปัญหา
1.Tab ยาจะไม่ถามเหตุผล
2.แพทย์บอกถ้ามีการระบุเหตุผลเก่า ให้ทำให้รู้ด้วยเช่นแจ้งเจือน หรือเลื่อน curserมาที่เหตุผลนั้นเลย เพื่อสั่งยาครั้งใหม่ไม่ต้อง reviewเหตุผลนาน
ไม่รู้จะใช้นานหรือป่าว