ผมก็เจอครับ

ปัญหาที่พบคือ
1. files ส่งออกมาจาก Hosxp ในส่วนของ AddCode จะมีรหัสจังหวัด 2 หลักแรกเข้าเบียด 
     และ รหัสหมู่บ้าน 2 หลักสุดท้ายจะถูกเบียดตกไป

  จึงทำให้ นำเข้า R506 แล้ว รหัสอำเภอ และ รหัสหมู่บ้่าน ผิดไป

Value := formatThaiDate('dd/mm/eeee',date);

function FormatThaiDate(options: string; FDate: TdateTime): string;
var
  sd: string;
  opt: string;
begin
  if (options = 'ddmmyy') then
    result := formatdatetime('dd', fdate) +
      formatdatetime('mm', fdate) +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'yymmdd' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
      +
      formatdatetime('mm', fdate) + formatdatetime('dd', fdate)
  else if options = 'dd/mm/yy' then
    result := formatdatetime('dd', fdate) + '/' +
      formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'dd/mm/ee' then
    result := formatdatetime('dd', fdate) + '/' +
      formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'dd/mm/yyyy' then
    result := formatdatetime('dd', fdate) + '/' +
      formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 1, 4)
  else if options = 'dd/mm/yyyy hh:nn:ss' then
    result := formatdatetime('dd', fdate) + '/' +
      formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 1, 4) + ' '
      +
      formatdatetime('hh:nn:ss', fdate)
  else if options = 'yy-mm-dd hh:nn:ss.zzz' then
    result := formatdatetime('yy-mm-dd hh:nn:ss.zzz', fdate)
  else if options = 'dd-mm-yyyy' then
    result := formatdatetime('dd', fdate) + '-' +
      formatdatetime('mm', fdate) + '-' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 1, 4)
  else if options = 'd/m/yyyy' then
    result := formatdatetime('d', fdate) + '/' +
      formatdatetime('m', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 1, 4)
  else if options = 'dd mmmm yyyy' then
    result := formatdatetime('dd', fdate) + ' ' +
      formatdatetime('mmmm', fdate) + ' ' +
      inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'd m yyyy' then
    result := formatdatetime('d', fdate) + ' ' +
      formatdatetime('m', fdate) + ' ' +
      inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'd mmmm yyyy' then
    result := formatdatetime('d', fdate) + ' ' +
      formatdatetime('mmmm', fdate) + ' ' +
      inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'd mmm yy' then
    result := formatdatetime('d', fdate) + ' ' +
      formatdatetime('mmm', fdate) + ' ' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'd mmmm yy' then
    result := formatdatetime('d', fdate) + ' ' +
      formatdatetime('mmmm', fdate) + ' ' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'mmmm yyyy' then
    result := formatdatetime('mmmm', fdate) + ' ' +
      inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'd mmm yyyy' then
    result := formatdatetime('d', fdate) + ' ' +
      formatdatetime('mmm', fdate) + ' ' +
      inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'yyyy' then
    result := inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)
  else if options = 'yy/mm/dd' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
      +
      '/' + formatdatetime('mm', fdate) + '/' + formatdatetime('dd', fdate)
  else if options = 'mm/yy' then
    result := formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'yy/mm' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
      +
      '/' + formatdatetime('mm', fdate)

  else if options = 'ee' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)

  else if options = 'mmyy' then
    result :=
      formatdatetime('mm', fdate) +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'mm/ee' then
    result :=
      formatdatetime('mm', fdate) + '/' +
      copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'yymm' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
      +
      formatdatetime('mm', fdate)
  else if options = 'yy' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'mm' then
    result := formatdatetime('mm', fdate)
  else if options = 'yy' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'ee' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
  else if options = 'eemmddhhnnss' then
    result := copy(inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543), 3, 2)
      +
      formatdatetime('mmddhhnnss', fdate)
  else if options = 'mm' then
    result := formatdatetime('mm', fdate)

  else if options = 'eeee' then
    result := inttostr(strtoint(formatdatetime('yyyy', fdate)) + 543)

  else if pos('ee', options) = 0 then
  begin
    if pos('yyyy', options) > 0 then
    begin
      sd := formatthaidate('eeee', fdate);
      opt := replacestr(options, 'yyyy', sd);
      result := sysutils.formatdatetime(opt, fdate);
    end
    else if pos('yy', options) > 0 then
    begin
      sd := formatthaidate('ee', fdate);
      opt := replacestr(options, 'yy', sd);
      result := sysutils.formatdatetime(opt, fdate);
    end
    else if pos('ee', options) > 0 then
    begin
      if pos('eeee', options) > 0 then
      begin
        sd := formatthaidate('eeee', fdate);
        opt := replacestr(options, 'eeee', sd);
      end
      else
      begin
        sd := formatthaidate('ee', fdate);
        opt := replacestr(options, 'ee', sd);
      end;

      result := sysutils.formatdatetime(opt, fdate);

    end
    else
    begin
      result := sysutils.formatdatetime(options, fdate);

    end;

    //result := formatdatetime(options, fdate);
  end

  else
    Messagedlg('Options not found for Format Thaidate function ! ' + options,
      mterror, [mbok], 0);
