แสดงกระทู้

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

หน้า: 1 ... 45 46 [47] 48
2301
แจ้งปัญหา / ขอความช่วยเหลือ / Re: gเรียนสอบถาม อ.mn
« เมื่อ: พฤศจิกายน 17, 2006, 21:02:34 PM »
ที่คุณ armds  ถามหมายถึงค่า parameter ของอะไรครับ

2302
แจ้งปัญหา / ขอความช่วยเหลือ / Re: gเรียนสอบถาม อ.mn
« เมื่อ: พฤศจิกายน 17, 2006, 20:55:09 PM »
ขอบคุณครับ ทำได้แล้วครับโดยใช้ dbrichtext ตามที่ อ.mn แนะนำ
แต่ถ้าจะใช้ variable กับ richtext1 โดยเขียน variable code อ.mn พอจะยกตัวอย่างคำสั่งได้ไหมครับเพื่อที่จะได้เป็นความรู้กับหลายๆคนที่สนใจครับ

2303
แจ้งปัญหา / ขอความช่วยเหลือ / Re: gเรียนสอบถาม อ.mn
« เมื่อ: พฤศจิกายน 17, 2006, 12:42:22 PM »
รูปแบบคำสั่งที่ใช้เป็นแบบไหนครับ
memo1.lines.text??????

2304
แจ้งปัญหา / ขอความช่วยเหลือ / gเรียนสอบถาม อ.mn
« เมื่อ: พฤศจิกายน 17, 2006, 08:41:10 AM »
เกี่ยวกับการใช้ variable กับ richtext1 ได้ เหมือน variable กับ memo1 หรือไม่ครับ
ขอบคุณครับ

2305
แจ้งปัญหา / ขอความช่วยเหลือ / nurse note and discharge note
« เมื่อ: พฤศจิกายน 17, 2006, 02:02:57 AM »
ขอเสนอแนะเพิ่มเติมครับ hosxp 49.11.13
1  เมื่องลงบันทึก nurse note  อยากให้สามารถกลับมา ลบ แก้ไข หรือ เพิ่มเติม ข้อความได้ครับ ตอนนี้ต้องไปแก้ที่ ipd_nurse_note  ซึ่งไม่สะดวกนักครับ

2 จะเรียก discharge note มาทำรายงานแต่ในตาราง ipt_discharge_note จะเก็บข้อมูลเป็น
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Angsana New;}{\f1\fnil\fcharset222 Angsana New;}}
\viewkind4\uc1\pard\lang1033\f0\fs36 vbjbkfbnmdnld;gmn;ldm;lmn;lmfh,;lhfhf;n ,ng\lang1054\f1\par
}
ขอบคุณครับ

2306
แจ้งปัญหา / ขอความช่วยเหลือ / Re: bug hosxp 49.11.13 ??????
« เมื่อ: พฤศจิกายน 16, 2006, 08:17:39 AM »
ใช้ระบบห้องเก็บเงินครับ

2307
แจ้งปัญหา / ขอความช่วยเหลือ / bug hosxp 49.11.13 ??????
« เมื่อ: พฤศจิกายน 16, 2006, 01:56:42 AM »
เรื่องแสดงใบงบค่ารักษาพยาบาลของผู้ป่วยใน กรณีที่เป็นคนไข้เบิกได้ต้นสังกัดเมื่อเรียกเก็บเงินเฉพาะค่าห้องส่วนเกิน ค่าอื่นๆเปลี่ยนเป็นลูกหนี้สิทธิ ก่อนจะเรียกเก็บเงินลองทดสอบเรียกรายงานดังกล่าวปรกติ ข้อมูลในตาราง incith ครบถ้วนแต่เมื่อลองเรียกเก็บค่าส่วนเกินแล้วลองเรียกรายงานใหม่อีกครั้งพบว่ารายงานจะมีแสดงเฉพาะค่าใช้จ่ายส่วนเกินเท่านั้น จึงเข้าไปตรวจสอบขอมูลที่ตาราง incith จะมีแสดงเฉพาะค่าใช้จ่ายส่วนเกินเท่านั้น รายการหมวดค่าอื่นไม่มีทำให้รายงานไม่ถูกต้องครับ ฝาก อ.mn ช่วยตรวจสอบด้วยครับ

2308
แจ้งปัญหา / ขอความช่วยเหลือ / Re: ปัญหา Report browser
« เมื่อ: พฤศจิกายน 15, 2006, 20:35:15 PM »
ผมลองดูแล้วเข้าภาษาไทยแสดงได้ปรกติครับ hosxp v.49.11.13

2309
ส่งให้รพ เลาขวัญ

2310
แจ้งปัญหา / ขอความช่วยเหลือ / hosxp vs lab atomate
« เมื่อ: พฤศจิกายน 12, 2006, 20:33:06 PM »
 :D ตอนนี้ที่รพ.หลวงพ่อเปิ่นกำลังจะเชื่อม hosxp กับ lab ของ บ.lio ซึ่งเดิมทางโรงพยาบาลใช้เครื่องกับน้ำยาอยู่ ตอนแรกเขาจะเก็บเงินค่าเชื่อม หลังจากที่ได้คุยใหม่อีกรอบ ยินดีเชื่อมให้ฟรีครับ คงจะเสร็จประมาณปลายเดือนธันวาคม นี้ ถ้าคืบหน้าอย่างไรจะแจ้งให้ทราบต่อไปครับ

