แสดงกระทู้

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.


Messages - nummon

หน้า: [1] 2 3
1
ดันครับ
 ??? ???
มีที่ไหนลงข้อมูลได้แล้วบ้างครับ

2
Delphi / Pascal / Re: Delphi : Number VN
« เมื่อ: พฤศจิกายน 10, 2011, 08:17:12 AM »
  repeat
          vn := formatdatetime('eemmddhhnnss', now);
  until ((getsqldata('select count(*) as cc from TABLEX where vn = "' + vn
          +'"') = 0)

จาก ตย. source code hosxp อ.ชัยพร
vn ได้จาก formatdatetime function
แต่ต้อง checkไม่ให้ซ้ำ ใน table โดย loop repeat... until ...
แล้วจึงนำ vn ไปใช้ เป็น key fieldได้



3
ใช้ของ maxsite

ขออภัย maxsite ไม่เคยใช้ครับ
ลองค้น .." maxsite captcha หรือ capcha"  น่าจะได้คำตอบ

เข้าดูเวบ http://www.rangaehealth.org/ ไม่สามารถเข้าได้
น่าจะเป็น http://www.rangaehealth.org/hospital/ เวบนี้ไหมครับ
แต่ก็อ่านภาษาไทยไม่ได้ (set encode = windows-874 แล้ว ทั้ง firefox และ IE )

เท่าที่ดูได้ น่าจะมี error ใน
http://www.rangaehealth.org/hospital/capcha/CaptchaSecurityImages.php
Parse error: syntax error, unexpected '.', expecting ',' or ';' in C:\Inetpub\vhosts\rangaehealth.org\httpdocs\hospital\capcha\CaptchaSecurityImages.php on line 6
ลองหาทางแก้ดูนะครับ

4
หมายถึง CAPTCHA (Completely Automated Public Turing test to tell Computers and Humans Apart)
หรือเปล่าครับ  ว่าแต่ว่าโปรแกรมหรือ forum ยี่ห้ออะไร

5
HOSxP for iPhone / iPad / Re: iHOSxP (JQueryMobile)
« เมื่อ: สิงหาคม 01, 2011, 19:15:50 PM »
หน้าจอ Delphi IDE ตอน ออกแบบครับ  สงสัยว่า อบรมหลักสูตร Delphi 3 รุ่นถัดไป อาจจะเน้นที่ Intraweb + JQueryMobile เป็นหลักครับ

 :D :D :D

6
ReportBuilder(Rbuilder)  :)

แต่ยังมีปัญหาภาษาไทยสำหรับPDF format (ใน version ที่ใช้อยู่)
ตอนนี้ใช้ DeviceType := 'ArchiveFile'
แล้วทำโปรแกรมใช้เปิดอ่านอีกทีครับ



7
Report Exchange / Re: สอบถามการใช้ variable แสดงค่า
« เมื่อ: กรกฎาคม 08, 2011, 20:10:35 PM »


function GetSQLStringData,GetSQLIntegerData,GetSQLDateData,GetSQLDoubleData
จะดึงข้อมูลเฉพาะ fieldแรก ของ recordแรกเท่านั้น ถึงแม้ sql ที่ใส่เข้าไป
จะได้ผลหลายrecords


ต่างจาก GetListFromQuery จะแสดง fieldแรก ของ ทุกrecords
มาเรียงกัน

8
ตาม
http://www.bleepingcomputer.com/forums/topic400108.html
http://www.bleepingcomputer.com/forums/topic402144.html
น่าจะเป็น virus
แปลพอได้ว่า เครื่องที่มีอาการไม่ได้ติดไวรัส
แต่โดน phishing page จากเครื่องที่ติดไวรัส ทำตัวเองเป็น  DHCP server และ DNS
ซึ่งจะจ่าย ip ให้เครื่องอื่นไปยังเวบที่อันตราย ถ้ากดUpdate เท่ากับเป็นการโหลดไวรัส

ลองหาวิธีตามหน้าที่ให้นะครับ เพราะเป็นในเครือข่ายเอง
ยังไม่เจอเหมือน........ กัน

