แสดงกระทู้

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 - James011

หน้า: [1] 2 3 ... 35
1
นอกเรื่อง / Re: ส่งออก RewData แล้ว Error
« เมื่อ: กรกฎาคม 01, 2013, 15:35:11 PM »
โหลด โปรแกรม Unitcost ตัวล่าสุด

2
ที่บัญชีโรคเรื้อรังอื่นๆมันก็ยังขาดทะเบียนคลินิกโรคไตไปอ่าครับอาจารย์  ถ้ามีคลินิกขึ้นมาอีกได้ละก็แจ๋วววเลยครับ  :) :) ;D ;D
    ;D ;D ;D  เพิ่มในตาราง clinic ได้นี้ครับ

3
MySQL / Re: เทคนิคการใช้คำสั่ง query
« เมื่อ: เมษายน 25, 2013, 18:10:17 PM »
ถ้าผมต้องการจะสั่ง >2 คำสั่งในคราวเดียว ต้องสั่งยังไงครับ ผมเคยทำเมื่อประมาณ 2 ปีก่อน ตอนนี้ลืมแล้ว เช่น

@กำหนดตัวแปร HN
update ovst set pttype="71"  where hn="ตัวแปร HN";
update vn_stat set pttype="71" where hn="ตัวแปร HN"

ประมาณว่า เปลี่ยน HN แล้วสั่งครั้งเดียวเสร็จเลยน่ะครับ



4
Delphi / Pascal / Re: EasyReport2U By James011
« เมื่อ: เมษายน 19, 2013, 14:54:28 PM »
พอดีต้องทำเรื่อง Unit cost ที่ต้องนำข้อมูลให้ งานบัญชี
และไม่อยากรบกวนน้อง Admin ที่งานเยอะอยู่แล้ว , เลยลองมาค้นๆดู ว่ามีที่ไหน ทำกันอย่างไร
มาพบเครื่องมือของอาจารย์ เลยขออนุญาต แชร์ ครับ
..................................................................
เครื่องมือของอาจารย์ใช้งานได้ดีเลยครับ ส่งออกข้อมูลได้ทั้งหมด
มีประเด็นฝากอาจารย์นิดนึงครับ
พอดีจะนำเอาข้อมูล LOS ไปบันทึกใน CostProject แล้วพบว่า
LOS ใน RawData  กับ ใน DATA ไม่ตรงกันครับ
...................................................................
ใน RawData น่าจะถูกต้องครับ
แต่ผมไม่ทราบว่า อาจารย์คิด LOS อย่างไร ระหว่าง การส่งออกข้อมูลไปที่ DATA กับ RawData

ขอบคุณครับ
     ;D ;D ;D   LOS ใน  RawData คือ จำนวนวันนอน   
                ใช้ HOSxP2Rawdata น่าจะดีกว่าครับ เพราะไม่ต้อง mapping สิทธิ

5
 
ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง  RunHOSxP_ScriptProgram('xxxxFORM')  ผ่าน Button ใน MainForm  โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ  ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ
;D ;D ;D ผมอยากได้แบบนี้เหมือนกันครับ

6
Linux / Re: CentOS 6.3 + Percona 5.5.28-29
« เมื่อ: มีนาคม 20, 2013, 15:12:39 PM »
... ใช้การอนุญาต port ของ MySQL แทนการปิด firewall

    น่าจะดีกว่านะครับ ...  :D ...

    ;D ;D ;D  ผมก็ใช้แบบนี้อยู๋  ปลอดภัยกว่าครับ

7
ถ้าเราจะดึงจากตาราง ovstdiag ต้องใช้คำสั่งอย่างไรครับ เพราะมีผู้ป่วยบางคนยังไม่ลงทะเบียนใน clinic_member
    ;D ;D ;D  SuperP2P  --->Visit2Clinic   เลือกผู้ป่วยเฉพาะที่ยังไม่ได้ลงทะเบียนใน clinic  แล้ว สามารถนำเข้า Clinic ได้เลย

ของ เทพ.อ.เจมส์ ตัด hn ที่ตายอัตโนมัติแล้วใช่ไหมครับ  8) 8) 8) 8)
    ;D ;D ผมทำให้เลือก Checkbok  ก่อนว่า จะ นำเข้าคนไหนบ้างครับ  เพื่อให้เจ้าหน้าทีตรวจสอบอีกทีครับ

