พอดีได้ถามท่านณัฐ รพ.วิเชียรบุรีแล้วครับผม...ได้คำตอบและแนวทางแล้วครับ..ขอบคุณครับ อ.

ในโปรแกรมฮอสเอ๊กพีใช้ไม่ได้มาระยะนึงแล้วครับ อ.นาจครับ..ไม่ว่าจะเป็นกับ pttype หรือตารางอื่นก็ตามที..แต่เข้าไปใช้คำสั่งนี้โดยตรงที่ server ได้ครับหรือโปรแกรมที่เป็น front end ของ mysql server ก็สามารถใช้คำสั่งพวกนี้ได้ครับผม...ผมคิดว่าเป็นที่โปรแกรมฮอสฯ แล้วล่ะครับ อ.พี่นาจ

ขอบคุณครับคุณ nobeta พอดีลองไปทดสอบดูคือ แก้การเลือกใน system systing ให้เป็นแบบปี พ.ศ.นำหน้าแล้วแก้ serial ของ an จาก 490004211(ประมาณนี้ครับ) ให้เป็นเหลือแค่ 4211 จากนั้นก็ไปทดสอบ admit ใหม่ ก็เป็นอันสำเร็จครับ (สงสัยว่าจากที่ทำซีเรียลปีพ.ศ.แล้ว มีค่าของ an ให้นับต่อได้(พอดีมีสองสามคนที่ได้ an แบบ ซีเรียลมีปีพ.ศ.นำหน้า) โดยที่ไม่ต้องไปเริ่มนับจาก 490000001 ครับ) ก็เลยทำให้การเลือกจาก system systing ให้เป็นปีพ.ศ.นำหน้าไม่ต้องไปแก้ที่สามตารางที่แนะนำมา..

ก่อนหน้านี้ใช้แบบซีเรียลครับ ให้รันเลข an ไปเรื่อย ๆ แต่ รูปแบบครับ 000005421, 000005422, 000005423 ไปเรื่อย ๆ ครับ คือใจจริง อยากให้เป็นแบบปีนำหน้าครับ 490005421, 490005422 รูปแบบนี้นะครับ..ไม่ทราบจะต้องทำอย่างไรครับ นอกเหนือจากการไปกำหนดใน system setting แล้วจะต้องไปกำหนดตรงไหนเพิ่มรึปล่าว..... ผมลองทดสอบดูแล้ว..(แบบมีปีพ.ศ.นำหน้าครับเลข an ไม่รัน auto เลย) ดังไฟล์ที่แนบมาด้านล่างนี้ครับ...กดจองเลข an กะคนไข้กี่รายก็จะเป็น 490000001 ตลอดเลย.. ไม่มีเพิ่มเป็นสอง เป็นสามเลยครับ และก็ถ้าจะกำหนดช่วงของ an ให้รันต่อจากเลขที่มีอยู่จะต้องไปกำหนดตรงไหนครับ เช่นว่าผมมีความจำเป็นต้องเริ่มที่ 490004401 ประมาณนี้ครับผม..ขอบคุณครับ

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

รบกวน อ. ช่วยเช็คด้วยครับ...

ไม่ทราบว่ามีข้อผิดพลาดประการใดบ้างครับ..เป็นครั้งแรกที่ส่งออกข้อมูลไป nhso หลังจากเริ่มใช้เดือนกว่าครับ

ลืมบอกไปอีกอย่าง..ภาพที่เห็นจะขึ้นมา interval โดยประมาณทุก 1 นาที..คลิกแล้วก็จะขึ้นมาอีก คลิกแล้วก็จะขึ้นมาอีก...ทางแก้เท่าที่ทำคือ อัพให้เป็นเวอร์ชั่นเดียวกันหมด คือ 2.49.8.31 ครับ..แต่ก็อย่างว่า สติ๊กเกอร์นัดผู้ป่วยไม่พิมพ์ซักราย..

