แสดงกระทู้

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 ... 4 5 [6] 7 8 ... 12
251
แจ้งปัญหา / ขอความช่วยเหลือ / HOSxP 3.52.12.7 กับค่าใช้จ่ายที่เบิกไม่ได้ของผู้ป่วยใน
« เมื่อ: ธันวาคม 09, 2009, 09:45:40 AM »
จากการทดสอบพบปัญหารายการค่ารักษาทั้งยาและรายการที่ไม่ใช่ยา ที่ตั้งค่าเป็นรายการที่เบิกไม่ได้และต้องชำระเงินเอง ในกรณีคนไข้ใน พบปัญหาว่าโปรแกรมไม่สามารถทำได้ แต่ในกรณีคนไข้นอก ทำได้ครับ  ฝาก อ.mn ตรวจสอบด้วยครับ
ขอบคุณครับ

252
Report Exchange / CUSTOM-รายงานแสดงผู้ใช้บริการที่ถูกส่งตรวจโดยห้องบัตร แบบเลือกช่วงวันที่และเวลา
« เมื่อ: พฤศจิกายน 23, 2009, 14:36:33 PM »
จากกระทู้ที่มีคนถามเกี่ยวกับการทำรายงาน แล้วสามารถเลือกวันที่และเวลา จากการส่งตรวจโดยห้องบัตร เลยเอาตัวอย่าง Code ที่เขียนมาให้ดูครับ
โค๊ด: Delphi
  1. var
  2.        date1,date2:tdatetime;
  3.        dt1,dt2,ds1,ds2:string;
  4. procedure GlobalOnCreate;
  5. begin
  6.   GetDateTimeRangeDialog(date1, date2);
  7. dt1:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date1);
  8. dt2:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date2);
  9. ds1:= getsqlstringdata('select unix_timestamp("'+dt1+'")');
  10. ds2:= getsqlstringdata('select unix_timestamp("'+dt2+'")');
  11. ChangeReportSQL('select a.vstdate,a.vsttime,a.oqueue,a.hn,'+
  12. 'concat(pname,fname,"  ",lname) as ptname '+
  13. ',a.cur_dep,a.cur_dep_time,a.last_dep,a.main_dep,staff,c.name '+
  14. 'from ovst a '+
  15. 'left outer join patient b on a.hn=b.hn '+
  16. 'left outer join opduser c on a.staff=c.loginname '+
  17. 'where  unix_timestamp(concat(a.vstdate," ",a.vsttime)) between "'+ds1+'" and "'+ds2+'"  '+
  18. 'and a.staff  in("yo","sod","ball","nek","auto","pooki","MART","nid","young","john") '+
  19. 'order by a.vn ');
  20. end;
  21.  

253
ยินดีต้อนรับ / BMS ...ก้าวเข้าสู่ปีที่ 5
« เมื่อ: พฤศจิกายน 20, 2009, 12:54:23 PM »
เวลาผ่านไป ไวเหมือนโกหก BMS ...ก้าวเข้าสู่ปีที่ 5
 ยินดีด้วยครับ ขอให้ อ.mn และทีมงานทุกท่านมีความสุข ยิ่งยืนนาน :) :) :) :) :)

254
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / ปัญหา การยืนยันบันทึกข้อมูล
« เมื่อ: พฤศจิกายน 10, 2009, 09:57:03 AM »
พบปัญหาเวลาเลือกจากเดิม แผนกอื่นๆไปเป็นห้องจ่ายยาผู้ป่วยนอก แล้วกลับมาเลือก แผนกอื่นๆ อีกครั้ง ช่องตรงระบุรหัสห้องไม่แสดงครับ (HOSxP 3.52.10.30)

255
Report Exchange / ตัวอย่าง IN-PATIENT ใบงบหน้าค่ารักษาพยาบาล
« เมื่อ: ตุลาคม 26, 2009, 11:18:21 AM »
เพิ่มช่องลูกหนี้สิทธิ ให้ดูง่ายขึ้นครับ   :) :) :) :)

256
ยินดีต้อนรับ / รพ บ้านค่าย จ.ระยอง รบกวน อ.ชัยพร เพิ่มตัวเลือกระดับ Sugar ใน บัญชี 2
« เมื่อ: ตุลาคม 25, 2009, 11:04:33 AM »
ในบัญชี 2 ระดับ sugar เดิม มีถึงแค่ +2 แต่พี่ที่งานส่งเสริมแจ้งมาว่า คนไข้บางรายตรวจพบ sugar ถึง +3  จึงรบกวน  อ.ชัยพร เพิ่มตัวเลือกระดับ Sugar ใน บัญชี 2 ด้วยครับ
ขอบคุณครับ

