ผู้เขียน หัวข้อ: ตัวอย่างรายงาน หนังสือรับรองยานอกบัญชี OPD & IPD  (อ่าน 4962 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,444
  • Respect: 0
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
CUSTOM-Finance  หนังสือรับรองเพื่อประกอบการเบิกจ่ายยานอกบัญชียาหลักแห่งชาติ รพ.หลวงพ่อเปิ่น กรณีเป็นคนไข้ OPD ขนาด A5
เพิ่มเติม
ผมได้เขียนให้ตรวจสอบเงื่อนในกรณีที่กรณีคนไข้นอกตรวจกับแพทย์แล้วแพทย์ส่งตรวจไปจุดอื่น เช่น ER แผนไทย  กายภาพ เวลาบันทึก ให้นำ ชื่อแพทย์ที่เป็น รคส (command_doctor ของตาราง ovst) มาแสดงแทน
CUSTOM-หนังสือรับรองยานอก ผู้ป่วยใน   กรณีเป็นคนไข้ IPD ครับ --ผมจะพิมพ์ตอนที่จำหน่ายคนไข้กลับบ้าน ขนาด A4
ตัวอย่าง code ที่ใช้ครับ
โค๊ด: Delphi
  1. procedure Variable5OnCalc(var Value: Variant);
  2. begin
  3.  
  4. If  GetSQLIntegerData('select count(*) as dd from doctor where code="'+ DBPipeline['doctor']+'" '+
  5.      'and position_id="1"')=1  then
  6.       Value :='('+GetSQLStringData('select name from doctor where code="'+ DBPipeline['doctor']+'" ')+')'
  7.       else
  8.       Value :='('+GetSQLStringData('select name from doctor where code="'+ DBPipeline['command_doctor']+'" ')+')';
  9.  
  10. end;
หมายเหตุ
ยังไม่ได้ลองกรณีที่ตรวจกับแพทยืมากกว่า 1 ท่านครับ ยังคิดไม่ออก :D :D :D :D
« แก้ไขครั้งสุดท้าย: กุมภาพันธ์ 26, 2010, 13:12:10 PM โดย naj »
Yindee And Tan

ออฟไลน์ kitisak

  • Sr. Member
  • ****
  • กระทู้: 345
  • จะไม่ยอมแพ้..ต้องไปให้ถึง
  • Respect: 0
    • ดูรายละเอียด
    • รพ.เอราวัณ
Re: ตัวอย่างรายงาน หนังสือรับรองยานอกบัญชี OPD & IPD
« ตอบกลับ #1 เมื่อ: กุมภาพันธ์ 26, 2010, 13:59:46 PM »
0
ขอบคุณ  อ.naj มากครับ จะนำไปประยุกต์ใช้  ;D ;D
โรงพยาบาลเอราวัณ จ.เลย (ขนาด 30 เตียง)
MASTER:server "Acer" รุ่น G540
       Intel XEON Quad Core E5405(2.0GHz,L2 cache 12MB)
       OS CentOS 5.2  
RAM   ECC Fully BUFFER=4GB
HDD  SAS 146GB 15,000RPM = 3ลูก
GIgabit Ethernet = 2 port
SLAVE: server "ACER" รุ่น "altos G330 MK2"
            Ram 2GB
HOSxP version = 3.55.8.21
http://cloud1.hosxp.net/$

ขึ้นระบบ วันที่ 8 มกราคม 2552 
ขอขอบคุณ  อ.DECHA ,อ.อาร์ม  และทุกท่านในที่นี้ด้วยครับ

_____________________________________________

kitisak pingkasarn  Admin รพ.เอราวัณ จ.เลย