2311
แจ้ง อ.mn ช่วยตรวจสอบการแก้ไขสิทธิการรักษาผ่านระบบห้องการเงินตรงช่องสิทธิการรักษาที่มีรูปกล้องส่องทางไกล  ซึ่งแต่เดิมเคยแก้ไขได้ครับ version นี้ไม่สมารถแก้ไขได้ครับ
ขอบคุณครับ
นาจ

2312
ปัญหาการเก็บเงินรายวันของผู้ป่วยในยังมีปัญหากับรายการที่เบิกไม่ได้ เช่น ค่าห้องส่วนเกิน 200 บาท ซึ่งจะอยุ่ในช่องจ่ายเงินเบิกไม่ได้ แต่คนไข้มีเงินชำระ 100 บาท ลองทำตามที่ อ.mn แนะนำมาไม่ได้ครับ หลังจากที่ออกใบเสร็จรับเงินไปแล้ว ลองเรียกใหม่อีกครั้งโปรแกรมไม่นำค่าที่ยังไม่ได้จ่ายมาให้ด้วยครับ แต่ถ้าเป็นค่ารักษาที่อยู่ในช่องเบิกได้จ่ายเอง ใช้ได้ปรกติครับ
ฝากตรวจสอบให้ด้วยครับ
ขอบคุณครับ
นาจ

2313
ส่งให้ใหม่

2314
ขอบคุณครับ

2315
ส่งให้แล้วนะครับ คราวหน้าถ้าจะแก้ไขก็ให้ backup ก่อนเด้ออ้าย :D

2316
แจ้งปัญหา / ขอความช่วยเหลือ / Re: hosxp v.49.10.30
« เมื่อ: พฤศจิกายน 01, 2006, 09:08:43 AM »
ทำตามที่ อ mn แนะนำ หายแว้วครับ ขอบคุณครับ

2317
ขอปรึกษา อ.mn เรื่องการส่ง รับ refer ผู้ป่วยในที่ยังไม่ได้ทำจำหน่ายแต่มีการส่ง refer มากกว่า 1 ครั้ง พี่หัวหน้าตึกแจ้งว่า ส่งเพื่อ  follow up จึงยังไม่จำหน่าย(ทำไม ไม่ทำจำหน่ายไปเลย)  ซึ่งเวอร์ชันตอนนี้ยังมาสามารถทำได้ครับ

2318
แจ้งปัญหา / ขอความช่วยเหลือ / hosxp v.49.10.30
« เมื่อ: ตุลาคม 31, 2006, 22:31:44 PM »
ลองสั่งรายการยาในระบบผู้ป่วยในยังพบ
System Message
SQL Error: Duplicate entry '490015187' for key 1
แต่จะเป็นกับบาง AN ครับ

2319
แจ้งปัญหา / ขอความช่วยเหลือ / Re: Bug v.49.10.27
« เมื่อ: ตุลาคม 31, 2006, 07:15:21 AM »
กำลังทดสอบให้อยู่ครับ ได้ผลอย่างไรจะแจ้งให้ทราบอีกครั้งหนึ่ง

2320
แจ้งปัญหา / ขอความช่วยเหลือ / Bug v.49.10.27
« เมื่อ: ตุลาคม 30, 2006, 19:58:29 PM »
แจ้งเรื่องของระบบการเงินผู้ป่วยในครับ
กรณีที่มีการชำระเงินค่ารักษาเป็นรายวัน  เช่น วันที่ 29/10/49 คนไข้สิทธิชำระเงินเอง มีค่าห้อง 700 บาท ค่ายา 300 บาท ค่าวัสดุการแพทย์ 50 บาท รวมเป็น 1,050 บาท แต่คนไข้มีเงินไม่พอสามารถจ่ายได้แค่  700 บาท ที่เหลือจึงทำเป็นค้างชำระเอาไว้ 350 บาทหลังจากนั้นจึงสั่งออกใบเสร็จรับเงิน เมื่อเรียกระบบห้องชำระเงินอีกครั้งแล้วใส่ AN คนไข้โปรแกรมจะแสดงเมนู สรุปรายการค่าใช้จ่ายผู้ป่วยในตรง tab สรุปยอดรายวัน ตรงช่องรวมค่าใช้จ่ายและยอดที่ชำระแล้วจะเป็นตัวเลขสีดำและมีค่าเท่ากันคือ 1050 ซึ่งในความเป็นจริงแล้ว ตรงช่องรวมค่าใช้จ่ายและยอดที่ชำระแล้ว ซึ่งรวมถึงช่องรวมยอดเงินทั้งหมด รวมยอดเงินที่ชำระแล้วและรวมยอดเงินที่ค้างชำระ ตรงมุมล่างด้านซ้ายไม่ควรจะเท่ากันเนื่องจากไม่ได้เก็บยอดทั้งหมด ไม่ทราบผมเข้าใจถูกหรือไม่ครับ และถ้าจะเรียกเก็บยอดค้างชำระจากตอนแรกภายในวันเดียวกันเมื่อสั่งออกใบเสร็จรับเงินใบใหม่ ยอดที่ปรากฏจะเป็น 0 ครับทำให้เรียกเก็บยอดที่ค้างชำระไว้ไม่ได้นอกจากจะต้องไปดูที่ทะเบียนที่ค้างชำระจึงจะมากรอกเพื่อเรียกออกใบเสร็จรับเงินได้ ซึ่งไม่ค่อยสะดวกนัก อยากจะเสนอ อ.mn ให้ทำเหมือนกับระบบผู้ป่วยนอกครับที่เวลาค้างโปรแกรมสามารถที่จะแสดงได้ในหน้าของการเงินได้เลยครับ จะทำให้การเรียกเก็บเงินเป็นรายวันง่ายขึ้นครับ
ขอบคุณครับ
นาจ

