ตัวอย่างรายงาน หนังสือรับรองยานอกบัญชี OPD & IPD

[naj]

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 ท่านครับ ยังคิดไม่ออก

[kitisak]

ขอบคุณ  อ.naj มากครับ จะนำไปประยุกต์ใช้