ผมสร้างฟอร์มพิมพ์ผล Lab มา ตอนสั่งพิมพ์หน้า Preview มีข้อมูลดั่งรูปครับ แต่เวลาพิมพ์ออกมากลับเป็นหน้ากระดาษเปล่า ไม่ทราบว่าเป็นที่ฟอร์มหรือไม่ครับ

FORM-OPD-GUIDE-1

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

จากรูปไม่ทราบว่าเป็นที่อะรัยครับ เกิดจากโค๊ตรายงาน หรืออย่างอื่น ขอคำแนะนำด้วยครับ
hos v.3.58.1.23
select a.*
,if(fbs1 between 70 and 130
and fbs2 between 70 and 130,"X"," ") "OK"
from (select pt.hn,concat(pt.pname," ",pt.fname," ",pt.lname) as name,v.age_y,address(pt.hn) address,cm.clinic
,cast(getwordnum(group_concat(fbs order by s.vn desc),1) as decimal) fbs1
,cast(getwordnum(group_concat(fbs order by s.vn desc),2) as decimal) fbs2
,group_concat(ce2be(s.vstdate) order by s.vn desc) date
from (select hn,group_concat(clinic order by clinic) clinic
from clinicmember
where clinic in (001,002)
group by hn) cm
left join patient pt on cm.hn=pt.hn
left join opdscreen s on pt.hn=s.hn
left join thaiaddress t on t.chwpart=pt.chwpart and t.amppart=pt.amppart
left join vn_stat v on v.hn=cm.hn
where s.vstdate between "2015-01-01" and "2015-03-31"
and s.bps>0
and cm.clinic="001" and pt.chwpart="15" and pt.amppart="06"
group by hn order by pt.chwpart,pt.amppart,pt.tmbpart,cast(pt.moopart as signed)) a
where fbs1 between 70 and 130
and fbs2 between 70 and 130

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

ทำอย่างไร ตรงไหนครับ อ.กอล์ฟ ขขคำแนะนำด้วยครับ 

ปัญหามีอยู่ว่าเวลาออกใบรับรองแพทย์ผู้ป่วยใน พอกดปุ่มพิมพ์ พอพิมพ์ออกมาแล้วปรากฎว่าพิมพ์ผิด พิมพ์ตกไปบ้างเลยจะเข้าไปแก้ไขแล้วพิมพ์ใหม่ แต่สังเกตุเห็นว่าเลข Cert ID ของคนไข้คนเดิมจะเปลี่ยนไป มีวิธีทำให้ไม่เปลี่ยนหรือจะสามารถแก้ไขได้จากตรงไหนบ้างครับ ขอคำแนะนำด้วยครับ 

อ.กอล์ฟ ผมเพิ่มโค้ดแบบนี้อ่ะครับ ถูกมั้ยครับ แต่อันที่ 2 ฉีดยา id ไม่ขึ้นครับ
{Unit Script;
var wd:tclientdataset;

Procedure Main;
begin
   if (GetGlobalValue('CURRENT_DEPCODE')='027')  or (GetGlobalValue('CURRENT_DEPCODE')='013')
     begin
       wd:=tclientdataset.create(nil);
       wd.data:=hosxp_getdataset('select * from ovst where vn="'+GetGlobalValue('VN')+'"');
       if wd.recordcount>0 then
          begin
              showmessage('Hospital Queue : '+wd.fieldbyname('oqueue').asstring+chr(10)+chr(10)
              +' Queue '+getsqldata('select department from kskdepartment where depcode="'+wd.fieldbyname('main_dep').asstring+'"')+' : '+wd.fieldbyname('main_dep_queue').asstring);
          end;
     end;
end;

end.}

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",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 ("412") 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 ("412") ')>0 then
       begin
       sdTDate:=FormatDatetime('dd/mmm/eeee',dTDate);
       showmessage('[ ¼Ùé»èÇÂà¤Â©Õ´ÇѤ«Õ¹ºÒ´·ÐÂÑ¡ÁÒáÅéÇ àÁ×èÍÇѹ·Õè '+sdTDate+' ]');
       end;
   end;

   end;

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","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 ("224") 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 ("224") ')>0 then
       begin
       sdTDate:=FormatDatetime('dd/mmm/eeee',dTDate);
       showmessage('[ ¼Ùé»èÇÂà¤Âä´éÃѺ¡ÒéմÂÒ ID àÁ×èÍÇѹ·Õè '+sdTDate+' ]');
       end;
   end;

end;

ใช้ sys_vn_pre_script ครับ
แต่เงื่อนไขผมจับจากหัตถการที่ระบบห้องฉุกเฉินที่ตั้งชื่อเป็น dT IM เข็ม 3 แบบนี้ครับ ถ้าไม่ได้ใช้แบบนี้ก็คงต้องคิดคำสั่งแบบนี้ในการตรวจสอบการฉีด dT

