BMS-HOSxP Community

HOSxP => Development => ข้อความที่เริ่มโดย: pop_hosxp ที่ กรกฎาคม 02, 2011, 16:00:31 PM

หัวข้อ: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ กรกฎาคม 02, 2011, 16:00:31 PM

แจก script ใหม่ครับ สำหรับ รพ.ที่ต้องการคำนวณการทำงานของไตแบบ GFR

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pong2pong ที่ กรกฎาคม 02, 2011, 16:26:31 PM

อ. pop_hosxp สุดยอด ;D ;D ;D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pong2pong ที่ กรกฎาคม 02, 2011, 16:37:42 PM

อ. pop_hosxp ครับ
แบบว่าให้ link กับยาที่สั่งของผู้ป่วยแต่ละรายได้ไหมครับ
เช่น "ผู้ป่วย GFR <50 ml/min ไม่ควรได้รับ HCTZ"
หรือ "ผู้ป่วย GFR <25 ml/min ไม่ควรได้รับ ATENOLOL"

เพื่อเพิ่มประสิทธิภาพในการรักษา
หรือลดความเสี่ยงในการเกิดอาการไม่พึงประสงค์จากยาครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ กรกฎาคม 02, 2011, 18:30:00 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

ขอตัวอย่างวิธีทำด้วยนะครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: James011 ที่ กรกฎาคม 02, 2011, 19:16:00 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 18:30:00 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

ขอตัวอย่างวิธีทำด้วยนะครับ

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 18:30:00 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

ขอตัวอย่างวิธีทำด้วยนะครับ

;D ;D ;D ;D  Load Script  SYS_VN_PRE_SCRIPT  ขึ้นมาแก้ไขครับ  แล้วก็ แทรก Code ใหม่ ต่อท้าย ของเดิม ตามรูปครับ 

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: nahos ที่ กรกฎาคม 06, 2011, 17:30:54 PM

ทำไม่เป็นครับพี่เจมส์

เอาจากไหนถึงไหนครับมาวาง   
จาก
var  จนถึง  end:

มาวาง ก่อน end; ตัวสุดท้ายใช่ไหมครับ
 ;)

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: James011 ที่ กรกฎาคม 06, 2011, 17:33:38 PM

อ้างจาก: nahos ที่ กรกฎาคม 06, 2011, 17:30:54 PM

ทำไม่เป็นครับพี่เจมส์

เอาจากไหนถึงไหนครับมาวาง  
จาก
var  จนถึง  end:

มาวาง ก่อน end; ตัวสุดท้ายใช่ไหมครับ
 ;)

   


               ;D ;D ; ใช่ครับ  ก่อน End; ตัวสุดท้าย แล้ว กด  Exec ดู ถ้าไม่มี Error  ถือว่าผ่าน

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: kungkung ที่ สิงหาคม 30, 2011, 11:12:39 AM

ขอถามเพิ่มหน่อยนะครับ ใน version 3.54.8.19  ค่า GFR  ถูกต้องไหมครับ พอดีหมอเขาท้วงมาอ่ะครับ ว่ามันคำนวณผิด...

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ สิงหาคม 30, 2011, 14:11:31 PM

version ไหนก็น่าจะได้ค่าเท่าเดิมนะครับ เพราะสูตรที่ใช้คํานวณก็อันเดิมครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: kungkung ที่ สิงหาคม 30, 2011, 18:48:22 PM

อ้างจาก: pop_hosxp ที่ สิงหาคม 30, 2011, 14:11:31 PM

version ไหนก็น่าจะได้ค่าเท่าเดิมนะครับ เพราะสูตรที่ใช้คํานวณก็อันเดิมครับ

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

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ สิงหาคม 30, 2011, 18:53:11 PM

อ้างจาก: kungkung ที่ สิงหาคม 30, 2011, 18:48:22 PM

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

ลองคำนวณตามสูตรนี้แบบ manual ดูครับว่าได้เท่าไหร่

GFR2
eGFR=186.3 x Creatinine ยกกำลัง(-1.154) x อายุ ยกกำลัง(-0.203) ในเพศชาย
eGFR=186.3 x Creatinine ยกกำลัง(-1.154) x อายุ ยกกำลัง(-0.203) x 0.742 ในเพศหญิง

ถ้าคำนวณได้ไม่เท่ากับที่ script แจ้งไว้ ช่วยบอกผมด้วยครับ จะตรวจสอบให้ครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ สิงหาคม 30, 2011, 21:16:42 PM

อ้างจาก: kungkung ที่ สิงหาคม 30, 2011, 11:12:39 AM

ขอถามเพิ่มหน่อยนะครับ ใน version 3.54.8.19  ค่า GFR  ถูกต้องไหมครับ พอดีหมอเขาท้วงมาอ่ะครับ ว่ามันคำนวณผิด...

การรายงานผลค่าของ Creatinine ต้องไม่คลาดเคลื่อนด้วยนะครับ  :D :D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: nahos ที่ ธันวาคม 06, 2011, 11:00:14 AM

อยากได้ออกมาเป็นรายงาน ทะเบียน GFR
อ.ป๊อบ ได้ทำไว้บ้างไหมครับ ;D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ ธันวาคม 07, 2011, 01:49:55 AM

อ้างจาก: nahos ที่ ธันวาคม 06, 2011, 11:00:14 AM

อยากได้ออกมาเป็นรายงาน ทะเบียน GFR
อ.ป๊อบ ได้ทำไว้บ้างไหมครับ ;D