257
Report Exchange / ตัวอย่าง Form-RxOrder1 ที่มีรายการแลปล่วงหน้าแสดง
« เมื่อ: ตุลาคม 20, 2009, 12:39:09 PM »
เนื่องจากทางพี่พยาบาล OPD  ต้องการให้มีรายการแลปล่วงหน้าแสดงตอนพิมพืใบสั่งยาจากจากเมนูส่งตรวจผู้ป่วยนอก ของผู้ป่วยนัดคลินิกเบาหวาน เพื่อให้ห้องแลปตรวจสอบได้ง่ายขึ้น เลยเอามาให้ทดสอบดูครับ สามารถใช้ได้กับรายการที่เป็นแบบเดี่ยวๆ และที่เป็น Subgroup
หมายเหตุ
เงื่อนไขที่ผมเขียนคือจะแสดงก็ต่อเมื่อคนไข้มาตรงตามวันนัดเท่านั้นครับ
ตัวอย่าง Code ที่ใช้
โค๊ด: Delphi
  1.  
  2.  Value:= GetSQLstringData('select concat("ÁÒµÃǨµÒÁ¹Ñ´ ¤ÅÔ¹Ô¡","  ",b.name) as dd from oapp a '+
  3.         'left outer join clinic b on a.clinic=b.clinic '+
  4.        'where a.hn="'+DBPipeline['hn'] +'" '+
  5.        ' and a.nextdate="'+Formatdatetime('yyyy/mm/dd',DBPipeline['vstdate'] )+'"');
  6.        
  7.  fvn:= GetSQLstringData('select vn from oapp a '+
  8.         'where a.hn="'+DBPipeline['hn'] +'" '+
  9.        ' and a.nextdate="'+Formatdatetime('yyyy/mm/dd',DBPipeline['vstdate'] )+'"');
  10.        if length(fvn)>0 then
  11.        begin
  12.         subgroup:= GetSQLStringData('select sub_group_list from lab_app_head where vn="'+fvn+'" ');
  13.         if subgroup<>'' then
  14.         begin
  15.         lab:=GetSQLSubQueryData('select b.lab_items_sub_group_name '+
  16.    ' from  lab_items_sub_group b   '+
  17.                 'where lab_items_sub_group_code in('+subgroup+')  ') ;
  18. lab:=lab+','+GetSQLSubQueryData('select c.lab_items_name from lab_app_head a '+
  19.   'left outer join lab_app_order b on a.lab_app_order_number=b.lab_app_order_number '+
  20.   'left outer join lab_items c on b.lab_items_code=c.lab_items_code '+
  21.   'where a.vn="'+fvn+'"  '+
  22.   'and c.sub_group_list not in ('+lab+') ');
  23.   lab:=SearchAndReplace(lab,'''','');
  24.   memo1.lines.text:=SearchAndReplace(lab,'Urine Analysis','UA');
  25.   Memo1.Visible:=True;
  26.   end   else
  27.   begin
  28.    lab:=GetSQLSubQueryData('select c.lab_items_name from lab_app_head a '+
  29.   'left outer join lab_app_order b on a.lab_app_order_number=b.lab_app_order_number '+
  30.   'left outer join lab_items c on b.lab_items_code=c.lab_items_code '+
  31.   'where a.vn="'+fvn+'" ');
  32.    lab:=SearchAndReplace(lab,'''','');
  33.    memo1.lines.text:=SearchAndReplace(lab,'Urine Analysis','UA');
  34.   Memo1.Visible:=True;
  35.   end else
  36.   Memo1.Visible:=False;
  37.   end;
  38.  

258
MySQL / MySQL-percona Link Download
« เมื่อ: ตุลาคม 19, 2009, 09:56:55 AM »
download ตาม link นี้ครับ
http://www.percona.com/mysql/xtradb/5.1.39-8/RPM/rhel5/

259
ยินดีต้อนรับ / แนวทางการคิดคะแนนของ OPINDIV ปีงบ 53
« เมื่อ: ตุลาคม 15, 2009, 11:27:35 AM »
ได้รับ slide มาบางส่วนจากพี่ที่ไปประชุมจากจังหวัด ยังสงสัยเหมือนกันว่า การคิด point ของสปสช คิดแบบไหน เพราะที่มีอยู่ในมือตอนนี้ก็เป็นแค่โครงสร้างตาราง  18 แฟ้มใหม่ของปี 53  แต่ไม่ทราบว่าเกณฑ์ในการคิดคะแนนยังเหมือนปีที่ผ่านมาหรือไม่ครับ :) :) :) :)

260
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / พบ bug บัญชี 5 (HOSxP 3.52.10.7)
« เมื่อ: ตุลาคม 12, 2009, 10:39:13 AM »
ฝาก อ.mn ตรวจสอบให้ด้วยครับ
ขอบคุณครับ

261
ยินดีต้อนรับ / เสนอแนะระบบ บันทึกการคลอด
« เมื่อ: ตุลาคม 12, 2009, 10:24:39 AM »
เสนอตรงส่วน vital sign น่าจะดึงมาจาก ระบบคัดกรองจาก OPD หรือ ER เลยน่าจะสะดวกกว่าครับ

262
ยินดีต้อนรับ / เสนอแนะการลงรายงาน 506
« เมื่อ: ตุลาคม 09, 2009, 11:21:06 AM »
vอยากให้ข้อมูลส่วนอื่นๆจำค่าเดิมที่เคยบันทึกไว้ครับ เพราะข้อมูลส่วนนี้คนไข้ไม่ค่อยเปลี่ยนแปลง จะได้สะดวกในการบันทึกเร็วขึ้นครับ

263
Report Exchange / CUSTOM-Finance หนังสือรับรองเพื่อประกอบการเบิกจ่ายยานอกบัญชียาหลักแห่งชาติ รพ.ห
« เมื่อ: ตุลาคม 08, 2009, 12:48:30 PM »
ขนาด A5 เอามาให้ลองทดสอบดูครับ
ปล.
 ต้นฉบับเป็นของคุณ nahos
(ขอบคุณ คุณ nahos  มากครับ สำหรับ report แหล่มๆๆ :D :D :D :D )

264
ยินดีต้อนรับ / ทราบข่าวคุณพ่อของ อ.อ๊อด ไม่สบาย
« เมื่อ: ตุลาคม 05, 2009, 11:26:22 AM »
เป็นกำลังใจให้หายไวๆๆครับ
ถ้าจะให้ดีหาลูกสะใภ้ สัก 4 คน มาช่วยดูแลน่าจะดี ;) ;) ;) ;) ;) ;) ;) ;) ;)

