แจ้งเตือนค้างชำระที่ห้องจ่ายยา

[border]

อาจารย์ครับ อยากให้มีแจ้งเตือนผู้ป่วยค้างชำระ ที่ห้องจ่ายยาด้วยครับ เพราะมีปัญหาในการเก็บเงินค้างชำระ หากผู้ป่วยไม่ผ่านห้องการเงินอีกครั้ง ก็จะไม่ทราบ ทำให้เก็บเงินค้างชำระได้น้อยลง ถ้าหากมีระบบเตือนที่ห้องจ่ายยา ห้องจ่ายยาสามารถส่งไปที่ห้องเก็บเงินเพื่อชำระหนี้ได้เลย แต่ตอนนี้มีเตือนเฉพาะที่เวชระเบียน แต่พอถึงห้องจ่ายยาคนไข้ก็ไม่ได้จ่ายเงินที่ค้าง

[pop_hosxp]

เราสามารถเขียน sys_vn_pre_script ได้ครับ คล้าย ๆ กับการแจ้งเตือน GFR ครับ

[border]

อยากได้อยู่ใน system setting version ถัดไปก็ได้ครับ

[bannok]

อยากได้อยู่ใน system setting version ถัดไปก็ได้ครับ

  อยากได้ตามนี้

[bannok]

ขอดันอีกสักที

[border]

ช่วยดันด้วยครับ

[chartjongmee]

วางระบบให้ผู้ป่วยทุกคนต้องผ่านห้องจ่ายเงินสิครับ  จะได้รู้ว่าคนไข้คนใหนไม่ได้จ่ายเงิน หรือมีเงินค้างชำระ

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

หมอแชมป์ วางระบบไว้สุดยอด

[bannok]

ที่ รพ ผม การเงินไม่ได้เปิด 24 ชม. นี่ครับ นอกเวลาจะเก็บเงินกันที่ ER เช้า มาถึงจะใช้ห้องการเงิน แล้วจะผ่านได้ยังไงครับ

[bannok]

เราสามารถเขียน sys_vn_pre_script ได้ครับ คล้าย ๆ กับการแจ้งเตือน GFR ครับ

แบบนี้ก็ได้ครับ

[pop_hosxp]

ลองแทรกใน 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;

[chartjongmee]

ให้คนไข้ผ่านห้องเก็บเงินก่อนแล้วค่อยส่งไปห้องยาสิครับ 
ที่โรงพยาบาลผมทำอยู่   แต่ต้องทำค้างชำระด้วยนะครับ
ไม่ยังงั้นไม่ขึ้นหรอก

[panus_t]

ลองแทรกใน 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 กันยังไงครับ

[bannok]

ดันเข้าไปเผื่อ อ เพิ่มให้