9
ขออภัย ผิดที่วงเล็บครับ เพิ่มไปอีกนิด ) กับ (

If (pos('ทานยา',DBPipeline['hpi'])>0)
and ( pos('ส่งตัวไปER',DBPipeline['hpi'])>0) then

       CheckBox1.checked:=false

      else

       CheckBox1.checked:=true;

    end;

10
Error นี้แก้ไขอย่างไรครับ
(ลืมแนบไฟล์)

เอา code ไปใส่ไว้ที่ไหน ใช่อันนี้ไหมครับ

11
Error นี้แก้ไขอย่างไรครับ

 ??? ??? ???

12
อีกแบบที่น่าจะได้

    If (pos('ทานยา',DBPipeline['hpi'])>0 and pos('ส่งตัวไปER',DBPipeline['hpi'])>0) then

       CheckBox1.checked:=false

      else

       CheckBox1.checked:=true;

    end;

13
Report Exchange / Re: ขอคำสั่ง SQL เพื่อทำรายงานครับ
« เมื่อ: มิถุนายน 08, 2011, 17:46:37 PM »
หมายถึง เฉพาะที่ Admit ใหม่ หรือที่นอนอยู่แล้ว หรือทั้งสองครับ

ถ้าหาที่นอนอยู่แล้ว
ปัญหาของตย. sql ข้างตัน(สำหรับรพ.ที่มีหลากward และมีการย้ายตึกย้ายเตียง)คือ
field ward ใน table ipt และ อื่นๆ คือ ward สุดท้ายที่ผู้ป่วย admit อยู่
ถ้ามีการย้ายตึก ยอดจะไม่ตรงกับความจริง ควรต้องใช้ข้อมูลใน iptbedmove ประกอบด้วย
ตย. ถ้ามา query ย้อนหลัง อาจไม่มีผู้ป่วย ICU (หรือมีก็น้อยมากเฉพาะที่ discharge ที่ ICU)
เพราะส่วนใหญ่จะย้ายออกไป ward ทั่วไป ก่อนdischarge

ถ้าเฉพาะ Admit ใหม่ จะมี field first_ward ใน table IPT ให้ใช้

14
VMServer จากประสบการณ์ที่ผมใช้มามาประมาณ 5 เดือน ....... 3 VM เอาไว้รันโปรแกรมระบบ eoffice ของรพ. และเป็น App Server ....

จริง ๆ ที่รพ.เคยคิดจะทำครับ แต่ทดสอบแล้วไม่ผ่าน  ติดที่โปรแกรม SSB ครับ

ไม่ผ่าน! เฉพาะ VMDesktop ใช่ไหมครับ
ที่ โรงพยาบาลพระนั่งเกล้า
ใช้ vSphere ESX(i) สำหรับงานบริการผู้ป่วย SSB แล้วหรือยังครับ
หรือมีโครงการจะย้ายขึ้นไหมครับ

รพ.ศรีสังวรฯ กำลังจะจัดหา server มาใช้สำหรับ Hosxp
มีเสนอ virtual server ตามประโยชน์ที่คุณเภสัชกรกล่าวไว้
ติดอยู่ที่จะรองรับโหลดได้ เหมือน server physical ได้ไหม
อยากหา referrence site ที่เป็น รพ. ใช้งานบริการของรพ.ครับ

15
เขาหมายถึงตรง diag type หรือเปล่า

น่าจะใช่  ::) ::)

16
นอกเรื่อง / แก้Manoiสีชมพู
« เมื่อ: พฤษภาคม 05, 2011, 23:29:15 PM »
โปรแกรมแก้ manoi ฉากหลังชมพู ใน windows7
ฉากหลังชมพู บางทีไปบังปุมกด ที่มุมฟอร์ม กดไม่ได้
ที่สำคัญ ดูไม่สวย

MSAgentWin7x64.msu สำหรับ 64 bit ลองแล้วใช้ได้
MSAgentWin7x86.msu น่าจะเป็น 32 bit ยังไม่ได้ลอง


17
ได้ใช้ ( หรือให้คนที่ลงcodeใช้ ) icd10help ไหมครับ
จะได้ code ครบ 5 ตัวง่ายขึ้น (การค้นหาเป็นภาษาไทย ครบ 5 ตัวถึงจะได้ code icd มา)



18
จำนวนผู้ป่วยนอน ณ วัน$ocdate
$sql = "select count(an) as bed from ipt where regdate <= '".$ocdate."'  and (dchdate > '".$ocdate."'  or dchdate is null ) " ;