265
ยินดีต้อนรับ / IBM Server SyStem X3400 M2 มาแว้ว
« เมื่อ: กันยายน 30, 2009, 13:42:42 PM »
มาแล้วครับ ดีใจหลาย หลังจากที่ รพ.หลวงพ่อเปิ่น ไม่เคยมีมาก่อนหน้านี้ครับ 
IBM SERVER System X3400 M2 QUARDCORE
Ram 4 Gb
HDD:SATA2 250 Gb
จริงๆอยากได้ SAS 3 ลูก มาทำ raid 5 แต่ดูแล้วสงสารโรงพยาบาล ครับๆๆ :-[ :-[
ว่าจะแข่งกับน้า PeeNan สงสัยต้องยอมแพ้ครับ เพราะของน้าเขาเล่นตัวท็อบสุดๆๆๆ
ได้แค่นี้ก็ OK แล้วครับ
ขอบคุณท่านผู้อำนวยการโรงพยาบาลหลวงพ่อเปิ่นอย่างแรง  ;D ;D ;D ;D ครับ
จั๋งซี้มันต้องถอน!!!!!!!!!!!!!!!!!


266
ยินดีต้อนรับ / เป็นกำลังให้กับรพ. ที่จะกลับมาใช้ HOSxP อีกครั้ง
« เมื่อ: กันยายน 29, 2009, 14:22:27 PM »
ได้มีโอกาสคุยกับพี่ๆๆหลายท่าน ที่เคยใช้งานโปรแกรม HOSxP แล้วไม่สามารถเดินหน้าต่อได้ ด้วยปัจจัยหลายๆอย่าง จนจำเป็นต้องไปตั้งหลักกันใหม่ ซึ่งตอนนี้ว่าจะพยายามที่จะใช้ HOSxP กันอีกครั้ง (ครั้งที่ผ่านถือว่าเป็นการอุ่นเครื่อง  ;D ;D ;D ;D)  ก็ขอเป็นกำลังใจให้สู้ต่อไปครับ
สู้โว้ย.....คร้าบ.....พี่...น้อง...เด้อ.... :D :D :D :D :D :D
สู้ต่อไป ทาเคชิ!!!!!!!!!!!!!!!!!!!

267
ยินดีต้อนรับ / Recover Database Engine (MyISAM & Innodb) For WINDOWS
« เมื่อ: กันยายน 27, 2009, 07:42:02 AM »
สำหรับเอาไว้ใช้กับ MySQL Database ครับ
ยังไม่ได้ทดสอบ
http://recover-database-engine.repair-mysql-database.com/

268
ยินดีต้อนรับ / นครปฐม ยินดีต้อนรับทีม MA ของ บ.BMS
« เมื่อ: กันยายน 25, 2009, 10:40:59 AM »
นำทีมโดยเจ๊ ไก่ พี่สาวคนสวย พร้อมทีมงาน  มานำเสนอ package MA งานนี้น้าเจดีย์ ของผมก็มาด้วย  :D :D :D :D
น้าเจดีย์ vs น้า peenan อะไรจะเกิดขึ้น :o :o :o :o

269
ยินดีต้อนรับ / ระบบล่ม 2 วัน
« เมื่อ: กันยายน 23, 2009, 09:35:54 AM »
ระบบที่ รพ. ล่ม มา 2 วัน  :-[ :-[ :-[  โดยไม่คาดคิด เลยได้โอกาส เสนอ Boss ให้ท่านซื้อเครื่องใหม่ที่เป็น Brand Server หลังจากที่ร้องขอมานาน เนื่องจาก Server เดิมใช้ PC เป็นเครื่องประกอบ ราคาประมาณ 26,600 บาท ซึ่งใช้มาเกือบ 2 ปี  ข่าวดีครับ ท่านเมตตา อนุมัติ โดยทันใด
ขอขอบคุณ ในความเมตตาของท่านผู้อำนวยการโรงพยาบาล
ขอบคุณ PC เครื่องประกอบ ราคาประมาณ 26,600 บาท
ขอบคุณ อ.อ๊อด ที่ช่วยผ่อนหนักให้เป็นเบา ทำให้ใช้งานได้ปรกติ ว่าจะแอบดูวิธีแก้ไข แต่ก็ฝืนวัยตัวเองไม่ไหว เผลอหลับ ตื่นมาอีกที ตอน อ.อ๊อดมาปลุกว่าระบบใช้งานได้แล้ว เพื่อเป็นการขอบคุณเลยพา ไปหาแรงบันดาลใจตอนใกล้ๆๆตี 3 แถวๆตัวเมืองนครปฐม.... ;D ;D ;D :D :D :D Thanks
และที่ขาดเสียมิได้ ขอขอบคุณ สาเหตุใดๆก็ตามที่ทำให่เกิดเหตุในครั้งนี้ เด้อ...อ้าย  ;D ;D ;D ;D
ปล.
มีข่าวปล่อยใน รพ ว่าเป็นแผนของผม  ;) ;) ;) ;)



270
แจ้งปัญหา / ขอความช่วยเหลือ / HOSxP 3.52.9.12 กับ การสั่งหัตการของระบบห้องตรวจแพทย์
« เมื่อ: กันยายน 12, 2009, 20:07:32 PM »
จากการตรวจพบว่าถ้าสั่งผ่านเมนูเก่าตามรูปที่ 1 ค่าใช้จ่ายไม่แสดงในหน้าใบสั่งยาของ er แต่มีข้อความแจ้งเตือนเมื่อ Click ชื่อผู้ป่วยที่หัตถการ  แต่ถ้าเป็นการสั่งผ่านระบบห้องตรวจแพทย์ เมนู วินิจฉัย-----> หัตถการ ค่าใช้จ่ายของหัตถการแสดงในใบสั่งยา แต่เมื่อ Click ชื่อผู้ป่วยที่หัตถการที่รเมนู ของ er ไม่มี ข้อความแจ้งเตือนครับ

271
ยินดีต้อนรับ / เชิญผู้สนใจเข้าร่วมประชุม การนำเสนอ ระบบ MA ของ HOSXP
« เมื่อ: กันยายน 08, 2009, 12:55:39 PM »
ได้รับความอนุเคราะห์จาก บริษัท BMS  งาน MA จะมานำเสนอรายละเอียดต่างๆ ของ package สำหรับผู้ที่สนใจ ในเดือนกันยายนนี้ ที่ รพ ห้วยพลู อ.นครชัยศรี จ.นครปฐม
ซึ่งเจ้าภาพ (รพ ห้วยพลู) น้า PeeNan ยินดีต้อนทุกท่านที่สนใจ เห็นบอกว่าห้องประชุมรับได้ ถึง 200 คน

งานนี้ ฟรี ครับ
ส่วนวันที่แน่นอนผมขอประสานกับทางทีม MA ก่อนครับ
หมายเหตุ
วันที่กำหนดคร่าวๆๆ เป็นวันที่ี่ 24 หรือ 25 กันยายน 2552
รบกวนทุกท่านที่สนใจช่วยแจ้งรายชื่อ มาที่ mail (najhosxp@gmail.com) ผมก่อนวันที่ 18 กันยายน 52 เนื่องจากผมต้องแจ้งให้กับทาง รพ ห้วยพลู เพื่อเตรียมการต้อนรับให้ประทับใจ มิรู้ลืม งานเข้าแล้ว น้า PeeNan

272
ยินดีต้อนรับ / สอบถามความหมายในส่วนของ Daily Backup
« เมื่อ: กันยายน 03, 2009, 09:54:27 AM »
ขอทราบความหมาย
ตามภาพที่แนบมาครับ
ขอบคุณครับ

273
นอกเรื่อง / ้HOSxP Program มนุษย์ และ Galaxi
« เมื่อ: กันยายน 01, 2009, 23:11:36 PM »
เวลา 23:15 ไม่รู้เป็นอะไร นึกถึงเรื่องที่ได้คุยกับพี่ชายท่านหนึ่ง (พี่ชายจากทิศตะวันออก) หลายปีที่ผ่านมา ได้เห็นผู้คนที่รายล้อม HOSxP ทั้งที่เป็น User Admin ตลอดจนผู้ที่มอง HOSxP อยู่อย่างห่างๆๆ มีหลายความคิด หลายมุมมอง ครับ พยายามจะหาความหมาย หรือจะเรียกนิยามของ โปรแกรมนี้ว่าอะไรดี อ.mn บอกว่า HOSxP คือ ชีวิตของ อาจารย์ แต่เท่าที่สัมผัสได้ ผมว่า จั๋งซี้มันต้องถอน ซะง้าน...................


274
ยินดีต้อนรับ / วันนี้ อ.mn มา สสจ.นครปฐม
« เมื่อ: กันยายน 01, 2009, 06:51:23 AM »
เลื่อนมาจากวันที่ 31/8/52 มาเป็นวันที่ 1/9/52 แทน ตื่นเต้นพอสมควร ไม่รู้ว่า ในที่ประชุม กวป จะมีคำถามอะไรบ้างกับระบบ Data Center แต่คิดว่า อ.mn เก่งอยู่แล้ว ก็ขอเป็นกำลังใจให้  อ.mn อย่างแรง ครับ :) :) :) :) :) :) เดี๋ยวช่วงเช้านี้จะไปหา อ.mn ที่ โรงแรม River
หมายเหตุ
 ผมเอาส้มโอมาให้ อ.mn กับ พี่ไก่ ด้วยครับ

