BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: take ที่ มีนาคม 10, 2010, 09:53:05 AM

หัวข้อ: ขอคำแนะนำ เรื่อง รง504 ครับ
เริ่มหัวข้อโดย: take ที่ มีนาคม 10, 2010, 09:53:05 AM
จาก ผู้ดูแลระบบ โรงพยาบาลคำชะอี จ.มุกดาหาร ครับ
อยากจะเรียนถามพี่ๆ เรื่อง รง504ครับ
คือเวลาที่ผมดึงข้อมูล รง504 ออกมาในรูปแบบ excel ครับ
ใน ส่วนของข้อมูลคนไข้ UC ในเขตและ นอกเขต ตรง corlum  ที่ชื่อ mon, mon1
ข้อมูลจะเป็น 0  หมดเลยครับ ไม่ทราบว่าจะต้องแก้ยังไงบ้างครับ
หรือว่าต้องไปปรับตรงไหนบ้างครับ
หัวข้อ: Re: ขอคำแนะนำ เรื่อง รง504 ครับ
เริ่มหัวข้อโดย: howtodo ที่ มีนาคม 10, 2010, 10:44:55 AM
 function GetICDRangeCount_UC30_InRegion(icd1,icd2:string;bd1,bd2:TDateTime):integer;
begin
  result:=0;
  try
    result:=getsqldata('select count(v.hn) as cc from vn_stat v,ovstdiag o where v.vstdate between "'+formatdatetime('yyyy-mm-dd',bd1)+'" '+
    ' and "'+formatdatetime('yyyy-mm-dd',bd2)+'" and v.vn=o.vn and o.icd10 between "'+icd1+'" and "'+icd2+'" and v.pcode in ('+
      uc30_pcode+') and v.pttype_in_region="Y" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
 
  end;
end;

fcds['mon1']:=fcds['mon1']+GetICDRangeCount_UC30_InRegion(fcds3['code1'],fcds3['code2'],d1,d2);


mon ไม่เห็นมีกำหนด
ลองส่ง
report ออกมาดูหรือ script
หัวข้อ: Re: ขอคำแนะนำ เรื่อง รง504 ครับ
เริ่มหัวข้อโดย: take ที่ มีนาคม 12, 2010, 09:57:00 AM
ขอบคุณมากครับ แต่ต้องแก้ code ที่ว่านี้ที่ไหนครับ
รบกวนช่วยบอกขั้นตอนให้หน่อยครับ