For Test

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Terminator2015 ที่ ธันวาคม 07, 2011, 10:11:15 AM

 ::) ผมลองแล้วขึ้นแบบนี้ครับ แก้ยังไงครับพี่เอก

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: naydekdee ที่ ธันวาคม 28, 2011, 14:43:41 PM

ทำไง หว่า

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: udomchok ที่ ธันวาคม 28, 2011, 15:15:54 PM

รู้สึกพี่เอกจะ mo โครงสร้างนะครับ เพิ่ม column นี้เข้าไปครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: naydekdee ที่ ธันวาคม 28, 2011, 16:55:04 PM

อธิบาย  เพิ่มเติ่มหน่อยได้ป่าว ครับ กำลังมือใหม่ มาก  และ กำลัง งง ด้วย

คือว่า ใน hosxp  ค่า GFR   ต่างจากทำมือมากเลย ครับ   ซึ่งผมอยากได้ ค่าใน hosxp  แบบ ใกล้เคียงหรือว่าถูกต้อง   เลยครับ     [[[[[[[     เอาสูตร 1      ]]]]]]]]]  ครับผม

และอีกอย่างครับ  อยาก จะ แสดงให้รู้เลยว่า    ค่า ในระดับ    อยู่ใน  stage  ไหน อ่ะครับ เพื่อบอกระดับ ไตวาย


อ่ะครับ   

ขอบคุณครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: udomchok ที่ ธันวาคม 28, 2011, 17:16:24 PM

อ้างจาก: naydekdee ที่ ธันวาคม 28, 2011, 16:55:04 PM

อธิบาย  เพิ่มเติ่มหน่อยได้ป่าว ครับ กำลังมือใหม่ มาก  และ กำลัง งง ด้วย

คือว่า ใน hosxp  ค่า GFR   ต่างจากทำมือมากเลย ครับ   ซึ่งผมอยากได้ ค่าใน hosxp  แบบ ใกล้เคียงหรือว่าถูกต้อง   เลยครับ     [[[[[[[     เอาสูตร 1      ]]]]]]]]]  ครับผม

และอีกอย่างครับ  อยาก จะ แสดงให้รู้เลยว่า    ค่า ในระดับ    อยู่ใน  stage  ไหน อ่ะครับ เพื่อบอกระดับ ไตวาย


อ่ะครับ   

ขอบคุณครับ

ลองดูที่นี่ครับ http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=21340.msg182855#msg182855

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ ธันวาคม 29, 2011, 00:12:02 AM

ไม่ทราบว่าตารางที่เก็บค่า GFR อยู่ที่ตารางไหนครับ ตอนนี้ที่คลีนิกพิเศษ บอกว่านอกจากจะให้แสดงที่หน้าจอ เอาไว้เตือนตอนตรวจรักษาแล้ว อยากให้สามารถพิมพ์ออกมาได้ด้วย เอาไว้ตรวจประเมินของโครงการการประเมินผลการดูแลผู้ป่วยเบาหวานชนิดที่ 2 และความดันโลหิตสูง ที่เป็นโครงการร่วมของ สปสช และ CRCN..........

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ ธันวาคม 29, 2011, 02:30:48 AM

อ้างจาก: Terminator2011 ที่ ธันวาคม 07, 2011, 10:11:15 AM

::) ผมลองแล้วขึ้นแบบนี้ครับ แก้ยังไงครับพี่เอก

CREATE TABLE `report_clinic_cormobidity_ckd` (
  `clinic_cormobidity_ckd_id` int(11) NOT NULL,
  `clinic_cormobidity_ckd_name` varchar(100) DEFAULT NULL,
  `clinic_cormobidity_ckd_min` int(11) DEFAULT NULL,
  `clinic_cormobidity_ckd_max` int(11) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=tis620

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ มกราคม 17, 2012, 14:51:12 PM

อ้างจาก: CMI ที่ ธันวาคม 29, 2011, 02:30:48 AM

อ้างจาก: Terminator2011 ที่ ธันวาคม 07, 2011, 10:11:15 AM

::) ผมลองแล้วขึ้นแบบนี้ครับ แก้ยังไงครับพี่เอก

