Request จากห้องฟันครับ

[udomchok]

"อยากให้เด้งข้อมูลคนไข้ที่on ASAขึ้นมาเหมือนพวกmedical alertหรือคนไข้systemic
เพราะตอนนี้ห้องฟันจำเป็นต้องส่งคนไข้ที่on ASA ไป consult แพทย์ทุกcaseน่ะค่ะ"

คือห้องฟันจากให้มี pop up เตือนที่หน้าจอ กรณีผู้ป่วยใช้ยากลุ่ม antiplatelet อยู่ครับ เพราะมีปัญหาว่าไม่ทราบว่าผู้ป่วยใช้ยากลุ่มนี้อยู่ พอถอนฟันแล้ว กลับไปบ้านเลือดออกกลบปากเลยครับ (ไม่ใช่ถูกตบเลือดกลบปากนะครับ)...เป็นเพราะใช้ยาต้านการแข็งตัว...ของเกร็ดเลือด(...อย่านึกว่าอย่างอื่น 5555555)
เลยต้องการทราบข้อมูลส่วนนี้ครับ เพราะลดความเสี่ยง (Risk) ของผู้ป่วยครับ
ตอนนี้กะว่าให้ห้องยาตั้ง note เตือนทันตแพทย์ไปก่อนครับ แต่เสียเวลานิดหนึ่งต้องมา check ว่าใครได้รับยากลุ่มนี้ไปบ้าง แล้วค่อยไปเขียน note ทีละคน (จะมาถอนฟัน...วันไหน...หรือเปล่า.....ก็ไม่รู้...ใส่ไปทั้งหมด ใช้เวลาหน่อย

[golf_win]

ของผมใช้ระบบคลินิกพิเศษครับ แต่ก็แค่เฝ้าระวังในผู้ป่วย ความดัน เบาหวาน โรคหัวใจ ยังต้องเปิด EMR ดูซ้ำเพื่อความแน่ใจครับ พี่โก้จุดประเด็นตรงจุดจริงๆครับ เพราะว่ามันคื่อเรื่อง safety ของผู้ป่วย เห็นด้วยกับพี่โก้ครับ

[manoi]

ผมปรับปรุงระบบ Script ตรวจสอบและเตือนข้อมูลให้ Run ตอนเรียกผู้ป่วยมาแล้วครับ สามารถเขียน Script ตรวจสอบข้อมูลและเตือนผู้ใช้งานได้แล้วครับใน 3.52.2.19

script ที่สร้างต้องตั้งชื่อ SYS_VN_PRE_SCRIPT ครับ

[manoi]

ตัวอย่าง Script ครับ

(แปลกจัง ยังไม่มีใครเห็น 3.52.2.19)

[atit]

ตัวอย่าง Script ครับ

(แปลกจัง ยังไม่มีใครเห็น 3.52.2.19)

กำลังโหลดครับ คนอื่นก็น่าจะเช่นกันครับ

[nph2006]

ตัวอย่าง Script ครับ

(แปลกจัง ยังไม่มีใครเห็น 3.52.2.19)

.17 ก็ไม่เห็นครับ

[atit]

ล่าสุด .19b ครับ

[udomchok]

ตัวอย่าง Script ครับ

(แปลกจัง ยังไม่มีใครเห็น 3.52.2.19)

พยายามเฝ้าดูตลอดครับ จาก .16 ไปเห็นอีกทีเป็น .19b ไปแล้วครับ
 
เดี๋ยวจะลอง script ที่ว่าครับ
ขอบคุณครับ

[udomchok]

ลองใช้แล้ว โดยแก้ไขจาก script ที่ อ.mn ให้ไว้ครับ (ตรงที่เป็นสีแดง)

var
  fvn,fcomputername,fdepartment,fhn : string;
  tc : TClientDataset;

begin
  showmessage('Example vn pre processing script');

  fvn:= GetGlobalValue('VN');
  fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');

  showmessage('Current VN = '+fvn+'  , Computer Name = '+fcomputername+' , Department Code = '+fdepartment);

  fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');

  if getsqldata('select count(*) as cc from opitemrece where hn = "'+fhn+'" and icode in ("1900072","1510054","1900071") ')>0 then
     showmessage('¼Ùé»èÇÂãªéÂÒ Aspirin');
end;

เกิด error ตามรูปครับ

[manoi]

ต้องลบข้อมูลออกจาก Tab DFM ก่อนครับ

[udomchok]

ขอบคุณครับ


ทำตามที่แนะนำแล้วยังไม่ได้...ดูไปดูมา...ลืมติ๊ก Allow User Run ครับ
 

ตอนนี้ใช้งานได้แล้วครับ
ขอบคุณอีกครั้งครับ

[udomchok]

เกิดปัญหาอย่างอื่นเพิ่มเติมครับ คือถ้าผู้ป่วยอยู่ในคลินิกโรคเรื้อรัง จะแสดง messagebox ที่บอกว่าผู้ป่วยอยู่ในคลินิกนั้น ๆ 2 ครั้ง คือ
ครั้งแรกหลังจาก enter (ก่อนตรวจสอบ SYS_VN_PRE_SCRIPT)
ครั้งที่สองหลังจากตรวจสอบ SYS_VN_PRE_SCRIPT แล้วครับ

[doramon]

ผมไม่ได้อ่าน อันนี้ 

[golf_win]

แล้วต้องแก้ไขอย่างไรดีครับ พี่อ็อด

[doramon]

ลองใช้แล้ว โดยแก้ไขจาก script ที่ อ.mn ให้ไว้ครับ (ตรงที่เป็นสีแดง)

var
  fvn,fcomputername,fdepartment,fhn : string;
  tc : TClientDataset;

begin
  showmessage('Example vn pre processing script');

  fvn:= GetGlobalValue('VN');
  fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');

  showmessage('Current VN = '+fvn+'  , Computer Name = '+fcomputername+' , Department Code = '+fdepartment);

  fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');

  if getsqldata('select count(*) as cc from opitemrece where hn = "'+fhn+'" and icode in ("1900072","1510054","1900071") ')>0 then
     showmessage('¼Ùé»èÇÂãªéÂÒ Aspirin');
end;

เปลียน  icode  เป็นรหัส ยา รพ เราครับ

อันนี้หมายถึง aspirin รพ เรา

[pop_hosxp]

รบกวนทุกท่านช่วยอธิบายวิธีทำหน่อยครับ  หลังจากเรียกคนไข้ที่ใช้ยา aspirin ผมลองทำแล้วไม่ขึ้นอะไรเลย ทั้ง ๆ ที่แก้ icode ให้เป็น aspirin ของรพ.แล้ว

[udomchok]

เป็นไปตามคาดครับ
ทดลองเอา version เดือนกุมภาพันธ์ มา Run ปรากฏว่าใช้ได้ครับ
กำลังเอา Version เดือนมีนา-เมษา มาทดลอง ปรากฏว่า HOSxP ยังไม่ยอม Run ครับ (ไม่รู้เป็น'ไร)

ยังไงลองช่วยทดสอบกันหน่อยครับ เดี๋ยววันนี้จะให้ อ.mn ตรวจสอบให้ครับ

[pop_hosxp]

เป็นไปตามคาดครับ
ทดลองเอา version เดือนกุมภาพันธ์ มา Run ปรากฏว่าใช้ได้ครับ
กำลังเอา Version เดือนมีนา-เมษา มาทดลอง ปรากฏว่า HOSxP ยังไม่ยอม Run ครับ (ไม่รู้เป็น'ไร)

ยังไงลองช่วยทดสอบกันหน่อยครับ เดี๋ยววันนี้จะให้ อ.mn ตรวจสอบให้ครับ

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

[udomchok]

เป็นไปตามคาดครับ
ทดลองเอา version เดือนกุมภาพันธ์ มา Run ปรากฏว่าใช้ได้ครับ
กำลังเอา Version เดือนมีนา-เมษา มาทดลอง ปรากฏว่า HOSxP ยังไม่ยอม Run ครับ (ไม่รู้เป็น'ไร)

ยังไงลองช่วยทดสอบกันหน่อยครับ เดี๋ยววันนี้จะให้ อ.mn ตรวจสอบให้ครับ

ตอนนี้ทดสอบกับ Version 3.52.3.27 แล้วยังใช้งานได้อยู่ครับ (เตือนผ่าน VN Script)
แต่ Version 3.52.4.23 ใช้ไม่ได้แล้วครับ (ไม่เตือน VN Script)

เป็นไปตามคาดครับ
ทดลองเอา version เดือนกุมภาพันธ์ มา Run ปรากฏว่าใช้ได้ครับ
กำลังเอา Version เดือนมีนา-เมษา มาทดลอง ปรากฏว่า HOSxP ยังไม่ยอม Run ครับ (ไม่รู้เป็น'ไร)

ยังไงลองช่วยทดสอบกันหน่อยครับ เดี๋ยววันนี้จะให้ อ.mn ตรวจสอบให้ครับ

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

วิธีการนำ script ไปใช้คือ เข้าหน้า SQL Query แล้วเลือกไปที่ tab script ครับ ที่ด้านล่างสุดของหน้าจอ click ปุ่ม browse (ที่เป็นรูป folder เปิด) หา file ที่นามสกุล .pas แล้วเปิดขึ้นมา
ติ๊กที่ Allow user run เสร็จแล้ว Click Save ที่ด้านบน ตั้งชื่อเป็น SYS_VN_PRE_SCRIPT ครับ
คราวนี้พอเราเรียกคนไข้มาตรวจและมีการกำหนด icode ของยาที่เราต้องการเตือน โปรแกรมจะแสดง popup ขึ้นมาครับ

ตอนนี้ อ.mn กำลังแก้ไขโปรแกรมนิดหน่อยครับ ในส่วนที่ไม่แสดงตามที่คุณ pop_hosxp  แจ้งครับ
ยังไงระหว่างนี้ทดสอบได้เลย แต่ต้องใช้ version 3.52.3.27 นะครับ

[udomchok]

รู้แล้วว่า version หลัง ๆ ทำไมไม่เตือน...เพราะไม่ได้เข้าไปกำหนดในนี้ครับ (ตามรูป)
คือไม่ได้เข้ามาใช้งานส่วนนี้ซะนาน จนไม่รู้ว่ามีการเพิ่มเข้ามาในนี้แล้ว
คราวนี้ห้องฟันคงได้ update โปรแกรม ทันห้องอื่น ๆ แล้ว
 

[Guitar-hero]

คือผม ได้ทำตามคำอธิบายที่คุณ udomchok บอกไว้ครับ แต่เวลาเรียกคนไข้ที่มีการใช้ยา Aspirin (กำหนด icode ของโรงพยาบาลผมแล้ว) ก็ไม่ปรากฎอะไรขึ้นมาเลยครับ

Hosxp เวอร์ชั่นที่ใช้ทดสอบคือ 3.53.3.28

[udomchok]

คือผม ได้ทำตามคำอธิบายที่คุณ udomchok บอกไว้ครับ แต่เวลาเรียกคนไข้ที่มีการใช้ยา Aspirin (กำหนด icode ของโรงพยาบาลผมแล้ว) ก็ไม่ปรากฎอะไรขึ้นมาเลยครับ

Hosxp เวอร์ชั่นที่ใช้ทดสอบคือ 3.53.3.28

ติ๊กตรง ยอมให้ Run Pre Processing VN Script หรือยังครับ
สำหรับ clinic ที่เป็นงานทันตกรรมน่ะครับ

[A ROON CHAI]

ผมปรับปรุงระบบ Script ตรวจสอบและเตือนข้อมูลให้ Run ตอนเรียกผู้ป่วยมาแล้วครับ สามารถเขียน Script ตรวจสอบข้อมูลและเตือนผู้ใช้งานได้แล้วครับใน 3.52.2.19

script ที่สร้างต้องตั้งชื่อ SYS_VN_PRE_SCRIPT ครับ

ถ้าต้องการ SYS_VN_PRE_SCRIPT หลายตัวต้องตั้งชื่ออย่างไรครับ

เช่น 1. ต้องการให้มีข้อความเตือน เมื่อมีประวัติใช้ Aspirin ที่ห้องฟัน  1 SCRIPT (ใช้ชื่อ SYS_VN_PRE_SCRIPT ไปแล้ว)
       2. ต้องการให้มีข้อความเตือนเมื่อมีการพิมพ์ใบสั่งยาที่มีรายการใบรับรองแพทย์ที่จุดซักประวัติ  1 SCRIPT

SCRIPT ที่ 2 จะตั้งชื่อว่าอะไรครับ

[James011]

ผมปรับปรุงระบบ Script ตรวจสอบและเตือนข้อมูลให้ Run ตอนเรียกผู้ป่วยมาแล้วครับ สามารถเขียน Script ตรวจสอบข้อมูลและเตือนผู้ใช้งานได้แล้วครับใน 3.52.2.19

script ที่สร้างต้องตั้งชื่อ SYS_VN_PRE_SCRIPT ครับ

ถ้าต้องการ SYS_VN_PRE_SCRIPT หลายตัวต้องตั้งชื่ออย่างไรครับ

เช่น 1. ต้องการให้มีข้อความเตือน เมื่อมีประวัติใช้ Aspirin ที่ห้องฟัน  1 SCRIPT (ใช้ชื่อ SYS_VN_PRE_SCRIPT ไปแล้ว)
       2. ต้องการให้มีข้อความเตือนเมื่อมีการพิมพ์ใบสั่งยาที่มีรายการใบรับรองแพทย์ที่จุดซักประวัติ  1 SCRIPT

SCRIPT ที่ 2 จะตั้งชื่อว่าอะไรครับ

         1. ถ้าให้แจ้งเตือนก่อนลงทะเบียนผู้ป่วย ===>  SYS_VN_PRE_SCRIPT
                    2. ถ้าให้แจ้งเตือนหลังลงทะเบียนผู้ป่วยแล้ว ===>SYS_VN_SCRIPT
  

        รพ.ใช้งานจริงอยู่ครับ หลักการเดียวกัน ตามนี้ครับ  http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=14329.0