2321
Development / Re: การคิดค่าบริการส่วนเกินใน 2.49.10.20
« เมื่อ: ตุลาคม 22, 2006, 07:47:23 AM »
แจ่มจริงๆครับ อ.mn

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

2323
เปลี่ยนใจมาใช้ variable ช่วยแทนครับ พร้อมกันนี้ผมได้แนบแฟ้มที่ได้แก้ไขแล้วมาด้วยครับสำหรับท่านที่สนใจจะนำไปใช้
งานนี้ต้องไปทำความรู้จักกับ pascal อีกนานแน่กว่าจะเข้าใจและใช้งานได้ :D

2324
เนื่องจากมีหลายโรงพยาบาลต้องการให้ในบรรทัดสุด้ายของรายงานตัวนี้มียอดสรุปค่าใช้จ่ายทั้งหมด(ยอดรวมเบิกได้กับเบิกไม่ได้) แสดงครับ ผมได้ซึ่งผมได้ลองแก้ไขคำสั่ง pascal script ของอ.mn แต่ก็ยังไม่ได้ครับ ฝาก อ ช่วยตรวจสอบให้ด้วยครับ
ขอบคุณครับ
หมายเหตุ ส่วนที่เป็นอักษรสีแดงเป็นส่วนที่ผมได้แก้ไข ครับ
unit MyIPDReport;

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;

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;
fan:string;
st1:string;
st2:string;
lo:integer;

