แสดงกระทู้

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

หน้า: 1 [2] 3
51
Admin tools / Re: มี HealthCheck50Book_new
« เมื่อ: มีนาคม 10, 2011, 10:20:46 AM »
ขอบคุณมากนะครับ

52
นอกเรื่อง / Re: แม่.......
« เมื่อ: มีนาคม 02, 2011, 10:09:18 AM »
ดูรูปแล้ว ดูไฟล์นำเสนอแล้ว โทรหาพ่อ-แม่เราดีกว่า....ขอบคุณมากนะครับที่เตือนให้ผมยังรู้ว่ามีใครห่วงใยเราอยู่ข้างหลัง เวลานี้งานเยอะมาก จนคิดว่าไม่มีใครแล้ว

53
นอกเรื่อง / Re: HOSxP กับ Valentine's Day
« เมื่อ: กุมภาพันธ์ 14, 2011, 08:49:03 AM »
เดินมาถึงห้องทำงานพอดี ก็มีคนทักว่า hosxp หน้าจอมีแต่ดอกกุหลาบ เต็มไปหมด คิดว่าไวรัสวาเลนไทน์ซะแล้ว...(โล่งอก).. ;D ;D ;D ;D ;D ;D ;D ;D

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

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

56
ไปที่บัญชี 1 ครับ แล้วไปที่แท็บค้นหากลุ่มเป้าหมาย ฝั่งขวามือ แล้วไปเปิด เมนู Tools ไปเลือกที่ SQL Trace แล้วให้ไปใส่ช่วงอายุ 0 - 5 ปี แล้วกลับไปดูที่ Sql Trace จะมีคำสั่ง Sql เกิดขึ้นลองหาดูครับว่าน่าจะไปบรรทัดใด

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

58
HOSxP PCU / Re: OPPP2010_2554 ออกใหม่อีกแล้วครับ
« เมื่อ: ธันวาคม 29, 2010, 09:14:19 AM »
ขอบคุณนะครับ

59
HOSxP PCU / Re: er_oper_code7หลัก For Hosxp_Pcu ตัวใหม่ครับ
« เมื่อ: ธันวาคม 20, 2010, 11:50:13 AM »
ขอบคุณครับ

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

62
ขอบคุณมากครับ ขอร่วมทดสอบด้วยครับ

63
Delphi / Pascal / Re: [NOW!]Patient2Person V5 by James@NakhonSi Team
« เมื่อ: ธันวาคม 10, 2010, 11:08:47 AM »
ขอบคุณมากครับ ขอเป็นกำลังใจให้แล้วกันในการพัฒนานะครับ ;D ;D ;D

64
เป็นของผุ้ป่วยในไม่ใช่เหรอครับ ผมเข้าไป copy จาก Script report desing น่าจะถูกตัวแล้วครับชื่อ SYSTEM-IPD-PTTYPE ต้องการให้เลือกว่าจะสรุปเป็นตึกผู้ป่วยหญิงหรือชายได้ด้วย และทั้งสองที่ครับ

65
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.


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

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

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

68
ฟอร์มโรงพยาบาลหนองบัวแดง ใช้ Zebra tlp2844 ห้องจ่ายยาผู้ป่วยนอกนะครับ ลองปรับใช้ดูนะครับ

69
รับทราบครับ

70
นอกเรื่อง / Re: ออกแบบบ้าน ง่าย ด้วย amikasa
« เมื่อ: พฤศจิกายน 29, 2010, 13:52:13 PM »
ต้องติดตั้งโปรแกมอะไรเพิ่มหรือเปล่า เข้าใช้งานไม่ได้
ผมโหลด safari มาเปิดใช้งานได้ปกติครับผม

71
นอกเรื่อง / Re: ออกแบบบ้าน ง่าย ด้วย amikasa
« เมื่อ: พฤศจิกายน 29, 2010, 11:14:00 AM »
อยากมีเหมือนกันครับ .... แต่เงินเดือนแค่นี้จะได้สร้างชาตินี้หรือเปล่า...คงจะได้แต่ออกแบบตามโปรแกรมล่ะครับ... ??? ??? ??? ??? ???

72
Delphi / Pascal / Re: Now-Patient2Person V4 by James@NakhonSi Team
« เมื่อ: พฤศจิกายน 28, 2010, 14:53:12 PM »
ขอบคุณมากนะครับ.... :) :) :)

73
Delphi / Pascal / Re: HOSxP-Mini Source Code สำหรับผู้สนใจนำไปต่อยอด
« เมื่อ: พฤศจิกายน 23, 2010, 11:49:08 AM »
สิ่งที่ทำแล้วสบายใจ ไม่ทำให้คนอื่นเดือดร้อน  ก็ทำต่อไปเถอะครับ ...... ยินดีด้วยที่จะมีกิจการเป็นของตัวเองครับ ;D ;D ;D ;D ;D

74
นอกเรื่อง / Re: ขอวิธีแก้ไข การlogin hosxp.net
« เมื่อ: พฤศจิกายน 22, 2010, 11:29:28 AM »
ของผมก็ได้ตลอดนะครับ  หรือว่าเป็นการตั้งค่าเริ่มต้นตั้งแต่สมัครหรือเปล่า

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

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

