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

เดินมาถึงห้องทำงานพอดี ก็มีคนทักว่า hosxp หน้าจอมีแต่ดอกกุหลาบ เต็มไปหมด คิดว่าไวรัสวาเลนไทน์ซะแล้ว...(โล่งอก)..

ขอบคุณมากครับ สุดยอดจริงๆๆๆๆ

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

ขอบคุณครับ

ขอบคุณครับ ได้รู้การพัฒนาของ linux อีกขั้นนึงแล้ว

ขอบคุณมากครับ ขอเป็นกำลังใจให้แล้วกันในการพัฒนานะครับ

unit MyIPDReport;

var uc30_pcode : string;
  uc_pcode : string;
  foreign_pcode : string;
  other_pcode : string;
  icdx1,icdx2,ix2:string;
  fonlineid : string;

function getsqlsubquerydatax(sql:string):string;
begin
  result:='';
  zquery.close;
  zquery.sql.text:=sql;
  zquery.open;
  zquery.first;
    while not zquery.eof do
    begin
       if result='' then result:=''''+zquery.fields[0].asstring+'''' else
       result:=result+','''+zquery.fields[0].asstring+'''';

       zquery.next;
    end;
  zquery.close;
    if result='' then result:='''''';

end;

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;

function GetICDRangeCount_UC30_OutRegion(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="N" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

function GetICDRangeCount_UC_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 ('+
      uc_pcode+') and v.pttype_in_region="Y" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

function GetICDRangeCount_UC_OutRegion(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 ('+
      uc_pcode+') and v.pttype_in_region="N" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
 
end;

function GetICDRangeCount_Other(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 ('+
      other_pcode+')  ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

function GetICDRangeCount_Foreign(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 ('+
      foreign_pcode+')  ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

function GetICDRangeCount_Distinct_HN(icd1,icd2:string;bd1,bd2:TDateTime):integer;
begin
  result:=0;
  try
    result:=getsqldata('select count(distinct 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+'" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

function GetICDRangeCount_HN(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+'" ');
  except
    on e:exception do
    begin
      showmessage(e.message);
    end;
  end;
end;

procedure ProcessReport(n1,n2:string;i,i1,i2:integer;td1,td2:tdatetime);
begin
   setstatuslabel('Processing... '+n2);
   fcds.insert;
   fcds['id']:=fonlineid;
   fcds['reportname']:='CUSTOM-RGx2';
   
   fcds['name1']:=n1;

   fcds['num1']:=i;
   fcds['name2']:=n2;
   
   
   fcds['mon1']:=i1;
   fcds['mon2']:=i2;
   
   
   
 
   

   fcds['date1']:=td1;
   fcds['date2']:=td2;
 
   fcds.post;
 

   fcds.datarequest('select * from tempreport where id = '''+fonlineid+''' ');
   applyupdate_fcds();


end;


procedure main;
var d1,d2:tdatetime;
people_distinct_count1 : integer;
people_count1 : integer;
ds1,ds2:string;
pttype_list1 : string;
pttype,pttype_name:string;
hospcode_list:string;
money1:currency;
i:integer;



 

begin

   if not getdaterange() then exit;
   d1:=date_result1();
   d2:=date_result2();
   
   fonlineid:=report_value(1);
   
   icdx1:='J00';
   icdx2:='J99';
   
   
  // if not inputquery('ICD10 begin code ','code',icdx1) then exit;
  // if not inputquery('ICD10 end code ','code',icdx2) then exit;
   
  // ix2:=icdx2;
  // icdx2:=icdx2+'99';
   
   setstatuslabel('Processing...');
   
   
   
   
   uc30_pcode :='"UC"';
   uc_pcode := '"AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ","AK"';
   foreign_pcode := '"AL"';
   other_pcode := getsqlsubquerydata('select pcode from pttype where pcode not in ('+uc30_pcode+','+uc_pcode+','+foreign_pcode+') ');

 

   

  // showmessage(formatdatetime('yyyy-mm-dd',d1)+' - '+
   //  formatdatetime('yyyy-mm-dd',d2));

   ds1:=formatdatetime('yyyy-mm-dd',d1);
   ds2:=formatdatetime('yyyy-mm-dd',d2);


 
   zquery.sql.text:='delete from tempreport where id = '''+fonlineid+''' ';
   zquery.execsql;
   fcds.close;
   fcds.datarequest('select * from tempreport where id = '''+fonlineid+''' ');
   fcds.open;
   
   fcds2.close;
   fcds2.datarequest('select a.pcode,c.name as pttype_name,count(a.an) as pt_count, '+
   ' sum(a.admdate) as admdate_count '+ 
   ' from an_stat a '+
   
   ' left outer join pcode c on c.code = a.pcode '+
   ' where a.dchdate between "'+ds1+'" and "'+ds2+'" '+
   ' group by a.pcode,c.name order by a.pcode ');
   fcds2.open;
   fcds2.first;
   i:=0;
   while not fcds2.eof do
   begin
     i:=i+1;
     setprogressbar(i,fcds2.recordcount);
     processreport(vartostr(fcds2['pcode']),vartostr(fcds2['pttype_name']),i,fcds2['pt_count'],fcds2['admdate_count'],d1,d2);
     fcds2.next;
   end;
   
   
   
   

   
   
   
 
   
   setstatuslabel('Done.');

end;

end.


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

อย่าลืมอีกสักโรงพยาบาลนะครับ อ.MN ขอบคุณมากนะครับ

รับทราบครับ

อยากมีเหมือนกันครับ .... แต่เงินเดือนแค่นี้จะได้สร้างชาตินี้หรือเปล่า...คงจะได้แต่ออกแบบตามโปรแกรมล่ะครับ...

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

ขอบคุณนะครับ.....มาทีหลังได้ หลายปีเลย.....

ขอแสดงความเสียใจด้วยนะครับ

Thank you หลายๆๆๆ ครับ

ขอบคุณมากครับ ได้ข้อมูลนำเสนอผู้บริหารเพิ่มเติมแล้ว

ขอบคุณหลายๆๆๆเด้อ

อ้างจาก: farmonline ที่ สิงหาคม 31, 2010, 10:01:44 AM

เป็นที่ version ของ surveillance ครับตัวใหม่ๆยังไม่ได้ประกาศใช้อย่างเป็นทางการตัวที่ประกาศใช้ตอนนี้เป็น version 25052553 ซึ่งยังไม่มี tool เชื่อมต่อกับ HOSxP ครับ
ลองทดสอบ กับ 26082553 ดูครับ

มีตชคำถามครับ ตอนนี้หน้ากาก เวอร์ชัน Surveillance มีถึง 26082553 หรือยังครับ ถ้ามี   
ขอลิงค์หน่อยครับ เพราะยังใช้ 17082553 อยู่เลยครับ   

ตอนนี้่มีถึงเวอร์ชั่น 010953 แล้วนะครับ
http://www.pcko.moph.go.th/chronic/SurveillanceV3%20(01092553)%20.exe

อย่างนี้ต้องขอลองแล้วครับอาจารย์

ขอบคุณครับ มีโปรแกรมใหม่มาทดสอบอีกแล้ว

ของผมก็เคยเจอ เหมือนกันแค่เปลี่ยน Theam desktop ก็หายแล้วครับ

เชื่อมโยงอย่างไรค่ะ หมายถึงการนำเข้าข้อมูลหรือเปล่า ช่วยอธิบายได้มั้ยค่ะ  ขอบคุณค่ะ

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

ส่วนของ BP น้ำหนัก,ส่วนสูง ผมไม่ได้กำหนดเพิ่มเติม  โปรแกรมคงจะดึงค่าจากตาราง Opdscreen แล้ว เพราะมีข้อมูลเข้ามาอยู่

รายการยาออกอยู่ครับ แต่ของผมเรื่องรายการ lab ยังมีปัญหากับ Lis อยู่ หลังจากที่ Import All ได้ข้อมูลดังต่อไปนี้

รับทราบครับ จะลองทดสอบดูนะครับ ที่ รพ.ข้อมูลยังไม่ไปถึงไหนเลย