CREATE TABLE `report_clinic_cormobidity_ckd` (
  `clinic_cormobidity_ckd_id` int(11) NOT NULL,
  `clinic_cormobidity_ckd_name` varchar(100) DEFAULT NULL,
  `clinic_cormobidity_ckd_min` int(11) DEFAULT NULL,
  `clinic_cormobidity_ckd_max` int(11) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=tis620

อ.เอก ครับ ไม่ทราบว่า Script นี้ สามารถนำเข้าตาราง Doraemon แล้วใช้ได้เลยหรือไม่ครับ หรือต้องไปแก้ตรงไหนมั๊ยครับ.........ก่อนหน้าใช้ของ อ.pop พยบาลที่คลีนิคบอกว่าไม่ตรงกับที่คำนวณมือ (Excel ของ รพ.เจ้าพระยายมราช) ก็เลยจะลองเอาของ อ.เอก ไปลองนำเข้าให้พยาบาลใช้ดู..........

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ มกราคม 17, 2012, 15:07:04 PM

และอีกอย่างครับ..........พยาบาลที่คลีนิกแจ้งมาว่า ค่า GFR ที่ห้องตรวจแพทย์ ก็ยังไม่ตรงกับที่คำนวณมือ จาก Excel ของ รพ.เจ้าพระยายมราช อีกด้วย เช่น ผู้ป่วยชาย อายุ 52 ปี Cr=0.8

จาก script อ.pop --->  113.06
จาก Excel           --->  107.89
จาก ห้องตรวจ      --->  72.36

ก็เลยสงสัยว่าตกลงแล้วค่าไหนที่เป็นไปตามมาตรฐาน ??? ??? ???

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ มกราคม 17, 2012, 15:45:35 PM

อ้างจาก: Noppadol ที่ มกราคม 17, 2012, 15:07:04 PM

และอีกอย่างครับ..........พยาบาลที่คลีนิกแจ้งมาว่า ค่า GFR ที่ห้องตรวจแพทย์ ก็ยังไม่ตรงกับที่คำนวณมือ จาก Excel ของ รพ.เจ้าพระยายมราช อีกด้วย เช่น ผู้ป่วยชาย อายุ 52 ปี Cr=0.8

จาก script อ.pop --->  113.06
จาก Excel           --->  107.89
จาก ห้องตรวจ      --->  72.36

ก็เลยสงสัยว่าตกลงแล้วค่าไหนที่เป็นไปตามมาตรฐาน ??? ??? ???

ตอนนี้ใช้ script GFR หรือ CrCl ครับ เพราะที่ผมลองคำนวณตามข้อมูลนี้กับ script GFR ที่เขียนไว้ ก็ได้ 107.89 นะครับ แต่ถ้าเป็น script CrCl จะได้ 113.06 ถ้าคนไข้หนัก 74 kg ครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ มกราคม 17, 2012, 16:16:36 PM

อ้างจาก: pop_hosxp ที่ มกราคม 17, 2012, 15:45:35 PM

อ้างจาก: Noppadol ที่ มกราคม 17, 2012, 15:07:04 PM

และอีกอย่างครับ..........พยาบาลที่คลีนิกแจ้งมาว่า ค่า GFR ที่ห้องตรวจแพทย์ ก็ยังไม่ตรงกับที่คำนวณมือ จาก Excel ของ รพ.เจ้าพระยายมราช อีกด้วย เช่น ผู้ป่วยชาย อายุ 52 ปี Cr=0.8

จาก script อ.pop --->  113.06
จาก Excel           --->  107.89
จาก ห้องตรวจ      --->  72.36

ก็เลยสงสัยว่าตกลงแล้วค่าไหนที่เป็นไปตามมาตรฐาน ??? ??? ???

ตอนนี้ใช้ script GFR หรือ CrCl ครับ เพราะที่ผมลองคำนวณตามข้อมูลนี้กับ script GFR ที่เขียนไว้ ก็ได้ 107.89 นะครับ แต่ถ้าเป็น script CrCl จะได้ 113.06 ถ้าคนไข้หนัก 74 kg ครับ

ผมลองลบตัวเดิมออก แล้วนำเข้าใหม่ (จากหน้าแรก) ปรากฏว่าไม่โชว์ Popup ตามหน้าแรกซะงั้น.......

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ มกราคม 19, 2012, 09:52:52 AM

อ้างจาก: Noppadol ที่ มกราคม 17, 2012, 16:16:36 PM

อ้างจาก: pop_hosxp ที่ มกราคม 17, 2012, 15:45:35 PM

อ้างจาก: Noppadol ที่ มกราคม 17, 2012, 15:07:04 PM

และอีกอย่างครับ..........พยาบาลที่คลีนิกแจ้งมาว่า ค่า GFR ที่ห้องตรวจแพทย์ ก็ยังไม่ตรงกับที่คำนวณมือ จาก Excel ของ รพ.เจ้าพระยายมราช อีกด้วย เช่น ผู้ป่วยชาย อายุ 52 ปี Cr=0.8

จาก script อ.pop --->  113.06
จาก Excel           --->  107.89
จาก ห้องตรวจ      --->  72.36

ก็เลยสงสัยว่าตกลงแล้วค่าไหนที่เป็นไปตามมาตรฐาน ??? ??? ???

ตอนนี้ใช้ script GFR หรือ CrCl ครับ เพราะที่ผมลองคำนวณตามข้อมูลนี้กับ script GFR ที่เขียนไว้ ก็ได้ 107.89 นะครับ แต่ถ้าเป็น script CrCl จะได้ 113.06 ถ้าคนไข้หนัก 74 kg ครับ

ผมลองลบตัวเดิมออก แล้วนำเข้าใหม่ (จากหน้าแรก) ปรากฏว่าไม่โชว์ Popup ตามหน้าแรกซะงั้น.......

กำหนด depcode ที่ต้องการให้แสดงแล้วนะครับ..........

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ มกราคม 19, 2012, 09:56:48 AM

ศรีเชียงใหม่ ส่ง teamviewer ไปทาง mail ใช้เวลาทำ 1 นาที

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ มกราคม 19, 2012, 10:08:22 AM

ติ๊กถูกที่ allow user run แล้ว save script จากนั้นปิดโปรแกรม แล้วเข้าใหม่ครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Noppadol ที่ มกราคม 19, 2012, 10:28:58 AM

อ้างจาก: pop_hosxp ที่ มกราคม 19, 2012, 10:08:22 AM

ติ๊กถูกที่ allow user run แล้ว save script จากนั้นปิดโปรแกรม แล้วเข้าใหม่ครับ

ขอบคุณครับ...............แหมผมมองผ่านไปได้ไงนะเนี่ย............. ;D ;D ;D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 24, 2012, 21:42:32 PM

เรียน อ.ทุกท่าน ครับ
     ผมได้รับคำขอ จากแพทย์อายุรกรรม ให้คำนวนค่า GFR
 แพทย์ได้ให้สูตรคำนวนใหม่มาจากสมาคมโรคไต ปี2555 ร่วมกับ สปสช จากที่ประชุม การรักษาโรคไตและการล้างไต เมื่อสัปดาห์ที่แล้ว ล่าสุด ครับ

สูตรคือ
 เพศหญิง ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร eGFR=144 x (ซีลั่มcreatinine/0.7)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)

 เพศชาย ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร  eGFR=141 x (ซีลั่มcreatinine/0.9)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)


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