8
ถ้าเราจะดึงจากตาราง ovstdiag ต้องใช้คำสั่งอย่างไรครับ เพราะมีผู้ป่วยบางคนยังไม่ลงทะเบียนใน clinic_member
    ;D ;D ;D  SuperP2P  --->Visit2Clinic   เลือกผู้ป่วยเฉพาะที่ยังไม่ได้ลงทะเบียนใน clinic  แล้ว สามารถนำเข้า Clinic ได้เลย

9
 ;D ;D ;D ขอขอบคุณมา ณ ที่นี้. อิอิ

10
เพิ่งเป็นเหมือนกันเเล้วครับตอนนี้ หาผู้รู้ยากมากๆ
ใส่คำสั่ง d1.group by icode เเล้วก็ยังไม่หายครับ
   

                       ;D ;D  ลอง   group by d1.icode
                                        order by  d1.icode
                                       

11
 ;D ;D EasyReport2U   น่าจะตอบคำถามนี้ได้นะครับ

14
Delphi / Pascal / Re: EasyReport2U By James011
« เมื่อ: กุมภาพันธ์ 24, 2013, 09:31:10 AM »
 ;D ;D ;D โปรแกรม UnitCost เขาคงปรับ โปรแกรมใหม่นะครับ แก้ไขฟิวล์ทำให้ Error (Version เดิมไม่ Error)  ไว้ผมจะตรวจสอบ โปรแกรม UnitCost ตัวใหม่แล้วค่อยแก้ไขให้ครับ

15
มีความต้องการเพิ่มข้อมูลในตาราง
refer_point_list
จากเดิม
มีแค่  ER  IPD  OPD
จะเพิ่ม LR, Dent ,ห้องจิตเวช , อื่น ๆ จะได้ไหมครับ
   ;D ;D ;D ;D  ผมเพิ่มไปแล้ว อิอิ 

16
Delphi / Pascal / Re: ขอรายชื่อรพ.,สอ.ที่ใช้ SuperP2P หน่อยครับ
« เมื่อ: กุมภาพันธ์ 22, 2013, 09:44:49 AM »
 ;D

17
Delphi / Pascal / Re: EasyReport2U By James011
« เมื่อ: กุมภาพันธ์ 20, 2013, 08:19:16 AM »
 ;D ;D ;D  อ่านกันซักนิด  ก่อนคิดจะส่งหรือตรวจสอบ  43 แฟ้ม 

18
ขอแบบเป็นรายการครับ
  หมายถึง อันดับการใช้ยา หรอครับ

19
 ;D ;D ;D ถ้าอยากได้แค่ ตัวเลข ใช้นีัก็ได้ครับ

20
Delphi / Pascal / Re: EasyReport2U By James011
« เมื่อ: กุมภาพันธ์ 18, 2013, 15:06:09 PM »
รบกวนอาจารย์เพิ่ม Refer in ด้วยได้ไหมครับ
   ;D ;D ไว้ว่างๆๆนะครับ

21
Delphi / Pascal / Re: ขอรายชื่อรพ.,สอ.ที่ใช้ SuperP2P หน่อยครับ
« เมื่อ: กุมภาพันธ์ 18, 2013, 14:03:28 PM »
 ;D ;D  อันนี้ของปีที่แล้ว ยังมีคนหาเจอ อิอิ

      ;D ;D      ปีนี้ต้อง EasyReport2U ครับ

22
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 17, 2013, 17:03:00 PM »
 ;D ;D ;D Update  1.56.2.17 ทดสอบกันพรางๆๆ อิอิ
                @ ระบบนำเข้า 43 แฟ้ม
                @ ระบบตรวจสอบ 43 แฟ้ม


   Download 1 ----->  http://www.facebook.com/groups/191037677695931/
   Download 2------>  http://hpc11.go.th/james011/

23
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 17, 2013, 16:47:06 PM »
;D ;D ;D   Program UnitCost --> http://hpc11.go.th/james011/ 
   
          น่าจะต้องใช้ Office 2007 ขึ้นไปนะครับ  (Office>=2007)
