县级医院药品违规加价审计
一、方法代码 ***** 二、方法名称 医院药品价格加价审计 三、目标功能
审计目标：检查县级医院药品违规加价行为。 审计功能：通过关联县级医院药品采购及销售表，分析医院药品加价情况，审查县级医院药品加价是否超过15%。
四、审计事项
行政事业审计—医院药品违规加价 五、所需数据
（一）药品入库登记表； 1、药品编码 2、药品名称 3、平均购价
（二）药品销售明细表； 1、药品编码 2、药品名称
3、售价 4、销售量 六、分析步骤
1．药品违规加价的ER模型构建
药品采购药房核算成本销售财务科收费中心核算收入 药品违规加价审计方法的实体和关系如下： 实体1：药品 实体2：药房 实体3：收费中心
实体4：财务科
关系1：采购人员采购药品 关系2：药品验收入库 关系3：销售药品
关系4：财务科核算药品采购平均成本 关系5：财务科核算药品销售收入 2．药品违规加价的数据模型构建
药药药药药药药药药药药药药药药药药药药药药药药
药药药药药药药药药药药药药药药药药药药药药药药药药
3、分析思路
超收的药品费用＝[售价－平均购价×（1+15％）]×销售数量
七、流程图 有 汇总超收的药品费用 差价率15% 药品销售明细表 创建包含进销差价率及进销差价额的新表 销售记录 无 显示“无记录” 大于 小于 显示“处理完成” 转入下一条记录 八、方法语言 var c,d,e,f; begin
c:=CreateQ('Select [药品名称],[规格],[单位],([售价]-[平均购价])/[平均购价] as 药品进销差价
率 ,([售价]-[平均购价]*1.15)*[销售量] as 超收药品费用 From [业务_1111',-1); d:=Qeof(c); if d<>1 then begin repeat
e:=QFDValue(c,'药品进销减价率'); f:=QFDValue(c,'超收药品费用'); if e>0.15 then
AddTransDout(f,'疑点说明'); d:=Qmov(c,1); d:=Qeof(c); until d=1; end; end.
县级医院药品违规加价审计方法