275
ยินดีต้อนรับ / เสนอแนะระบบห้องคลอด
« เมื่อ: สิงหาคม 26, 2009, 13:08:25 PM »
ตรงบันทึกการคลอด ในส่วนของ Vital Sign ทางพยาบาล อยากให้ดึงมาจากการ Screen มาเลยได้ไหมครับจะได้ไม่ต้องลงบันทึกซ้ำซ้อน และ ค่าตัวเลขบางช่องไม่ต้องแสดงตำแหน่งทศนิยม เช่น RR HR BP

276
แจ้งปัญหา / ขอความช่วยเหลือ / HOSxP 3.52.8.9 กับระบบการยืม Film
« เมื่อ: สิงหาคม 16, 2009, 13:19:57 PM »
แจ้งเรื่องแก้ไขการแสดงการยืม Film ดังรูปที่แนบมาครับ

277
ยินดีต้อนรับ / Partition Wizard Home Edition 4.0
« เมื่อ: สิงหาคม 14, 2009, 09:58:24 AM »
พอดีต้องการจัการเรื่องพาติชั่นของ HD Notebooke ที่เป็น WINDOWS VISTA ไปเจอโปรแกรม Partition Wizard Home Edition 4.0  ก็น่าใช้ดีครับ
Free ครับ แต่ดีหรือเปล่าไม่แน่ใจ เพิ่งลองใช้เหมือนกัน

หมายเหตุ
 เคยใช้แต่ Windows XP ไม่เคยใช้  WINDOWS VISTA 

278
ยินดีต้อนรับ / Thanks TanKit(กิจ) และ Asawincyber
« เมื่อ: สิงหาคม 12, 2009, 20:06:49 PM »
วันนี้ ว่างเลยคิดวางแผนจะไป Pantip หาซื้อ Notebook ซักตัว แทนของเดิมที่ใช้มานานแล้วครับ  จริงๆต้องขอบคุณน้อง asawincyber(ที่ช่วยแนะนำ spec เครื่องให้ ) ด้วยครับ และจะอาสาไปซื้อให้อีกด้วย(อะไรจะใจดีขนาดนั้น พ่อรูปหล่อ ) เนื่องจากตอนแรกจะไม่ไปเพราะจะต้องอยู่บ้านเลี้ยงเจ้ายินดี (แม่บ้านไปออกงานวันแม่ ) พอดีน้อง TanKit(กิจ) โทรมาจะรับอาสาจะพาไปให้ได้ ก็ดีครับ เลยได้ไปพร้อมหนีบเจ้าตัวเล็กไปด้วย สุดท้าย TanKit(กิจ) เลยจัดการเลือกซื้อให้เสร็จสรรพ พร้อมส่งถึงบ้าน ส่วนผมทำได้แค่อุ้มลูกพร้อมกับมองหาแรงบรรดาลใจ ;D ;D ;D ;D

