แสดงกระทู้

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.


Topics - naj

หน้า: 1 ... 10 11 [12]
551
หลังจากลง kaspersky internet security 6.0  ไม่สามารถแชร์ printer ได้ครับ ตั้งค่าไม่เป็น ขอคำแนะนำด้วยครับ
มือใหม่หัดใช้
ขอบคุณครับ

552
เรียน อ.mn
  ผมลองใช้ระบบงาน x-ray  hosxp v.49.11.1 พบว่าถ้ามีการยกเลิกคนไข้ที่ได้ออกเลข xn ไปแล้ว ข้อมูลของคนไข้ยังอยู่ ในตาราง xrayxn,xray_report_detail ส่วนตารางที่เหลือโปรแกรมสามารถลบออกได้ปกติ ไม่แน่ใจว่าจะมีผลต่อการออก xn ใหม่หรือไม่ครับ ถ้าเป็นการยกเลิกและออกใหม่ในคนๆเดียวกัน
ขอบคุณครับ

553
bug ตอนลง screen แล้วจะบันทึกที่ er ครับ
และขอโทษ อ อ๊อดด้วย ที่ยังไม่ได้ตรวจสอบ hosxp v.49.12.2 ให้เรียบร้อบก่อนทำให้ รพ นครนายกยังไม่สามารถที่จะใช้งานในส่วน er ได้ครับ ;D

554
ปัญหาที่ รพ นครนายก กำลังเจอคือคนไข้ที่มา er แล้วมีการ admit พอข้ามวันแล้วไปตรวจสอบที่ finance sheet ของ medication profile รายการที่เกิดขึ้นที่มาจาก er หายหมดทุกคน และ ได้ลองเข้าไปดูที่ตาราง opitemrece ก็ไม่พบรายการที่มาจาก er ของคนไข้นั้นๆเช่นกัน พวกเราชาวชุมชน hosxp ไม่ได้ทอดทิ้ง รพ นครนายก นะครับแต่กำลังหาสาเหตุอยู่ครับ ลองทำตามที่แนะนำไปก่อนนะครับ ส่วนกระทู้บางกระทู้ที่ยังไม่ได้ตอบก็ไม่ต้องน้อยใจนะครับ บางทีเปิดอ่านแล้วแต่ยังไม่แน่ใจในคำตอบที่ให้ไปจึงยังขอทดสอบเองให้แน่นอนก่อนครับ
เภสัชกร นาจ เข็มแข็ง
รพ หลวงพ่อเปิ่น
ขอเป็นกำลังใจให้กับทุกๆท่านครับ

555
แจ้งปัญหา / ขอความช่วยเหลือ / ssn data export ?????
« เมื่อ: ธันวาคม 01, 2006, 04:09:36 AM »
 :-[ลองใช้แล้วขึ้นข้อความดังรูปครับ
เลยยังไม่ไปถึงไหน :-\

556
เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206'); 
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

557
เรียนถาม อ.mn
ผมจะหาผลต่างของวันจากการ ds2-ds1
GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
ไม่ทราบจะใช้ function ตัวไหนครับ
ผมไปดูตัวอย่าง ของ http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
var
  fromdate, toDate : TDateTime;

begin
  // Set up our date variables
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To   date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');
end;
ก็ยังทำไม่ได้ครับ จะนำมาใส่ใน รายงานครับ
ขอบคุณครับ
นาจ
รพ หลวงพ่อเปิ่น

558
CUSTOM-รายงานสรุปตัดยอดนอนนาน IPD อยู่ใน module ipd ครับ สำหรับทำรายงานสรุปค่าใช้จ่ายผู้ป่วยในที่นอนนานๆแล้วต้องการเรียกรายงานเป็นช่วงๆ
ขอโทษพี่จิ๋ว ด้วยครับ รับปากเอาไว้นานแล้ว
ส่วนท่านอื่นที่สนใจลองเอาไปใช้ดูนะครับ

559
หลังจากทีได้รับความกรุณาจาก อ.mn จะจัดการอบรม hosxp phase 2 (phase 1 จัดที่รพ บางกอก 9 ไปแล้ว :D) และจากข้อแนะนำหลายๆท่านที่ได้ให้ความคิดเห็นนการจัดอบรมโดยรพ หลวงพ่อเปิ่น ขอเสนอดังนี้ครับ
น่าจะจัดในช่วงมกราคมหรือกุมภาพันธ์ เพราะระบบ lab automate ของรพ จะเสร็จพอดีถ้ารพ ใดสนใจจะนำไปปรับใช้กับหน่วยงานของตนเองได้ครับ (ค่าเชื่อม software free แต่อาจจะต้องซื้อน้ำยา กับ บ.lio :o)
ระยะเวลา 3-4 วัน โดยอาจจะแบ่งเป็นห้องเล็กๆ หลังเลิกการอบรมกับอ.mn ในแต่ละวันเพื่อที่จะได้จัดกลุ่มตอบข้อซักถาม ข้อสงสัย ที่ต้องการเช่น system setting ,linux,database(mysql oracle mssql postgrest),pascal script,report system,mayo webservice เป็นต้น โดยในและห้องจะมี staff ดูแลอยู่(staff อาจจะเป็น adminของ รพ ต่างๆที่มาแลกเปลี่ยนความรู้กัน ไม่จำเป็นต้องเป็นทีมพัฒนาอย่างเดียวก็ได้ครับ ;)) เพราะจากการที่อบรมครั้งแรกได้มีโอกาสสอบถามจะมีหลายท่านที่ตามเนื้อหาไม่ทันเนื่องจากเนื้อหาที่อบรมมีมากพอสมควรและมีเวลาจำกัด ตลอดจนพื้นฐานแต่ละท่านที่แตกต่างกัน

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