ครับผม อืม..ผมขอเอาคำสั่งมาศึกษาดูได้มั้ยครับพี่ ผมไม่เคยทำมาก่อนเลยอ่ะครับ ยังไม่มีความรู้เลย แล้วการใช้ sys_vn_pre_script มีขั้นตอนหรือวิธีการทำอย่างไรครับ ขอคำแนะนำด้วยครับ 

วัคซินอะไรกับวัคซินอะไรครับ

บาดทะยัก กับ verorab ครับพี่เกื้อ 

เอาไปไว้ในตาราง ptnote สิครับ  ทำ SQL ไป  Insert  into ptnote where hn in xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ขอขั้นตอนแบบละเอียดนิดนึงน่ะครับพี่ พอดียังไม่เคยทำเลยน่ะครับ 

อ้างจาก: bbbas ที่ ตุลาคม 14, 2014, 16:12:22 PM

อ้างจาก: เกื้อกูล ครับ.. ที่ ตุลาคม 14, 2014, 16:08:02 PM

ทำไมต้องมีครับ..งง  เพื่ออะไรครับ

ผมก็ไม่ทราบเหมือนกันครับ เจ้าหน้าที่การเงินขอมาครับ

ตอบการเงินไปว่า... พื้นที่ช่องนั้น สำหรับ ชื่อค่าบริการและรหัสรายการ ในมาตรฐานใบเสร็จรับเงิน มูลค่าทางการเงิน ต้องบันทึกในพื้นที่ช่อง เบิกได้ และช่องเบิกไม่ได้เท่านั้น  มูลค่ารวมต่อ หมวดค่ารักษา หากต้องการให้พิมพ์ใบแสดงรายละเอียดประกอบการเบิกจ่าย  ไม่ควรอย่างย่ิงที่จะนำข้อมูล ไปเพิ่มในพื้นที่ชื่อรายการค่ารักษา  ครับ... ตอบไปแบบนี้นะครับ...

ครับผม.....

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

ลอง.... ดูตรงนี้ครับ..หรือไม่ก็ใช้ Memo+Variable

ยังไงครับพี่ ขออธิบายแบบละเอียดอีกนิดน่ะครับ ว่าต้องทำอย่างไร พอดีไม่ค่อยเก่งเรื่อง report ครับ 

ได้แล้วครับ 

ลองดูครับ

ขอลองก่อนน่ะครับ ได้ผลประการใดจะแจ้งให้ทราบน่ะครับ ขอบคุณครับ 

ดูที่ anc_lab  กับ labour_lab ครับ

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

ผมก็เจอเหมือนกัน 

ต้องการปิดหน้าจอนี้ครับต้องตั้งค่าตรงไหนครับ

where update_datetime between "2014-05-28 00:00:00" and "2014-05-28 23:00:00"

ได้แล้วครับ ขอบคุณครับ

ผมคียืรายการชิ้นเนื้อแล้วพอกดปุ่มบันทึกขึ้น error ดังรูป ต้องแก้ไขอย่างไรครับ

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

จากรูปที่ 1 ถ้าจะเพิ่มข้อมูลในตาราง anc_lab ดังรูป ตรงช่อง anc_lab_code สามารถตั้งเองได้เลยใช่มั้ยครับ หรือต้อง link กับตารางอื่นด้วยครับ
รูปที่ 2 ผมมีปัญหา คือ ในรายงานจะดึงข้อมูล lot ที่มาครั้งล่าสุด มาออกรายงานเสมอ เช่น ผู้ป่วยเมื่อสัปดาห์ที่แล้ว มารับบริการ ได้รับวัคซีนลำดับที่ 2 k5146-1
พอดึงรายงานก็เลือกวันที่เมื่อสัปดาห์ก่อน แต่เลข lot กลับเป็นลำดับที่ 1 คือ k5116 ขอคำแนะนำด้วยครับ

จากรูปปุ่ม UE ในหน้ารายงานผลมีไว้ทำอะไรครับ และมีวิธีการใช้งานอย่างไรครับ ขอคำแนะนำด้วยครับ

อ้างจาก: bbbas ที่ กุมภาพันธ์ 27, 2014, 12:00:06 PM

ได้แล้วครับ..ลองตรวจสอบดูในตาราง ipt มีอยู่ 1 รายการตั้งแต่ปี 52 ไม่มีวันที่ ใน dchdate ครับ ก็เลยใส่ไป แล้วทำการย้ายได้ (แต่ทำไมเคสก่อนหน้าถึงไม่เป็น ถึงเป็นแค่เคสนี้เคสเดียว งง..)

------------------------------------------------------------------

ถ้าถาม ป๋า jdadmin1 น่าจะบอกว่ามันเป็น กรรม ครับ อย่าคิดมาก 

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

ดัน ๆๆๆ ครับ 

สอบถามครับ จากรูปที่ 1 มีการสั่งจ่ายยา ors 5 g ในวันที่ 20 ไปแล้ว แต่ในหน้า profile sheet ทำไมตัวเลขถึงไม่ขึ้น ดังรูปที่ 2 ครับ (ต้องกด recheck ถึงจะขึ้น จะแก้ไขอย่างไรให้ตัวเลขขึ้นโดยที่ไม่ต้องกด recheck ครับ