แต่ในทางเวชสถิติน่าจะรวมคนที่ Discharge มากกว่า 6 ชม.ด้วย(นับเพิ่มอีก 1วัน)
$sql = "select an from an_stat where dchdate = '".$ocdate."'  and admdate > admdate_cut24 " ; 

http://wb.srisangworn.go.th/qnet/index.php?option=com_occupycomp

19
PHP Version 5.3.6

System  Linux rangae-hospital 2.6.18-128.el5 #1 SMP Wed Jan 21 10:44:23 EST 2009 i686 
Build Date  Mar 19 2011 08:31:44 
Configure Command  './configure' '--build=i686-redhat-linux-gnu' '--host=i686-redhat-linux-gnu' '--target=i386-redhat-linux-gnu' '--program-prefix=' '--prefix=/usr' '--exec-prefix=/usr' '--bindir=/usr/bin' '--sbindir=/usr/sbin' '--sysconfdir=/etc' '--datadir=/usr/share' '--includedir=/usr/include' '--libdir=/usr/lib' '--libexecdir=/usr/libexec' '--localstatedir=/var' '--sharedstatedir=/usr/com' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--cache-file=../config.cache' '--with-libdir=lib' '--with-config-file-path=/etc' '--with-config-file-scan-dir=/etc/php.d' '--disable-debug' '--with-pic' '--disable-rpath' '--without-pear' '--with-bz2' '--with-exec-dir=/usr/bin' '--with-freetype-dir=/usr' '--with-png-dir=/usr' '--with-xpm-dir=/usr' '--enable-gd-native-ttf' '--without-gdbm' '--with-gettext' '--with-gmp' '--with-iconv' '--with-jpeg-dir=/usr' '--with-openssl' '--with-pcre-regex=/usr' '--with-zlib' '--with-layout=GNU' '--enable-exif' '--enable-ftp' '--enable-magic-quotes' '--enable-sockets' '--enable-sysvsem' '--enable-sysvshm' '--enable-sysvmsg' '--with-kerberos' '--enable-ucd-snmp-hack' '--enable-shmop' '--enable-calendar' '--without-mime-magic' '--without-sqlite' '--with-libxml-dir=/usr' '--enable-xml' '--with-system-tzdata' '--with-apxs2=/usr/sbin/apxs' '--without-mysql' '--without-gd' '--disable-dom' '--disable-dba' '--without-unixODBC' '--disable-pdo' '--disable-xmlreader' '--disable-xmlwriter' '--without-sqlite3' '--disable-phar' '--disable-fileinfo' '--disable-json' '--without-pspell' '--disable-wddx' '--without-curl' '--disable-posix' '--disable-sysvmsg' '--disable-sysvshm' '--disable-sysvsem' 




'./configure' ...... '--without-mysql' ......

จากตอน configure เซทไว้เป็น  --without-mysql  ลองcompileใหม่เปลี่ยนเป็น

./configure ....... --with-mysql=/usr/local/mysql  ......
Dir ชี้ไปยัง mysql หรือลองไม่ใส่ เป็น
./configure ....... --with-mysql ........ ลองดูนะครับ

(ต้องมี mysql install อยู่ก่อน เข้าใจว่า php รองรับ mysql อยู่แล้วใน tarball ที่ download มา)
http://www.php.net/manual/en/install.unix.apache.php
http://www.developertutorials.com/tutorials/php/how-to-install-php-5-on-linux-7-12-19-961/

แต่ถ้าไม่อยาก compile แนะนำ LAMPP (Xampp for linux)
Apache 2.2.17, MySQL 5.5.8, PHP 5.3.5 & PEAR + SQLite 2.8.17/3.6.16 + multibyte (mbstring) support, Perl 5.10.1, ProFTPD 1.3.3d, phpMyAdmin 3.3.8, OpenSSL 1.0.0c, GD 2.0.1, Freetype2 2.1.7, libjpeg 6b, libpng 1.2.12, gdbm 1.8.0, zlib 1.2.3, .........................

http://www.apachefriends.org/en/xampp-linux.html

สามารถเปิด service apache อย่างเดียว โดย /opt/lampp/lampp startapache
ใช้ mysql เดิมในเครื่องได้


 :)

20
ถ้าต้องการลบ mysql-binxxx แต่ต้องการเก็บไฟล์อันดับท้าย ๆ ไว้ จะต้องเข้าไปแก้ไขไฟล์ mysql-bin.index ด้วยโดยให้ลบบรรทัดที่เป็นชื่อไฟล์ mysql-binxxx ที่ลบออกไปเท่านั้น
...  ;) ;)