บางทีการใช้ sql Query ในโปรแกรม hosxp ก็ลบ ไม่ได้ครับ.. ควรจะเข้าไปทำรายการใน command line โดยตรงเลยจะดีที่สุด  หรือ mysqlcc ที่มีมากับ hosxp ก็ใช้งานได้นะคุณโนบีตะ... โอเคมั้ย ส่วนเรื่องการดึงสิทธิ์จากเว็บ ผมเข้าใจว่ามันจะดึงจากเว็บมาลงในเท๊กซ์บ๊อกในโปรแกรมให้เลยแต่เท่าที่ลอง ๆ ดู ไม่มาครับ

นำเข้าไฟล์นี้เลยครับ ตาม สปสช เลย..และก็ทางที่ดีควรจะเซ็ตใน pttype ให้เป็นตามนี้ด้วยครับ..

เอาใหม่ครับ..ชื่อไฟล์ภาษาไทยมีปัญหา
เป็น custom report ครับ อยู่ใน Module appointment
ชื่อ custom-รายชื่อผู้มารับบริการตามนัด
     custom-รายชื่อผู้มารับบริการผิดนัด

http://centos.org/modules/tinycontent/index.php?id=15

หรือจะหา link ต่อจากเว็บก็ได้ครับ http://centOS.org
หรือถ้าจะเอา distribution ตัวอื่นก็ ftp://nectec.or.th/pub/   มีหลายเวอร์ชั่นด้วยครับ...
งัยก้อสู้ ๆ นะครับคุณหมอ
ปล.เน็ตควรจะเร็วถ้าจะดาวน์โหลดครับ...สี่แผ่นก็น่าจะประมาณ 1 คืน กับ ครึ่งวันโดยประมาณ

IBM @e series 206, Federa4 ครับ กับ mysql server 5.0.19 แต่ผมแนะนำให้ใช้ mysql 4.1.19 จะดีกว่ากว่า เผื่ออัพฐานข้อมูล เป็นแบบ InnoDB จะได้ไม่มีปัญหา

มีอีกครับ...
' VBIDEUtils#****************************************************
' * Programmer Name  : kanchit pinijmontree
' * Web Site         : http://10.136.215.19/codeCreate/
' * E-Mail           : chit164@hotmail.com
' * Date             : 22/8/49
' * Time             : 15:50
' * Module Name      : GUID_Module
' * Module Filename  : sGUID.bas
' *************************************************************
' * Comments         : Create a Globally Unique Identifier (GUID)
' *
' * Samples:
' *  {3201047B-FA1C-11D0-B3F9-004445535400}
' *  {0547C3D5-FA24-11D0-B3F9-004445535400}
' *
' *************************************************************

Option Explicit
DefLng A-Z

Private Type GUID
   Data1          As Long
   Data2          As Integer
   Data3          As Integer
   Data4(0 To 7)  As String * 1
End Type

Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long

Const mciLen As Integer = 4

' #VBIDEUtils#***************************************************
' * Programmer Name  : kanchit pinijmontree
' * Web Site         : http://10.136.215.19/codeCreate/
' * E-Mail           : chit164@hotmail.com
' * Date             : 22/8/49
' * Time             : 15:50
' * Module Name      : GUID_Module
' * Module Filename  : sGUID.bas
' *************************************************************
' * Comments         : Create a Globally Unique Identifier (GUID)
' *
' * Samples:
' *  {3201047B-FA1C-11D0-B3F9-004445535400}
' *  {0547C3D5-FA24-11D0-B3F9-004445535400}
' *
' **************************************************************

Public Function CreateGUID() As String
 ' VBIDEUtils#****************************************************
 ' * Programmer Name  : kanchit pinijmontree
' * Web Site         : http://10.136.215.19/codeCreate/
' * E-Mail           : chit164@hotmail.com
' * Date             : 22/8/49
' * Time             : 15:50
' * Module Filename  : sGUID.bas
' * Module Name      : GUID_Module
' * Procedure Name   : CreateGUID
' * Parameters       :
' *************************************************************
   ' * Comments         : Create a Globally Unique Identifier (GUID)
   ' *
   ' *
   ' ************************************************************
   
   Dim sGUID   As String       'store result here
   Dim tGUID   As GUID         'get into this structure
   If CoCreateGuid(tGUID) = 0 Then 'use API to get the GUID
      With tGUID              'build return string
         sGUID = "{" & PadLeft(Hex(.Data1), mciLen * 2) & "-"
         sGUID = sGUID & PadLeft(Hex(.Data2), mciLen) & "-"
         sGUID = sGUID & PadLeft(Hex(.Data3), mciLen) & "-"
         sGUID = sGUID & FormatGUIDData4(.Data4())
      End With
      sGUID = sGUID & "}"     'ending brace
      CreateGUID = sGUID
   End If
   