นี้คือ Scrip เดิม ครับ
var
  fvn,fcomputername,fdepartment,fhn, scrcl, sgfr,sLastCr, sLastCrDate : string;
  crcl, gfr, bw, LastCr, age_y, sex, a, factor : double;
  LastCrDate : date;
  cc:integer;
 
begin

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

    if getsqldata('select depcode from kskdepartment where depcode in (select depcode from depcode_vn_script_allow) and depcode="'+fdepartment+'"')=''+fdepartment+'' then

      bw:=getsqldata('select bw from opdscreen where hn="'+fhn+'" order by vn desc limit 1');

      LastCr:=getsqldata('select lo.lab_order_result from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=(select lab_items_code from lab_items where lab_items_name= '+
      '(select sys_value from sys_var where sys_name="lab_link_cr" limit 1)) '+
      ' and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      LastCrDate:=getsqldata('select lh.order_date from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=(select lab_items_code from lab_items where lab_items_name= '+
      '(select sys_value from sys_var where sys_name="lab_link_cr" limit 1)) '+
      ' and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');

       //factor:=getsqldata('select if(sex=1,1,0.85) as factor from patient where hn="'+fhn+'"');

     // factor:=getsqldata('select if(sex=1,1,0.742) as factor from patient where hn="'+fhn+'"'); //
        factor:=getsqldata('select if(sex=1,1,0.742) as factor from patient where hn="'+fhn+'"');

      //crcl:=(140-age_y)*bw*factor/(72*LastCr);

      //gfr:=186*exp(-1.154*ln(LastCr))*exp(-0.203*ln(age_y))*factor;  //

      gfr:=186*exp(-1.154*ln(LastCr))*exp(-0.203*ln(age_y))*factor;

      ///scrcl:=FormatFloat('#.##', crcl);

      sgfr:=FormatFloat('#.##', gfr);
      sLastCr:=FormatFloat('#.##', LastCr);
      sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);


       if getsqldata('select count(lo.lab_order_result) as cc from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=(select lab_items_code from lab_items where lab_items_name= '+
      '(select sys_value from sys_var where sys_name="lab_link_cr" limit 1)) '+
      ' and lh.hn="'+fhn+'"')>0 then

       begin
           if gfr>=90 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 1 äµ¼Ô´»¡µÔ áÅÐ GFR »¡µÔËÃ×Íà¾ÔèÁ¢Öé¹)')
          else if gfr>=60 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 2 äµ¼Ô´»¡µÔ GFR Å´ÅàÅ硹éÍÂ)')
           else if gfr>=30 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 3 äµ¼Ô´»¡µÔ GFR ŴŻҹ¡ÅÒ)')
          else if gfr>=15 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 4 äµ¼Ô´»¡µÔÁÒ¡ GFR Å´ÅÁÒ¡)')
         else if gfr<15 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 5 äµÇÒÂÃÐÂÐÊØ´·éÒ GFR Å´ÅÁÒ¡·ÕèÊØ´)');
       end;
  end;

end;

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 26, 2012, 00:17:30 AM

 ;D ;D 2 วันผ่านไป ดันไว้ครับ ;D ;D ;D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: yakyai ที่ กุมภาพันธ์ 26, 2012, 09:47:24 AM

รอรับการแก้ไขจาก อ เหมือนกันครับ ;D ;D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ กุมภาพันธ์ 26, 2012, 16:15:24 PM

ลองทดสอบดูครับ

โค๊ด: Delphi

1. LastCr:=getsqldata('select creatinine from opdscreen where hn="'+fhn+'" '+
2.       ' and creatinine>0 '+
3.       ' order by vn desc limit 1');
4.  
5.       sLastCr:=FormatFloat('#.##', LastCr);
6.  
7.       LastCrDate:=getsqldata('select vstdate from opdscreen where hn="'+fhn+'" '+
8.       ' and creatinine>0 '+
9.       ' order by vn desc limit 1');
10.  
11.       sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);
12.  
13.       age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');
14.  
15.       if getsqldata('select sex from patient where hn="'+fhn+'" ')=1 then
16.  
17.       gfr:=141*exp(-1.209*ln(LastCr/0.9))*exp(age_y*ln(0.993))
18.  
19.       else
20.  
21.       gfr:=144*exp(-1.209*ln(LastCr/0.7))*exp(age_y*ln(0.993));
22.  
23.       sgfr:=FormatFloat('#.##', gfr);

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: yakyai ที่ กุมภาพันธ์ 27, 2012, 00:12:59 AM

อ้างจาก: pop_hosxp ที่ กุมภาพันธ์ 26, 2012, 16:15:24 PM

ลองทดสอบดูครับ

โค๊ด: Delphi

1. LastCr:=getsqldata('select creatinine from opdscreen where hn="'+fhn+'" '+
2.       ' and creatinine>0 '+
3.       ' order by vn desc limit 1');
4.  
5.       sLastCr:=FormatFloat('#.##', LastCr);
6.  
7.       LastCrDate:=getsqldata('select vstdate from opdscreen where hn="'+fhn+'" '+
8.       ' and creatinine>0 '+
9.       ' order by vn desc limit 1');
10.  
11.       sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);
12.  
13.       age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');
14.  
15.       if getsqldata('select sex from patient where hn="'+fhn+'" ')=1 then
16.  
17.       gfr:=141*exp(-1.209*ln(LastCr/0.9))*exp(age_y*ln(0.993))
18.  
19.       else
20.  
21.       gfr:=144*exp(-1.209*ln(LastCr/0.7))*exp(age_y*ln(0.993));
22.  
23.       sgfr:=FormatFloat('#.##', gfr);