begin
   //showmessage('à¡ÕèÂǡѺÃÒ§ҹ'+#13+'Custom IN-Patient Summary');

   // test with an 461402487

   fan := '490000097';
   if preset_value(1)='' then
   begin
     if not inputquery('Please enter Admit Number','AN',fan) then exit;
   end else
   begin
     fan:=preset_value(1);
   end;

   zquery.sql.text:='delete from tempreport where id = "CUSTOM-IPT1" ';
   zquery.execsql;

   if getsqldata('select count(*) as cc from ipt where an="'+fan+'"')=0 then
      raise exception.create('Invalid AN');
     
     
   if getsqldata('select count(*) as cc from income_report2')=0 then
   begin
     zquery.close;
     zquery.sql.text:='INSERT INTO income_report2 (group_id, group_name) VALUES '+
  '  (1,''¤èÒËéͧ/¤èÒÍÒËÒÃ''), '+
  '  (2,''ÍÇÑÂÇÐà·ÕÂÁ/ÍØ»¡Ã³ì㹡ÒúӺѴÃÑ¡ÉÒ''), '+
  '  (3,''ÂÒáÅÐÊÒÃÍÒËÒ÷ҧàÊé¹àÅ×Í´·Õèãªé㹠þ.''), '+
  '  (4,''ÂÒ·Õè¹Óä»ãªéµèÍ·ÕèºéÒ¹''), '+
  '  (5,''àǪÀѳ±ì·ÕèäÁèãªèÂÒ''), '+
  '  (6,''ºÃÔ¡ÒÃâÅËÔµáÅÐÊèǹ»ÃСͺ¢Í§âÅËÔµ''), '+
  '  (7,''µÃǨÇÔ¹Ô¨©Ñ·ҧ෤¹Ô¤¡ÒÃá¾·ÂìáÅоÂÒ¸ÔÇÔ·ÂÒ''), '+
  '  (8,''µÃǨÇÔ¹Ô¨©ÑÂáÅÐÃÑ¡ÉÒ·Ò§ÃѧÊÕÇÔ·ÂÒ''), '+
  '  (9,''µÃǨÇÔ¹Ô¨©ÑÂâ´ÂÇÔ¸Õ¾ÔàÈÉÍ×è¹æ''), '+
  '  (10,''ÍØ»¡Ã³ì¢Í§ãªéáÅÐà¤Ã×èͧÁ×Í·Ò§¡ÒÃá¾·Âì''), '+
  '  (11,''·ÓËѵ¶¡ÒÃáÅкÃÔ¡ÒÃÇÔÊÑ­­Õ''), '+
  '  (12,''¤èÒºÃÔ¡Ò÷ҧ¡ÒþÂÒºÒÅ''), '+
  '  (13,''ºÃÔ¡Ò÷ҧ·Ñ¹µ¡ÃÃÁ''), '+
  '  (14,''ºÃÔ¡Ò÷ҧ¡ÒÂÀÒ¾ºÓºÑ´áÅÐàǪ¡ÃÃÁ¿×鹿Ù''), '+
  '  (15,''ºÃÔ¡Òýѧà¢çÁ/¡ÒúӺѴ¢Í§¼Ùé»ÃСͺâäÈÔÅ»ÐÍ×è¹æ''), '+
  '  (16,''ºÃÔ¡ÒÃÍ×è¹·ÕèäÁèà¡ÕèÂÇ¢éͧ¡Ñº¡ÒÃÃÑ¡ÉÒ'') ';
     zquery.execsql;

   
   end;   


   zquery.sql.text:='delete from tempreport where id = "CUSTOM-IPT1" ';
   zquery.execsql;
   fcds.close;
   fcds.datarequest('select * from tempreport where id = "CUSTOM-IPT1" ');
   fcds.open;

   fcds2.close;

   fcds2.datarequest('select * from an_stat where an= "'+fan+'" ');
   fcds2.open;
   setstatuslabel('Open result : '+inttostr(fcds2.recordcount)+' Records');

   if fcds2.recordcount=0 then
   begin
     showmessage('Invalid AN');
     exit;
   end;
   
   fcds3.close;
   fcds3.datarequest('select r.group_id,r.group_name,sum(h1.rcptamt) as total1,sum(h2.rcptamt) as total2 ,sum((h1.rcptamt)+(h2.rcptamt)) as total3'+
    ' from income_report2 r '+
    ' left outer join income i on i.income_group=r.group_id '+
    ' left outer join incith h1 on h1.income=i.income and h1.an="'+fan+'" and h1.paidst in ("01","00","02") '+
    ' left outer join incith h2 on h2.income=i.income and h2.an="'+fan+'" and h2.paidst in ("03") '+
    ' group by r.group_id, r.group_name '+
    ' order by r.group_id ');
   fcds3.open;
   fcds3.first;
   while not fcds3.eof do
   begin

   fcds.insert;
   fcds['id']:='CUSTOM-IPT1';
   fcds['reportname']:='CUSTOM-IPT1';

   fcds['name1']:=getsqldata('select concat(pname,fname,"  ",lname) as name from patient where hn="'+
      fcds2['hn']+'"');
   fcds['name2']:=fan;
   fcds['name3']:=fcds2['hn'];
   
 
   // address
     st2:='';
     st1:=vartostr(getsqldata('select addrpart from patient where hn="'+fcds2['hn']+'"'));
     st2:=st1;  // assign address part
     st1:=vartostr(getsqldata('select moopart from patient where hn="'+fcds2['hn']+'"'));
     if st1<>'' then
       st2:=st2+' &Euml;&Aacute;&Ugrave;&egrave; '+st1;
     st1:=vartostr(getsqldata('select road from patient where hn="'+fcds2['hn']+'"'));
     if st1<>'' then
       st2:=st2+' &para;. '+st1;
     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          fcds2['aid']+'"'));

     st2:=st2+' &micro;.'+st1;


     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          copy(fcds2['aid'],1,4)+'00"'));

     st2:=st2+' &Iacute;.'+st1;

     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          copy(fcds2['aid'],1,2)+'0000"'));

     st2:=st2+' &uml;.'+st1;

   fcds['name5']:= st2;

   st1:=vartostr(getsqldata('select name from icd101 where code="'+copy(vartostr(fcds2['pdx']),1,3)+'" '));
   
   fcds['name4']:=vartostr(fcds2['pdx'])+' '+st1;
   
   st1:=vartostr(getsqldata('select name from icd101 where code="'+copy(vartostr(fcds2['dx0']),1,3)+'"'));
   
   fcds['name8']:= vartostr(fcds2['dx0'])+' '+st1;
   

   fcds['name6']:=vartostr(getsqldata('select cid from vn_stat where vn="'+fcds2['vn']+'"'));
   
   st1:=vartostr(getsqldata('select dch_doctor from ipt where an="'+fan+'"'));
   st1:=vartostr(getsqldata('select name from doctor where code="'+st1+'"'));
   
   fcds['name7']:=st1;
   
   st1:=vartostr(getsqldata('select pttype from ipt where an="'+fan+'"'));
   st1:=vartostr(getsqldata('select name from pttype where pttype="'+st1+'"'));
   
   fcds['name7']:=vartostr(fcds['name7'])+'        &Ecirc;&Ocirc;&middot;&cedil;&Ocirc;&iexcl;&Ograve;&Atilde;&Atilde;&Ntilde;&iexcl;&Eacute;&Ograve; '+st1;
   
   
   fcds['num1']:=fcds2['age_y'];
   fcds['num2']:=fcds2['age_m'];
   fcds['num3']:=fcds2['age_d'];
   fcds['num4']:=1;

   fcds['date1']:=fcds2['regdate'];
   fcds['date2']:=fcds2['dchdate'];
  // fcds['date4']:=fcds2['vstdate'];
 
   
   
    try fcds['name9']:=fcds3['group_name']; except end;
    try fcds['mon1']:=fcds3['total1']; except fcds['mon1']:=0; end;
    try fcds['mon2']:=fcds3['total2']; except fcds['mon2']:=0; end;
    try fcds['mon10']:=fcds3['total3']; except fcds['mon10']:=0; end;
    try fcds['mon3']:=fcds3['group_id']; except end;
 
     try fcds['mon4']:=fcds2['admdate']; except end;
 
   fcds.post;

    fcds3.next;
   end;
   fcds3.close;


   fcds.datarequest('select * from tempreport where id = "CUSTOM-IPT1" ');
   applyupdate_fcds();

end;

end.

2326
ส่งตัวอย่างการตั้งค่าในตาราง nhso_type_name ที่รวมสิทธิเบิกจ่ายตรงกรมบัญชีกลาง

(ขอบคุณ อ.อ๊อดที่ได้ช่วยแนะนำมาครับ)

2327
อาจจะต้องเปิดเป็นห้องๆให้เลือกว่าสนใจเรื่องใดเป็นพิเศษหรือไม่ก็ต้องมีการแบ่งเป็นกลุ่มเล็กๆคุยแลกเปลี่ยนปัญหากันในช่วงตอนเย็นหลังการประชุมในแต่ละวัน

2328
แจ้งปัญหา / ขอความช่วยเหลือ / v.49.10.18
« เมื่อ: ตุลาคม 19, 2006, 02:24:34 AM »
ฝาก อ.mn เรื่องของฟอร์มที่พิมพ์จาก menu drug information----->print content น่าจะนำออกมาไว้ใน system-report ให้แก้ไขได้ ตามความต้องการของโรงพยาบาลแต่ละแห่งครับ
 (ของเดิมอยู่ใน system)
ขอบคุณครับ
นาจ

