แสดงกระทู้

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

หน้า: 1 [2] 3 4 ... 70
51
ลองใช้ Variable ครับ คำสั่งตามนี้ครับ

Value := ReplaceStr(GetSQLSubQueryData('select plain_text from ptnote where hn="'+DBPipeline['hn']+'" '),'''',' ');

ปล. อย่าลืมใช้ wordwrap นะครับ

52
Report Exchange / Re: รายงานผลแล็บ
« เมื่อ: กันยายน 12, 2016, 08:48:15 AM »
ครับ

55
ลองติ๊กถูกออกตรง แสดงเฉพาะเด็กที่ยังไม่ถูกจำหน่าย แล้วลองค้นหาชื่อใหม่อีกครั้งครับ

56
Report Exchange / Re: รายงานผลแล็บ
« เมื่อ: กันยายน 06, 2016, 15:52:56 PM »
เคยทำไว้ประมาณนี้ครับ

57
Development / Re: ปุ่ม HOME>2 WEEK กับ ปุ่ม HOME RM F11 ใช้เพื่อ.......
« เมื่อ: กันยายน 01, 2016, 15:34:26 PM »
ข่าวร้ายคือบันทึกแล้วแก้ไขไม่ได้ครับ หาใบสั่งยาใบนี้ไม่เจอครับ.... :'( :'( :'(

58
มีคำสั่งให้ทดสอบมั้ยครับ

59
select i.admdoctor,d.name,avg(admdate) as avgdate from ipt i
left outer join an_stat a on a.an=i.an
left outer join doctor d on d.code=i.admdoctor
where i.dchdate between "2015-10-01" and "2016-07-31"
group by i.admdoctor

60
select i.admdoctor,avg(admdate) as avgdate from ipt i
left outer join an_stat a on a.an=i.an
where i.dchdate between "2015-10-01" and "2016-07-31"
group by i.admdoctor

61
if ((DBPipeline['bps']>0) and (DBPipeline['bps']<130) and (DBPipeline['bpd']>0) and (DBPipeline['bpd']<85)) then
begin
   Value:='ความดันโลหิตปกติ';
end
else
   if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=130) and (DBPipeline['bps']<140))
   or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=85) and (DBPipeline['bps']<90))) then
   begin
      Value:='ความดันโลหิตสูงเล็กน้อย';
   end
   else
      if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=140))
      or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=90))) then
      begin
         Value:='ความดันโลหิตสูง';
      end;
   end;
end;

62
อยู่ใน folder HOSxP ที่ติดตั้งไปครับ

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

procedure GlobalOnCreate;
begin
  GetDateRangeDialog(date1, date2);
  bdate := Formatdatetime('yyyy-mm-dd',date1);
  edate := Formatdatetime('yyyy-mm-dd',date2);
 
  sp :=GetPickupList('select "·Ø¡â»Ãá¡ÃÁ" union select  name from lansaka_risk_program_head ');
  if sp<>'·Ø¡â»Ãá¡ÃÁ' then
    begin
      sp1:=GetSQLStringData('select id from lansaka_risk_program_head where name="'+sp+'" ');
    end;

 

  if sp='·Ø¡â»Ãá¡ÃÁ' then
    begin
      ChangeReportSQL('select risk_sum_dep,risk_id,risk_date,risk_time,risk_event,risk_level,login_name,risk_safety,risk_program_head,risk_program_detail '+
      ' from lansaka_risk_head  '+
      ' where risk_date between "'+bdate+'" and "'+edate+'" '+
      ' and risk_level in  ("1","2","3","4","A","B","C","D","E","F","G","H","I") '+
      ' order by risk_level desc ');
    end;
   
  if sp<>'·Ø¡â»Ãá¡ÃÁ' then
    begin
      ChangeReportSQL('select risk_sum_dep,risk_id,risk_date,risk_time,risk_event,risk_level,login_name,risk_safety,risk_program_head,risk_program_detail '+
      ' from lansaka_risk_head  '+
      ' where risk_date between "'+bdate+'" and "'+edate+'" '+
      ' and risk_level in  ("1","2","3","4","A","B","C","D","E","F","G","H","I") '+
      ' and risk_program_head="'+sp1+'" '+
      ' order by risk_level desc ');
    end;
 

end;

64
ตรวจสอบหัตถการในตาราง dttm ว่า field active_status="N" หรือไม่ครับ

65
ต้องมีการบันทึกข้อมูลในบัญชีเชิงรุก บช 2,3,4,5,6 ครับ

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

67
ถ้าใช้งานจากปุ่ม BP ลบได้นะครับ ctrl+delete ครับ
เห็นด้วยที่ระบบทันตกรรมควรมีปุ่ม BP เช่นเดียวกับจุดซักประวัติครับ

68
ลองใช้ group_concat ครับ

69
+'and o.spclty in ('+c_name+')  '

70
ตรวจสอบตาราง person_vaccine ว่ามีรหัสส่งออก 815 หรือยังครับ
การบันทึกข้อมูลถ้าเอาง่ายๆก็ใช้ระบบงาน one stop service บันทึก Dx Rx หัตถการ แล้วก็บันทึกรหัส vaccine ที่ tab vaccine ครับ

71
;D ;D ;D
บอกแพทย์ไปเลยครับ ปีงบ 2559 แพทย์ได้ใช้ตรงนี้แน่ ๆ ซ้อมคีย์ไว้รอได้เลยครับ
 ;D ;D ;D
ถ้าจะไม่ทำตามแน่ๆละครับ อิอิ

72
ตอนนี้ยังไม่ได้ครับ....ว่าแต่ทำไมถึงไม่อยากเห็นละครับ

73
ถ้าไฟล์ scan ใหญ่ขนาดนี้ผมว่าน่าจะลองแยกเป็น image server น่าจะดีกว่า+บริหารจัดการง่ายกว่านะครับ

74
ตาราง patient_opd_scan เป็น InnoDB หรือ MyISAM ครับ

75
select * from rcpt_print_detail where paidst="04"

76
ต้องลอง trace sql จังหวะที่กด remed ว่าติดปัญหาที่คำสั่งอะไรครับ

77
หลังชื่อยา folic มีตัว * ด้วยเหรอครับ

78
Report Exchange / Re: ขอฟอร์ม IPD-RENT-CARD-1 คับ
« เมื่อ: เมษายน 20, 2016, 13:27:01 PM »
ลองทดสอบดูครับ

79
ผมลองทำตามใน v. 3.59.3.31 remed ได้ปกติครับ
ลอง restart เครื่องดูก่อนครับเผื่อได้

80
1. append จากปุ่มสายฟ้าครับ
2. ตรวจสอบว่า run ตัว pdf creator ไว้แล้วหรือยังครับ

81
ตั้งค่า timeout ใน my.cnf ไว้เท่าไรครับ

82
ได้แยก image server มั้ยครับ

84
ถ้ากำลังนอนอยู่ก็คือคนที่ยังไม่ d/c คงทำให้เลือกช่วงวันที่ไม่ได้ครับ แต่ถ้าเป็นตามภาพหาได้ตามช่วงวันที่ครับ

85
select d.name,i.xray_items_name,count(x.vn) as cc
from xray_report x
left outer join doctor d on d.code=x.request_doctor
left outer join xray_items i on i.xray_items_code=x.xray_items_code
where x.request_date between "2016-03-01" and "2016-03-31"
group by x.request_doctor,x.xray_items_code
order by x.request_doctor,cc desc

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

88
รายละเอียดแต่ละหัวข้อครับ  ;) ;)

ขอเพิ่มที่หน้าจอหลักตามภาพครับ
1. ชนิดความคลาดเคลื่อน
2. หัวข้อย่อยของชนิดความคลาดเคลื่อน
3. หน่วยงานที่พบความคลาดเคลื่อน

89
OPD

select concat(b.name,' ',strength) as drugname,generic_name,g.pharmacology_group_name,unitcost,sum(qty),units,
b.unitprice ,sum(qty*b.unitprice) as total,f.cur_dep,department
from opitemrece a
left outer join drugitems b on a.icode=b.icode
left outer join ovst f  on f.vn = a.vn
left outer join kskdepartment c on f.cur_dep=c.depcode
left outer join pharmacology_group g on g.pharmacology_group_id=b.pharmacology_group1
where a.icode like'1%'
and qty>=1
and a.rxdate between '2016-03-10'  and '2016-03-12' and a.an is null
group by b.name,strength,units,b.unitprice,a.dep_code,department
order by f.cur_dep,b.name


IPD

select concat(b.name,' ',strength) as drugname,generic_name,g.pharmacology_group_name,unitcost,sum(qty),units,
b.unitprice ,sum(qty*b.unitprice) as total,f.cur_dep,department
from opitemrece a
left outer join drugitems b on a.icode=b.icode
left outer join ovst f  on f.vn = a.vn
left outer join kskdepartment c on f.cur_dep=c.depcode
left outer join pharmacology_group g on g.pharmacology_group_id=b.pharmacology_group1
where a.icode like'1%'
and qty>=1
and a.rxdate between '2016-03-10'  and '2016-03-12' and a.an<>""
group by b.icode
order by f.cur_dep,b.name

90
Med error อยากให้เพิ่มการบันทึกตามภาพด้วยครับ

91
ขอดูหน้าจอทะเบียนเวชภัณฑ์ยาที่บันทึกกลุ่มยาครับ

92
select concat(b.name,' ',strength) as drugname,generic_name,g.pharmacology_group_name,unitcost,sum(qty),units,
b.unitprice ,sum(qty*b.unitprice) as total,f.cur_dep,department
from opitemrece a
left outer join drugitems b on a.icode=b.icode
left outer join ovst f  on f.vn = a.vn
left outer join kskdepartment c on f.cur_dep=c.depcode
left outer join pharmacology_group g on g.pharmacology_group_id=b.pharmacology_group1
where a.icode like'1%'
and qty>=1
and f.vstdate between '2016-03-12'  and '2016-03-12'
group by b.name,strength,units,b.unitprice,a.dep_code,department
order by f.cur_dep,b.name

93
Report Exchange / Re: สอบถามวิธีแก้ แบบฟอร์มใบเสร็จ
« เมื่อ: มีนาคม 11, 2016, 09:28:23 AM »
รบกวนส่งแบบฟอร์มมาทดสอบหน่อยครับ

94
Report Exchange / Re: สอบถามวิธีแก้ แบบฟอร์มใบเสร็จ
« เมื่อ: มีนาคม 10, 2016, 11:53:24 AM »
ลองแบบนี้ครับ
Value := FormatThaiDate('d mmmm yyyy',Report.PrintDateTime);

95
ลองติ๊กตรงที่วงไว้แล้วลองส่งออกข้อมูลอีกทีครับ

96
ใช้ตัวส่งออกข้อมูล 43 แฟ้มตัวไหนครับ

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

98
รบกวนช่วยอธิบายหรือวิธีการแก้ไข ที่ทำให้แก้ไขระบบการเงินไม่ได้ ด้วยครับ

99
ไม่ควรลบครับ ถ้าไม่ใช้แล้วก็เลือกติ๊กยกเลิกการใช้งาน เพียงเท่านี้ user ก็ค้นไม่เจอรายการที่ยกเลิกแล้วครับ

100
แจ้งปัญหา / ขอความช่วยเหลือ / Re: error ksklog
« เมื่อ: มีนาคม 03, 2016, 20:06:13 PM »
ลอง repair table ksklog ผ่าน navicat ครับ

หน้า: 1 [2] 3 4 ... 70