end;

อีกวิธีครับ copy ของ อ.ออ๊ด ไปใส่ใน Variable ครับ อ.อ๊อดใช้สูตร คศ+ 543 ครับ ใช้ได้เหมือนกัน

ของ รพ ผม ใช้ windows Original Sp2-3 ของที่เป็นแบบเิดิมๆ ไม่ปรุงแต่ง ครับ
เคยเอารุ่นที่ปรับแต่ง เสริม ตัดต่อ Application ต่างๆ เจอปัญหาทุกเครื่อง ครับ

เดิมๆ จะเนียน ครับ

ขอบคุณมากครับ ขอรายงานด้วยครับ
kity2049@hotmail.com

วันนี้วันแรกครับ นัดเช้า 200 คน บ่าย 300 คน แก้ปัญหาเฉพาะหน้าไปก่อน
แยกไปกลางเต็นท์ลานหน้า รพ. ใช้ฟอร์มใบสั่งยา(กระดาษA4ครึ่งแผ่น) เขียนด้วยมือก่อนแล้ว
จะมา key Com ตอนเย็นครับ

อ้างจาก: TanKit(กิจ) ที่ มิถุนายน 24, 2009, 11:57:23 AM

;Dลอง คลิ๊ก แถบ รายการยา/เวชภัณฑ์
ก็มีหน้าจอคล้ายกันเลยนะครับ
แถมเลือก print server ได้ด้วย  ทดสอบดูคับ
ผมว่ามีแล้วหล่ะ 

ถูกต้องนะครับ

มีเมนู   print server แต่สั่งพิมพ์  พิมพ์ไม่ออกครับ  พอกลับมาใช้ เวอร์ชั่น 3.51.10.10 พิมพ์ออกได้ปกติครับ

ทำแล้วมันไม่ออกครับ   

คุณ udomchok  ใช้เวอร์ชั่น อะไรคับ

ช่วยครับ   ;Dดัน

ลองทดสอบดูนะครับ

แล้วอันนี้ ยังใช้ไม่ได้ ใช่ไหมครับ

ขอบคุณ อ.ทุกท่านมากครับ

ผมผ่านเมื่อคืนมาได้  เพราะทุกๆท่านครับ

ตอนนี้รอประเมินสถานการณ์ครับ วันจันทร์รับคนไข้มากๆค่อยว่ากันอีกที ครับ

ปรับ My.cnf วันจันทร์ช่วงเวรบ่ายอีกรอบครับ 

ขอเชิญ อ.ผู้สนใจทุกท่าน เข้าร่วมเป็นที่ปรึกษาได้ครับ

Ram ของผมตอนนี้ใช้ 8 GB ครับ

my.cnf 8 G

รายละเอียด

[client]
port      = 3306
socket      = /var/lib/mysql/mysql.sock
default-character-set=tis620

[mysqld]
default-storage-engine=INNODB
default_table_type = INNODB
port      = 3306
socket      = /var/lib/mysql/mysql.sock
skip-locking
key_buffer = 1024M
max_allowed_packet = 256M
table_cache = 1500
sort_buffer_size = 1M
read_buffer_size = 1M
read_rnd_buffer_size = 1M
max_heap_table_size = 1024M
myisam_sort_buffer_size = 1024M
thread_cache_size = 800
query_cache_size= 256M
thread_concurrency = 8
default-character-set=tis620
skip-name-resolve
skip-character-set-client-handshake
init_connect = 'SET NAMES tis620'
innodb_file_per_table
innodb_data_home_dir = /var/lib/mysql/
innodb_data_file_path = ibdata1:100M:autoextend
innodb_log_group_home_dir = /var/lib/mysql/
innodb_buffer_pool_size = 5000M
innodb_additional_mem_pool_size = 24M
innodb_log_file_size = 512M
innodb_log_buffer_size = 2M
innodb_flush_log_at_trx_commit = 1
innodb_lock_wait_timeout = 50
innodb_thread_concurrency = 0

[mysqldump]
quick
max_allowed_packet = 16M
allow-keywords

[mysql]
no-auto-rehash
default-character-set=tis620