ปล
ขอบใจ asawincyber และTanKit(กิจ)
โดยเฉพาะน้อง TanKit(กิจ) ยอมไม่อยู่กับแม่(ทูลหัว) ชั่วคราว แต่ต้องมาพาสองพ่อลูกเข้ากรุง แทน :D :D :D :D

279
ยินดีต้อนรับ / แจ้ง บริษัท BMS (อ.ชัยพร) จังหวัดนครปฐม สนใจระบบ Data Center
« เมื่อ: สิงหาคม 11, 2009, 11:20:08 AM »
เรียน อ.ชัยพร ที่นับถือ

  เมื่อเช้า  ท่านนายแพทย์ สสจ.นครปฐมเรียกเข้าไปพบเรื่องระบบ Data Center เพื่อตัดสินใจจะนำบรรจุในแผนของปี งบ 53 นี้ ซึ่งจะประชุมกันในวันที่ 13 ส.ค.52  จึงอยากได้รายละเอียดต่างๆ เช่น ค่าใช้จ่ายกี่ล้านบาท  (จะได้กันงบไว้ครับ) ระบบรายงานที่รองรับ  ภายในวันนี้ครับ   เอกสารส่งมาที่ mail ผมก็ได้ครับ (najhosxp@hotmail.com,najhosxp@gmail.com) หรือ fax มาที่ เบอร์ 034-277-085-8 ต่อ 888 ระบุชื่อ นายนาจ  เข็มแข็ง

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

ด่วน เลยนะครับ

280
ยินดีต้อนรับ / Code Setting ของระบบห้องคลอด
« เมื่อ: สิงหาคม 10, 2009, 11:20:33 AM »
สอบถามเรื่องรายการผลแลปครับว่า anc_lab_id ในหน้าเมนูนี้กับข้อมูลในตาราง  anc_lab มีความสัมพันธ์กันอย่างไรครับ

281
ยินดีต้อนรับ / HOSxP 3.52.8.9 กับ ระบบห้องผ่าตัด
« เมื่อ: สิงหาคม 10, 2009, 11:02:39 AM »
เสนอ อ mn พิจารณาเรื่องระบบผ่าตัดเพื่อให้มีความสมบูรณ์ยิ่งขึ้น อยากให้เพิ่ม รายละเอียดดังนี้
1. วันที่ เวลา ที่ส่งกับไปยังแผนกอื่น (ตามรูปที่แนบมาครับ) สำหรับเก็บ เรื่องระยะเวลารอคอย ได้ละเอียดขึ้น
2.เพิ่มพยาบาล RR ให้สามรถบันทึกได้มากว่า 1 ท่าน ครับ เนื่องจากในการบริการจริงๆไม่ได้มีเจ้าหน้าที่เพียงท่านเดียว
 (เอาไว้ทำ workload ของจนท. ได้ครับ)
ขอบคุณครับ

282
แจ้งปัญหา / ขอความช่วยเหลือ / แจ้งเรื่องเพิ่มเจ้าหน้าที่ในส่วนของระบบ recovery room ในระบบห้องผ่าตัด
« เมื่อ: สิงหาคม 09, 2009, 09:05:02 AM »
แจ้งเรื่องขอให้สามารถเพิ่มพยาบาลในส่วนของระบบ recovery roomได้มากว่า 1 ท่าน  เนื่องจากทางพี่พยาบาลบอกว่าในการดูแลจริงมีเจ้าหน้าที่ดูแลมากกว่า 1 ท่านครับ
และตรง RR  Score ทางพี่พยาบาลแจ้งว่าน่าจะเป็น PAR Score (Post Anesthetic Recovery Score) ครับ