End Function

Private Function FormatGUIDData4(aryData4() As String * 1) As String
   
   Dim I       As Integer      'loop thru the array
   Dim sGUID   As String       'store result here
   Dim sTemp1  As String       'first part here
   Dim sTemp2  As String       'second part here
   
   For I = LBound(aryData4()) To UBound(aryData4())   'process string array
      If I < 2 Then           'first part
         sTemp1 = sTemp1 & Hex(Asc(aryData4(I)))
      Else                    'second part
         sTemp2 = sTemp2 & Hex(Asc(aryData4(I)))
      End If
   Next
   sGUID = PadLeft(sTemp1, mciLen) & "-" & PadLeft(sTemp2, mciLen * 3) 'pad left with zeros
   FormatGUIDData4 = sGUID                     'return what we created

End Function

Private Function PadLeft(sString As String, iLen As Integer) As String
   
   ' Pad with left zeros if needed
   Dim sTemp         As String
   sTemp = Right$(String$(iLen, "0") & sString, iLen)
   PadLeft = sTemp
   
End Function

ที่รพ.ก็เป็นเหมือนกันครับ..ส่วนใหญ่จะเป็นกับไอพีดีเคส ครับ....แต่ยังไม่ได้ใช้2.49.8.18   เวอร์ชั่นก่อนหน้านี้ก็เป็นเหมือนกันครับ

อ.ครับ.พอดีทางโรงพยาบาลฝากถามมาครับดังนี้ครับผม..
  1.เมื่อไหร่โปรแกรมฮอสxp ถึงจะพิมพ์สติ๊กเกอร์ผู้ป่วยในแบบยูนิตโดสวันเดย์ได้ เพราะรอนานพอสมควรแล้ว
  2.ขอเพิ่มปุ่มดูผลแล๊ปที่หน้าจอสกรีนของพยาบาลเพิ่มอีกปุ่มได้มั้ยเพราะ ขี้เกียจเปิดกลับไปกลับมาเพื่อจะดูผลแล๊บ(ประมาณว่าคนแก่ครับ) เพราะเรื่องแค่นี้สำหรับบางคนก็เป็นปัญหาได้ครับ
  3.เรื่องการนัด..ถ้าเกิดว่ามีข้อมูลนัดที่เป็นเกี่ยวกับแล๊ปอะไรประมาณนี้ ถ้าในวันที่เขามาตรวจจริงไม่ต้องเลือกอีกได้มั้ย..ขอให้ส่งรายการที่มีอยู่ในรายการนัดไปแล๊ปเลยได้มั้ย..พยาบาลฝากถามมาอีกครับผม..
  4.ในเรื่องของการวิวผลแล๊ป..ถ้าเป็นแล็ปที่สำคัญ ๆ อย่างเช่น HIV หรือที่มีผลทางคดี..เกี่ยวกับตรวจพิสูจน์สเปิร์ม อะไรประมาณนี้ครับ... อยากให้มีการตรวจสอบเพิ่มอีกระดับนอกเหนือจากการคลิกเลือกให้สิทธิวิวแล๊ปจากระบบปกติได้มั้ยครับ..
รบกวนด้วยนะครับอ. เพราะบางทีเรื่องเล็ก ๆ น้อย ๆ แบบนี้ก็เป็นปัญหาได้..พวกเขาชอบเอาไปเปรียบเทียบกับระบบเดิม.ที่บอกว่าทำอะไรที่หน้าจอเดียวก็เสร็จ..ไม่ต้องเปิดกลับไปกลับมา...  ขอบคุณครับผม..