[isamchk]
key_buffer = 512M
sort_buffer_size = 512M
read_buffer = 4M
write_buffer = 4M

[myisamchk]
key_buffer = 1000M
sort_buffer_size = 512M
read_buffer = 4M
write_buffer = 4M

[mysqlhotcopy]
interactive-timeout

เลือกเอามาแบบนี้ ถูกไหมครับ

ท่านใด D/L Mysql 5.1.30 เก็บไว้ขอด่วนครับ
ตอนนี้หา D/L ไม่ได้เลยครับ กำลังแก้ไข Serverด่วน ครับ

ขอถามว่า แล้วจะเติมแผนกได้อย่างไรครับ  ผมหาที่จะเพิ่มไม่เจอครับ

  ขอบคุณ อ.ขวด ครับ ที่ช่วยดัน

 อยากให้ อ.ชัยพร ช่วยเพิ่มให้จังเลยครับ



 ;Dขอบคุณอ.ชัยพร ออกมาใหม่ 2 Version 5.6 อ.ได้แยกให้แล้วครับ Observ กับ ER แยกได้แล้วครับ
ส่วน รายงานยังไม่ได้ทดสอบครับ

แต่ว่า พบปัญหาอีกนิด คือว่า รายชื่อผู้ป่วยที่จาก ER ส่งไป ที่ห้อง Observ ยังแสดงซ้ำที่ห้อง ER อยู่

                                ตรงนี้ ผมจึงอยากจะถาม อ.ทั้งหลายให้Web นี้ว่า
           Pt---> ER --> Observ -->กลับบ้าน/Refer/Admit   สถานะผูั้้ป่วยจะถือเป็นผู้ป่วยของER อยู่หรือไม่

ผมยังไม่แน่ใจครับ หากผู้ป่วย Observ นับเป็นของ ER ด้วย ของอ.ชัยพรที่ทำมาก็ถูกต้องแล้วครับ

อ. อ๊อด ต้องรู้แน่ๆเลย  Version 3.52.4.23 ครับ บอกผมด้วย

แล้ว BMS จะอยู่ได้ไหมครับ

อยู่ได้ครับ 
สนับสนุนแนวคิด อ.บอย ที่ต้องการใช้ผู้ใช้เก่ง เท่ากับหรือเทียบเท่า Admin

เหตุผลแยกได้เป็นประเด็น ดังนี้
1. Admin ควรจะมี 3 ประเภท คือ
         1.1  Admin ด้าน ผังไหลเวียนระบบสารสนเทศทางการแพทย์และสาธารณสุข ได้แก่ จนท.สาธารณสุขที่เกี่ยวข้อง ซึ่ง BMS อาจจะไม่ชำนาญ รู้ลึก รู้จริง
         1.2  Admin ด้าน ระบบNetwork ได้แก่ จนท.IT ของ สอ+รพ. ซึ่งขึ้นอยู่กับความสามารถและทักษะศักยภาพของ จนท.ของแต่ละแห่ง สามารถเรียนรู้ได้ทั่วไป รวมทั้งที่ BMS จัดขึ้นด้วย
          1.3 Admin ด้าน Software ได้แก่ ผู้เชี่ยวชาญประสบการณ์การใช้งาน Hosxp ซึ่งตรงนี้ละครับ สำคัญ ที่จะต้องให้เกียรติและส่งเสริมสนับสนุน BMS ให้พัฒนาและถ่ายทอดความรู้ทักษะให้กับ สอ.+รพ โดยการไม่ละเมิดไม่ส่วนนี้

ความเห็นของผม คิดว่า
           การช่วยกันพัฒนา โดยจนท.สอ+รพ พัฒนาในส่วนที่ 1.1 - 1.2 โดยการใช้แนวคิดของ อ.บอย หรือ จังหวัดอื่นๆที่รวมตัวกัน และดำเนินการแบบนี้น่าจะทำให้เกิดความพร้อม ปิดช่องว่าง แก้ไขข้อบกพร่องให้ระบบโปรแกรมมีความน่าใช้มากที่สุด และจะเป็นการพัฒนาแบบก้าวกระโดด หากมีการแลกเปลี่ยนซึ่งกันและกัน
          โดยเฉพาะการแลกเปลี่ยนการแก้ไขใช้สอดคล้องกับระบบโปรแกรมHosxp กับทาง  BMS