283
Development / ขอปรึกษาเรื่อง IMPORT ACCESS 2003 TO HOSxP ฺ
« เมื่อ: สิงหาคม 03, 2009, 08:38:40 AM »
ลองทดสอบ Script ที่ อ.mn เคย post มาลองทดสอบกับฐานข้อมูลที่เป็น access 2003 ไม่สามารถใช้งานได้ครับ เหมือนมันไม่ commit ข้อมูลเข้าไปในตาราง tempreport แต่เวลาที่ run ก็ไม่ได้ฟ้อง error อะไรครับ
หมายเหตุ
ทดสอบใน HOSXP 3.52.7.22
โค๊ด: Delphi
  1. Unit AccessImport;
  2.  
  3. // example script for import data from access database
  4. // this script use WelfareUC2 database as sample file
  5. // version 0.1
  6. // 2005-07-11
  7. // Chaiyaporn Suratemekul
  8.  
  9. procedure Main;
  10. var
  11.   sconnection:string;      // variable for hold connection string
  12.   st:string;               // variable for hold any string
  13.  
  14. begin
  15.   sconnection:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
  16.   '[color=red]Data Source=D:\TEST.mdb[/color];'+    // change access filename here
  17.   'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
  18.   'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
  19.   'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
  20.   'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
  21.   'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
  22.   'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
  23.   'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False ';
  24.  
  25.  
  26.   // jconnection is remote database connection
  27.   // you can set jconnection to connected any database
  28.  
  29.   jconnection.connected:=false;
  30.   jconnection.protocol:='ado';
  31.   jconnection.database:=sconnection;
  32.  
  33.   jconnection.connected:=true;
  34.  
  35.  
  36.   // jquery is remote dataset object
  37.   // use jquery to get remote data
  38.  
  39.   jquery.close;
  40.  
  41.   // set sql statement
  42.   // select sample data from table ucdata just 10 records
  43.   jquery.sql.text:='[color=red]select top 10 * from EXPORT[/color]';
  44.  
  45.   // open dataset
  46.   jquery.open;
  47.  
  48.  
  49.   // zquery is dataset point to current database (hosxp database)
  50.   // this example try to erase old data from table tempreport
  51.   // table tempreport use to t store temporary report data
  52.   // but can use to hold any temp data too
  53.  
  54.   zquery.close;
  55.   // delete all data from tempreport
  56.   zquery.sql.text:='delete from tempreport';
  57.   zquery.execsql;
  58.   zquery.close;
  59.   // open table tempreport
  60.   zquery.sql.text:='select * from tempreport';
  61.   zquery.open;
  62.  
  63.  
  64.   // loop dataset until end of file (first to last record)
  65.   // when open dataset record pointer is at first record by default
  66.   while not jquery.eof do
  67.   begin
  68.     // prepare to insert data to temptable
  69.     zquery.insert;
  70.  
  71.     zquery.fieldbyname('id').asstring:=jquery.fieldbyname('pid').asstring;
  72.  
  73.     // insert data from access field fname + lname to table tempreport field name
  74.     zquery.fieldbyname('name').asstring:=
  75.        jquery.fieldbyname('fname').asstring+' '+jquery.fieldbyname('lname').asstring;
  76.  
  77.     zquery.fieldbyname('name1').asstring:=jquery.fieldbyname('sex').asstring;
  78.  
  79.  
  80.     // now commit change to database
  81.     zquery.post;
  82.  
  83.  
  84.     jquery.next;
  85.   end;
  86.  
  87.   jquery.close;
  88.   zquery.close;
  89.  
  90.   showmessage('Import OK');
  91.  
  92.   // ok now open table tempreport to see what happen
  93.  
  94. end;
  95.  
  96.  
  97. end.
  98.  
  99.  

284
Report Exchange / CUSTOM- รายงานผู้ป่วยอาการคล้ายไข้หวัดใหญ่รายใหม่ ประจำวัน (Daily Report)
« เมื่อ: กรกฎาคม 31, 2009, 08:48:34 AM »
มีรายงานมาให้ทดสอบใช้ครับ เป็นรายงานเกี่ยวกับไข้หวัดใหญ่

285
ยินดีต้อนรับ / ได้รับเอกสาร BMS --Maintenance Service
« เมื่อ: กรกฎาคม 27, 2009, 08:55:18 AM »
เพิ่งได้รับเอกสาร เกี่ยวกับ  BMS --Maintenance Service น่าสนใจครับ ตั้งแต่หน้าแรก จนถึงหน้าสุดท้าย   ;) ;) ;) ;) ;)

286
ยินดีต้อนรับ / สัญลักษณ์ RC คืออะไรครับ
« เมื่อ: กรกฎาคม 25, 2009, 21:28:51 PM »
ความหมยของ RC ในระบบคัดกรอง และระบบห้องตรวจแพทย์
ขอบคุณครับ

287
ยินดีต้อนรับ / เป็นกำลังใจให้น้า peenan และ รัก- ยม
« เมื่อ: กรกฎาคม 25, 2009, 06:44:20 AM »
ขอพลังจงอยู่กับท่าน  :D :D :D

288
นอกเรื่อง / หนังสือ 3 เล่ม จากพี่ชายทิศตะวันออก
« เมื่อ: กรกฎาคม 10, 2009, 01:22:01 AM »
ได้มีโอกาสพบกับพี่ชายท่านหนึ่ง ขณะที่กำลังทานข้าวต้มรอบดึกที่พี่กับน้อง Admin ใจดี ซื้อมาฝาก ได้คุยเรื่องมุมมองที่มนุษย์คนหนึ่งมีต่อโลกที่เราอาศัยอยู่ คุยไปคุยมาพี่เขาเลยเอาเอกสารที่รวบรวมเ็ป็นเล่มมาให้ในวันที่จะกลับบ้าน (สงสัยพี่เขาคิดว่าเจอพวกหลุดโลกเหมือนกันแล้ว  :) :) :) :)5555555555) จะว่าเป็นหนังสือก็ไม่เชิงครับ มีทั้งหมด 3 เล่ม  ชื่อ แผนที่คนทุกข์ แต่เท่าที่ผมอ่านบางส่วน ก็มีเนื้อหาน่าสนใจดีครับ แต่บางส่วน บางเรื่อง อ่านแล้วก็ยังงงๆอยู่ อาจะต้องปีนบันไดอ่าน  :) :) :) มีคนบอกว่าถ้าอ่านจนจบทั้งสามเล่ม อาจจะหลุดโลกก็ได้ครับ :) :) :) :) :) :)
แต่ขอขอบคุณมากครับ สำหรับหนังสือที่พี่ชายใจดีท่านหนึ่งให้มา

289
Report Exchange / ตัวอย่างรายงาน รง.501
« เมื่อ: กรกฎาคม 08, 2009, 15:48:03 PM »
สำหรับบางท่านที่ยังไม่มีครับ

290
ยินดีต้อนรับ / ยินดีต้อนรับโรงพยาบาลบ้านค่าย จ.ระยอง
« เมื่อ: กรกฎาคม 08, 2009, 15:37:25 PM »
เริ่มระบบ 5 ก.ค.52 21:00

ขอต้อนรับสู่ชุมชน HOSxP
และเป็นกำลังใจให้กับทีม Admin
สู้ต่อไปทาเคชิ