561
แจ้งปัญหา / ขอความช่วยเหลือ / 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
}
ขอบคุณครับ

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

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

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

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

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

567
ส่งให้ใหม่

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

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

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

571
แจ้งปัญหา / ขอความช่วยเหลือ / 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 ให้ทำเหมือนกับระบบผู้ป่วยนอกครับที่เวลาค้างโปรแกรมสามารถที่จะแสดงได้ในหน้าของการเงินได้เลยครับ จะทำให้การเรียกเก็บเงินเป็นรายวันง่ายขึ้นครับ
ขอบคุณครับ
นาจ

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

573
เนื่องจากมีหลายโรงพยาบาลต้องการให้ในบรรทัดสุด้ายของรายงานตัวนี้มียอดสรุปค่าใช้จ่ายทั้งหมด(ยอดรวมเบิกได้กับเบิกไม่ได้) แสดงครับ ผมได้ซึ่งผมได้ลองแก้ไขคำสั่ง 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.

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

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

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

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

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

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

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

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

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

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

คุณลักษณะของคอมพิวเตอร์ที่จะติดตั้งโปรแกรม
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 หากปรับความละเอียดน้อยกว่านี้ จะไม่สามารถเห็นปุ่มควบคุมบางส่วนได้

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

583
ก็ผ่านไปได้ด้วยดีครับ (ผมคิดเอาเองนะ ;D) สำหรับทีมรพ.นครนายกที่ได้มาแลกเปลี่ยนความรู้กันระหว่าง 8-10 กันยายนที่ผ่านมาครับ งานนี้ผมได้รู้เกี่ยวกับ hardware เพิ่มขึ้นมากเลยครับจาก อ.อ๊อด และ อ.นน เนื่องจากตั้งแต่ซื้อ server ก็ไม่เคยจะเปิดดูข้างในเลยครับก็ยังสงสัยว่าทำไมถึงลง linux ไม่ได้ซักที ที่แท้มันมี sata onboard กับ sata card อยู่ (hp ml 110 sata hd,ram 512,cpu xeon 3 g) สุดท้ายยังลงไม่ได้ครับ ใครมีความรู้เรื่องนี้ขอคำแนะนำด้วยครับ กังวลพอสมควรสำหรับการจัดครั้งนี้เนื่องจากเป็นครั้งแรกครับ แต่เมื่อคืนโทรหาพี่จิ๋ว พี่จิ๋วบอกว่าหลังจากกลับมาแล้วทีมพยาบาล(ER WARD LAB ตึกตา ตึกสงฆ์) work มากนั่งทำ flow ระบบงานของตัวเองเพื่อให้สามารถใช้ได้กับ hosxp ก็หวังว่าคำแนะนำเกี่ยวกับการตั้งค่าระบบ การใช้งานในแต่ละเมนู หรือจะเป็นการทำรายงานด้วย pascal script จะได้นำไปใช้บ้างนะครับ
ปล .. ทีมนี้ขยันมากตื่นตั้งแต่ 6 โมงเช้ามานั่งเล่นโปรแกรมเลิกตี 2 :D