อ pop มัน run ไม่ได้ทำไงครับ
ขอบคุณครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: vniwat ที่ กุมภาพันธ์ 27, 2012, 09:50:53 AM

อ้างจาก: yakyai ที่ กุมภาพันธ์ 26, 2012, 09:47:24 AM

รอรับการแก้ไขจาก อ เหมือนกันครับ ;D ;D

ลองดูตัวนี้พี่


var
  fvn,fcomputername,fdepartment,fhn, scrcl, sgfr,sLastCr, sLastCrDate : string;
  crcl, gfr, bw, LastCr, age_y, sex, a, factor : double;
  LastCrDate : date;
  cc:integer;

begin

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


  if getsqldata('select depcode from kskdepartment where depcode in (select depcode from depcode_vn_script_allow) '+
  ' and depcode="'+fdepartment+'"')=''+fdepartment+'' then

      bw:=getsqldata('select bw from opdscreen where hn="'+fhn+'" order by vn desc limit 1');

     { select lh.hn,lh.vn,lh.order_date,lo.lab_order_result from lab_head lh, lab_order lo
      where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=
      (select lab_items_code from lab_items where lab_items_name=
      (select sys_value from sys_var where sys_name="lab_link_cr" limit 1))

       order by lh.order_date desc, lh.order_time desc limit 10000
      }

          LastCr:=getsqldata('select creatinine from opdscreen where hn="'+fhn+'" '+
          ' and creatinine>0 '+
          ' order by vn desc limit 1');
           sLastCr:=FormatFloat('#.##', LastCr);
           LastCrDate:=getsqldata('select vstdate from opdscreen where hn="'+fhn+'" '+
          ' and creatinine>0 '+
          ' order by vn desc limit 1');

          sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);
          age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');
          if getsqldata('select sex from patient where hn="'+fhn+'" ')=1 then
          gfr:=141*exp(-1.209*ln(LastCr/0.9))*exp(age_y*ln(0.993))
          else
          gfr:=144*exp(-1.209*ln(LastCr/0.7))*exp(age_y*ln(0.993));
          sgfr:=FormatFloat('#.##', gfr);

      sgfr:=FormatFloat('#.##', gfr);
      sLastCr:=FormatFloat('#.##', LastCr);
      sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);


       if getsqldata('select count(lo.lab_order_result) as cc from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code=(select lab_items_code from lab_items where lab_items_name= '+
      '(select sys_value from sys_var where sys_name="lab_link_cr" limit 1)) '+
      ' and lh.hn="'+fhn+'"')>0 then

     {  }

      begin
               if gfr>=100  then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé  = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (äµ»¡µÔ áÅÐ GFR »¡µÔ)')
          else if gfr>=90 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 1 äµ¼Ô´»¡µÔ áÅÐ GFR »¡µÔËÃ×Íà¾ÔèÁ¢Öé¹ ¤ÇõÃǨ Cr «éÓ·Ø¡ 6 à´×͹ éÒ¾º Albumin ã¹»ÑÊÊÒÇÐ)')
          else if gfr>=60 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 2 äµ¼Ô´»¡µÔ GFR Å´ÅàÅ硹éÍ µÔ´µÒÁÍÂèÒ¹éÍ·ء 6 à´×͹ ËÃ×Í ·Ø¡ 12 à´×͹éÒäµ·ÓÒ¹¤·Õè áÅÐäÁ辺â»ÃµÕ¹ã¹»ÑÊÊÒÇÐ)')
           else if gfr>=30 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 3 äµ¼Ô´»¡µÔ GFR ŴŻҹ¡ÅÒ  µÔ´µÒÁÍÂèÒ¹éÍ·ء 6 à´×͹ ËÃ×Í ·Ø¡ 12 à´×͹éÒäµ·ÓÒ¹¤·Õè áÅÐäÁ辺â»ÃµÕ¹ã¹»ÑÊÊÒÇÐ)')
          else if gfr>=15 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 4 äµ¼Ô´»¡µÔÁÒ¡ GFR Å´ÅÁÒ¡  µÔ´µÒÁÍÂèÒ¹éÍ·ء 3 à´×͹ ËÃ×Í ·Ø¡ 6 à´×͹ éÒÃдѺ¡Ò÷ÓÒ¹¢Í䵤·Õè ) ')
          else if gfr>=10 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 5 äµÇÒÂÃÐÂÐÊØ´·éÒ GFR Å´ÅÁÒ¡·ÕèÊØ´ µÔ´µÒÁÍÂèÒ¹éÍ·ء 3 à´×͹ )')
          else if gfr<10 then
           showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' áÅмŠCr = '+FloatToStr(sLastCr)+'  (ÃÐÂзÕè 5 äµÇÒÂÃÐÂÐÊØ´·éÒ GFR Å´ÅÁÒ¡·ÕèÊØ´ ¤ÇÃä´éÃѺ¡ÒÃ¿Í¡äµ )');
    end;
  end;

end;

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 22:14:15 PM

ขอบคุณ พี่นิวัฒน์ และ อ.POP ด้วยครับ

ทำได้แล้วครับ

แต่ อักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: dang_007 ที่ กุมภาพันธ์ 27, 2012, 22:21:27 PM

