BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: border ที่ กรกฎาคม 09, 2011, 18:34:56 PM

หัวข้อ: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: border ที่ กรกฎาคม 09, 2011, 18:34:56 PM
อาจารย์ครับ อยากให้มีแจ้งเตือนผู้ป่วยค้างชำระ ที่ห้องจ่ายยาด้วยครับ เพราะมีปัญหาในการเก็บเงินค้างชำระ หากผู้ป่วยไม่ผ่านห้องการเงินอีกครั้ง ก็จะไม่ทราบ ทำให้เก็บเงินค้างชำระได้น้อยลง ถ้าหากมีระบบเตือนที่ห้องจ่ายยา ห้องจ่ายยาสามารถส่งไปที่ห้องเก็บเงินเพื่อชำระหนี้ได้เลย แต่ตอนนี้มีเตือนเฉพาะที่เวชระเบียน แต่พอถึงห้องจ่ายยาคนไข้ก็ไม่ได้จ่ายเงินที่ค้าง
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: pop_hosxp ที่ กรกฎาคม 09, 2011, 18:41:43 PM
เราสามารถเขียน sys_vn_pre_script ได้ครับ คล้าย ๆ กับการแจ้งเตือน GFR ครับ
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: border ที่ กรกฎาคม 10, 2011, 10:02:12 AM
อยากได้อยู่ใน system setting version ถัดไปก็ได้ครับ
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: bannok ที่ มิถุนายน 21, 2012, 14:34:41 PM
อยากได้อยู่ใน system setting version ถัดไปก็ได้ครับ

 ??? ::) อยากได้ตามนี้
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: bannok ที่ กรกฎาคม 12, 2012, 08:43:44 AM
ขอดันอีกสักที
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: border ที่ กรกฎาคม 12, 2012, 09:52:22 AM
ช่วยดันด้วยครับ
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: chartjongmee ที่ กรกฎาคม 13, 2012, 15:54:22 PM
วางระบบให้ผู้ป่วยทุกคนต้องผ่านห้องจ่ายเงินสิครับ  จะได้รู้ว่าคนไข้คนใหนไม่ได้จ่ายเงิน หรือมีเงินค้างชำระ

แต่ก็ต้องทำค้างชำระด้วยนะครับ ที่ รพ. ผมผู้ป่วยต้องผ่านห้องการเงินทุกคนนะครับ

หมอแชมป์ วางระบบไว้สุดยอด
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: bannok ที่ กรกฎาคม 13, 2012, 16:12:36 PM
ที่ รพ ผม การเงินไม่ได้เปิด 24 ชม. นี่ครับ นอกเวลาจะเก็บเงินกันที่ ER เช้า มาถึงจะใช้ห้องการเงิน แล้วจะผ่านได้ยังไงครับ
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: bannok ที่ ตุลาคม 19, 2012, 09:55:23 AM
เราสามารถเขียน sys_vn_pre_script ได้ครับ คล้าย ๆ กับการแจ้งเตือน GFR ครับ

แบบนี้ก็ได้ครับ
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: pop_hosxp ที่ ตุลาคม 19, 2012, 12:34:08 PM
ลองแทรกใน sys_vn_pre_script ดูครับ อย่าลืมแก้ depcode ให้เป็นห้องจ่ายยาด้วยครับ

โค๊ด: Delphi
  1. var
  2.   fvn,fdepartment,fhn : string;
  3.  
  4. begin
  5.  
  6.   fvn:= GetGlobalValue('VN');
  7.   fdepartment := GetGlobalValue('CURRENT_DEPCODE');
  8.   fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');
  9.  
  10.    if getsqldata('select depcode from kskdepartment where depcode in ("008","028") and depcode="'+fdepartment+'"')=''+fdepartment+'' then
  11.      if getsqldata('select count(*) from rcpt_arrea '+
  12. ' where hn="'+fhn+'" '+
  13. ' and paid="N" ')>0 then
  14.  
  15. showmessage('มียอดค้างชำระ');
  16.  
  17. end;
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: chartjongmee ที่ ตุลาคม 19, 2012, 14:59:27 PM
ให้คนไข้ผ่านห้องเก็บเงินก่อนแล้วค่อยส่งไปห้องยาสิครับ 
ที่โรงพยาบาลผมทำอยู่   แต่ต้องทำค้างชำระด้วยนะครับ
ไม่ยังงั้นไม่ขึ้นหรอก
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: panus_t ที่ ธันวาคม 03, 2012, 10:38:04 AM
ลองแทรกใน sys_vn_pre_script ดูครับ อย่าลืมแก้ depcode ให้เป็นห้องจ่ายยาด้วยครับ

โค๊ด: Delphi
  1. var
  2.   fvn,fdepartment,fhn : string;
  3.  
  4. begin
  5.  
  6.   fvn:= GetGlobalValue('VN');
  7.   fdepartment := GetGlobalValue('CURRENT_DEPCODE');
  8.   fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');
  9.  
  10.    if getsqldata('select depcode from kskdepartment where depcode in ("008","028") and depcode="'+fdepartment+'"')=''+fdepartment+'' then
  11.      if getsqldata('select count(*) from rcpt_arrea '+
  12. ' where hn="'+fhn+'" '+
  13. ' and paid="N" ')>0 then
  14.  
  15. showmessage('มียอดค้างชำระ');
  16.  
  17. end;

แล้วเขาแทรก Script กันยังไงครับ ;D
หัวข้อ: Re: แจ้งเตือนค้างชำระที่ห้องจ่ายยา
เริ่มหัวข้อโดย: bannok ที่ มิถุนายน 12, 2013, 13:22:38 PM
ดันเข้าไปเผื่อ อ เพิ่มให้