สุดท้ายนี้ขอขอบคุณโรงพยาบาลนครนายกที่ได้ให้เกียรติมาเยี่ยมโรงพยาบาลชุมชนเล็กๆแห่งนี้มากครับ

584
จากมาตราฐานความสมบูรณ์ของเวชระเบียนตามเกณฑ์ของ พรพ.ช่วงนี้มากันบ่อยเหลือเกิน(ไม่แน่ใจว่าจะมีที่นครปฐมที่เดียวหรือเปล่า :D) ให้มีการซักประวัติเรื่องของการสูบบุหรี่และดื่มแอลกอฮอร์ว่ามีการสูบ ดื่มหรือไม่ แต่เดิมใช้วิธีลงในอาการสำคัญครับ ไม่ค่อยสะดวกนักครับ พยาบาลคัดกรองเสนอมาว่าอยากให้สามารถเลือกเป็นแบบ check box ได้คล้ายๆกับกรณีไข้หวัดนก
ฝาก อ.mn พิจารณาคัรบ
ขอบคุณล่วงหน้าครับ

585
เวลาที่เราเพิ่มข้อมูลผ่านเมนูบำรุงรักษาระบบ --ลงทะเบียน-- รายการหัถการทันตกรรม จะเพิ่มได้แค่รายการเดียวโดยมี code =000100 และจะเพิ่มรายการอื่นต่อไปก็ไม่บันทึกให้ครับต้องไปใส่โดยตรงที่ตาราง DTTM แทน

586
GetPickupList(sql);(S);

InputQuery(title, label);
ดูแล้วน่าจะใช้บ่อยเหมือนกัน

587
EurekaLog 5.1.7

Application:
-------------------------------------------------------
  1.1 Start Date      : Tue, 5 Sep 2006 07:49:00 -1200
  1.2 Name/Description: HOSMy.exe
  1.3 Version Number  : 2.49.8.12
  1.4 Parameters      :
  1.5 Compilation Date: Sat, 12 Aug 2006 20:06:18 -1200

Exception:
-----------------------------------------------------
  2.1 Date   : Tue, 5 Sep 2006 12:53:01 -1200
  2.2 Address: 0064AF66
  2.3 Module : HOSMy.exe
  2.4 Type   : EZDatabaseError
2.5 Message: Incorrect symbol in field list "Null".

Active Controls:
----------------------------------------------------
  3.1 Form Class   : TMainForm
  3.2 Form Text    : :: HOSxP :: - [HOSxP SQL Query]
  3.3 Control Class: TJvHLEditor
  3.4 Control Text : describe  doctor

Computer:
-----------------------------------------------------
  4.1 Name          : DRUG
  4.2 User          : Drug
  4.3 Total Memory  : 375 Mb
  4.4 Free Memory   : 212 Mb
  4.5 Total Disk    : 9.77 Gb
  4.6 Free Disk     : 2.43 Gb
  4.7 System Up Time: 5 hours, 57 minutes, 5 seconds
  4.8 Processor     : Intel(R) Celeron(R) CPU 2.40GHz
  4.9 Display Mode  : 1024 x 768, 32 bit

Operating System:
------------------------------------
  5.1 Type    : Microsoft Windows XP
  5.2 Build # : 2600
  5.3 Update  : Service Pack 2
  5.4 Language: Thai

Network:
---------------------------------
  6.1 IP Address: 100.100.100.006
  6.2 Submask   : 255.255.255.000
  6.3 Gateway   : 100.100.100.110
  6.4 DNS 1     : 203.147.000.003
  6.5 DNS 2     : 203.147.000.002
  6.6 DHCP      : OFF           

Other Information:
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  7.1 : Hospital Code = 13819 [รพช. หลวงพ่อเปิ่น]
        Database Type = MySQL
        Database Protocol = mysql-4.1
        Last 3 SQL Statement
        .
        No 1 = describe  doctor
        .
        No 2 = select d.vn,d.doctor_code,d.rx_queue,d.doctor_order_print_date_time,d.patient_name,t.name as doctor_name,d.diagnosis_name,count(d.doctor_order_print_code) as label_count from doctor_order_print d left outer join doctor t on t.code=d.doctor_code where d.doctor_order_print_date_time between '2006-09-05 00:00:01' and '2006-09-05 23:59:59' and d.print_status='N' and d.print_server='OPD' group by d.vn,d.doctor_code,d.rx_queue,d.doctor_order_print_date_time,d.patient_name,t.name ,d.diagnosis_name order by d.rx_queue,d.doctor_order_print_date_time limit 50
        No 3 = select accessright from opduser where loginname='nk'
        .
        Server variable