ถ้าต้องการลบไฟล์logถึง  mysql-binxxx
ให้ใช้คำสั่งใน mysql
PURGE BINARY LOGS TO 'mysql-bin.000xxx';

....สามารถตั้ง ให้ files log ใน master  หมดอายุ นั้นก็คือ ลบ แบบ auto จะได้ไม่กวน พื่นที่จัดเก็บข้อมูล ใน master  ......

ตอนนี้ตั้ง expire_logs_days ไว้กี่วันครับ

..... ;D

21
เยี่ยมครับ
เป็นตัวอย่างในการทำรายงานด้วย Subreport อันหนึ่ง
โดยเฉพาะ subreport 7 ที่มีรายละเอียดย่อยๆ ;D ;D

ส่วน อันอื่นใช้ variable ไป getsqlstringdata น่าจะได้
(ยังไม่รู้อันไหนจะเร็วกว่า... น่าจะพอกัน มีการไปดึงข้อมูล...) :D :D

และในแต่ละ subreport สามารถ set ShiftRelativeTo ได้
(เช่น subreport8 ต่อกับ subreport7 ถ้ามันยาวขึ้นจะร่นลงมาเอง)
ในตัว subreport จะได้ไม่ต้อง ขยักลงมามาก ออกแบบง่ายขึ้นครับ ;) ;)



22
HOSxP Web Services / Re: RM Intraweb
« เมื่อ: มีนาคม 21, 2011, 19:23:30 PM »
RM intraweb Package and
Import users from hosxp

23
HOSxP Web Services / Re: RM Intraweb
« เมื่อ: มีนาคม 20, 2011, 20:43:38 PM »
ไม่ทราบว่ามีให้ Download ไหมครับ จะเป็นพระคุณอย่างยิ่งครับ

ลองทดสอบดูก่อน มีอะไรแนะนำ ต้องเพิ่มเติมอะไรบ้าง
ส่วนจะให้ Download แล้วใช้ได้ ต้องเตรียมส่วนของฐานข้อมูลอีกหน่อยครับ
ลองเอาใช้อันนี้ไปก่อนนะครับโปรแกรมไว้ฝึกทำรายงาน  กรณีไม่อยากเข้าHosxp ไม่มีNavicat

การรายงานอุบัติการณ์ ผ่านเวบ เพิ่งเริ่มใช้ใน รพ.
การพิมพ์รายงานที่ผ่านมาในรพ. ไม่ค่อย work เพราะติดที่ผู้ใช้ต้องปรับตั้งBrowserเอง
และการตั้งค่าให้เปิดด้วยโปรแกรมพิมพ์ซึ่งยังยุ่งยากอยู่สำหรับผู้ใช้
ความจริงอยากได้ ส่งออกเป็นPDFมากกว่า แต่ intraweb (report builder) ที่ใช้อยู่ยังอ่านไทยในPDFไม่ออก


24
HOSxP Web Services / RM Intraweb
« เมื่อ: มีนาคม 19, 2011, 22:11:38 PM »
ระบบ RMIW (risk management intraweb) โรงพยาบาลศรีสังวรสุโขทัย

http://wb.srisangworn.go.th/phpbb/viewtopic.php?t=5994 //แนะนำการใช้

เอาเค้าเดิมมาจากกรรรมการความเสี่ยงรพ. จาก Access มาแปลงเป็น intraweb
ลองทดสอบได้ที่ http://wb.srisangworn.go.th:8866/
 
user test01: password longdoo


25



Priority ในหน้า Screen นี้แก้ไม่ได้ แม้จะแก้ใน table Pt_priority (มีผลเฉพาะที่ หน้าบันทึกส่งตรวจ)


รายงาน Bug ครับ อ.manoi ขอเพิ่ม

 prioritypickedit.items.assign(getlistfromtableex4('select name from pt_priority order by id'));

ใน TDoctorDeskForm.FormCreate (หมายเหตุ code DoctorDeskU.pas 5/1/2554)


ส่วนรายงาน er ก็ควรใ้ช้จาก er_regist.er_emergency_type แหละครับ