สูตรคือ
 เพศหญิง ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร eGFR=144 x (ซีลั่มcreatinine/0.7)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)

 เพศชาย ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร  eGFR=141 x (ซีลั่มcreatinine/0.9)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)

 ถ้าระดับ serum creatinine  น้อยกว่า 0.9 ละครับ สูตรคำนวนเป็นอย่างไร

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 22:32:20 PM

อ้างจาก: dang_007 ที่ กุมภาพันธ์ 27, 2012, 22:21:27 PM

สูตรคือ
 เพศหญิง ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร eGFR=144 x (ซีลั่มcreatinine/0.7)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)

 เพศชาย ถ้าระดับซีลั่มcreatinine>0.9มิลลิกรัมต่อเดซิลิตร  eGFR=141 x (ซีลั่มcreatinine/0.9)ยกกำลัง-1.209 x (0.993)ยกกำลังอายุ(ปี)

 ถ้าระดับ serum creatinine  น้อยกว่า 0.9 ละครับ สูตรคำนวนเป็นอย่างไร

ตามกติกา board ต้องแนะนำตัว ก่อน
ความหมายของการแนะนำตัว    ลองอ่านกระทู้นี้ก่อนก็ได้นะ คับ

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=4413.0

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 23:01:39 PM

 ;D ;D ;Dอักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: udomchok ที่ กุมภาพันธ์ 27, 2012, 23:20:43 PM

อ้างจาก: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 23:01:39 PM

;D ;D ;Dอักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

จำมาจาก อ.ขวดนะครับ
ก่อน copy ใน report designer หรือ script ให้เปลี่ยน keyboard เป็นภาษาไทยก่อนครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ กุมภาพันธ์ 27, 2012, 23:35:38 PM

มีของเก่าเหลือไหมครับ copy แบบที่พี่โก้ว่าเลยครับ เปลี่ยน keyboard เป็นไทยก่อน แล้วค่อย copy ครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 28, 2012, 13:24:04 PM

อ้างจาก: udomchok ที่ กุมภาพันธ์ 27, 2012, 23:20:43 PM

อ้างจาก: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 23:01:39 PM

;D ;D ;Dอักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

จำมาจาก อ.ขวดนะครับ
ก่อน copy ใน report designer หรือ script ให้เปลี่ยน keyboard เป็นภาษาไทยก่อนครับ

อ้างจาก: pop_hosxp ที่ กุมภาพันธ์ 27, 2012, 23:35:38 PM

มีของเก่าเหลือไหมครับ copy แบบที่พี่โก้ว่าเลยครับ เปลี่ยน keyboard เป็นไทยก่อน แล้วค่อย copy ครับ

ทำได้แล้วครับ  ขอบคุณ อ.ทั้ง 2 ท่านสำหรับคำแนะนำ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: udomchok ที่ กุมภาพันธ์ 28, 2012, 20:31:30 PM

อ้างจาก: อู๋kokha50 ที่ กุมภาพันธ์ 28, 2012, 13:24:04 PM

ทำได้แล้วครับ  ขอบคุณ อ.ทั้ง 2 ท่านสำหรับคำแนะนำ

ถูกใจกด Thanks นะครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: อู๋kokha50 ที่ กุมภาพันธ์ 28, 2012, 21:19:20 PM

อ้างจาก: udomchok ที่ กุมภาพันธ์ 28, 2012, 20:31:30 PM

ถูกใจกด Thanks นะครับ

จัดให้แล้วครับ ครบทุกคนเลยครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: Bond_007 ที่ มีนาคม 14, 2012, 10:39:00 AM

ของผมขึ้น error แบบนี้ครับ ตามรูป

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ มีนาคม 14, 2012, 10:51:13 AM

กำหนดแผนกทึีต้องการให้ alert หรือยังครับ..ห้องตรวจใดบ้างใน kskdepartment ของเรานะครับ..อาจไม่ตรงกับของ เจ้าของสคริปต์...และต้องทดสอบกับ vn จริงที่มีการตรวจ creatinine ครับ.. :D :D

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: nahos ที่ มีนาคม 14, 2012, 11:42:45 AM

อยากให้เอาออกมาเป็นรายงานได้ไหมครับ

ช่วยอนุเคราะห์ทำรายงานให้หน่อยครับ 
1 คน เอา ทุกครั้งที่มี ผล cr เพื่อเปรียบเทียบว่าแต่ละครั้ง
ไต ดีขึ้นหรือไม่อย่างไรครับ 


ขอบคุณครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: วีระวัฒน์ (เอก) ที่ มีนาคม 14, 2012, 11:48:32 AM

อ้างจาก: nahos ที่ มีนาคม 14, 2012, 11:42:45 AM

อยากให้เอาออกมาเป็นรายงานได้ไหมครับ

ช่วยอนุเคราะห์ทำรายงานให้หน่อยครับ 
1 คน เอา ทุกครั้งที่มี ผล cr เพื่อเปรียบเทียบว่าแต่ละครั้ง
ไต ดีขึ้นหรือไม่อย่างไรครับ 

ต้องทำ lab link ก่อนนะครับ  ไม่ต้องแก้ตัวรายงานใด ๆ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ มีนาคม 14, 2012, 14:44:44 PM

อ้างจาก: Bond_007 ที่ มีนาคม 14, 2012, 10:39:00 AM

ของผมขึ้น error แบบนี้ครับ ตามรูป

ได้ลองทดสอบกับคนที่มีผล creatinine และน้ำหนัก หรือยังครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: moows ที่ มิถุนายน 28, 2012, 15:32:52 PM

อ้างจาก: วีระวัฒน์ (เอก) ที่ มีนาคม 14, 2012, 11:48:32 AM

อ้างจาก: nahos ที่ มีนาคม 14, 2012, 11:42:45 AM

