BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: naj ที่ กุมภาพันธ์ 26, 2010, 12:59:21 PM

หัวข้อ: ตัวอย่างรายงาน หนังสือรับรองยานอกบัญชี OPD & IPD
เริ่มหัวข้อโดย: naj ที่ กุมภาพันธ์ 26, 2010, 12:59:21 PM
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
หัวข้อ: Re: ตัวอย่างรายงาน หนังสือรับรองยานอกบัญชี OPD & IPD
เริ่มหัวข้อโดย: kitisak ที่ กุมภาพันธ์ 26, 2010, 13:59:46 PM
ขอบคุณ  อ.naj มากครับ จะนำไปประยุกต์ใช้  ;D ;D