ไม่ทราบ รหัส CPR เป็นหัตถการ ชื่อว่าอะไรครับ รหัส icd9 ด้วยนะครับ
(ต้องมาแก้ไขเอง ทั้ง icode กับ เลข สถานพยาบาลเองใช่ไหมครับ สถามถามมีอะไรต้องแก้ไขให้ใช้กับ รพ.อื่น ๆ บ้างครับ )
Value := GetSQLIntegerData('select count(distinct v.vn) as cc '+
'from vn_stat v '+
'inner join ovstdiag o on o.vn=v.vn '+
'inner join opitemrece op on op.vn=v.vn '+
'inner join er_regist er on er.vn=v.vn '+
'where v.vstdate between "'+ds1+'"and "'+ds2+'" '+
'and o.icd10 between "v01" and "v8999" and
op.icode="3002875"');
ให้ อ.armds ไปดูว่า หัตถการ CPR ของแต่ละ รพ. มีรหัสอะไร แล้วเอาไปใส่แทนค่า 3002875 ครับ
ส่วนการ รอดจาก CPR ที่ ER ผมเอา er_dch_type มาจับครับ เอาทุกสถานะที่ออก ยกเว้นตาย
Value := GetSQLIntegerData('select count(distinct v.vn) as cc '+
'from vn_stat v '+
'inner join ovstdiag o on o.vn=v.vn '+
'inner join opitemrece op on op.vn=v.vn '+
'inner join er_regist er on er.vn=v.vn '+
'where v.vstdate between "'+ds1+'"and "'+ds2+'" '+
'and o.icd10 between "v01" and "v8999" and op.icode="3002875" and
er.er_dch_type !="4"');