อยากให้เอาออกมาเป็นรายงานได้ไหมครับ

ช่วยอนุเคราะห์ทำรายงานให้หน่อยครับ 
1 คน เอา ทุกครั้งที่มี ผล cr เพื่อเปรียบเทียบว่าแต่ละครั้ง
ไต ดีขึ้นหรือไม่อย่างไรครับ 

ต้องทำ lab link ก่อนนะครับ  ไม่ต้องแก้ตัวรายงานใด ๆ

อยากให้ค่า GFR ในแทปซักประวัติในเมนูห้องตรวจแพทย์ มีค่า GFR เท่ากับรายงานตัวนี้ของท่าน เอก น่ะครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: thatako ที่ มิถุนายน 28, 2012, 18:11:57 PM

อ้างจาก: moows ที่ มิถุนายน 28, 2012, 15:32:52 PM

อ้างจาก: วีระวัฒน์ (เอก) ที่ มีนาคม 14, 2012, 11:48:32 AM

อ้างจาก: nahos ที่ มีนาคม 14, 2012, 11:42:45 AM

อยากให้เอาออกมาเป็นรายงานได้ไหมครับ

ช่วยอนุเคราะห์ทำรายงานให้หน่อยครับ 
1 คน เอา ทุกครั้งที่มี ผล cr เพื่อเปรียบเทียบว่าแต่ละครั้ง
ไต ดีขึ้นหรือไม่อย่างไรครับ 

ต้องทำ lab link ก่อนนะครับ  ไม่ต้องแก้ตัวรายงานใด ๆ

อยากให้ค่า GFR ในแทปซักประวัติในเมนูห้องตรวจแพทย์ มีค่า GFR เท่ากับรายงานตัวนี้ของท่าน เอก น่ะครับ

ถ้าใช้ LIS ต้องไป ยืนยันผล LAB ใน HOSxP ที่ห้อง LAB อีกครั้งครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: moows ที่ มิถุนายน 29, 2012, 14:08:25 PM

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

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 06, 2012, 15:39:32 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 19:16:00 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 18:30:00 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

ขอตัวอย่างวิธีทำด้วยนะครับ

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 18:30:00 PM

อ้างจาก: James011 ที่ กรกฎาคม 02, 2011, 18:04:11 PM

อ้างจาก: วีระวัฒน์ ใจอินผล ที่ กรกฎาคม 02, 2011, 17:20:47 PM

ขอบคุณมากครับ
ถามนิดครับ เวลาทำ script แล้ว จะ save ออก แจกให้คนอื่นทำอย่างไร ทำเหมือน save .cds ทั่วไปหรือไม่

และ ถ้ามี script SYS_VN_PRE_SCRIPT ชื่อนี้แล้วที่เป็น CrCl จะไปทับของเดิมหรือไม่ หรือถ้ามีหลาย ๆ script จะต้องเปลื่ยนชื่อเป็นชื่ออื่นใหมครับ และถ้าเปลื่ยนเป็นชื่ออื่น จะมีผลต่อการทำงานของ script หรือไม่
 

    ถ้ามี script SYS_VN_PRE_SCRIPT อยู่แล้ว ก็เอาเฉพาะ  Code ของใหม่ไปแทรกให้ของเก่าครับ

ขอตัวอย่างวิธีทำด้วยนะครับ

;D ;D ;D ;D  Load Script  SYS_VN_PRE_SCRIPT  ขึ้นมาแก้ไขครับ  แล้วก็ แทรก Code ใหม่ ต่อท้าย ของเดิม ตามรูปครับ 

ไม่มี script SYS_VN_PRE_SCRIPT   ทำอย่างไรจะให้มีครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 07, 2012, 16:49:41 PM

ได้แล้วครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 08, 2012, 14:18:56 PM

อ้างจาก: krathokman ที่ กรกฎาคม 07, 2012, 16:49:41 PM

ได้แล้วครับ

Excute ผ่าน  แต่ใช้จริงยังไม่ได้ครับ  ตามรูป  ติ๊กถูกตรง allow user run  (กรอบเขียว)  แล้ว Save
พอเปิดเข้ามาใหม่  เครื่องหมายถูก ก็เป็นค่าว่างอีก  คือเหมือนมันไม่จำ   "ค่า"    ว่าติ๊กถูกแล้ว
ต้องทำอย่างไรต่อครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: pop_hosxp ที่ กรกฎาคม 08, 2012, 14:49:37 PM

1. ที่ system setting ได้กำหนดให้ใช้ vn script หรือยัง
2. กำหนดแผนกที่ยอมให้ run vn_script หรือยัง

ตรง allow user run ตรงนี้กำหนดแค่ครั้งเดียว ถ้าเปิดขึ้นมาใหม่จะไม่ติ๊กถูกให้อีก เป็นเรื่องปกติครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 08, 2012, 15:26:40 PM

อ้างจาก: pop_hosxp ที่ กรกฎาคม 08, 2012, 14:49:37 PM

1. ที่ system setting ได้กำหนดให้ใช้ vn script หรือยัง
2. กำหนดแผนกที่ยอมให้ run vn_script หรือยัง

ตรง allow user run ตรงนี้กำหนดแค่ครั้งเดียว ถ้าเปิดขึ้นมาใหม่จะไม่ติ๊กถูกให้อีก เป็นเรื่องปกติครับ

ข้อ  1 ทำตามที่บอกแล้วครับ    ข้อ 2 หาไม่เจอครับ  ทำตรงไหนต้องรบกวนจับมือเขียนหน่อยครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ กรกฎาคม 08, 2012, 15:28:04 PM