291
ยินดีต้อนรับ / เสนอ อ.mn เรื่องเปิดการใช้งาน DM Profile
« เมื่อ: มิถุนายน 30, 2009, 10:23:53 AM »
อยากให้สามารถเปิดใช้งานได้ครับ น่าจะเป็นประโยชน์และเหมาะกับ รพ ที่ต้องเน้นเรื่องการดูแลผู้ป่วยเบาหวาน
ขอบคุณครับ
หมายเหตุ
ลองไปตั้งใน System Setting ให้เปิดใช้งานก็ไม่ได้ครับ ไม่แน่ใจว่า อ.mn ถอนโปรแกรมนี้ออกไปหรือยังครับ

292
ยินดีต้อนรับ / ตัวย่อ Pre,TP ของระบห้องคลอด คืออะไรครับ
« เมื่อ: มิถุนายน 29, 2009, 11:23:22 AM »
พยาบาลห้องคลอดที่โรงพยาบาล ถามมา
ขอบคุณครับ

293
Development / UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
« เมื่อ: มิถุนายน 29, 2009, 00:46:03 AM »
 กำลังเดินเล่นอยู่แถว LOTUS กับพี่ยินดีและตัวแม่  ใกล้ๆักับ ม.ศิลปากร (ที่อื่นไม่ไป มาที่นี่เนื่องจาก นักศึกษาเยอะดี) น้อง Golf_Win
(ซึ่งน้องเขาบอกว่าเป็นรุ่นน้องเภสัช มหาลัยเดียวกัน  ขอโทษที่จำน้องไม่ได้เนื่องจากถ้าเป็นน้องผู้ชายส่วนใหญ่จะจำได้น้อยมากหรือไม่ได้เลย  พูดเล่นนะ;D ;D ;D ;D แต่ดีใจครับ ที่ได้รู้จักรุ่นน้องที่ขยันมาก ขนาดวันหยุดมันยังไม่ยอมพักเลย :) :) :) :) ) แจ้งมาว่า
รบกวนพี่นาจช่วยใส่ script คำนวนเวลา 2 ตัวครับ ตอนนี้ช่องกรอกเวลายังไม่ได้กำหนดเป็น date/time ครับ
     
  ตอบน้องทันที่ว่าไม่ได้   แต่จะขอลองเขียนก่อน ซึงน้อง Golf_Win เขาจะ post ใน board ไว้ให้ เลยบอกว่าไม่ต้อง ส่งมาที่ mail ดีกว่า เนื่องจากที่ผ่านมาถ้า  post ใน board  แล้วยังทำไม่เสร็จ อาจจะโดนน้า JD เข้ามากดดัน ;D ;D ;D   หลังจากนั้นเลยไปหาแรงบันดาลใจเพื่อจะทำได้  ในที่สุดก็เสร็จแล้วครับ

ขอขอบคุณ
น้องนักศึกษาหญิง(ไม่ทราบคณะ)ที่เดินผ่านไปมาทำเกิดแรงบันดาลใจ
และขอบคุณน้องยินดีมากที่อ้อนให้ต้องอุ้มพาเดินตลอดทาง ไม่รู้ว่า ตัวแม่ ไปอยู่ไหน ขนาดคุยกับพนักงานที่ร้าน Telewis เรื่องโทรศัพท์ พี่ยินดียังเอามือมาตบปาก ให้เลิกคุย จั๋งซี้มันต้องถอน

หมายเหตุ
กำลังหาวิธีที่จะ Fix รูปแบบการกรอกให้มี :(colon) คั่นระหว่าง ชั่วโมงและนาที ไว้ให้เลยอัตโนมัติ แต่ไม่รู้ต้องไปกำหนด Property ตัวไหน ดังนั้น อาจจะไม่สะดวกตอนลงบันทึก ที่ต้องพิมพ์เครืองหมาย : เอง เช่น 12:30

ตัวอย่างการเขียน Code ดูจากที่ link นี้ครับ
http://www.delphibasics.co.uk/RTL.asp?Name=DecodeTime
โค๊ด: Delphi
  1.   ;
  2. var
  3. t1,t2,t3,t4,t5,t6,t7,rst:Tdatetime;
  4. tot1,tot2,h,m,s,ss:integer;
  5. begin
  6. t1:=strtotime(GetFormInputValue(178));
  7. t2:=strtotime(GetFormInputValue(179));
  8. t3:=strtotime(GetFormInputValue(180));
  9. t4:=strtotime(GetFormInputValue(181));
  10. t5:=strtotime(GetFormInputValue(182));
  11. t6:=strtotime(GetFormInputValue(183));
  12. t7:=(t3-t1);
  13. rst:=(t4-t1);
  14. decodetime(t7,h,m,s,ss);
  15. tot1:=(h*60)+m;
  16. SetFormInputValue(184,tot1);
  17. decodetime(rst,h,m,s,ss);
  18. tot2:=(h*60)+m;
  19. SetFormInputValue(185,tot2);
  20. //showmessage('tot1='+inttostr(tot1)+' tot2='+inttostr(tot2)) ;
  21. end;

294
Report Exchange / CUSTOM- รายงานผลการบำบัดและรักษาโรคเบาหวาน โรคความดันโลหิตสูง โรคอัมพฤกษ์ อัมพพา
« เมื่อ: มิถุนายน 25, 2009, 12:08:11 PM »
มีรายงานมาฝากครับ เป็นรายงานที่ จังหวัดนครปฐมให้ รพ ต้องส่ง
CUSTOM- รายงานผลการบำบัดและรักษาโรคเบาหวาน โรคความดันโลหิตสูง โรคอัมพฤกษ์ อัมพพาต
ข้อมูลผลการตรวจตา ตรวจเท้า ผมดึงผ่านระบบ UE ครับ