จากที่ไปประชุมมาแนะนำให้ใช้ office2010 ครับ และต้องตั้งค่ารหัสสถานพยาบาลก่อนทุกครั้งที่กดเริ่มต้นใหม่ ผมทกสอบแล้วหลังจากนำเข้าไม่ error นะครับ
ต้อง Office 2010 ถึงใช้ได้

ไม่สามารถใช้ได้กับ Office 2003,Office 2013


     ;D ;D ;D  ผมก็ใช้ Office 2010 ในการทดสอบ  เอาเป็นว่า ให้  Office 2010 Stable แล้วกันครับ อิอิ
ผมไม่มี Access2010
ต้องใช้ตัวนี้แทน http://www.microsoft.com/en-us/download/details.aspx?id=10910
   ;D ;D ;D ดีเลยครับ

24
นอกเรื่อง / Re: โครงการประชุมวิชาการ HOSxP ประจำปี 2555
« เมื่อ: กุมภาพันธ์ 12, 2013, 16:49:33 PM »
เพิ่งโทรถามทางโรงแรมบอกว่าเต็มแล้วครับ งามแล้วล่ะครับ ;D
    ;D ;D ;D  รู้สึกว่าที่ผ่านมา ก็พัก โรงแรมนอกตลอด อิอิ

แถวนั้นแฟนคลับพี่เจมส์เยอะคงหาที่นอนได้มั้งแหละ
ไม่งั้นก็ไปพักกับป๋า JD ก็ได้ครับ ป๋าก็แฟนคลับก็เยอะเหมือนกันนิ  :o ;D ;D
  แล้วจะได้ไปกันหม้าย ไม่มีรายชื่อ อิอิ




คุณเจมส์ ยังไม่ส่งรายชื่อมาเลยนะค้า
  :)
    ;D ;D ;D  นี้แระครับ คือ ปัญหา อิอิ

             พี่เจมส์คะ  พี่เปาจะส่งรายชื่อพี่มาให้คะ  ไม่ต้องกังวลคะ   เรื่องที่พักติดต่อกลับคุณเปาเรียบร้อยแล้วคะ 

                                                                    ขอบคุณคะ

    ;D ;D ;D ขอบคุณครับ อิอิ

25
นอกเรื่อง / Re: โครงการประชุมวิชาการ HOSxP ประจำปี 2555
« เมื่อ: กุมภาพันธ์ 12, 2013, 11:44:45 AM »
เพิ่งโทรถามทางโรงแรมบอกว่าเต็มแล้วครับ งามแล้วล่ะครับ ;D
    ;D ;D ;D  รู้สึกว่าที่ผ่านมา ก็พัก โรงแรมนอกตลอด อิอิ

แถวนั้นแฟนคลับพี่เจมส์เยอะคงหาที่นอนได้มั้งแหละ
ไม่งั้นก็ไปพักกับป๋า JD ก็ได้ครับ ป๋าก็แฟนคลับก็เยอะเหมือนกันนิ  :o ;D ;D
  แล้วจะได้ไปกันหม้าย ไม่มีรายชื่อ อิอิ




คุณเจมส์ ยังไม่ส่งรายชื่อมาเลยนะค้า
  :)
    ;D ;D ;D  นี้แระครับ คือ ปัญหา อิอิ

26
นอกเรื่อง / Re: โครงการประชุมวิชาการ HOSxP ประจำปี 2555
« เมื่อ: กุมภาพันธ์ 12, 2013, 11:27:31 AM »
เพิ่งโทรถามทางโรงแรมบอกว่าเต็มแล้วครับ งามแล้วล่ะครับ ;D
    ;D ;D ;D  รู้สึกว่าที่ผ่านมา ก็พัก โรงแรมนอกตลอด อิอิ

แถวนั้นแฟนคลับพี่เจมส์เยอะคงหาที่นอนได้มั้งแหละ
ไม่งั้นก็ไปพักกับป๋า JD ก็ได้ครับ ป๋าก็แฟนคลับก็เยอะเหมือนกันนิ  :o ;D ;D
  แล้วจะได้ไปกันหม้าย ไม่มีรายชื่อ อิอิ

