Pascal Script สำหรับแก้ปัญหาเครื่องหมาย "" ใน ฟิลด์ drugallergy ของตาาง Patient

[naj]

โรงพยาบาลผมใช้ hosxp 3.50.9.10 เวลาที่พี่พยาบาลคัดกรอง คนไข้ โดยเลือกว่ามีอาการแพ้ยา แต่ไม่ได้บันทึกอะไรไว้ในหน้าแพ้ยา  ตามรูป  จากนั้นบันทึกส่งต่อให้แพทย์ พบว่ามันจะเก็บ เครื่องหมาย "" ลงใน ฟิลด์ drugallergy ของตาาง Patient เนื่องจากมีหลาย record เลยลองหัดเขียน pascal script เข้าไปแก้ทีเดียวครับ

โค๊ด: Pascal

1. program yindeenaja;
2. var
3. tc:tclientdataset;
4.  
5. begin
6. tc:=tclientdataset.create(nil);
7. tc.data :=hosxp_getdataset('select hn,drugallergy from patient where length(drugallergy)=2 ');
8. while not tc.eof  do
9. begin
10. tc.edit;
11. tc.fieldbyname('drugallergy').asstring:='';
12. tc.post;
13. showdebugtext('HN =  '+tc.fieldbyname('hn').asstring+'    >>>>>>>>   Drugallergy change result '+tc.fieldbyname('drugallergy').asstring+'   OK');
14. tc.next
15. end;
16.  if tc.changecount>0 then
17.  hosxp_updatedelta(tc.delta,'select hn,drugallergy from patient where length(drugallergy)=2 ');
18. tc.free;
19.   showmessage('PROCESS DONE');
20.  
21.  
22. end.

[manoi]

ลืม tc.post หรือเปล่าครับ

[naj]

ใช่ครับ  ลืม  ขอบคุณครับ  อ.mn 

[doramon]

สุดยอด
 

ทำคำสั่งในในเครื่องที่เป็น  server นะครับ LINUX

โค๊ด: SQL