มีคำถามว่าแล้ว BMS จะได้อะไร
         ได้ แน่นอน
         - ได้พัฒนาระบบโปรแกรมอย่างรวดเร็วเพราะมีห้องทดลองขนาดใหญ่เป็นสนามทดลองจริงคือ พวกเรา
         - พัฒนาต่อยอดระบบอย่างไม่หยุดยั้งเพราะมีฐานลูกค้าอย่างมากมายและยั่งยืนเป็น อมตะ ไม่มีวันตาย
         - ที่สำคัญที่สุด ขาย Know How ในส่วน 1.3 ที่พัฒนาขึ้นมาใหม่ รวมถึงการติดตั้งระบบใหม่ ตามภูมิภาคทั่วไทยโดย พวกเราให้การสนับสนุนอย่างต่อเนื่อง และไม่ไปก้าวล่วงในส่วนนี้ ที่เป็นการค้าหรือกระทำมีผลกำไรอย่างชัดเจน

           ยกเว้น การช่วยเหลือซึ่งกันและกันอย่ีางที่เป็นอยู่ในปัจจุบันนี้เท่านั้น
         

ขอบคุณ อ.ทั้งสองท่านครับ ท่าน Udomchok และ ท่าน Golf ครับ ผมจะทดลองทำดูครับ ติดปัญหาอะไรจะโทรหาครับ

ส่วน ข้อที่ 1 อ. ท่านอื่นๆ มีใครทดสอบใช้บ้างครับ 

5.1.30 กับ 5.1 .34 ต่างกันมาก ไหมครับ

เห็น อ.ชัยพร แนะนำ 5.1.30 ไว้ว่าใช้ดี  แล้ว .34 จะดีกว่าไหมครับ

ไม่แน่ใจ ยังไงดีครับ

สุดยอดครับ อ.ชัยพร

ผมกำลัง งมกับ 0110 รง.5 ของ สนย .อยู่เลยครับ 

ไปเป็น ฤษี ปรับพฤติกรรม หลายวันครับ พึ่งครับมาอ่านกระทู้

แนบ ovstlist มาให้ อ.ทุกท่านช่วยดูครับ

แต่ก็ยังสังสัยว่า ("XX","YY")

ตรงที่ "XX","YY" มันหมายถึงอะไรครับ  จะเอาอะไรใส่ค่า X อะไรใส่ค่า Y ครับ

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

 

ขอ อ.ขวด ช่วยหน่อยครับ

มันน่าจะเกิดสาเหตุที่

หัตถการมันถูกใช้ไปแล้วใน Visit เก่าๆที่ผ่านมา
แล้วไปลบมันออก มันจึงถามหา

คงจะลบออกไม่ได้ครับ ต้องเพิ่มใหม่อย่างเดียว
หรือต้องเปลี่ยนรหัสหัตถการเก่าให้เหมือนรหัสใหม่ จึงจะแก้ไขปัญหานี้ได้

ไม่รู็้ว่าจะตอบถูกประเด็นหรือเปล่า รอให้ อ. ท่านอื่นๆมาตอบเพิ่มครับ

ตามที่พี่ เดชา แจ้งไว้ครับ ถูกต้องครับ

การทำรายงาน 506 ต้องอาศัยหลักระบาดวิทยา มาช่วยสร้างความเข้าใจด้วยครับ
ต้องทำการตรวจสอบว่า ถูกต้องตามโรคที่ต้องรายงาน และไม่ให้ซ้ำการวินิจฉัยใน Episode เดียวกันด้วย

เพื่อไม่ให้สถิติจำนวนผู้ป่วยรายโรคมันเพิ่มขึ้น เพราะจำนวนโรคจะนับจาก จำนวนครั้งของการป่วยที่DX ไม่ได้นับจากจำนวนการมา Visit แล้ว DX ถึงแม้จะมาหลายครั้ง ก็จะนับเพียงครั้งเดียวเป็น 1 รายโรคเท่านั้น

ฉนั้น การที่ HN มารับบริการด้วยโรคเดิม แต่มาหลายครั้งในช่วงรอบของการป่วย การมาครั้งแรกใส่DX เป็นโรคที่ป่วย แต่ครั้งต่อมายังรักษาไม่หาย DX ควรจะต้องเป็น DXเพื่อ FU จะได้ไม่ซ้ำ

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

อัฟใช้จริงไปเรียบร้อยแล้วครับ

มีปัญหาเล็กๆน้อยๆ ที่น้องก๊อล์ฟบอกไว้
แต่ก็พอจะมองข้ามไปได้ จะจำเป็นมากสำหรับคนไข้ DM HT COPD ANC
ใช้วิธีแก้ไขด้วย Manual มือเขียนไปก่อน

ส่วนอื่นๆ โดยรวม OK ครับ ผมอัฟยังไม่มีเสียงเรียกร้องขอแก้ไขฉุกเฉินเกิดขึ้น ผ่านตลอดครับ

ผิดจริงๆ ด้วยครับ

 
ขออภัยด้วยครับ