27
นอกเรื่อง / Re: โครงการประชุมวิชาการ HOSxP ประจำปี 2555
« เมื่อ: กุมภาพันธ์ 12, 2013, 10:35:03 AM »
เพิ่งโทรถามทางโรงแรมบอกว่าเต็มแล้วครับ งามแล้วล่ะครับ ;D
    ;D ;D ;D  รู้สึกว่าที่ผ่านมา ก็พัก โรงแรมนอกตลอด อิอิ

28
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 06, 2013, 11:29:06 AM »
อยากได้บ้างครับ  ss-hospital@hotmail.com

FB มันขึ้น     โพสต์นี้ได้ถูกลบไปแล้วหรือไม่สามารถโหลดได้

 ;D
เข้าในนี้ก็ได้ครับ     http://www.facebook.com/groups/191037677695931/

29
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 06, 2013, 08:46:32 AM »
;D ;D ;D   Program UnitCost --> http://hpc11.go.th/james011/ 
   
          น่าจะต้องใช้ Office 2007 ขึ้นไปนะครับ  (Office>=2007)
จากที่ไปประชุมมาแนะนำให้ใช้ office2010 ครับ และต้องตั้งค่ารหัสสถานพยาบาลก่อนทุกครั้งที่กดเริ่มต้นใหม่ ผมทกสอบแล้วหลังจากนำเข้าไม่ error นะครับ
ต้อง Office 2010 ถึงใช้ได้

ไม่สามารถใช้ได้กับ Office 2003,Office 2013


     ;D ;D ;D  ผมก็ใช้ Office 2010 ในการทดสอบ  เอาเป็นว่า ให้  Office 2010 Stable แล้วกันครับ อิอิ

30
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 16:19:04 PM »
 ;D ;D ;D   Program UnitCost --> http://hpc11.go.th/james011/ 
   
           น่าจะต้องใช้ Office 2007 ขึ้นไปนะครับ  (Office>=2007)

31
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 15:55:25 PM »
ทดสอบแล้ว error แบบนี้ครับท่านเจมส์
    ลอง กระชับและซ่อมแซม ฐานข้อมูลดูครับ

32
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 15:47:00 PM »
เปิดไม่ได้นะครับ ;D ;D ;D
  มันขึ้น Error ว่าอะไรครับ ตอนเปิด

33
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 15:45:00 PM »
ทดสอบแล้ว error แบบนี้ครับท่านเจมส์
   ;D ;D แก้ไข Error ได้ยังครับ

ผมเพิ่ม ก้อเป็น  Error  นี้
    ลองทดสอบ เปิด  Rawdata.accdb และ data.accdb ว่า สามารถเปิดได้หรือเปล่าครับ

34
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 14:18:37 PM »
ทดสอบแล้ว error แบบนี้ครับท่านเจมส์
   ;D ;D แก้ไข Error ได้ยังครับ

35
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 11:08:20 AM »
Update หน่อย   EasyReport2U 1.56.2.5
@ โอนข้อมูลจาก HOSxP ไปยัง UnitCost มีครบ 2 แบบ
1. RawData.accdb
2. Data.accdb

ใครมี
1. RawData.accdb
2. Data.accdb

บาง ผมประชุมพรุ่ง ว่าจะเอามาทดสอบก่อนประชุม
      Program UnitCost --> http://hpc11.go.th/james011/

36
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 10:33:24 AM »
เข้ามากด Like ให้ คุณเจมส์ค่ะ  8) 8) 8)
    ;D ;D ;D  ขอบคุณครับ อิอิ

37
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: กุมภาพันธ์ 05, 2013, 10:21:21 AM »
Update หน่อย   EasyReport2U 1.56.2.5
@ โอนข้อมูลจาก HOSxP ไปยัง UnitCost มีครบ 2 แบบ
1. RawData.accdb
2. Data.accdb

38
 ;D ;D ;D  วิธีการเขียนป้องกัน Script Error ให้เขียนแบบนี้ครับ
โค๊ด: Delphi
  1.          if  getsqldata('select count(gfr) from opdscreen where vn="xxxxxxx"')>0 then
  2.          begin
  3.            
  4.            ------------------Statement--------------------------------
  5.  
  6.          end;
  7.          