1.  
2.  UPDATE patient SET drugallergy =  REPLACE (drugallergy, """", "");
3.  
4.  

REPLACE(str,from_str,to_str)

Returns the string str with all occurrences of the string from_str replaced by the string to_str.

 examples :

    * replace string in all records from a table :
       update mytable set myfield =  replace (myfield, "one", "two");
    * display a modified record set
      SELECT REPLACE(myfield, 'one', 'two') from mytable;


more info about string functions on mysql .com, be careful if you're using version 3, some functions appeared with version 4

http://dev.mysql.com/doc/mysql/en/string-functions.html

[chiaw nonghan]

เรียน อาจารย์ทุกท่านครับ
ผมทำแบบนีได้ไหมครับ หรือว่าต้องแก้ที่ตารางอื่นอีก?
และ ตัว "" เกิดจาก user ใช่ไหมครับ
UPDATE patient SET drugallergy =  "" where ascii(drugallergy)=34

[SrWooD]

ใช้่เวอร์ชั่นอะไรอยู่ครับ
ลองตรวจสอบด้วย
select drugallergy from patient where ascii(drugallergy)=34
ก่อนครับว่ามีแต่ "" หรือไม่
ถ้าใช่ ก็ได้เลยครับ

[เอก อุดมเดชาพงษ์]

ในช่องแพ้ยาของผม มีหลากหลายมากเลยครับ
convert ข้อมูลมาจาก program เก่า เจ้าหน้าที่เค้าบันทึก note ไว้ในช่องแพ้ยา
อยากลบออกให้หมดเลยครับใช้คำสั่งอย่างไร
ขอบคุณครับ

[เอก อุดมเดชาพงษ์]

ในช่องแพ้ยาของผม มีหลากหลายมากเลยครับ
convert ข้อมูลมาจาก program เก่า เจ้าหน้าที่เค้าบันทึก note ไว้ในช่องแพ้ยา
อยากลบออกให้หมดเลยครับใช้คำสั่งอย่างไร
ขอบคุณครับ

รบกวนอาจารย์ทั้งหลายด้วยครับ
PM ก็ได้ครับ
ขอบคุณครับ

[naj]

ลองใช้คำสั่งนี้ครับ

โค๊ด: SQL

1. UPDATE patient SET drugallergy=''

ข้อควรระวัง สำรองข้อมูลก่อนทำด้วยนะครับ กันพลาด

[chronoX]

ลบออกหมดเลย จะดีเหรอครับ???

[white]

ผมอยากให้แก้ที่สาเหตุครับ
ปัญหาที่เกิดขึ้นส่วนใหญ่จะเกิดจาก พยาบาลไม่ลงรายละเอียดการแพ้ยาให้
(จะว่าไปก็บังคับไม่ได้ เพราะคงจะเป็นหน้าที่ของเภสัชมากกว่า)

อยากให้ถ้าเลือกว่ามีประวัติแพ้ยาแล้ว แต่ยังไม่ลงรายละเอียด
ขอให้บันทึกชื่อยาเป็นคำเลย เช่น "สงสัยแพ้ยา ยังไม่ระบุ" ประมาณนี้ครับ
ถ้าอยากให้ชื่อนี้หายไป ตามแก้ทีหลังจะได้ง่ายกว่าครับ

รบกวนอาจารย์พิจารณา และขอความเห็นท่านอื่นๆครับ 

[jdadmin1]

ผมอยากให้แก้ที่สาเหตุครับ
ปัญหาที่เกิดขึ้นส่วนใหญ่จะเกิดจาก พยาบาลไม่ลงรายละเอียดการแพ้ยาให้
(จะว่าไปก็บังคับไม่ได้ เพราะคงจะเป็นหน้าที่ของเภสัชมากกว่า)

ผม รพ.เล็ก ๆ พอดีห้องบัตรกับห้องจ่ายยาอยู่ติดกัน ถ้าห้องบัตรสกรีนคนไข้ว่าเคยแพ้ยาก็จะส่งพบเภสัชก่อนเลยไม่ค่อยมีปัญหานี้ครับ 

[white]

ผมอยากให้แก้ที่สาเหตุครับ
ปัญหาที่เกิดขึ้นส่วนใหญ่จะเกิดจาก พยาบาลไม่ลงรายละเอียดการแพ้ยาให้
(จะว่าไปก็บังคับไม่ได้ เพราะคงจะเป็นหน้าที่ของเภสัชมากกว่า)

อยากให้ถ้าเลือกว่ามีประวัติแพ้ยาแล้ว แต่ยังไม่ลงรายละเอียด
ขอให้บันทึกชื่อยาเป็นคำเลย เช่น "สงสัยแพ้ยา ยังไม่ระบุ" ประมาณนี้ครับ
ถ้าอยากให้ชื่อนี้หายไป ตามแก้ทีหลังจะได้ง่ายกว่าครับ

รบกวนอาจารย์พิจารณา และขอความเห็นท่านอื่นๆครับ 

ผมยังกลัวมีคนซักประวัติแล้วลงว่ามีแพ้ยา โดยที่ไม่ลงชื่อยาอยู่เลย
บอกให้ผ่านเภสัชลงยาที่แพ้ก่อนพบแพทย์หมดแล้ว ลบอันเดิมหมดแล้ว ไม่รู้มีมาจากไหนอีก
โปรแกรม hang ไปเลย

อาจารย์มีความเห็นว่ายังไงครับ
ผมว่าอย่างน้อยน่าจะ save เป็นชื่ออะไรก็ได้ โดยที่ไม่ทำให้ตรวจสอบรายการแพ้ยาแล้วเครื่องค้างครับ

[navyNP]

พอดีเจอปัญหาเดียวกันครับ กำลังหาวิธีแก้ปัญหาอยู่ แต่ผมสังเกตดูว่าบางรายที่มีประวัติแพ้ยาขึ้นเป็น "" เป็นรายที่เคยมีการลงชื่อยาที่แพ้มาก่อน แต่พอมาปรับเป็น v.3.51.8.30 แล้วชื่อยาที่ลงไว้หายไปเหลือแต่เครื่องหมาย "" อยู่ประมาณ 1700 ราย(ตรวจสอบจากประวัติผมเองที่เคยลงแพ้ยาไว้ ปรากฏว่าเหลือแต่เครื่องหมาย "" จริงๆ) เลยจะขอรบกวน อ.ทั้งหลายดังนี้ครับ
1.ไม่ทราบว่าเหตุการณ์ดังกล่าวจะเกิดจากการ update version ได้หรือไม่ครับ ถ้าไม่ น่าจะเกิดจากอะไรครับ
2.ขอคำสั่งที่เราจะ select ดูข้อมูลเฉพาะ record ที่มี drugallergy เป็น "" ด้วยครับ เพราะลองใช้
   select * from patient where drugallergy = ""  ปรากฏว่าข้อมูลมาทั้งหมดตารางเลยครับ รบกวนด้วยครับ

[อู๋kokha50]

ผมอยากให้แก้ที่สาเหตุครับ
ปัญหาที่เกิดขึ้นส่วนใหญ่จะเกิดจาก พยาบาลไม่ลงรายละเอียดการแพ้ยาให้
(จะว่าไปก็บังคับไม่ได้ เพราะคงจะเป็นหน้าที่ของเภสัชมากกว่า)

อยากให้ถ้าเลือกว่ามีประวัติแพ้ยาแล้ว แต่ยังไม่ลงรายละเอียด
ขอให้บันทึกชื่อยาเป็นคำเลย เช่น "สงสัยแพ้ยา ยังไม่ระบุ" ประมาณนี้ครับ
ถ้าอยากให้ชื่อนี้หายไป ตามแก้ทีหลังจะได้ง่ายกว่าครับ

รบกวนอาจารย์พิจารณา และขอความเห็นท่านอื่นๆครับ 

สนับสนุน หมอไวท์ ครับ

รพ. ผมก็พึ่งเจอครับ ----> ER ซักประวัติ คิ๊ก---> มีการแพ้ยา-->แต่ไม่ได้ส่งเภสัช
                            ส่งพบแพทย์ตรวจเลย----> HanG ครับ

                กรณี นอกเวลา รพ.เล็กๆ เภสัชไม่อย่เวร จะได้ผ่านไปได้ ไม่เช่นนั้น แพทย์จะสั่งยาไม่ได้ ครับ
                         แก้ไขเฉพาะหน้าคือ หลอกเครื่องว่า มีการแพ้ยา---> แก้เป็น ปฎิเสธการยา  แต่ความจริง ยังแพ้ยาอยู่

ข้อเสนอแนะ 
               น่าจะมีการให้เพิ่มช่อง พยาบาลซักประวัติ ติ๊กเลือก  "สงสัยแพ้ยา ยังไม่ระบุ" ก่อนส่งเภสัชว่าแพ้ยา --->แล้วกลับมา--->ให้แพทย์ตรวจสั่งยาต่อไป




                         

[howtodo]

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=7902.msg42269#msg42269
run  ในฟ้าผ่า

update  patient  set drugallergy = null
where `patient`.`drugallergy` =""

ตามด้วย
update patient  set drugallergy = replace(drugallergy,'\'','')

[อู๋kokha50]

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=7902.msg42269#msg42269
run  ในฟ้าผ่า

update  patient  set drugallergy = null
where `patient`.`drugallergy` =""

ตามด้วย
update patient  set drugallergy = replace(drugallergy,'\'','')

ขอบคุณ ท่าน  howtodo ครับ

หากพบปัญหา ก็ใช้วิธี
 update  patient  set drugallergy = null
where `patient`.`drugallergy` =""
ตามด้วย
update patient  set drugallergy = replace(drugallergy,'\'','')

ก็จะใช้ได้ ผ่านไป 1 ครั้ง ถือว่า เคลียปัญหาได้
ต่อมา ....
วันต่อมา.. เจอแบบนี้อีก ก็ แจ้งAdmin ให้ใช้วิธีนี้อีก เรื่อยๆ ....ไป..

เราก็จะวิ่งตามปัญหานี้ไปตลอด....

เรามาหาวิธีป้องกัน ไม่ให้ปัญหาเกิด...น่าจะดีกว่านะครับ...

สาเหตุ ... มันอยู่ที่ พยาบาลซักประวัติว่าแพ้ยา  แต่ไม่ได้ระบุว่าแพ้ยาอะไร
                เพราะคนที่จะบอกว่าแพ้ยาอะไรเป็นเภสัช ไม่ได้เป็นพยาบาลคนซักประวัติ เลยไม่ได้ลงยาที่แพ้
                น่าจะมีช่องที่พยาบาลซักประวัติว่าสงสัยจะแพ้ยา  กล้วมีช่องเภสัชว่าแพ้ยาอะไร
                เครื่องจะได้ไม่Hang

สรุปว่า ขอ อ.ชัยพร พิจารณาด้วยครับ

[manoi]

ลองทดสอบใน 3.51.11.23 ดูครับ ไม่น่าจะ Hang แล้ว

[white]

ลองทดสอบใน 3.51.11.23 ดูครับ ไม่น่าจะ Hang แล้ว

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

รู้สึกว่าถ้าเกิดลงว่าแพ้ยาแล้วไม่ใส่ชื่อยา
เวลาซักดีๆแล้วว่าไม่ได้แพ้จริง
...ลบข้อมูลแพ้ยาเดิมที่ไม่มีชื่อยาไม่ได้เลยครับ

[white]

วันนี้ผมเจอ hang ในหน้าจอสั่งยาอีกแล้วครับ
ยังไม่ทราบสาเหตุ
3.51.11.24c ครับ

รายนี้มีชื่อยาที่แพ้ครับ

[manoi]

ฝากตรวจสอบข้อมูลในตาราง patient ใน field drugallergy ครับ ว่ามีค่าเป็น space หรือไม่ (เท่าที่ได้รับแจ้งมาปัญหาที่ Hang บางคน เกิดจากมีค่าว่าง (space 1 ตัว) ใน field drugallergy ของตาราง patient ครับ)

[white]

ฝากตรวจสอบข้อมูลในตาราง patient ใน field drugallergy ครับ ว่ามีค่าเป็น space หรือไม่ (เท่าที่ได้รับแจ้งมาปัญหาที่ Hang บางคน เกิดจากมีค่าว่าง (space 1 ตัว) ใน field drugallergy ของตาราง patient ครับ)

หาโดย select * from patient
where drugallergy =" " หรือครับ มีหมื่นกว่า record

[manoi]

ใช่ครับ ใช้คำสั่งนี้เพื่อแก้ปัญหาครับ

update patient set drugallergy = trim(drugallergy)

[white]

ใช่ครับ ใช้คำสั่งนี้เพื่อแก้ปัญหาครับ

update patient set drugallergy = trim(drugallergy)

ลองใช้คำสั่งของอาจารย์ record ที่ select ได้ยังหมื่นปลายๆเท่าเดิมครับ
แล้วก็ยัง hang อยู่
แปลกจังผมลองสั่งยาคนเดียวกันในเครื่องทดสอบ ไม่ค้างครับ
สงสัยเป็นเพราะเครื่องที่รพ. ผมใช้โดยยังไม่ได้ upgrade structure เป็น version ล่าสุด
แต่ที่บ้านผมอัพแล้ว

ไม่รู้เกี่ยวหรือเปล่าครับ เดี๋ยวให้ admin เค้าอัพแล้วลองอีกที

มีอีกเรื่องครับ
เดิมอาจารย์เคยแก้ปัญหาเรื่องหน้าจ่ายยา mode2 ที่ถ้ามีรูปผู้ป่วยซ้อนกับตัวอักษรจะ hang ครับ
เป็นอีกแล้วครับ ทั้งเครื่องที่บ้านและ รพ.

[nuttavut]

ฝากตรวจสอบข้อมูลในตาราง patient ใน field drugallergy ครับ ว่ามีค่าเป็น space หรือไม่ (เท่าที่ได้รับแจ้งมาปัญหาที่ Hang บางคน เกิดจากมีค่าว่าง (space 1 ตัว) ใน field drugallergy ของตาราง patient ครับ)

หาโดย select * from patient
where drugallergy =" " หรือครับ มีหมื่นกว่า record

ของผม ใช้คำสั่ง select * from patient where drugallergy =" "   แล้วปรากฏว่ามี 4 หมื่นกว่า Record แต่ก็ไม่พบปัญหาดังกล่าวเกิดขึ้นเลยครับ ......

[white]

ช่วยด้วยครับ
...วันนี้ลองอัพ structure 3.51.11.24c + ปล่อยดาว์นโหลด
พบปัญหาเรื่อง hang เวลาสั่งยาในคนไข้ทีมีประวัติแพ้ยา
ไม่ว่าจะแก้ยังไงก็ยัง hang ทุกกรณีครับ
- ลบ "" ออกจาก drugallergy ใน patient แล้ว
- ลบเครื่องหมายแปลกๆ เช่น "", ฯลฯ แล้ว
- ลองใส่ข้อมูลการแพ้ยาให้ละเอียดแล้ว

ทั้งๆที่เครื่องทดสอบที่บ้านใช้ database ใกล้เคียงกัน
แม้จะให้เป็น "" ยังไม่ hang เลยครับ
(ต่างกันที่ MySQL ของรพ.เป็น 5.0.xx ที่บ้าน 5.1.28 และที่บ้านเป็น Vista)

ไม่เข้าใจเลยเสียเวลาแก้มาหลายชั่วโมงแล้ว
จนไม่อยากยุ่งกับ database ต่อแล้ว เดี๋ยวยิ่งรวม

กลับมาใช้ 3.51.10.29 ไม่มีปัญหาเรื่องนี้เลยครับ

ที่อื่นๆไม่เป็นกันเลยหรือครับ
ส่วนมากจะเป็นหน้าสั่งยาของ ER ครับ
ไม่รู้เพราะ code ผิดหรือเปล่า ดูจาก trace แล้วค้างตรงนี้ครับ

[อู๋kokha50]

ช่วยด้วยครับ

ที่อื่นๆไม่เป็นกันเลยหรือครับ
ส่วนมากจะเป็นหน้าสั่งยาของ ER ครับ
ไม่รู้เพราะ code ผิดหรือเปล่า ดูจาก trace แล้วค้างตรงนี้ครับ

ไม่ทราบว่าหมอไวท์ ใช้วิธีการ Remed ตอนสั่งเวชภัณฑ์ ด้วยหรือว่าครับ
ของ รพ.ผมเจอเมื่ออาทิตย์ก่อน ที่ Hang มี 2 สาเหตุ
1. เรื่องแพ้ยา มี ฟันหนู " " แก้ไข้แล้ว
2. เรื่อง Remed ต่อๆกันมา แล้วมันเอา เวชภัณฑ์ที่มิใช่ยามาด้วย แต่เป็นรายการที่ถูกยกเลิกไปแล้วมันหาไม่เจอจึง Hang

ผมเจอแค่ 2 สาเหตุ แก้ไขได้ ส่วนสาเหตุอื่นๆ  รอท่านอื่นๆตอบครับ

[white]

ช่วยด้วยครับ

ที่อื่นๆไม่เป็นกันเลยหรือครับ
ส่วนมากจะเป็นหน้าสั่งยาของ ER ครับ
ไม่รู้เพราะ code ผิดหรือเปล่า ดูจาก trace แล้วค้างตรงนี้ครับ

ไม่ทราบว่าหมอไวท์ ใช้วิธีการ Remed ตอนสั่งเวชภัณฑ์ ด้วยหรือว่าครับ
ของ รพ.ผมเจอเมื่ออาทิตย์ก่อน ที่ Hang มี 2 สาเหตุ
1. เรื่องแพ้ยา มี ฟันหนู " " แก้ไข้แล้ว
2. เรื่อง Remed ต่อๆกันมา แล้วมันเอา เวชภัณฑ์ที่มิใช่ยามาด้วย แต่เป็นรายการที่ถูกยกเลิกไปแล้วมันหาไม่เจอจึง Hang

ผมเจอแค่ 2 สาเหตุ แก้ไขได้ ส่วนสาเหตุอื่นๆ  รอท่านอื่นๆตอบครับ

ผมว่าเป็นที่ version 24c นี่แหล่ะครับ
ผมแก้ปัญหาเท่าที่ได้ทุกอย่างแล้วครับ
ไม่ได้จาก remed ด้วย แค่บันทึกเปล่าๆยังค้างเลยครับ

[white]

update patient  set drugallergy = replace(drugallergy,'\'','')

คำสั่งนี้เอาไว้ลบเครื่องหมาย '  ในชื่อยา
ผมดันไปรันคำสั่งนี้ใน database จริง +update แล้ว
รูปแบบชื่อยาจาก 'xxxxxx'  --> xxxxxx หมดเลยครับ
ไม่ทราบว่าจะมีปัญหาไหมครับ
แล้วมีคำสั่งใส่เครื่องหมายคืนไปไหมครับ

แต่เท่าที่ทดสอบใน 3.51.11.29b
รู้สึกว่าแบบไหนก็ไม่มีปัญหานะครับ ขึ้นเตือนแพ้ยาได้หมด
(เพียงแต่ไม่มั่นใจว่าเครื่องหมายหายไป จะมีปัญหาอะไรไหม)

[white]

ขอความเห็นด้วยครับ ถ้าไม่มีปัญหาอะไรจะได้ไม่ต้องให้แก้ครับ 
ไม่น่าเผลอลบเครื่องหมายตามเลย 

[manoi]

ไม่ต้องแก้ครับ ข้อมูลการแพ้ยา จริงๆ แล้วเอามาจากตาราง opd_allergy ครับ หากไม่พบจึงจะนำมาจาก patient