26
Report Exchange / Re: จะ countday ได้อย่างไรครับ
« เมื่อ: มีนาคม 15, 2011, 18:21:20 PM »
จำนวนวันในเดือน ในรายงานไม่มี functionเฉพาะ (หาไม่เจอ)
ประยุกต์ใช้ผ่าน LAST_DAY ของ mysql 
ตย. Select LAST_DAY('2011-03-11') = 31/3/2011
 
Value :=  formatdatetime('d',GetSQLDateData(
  'Select LAST_DAY('''+
  formatdatetime('yyyy-mm-dd',DBPipeline1['datex'])+
  ''')'));

ชื่อเดือนภาษาไทย
Value := FormatThaiDate('mmmm', DBPipeline1['datex']);

27
มาแล้วครับ ต้องขอบคุณ อ.ณัฐพงศ์ แห่ง สปสช. ที่อนุเคราะห์ file นี้ครับ

ขอบคุณครับ
ขออีกเล่มได้ไหมครับ ต้องการให้หมออ่าน มากเลย

28
BUG เกิดจาก query ในโปรแกรม (PtEMRU.pas) ตกคำว่า FROM ไป รออ.manoiแก้ครับ

getsqlsubquerydata('select vn ovst where spclty="' +
          vartostr(getsqldata('select spclty from spclty where name = "' +
            ServiceFilterCombobox.text + '"'))
          + '" and hn = "' + hnedit.text + '"') + ') ';

29
ผมก็เดาเอาจาก ชื่อ loadMember... ว่าน่าจะเกี่ยวกับรายละเอียดของ member(user) ID นั้นๆนะครับ

อ้อ ไม่ต้องลบก็น่าจะได้ หาuserมา take over post แทน


30
ในกระทู้ คงต้องให้เวบมาสเตอร์ ช่วยลบpost ของuser ที่ไม่มีตัวตนแล้วด้วยครับ
ถ้าจะลบ ฝาก id 10932 ด้วยครับ

31
เปิดดูกระทู้เก่าๆ พบerror 512 ทำให้ดูหน้าเวบไม่ได้ครบทั้งหน้า แหว่งๆไป
เข้าใจว่าเกิดจาก user ถูกลบออกหรือทำลายตัวเองออกจากระบบ
ทำให้กระทู้ที่มี user นั้น post จะเข้าไม่ได้หมด ขาดๆหายๆ

ลองค้นด้วย
512: loadMemberContext(): member id  not previously loaded by loadMemberData()  site:hosxp.net
ใน google พบกระทู้ที่เป็นแบบนี้ประมาณ พันโพส โดยเฉพาะ ID 476
กลัวข้อมูลดีๆ ไม่สามารถเข้าถึงได้ครับ มีทางแก้ไขไม๊ครับ

รวมไปถึงกล่องข้อความด้วย
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=20046.0
 


32
นอกเรื่อง / Re: HosXpกับiPad
« เมื่อ: กุมภาพันธ์ 21, 2011, 14:37:06 PM »
ได้แล้วครับ แต่ยังติดปํญหา เรื่อง ภาษา ??? แก้ไขยังไงครับ ขอบคุณ ตามภาพครับ

ipad ใช้ Safari ? encode เป็น thai windows จะได้ไหมครับ
ไม่มี ipad ให้ลอง

เข้าจาก browser บน windows เป็นไหมครับ?
รัน program HOSxPIWRegister.exe บนwindows หรือ wine หรือ ipad ? 

33
นอกเรื่อง / Re: HosXpกับiPad
« เมื่อ: กุมภาพันธ์ 21, 2011, 13:06:39 PM »
;D  แวะเวียน  นำของดี  ๆ  มาฝากขอรับ   ;D

 ;D   :o  http://203.157.151.9/data_center/index.php   :o   ;D

 ;D  เลือกในส่วนของ HOSxP  มีให้ Download  ตัวลงของ IPAD  นะขอรับ  ;D

แล้วทำยังไงต่อครับพอมีคู่มือไหมครับ อยากทดลองใช้มากครับ

หลัง extract ได้ folder HOSxPiPad ในนั้นมี file HOSxPIWRegister.exe
เป็นโปรแกรม INTRAWEB คือตัวมันเป็น webserver ในตัว เป็น windows program
ต้องรันบน windows (หรือ virtual windows อื่นๆ) ไม่ใช่ ipad ตรงๆ
ก่อนรัน ต้องแก้ HOSxPDBConfig.ini ให้ตรงกับ server Hosxp ก่อน

หลังจากนั้น เข้าผ่าบเวบbrowserโดย ไปที่ URL
http://ipของเครื่องที่รันHOSxPIWRegister:8866/   (port ที่อ.ใช้ในตัวนี้ = 8866)
แล้วลอง login ใช้งานดูครับ (ตอนเข้าผ่าบเวบbrowserนี้เข้าจาก platform ไหนก็ได้ครับ)

34
Griddata ด้านขวาของ patient EMR มาจาก visitcds

visitcds.data :=    hosxp_getdataset (select o.vstdate,o.vsttime,o.vn,o.an, ...
from ovst o   .....  where o.hn=  hnedit.text )

if (visitcds.fieldbyname('an').asstring <> '') then
        afont.color := clred;
 
ดังนั้นถ้าไม่แดงแปลว่า an ใน ovst ของ visit นั้นว่าง
แตยังไม่รู้ ผิดพลาดขั้นตอนไหนครับ

35
คลิกขวาในรูป ห้องscreen

36
ขอบคุณครับ ที่ใช้อยู่เมนูมันไม่โชว์ บันทึกระยะเวลาให้บริการ
ต้องไปกดดูตรง More commands ก่อน แล้วลากมาใส่ริบบอน

เลข service_time ของฟอร์ม



แต่ 1 กับ 2 ของผมไม่เห็นมีข้อมูล หรือต้องคีย์เวลาลงไปเอง

37
เรียนถามอาจารย์ ฟอร์มนี้เข้าจากเมนูไหนครับ

ฟอร์มบันทึกเวลาการให้บริการ



ตอนนี้ถ้าสุ่มบันทึกเวลาให้บริการ OPDยังใช้กระดาษบันทึกเวลาอยู่

ถ้าไม่มีฟอร์มนี้แล้ว(เลิกใช้แล้ว)  service time ยังเป็นตามลำดับของฟอร์มนี้ใช่ไหมครับ

38
แผนที่ google map

13.67273 100.50875

บ.บางกอก เมดิคอล ซอฟต์แวร์ จำกัด
2 ชั้น 2 ซ.สุขสวัสดิ์ 33 แขวง/เขต ราษฎร์บูรณะ กรุงเทพฯ

ซ.สุขสวัสดิ์ 33 กับ ซ.สุขสวัสดิ์ 33/1
อยู่ติดกันเลย ถ้าขับรถไปดูดีดีนะครับ

39
Report Exchange / Re: ขอฟอร์ม FORM-Sticker-IPD-Detail
« เมื่อ: กุมภาพันธ์ 04, 2011, 18:51:07 PM »
มีแบบ sticker ที่ ER ไหมครับ
สงสัยด้วยว่าทำไมที่ er ต้องเป็น Sticker
เขาพิมพ์กันตอนไหน เลือกพิมพ์ได้เป็นรายการแบบstickerยาหรือเปล่า

40
ส่วนใหญ่ ue เราจะผูกกับ visit ก็ใช้ vn เป็น paramenter ครับ หรือ universal_head_id ก็ได้ลองทำครับ

      ;D ;D  ขอบคุณครับ  parameter เป็น universal_head_id ครับ   ;D ;D


UE ชนิด visit ถ้าเป็นคนไข้ OPD จะผูกกับ VN แต่ถ้าเป็น IPD จะผูกด้วย AN
และแต่ละ visit อาจมีการกรอก UE หลายฟอร์มหรือหลายครั้ง
แต่ละครั้งของ UE  ผูกกับ universal_head_id
( ที่รพ.คนใข้ AN เดียวมีการประเมินประเภทผู้ป่วยทุกวัน )


41
การเขียน SQL Script / Re: การใช้ String Function (บางส่วน) ใน Report Designer
« เมื่อ: กุมภาพันธ์ 02, 2011, 08:09:54 AM »
บรรทัด
path_length := Length(path);
path := DBPipeline['backup_filename'];

ต้องสลับไหมครับ ยังไม่ได้ลอง compile แต่น่าจะรับค่าก่อนหาขนาด

ถ้าไม่ต้องการใช้ string function
ใน SysUtils unit มี Function ExtractFileName อยู่ (ใช้ใน  Report Designer ได้?)


42
component ที่ 53 ในฟอร์มนี้ เป็น memoedit scriptไม่ work
ลองเปลี่ยน component ที่เป็น textedit ลงไป
script นี้ก็ใช้ได้ครับ (เปลี่ยน ตัวเลข SetFormInputValue(xx,j) ก่อน )

โค๊ด: Delphi
  1.  
  2. var
  3.     j:string;
  4. begin
  5.  
  6.   if GetFormInputValue(7) > GetFormInputValue(8) then
  7.   begin
  8.      j := 'ความเจ็บปวดลดลง';
  9.      ShowMessage(j);
  10.      SetFormInputValue(153,j);
  11.   end
  12.   else if GetFormInputValue(7) = GetFormInputValue(8) then
  13.   begin
  14.      j := 'ความเจ็บปวดเท่าเดิม';
  15.      ShowMessage(j);
  16.      SetFormInputValue(153,j);
  17.   end
  18.   else if GetFormInputValue(7) < GetFormInputValue(8) then
  19.   begin
  20.      j := 'ความเจ็บปวดเพิ่มขึ้น';
  21.      ShowMessage(j);
  22.      SetFormInputValue(153,j);
  23.   end;
  24.  
  25. end;
  26.  
  27.  

44
นอกเรื่อง / Re: อาลัยกับการจากไปของ Admin HOSxP
« เมื่อ: พฤศจิกายน 05, 2010, 18:42:08 PM »
ขอแสดงความเสียใจด้วยครับ

45
ขออภัย sql ที่แสดงไม่ใช่ readmit 28 วัน ครับ
เป็นเพียง Show ว่ามีความผิดปกติใน old_diagnosis ของ P59,Z380 ครับ

ส่วน sql ที่ใช้ดึง readmit 28 วัน >>

โค๊ด: SQL
  1. SELECT icd101.code3,icd101.name,
  2. COUNT(a1.an) AS readmitcount,
  3. FLOOR(AVG(a1.lastvisit)) AS homeday
  4. FROM an_stat AS a1
  5. INNER JOIN icd101 ON a1.pdx = icd101.code
  6. WHERE (a1.lastvisit < 28) AND
  7. a1.regdate BETWEEN '2009-01-01' AND '2009-12-31' AND
  8. a1.old_diagnosis = 'Y'
  9. GROUP BY icd101.code3
  10. ORDER BY readmitcount DESC

46
หลังสุด ใช้การสร้าง CUSTOM report เพื่อพิมพ์เองที่ ward ซื้อม้าลายแจก ward ละตัว ใช้ sticker ขนาด 2x1 CUSTOM-StickerSyringe ใช้สำหรับพิมพ์ sticker ติด syringe ยาน้ำที่ ward เด็กเตรียมให้เด็ก(น้อย)

ม้าลาย  ตัวหนึ่งซักเท่าไร รวม sticker แล้วจะซักเท่าไร
ตอนนี้โรงพยาบาลมีงบฯจำกัดครับ จะได้ประมาณการงบไว้
แล้วใช้ ม้าลาย ทำอย่างอื่นนอกจาก Sticker ยา หรือเปล่าครับ
ที่ รพ. เคยคิดว่าจะให้พิมพ์ที่ตึก แต่มีปัญหาด้านเทคนิคมาก
ตอนนี้ ห้องยาพิมพ์ให้อยู่ แต่ถ้าพิมพ์ ตามปริมาณที่สั่งจะได้เกินจำนวนครั้งที่ให้ยาครับ

47
ได้ลองประมวลผลเพื่อหาอันดับผู้ป่วยที่มา readmit ใน 28 วัน ที่มาโ้รคโรคเดียวกัน
โดยใช้ field old_diagnosis เป็น criteria หนึ่ง
ผลปรากฏว่า neonatal jaundice(p59) มาเป็นอันดับหนึ่ง
ทั้งที่ admit  ครั้งก่อน เป็น z380

โค๊ด: SQL
  1. SELECT a.hn,a.regdate,a.dchdate,a.an,a.pdx,a.old_diagnosis,
  2. a2.regdate,a2.dchdate,a2.an,a2.pdx,a2.old_diagnosis
  3. FROM an_stat a
  4. LEFT OUTER JOIN an_stat a2 ON a.hn=a2.hn AND a.regdate <> a2.regdate
  5. WHERE a.old_diagnosis = 'Y' AND a.regdate BETWEEN '2009-01-01' AND '2009-03-31'
  6. AND a.pdx LIKE 'p59%'
  7. ORDER BY a.hn
ได้ผลดังรูป

 ??? ???
p59 กับ z380 ทำไมเป็น old_diagnosis
z380 เองรับครั้งแรกแรกคลอด ก็เป็น old_diagnosis
old_diagnosis มาอย่างไร (ใช้กลุ่มโรคในการแบ่งยังไงครับ)






48
แนะนำ xampp for linux ครับ

http://www.apachefriends.org/en/xampp-linux.html

Apache 2.2.14, MySQL 5.1.41, PHP 5.3.1 & PEAR + SQLite 2.8.17/3.6.16 + multibyte (mbstring) support, Perl 5.10.1, ProFTPD 1.3.2c, phpMyAdmin 3.2.4, OpenSSL 0.9.8l, GD 2.0.1, Freetype2 2.1.7, libjpeg 6b, libpng 1.2.12, gdbm 1.8.0, zlib 1.2.3, expat 1.2, Sablotron 1.0, libxml 2.7.6, Ming 0.4.2, Webalizer 2.21-02, pdf class 009e, ncurses 5.3, mod_perl 2.0.4, FreeTDS 0.63, gettext 0.17, IMAP C-Client 2007e, OpenLDAP (client) 2.3.11, mcrypt 2.5.7, mhash 0.8.18, eAccelerator 0.9.5.3, cURL 7.19.6, libxslt 1.1.26, libapreq 2.12, FPDF 1.6, XAMPP Control Panel 0.8, bzip 1.0.5, PBXT 1.0.09-rc, PBMS 0.5.08-alpha, ICU4C Library 4.2.1


แต่ถ้าจะยำ ก่อนยำ อาจารย์manoi เคยแนะนำให้ รันอันนี้(EPEL)ก่อน

su -c 'rpm -Uvh http://download.fedora.redhat.com/pub/epel/5/i386/epel-release-5-4.noarch.rpm'



49
อยากได้จังแบบ 3 มิติ ทำไงครับ  ผมทำแล้ว ภาษาไทยก็ไม่ได้ครับ  บอกแนวทางการแก้ให้ที
www.kshos.cupks.org



การใช้ joomla component artiofusioncharts จะมีปัญหาในการใช้ภาษาไทย
ในส่วน user view แต่ในส่วน administrator จะเห็น ภาษาไทยในกราฟเป็นปกติ
ตาม forum http://www.fusioncharts.com/forum/Topic27812-79-1.aspx

ผมลองแก้ไข file : ./administrator/components/com_artiofusioncharts/models/artiofusionchart.php
(ถ้าจะแก้ดูโฟล์เดอร์ดีๆนะครับ เพราะใน component นี้ มีไฟล์ชื่อนี้มีหลายไฟล์  แนบไฟล์ให้แล้วถ้าจะsaveทับก็ระวังดูโฟล์เดอร์ดีๆนะครับ)

ในบรรทัดที่ 435
434 $file = ARTIOFusionChartsHelper::getXMLName($chart->id, $chart->alias, $datetime);
435 file_put_contents($file, $xml);

เพิ่มเป็น

434       $file = ARTIOFusionChartsHelper::getXMLName($chart->id, $chart->alias, $datetime);
435       $xml = iconv('utf-8','tis-620',$xml);
436       file_put_contents($file, $xml);

ทำให้ภาษาไทยในกราฟ ของ user view ปกติ
(ต้องเข้าไป แก้ไขกราฟเดิม แล้วบันทึกใหม่ก่อน เปิดดูนะครับ เพราะ โปรแกรมจะ save xml file ใหม่)

50
HOSxP Web Services / Re: ทำรายงานด้วยdhtml+fpdf
« เมื่อ: กุมภาพันธ์ 11, 2010, 17:47:37 PM »
ขออภัย ครับ ผู้ที่ load ตย.รายงาน ER ไป
ลืม javascript  prototype (ajax framework) ที่ใช้ครับ

<script type="text/javascript" src="/ajax/prototype.js"></script>

โหลดได้ที่  http://www.srisangworn.go.th/ajax/prototype.js

เอาไปไว้ตามที่เห็นครับ ในโฟลเดอร์ ajax ที่ rootของเวบ

หน้า: [1] 2 3