2329
จากการที่ได้ประสานกับ อ.mn คุณสุมาลี และ อ.อ๊อด เรื่องที่พักจะให้ไปพักที่ รร.royal jame ซึ่งเป็นโรงแรม+สนามก๊อฟ พื้นที่กว้างขวางครับ  อยู่ใกล้กับม.มหิดล ศาลายา ห้องพักสะดวกสะบาย(อันนี้ อ.อ๊อด รับรองได้ครับ) รับได้ไม่จำกัดจำนวน โดยปกติทางโรงพยาบาลจะให้ลูกค้าที่มาทัวร์สุขภาพ มาพักที่นี่เป็นประจำ(จึงได้ราคาห้องในราคาพิเศษครับ) และถ้าท่านใดสนใจอยากให้มีรถไปรับเพื่อมาที่  รร.royal jame ก็ได้ครับแต่อาจจะต้องเป็นนัดเป็นจุดใหญ่ๆ เช่น หัวลำโพง สายใต้ใหม่ หรือขนส่งหมอชิต รายละเอียดอื่นที่ต้องการก็สามารถเสนอได้ครับ

2330
ไปที่ start menu ---->run---->cmd---->พิมพ์ net mysql stop
แล้ว ลบ folder hosxp ใน c:/program file ทิ้ง แล้วลองลงใหม่ครับ

2331
ก่อนใช้ต้องไปตรวจสอบว่า ที่ tool----->system setting ---->computer-dep---->ได้จับคู่ระหว่างชื่อเครื่องกับรหัสแผนกไว้ถูกต้องหรือยังเช่น ชื่อเครื่องเครื่องคอมพิวเตอร์  money ชื่อแผนก การเงินผู้ป่วยนอก และต้องใส่เล่มที่ด้วยทุกครั้งที่เรียกรายงาน
 

2332
แก้ไขได้แล้ว ครับ  ตามที่ อ๋อดแนะนำมา  คือเคลียร์ช่องว่าง ระหว่างคำนำชื่อกับชื่อแพทย์ออก
มิเช่นนั้น การสั่ง x-ray ก็ทำไม่ได้เช่นกัน  ขึ้น invalid doctor code เหมือนกันเลยครับ
พอจัดการ space แล้ว พบว่านัดได้และสามารถสั่ง x ray ได้เหมือนเดิมแล้วครับ
ตั้อง ขอบคุณ อ๋อดและนาจ ที่ช่วยเหลือครับ....
เกือกูล รพ.ปากท่อ

2333
ผมลองทดสอบนัด ตามที่คุณเกื้อกูลแจ้งมา ใน ระบบผู้ป่วยนอก ----->ลงทะเบียนการนัดใน v.49.10.10a  แล้วยังไม่พบ error อะไรครับ โดยผมลองเอาชื่อเจ้าหน้าที่ที่ไม่ได้อยู่ในตาราง doctor เป็นเจ้าหน้าที่ห้องบัตร ลงนัดก็สามารถนัดได้ครับ ไม่ทราบที่อื่นทดสอบกันหรือยัง

2334
ย้ายไปอยู่ในรายงานระบบแล้วครับ

2335
ส่งคำสั่งที่ใช้ครับ ถ้าจะให้อ.mn รวมยอดเงินเบิกได้กับเบิกไม่ได้ไว้ในบรรทัดสุดท้ายได้ไหมครับ
unit MyIPDReport;

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;

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;
fan:string;
st1:string;
st2:string;
lo:integer;