select * from universal_head

295
Delphi / Pascal / ตัวอย่าง Script สำหรับการนำเข้าข้อมูลตาราง dttm
« เมื่อ: มิถุนายน 22, 2009, 07:07:04 AM »
ใช้สำหรับนำเข้ารายการทันตกรรมจากตาราง nondrugitems เข้าไปตาราง dttm รายการที่นำเข้าได้แก่
code ,name,icode,opd_price1,ipd_price1  เท่านั้นครับ ส่วนรายละเอียดที่เหลืออื่น เช่น icd9,icd10 การจัดหมวดงานคงต้องตามไปแก้แบบ manual ผ่านเมนูรายการหัตถการทันตกรรม ครับ...เด้อ......พี่น้อง
จั๋งซี้มันต้องถอน :D :D :D :D :D :D :D
ชื่อ Import Data To DTTM Table
Fun For Fun :) :) :) :) :) :) :)
คำเตือน Script นี้จะทำการลบข้อมูลในตาราง dttm ก่อนแล้วจึงนำเข้า ดังนั้นขอแนะนำให้สำรองข้อมูลก่อนนำไปใช้

โค๊ด: Delphi
  1. unit Unit18;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComCtrls;
  8.  
  9. type
  10.   TForm18 = class(TForm)
  11.     Button1: TButton;
  12.     pg: TProgressBar;
  13.     procedure Button1Click(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19.  
  20. var
  21.   Form18: TForm18;
  22.  
  23. implementation
  24.  
  25. {$R *.dfm}
  26. function addzero(s: string; i: integer): string;
  27. begin
  28.   //result:=s;
  29.   while length(s) < i do
  30.   begin
  31.     s := '0' + s;
  32.   end;
  33.   result := s;
  34. end;
  35.  
  36. procedure TForm18.Button1Click(Sender: TObject);
  37. var tc:tclientdataset;
  38. a:interger;
  39. s:string;
  40.  
  41. begin
  42.   //tc:=tclientdataset.create(nil);
  43.   //tc.data:=hosxp_getdataset('show tables');
  44.  pg.min:=0;
  45.  pg.position:=0;
  46.  a:=0;
  47.  fcds2.close;
  48.  fcds2.datarequest('select * from nondrugitems where income="16" and istatus="Y" order by name');
  49.  fcds2.open;
  50.  pg.max:=fcds2.recordcount;
  51.  fcds2.first;
  52.  fcds.datarequest('EXEC delete from dttm');
  53.  fcds.datarequest('select * from dttm');
  54.  fcds.open;
  55.  while not fcds2.eof do
  56.  begin
  57.  a:=a+1;
  58.  s:=inttostr(a);
  59.   pg.position:= pg.position+1;
  60.   fcds.insert;
  61.   fcds['icode']:=fcds2['icode'];
  62.   fcds['name']:=fcds2['name'];
  63.   fcds['opd_price1']:=fcds2['price'];
  64.   fcds['ipd_price1']:=fcds2['ipd_price'];
  65.   fcds['code']:=addzero(s,6);
  66.   fcds.post;
  67.   fcds2.next;
  68.  end;
  69.  applyupdate_fcds(-1);
  70.  fcds2.close;
  71.  fcds.close;
  72.  showmessage('&#168;&#211;&#185;&#199;&#185; record &#183;&#213;&#232;&#185;&#211;&#224;&#162;&#233;&#210;&#183;&#209;&#233;&#167;&#203;&#193;&#180;   '+inttostr(pg.max) +' Records');
  73.  Showmessage('Process Done');
  74.  end;
  75. end.
  76.  
  77.  

296
แจ้งปัญหา / ขอความช่วยเหลือ / Bug HOSxP 3.52.6.19
« เมื่อ: มิถุนายน 19, 2009, 21:46:55 PM »
ยังพบปัญหาว่าไม่สามารถที่จะลบข้อความการคัดกรองได้ ตามกระทู้นี้ครับ
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=10575.0

297
Report Exchange / มีรายงานมาฝากครับ
« เมื่อ: มิถุนายน 18, 2009, 06:49:50 AM »
CUSTOM- รานงานผลการบำบัดและรักษาโรคเบาหวาน โรคความดันโลหิตสูง โรคอัมพฤกษ์ อัมพพาต
ขอแก้ไขอีกนิดหน่อยครับ แล้วจะ upload ให้ครับ :D :D :D :D :D :D
(รายงานนี้เป็นรายงานที่ สสจ.นครปฐมให้ รพและPCU ที่มีคลินิกดังกล่าว ต้องรายงานทุกเดือน ตามโครงการสุขภาพดีวิถีไทย)

298
แจ้งปัญหา / ขอความช่วยเหลือ / สอบถามเรื่องการลงผลแลป ใน HOSxP PCU 3.52.6.14b
« เมื่อ: มิถุนายน 16, 2009, 16:32:21 PM »
ลองทดสอบดูสามารถสั่งให้ได้ครับ แต่หน้าที่จะลงรายงานผลแลปไม่ทราบว่าอยู่ตรงไหน หาไม่เจอ :) :) :) :) :) :)

299
แจ้งปัญหา / ขอความช่วยเหลือ / Bug HOSxP 3.52.6.14
« เมื่อ: มิถุนายน 15, 2009, 09:14:33 AM »
สามารถที่จะ add text ได้แล้วแต่ยังพบปัญหา remove text ไม่ได้ครับ ฟ้องดังภาพครับ

300
แจ้งปัญหา / ขอความช่วยเหลือ / ฺBug HOSxP 3.52.6.11B
« เมื่อ: มิถุนายน 14, 2009, 10:37:54 AM »
ไม่สามารถ add text และ remove text ได้ครับ

หน้า: 1 ... 4 5 [6] 7 8 ... 12