39
การเขียน SQL Script / Re: จำนวนผู้ป่วยหอบหืด
« เมื่อ: มกราคม 30, 2013, 15:48:41 PM »
แบบนี้ไม่รู้ได้ป่าวครับ

40
procedure Variable35OnCalc(var Value: Variant);
begin

  if (DBPipeline['egfr']='')  then Value:=0 ;

end;


  ลองดูครับ



41
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: มกราคม 29, 2013, 15:33:42 PM »
EasyReport2U เอาแค่นี้ก่อนนะครับ ใครอยากได้ไรเพิ่ม Request มานะครับ อิอิ

42
begin

if  DBPipeline['sex']=1 then
     if  DBPipeline['creatinine']<=0.9 then
       Value :=141*exp(-0.411*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993))
       else
       Value:=141*exp(-1.209*ln(DBPipeline['creatinine']/0.9))*exp(DBPipeline['age_y']*ln(0.993));
if  DBPipeline['sex']=2 then
     if DBPipeline['creatinine']<=0.7 then
         Value:=144*exp(-0.329*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993))
         else
         Value:=144*exp(-1.209*ln(DBPipeline['creatinine']/0.7))*exp(DBPipeline['age_y']*ln(0.993));
end;
     ;D ;D  ตัวหารเป็น  0

43
อ้างถึง
ยังแก้ไม่ได้ครับ     จะหาทางแก้ให้ ต่อไปคงต้องไปใช้ zeoslib เห็นใช้ได้
อันนี้เขียนมาเยอะแล้ว 555
;D ;D ;D
ทีอย่างอื่นล่ะเห็นแก้เร็วจัง......ศรัญญู
 ;D ;D ;D
     :o :o ;D

44
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: มกราคม 24, 2013, 10:26:22 AM »
EasyReport2U 1.56.1.24 ปรับปรุงตามรูป
1.DMHT คลินิกพิเศษ ทำให้ตอบตัวชี้วัด ของ TCEN
2.ผู้ป่วยใน RW,Adj.RW,CMI,CMIกลุ่มโรคผ่าตัด,ReAdmit,เลือก RW,AdjRW ตามคำขอ อิอิ   

  Program Download ==> http://www.facebook.com/groups/191037677695931/249609585172073/

45
สอบถามผู้รู้เรื่องการเงินหน่อยครับ ว่าค่าลงทะเบียนข้าราชการสามารถเบิกได้หรือไม่ครับ ทำไม รพ.ผมบอกว่าเบิกไม่ได้

  ปกติค่าลงทะเบียนมันเบิกได้นะครับ ข้าราชการ

46
รพ.สต.บ้านวัดโพรงจระเข้ คำสั่งตรวจแฟ้มpersonกับpatient
   SuperP2P56 --->http://www.facebook.com/groups/191037677695931/221193704680328/

47
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: มกราคม 21, 2013, 16:10:30 PM »
แย่เลยที่โรงพยาบาล block facebook  ;D
ปีนี้พี่เจมส์ส่งผลงานอีกไหมครับ .....  ไม่รู้ว่าส่งอีกได้ไหม 5555....
แต่ปีนี้ไม่เห็นใครเลย เงียบๆ มีพี่เจมส์มาแว้ว...... :o
      ;D ;D ;D  ซุ่มยิงกันทั้งนั้น 55

48
Delphi / Pascal / Re: EasyReport2U 1.56.1.21 By James011
« เมื่อ: มกราคม 21, 2013, 11:30:46 AM »
;D จะร่วมทดสอบ กะอ.เจมส์ด้วย แต่โหลดมิได้นะขอรับ  8)
   :D อยู่ในกลุ่ม Facebook ตาม Link ด้านบนครับ

49
Delphi / Pascal / Re: F1027 Unit not found: 'System.pas' or binary equivalents (.dcu)
« เมื่อ: มกราคม 21, 2013, 10:25:07 AM »
 ;D ;D ;D ลอง Refresh Library

50
Delphi / Pascal / EasyReport2U By James011
« เมื่อ: มกราคม 21, 2013, 09:22:59 AM »
EasyReport2U  By  James011 
Download 1  ====>  http://www.facebook.com/groups/191037677695931/
Download 2  ====>  http://hpc11.go.th/james011/

หน้า: [1] 2 3 ... 35