begin
   //showmessage('&agrave;&iexcl;&Otilde;&egrave;&Acirc;&Ccedil;&iexcl;&Ntilde;&ordm;&Atilde;&Ograve;&Acirc;&sect;&Ograve;&sup1;'+#13+'Custom IN-Patient Summary');

   // test with an 461402487

   fan := '490000097';
   if preset_value(1)='' then
   begin
     if not inputquery('Please enter Admit Number','AN',fan) then exit;
   end else
   begin
     fan:=preset_value(1);
   end;

   zquery.sql.text:='delete from tempreport where id = "CUSTOM-IPT1" ';
   zquery.execsql;

   if getsqldata('select count(*) as cc from ipt where an="'+fan+'"')=0 then
      raise exception.create('Invalid AN');
     
     
   if getsqldata('select count(*) as cc from income_report2')=0 then
   begin
     zquery.close;
     zquery.sql.text:='INSERT INTO income_report2 (group_id, group_name) VALUES '+
  '  (1,''&curren;&egrave;&Ograve;&Euml;&eacute;&Iacute;&sect;/&curren;&egrave;&Ograve;&Iacute;&Ograve;&Euml;&Ograve;&Atilde;''), '+
  '  (2,''&Iacute;&Ccedil;&Ntilde;&Acirc;&Ccedil;&ETH;&agrave;&middot;&Otilde;&Acirc;&Aacute;/&Iacute;&Oslash;&raquo;&iexcl;&Atilde;&sup3;&igrave;&atilde;&sup1;&iexcl;&Ograve;&Atilde;&ordm;&Oacute;&ordm;&Ntilde;&acute;&Atilde;&Ntilde;&iexcl;&Eacute;&Ograve;''), '+
  '  (3,''&Acirc;&Ograve;&aacute;&Aring;&ETH;&Ecirc;&Ograve;&Atilde;&Iacute;&Ograve;&Euml;&Ograve;&Atilde;&middot;&Ograve;&sect;&agrave;&Ecirc;&eacute;&sup1;&agrave;&Aring;&times;&Iacute;&acute;&middot;&Otilde;&egrave;&atilde;&ordf;&eacute;&atilde;&sup1; &Atilde;&frac34;.''), '+
  '  (4,''&Acirc;&Ograve;&middot;&Otilde;&egrave;&sup1;&Oacute;&auml;&raquo;&atilde;&ordf;&eacute;&micro;&egrave;&Iacute;&middot;&Otilde;&egrave;&ordm;&eacute;&Ograve;&sup1;''), '+
  '  (5,''&agrave;&Ccedil;&ordf;&Agrave;&Ntilde;&sup3;&plusmn;&igrave;&middot;&Otilde;&egrave;&auml;&Aacute;&egrave;&atilde;&ordf;&egrave;&Acirc;&Ograve;''), '+
  '  (6,''&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&acirc;&Aring;&Euml;&Ocirc;&micro;&aacute;&Aring;&ETH;&Ecirc;&egrave;&Ccedil;&sup1;&raquo;&Atilde;&ETH;&iexcl;&Iacute;&ordm;&cent;&Iacute;&sect;&acirc;&Aring;&Euml;&Ocirc;&micro;''), '+
  '  (7,''&micro;&Atilde;&Ccedil;&uml;&Ccedil;&Ocirc;&sup1;&Ocirc;&uml;&copy;&Ntilde;&Acirc;&middot;&Ograve;&sect;&agrave;&middot;&curren;&sup1;&Ocirc;&curren;&iexcl;&Ograve;&Atilde;&aacute;&frac34;&middot;&Acirc;&igrave;&aacute;&Aring;&ETH;&frac34;&Acirc;&Ograve;&cedil;&Ocirc;&Ccedil;&Ocirc;&middot;&Acirc;&Ograve;''), '+
  '  (8,''&micro;&Atilde;&Ccedil;&uml;&Ccedil;&Ocirc;&sup1;&Ocirc;&uml;&copy;&Ntilde;&Acirc;&aacute;&Aring;&ETH;&Atilde;&Ntilde;&iexcl;&Eacute;&Ograve;&middot;&Ograve;&sect;&Atilde;&Ntilde;&sect;&Ecirc;&Otilde;&Ccedil;&Ocirc;&middot;&Acirc;&Ograve;''), '+
  '  (9,''&micro;&Atilde;&Ccedil;&uml;&Ccedil;&Ocirc;&sup1;&Ocirc;&uml;&copy;&Ntilde;&Acirc;&acirc;&acute;&Acirc;&Ccedil;&Ocirc;&cedil;&Otilde;&frac34;&Ocirc;&agrave;&Egrave;&Eacute;&Iacute;&times;&egrave;&sup1;&aelig;''), '+
  '  (10,''&Iacute;&Oslash;&raquo;&iexcl;&Atilde;&sup3;&igrave;&cent;&Iacute;&sect;&atilde;&ordf;&eacute;&aacute;&Aring;&ETH;&agrave;&curren;&Atilde;&times;&egrave;&Iacute;&sect;&Aacute;&times;&Iacute;&middot;&Ograve;&sect;&iexcl;&Ograve;&Atilde;&aacute;&frac34;&middot;&Acirc;&igrave;''), '+
  '  (11,''&middot;&Oacute;&Euml;&Ntilde;&micro;&para;&iexcl;&Ograve;&Atilde;&aacute;&Aring;&ETH;&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&Ccedil;&Ocirc;&Ecirc;&Ntilde;&shy;&shy;&Otilde;''), '+
  '  (12,''&curren;&egrave;&Ograve;&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&middot;&Ograve;&sect;&iexcl;&Ograve;&Atilde;&frac34;&Acirc;&Ograve;&ordm;&Ograve;&Aring;''), '+
  '  (13,''&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&middot;&Ograve;&sect;&middot;&Ntilde;&sup1;&micro;&iexcl;&Atilde;&Atilde;&Aacute;''), '+
  '  (14,''&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&middot;&Ograve;&sect;&iexcl;&Ograve;&Acirc;&Agrave;&Ograve;&frac34;&ordm;&Oacute;&ordm;&Ntilde;&acute;&aacute;&Aring;&ETH;&agrave;&Ccedil;&ordf;&iexcl;&Atilde;&Atilde;&Aacute;&iquest;&times;&eacute;&sup1;&iquest;&Ugrave;''), '+
  '  (15,''&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&frac12;&Ntilde;&sect;&agrave;&cent;&ccedil;&Aacute;/&iexcl;&Ograve;&Atilde;&ordm;&Oacute;&ordm;&Ntilde;&acute;&cent;&Iacute;&sect;&frac14;&Ugrave;&eacute;&raquo;&Atilde;&ETH;&iexcl;&Iacute;&ordm;&acirc;&Atilde;&curren;&Egrave;&Ocirc;&Aring;&raquo;&ETH;&Iacute;&times;&egrave;&sup1;&aelig;''), '+
  '  (16,''&ordm;&Atilde;&Ocirc;&iexcl;&Ograve;&Atilde;&Iacute;&times;&egrave;&sup1;&middot;&Otilde;&egrave;&auml;&Aacute;&egrave;&agrave;&iexcl;&Otilde;&egrave;&Acirc;&Ccedil;&cent;&eacute;&Iacute;&sect;&iexcl;&Ntilde;&ordm;&iexcl;&Ograve;&Atilde;&Atilde;&Ntilde;&iexcl;&Eacute;&Ograve;'') ';
     zquery.execsql;

   
   end;   


   zquery.sql.text:='delete from tempreport where id = "CUSTOM-IPT1" ';
   zquery.execsql;
   fcds.close;
   fcds.datarequest('select * from tempreport where id = "CUSTOM-IPT1" ');
   fcds.open;

   fcds2.close;

   fcds2.datarequest('select * from an_stat where an= "'+fan+'" ');
   fcds2.open;
   setstatuslabel('Open result : '+inttostr(fcds2.recordcount)+' Records');

   if fcds2.recordcount=0 then
   begin
     showmessage('Invalid AN');
     exit;
   end;
   
   fcds3.close;
   fcds3.datarequest('select r.group_id,r.group_name,sum(h1.rcptamt) as total1,sum(h2.rcptamt) as total2 '+
    ' from income_report2 r '+
    ' left outer join income i on i.income_group=r.group_id '+
    ' left outer join incith h1 on h1.income=i.income and h1.an="'+fan+'" and h1.paidst in ("01","00","02") '+
    ' left outer join incith h2 on h2.income=i.income and h2.an="'+fan+'" and h2.paidst in ("03") '+
    ' group by r.group_id, r.group_name '+
    ' order by r.group_id ');
   fcds3.open;
   fcds3.first;
   while not fcds3.eof do
   begin

   fcds.insert;
   fcds['id']:='CUSTOM-IPT1';
   fcds['reportname']:='CUSTOM-IPT1';

   fcds['name1']:=getsqldata('select concat(pname,fname,"  ",lname) as name from patient where hn="'+
      fcds2['hn']+'"');
   fcds['name2']:=fan;
   fcds['name3']:=fcds2['hn'];
   
 
   // address
     st2:='';
     st1:=vartostr(getsqldata('select addrpart from patient where hn="'+fcds2['hn']+'"'));
     st2:=st1;  // assign address part
     st1:=vartostr(getsqldata('select moopart from patient where hn="'+fcds2['hn']+'"'));
     if st1<>'' then
       st2:=st2+' &Euml;&Aacute;&Ugrave;&egrave; '+st1;
     st1:=vartostr(getsqldata('select road from patient where hn="'+fcds2['hn']+'"'));
     if st1<>'' then
       st2:=st2+' &para;. '+st1;
     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          fcds2['aid']+'"'));

     st2:=st2+' &micro;.'+st1;


     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          copy(fcds2['aid'],1,4)+'00"'));

     st2:=st2+' &Iacute;.'+st1;

     st1:=vartostr(getsqldata('select name from thaiaddress where concat(chwpart,amppart,tmbpart)="'+
          copy(fcds2['aid'],1,2)+'0000"'));

     st2:=st2+' &uml;.'+st1;

   fcds['name5']:= st2;

   st1:=vartostr(getsqldata('select name from icd101 where code="'+copy(vartostr(fcds2['pdx']),1,3)+'" '));
   
   fcds['name4']:=vartostr(fcds2['pdx'])+' '+st1;
   
   st1:=vartostr(getsqldata('select name from icd101 where code="'+copy(vartostr(fcds2['dx0']),1,3)+'"'));
   
   fcds['name8']:= vartostr(fcds2['dx0'])+' '+st1;
   

   fcds['name6']:=vartostr(getsqldata('select cid from vn_stat where vn="'+fcds2['vn']+'"'));
   
   st1:=vartostr(getsqldata('select dch_doctor from ipt where an="'+fan+'"'));
   st1:=vartostr(getsqldata('select name from doctor where code="'+st1+'"'));
   
   fcds['name7']:=st1;
   
   st1:=vartostr(getsqldata('select pttype from ipt where an="'+fan+'"'));
   st1:=vartostr(getsqldata('select name from pttype where pttype="'+st1+'"'));
   
   fcds['name7']:=vartostr(fcds['name7'])+'        &Ecirc;&Ocirc;&middot;&cedil;&Ocirc;&iexcl;&Ograve;&Atilde;&Atilde;&Ntilde;&iexcl;&Eacute;&Ograve; '+st1;
   
   
   fcds['num1']:=fcds2['age_y'];
   fcds['num2']:=fcds2['age_m'];
   fcds['num3']:=fcds2['age_d'];
   fcds['num4']:=1;

   fcds['date1']:=fcds2['regdate'];
   fcds['date2']:=fcds2['dchdate'];
  // fcds['date4']:=fcds2['vstdate'];
 
   
   
    try fcds['name9']:=fcds3['group_name']; except end;
    try fcds['mon1']:=fcds3['total1']; except fcds['mon1']:=0; end;
    try fcds['mon2']:=fcds3['total2']; except fcds['mon2']:=0; end;
    try fcds['mon3']:=fcds3['group_id']; except end;
 
     try fcds['mon4']:=fcds2['admdate']; except end;
 
   fcds.post;

    fcds3.next;
   end;
   fcds3.close;


   fcds.datarequest('select * from tempreport where id = "CUSTOM-IPT1" ');
   applyupdate_fcds();

