พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย sutthipongr เมื่อ พุธ ธ.ค. 11, 2013 2:28 pm

ใช้ p_regis ในการพิมพ์ประวัติผู้ป่วยเก็บใน opdcard ตรงรายการยาจะไม่มีจำนวนเม็ดยา เช่น
6.การรักษา------------------------------------
Ferrous fumarate 200 mgtab.:ORAL 1 TAB BID PC M E
Salbutalmol 2 mg. :ORAL 1 TAB TID PC M N E

ที่แพทย์ต้องการคือ
Ferrous fumarate 200 mgtab.:ORAL 1 TAB BID PC M E #60 TAB
Salbutalmol 2 mg. :ORAL 1 TAB TID PC M N E #30 TAB

เป็นต้นครับ
code อยู่ใน p_regis ตรง
โค้ด: เลือกทั้งหมด
?  " 6.การรักษา       :"+repl(fm,61)
do pword with ddrug,7


รบกวนขอเพิ่มครับ
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย mit เมื่อ ศุกร์ ธ.ค. 13, 2013 1:47 pm

วันนี้ 13/12/2556
ได้แก้ไขโปรแกรม mit-net ให้เตรียมตัวแปรARRAY ขนาด 60*2 ชื่อ D_PRICE(60,2) ใช้สำหรับข้อมูลยา 60 รายการ
เพื่อใช้แทนตัวแปร ddrug เวลาพิมพ์ก็ใช้การวนรอบเอาครับเช่น
for iii = 1 to 60
if type('D_PRICE(iii,1)')='L'
EXIT
else
? d_price(iii,1)+d_price(iii,2)
endif
next
จากตัวอย่างจะพิมพ์ออกมาเท่าจำนวนยาที่สั่งครับ
mit
 
โพสต์: 314
ลงทะเบียนเมื่อ: จันทร์ ต.ค. 27, 2008 11:47 pm

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย sutthipongr เมื่อ อาทิตย์ ธ.ค. 15, 2013 6:49 am

หลังจากทดลองเพิ่มแบบนี้ครับ
โค้ด: เลือกทั้งหมด
? ' 6.การรักษา       :' +  ;
  REPLICATE(fm, 61)
*DO pword WITH ddrug,1
for iii = 1 to 60
if type('D_PRICE(iii,1)')='L'
EXIT
else
? left(d_price(iii,1),25)+d_price(iii,2)
endif
next

