项目重复收费

1.门诊就诊牙髓炎开具医嘱时出现开髓引流术与局部浸润麻醉重复收费
select * from(
select distinct '开髓引流术' 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人 from  门诊费用记录 t ,病人挂号记录 a where t.挂号id=a.id
and t.收费细目id=13038815
and t.记录状态=1
and a.登记时间 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
) m,       
(
select distinct '局部浸润麻醉' 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人  from  门诊费用记录 t ,病人挂号记录 a where t.挂号id=a.id
and t.收费细目id=13038424
and t.记录状态=1
and a.登记时间 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
) n where m.id=n.id

2.收取“血气分析”费用的同时重复收取“钾、钠、镁、钙、氯等”检测费用。

--------------------------门诊-----------------------------------

select '门诊' 类别,
       m.登记时间,
       m.项目,
       m.门诊号,
       m.姓名,
       m.年龄,
       (select 名称 from 部门表 w where w.id=m.开单部门id) 开单科室,
       m.开单人,
       n.项目,
       (select 名称 from 部门表 w where w.id=n.开单部门id) 开单科室,
       n.开单人 from(
select distinct '血气分析' 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人,a.登记时间 from  门诊费用记录 t ,病人挂号记录 a where t.挂号id=a.id
and t.收费细目id=8001097
and t.记录状态=1
and a.登记时间 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
) m,
(
select distinct case when  t.收费细目id in (13040106,13040110,1304011,13040119,13040123,13040132,13040197,13040200,13040204,13040182,13040267,13040186,13040173) then x.名称
end 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人 from  门诊费用记录 t ,病人挂号记录 a,收费项目目录 x where t.挂号id=a.id
and t.收费细目id in(13040106,13040110,1304011,13040119,13040123,13040132,13040197,13040200,13040204,13040182,13040267,13040186,13040173)
and t.收费细目id=x.id
and t.记录状态=1
and a.登记时间 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-30 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
) n
where m.id =n.id

--------------------------住院-----------------------------------

select '住院' 类别,m.项目,m.姓名,m.住院号,m.年龄,m.入院日期,m.出院日期,m.开单人,
(select 名称 from 部门表 where id =m.开单部门id) 开单科室,
n.项目,n.开单人,(select 名称 from 部门表 where id =n.开单部门id) 开单科室
 from (
select distinct c.名称 项目,b.病人id,b.主页id,b.住院号,a.姓名,a.年龄,a.开单部门id,a.开单人,b.入院日期,b.出院日期 from 住院费用记录 a,病案主页 b,收费项目目录 c 
where a.病人id= b.病人id
and a.主页id = b.主页id
and a.收费细目id=c.id
and a.收费细目id=8001097
and a.记录状态=1
and b.出院日期 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
) m,      
(       
select distinct  (select 名称 from 收费项目目录 where id=项目id) 项目,t.* from(
select   case when  t.收费细目id in (13040106,13040110,1304011,13040119,13040123,13040132,13040197,13040200,13040204,13040182,13040267,13040186,13040173) then 
t.收费细目id
end 项目id,a.住院号,a.病人id,a.主页id,a.姓名,a.年龄,t.开单部门id,t.开单人 from  住院费用记录 t ,病案主页 a
 where t.病人id = a.病人id
   and t.主页id = a.主页id 
   and t.记录状态=1
   and t.收费细目id in(13040106,13040110,1304011,13040119,13040123,13040132,13040197,13040200,13040204,13040182,13040267,13040186,13040173)
   and a.出院日期 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
)  t
) n where m.病人id=n.病人Id and m.主页id=n.主页Id

3.重症监护”与“一级护理”重复收费现象.

select m.发生时间,m.内容,m.科室,m.姓名,m.住院号,m.入院日期,m.出院日期,m.开单人,n.内容,n.科室,n.开单人 from (
select x.名称 内容,
       d.名称 科室,
       b.病人id,
       b.主页id,
       c.姓名,
       c.住院号,
       c.入院日期,
       c.出院日期,
       b.开单人 开单人,
       to_char(b.发生时间,'yyyy-mm-dd') 发生时间
  from 病人结帐记录 a, 住院费用记录 b, 病案主页 c, 部门表 d,收费项目目录 x
 where c.出院日期 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
   and a.记录状态 = 1
   and b.收费细目id=x.id
   and a.id = b.结帐id
   and a.病人id = c.病人id
   and a.主页id = c.主页id
   and b.收费细目id in (13041286)
   and c.出院科室id = d.id
   and b.实收金额 is not null
) m, 
(   
select x.名称  内容,
       d.名称 科室,
       b.病人id,
       b.主页id,
       c.姓名,
       c.住院号,
       c.入院日期,
       c.出院日期,
       b.开单人 开单人,
       to_char(b.发生时间,'yyyy-mm-dd') 发生时间
  from 病人结帐记录 a, 住院费用记录 b, 病案主页 c, 部门表 d,收费项目目录 x
 where c.出院日期 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
   and a.记录状态 = 1
   and a.id = b.结帐id
   and a.病人id = c.病人id
   and a.主页id = c.主页id
   and b.收费细目id=x.id
   and b.收费细目id in (10001001)
   and c.出院科室id = d.id
   and b.实收金额 is not null
) n where m.病人id=n.病人Id and m.主页id=n.主页Id and m.发生时间=n.发生时间

4.个别病人吸痰次数超过 10 次
select to_char(发生时间, 'yyyy-mm-dd') 发生日期,
       b.病人id,
       b.主页id,
       b.住院号,
       b.姓名,
       b.年龄,
       b.入院日期,
       b.出院日期,
       a.开单人,
       (select 名称 from 部门表 t where t.id = a.开单部门id ) 开单科室,
       sum(a.数次) 次数
  from 住院费用记录 a, 病案主页 b
 where a.病人id = b.病人id
   and a.主页id = b.主页id
   and a.记录状态 = 1
   and a.收费细目ID = 13041522
   and b.出院日期 between /*B0*/
       TO_DATE('2023-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
       and
      /*B1*/
       TO_DATE('2023-01-10 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
 group by to_char(发生时间, 'yyyy-mm-dd'),
          b.病人id,
          b.主页id,
          b.住院号,
          b.姓名,
          b.年龄,
          b.入院日期,
          b.出院日期,
          a.开单人,
          a.开单部门id
having sum(a.数次) > 10