end;

end.

2336
จากที่สังเกตเพิ่มเติม พบว่าถึงแม้จะมีการเชื่อมกลุ่มค่ารักษาในตาราง income_group กับ income_report2 เอาไว้แล้วแต่กลุ่มค่ารักษาบางตัวก็ไม่แสดงใบงบหน้าค่ารักษาพยาบาลผู้ป่วยใน ถ้ารหัสกลุ่มค่ารักษาใน 2 ตารางนั้นไม่ตรงกัน   ต้องกลับมาแก้ให้เลขที่กลุ่มค่ารักษาตรงกันก่อนจึงจะใช้งานได้ แต่กลุ่มค่ารักษาบางตัวก็แสดงทั้งๆที่ไม่ได้แก้ให้เลขที่กลุ่มค่ารักษาตรงกัน
ตอนนี้ก็ยังสับสน อยู่ครับ :-\

2337
สืบเนื่องมาจากรายการค่ารักษาพยาบาลของผู้ป่วนใน ส่วนของใบงบหน้าค่ารักษาพยาบาลผู้ป่วยใน  ไม่ตรงกันกลับใน finance sheet(ซึ่งถูกต้องตรงตามจริงแล้ว) บางครั้งยอดเบิ้ล(รพ นครนายกแจ้งมาครับ) และในส่วนที่ รพ หลวงพ่อเปิ่นเองก็พบเช่นเดียวกันแต่จะเป็นจากการกำหนดค่าในตาราง income_group กับincome_report2  กลุ่มค่ารักษาบางตัวไม่เชื่อมกัน ทำให้เวลาเรียกรายงาน ใบงบหน้าค่ารักษาพยาบาลผู้ป่วยใน  มันจะทำให้ยอดค่ารักษาหายไปบางส่วน ต้องกลับมาแก้ในส่วนของ  2 ตารางนี้ใหม่จึงจะใช้งานได้ อยากเรียนถามถึงความสัมพันธ์ที่อ.mn เขียนไว้ใน pascal script ในใบงบหน้าค่ารักษาพยาบาลผู้ป่วยใน ครับเพื่อที่จะได้ให้ รพ อื่นๆที่เจอปัญหานี้ได้นำไปใช้ได้ง่ายขึ้น
ขอบคุณครับ

