upgrade structure หรือยังครับ

เครื่องอื่นเป็นมั้ยครับ

พิมพ์เป็นใบ MAR ไปเลยน่าจะประหยัดกว่าพิมพ์ sticker นะครับ

 อาจารย์ครับแฟ้ม accident นำเข้า hdc แล้วพบปัญหาว่า case ที่มี coma score ที่เราไม่ได้ลงผลระบบส่งออกมาเป็น 0 ครับ แต่ตามนิยามเราควรส่งออกมาเป็นค่าว่างครับ ทำให้ไม่สามารถนำเข้า hdc ได้ครับ

ขอบพระคุณอย่างสูงครับ 

อาจต้องตรวจสอบ Generic name ของยาและใส่ข้อมูลความร้ายแรงกับรหัสยา 24 หลักด้วยครับ
 

เป็นเภสัชได้อีก 1 ตำแหน่งครับพี่สันทัด สุดยอดจริงๆ 

ใส่ icd10 ลงไปในช่องตรงๆ แล้วกดบันทึกครับ ผมก็เจอแบบนี้แต่เป็นบางคนแค่นั้น แต็ก็สามารถบันทึกข้อมูลได้ครับ

ได้ครับ แนบไฟล์มาให้แล้วครับ 

แทรก code ใหม่ ต่อจาก code เดิมโดยที่ไม่ต้องเริ่มประกาศ var ใหม่ครับ ถ้าติดขัดก็ FB มาก็ได้ครับ

ก็มีแบบฟอร์ม UE พอจะได้มั้ยครับ

ต้องประกาศตัวแปรใหม่ครับ เพราะมันซ้ำกับของเดิมครับ

ศึกษาจากกระทู้นี้ครับ http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=21592.0

ส่วน script ที่ผมใช้งานก็ตามนี้ครับ
var
  fvn,fcomputername,fdepartment,fhn : string;
  fdate_1,fdate_2,fdate_3 : string;
  tc : TClientDataset;
 dTDate, sdTDate : date;


begin
  //showmessage('TEST Script');

  fvn:= GetGlobalValue('VN');
  fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');
  fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');


  // showmessage('Current VN = '+fvn+'  , Computer Name = '+fcomputername+' , Department Code = '+fdepartment);
    {==================== check TT ====================}
  if getsqldata('select depcode from kskdepartment where depcode in ("011","044","008") and depcode="'+fdepartment+'"')=''+fdepartment+'' then
  begin
     fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');

     dTDate:=getsqldata('select o.vstdate from er_regist_oper e '+
                          'left outer join vn_stat o on o.vn=e.vn '+
                          'where o.hn = "'+fhn+'" and e.er_oper_code in ("148","266") order by o.vstdate desc limit 1 ');

     if getsqldata('select count(*) as cc from er_regist_oper e '+
                   'left outer join vn_stat o on o.vn=e.vn '+
                   'where o.hn = "'+fhn+'" and e.er_oper_code in ("148","266") ')>0 then
       begin
       sdTDate:=FormatDatetime('dd/mmm/eeee',dTDate);
       showmessage('[ ¼Ùé»èÇÂà¤Â©Õ´ÇѤ«Õ¹ Tetanus toxoid ËÃ×Í DIPHTHERIA-TETANUS à¢çÁ·Õè 3 ÁÒáÅéÇàÁ×èÍÇѹ·Õè '+sdTDate+' ]');
       end;
   end;

end;

แบบนี้หรือป่าวครับ 

 

ยังแก้ไขไม่ได้ครับก็เริ่มต้นใหม่ ทำใหม่ครับ

ลองใช้ห้องการเงิน version 3.57.2.25 ครับ

ขอดูหน้านี้ของ lab ตัวที่มีปัญหาครับ

ถ้าไม่ถอย version จะแก้ยังไงครับที่จะไม่ต้องไปยกเลิกค้างชำระรายเก่ามากๆจำนวนมากมาย แล้วมาทำค้างชำระด้วย version ใหม่

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

glasgow coma score

table_open_cache = 8000
table_open_cache = 3200

ตั้งไว้ 2 ค่าเลย

Reference ทางเภสัชกรรมที่เป็นชื่อสามัญทางยามีอยู่แล้วครับ หาง่ายอย่างเช่น หนังสือ drug information handbook เป็นต้นครับแต่การกำหนดชื่อสามัญเองทาง admin ก็ต้องทราบว่าห้ามมีการเว้นวรรคในชื่อยาสามัญด้วย ส่วนรหัสยา TMT เพิ่งจะมียาแค่ 25,xxx แค่นั้นเองคงยังไม่ครอบคลุมยาทั้งหมดรวมถึงยาสมุนไพรครับ

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

ขั้นตอนการยกเลิก Visit ผู้ป่วย (ไม่สามารถลบทีเดียวได้ทั้งหมดนะคะ  ถ้ามีค่าใช้จ่ายแล้ว ต้องลบทีละขั้นตอนคะ)
ขั้นตอนที่ 1 : กรณีผู้ป่วยสิทธิชำระเงิน ถ้ามีการออกใบเสร็จแล้ว  ให้ทำการยกเลิกใบเสร็จก่อน
กรณีผู้ป่วยสิทธิลูกหนี้ หรือสิทธิฟรี ถ้ามีการบันทึกค่าใช้จ่ายที่การเงินแล้ว  ให้ทำการยกเลิกใบแจ้งหนี้ก่อน

ขั้นตอนที่ 2 : ถ้ามีการสั่ง LAB หรือ X-Ray ให้ทำการยกเลิกการสั่ง LAB หรือ X-Ray

ขั้นตอนที่ 3 : ถ้ามีรายการยา หรือ รายการค่าใช้จ่ายแล้ว  ให้ทำการยกเลิกใบสั่งยา แนะนำที่เมนู ระบบห้องจ่ายยา > ลงรายการจ่ายยา-Mode 2 > ดึงข้อมูลผู้ป่วยที่ต้องการขึ้นมา > กดปุ่ม "ลบ-F1" (จะลบค่าใช้จ่ายทั้งใบสั่งยา  ถ้าลบไปแล้วไม่สามารถเอากลับคืนได้)

ขั้นตอนที่ 4 : ถ้าต้องการยกเลิก Visit  ไปที่เมนู ระบบผู้ป่วยนอก > บันทึกส่งตรวจ > ดึงข้อมูลผู้ป่วยที่ต้องการขึ้นมา > กดปุ่ม "ลบรายการ"

หมายเหตุ : ถ้าทำตามขั้นตอนนี้จะสามารถยกเลิก Visit  ได้โดยไม่ติดอะไรคะ



ขอบคุณคะ
นันท์ทา   ตั้งใจ(ตั๊ก)
ฝ่ายลูกค้าสัมพันธ์

ไหนๆก็ได้แนวทาง OPD แล้ว รบกวน call center จัดการลบ admit ให้อีกสักที รบกวนด้วยครับ

"There is no one who takes care of us as lovingly as our mother does.
She is our living God."

ไม่มีใครจะดูแลเราด้วยความรักแท้เท่ากับที่แม่ทำ แม่เป็นเทพธิดาที่มีชีวิตจริง ๆ


ประมาณนี้ครับ
ปล.ผมเคยได้รับรางวัลแล้วครับ 

ไม่มีปัญหาครับ แค่เปลี่ยนตาราง lookup ครับ

ขอบคุณมากครับ