588
การเขียน SQL Script / สัมนาที่รพ.หลวงพ่อเปิ่น
« เมื่อ: กันยายน 03, 2006, 22:14:11 PM »
มีแจ้งมาแล้วครับเป็น รพ.นครนายกที่ให้เกียรติมาเยี่ยมครับประมาณ 11-12 ท่านครับ
วันที่ 8-10 ก.ย.49  ส่วนโรงพยาบาลที่แจ้งมาขอเป็นรอบถัดไปนะครับ
เนื้อหาที่คาดว่าจะได้
1. ทีมผู้ดูแลระบบสามารถที่จะดูแลระบบได้เอง โดยจะชี้แจงตารางที่สำคัญ และการแก้ปัญหาต่างๆที่เกิดขึ้นในระหว่างใช้งาน
2. สอนการทำรายงานอย่างง่ายครับ และอาจจะใช้ variable memo (pascal script) ช่วยในการทำรายงานที่ซับซ้อน
 โดยงานนี้ มี อ.สุชัยและอ.อ๊อด มาช่วยแบ่งปันความรู้ ประสบการณ์ ด้วยครับ :D

589
การเขียน SQL Script / ลองฝึกการเขียนรายงาน
« เมื่อ: สิงหาคม 27, 2006, 19:36:37 PM »
มีรายงานตรวจสอบผู้ป่วยที่มาและไม่มาตามนัด ให้ลองฝึกเขียนกันครับ
สิ่งที่ต้องการ วันที่มา วันที่นัด hn ชื่อ-สกุล คลินิค ผู้นัด note
โดยเวลาเรียกรายงานให้สามารถที่จะเลือกช่วงวันที่ต้องการค้นหาได้ครับ
ตารางที่แนะนำให้ใช้
oapp เก็บข้อมูลการนัด
 ovst เก็บการมาของผู้ป่วย

590
หลังจากที่ upgrade และทดสอบในเมนู er พบว่าในส่วนที่ลงหัตถการไม่สามารถค้นได้ครับต้องใส่เลขรหัสเข้าไปตรงๆและยังสงสัยว่าการตั้งให้แสดงรายชื่อเจ้าหน้าที่ทำหัตถการเพื่อที่สามารถจะเลือกได้ยังงงๆอู่ครับเพราะถ้าไม่ใส่เป็นตำแหน่งแพทย์แทนในตำแหน่งพยาบาลในส่วนของบุคลากรในโรงพยาบาลก็จะไม่ขึ้นรายชื่อให้ครับ แต่บางคนที่ไม่ได้ตั้งเป็นแพทย์หรือตำแหน่งอะไรเลยกลับมีรายชื่อแสดง(รพ บ้านนา แจ้งมาครับ) ซึ่งก็เป็นอย่างที่แจ้งจริงๆ
สรุป  อยากถามว่าจริงๆแล้วหลักในการตั้งค่าเพื่อที่จะให้รายชื่อของพยาบาลที่ทำงานที่ ER แสดงขึ้นมาต้องทำอย่างครับ
ขอบคุณครับ
นาจ  เข็มแข็ง

591
Report Exchange / คุ่มือการเขียนโปรแกรมเดลไฟล์
« เมื่อ: สิงหาคม 26, 2006, 23:49:06 PM »
http://web.ubu.ac.th/home/learning/know/delphi/f4-topic.html
ฉบับภาษาไทย ผมอ่านแล้วเข้าใจง่ายดีครับ
น่าจะช่วยเพิ่มความเข้าใจในการทำรายงานที่ใช้ variable ช่วยในการเขียนได้ดีขึ้น

592
ยินดีต้อนรับ / เสนอเรื่องการอบรม hosxp
« เมื่อ: สิงหาคม 25, 2006, 04:36:54 AM »
เนื่องจากที่ผ่านมามีโทรศัพท์มาปรึกษาการใช้งานโปรแกรม ผมกับ อ.อ๊อด อยู่พอสมควรครับเลยคุยกับน้องว่าน่าจะจัดให้มีการมาพบเจอแลกเปลี่ยนปัญหากัน จริๆอยากให้อบรมกับ อ.mn มากกว่าเพราะอาจาย์เก่งมาก ส่วนผมรู้บ้างนิดหนอยพอที่จะดูแลระบบได้ตามมีตามเกิด  :o ซึงก็หวังว่าจะได้แลกเปลี่ยนความรู้กับหลายๆท่านที่เก่งๆครับ โดย รพ หลวงพ่อเปิ่นยินดีเป็นเจ้าภาพเรามีสถานพักที่รองรับการสัมนา(ROYAL JAME มีสนามก๊อฟด้วยครับ)ได้อาจจะะมาในลักษณะของลูกทัวสุขภาพประเภทค้างคืน ก็ได้ครับ เพราะสามารถจะนำใบเสร็จไปเบิกกับต้นสังกัดได้ ส่วนค่าเดินทางอาจจะต้องออกเองครับ ไม่มีค่าลงทะเบียนและถ้าหากมากันหลายท่าน รพ มีรถตู้ไปรับที่กรุงเทพให้ครับ
ถ้าเป้นไปได้ก็จะเชิญ อ.mnและพี่สุชัยมาร่วมด้วยครับ