จะได้แบบนี้ครับ
โค้ด: เลือกทั้งหมด
Paracet tab.500 mg              20 TAB
Moduretic tab(D")                 60 tab
Amlodipine   10 mg tab         60 tab
Simvastatin 20 mg.(X)         30 TAB
Sodamint tab                      120 TAB.
Folic acid 5 mg tab.             60 TAB.
Diclofenac tab 25mg(D")       20 TAB
Colchicine tab 0.6 mg          30 TAB

ปัญหาคือ
1.ขาดวิธีกิน(การบริหารยา)ครับ จริงๆสำคัญกว่าจำนวนเม็ดครับ
2.หัตถการ/กิจกรรมไม่มีด้วยครับยังต้องการอยู่ต้องการให้เป็นแบบเดิมครับ แบบเดิมคือขึ้นมาก่อนยา และเรียงต่อกันจากซ้ายไปขวาแล้วตามด้วยยาเรียงจากบนลงล่าง เช่น

โค้ด: เลือกทั้งหมด
advice;dressing wound;คัดกรองซึมเศร้า;วัดรอบเอว
Paracet tab.500 mg             : 20 TAB  ORAL     1 TAB  PRNP1 OQ1 Q4-6
Moduretic tab(D")                :  60 tab    ORAL     1 TAB  OD PC M
Amlodipine   10 mg tab        : 60 tab    ORAL     1 TAB  OD PC M
Simvastatin 20 mg.(X)         :30 TAB    ORAL     1 TAB  OD PC M
Sodamint tab                      :120 TAB.  ORAL    1 TAB  BID PC M E
Folic acid 5 mg tab.             :60 TAB.   ORAL   1 TAB  OD PC M       
Diclofenac tab 25mg(D")      : 20 TAB    ORAL   1 TAB  TID PCS M N E 
Colchicine tab 0.6 mg          :30 TAB    ORAL    0.5 TAB  OD PC M

วิธีใช้ยาอยู่หลังชื่อยา จำนวนเม็ด เหมือนกับมุมมองเมื่อดูกับ mitnet น่าจะทำให้คุ้นชินกว่าครับ
คือจริงๆแล้วต้องการเหมือนเดิมแต่เพิ่มจำนวนเม็ดแค่นั้นครับ
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย mit เมื่อ พุธ ธ.ค. 18, 2013 12:42 pm

ไม่มีการบริหารยาเพราะ left(d_price(iii,1),25) เป็นการตัดคำเอาการบริหารยาออกไป ถ้าต้องการตามที่แจ้งก็สามารถทำได้โดยต่อด้วยคำสั่ง +substr(d_price(iii,26))
ส่วนหัตถการได้เพิ่มตัวแปร array ชื่อ o_price(60,2) ให้ครับ
mit
 
โพสต์: 314
ลงทะเบียนเมื่อ: จันทร์ ต.ค. 27, 2008 11:47 pm

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย mit เมื่อ พฤหัสฯ. ธ.ค. 19, 2013 10:33 am

ตรวจสอบแล้ว d_price(X,1) เป็นข้อมูลเดิมที่มีวิธีบริหารยาอยู่ด้วย
mit
 
โพสต์: 314
ลงทะเบียนเมื่อ: จันทร์ ต.ค. 27, 2008 11:47 pm

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย sutthipongr เมื่อ พฤหัสฯ. ธ.ค. 26, 2013 9:58 am

ขอบคุณครับ
ถ้าเป็นไปได้อยากให้ตัดค่าบริการ ' SERV' ต่างๆ
ออกจากตัวแปรหัตถการ o_price(60,2) ครับ (เปลืองพื้นที่พิมพ์ครับ)
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย sutthipongr เมื่อ อังคาร เม.ย. 29, 2014 10:04 am

พบปัญหา กรณีที่ ห้องยากดลบ ที่ตัวยา ซึ่งใน mitnet จะขึ้นว่า "งดจ่าย" แต่ในประวัติ opdcard (p_regis) ไม่บอกว่างดจ่าย ทำให้แพทย์อ่านประวัติย้อนหลัง เข้าใจผิดได้ว่า pt.ได้รับยาดังกล่าวไปด้วย
ต้องการให้ขึ้นว่า "(งดจ่าย)" หน้าตัวยาเหมือนในใบสั่งยา(p_order)ครับ
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย mit เมื่อ พุธ เม.ย. 30, 2014 1:20 pm

ทำให้แล้วครับ
mit
 
โพสต์: 314
ลงทะเบียนเมื่อ: จันทร์ ต.ค. 27, 2008 11:47 pm

Re: พิมพ์ประวัติด้วย p_regis แพทย์ต้องการจำนวนเม็ดยาด้วย

โพสต์โดย sutthipongr เมื่อ ศุกร์ พ.ค. 02, 2014 4:52 am

ทำได้แล้วครับ โดยเพิ่ม arrayอีก 1 มิติ
for iii = 1 to 60
if type('D_PRICE(iii,1)')='L'
EXIT
else
? d_price(iii,1)+d_price(iii,2)+d_price(iii,3)
endif
next
***เราพิสูจน์ได้ด้วย ผลงานของเรา***

พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน
sutthipongr
 
โพสต์: 788
ลงทะเบียนเมื่อ: พุธ ต.ค. 29, 2008 5:07 pm
ที่อยู่: โรงพยาบาลบางแก้ว จ.พัทลุง


ย้อนกลับไปยัง ถาม-ตอบ ปัญหาต่างๆ เกี่ยวกับโปรแกรม MIT-NET

ผู้ใช้งานขณะนี้

กำลังดูบอร์ดนี้: Google [Bot] และ บุคคลทั่วไป 6 ท่าน

cron