77
นอกเรื่อง / Re: อาลัยกับการจากไปของ Admin HOSxP
« เมื่อ: พฤศจิกายน 05, 2010, 02:52:16 AM »
ขอแสดงความเสียใจด้วยนะครับ

78
HOSxP PCU / Re: รบกวนสอบถามเรื่องรหัส provis_code ของสอ.
« เมื่อ: พฤศจิกายน 02, 2010, 14:01:13 PM »
ถ้าอ่านตาม คู่มือ ที่แจ้งว่า 00000 หมายถึง หน่วยบริการปฐมภูมินอกรพ. ผมว่าก็น่าจะใช้ ตามนี้ได้นะครับ เพราะสอ.ไม่ได้มีคลินิกแยกมากมายเหมือน รพ.
ของผมทำให้ สอ.ที่รับผิดชอบก้ตามนี้ล่ะครับ ส่วนโรงพยาบาลก็ตามเอกสารอ้างอิงที่ระบุคลินิกต่างๆ

79
นอกเรื่อง / Re: Navicat for MySQL 9
« เมื่อ: ตุลาคม 05, 2010, 09:25:00 AM »
Thank you หลายๆๆๆ ครับ

80
ใน HOSXP PCU ทำได้ปล่าวครับ
ไม่เห็นมีใน Hosxp PCU ครับ ต้องลง Hosxp เวอร์ชั่นโรงพยาบาล แล้วตั้งค่า Datbase และค่า IP ไปที่ฐานข้อมูล Hosxp_pcu แล้วจัดการประกาศข่าวตามต้องการที่ Tools --> System Setting --> ระบบประกาศข่าว 
แล้วตกแต่งตามใจชอบได้เลยครับ   ;) ;) ;)

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

82
ขอบคุณคร๊าบบบบบบบบบบ

83
HOSxP PCU / Re: รวมรายงาน HOSxP PCU ที่ปรับปรุงแล้ว
« เมื่อ: กันยายน 13, 2010, 11:45:16 AM »
ขอบคุณหลายๆๆๆเด้อ

84
ขอบคุณครับ

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

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

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

86
ส่วนผมทดสอบ  HOSxP PCU 3.53.9.1 อ่าน Smart Card เทียบกับ NHSO UCSearch Cleint 1.4.2 
ใน Hosxp_Pcu ไม่แสดงเพศ ตำบล อำเภอ จังหวัด คงน่าจะคล้ายๆกับหลายท่านที่ทดสอบกันครับ

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

88
ที่โรงพยาบาลผม ก็เคยมีเหมือนกัน ก็เลยแก้ปัญหานี้ตรงโดยที่พิมพ์ในสังยา remed จะมีวันที่จ่ายยา (rxdate) ระบุด้วยว่าเป็นการนำข้อมูลการจ่ายยาวันไหนมาใช้งาน.....แล้วก็ให้แพทย์เล็กะแพทย์ใหญ่ตรงลงกันเอาเองมาใครผิด (ผมรอดแล้ว......)       ;D ;D ;D

89
นอกเรื่อง / Re: โปรแกรม NCD Primary 2010
« เมื่อ: สิงหาคม 31, 2010, 16:26:10 PM »
ขอบคุณครับ มีโปรแกรมใหม่มาทดสอบอีกแล้ว

90
ขอร่วมทดสอบด้วยคนนะครับ จะได้นำไปบอกข่าวดีที่ สอ.อีก ขอบคุณครับ

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

92
นอกเรื่อง / Re: ประกาศผล Thailand ICT Awards หมวด E health Applications
« เมื่อ: สิงหาคม 24, 2010, 11:52:29 AM »
ขอแสดงความยินดีด้วยคนครับ..........ถ้าได้รางวัลที่ 1 ก็จะดีมากกว่านี้นะครับ.... :) :) :) ;D ;D ;D

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

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

94
มีญาติอยู่ที่แจ้ห่มเหมือนกันคับ บรรยากาศดีมาสำหรับคนที่ชอบธรรมชาติ (ไปมาแล้วคับ)  อยากไปจังเลยถ้าได้เงินเดือนมากกว่านี้

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

96
ได้ตั้งค่า change connector แล้วยังครับ ตัวอย่างของผม

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

98
ยังไม่มีที่เว็บสำนักระบาด  พอดีมีปัญหาเลยโทรติดต่อเจ้าหน้าที่เลยทราบว่ามีอัพเดพมากกว่าที่เว็บระบาด อยู่ที่ สสจ.ประจวบฯครับ **** ในวงกลมคือส่วนที่เพิ่มเติมจาก SurveillanceV3 (05082553) ***** อาจต้องใช้เครื่องแรงหน่อยในการทดสอบนะครับ (ขอบคุณ k.ภาคภูมิที่ให้ข้อมูลครับ)

ตามลิ้งค์ http://www.pcko.moph.go.th/download/SurveillanceV3%20(17082553)%20.exe

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

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

หน้า: 1 [2] 3