CUSTOM-แบบบันทึกข้อมูลการส่งต่อผู้ป่วยรักษาต่อ ปีงบประมาณ

[naj]

สืบเนื่องมาจาก จังหวัด นครปฐม ให้โรงพยาบาลชุมชนจัดทำรายงานสรุปผู้ป่วยส่งต่อ ประจำทุกเดือน ถ้าท่านใดสนใจจะลองไปปรับใช้ ก็ d/l ได้เลยครับ

[naj]

เพิ่มเติมเล็กน้อยครับ
เนื่องจาก เจ้าหน้าที่ลงข้อมูลไม่ครบถ้วน บางครั้งไม่ได้ลง ประเภทคลินิก เช่น อายุรกรรม ศัลยกรรม จักษุ เป็นต้น ทำให้ field spclty เป็นค่าว่าง ผมจึงออกแบบให้ขณะที่เรียกรายงานตัวนี้
 ตรวจสอบก่อนว่า  field spclty ของตาราง referout เป็นค่าว่าง หรือไม่ ถ้าเป็น  จะ update field spclty  โดยตรวจสอบว่าเป็น OPD หรือ IPD ถ้าเป็น OPD ให้ดึง field spclty ของตาราง vn_stat ส่วน IPD จะดึงจาก  field spclty ของตาราง an_stat
ข้อควรระวัง อย่าใจร้อนใช้กับระบบจริง ทดสอบใน Standalone ก่อนนะครับ ที่สำคัญอย่าลืม Backup DB



ตัวอย่าง Code ที่ใช้ครับ

โค๊ด: Delphi

1. unit ReferReport;
2. procedure main;
3. begin
4. zquery.close;
5. zquery.sql.text:='update referout set spclty = (select an_stat.spclty from an_stat  where referout.vn = an_stat.an) '+
6.                   'where  refer_date > "2008-10-01"  '+
7.                   'and department ="IPD" '+
8.                   'and referout.spclty is null ';
9. zquery.execsql;
10. zquery.close;
11. zquery.sql.text:='update referout set spclty = (select vn_stat.spclty from vn_stat  where referout.vn = vn_stat.vn) '+
12.                   'where  refer_date  > "2008-10-01"  '+
13.                   'and department ="OPD" '+
14.                   'and referout.spclty is null ';
15. zquery.execsql;
16. zquery.close;
17. //showmessage('Yindee');
18. end;
19. end.
20.  

[wiphusit]

ขอบคุณครับ

[Tharuea_Hos]

ขอบคุณครับ แต่ อ.นาจ ครับ อยากให้เพิ่มตรงจุดที่ส่งต่อด้วยครับจะดีมากเลยครับ เพราะพี่ๆ จนท.อยากทราบยอดของตัวเองด้วยครับ