疾控中心门诊疫苗零售超规定加价情况的计算机审计方法

序号

数据资料名称

结构化

非结构化

半结构化

1

疫苗出库明细表

√

步骤

内容

1

从疫苗出库明细表中选择疾控中心门诊自用部分并生成明细表。

2

查询疾控中心门诊是否存在超过规定加成率零售疫苗的情况，如存在则生成明细表。

3

分年度统计超规定加价总金额，出现负数是由于当期退库引起的，应延伸取证后根据实际情况调整。

4

分品种统计超规定加价总金额，可进一步延伸审计提供线索。

步骤

内容

1

var sql,a,bz;

begin

  sql:='select * from 疫苗出库明细表 where 领药单位名称 like ''注射室'' and 药品分类=''疫苗''';

  CreateTempTable ('注射室用疫苗明细表',sql); 

end .

2

var sql,a,bz;

begin

  sql:='select * from 注射室用疫苗明细表 where (零售价-批发价)*1.2>1';

  CreateTempTable ('注射室用疫苗零售价超过批发价百分之120明细表',sql);

  a:= CreateQ ('select * from 注射室用疫苗零售价超过批发价百分之120明细表',-1);

  if qeof (a)<>1 then showmsg ('存在超标准加价的情况') else showmsg ('情况很好，不存在超标准加价的情况'); 

end .

3

var sql,a,bz;

begin

  sql:='select left(出库日期,4) as 年度,sum(出库数量*零售价-出库数量*批发价*1.2) as 超规定加价总金额 from 注射室用疫苗零售价超过批发价百分之120明细表 group by left(出库日期,4)';

  CreateTempTable ('各年度零售价超规定加价统计表',sql);

  a:= CreateQ ('select * from 各年度零售价超规定加价统计表',-1);

  while qeof (a)<>1 do

      begin

          AddTransRslt (a,'每年零售环节超规定加价总金额');

          bz:= qmov (a,1);

      end ;

  TransBatch (a,'所有零售环节超规定加价总金额');

end .

4

var sql,a,bz;

begin

  sql:='select 疫苗名称,sum(出库数量*零售价-出库数量*批发价*1.2) as 超规定加价总金额 from 注射室用疫苗零售价超过批发价百分之120明细表 group by 疫苗名称';

  CreateTempTable ('各品种疫苗零售价超规定加价统计表',sql);

  a:= CreateQ ('select * from 各品种疫苗零售价超规定加价统计表',-1);

  while qeof (a)<>1 do

      begin

          AddTransRslt (a,'各品种疫苗零售环节超规定加价总金额');

          bz:= qmov (a,1);

      end ;

  TransBatch (a,'所有疫苗零售环节超规定加价总金额');

end .