อ้างจาก: krathokman ที่ กรกฎาคม 08, 2012, 15:26:40 PM

อ้างจาก: pop_hosxp ที่ กรกฎาคม 08, 2012, 14:49:37 PM

1. ที่ system setting ได้กำหนดให้ใช้ vn script หรือยัง
2. กำหนดแผนกที่ยอมให้ run vn_script หรือยัง

ตรง allow user run ตรงนี้กำหนดแค่ครั้งเดียว ถ้าเปิดขึ้นมาใหม่จะไม่ติ๊กถูกให้อีก เป็นเรื่องปกติครับ

ข้อ  1 ทำตามที่บอกแล้วครับ    ข้อ 2 หาไม่เจอครับ  ทำตรงไหนต้องรบกวนจับมือเขียนหน่อยครับ

System Setting การตั้งค่าแผนก และ คลินิกพิเศษ  ลองดูทีละแผนก

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 08, 2012, 22:03:38 PM

อ้างจาก: udomchok ที่ กุมภาพันธ์ 27, 2012, 23:20:43 PM

อ้างจาก: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 23:01:39 PM

;D ;D ;Dอักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

จำมาจาก อ.ขวดนะครับ
ก่อน copy ใน report designer หรือ script ให้เปลี่ยน keyboard เป็นภาษาไทยก่อนครับ

Script ได้แล้วครับ  แต่ภาษาผมลองทั้งไทย อังกฤษ  ลงแม้กระทั่ง Past ลง ใน Note Pad ก็แก้ไม่ได้
มีสาเหตุอื่นอีกไหมครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ กรกฎาคม 09, 2012, 08:20:31 AM

อ้างจาก: krathokman ที่ กรกฎาคม 08, 2012, 22:03:38 PM

อ้างจาก: udomchok ที่ กุมภาพันธ์ 27, 2012, 23:20:43 PM

อ้างจาก: อู๋kokha50 ที่ กุมภาพันธ์ 27, 2012, 23:01:39 PM

;D ;D ;Dอักษรต่างด้าวใน Scrip ให้อ่าน และ เขียนแก้ไข ได้ ต้องทำอย่างไรครับ

จำมาจาก อ.ขวดนะครับ
ก่อน copy ใน report designer หรือ script ให้เปลี่ยน keyboard เป็นภาษาไทยก่อนครับ

Script ได้แล้วครับ  แต่ภาษาผมลองทั้งไทย อังกฤษ  ลงแม้กระทั่ง Past ลง ใน Note Pad ก็แก้ไม่ได้
มีสาเหตุอื่นอีกไหมครับ

เลือก โหมด TH แล้วก็แก้ข้อความใน script ก่อน  Allow User Run แล้วค่อย save ครับ..

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 09, 2012, 11:13:49 AM

ไม่ได้ครับ ตามรูป  มันเป็นเพราะ Web browser ไหมครับ
copy เมื่อไรได้แต่ "?"

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: niyomstd ที่ กรกฎาคม 09, 2012, 11:22:01 AM

ทดสอบในการ copy ไปวางไว้ที่ ms word เปลี่ยนเป็นภาษาไทยให้ได้ก่อนครับ แล้วค่อย copy มาไว้ที่ sql script อีกทีครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 09, 2012, 20:57:57 PM

เขียนคำเตือน เป้นภาษา Eng แล้วครับ  จบข่าว

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: manoi ที่ กรกฎาคม 09, 2012, 21:03:16 PM

สุดยอดครับพี่เดช แป็ปเดียว เขียน Pascal เป็นแล้ว  :)

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 09, 2012, 21:08:58 PM

อ้างจาก: manoi ที่ กรกฎาคม 09, 2012, 21:03:16 PM

สุดยอดครับพี่เดช แป็ปเดียว เขียน Pascal เป็นแล้ว  :)

ลอกเขาครับ ท่าน อยากไปเรียนที่บริษัทเด๊๋ยวว่างๆ ลงตัวแล้วคงไปได้

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: chartjongmee ที่ กรกฎาคม 13, 2012, 15:45:40 PM

โรงพยาบาลเดิมบางนางบวช GFR ไม่ขึ้นหน้าห้องตรวจแพทย์ หรือถ้าขึ้นค่าที่ได้ก็ไม่ตรง  อาจารย์ท่านได้มีวิธีบางครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ กันยายน 11, 2012, 15:58:08 PM

อ้างจาก: chartjongmee ที่ กรกฎาคม 13, 2012, 15:45:40 PM

โรงพยาบาลเดิมบางนางบวช GFR ไม่ขึ้นหน้าห้องตรวจแพทย์ หรือถ้าขึ้นค่าที่ได้ก็ไม่ตรง  อาจารย์ท่านได้มีวิธีบางครับ

ลองตรวจสอบในการทำ lab_link ค่า Creatinine+ การบันทึกน้ำหนัก+ และเพศ  และการกรอกผล lab ใน HOSxP

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: perfectk ที่ ตุลาคม 18, 2012, 15:29:50 PM

อยากให้เตือนในระบบ ผู่ป่วยในด้วยครับ ต้องทำยังไง ครับ

หัวข้อ: Re: แจก script แจ้งเตือน GFR ที่ห้องตรวจ
เริ่มหัวข้อโดย: golf_win ที่ ตุลาคม 18, 2012, 19:45:24 PM

อ้างจาก: perfectk ที่ ตุลาคม 18, 2012, 15:29:50 PM

อยากให้เตือนในระบบ ผู่ป่วยในด้วยครับ ต้องทำยังไง ครับ

ลองใช้ sys_an_script ครับ