แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - naj

หน้า: 1 ... 6 7 [8] 9 10 ... 12
351
Report Exchange / ตัวอย่างการใช้ variable ร่วมกับ Memo
« เมื่อ: สิงหาคม 20, 2008, 10:50:48 AM »
ลองเอาไปดูเป็นตัวอย่างนะครับ

352
Report Exchange / แก้ไขรายงานการคลอดให้แล้วครับ
« เมื่อ: สิงหาคม 19, 2008, 23:41:23 PM »
ก่อนนำไปใช้ลองทดสอบดูก่อนนะครับ ผืดพลาดตรงไหนก็แจ้งให้ทราบด้วยนะครับจะแก้ให้ครับ :D :D :D :D
มีปัญหานิดหน่อยสำหรับลูกคนที่ 2 เนื่องจากผมเลือกขนาดเป็น a4 หาที่วางไม่ได้จึงต้องทำเป็น CUSTOM -REPORT
อาจจะไม่สะดวกนักเวลาที่ใช้
กำลังหาวิธีที่จะให้แสดงในหน้าเดียวกันครับ

353
ยินดีต้อนรับ / การส่งออก SSNDATa(sub) ของ รพ ชุมชน
« เมื่อ: กรกฎาคม 31, 2008, 10:17:53 AM »
สืบเนื่องมาจาก SSNDATa(sub) ของ รพ ชุมชน ไม่มีตัวนำเข้าเหมือนกับSSNDATa(Main) ของ รพ แม่ข่าย วิธีที่ผมทำ คือยิงเข้าSSNDATa(sub)  โดยตรงโดยใช้ tool ของ  hosxp 3.51.1.12  จากนั้นจึงให้งานประกันเข้าไปตรวจสอบแก้ไขข้อมูลก่อนที่จะส่งออกไปให้กับ รพ แ่ข่ายโดยใช้ SSNData (ซึ่ง อ.mn ไม่แนะนำนะครับ เนื่องจากจะมีผลต่อฐานของ SSNDATa(sub) ของ รพ ชุมชน อาจเกิดความเสียหายได้) 
ตัวอย่างแก้ไขคุณสมบัติของ field
โค๊ด: SQL
  1. ALTER TABLE hospcode  MODIFY sss_code_sub VARCHAR(12) ;

354
แจ้งปัญหา / ขอความช่วยเหลือ / การคืนแฟ้ม OPD Card ในเมนูบันทึกผลวินิจฉัย
« เมื่อ: กรกฎาคม 30, 2008, 09:39:14 AM »
พบว่าในหน้าส่งตรวจผู้ป่วย แล้วมีการติ๊กการยืมแฟ้ม และพอมารับแฟ้มคืน ในเมนูบันทึกผลวินิจฉัย เมื่อส่งตรวจคนไข้คนเดิมโปรแกรมก็จะฟ้องว่าแฟ้มถูกยืม ครับ จะต้องเข้าไปคืนที่ระบบผู้ป่วยนอก--------> ระบบยืม/คืนแฟ้มเวชระเบียน ก่อนครับจึงจะไม่มีข้อความเตือน อยากให้สามารถที่ลงรับยืมแฟ้ม ในเมนูบันทึกผลวินิจฉัย ได้เลยครับ จะได้ง่ายและสะดวกดีด้วยครับ สำหรับ รพ ที่ยังใช้ OPD Card

355
แจ้งปัญหา / ขอความช่วยเหลือ / Bug ลงผลการอ่านฟิล์มทันตกรรม
« เมื่อ: กรกฎาคม 26, 2008, 17:14:10 PM »
ไม่สามารถเลือกทันตแพทย์ผู้อ่าน film ได้ครับ

356
ยินดีต้อนรับ / เสนอแนะเรื่องระบบแจ้งการยืม Film X-RAY
« เมื่อ: กรกฎาคม 24, 2008, 16:17:29 PM »
อยากให้มีการแจ้งเตือนที่เมนูรายงานผล X-RAY เวลาที่เรียกคนไข้โดย จนท.รังสี แล้วให้มีข้อความเตือนว่า film ถูกยืมโดยใคร เมื่อใด และ film ท่าใด คล้ายๆกับการยืม OPD CARD  จะได้สะดวกว่าเคยมี film ไปแล้วไม่ต้องมาถ่ายใหม่  บังคับให้ไปหาก่อนว่าใครเอาไป  :D :D :D :D :Dครับ ระบบเดิมที่อยู่ก็ใช้ได้ดีครับ แต่น้องเขาเสนอผ่านผมมาให้ อ.mn พิจารณา ครับ
ขอบคุณครับ

357
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / ทดสอบการส่งเบิกกับ สกส ของ HOSxP 3.51.7.23
« เมื่อ: กรกฎาคม 24, 2008, 12:01:51 PM »
หลังจากที่ลองเรียกข้อมูลเป็นช่วง เช่น ทุก 3,5,10,15,25,30 วัน แล้วตรวจสอบ reccount กับ lines พบว่าตรงกันแล้วครับ ช่วงบ่ายจะลองให้งานประกันส่ง file ให้ สกส ตรวจสอบอีกครั้งครับ
ขอขอบคุณ อ.mn ครับ

358
ยินดีต้อนรับ / การตั้งเลข SESSNO ส่ง สกส
« เมื่อ: กรกฎาคม 24, 2008, 10:10:00 AM »
สงสัย โทรมาถามได้ที่ งานประกัน โรงพยาบาลได้เลยครับ
tel.034-277085-8 ต่อ 109
<ClaimRec System="OP" PayPlan="CS" Version="0.9"></ClaimRec>
<HCODE>13819</HCODE>
<HNAME>รพช. หลวงพ่อเปิ่น</HNAME>
<DATETIME>2008-07-22 11:23:41</DATETIME>
<SESSNO>1137</SESSNO>
<RECCOUNT>529</RECCOUNT>
<BILLTRAN>