ภก นาจ   เข็มแข็ง

593
ที่ PATIENT EMR  รายการยากลับบ้านของผู้ป่วยใน ???ไม่แสดงครับ

594
เนื่องจากของเดิมพื้นหลังสีดำ ตัวอักษรสีแดง ค่อนข้างอ่านยากครับ

595
แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / bug v.49.8.18 (pt note)
« เมื่อ: สิงหาคม 20, 2006, 06:04:20 AM »
ลงการ note ที่บันทึกในเมนูอื่นที่ไม่ใช่ลงทะเบียนเวชระเบียนผู้ป่วยนอกไม่สามารถลบได้ต้องมาลบใน ลงทะเบียนเวชระเบียนผู้ป่วยนอกและถ้าลงการ note ที่บันทึกในเมนูอื่นที่ไม่ใช่ลงทะเบียนเวชระเบียนผู้ป่วยนอกแล้วกลับมาเรียกใน ลงการ note ที่บันทึกในเมนูอื่นที่ไม่ใช่ลงทะเบียนเวชระเบียนผู้ป่วยนอกจะฟ้องข้อความ

EurekaLog 5.1.7

Application:
-------------------------------------------------------
  1.1 Start Date      : Sat, 19 Aug 2006 19:03:34 +0700
  1.2 Name/Description: HOSMy.exe
  1.3 Version Number  : 2.49.8.18
  1.4 Parameters      :
  1.5 Compilation Date: Fri, 18 Aug 2006 15:13:04 +0700

Exception:
----------------------------------------------
  2.1 Date   : Sat, 19 Aug 2006 19:04:08 +0700
  2.2 Address: 00703620
  2.3 Module : HOSMy.exe
  2.4 Type   : EInvalidOperation
  2.5 Message: Text exceeds memo capacity.

Active Controls:
----------------------------------------
  3.1 Form Class   : TMainForm
  3.2 Form Text    : :: HOSxP ::
  3.3 Control Class: TOPDCardForm
  3.4 Control Text : ลงทะเบียนผู้ป่วยนอก

Computer:
-------------------------------------------------------------
  4.1 Name          : MICROSOF-1DCB4E
  4.2 User          : Administrator
  4.3 Total Memory  : 502 Mb
  4.4 Free Memory   : 233 Mb
  4.5 Total Disk    : 29.29 Gb
  4.6 Free Disk     : 23.35 Gb
  4.7 System Up Time: 6 hours, 47 minutes, 34 seconds
  4.8 Processor     : Intel(R) Pentium(R) M processor 1.73GHz
  4.9 Display Mode  : 1280 x 800, 32 bit

Operating System:
------------------------------------
  5.1 Type    : Microsoft Windows XP
  5.2 Build # : 2600
  5.3 Update  : Service Pack 2
  5.4 Language: Thai

Network:
---------------------------------
  6.1 IP Address: 192.168.001.012
  6.2 Submask   : 255.255.255.000
  6.3 Gateway   : 192.168.001.254
  6.4 DNS 1     : 192.168.001.254
  6.5 DNS 2     : 000.000.000.000
  6.6 DHCP      : OFF           

Other Information:
--------------------------------------------------------------------------------------
  7.1 : Hospital Code = 13819 [รพช. หลวงพ่อเปิ่น]
        Database Type = MySQL
        Database Protocol = mysql-4.1
        Last 3 SQL Statement
        .
        No 1 = select * from ptnote where hn='0024418' and noteflag like '%[OPDCARD]%'
        .
        No 2 = select groupname from opdgroup
        .
        No 3 = SHOW COLUMNS FROM hos.death LIKE '%'

หน้า: 1 ... 10 11 [12]