2338
เรียก show sql trace windows ให้ทำงานแล้วลองสั่งใหม่อีกครั้ง จากนั้นให้ coppy ข้อความที่ปรากฏใน show sql trace windows  มาให้ดูหน่อยครับ จะได้แก้ให้ตรงกับในตาราง serial

2339
<a href="http://" target="_blank" class="new_win">http://</a>

2340
หาเจอแล้ว  :D

2341
เพิ่มเติม ให้แสดง รพ หลัก รอง เป็นชื่อเต็ม แทนของเดิมที่เป็นรหัส 5 หลัก
ส่วนใบสรุปค่ารักษาของผู้ป่วยใน ผมจะส่งให้ในตอนเช้าแล้วกันนะครับ(ขอตรวจสอบให้แน่ใจก่อน)
นาจ เข็มแข็ง
แต่แนบไฟล์ไม่เป็น ;D

2342
กดปุ่ม Exec สะกดผิดครับ

2343
ลืมแจ้ง version
hosxp v.49.9.37

2344
แจ้ง อ.mn เรื่องจะใช้ระบบรับเงินฝาก ของเมนูระบบห้องชำระเงิน เมื่อจะพิมพ์ใบรับฝากเงินมีข้อความฟ้อง report finance-deposit-1 not found !!! หาใน report center ก็ไม่พบครับ
ขอบคุณครับ

2345
ใช้คำสั่ง update set ก็ได้ครับ
เช่น
 update aaa set xx='2'
where xx='1'
แล้วกดปุ่ม excute ครับ

2346
โดย
สำนักบริหารการชดเชยค่าบริการ
สำนักงานหลักประกันสุขภาพแห่งชาติ
 กุมภาพันธ์ 2549

2347
โปรแกรมบันทึกผลการตรวจสอบเวชระเบียน

สำหรับสำนักงานสาขาจังหวัด

คุณลักษณะของคอมพิวเตอร์ที่จะติดตั้งโปรแกรม
1.   ระบบปฏิบัติการเป็น Windows XP ขึ้นไป (ไม่สามารถใช้งานในระบบปฏิบัติการ Windows ME, Windows 98 ได้)
2.   RAM 64 MB ขึ้นไป
3.   มีพื้นที่ว่างบน Hard disk ไม่น้อยกว่า 100 MB
4.   ความละเอียดจอภาพขนาด 1,024 x 768 ขึ้นไป โปรแกรมได้ถูกออกแบบสำหรับจอภาพที่มีความละเอียด 1,024 x 768 pixel หากปรับความละเอียดน้อยกว่านี้ จะไม่สามารถเห็นปุ่มควบคุมบางส่วนได้

2349
ใช่ครับ รวมถึงเครื่องหมาย " ด้วย ครับ

2350
ยินดีต้อนรับ / สัมนาการใช้งาน Hosxp รุ่นที่ 2
« เมื่อ: กันยายน 26, 2006, 21:19:30 PM »
โรงพยาบาลหลวงพ่อเปิ่น จ.นครปฐม ขออนุญาต อ.ชัยพร อ.สุชัย และ รพ บางกอก 9
ความเดิมต่อจากรุ่นที่แล้วครับว่ามี รพ.ที่สนใจใช้และนำ hosxp ไปใช้แล้วแต่มีความต้องการที่จะทำรายงานบางส่วนเองตลอดจนต้องการเพิ่มทักษะในการดูแลระบบเองด้วยครับ เนื่องจากต้องการให้การแลกเปลี่ยนความรู้เป็นไปอย่างเข้มข้นจึงรับในแต่ละรุ่นได้ไม่เกิน 10-15 ท่านซึ่งรุ่นแรกที่ผ่านไปจะเป็นของ รพ นครนายก
ส่วนรุ่นที่ 2ที่กำลังจะเปิดเป็นวันที่ 12-14 ต.ค.49  โรงพยาบาลเลาขวัญ จ.กาญจนบุรี แจ้งมาแล้ว 4 ท่านครับ ส่วนท่านหรือโรงพยาบาลใดสนใจสามารถติดต่อมาได้ที่เบอร์ 034-277085 ต่อ 119 งานทัวร์สุขภาพ
ภก.นาจ   เข็มแข็ง

หน้า: 1 ... 45 46 [47] 48