359
แจ้งปัญหา / ขอความช่วยเหลือ / reccount ใน file ที่ส่งเบิก สกส
« เมื่อ: กรกฎาคม 23, 2008, 14:40:24 PM »
พบว่าบางครั้ง reccount ไม่ตรงต้องมาแก้เองครับ

360
แจ้งปัญหา / ขอความช่วยเหลือ / ็HOSxP 3.51.7.15 การบันทึก Note การจ่าย
« เมื่อ: กรกฎาคม 18, 2008, 23:13:14 PM »
ไม่ทราบว่าลงบันทึกตรงไหนครับ

361
แจ้งปัญหา / ขอความช่วยเหลือ / Drug Interaction ของการสั่งยา ipd (hosxp 3.51.7.15)
« เมื่อ: กรกฎาคม 18, 2008, 15:56:45 PM »
ฟ้องดังภาพ
Drug Interaction ฟ้องหลังจากที่บันทึกสั่งยา ipd
น่าจะกิดจาก rxno

362
แจ้งปัญหา / ขอความช่วยเหลือ / Visit Note ในระบบห้องตรวจแพทย์
« เมื่อ: กรกฎาคม 12, 2008, 01:03:19 AM »
ไม่ทราบว่า Visit Note ในระบบห้องตรวจแพทย์ เก็บในตารางไหนครับ

363
Networking / ทดสอบ ระบบ Data Center ของ รพ มะการักษ์
« เมื่อ: กรกฎาคม 12, 2008, 00:00:05 AM »
สุดยอดครับ ขอบอก :D :D :D แต่เนื่องจากตอนนี้ในนครปฐมใช้ hosxp เพียง 2 โรง ซึ่งอยู่ในอำเภอเดียวกัน มีแนวคิดว่าจะทำเป็น  Data Center ของอำเภอ ในนามของ คปสอ สำหรับใช้ในการติดตามการใช้ยาในเครือข่ายและป้องกันการแพ้ยาซ้ำระดับอำเภอ ไม่ทราบว่าจะต้องใช้งบประมาณเท่าใดครับที่จะให้ อ.ชัยพร(BMS) มาดำเนินการให้ครับจะได้ทำเสนอโครงการขออนุมัติต่อไป

364
แจ้งปัญหา / ขอความช่วยเหลือ / การลงทะเบียนผู้ป่วยคลินิกพิเศษ
« เมื่อ: กรกฎาคม 10, 2008, 16:46:23 PM »
เสนอ อ.mn เรื่อง การลงทะเบียนผู้ป่วยคลินิกพิเศษ อยากให้ใช้เป็นแบบเดิมครับ พี่พยาบาลบอกว่าสะดวกดี
ของใหม่พี่เขาบอกว่ามันใช้ค่ิอนข้างยากและ เลขคลินิก ไม่ run auto ครับ
ขอบคุณครับ

365
นอกเรื่อง / เย้....มี net wireless ให้เล่นด้วยครับ
« เมื่อ: กรกฎาคม 06, 2008, 14:07:43 PM »
เนื่องจากวันอาทิตย์มารับ job เป็น เภสัช parttime ร้านขายยาใกล้บ้าน อ้อนพี่เจ้าของร้านเขามานานแล้ว เดิมที่ร้านมี PC เครื่องเดียว ต้องคอยคิวนาน 
ตอนนี้ สบายผมเลย ;D ;D ;D ;D
หิ้ว notebook มาเล่นได้ .......แหล่ม
เจ๊...บอกว่าให้เล่นได้ตอนช่วงคนไม่ค่อยมีเท่านั้น....

366
แจ้งปัญหา / ขอความช่วยเหลือ / Bug Hosxp Stable build - 3.51.7.2
« เมื่อ: กรกฎาคม 05, 2008, 10:30:33 AM »
ในส่วนของ Patient EMR ข้อมูลการนัดยังฟ้อง error ดังภาพที่แนบมาครับ

367
ยินดีต้อนรับ / ไมโครซอฟท์ เลิกแล้วค่ะ เลิกขาย XP แล้วค่ะ
« เมื่อ: กรกฎาคม 04, 2008, 21:48:42 PM »
ไมโครซอฟท์ เลิกแล้วค่ะ เลิกขาย XP แล้วค่ะ ;) ;) ;)
http://www.rssthai.com/reader.php?t=it&r=11337

368
ยินดีต้อนรับ / ตัวอย่างคำสั่ง grant super ส่งให้ รพ แหลมงอบ
« เมื่อ: กรกฎาคม 01, 2008, 14:31:45 PM »
ตัวอย่าง code คำสั่ง
โค๊ด: SQL
  1. GRANT super  ON  *.*  TO sa@localhost  IDENTIFIED BY 'sa' WITH GRANT OPTION;
  2. GRANT super  ON  *.*  TO sa@'127.0.0.1'  IDENTIFIED BY 'sa' WITH GRANT OPTION;
  3. GRANT super  ON  *.*  TO sa@'192.168.1.%'  IDENTIFIED BY 'sa' WITH GRANT OPTION;
  4. //ตามด้วยคำสั่ง
  5. FLUSH privileges;
  6.  

369
ยินดีต้อนรับ / ขออนุญาตจัดทำคู่มือการทำรายงานด้วย Report Designer ฉบับ Yindee
« เมื่อ: มิถุนายน 30, 2008, 09:00:30 AM »
เรียน อ.mn ที่นับถือ

               ผมขออนุญาตจัดทำคู่มือการทำรายงานด้วย Report Designer ฉบับ Yindee เนื่องจากมีหลายโรงพยาบาลที่สนใจและต้องการที่จะนำไปใช้  โดยการจัดทำผมรวบรวมจากที่ได้เคยไปฟัง อ.mn สอนตามที่ต่างๆ จาก อ.อ๊อด จากหนังสือ แล้วนำมารวบรวมตามความเข้าใจของผมเอง ขอออกตัวก่อนว่าผมไม่ใช่ โปรแกรมเมอร์นะครับ ดังนั้นเนื้อหาในคู่มืออาจจะไม่ถูกต้องตามหลักที่ควรจะเป็น แต่อาศัยจากการลองเขียนใช้ด้วยตนเอง
   ภายใน 2 อาทิตย์นี้จะพยายามจัดทำคู่มือการสร้าง report ด้วย Pascal Script ใน Temreport ให้กับผู้สนใจและการ สร้าง Pacal Script สำหรับแก้ไข field ในตาราง  อย่างง่าย เพราะแบบยากๆๆทำไม่เป็นครับ (ส่วนนี้สำหรับน้องTanKit(กิจ)  โดยเฉพาะและ Admin ท่านอื่นๆที่สนใจ) 
  ดังนั้นก่อนที่ทุกท่านจะลองนำไปใช้จริงกับระบบหลักแนะนำให้ลองทดสอบในเครื่อง Stand Alone ก่อนจนแน่ใจว่าไม่เกิดความเสียหายในการนำไปใช้งานนะครับ
ปล..ความเสียหายที่เกิดจากการนำคู่มือนี้ไปใช้งานขอให้น้องยินดีรับผิดชอบแต่เพียงผู้เดียว ดังนั้นท่านใดที่เอ็นดูและเมตตาน้องยินดีตาดำๆ ก็ขอให้ลองทดสอบก่อนจนแน่ใจว่าไม่เกิดความเสียหายในการนำไปใช้งานนะครับ :D :D :D :D

ตัวอย่าง Script
โค๊ด: Pascal
  1. program non;
  2. var
  3. tc:tclientdataset;
  4. i:integer;
  5.  
  6. begin
  7. i:=0;
  8. tc:=tclientdataset.create(nil);
  9. tc.data :=hosxp_getdataset('select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
  10. while not tc.eof  do
  11. begin
  12. i:= i+1;
  13. tc.edit;
  14. tc.fieldbyname('public_note').asstring:='Y';
  15. tc.post;
  16. showdebugtext('&#197;&#211;&#180;&#209;&#186;&#183;&#213;&#232; '+inttostr(i)+' HN =  '+tc.fieldbyname('hn').asstring+'    >>>>>>>>   Public_note change result '+tc.fieldbyname('public_note').asstring+'   OK');
  17. tc.next
  18. end;
  19.  if tc.changecount>0 then
  20.  hosxp_updatedelta(tc.delta,'select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
  21.  showdebugtext('...........................................................................');
  22.  showdebugtext('&#195;&#199;&#193;&#183;&#209;&#233;&#167;&#202;&#212;&#233;&#185;  '+inttostr(tc.recordcount)+' &#195;&#210;&#194;&#161;&#210;&#195;');
  23. tc.free;
  24.  
  25.   showmessage('Process Done');
  26.  
  27.  
  28. end.

370
ยินดีต้อนรับ / HOSxP อายุกี่ขวบแล้วครับ
« เมื่อ: มิถุนายน 25, 2008, 21:03:26 PM »
หลังจากที่ใช้ HOSxP มานาน ตอนนี้ผมเองก็เลยไม่แน่ใจว่ามีี้อายุกีปี  เดือน  วัน สงสัยต้องจัดงาน HOSxP เบญจเพส แล้วครับ อ.mn ;D ;D ;D ;D ;D ;D
ใครตอบได้เอาไป 100 แต้มเลยครับ

371
แจ้งปัญหา / ขอความช่วยเหลือ / ลงทะเบียนสมัครสมาชิก webboard HOSxP ไม่ได้
« เมื่อ: มิถุนายน 23, 2008, 10:47:18 AM »
มีหลายท่านแจ้งมาว่าสมัครสมาชิกไม่ได้ครับ
 ฝาก อ.,mn ช่วยตรวจสอบให้ด้วยครับ
ขอบคุณครับ

372
ยินดีต้อนรับ / Admin รพ ขนอม ลาบวช
« เมื่อ: มิถุนายน 20, 2008, 18:39:31 PM »
ได้ข่าวมาว่าจะลาทางโลกไปบวช 15 วัน ก็ขออนุโมทนาด้วยนะครับ แต่จะทนคิดถึง HOSxP ไหวไหมเน้อ อ.อ๊อดฝากมาถามว่าคนถือหมอนนะ จัดคิวให้ดีแล้วกัน ;D ;D ;D ;D ;D ;D ;D ;D

373
ยินดีต้อนรับ / ข่าวดีสำหรับ รพ ที่ใช้ ISWIN
« เมื่อ: มิถุนายน 17, 2008, 16:50:04 PM »
กำลังประสานกับ อ.สมานเรื่องการเชื่อม hosxp vs iswin ซึ่ง ทางอ.สมานยินดีเชื่อมให้ครับ :D :D :D :D
http://202.129.37.110/ISWIN/webboard/view.php?content_id=156

374
แจ้งปัญหา / ขอความช่วยเหลือ / ระบบงานผ่าตัด HOSXP 3.51.6.12
« เมื่อ: มิถุนายน 17, 2008, 16:05:42 PM »
งานผ่าตัดได้ลงรหัส ICD10 ในหน้าการผ่าตัด ตามรูปที่ 1 ซึ่ง icd10 ที่ลงไปนี้ไม่ได้ link กับ การวินิจฉัยในหน้าห้องยา mode 2 ซึ่งจริงแล้ว icd10 มันเก็บที่ตาราง operation_detail ไม่ได้เก็บใน vn_stat ตามความเข้าใจของผมคือ มันเป็น pre-diag ซึ่งงานห้องผ่าตัดของโรงพยาบาลบางแห่งต้องไปลง diag ในระบบห้องตรวจแพทยอีกครั้ง์ เป็นต้น การdiag จึงจะเก็บที่ตาราง vn_stat,ovstdiag และโชว์ที่ห้องยา mode 2 ครับ
งาน or ฝากมาว่าถ้าให้สามารถ link ไปที่ตาราง vn_stat ด้วยจะได้ไหมครับ จะได้สะดวกสำหรับงาน or หรือ อ.mn ออกแบบให้ต้องบันทึก diag หลักที่ระบบห้องแพทย์เท่านั้นครับ
ขอบคุณครับ

375
ยินดีต้อนรับ / อ.ที่ปรึกษาฝากชื่นชม HOSxP
« เมื่อ: มิถุนายน 16, 2008, 10:06:37 AM »
เนื่องจากได้นำเสนอระบบเฝ้าระวังด้านยาให้กับ อ.ทีปรึกษา เกี่ยวกับ med error โดยใช้ hosxp ในการกำหนด เรื่องของการสั่งยาโดยแพทย์ ซึ่งทำให้ med errorในภาพรวม  ลดลงได้  อ.ทีปรึกษา พอใจมากครับ ขอยกเครดิตนี้ให้กับ อ.mn และชุมชนชาว hosxp ทุกท่านที่ร่วมกันใช้และทำ CQI  ให้กับโปรแกรมนี้พัฒนา อย่างไม่หยุดยั้ง ยิ่งใช้ adrenaline ยิ่งหลั่ง

376
แจ้งปัญหา / ขอความช่วยเหลือ / HOSxP & ISWIN
« เมื่อ: มิถุนายน 13, 2008, 13:41:08 PM »
เรียน อ.mn และสมาชิกชาว HOSxP
เนื่องจากทางโรงพยาบาลได้ใช้โปรแกรม ISWIN และเชื่อว่าอีกหลายโรงพยาบาลคงได้ใช้เช่นเดียวกัน จังได้สอบถามไปยัง อ.สมาน เรื่องของการเชื่อมต่อ ตามกระทู้นี้ครับ
http://202.129.37.110/ISWIN/webboard/view.php?content_id=156
ไม่ทราบว่าพอจะเป็นได้ไหมครับที่จะเชื่อมข้อมูลกัน

377
แจ้งปัญหา / ขอความช่วยเหลือ / เสนอแนะเพิ่มเติม ระบบการลงทะเบียนผู้ป่วยใหม่
« เมื่อ: พฤษภาคม 30, 2008, 13:54:34 PM »
เพิ่มเติมดังนี้ครับ ชื่อ นำหน้า เช่น ดญ ดช  นาง นางสาว หรือตำแหน่งยศทางทหารหรือตำรวจ เมื่อเราไปแก้ ชื่อนำหน้า (pname) โปรแกรมมันจะแก้ตามหลังให้หมดเลยครับ เช่น เดิมเป็น ดญ แก้เป็น นางสาว แต่เทื่อเราไปดู visit ที่ยังเป็น ดญ. โปรแกรมจะนำชื่อนำหน้าล่าสุดที่บันทึกมาแสดงทุก visit ทำให้อาจเข้าใจผิด ครับ เนื่องจากหลาย รพ ที่ใช้ระบบ papaerless อาจจะมีความสับสนได้ครับ อยากให้ อ.mn ปรับให้แสดงชื่อนำหน้าตาม visit จริงที่คนไข้ได้ถูกบันทึกใน visit นั้นๆครับ

378
แจ้งปัญหา / ขอความช่วยเหลือ / Script สำหรับ update public_note
« เมื่อ: พฤษภาคม 28, 2008, 14:35:10 PM »
สำหรับโรงพยาบาลที่ต้องมา update field public_note ของ ptnote table ให้สามารถแก้ไขได้

โค๊ด: Pascal
  1. program yindenaja;
  2. var
  3. tc:tclientdataset;
  4.  
  5.  
  6. begin
  7. tc:=tclientdataset.create(nil);
  8. tc.data :=hosxp_getdataset('select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
  9. while not tc.eof  do
  10. begin
  11. i:=i+1;
  12. tc.edit;
  13. tc.fieldbyname('public_note').asstring:='Y';
  14. tc.post;
  15. showdebugtext('HN =  '+tc.fieldbyname('hn').asstring+'    >>>>>>>>   Public_note change result '+tc.fieldbyname('public_note').asstring+'   OK');
  16. tc.next
  17. end;
  18.  if tc.changecount>0 then
  19.  hosxp_updatedelta(tc.delta,'select hn,public_note from ptnote where ((public_note like"") or (public_note is null)) ');
  20. tc.free;
  21.   showmessage('Process Done');
  22.  
  23.  
  24. end.

379
แจ้งปัญหา / ขอความช่วยเหลือ / SYSTEM-RX-DRUG-USE-SUMMARY
« เมื่อ: พฤษภาคม 28, 2008, 08:42:11 AM »
เพิ่มเติมให้แสดงราคาทุน มูลค่าทุน
โค๊ด: Pascal
  1. unit MyIPDReport;
  2.  
  3. procedure main;
  4. var d1, d2: tdatetime;
  5.   people_distinct_count1: integer;
  6.   people_count1: integer;
  7.   ds1, ds2: string;
  8.   pttype_list1: string;
  9.   pttype, pttype_name: string;
  10.   hospcode_list: string;
  11.   money1: currency;
  12.   i: integer;
  13.  
  14.  
  15.   trd, tc, tsc: tclientdataset;
  16.   fonlineid: string;
  17.  
  18.  
  19. begin
  20.  
  21.   if not getdaterange() then exit;
  22.   d1 := date_result1();
  23.   d2 := date_result2();
  24.   fonlineid := report_value(1);
  25.  
  26.   ds1 := formatdatetime('yyyy-mm-dd', d1);
  27.   ds2 := formatdatetime('yyyy-mm-dd', d2);
  28.  
  29.  
  30.  
  31.   trd := tclientdataset.create(nil);
  32.   tc := tclientdataset.create(nil);
  33.   tsc := tclientdataset.create(nil);
  34.   trd.data := HOSxP_GetDataset('select distinct rxdate from opitemrece where rxdate between "' + ds1 + '" and "' + ds2 + '" ');
  35.   tc.data := HOSxP_GetDataset('select d.icode,d.name,d.strength,d.units ,d.packqty as vn_count,d.packqty as qty_count,d.unitprice as unitprice,d.unitprice as saleprice ,d.unitprice as sum_price ,d.unitcost as unitcost from drugitems d');
  36.   tc.indexfieldnames := 'icode';
  37.  
  38.   tc.first;
  39.   while not tc.eof do
  40.   begin
  41.     tc.edit;
  42.     tc.fieldbyname('vn_count').asinteger:=0;
  43.     tc.fieldbyname('qty_count').asinteger :=0;
  44.     tc.fieldbyname('sum_price').asfloat := 0;
  45.     tc.fieldbyname('saleprice').asfloat := 0;
  46.     tc.post;
  47.     tc.next;
  48.   end;      
  49.  
  50.  
  51.   while not trd.eof do
  52.   begin
  53.     setstatuslabel('Processing...' + formatdatetime('d mmm eeee', trd.fieldbyname('rxdate').asdatetime));
  54.     tsc.data := HOSxP_GetDataset('select a.icode,sum(a.qty) as qty_count,sum(a.sum_price) as sum_price ,(sum(a.qty)*b.unitcost) as sumunitcost from opitemrece a  '+
  55.     ' left outer join  drugitems b on a.icode=b.icode where rxdate = "' +
  56.       formatdatetime('yyyy-mm-dd', trd.fieldbyname('rxdate').asdatetime) + '" group by icode');
  57.  
  58.     while not tsc.eof do
  59.     begin
  60.     if tc.findkey([tsc.fieldbyname('icode').asstring]) then
  61.     begin
  62.       setstatuslabel('Processing...' + formatdatetime('d mmmmm eeee', trd.fieldbyname('rxdate').asdatetime)+' &Atilde;&Euml;&Ntilde;&Ecirc;&Acirc;&Ograve; '+tsc.fieldbyname('icode').asstring +' &ordf;&times;&egrave;&Iacute; '+
  63.       tc.fieldbyname('name').asstring+' '+tc.fieldbyname('strength').asstring+' '+tc.fieldbyname('units').asstring);
  64.       tc.edit;
  65.       tc.fieldbyname('qty_count').asinteger := tc.fieldbyname('qty_count').asinteger + tsc.fieldbyname('qty_count').asinteger;
  66.       tc.fieldbyname('sum_price').asfloat := tc.fieldbyname('sum_price').asfloat + tsc.fieldbyname('sum_price').asfloat;
  67.       tc.fieldbyname('saleprice').asfloat := tc.fieldbyname('saleprice').asfloat + tsc.fieldbyname('sumunitcost').asfloat;
  68.       tc.fieldbyname('vn_count').asinteger := tc.fieldbyname('vn_count').asinteger+
  69.          getsqldata('select count(distinct vn) as cc from opitemrece where rxdate = "'+
  70.        formatdatetime('yyyy-mm-dd',trd.fieldbyname('rxdate').asdatetime)+'" and icode = "'+tsc.fieldbyname('icode').asstring+'" and vn is not null and vn <> "" ') +
  71.          getsqldata('select count(distinct order_no) as cc from opitemrece where rxdate = "'+
  72.        formatdatetime('yyyy-mm-dd',trd.fieldbyname('rxdate').asdatetime)+'" and icode = "'+tsc.fieldbyname('icode').asstring+'" and an is not null and an <> "" ');
  73.        
  74.       tc.post;
  75.  
  76.     end;
  77.      tsc.next;
  78.     end;
  79.  
  80.  
  81.     trd.next;
  82.   end;
  83.  
  84.   tc.first;
  85.   while not tc.eof do
  86.   begin
  87.     if tc.fieldbyname('qty_count').asinteger = 0 then tc.delete else tc.next;
  88.     tc.next;
  89.   end;
  90.  
  91.   tc.first;
  92.   zquery.close;
  93.   zquery.sql.text := 'delete from tempreport where id = ''' + fonlineid + '''';
  94.   zquery.execsql;
  95.   zquery.sql.text := 'select * from tempreport where id = ''' + fonlineid + '''';
  96.   zquery.open;
  97.   while not tc.eof do
  98.   begin
  99.     zquery.insert;
  100.     zquery['id'] := fonlineid;
  101.     zquery['reportname'] := 'CUSTOM-RG20';
  102.  
  103.     zquery['name1'] := tc.fieldbyname('name').asstring ;
  104.     zquery['name2']:=tc.fieldbyname('strength').asstring;
  105.     zquery['name3']:=tc.fieldbyname('units').asstring;
  106.     zquery.fieldbyname('mon1').asfloat := tc.fieldbyname('qty_count').asinteger;
  107.     zquery.fieldbyname('mon2').asfloat := tc.fieldbyname('sum_price').asfloat;
  108.     zquery.fieldbyname('mon3').asfloat := tc.fieldbyname('vn_count').asinteger;
  109.     zquery.fieldbyname('mon4').asfloat := tc.fieldbyname('unitcost').asfloat;
  110.     zquery.fieldbyname('mon5').asfloat := tc.fieldbyname('saleprice').asfloat;
  111.     zquery.fieldbyname('mon6').asfloat := tc.fieldbyname('unitprice').asfloat;
  112.     zquery.fieldbyname('date1').asdatetime := d1;
  113.     zquery.fieldbyname('date2').asdatetime := d2;
  114.    
  115.     if zquery.fieldbyname('mon1').asfloat >0 then
  116.     zquery.post else
  117.     zquery.cancel;
  118.    
  119.     tc.next;
  120.   end;
  121.  
  122.  
  123.  
  124.   trd.free;
  125.   tc.free;
  126.   tsc.free;
  127.  
  128.   setstatuslabel('Done.');
  129.  
  130.  
  131.  
  132. end;
  133.  
  134. end.
  135.  

380
แจ้งปัญหา / ขอความช่วยเหลือ / ส่งให้ รพ เซกา
« เมื่อ: พฤษภาคม 23, 2008, 15:29:38 PM »
เอาคำสั่งนี้ลอง excute ใน stand alone ก่อนนะครับ และก่อนที่จะใช้จริงอย่าลืม สำรองข้อมูลด้วยนะครับ :) :)
โค๊ด: SQL
  1. UPDATE serial SET serial_no = (SELECT MAX(ksklog_id)   FROM ksklog)
  2. WHERE name ='ksklog_id'
  3.  
ส่วนการกู้ข้อมูลที่ถกลบ ทำตาม link ด้านล่างนี้ครับ
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=5332.0

381
แจ้งปัญหา / ขอความช่วยเหลือ / ระบบแจ้งยาหมด Stockและห้ามการสั่งใช้
« เมื่อ: พฤษภาคม 21, 2008, 11:46:58 AM »
เนื่องจากยา 3 B Tab. หมดได้ไปตั้ง ระบบแจ้งยาหมด Stockและห้ามการสั่งใช้ เมื่อยืนยันยกเลิกการสั่ง โปรแกรมจะดึงรายการที่สั่งก่อนหน้านี้ เช่น ค่าบริการผู้ป่วยนอก ในเวลาราชการ มาซ้ำ ครับ  แต่เมื่อบันทึก แล้วกลับมาดูใหม่ รายการที่ซ้ำจะหายไป จึงเสนอ อ.mn ว่า ให้โปรแกรมไม่ต้องดึงรายการที่สั่งก่อนหน้านี้ มาซ้ำเวลาที่ไปกำหนดระบบแจ้งยาหมด Stockและห้ามการสั่งใช้ เมื่อยืนยันยกเลิกการสั่ง  เพราะอาจจะทำให้ผู้สั่งเข้าใจผิดได้ครับ

382
แจ้งปัญหา / ขอความช่วยเหลือ / เสนออ.mn เรื่องการคิดวันนอนแยกตามตึก
« เมื่อ: พฤษภาคม 20, 2008, 12:53:30 PM »
เนื่องจากตอนนี้ยังหาวิธีที่จะดึงรายงานคนไข้ที่นอนตามตึก โดยเฉพาะ คนไข้ที่นอนหลายตึกในการ ADMIT ครั้งเดียวกัน เช่น นาย ก นอน ตึกที่1 2วัน จากนั้นย้ายไปนอนตึกที่2 อีก 3 วัน แต่ตึก 1 และ2 ต้องการเก็บวันนอนของตึกตัวเอง  :o :o :o :o

383
แจ้งปัญหา / ขอความช่วยเหลือ / แก้ไข FORM OPD-RPT-506-2,OPD-RPT-506-2-LIST
« เมื่อ: พฤษภาคม 20, 2008, 10:27:02 AM »
ท่านใดที่มีปัญหาในการพิมพ์รายงานจากระบบรายงาน 506 แล้วมีแต่หน้าว่างๆไม่สามารถที่จะ print ได้ ผมได้แก้ไขให้แล้ว ครับ
ปล. ขอขอบคุณน้อง NAYOK มากครับที่แจ้งมา บังเอิญใน ฟอร์มนี้ สำนักงานสาธารณสุข จังหวัดนครปฐมเลิกใช้แล้วครับ
...ขอโทษด้วยที่แก้ให้ช้า เนื่องจากต้องเลี้ยงลูกครับ ช่วงนี้ซนมากๆๆ   ขอบอก ;D ;D ;D ;D
 OPD-RPT-506-2
โค๊ด: SQL
  1. SELECT s.* , i.name AS icd_name,concat(p.pname,p.fname," ",p.lname) AS ptname ,
  2. concat(p.mathername,"/", p.fathername) AS parent_name,
  3. concat(s.addr," &#203;&#193;&#217;&#232; ",s.moo," &#205;.",t3.name ," &#181;.",t2.name," &#168;.",t1.name) AS address_name1,
  4. oc.name AS occupation_name,
  5. sx.name AS sex_name ,
  6. m.name AS marrystatus_name ,
  7. v.age_y        ,
  8. n.name AS nationality_name,
  9. t.name AS stat_name
  10.  
  11. FROM surveil_member s
  12. LEFT OUTER JOIN report506status t ON t.code=s.ptstat
  13. LEFT OUTER JOIN opdscreen o ON o.vn=s.vn
  14. LEFT OUTER JOIN patient p ON p.hn=s.hn
  15. LEFT OUTER JOIN occupation oc ON oc.occupation = p.occupation
  16. LEFT OUTER JOIN sex sx ON sx.code=p.sex
  17. LEFT OUTER JOIN marrystatus m ON m.code=p.marrystatus
  18. LEFT OUTER JOIN nationality n ON n.nationality = p.nationality
  19. LEFT OUTER JOIN icd101 i ON i.code=SUBSTRING(s.pdx,1,3)
  20.  
  21. LEFT OUTER JOIN thaiaddress t1 ON t1.chwpart = s.chwpart AND t1.codetype='1'
  22. LEFT OUTER JOIN thaiaddress t2 ON t2.chwpart = s.chwpart AND t2.amppart=s.amppart AND t2.codetype='2'
  23. LEFT OUTER JOIN thaiaddress t3 ON t3.chwpart = s.chwpart AND t3.amppart=s.amppart
  24.  
  25.   AND t3.tmbpart=s.tmbpart AND t3.codetype='3'
  26. LEFT OUTER JOIN vn_stat v ON v.vn=s.vn
  27. WHERE s.sv_number="94" <------- เดิมจะเป็น VN
  28.  
OPD-RPT-506-2-LIST
โค๊ด: SQL
  1. SELECT s.* , i.name AS icd_name,concat(p.pname,p.fname,' ',p.lname) AS ptname ,
  2. concat(p.mathername,'/', p.fathername) AS parent_name,
  3. concat(s.addr,' &#203;&#193;&#217;&#232; ',s.moo,' &#181; .',t3.name ,' &#205;.',t2.name,' &#168;.',t1.name) AS address_name1,
  4. oc.name AS occupation_name,
  5. sx.name AS sex_name ,
  6. m.name AS marrystatus_name ,
  7. v.age_y        ,
  8. n.name AS nationality_name,
  9. t.name AS stat_name
  10.  
  11. FROM surveil_member s
  12. LEFT OUTER JOIN report506status t ON t.code=s.ptstat
  13. LEFT OUTER JOIN opdscreen o ON o.vn=s.vn
  14. LEFT OUTER JOIN patient p ON p.hn=s.hn
  15. LEFT OUTER JOIN occupation oc ON oc.occupation = p.occupation
  16. LEFT OUTER JOIN sex sx ON sx.code=p.sex
  17. LEFT OUTER JOIN marrystatus m ON m.code=p.marrystatus
  18. LEFT OUTER JOIN nationality n ON n.nationality = p.nationality
  19. LEFT OUTER JOIN icd101 i ON i.code=SUBSTRING(s.pdx,1,3)
  20.  
  21. LEFT OUTER JOIN thaiaddress t1 ON t1.chwpart = s.chwpart AND t1.codetype='1'
  22. LEFT OUTER JOIN thaiaddress t2 ON t2.chwpart = s.chwpart AND t2.amppart=s.amppart AND t2.codetype='2'
  23. LEFT OUTER JOIN thaiaddress t3 ON t3.chwpart = s.chwpart AND t3.amppart=s.amppart
  24.  
  25.   AND t3.tmbpart=s.tmbpart AND t3.codetype='3'
  26. LEFT OUTER JOIN vn_stat v ON v.vn=s.vn
  27. WHERE s.report_date  BETWEEN "2008-03-01"AND "2008-03-31"<-------แก้เป็นช่วงวันที่แทน
  28.  ORDER BY sv_number
  29.  

384
แจ้งปัญหา / ขอความช่วยเหลือ / ระบบส่งต่อผู้ป่วยใน
« เมื่อ: พฤษภาคม 15, 2008, 09:10:50 AM »
ระบบส่งต่อผู้ป่วยในยังไม่สามารถใช้ได้ครับ
เนื่องจากผู้ป่วยในบางคนมีการ refer มากกว่า 1 ครั้ง โดยที่ยังไม่ได้จำหน่าย  ระบบ refer เดิม ไม่สามารถออกเลข refer ใหม่ได้ครับ จะลองใช้ระบบส่งต่อผู้ป่วยใน ก็ไม่สามารถใช้ได้ครับ

385
แจ้งปัญหา / ขอความช่วยเหลือ / HOSxP 3.51.5.9 กับการเมนู เปลี่ยนรหัสผู้ใช้ครับ
« เมื่อ: พฤษภาคม 09, 2008, 09:59:48 AM »
ทดสอบแล้วเป็นดังรูปที่แนบมา ทั้งที่ field passweb ของตาราง opduser มันก็มีครับ

386
แจ้งปัญหา / ขอความช่วยเหลือ / ขั้นตอนการส่งออกส่งเบิกกรมบัญชีกลางโดยใช้ HOSxP
« เมื่อ: เมษายน 29, 2008, 10:16:46 AM »
ขอโทษด้วยครับที่ส่งให้ช้าหลังรับปากไว้นาน คือ ผมให้ คุณมาริษา ซึ่งเป็นพยาบาลที่รับผิดชอบเรื่องการส่งเบิกกรมบัญชีกลางเป็นคนทำคู่มือการส่งให้ครับ (มือใหม่หัดทำ ;D ;D เจ้าตัวฝากบอกมา )
ถ้าสงสัยอย่างงัย โทรมาถามได้ที่งาน ประกัน รพ รพ.หลวงพ่อเปิ่น 034-277085 ต่อ 109 คุณมาริษา (ส้ม)

387
แจ้งปัญหา / ขอความช่วยเหลือ / ส่งให้ รพ แหลมงอบ
« เมื่อ: เมษายน 18, 2008, 09:46:55 AM »
ลองเอาไปปรับใช้นะครับ

388
แจ้งปัญหา / ขอความช่วยเหลือ / PtNote กับ HOSxP 3.51.4.17
« เมื่อ: เมษายน 17, 2008, 16:09:43 PM »
ลองทดสอบแล้วครับ อ.mn แต่ที่พี่พยาบาลคัดกรองเขาอยากให้อ. แก้ไขเป็นดังนี้ครับ คือ พอ click ขวา เมนูเขียน note(ตามรูปที่ 1 ) แล้วให้แสดง ptnote ดังรูปที่ 2  เลยครับ แต่ HOSxP 3.51.4.17  จะเป็นดังรูปที่ 3 ครับ ซึ่งพี่เขาบอกว่ายังดู note เก่าไม่สะดวกนักครับ
ขอบคุณ อ.mn มากครับ

389
แจ้งปัญหา / ขอความช่วยเหลือ / ระบบรับผู้ป่วยใน กับ HOSxP 3.51.4.10
« เมื่อ: เมษายน 17, 2008, 14:46:53 PM »
ตรงส่วนที่เมนูู newborn พบว่า an มารดาไม่แสดงหลังจากที่เลือกแล้วครับ ตามรูป

390
แจ้งปัญหา / ขอความช่วยเหลือ / เสนอแนะเรื่อง ptnote hosxp 3.51.4.10
« เมื่อ: เมษายน 11, 2008, 13:24:45 PM »
จากที่อ.mn ได้ปรับเปลี่ยนระบบ ptnote ดีมากครับ แต่พี่พยาบาลคัดกรองขอเสนอเพิ่มเติมดังนี้ครับ  จากเดิม เมื่เราเรียกคนไข้จากระบบคัดกรองจากนั้น click ขวา ไปที่เมนู เขียน note ปัญหาที่พบคือ ข้อความที่เรา note ไปจะขึ้นเฉพาะกรณ๊ที่เราเรียกคนไข้ครั้งแรกเท่านั้น เมื่อต้องการแก้ไข note เดิมจะต้องเรียกคนไข้มาใหม่อีกครั้ง จึงจะแก้ไขได้ และในกรณีที่ต้องการเขียน note ใหม่โดยที่คนไข้มี note เดิมอยู่ก่อนแล้วอยากให้มีปุ่มแสดง note ทั้งหมดด้วยในส่วนของตรงเขียน note ด้วยครับ เนื่องจากจะได้สะดวกในการตรวจสอบ note ทั้งหมด ที่คนไข้มี อีกครั้งหนึ่ง (พีั่่พยาบาลบอกว่าครั้งแรกดูไม่ทันเนื่องจากบางช่วงคนไข้มาเยอะ เช่น วัน clinic ) และอยากให้สามารถ double click รายชื่อผู้ป่วยที่ตรวจเสร็จแล้ว ทางด้านขวา แล้ว HN มาขึ้นที่ช่อง HN/QN เหมือนใน HOSXP 3.51.1.12
ขอบคุณครับ

(ปล สรุป คือ อยากให้ตรงเมนู เขียน note สามารถที่จะดูและแกู้ note เดิมได้ ซึ่ง hosxp 3.51.4.10 ตรงเมนู เขียน note จะเขียนได้เฉพาะ note ใหม่เท่านั้น ครับ

391
แจ้งปัญหา / ขอความช่วยเหลือ / ADR report ใน HOSXP 3.51.4.8b
« เมื่อ: เมษายน 09, 2008, 11:55:14 AM »
ลองใช้งานดู ฟ้องดังภาพครับ

392
แจ้งปัญหา / ขอความช่วยเหลือ / ขอเป็นกำลังใจให้กับ จนท.รพ กระทุ่มแบน ทุกท่าน
« เมื่อ: เมษายน 03, 2008, 15:09:46 PM »
ทราบข่าวจาก Admin ว่ายังไม่สามารถ implement ระบบได้  ทำให้ต้องถอยไปตั้งหลักก่อน ซึ่งน่าเห็นใจครับ สำหรับ รพ ขนาดใหญ่ๆ  ถ้ามีอะไรให้ช่วยก็แจ้งมาได้นะครับ
ํYOU NEVER WALK ALONE

393
แจ้งปัญหา / ขอความช่วยเหลือ / hosxp 3.51.3.28 กับระบบคัดกรอง
« เมื่อ: เมษายน 03, 2008, 12:12:26 PM »
พี่พยาบาล Opdแจ้งมาว่า เดิมที่ใช้ hosxp 3.51.1.12 สามารถที่จะ double click รายชื่อผู้ป่วยในช่องที่ตรวจแล้ว  แล้วให้แสดงในช่อง hn ได้เลยครับ เนื่องจากต้องการเรียกข้อมูลgเดิมมาแก้ไข  แต่ hosxp 3.51.3.28  ไม่สามารถทำได้ครับ

394
แจ้งปัญหา / ขอความช่วยเหลือ / เพิ่ม tool ในการส่งข้อมูลไป ISWIN2008
« เมื่อ: เมษายน 02, 2008, 16:15:09 PM »
เนื่องจากงาน ER แจ้งมาว่าโปรแกรม IS  for DOS  เดิมได้ยกเลิกการใช้งานแล้วครับ อยากเสนอให้ อ.mn   เพิ่ม tool ในการส่งข้อมูลไป ISWIN2008
http://202.129.37.110/ISWIN/

395
แจ้งปัญหา / ขอความช่วยเหลือ / HOSXP 3.51.3.28 Release
« เมื่อ: มีนาคม 28, 2008, 22:13:14 PM »
ออกมาแล้วครับ กำลังทดสอบอยู่ที่รพ ขนอม ครับ

396
แจ้งปัญหา / ขอความช่วยเหลือ / ตัวอย่าง report ของทันตกรรม
« เมื่อ: มีนาคม 25, 2008, 15:15:34 PM »
ตัวอย่าง

397
แจ้งปัญหา / ขอความช่วยเหลือ / อบรม HOSXP ที่ นครศรีธรรมราช 24-28 มีนาคม 51
« เมื่อ: มีนาคม 24, 2008, 16:11:44 PM »
วันนี้วันแรก อ.mn อธิบายได้ลึกจริงๆ มีหลายเรื่องที่ผมเองก็ยังไม่ทราบเกี่ยวกับการ config mysql และ newfeature hosxp program
กำลังคุยกับ อ.อ๊อดว่าให้ช่วยกันบึนทึกเอาไว้จะได้นำมาเผยแพร่ให้กับชุมชน hosxp

398
แจ้งปัญหา / ขอความช่วยเหลือ / ตัวอย่าง Form opdcard
« เมื่อ: มีนาคม 19, 2008, 08:45:40 AM »
เนื่องด้วยพยาบาล IPD ที่ รพ ได้นำ opdcard ที่ print ตอน Admitt ไปประชุมเชิงวิชาการเกี่ยวกับการบริการทางการพยาบาลผู้ป่วยใน  อ.ที่ปรึกษาได้แนะนำตรงส่วนของ OPDCARd ว่าถ้า vital sign ตัวใดที่ไม่ได้ตรวจ ไม่ควรจะแสดงค่าเป็น 0 อาจจะให้เป็น - หรือ เป็นค่าว่าง น่าจะเหมาะสมกว่า ก็เลยแก้ให้แล้วครับ

399
แจ้งปัญหา / ขอความช่วยเหลือ / สอบถามเรื่องระบบการสั่งพิมพ์ใบสั่งยา opd ผ่าน Print server
« เมื่อ: มีนาคม 13, 2008, 14:22:52 PM »
hosxp 3.51.3.10 ไม่ทราบว่าสามารถที่จะสั่งพิมพ์ใบสั่งยา opd ผ่าน Print server ให้ออกที่ห้องยาได้แล้วหรือยังครับ ของเดิมใช้การ share printer

400
แจ้งปัญหา / ขอความช่วยเหลือ / เป็นกำลังใจให้พี่ไก่และทีม implement
« เมื่อ: มีนาคม 11, 2008, 09:20:39 AM »
ทราบข่าวมาว่าตอนนี้พี่ไก่และทีมงาน อยู่ที่ รพ กระทุ่มแบน  จ.สมุทรสาคร  กำลังเตรีียมงานขึ้นระบบ ขอเป็นกำลังใจให้ครับ รวมทั้งเอาใจช่วยเจ้าหน้าที่ของ รพ กระทุ่มแบน ทุกท่านด้วยครับ ให้บรรลุเป้าหมายที่ได้ตั้งใจไว้ ;) ;) ;) ;) ;) ;) ;)

หน้า: 1 ... 6 7 [8] 9 10 ... 12