体检科费用汇总

select m.*,n.总费用 from(
select '体检科' 开单,decode(a.团体id,null,'个人','团体') 类别,
       sum(DECODE(T.收据费目, '放射费', T.实收金额, 0)) 放射费,
       sum(DECODE(T.收据费目, 'CT费', T.实收金额, 0)) CT费,
       sum(DECODE(T.收据费目, '超声费', T.实收金额, 0)) 超声费,
       sum(DECODE(T.收据费目, '检查费', T.实收金额, 0)) 检查费,
       sum(DECODE(T.收据费目, '核磁共振', T.实收金额, 0)) 核磁共振,
       sum(DECODE(T.收据费目, '西药费', T.实收金额, 0)) 西药费,
       sum(DECODE(T.收据费目, '体检费', T.实收金额, 0))体检费,
       sum(DECODE(T.收据费目, '心电图', T.实收金额, 0)) 心电图,
       sum(DECODE(T.收据费目, '其他费', T.实收金额, 0)) 其他费,
       sum(DECODE(T.收据费目, '病理费', T.实收金额, 0)) 病理费,
       sum(DECODE(T.收据费目, '胃镜费', T.实收金额, 0)) 胃镜费,
       sum(DECODE(T.收据费目, '床位费', T.实收金额, 0)) 床位费,
       sum(DECODE(T.收据费目, '检验费', T.实收金额, 0)) 检验费,
       sum(DECODE(T.收据费目, '诊疗费', T.实收金额, 0)) 诊疗费,
       sum(DECODE(T.收据费目, '脑电图', T.实收金额, 0)) 脑电图,
       sum(DECODE(T.收据费目, '挂号费', T.实收金额, 0)) 挂号费,
       sum(DECODE(T.收据费目, '治疗费', T.实收金额, 0)) 治疗费,
       sum(DECODE(T.收据费目, '材料费', T.实收金额, 0)) 材料费
  from 病人费用记录 t,体检任务人员 a
 where t.开单部门ID = 110
   and t.病人ID=a.病人id
   and a./*B2*/登记时间/*E2*/ between /*B0*/TO_DATE('2023-09-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and /*B1*/TO_DATE('2023-09-30 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/
   group by decode(a.团体id,null,'个人','团体')) m,
(select '体检科' 开单,decode(a.团体id,null,'个人','团体') 类别,SUM(t.实收金额) 总费用
  from 病人费用记录 t,体检任务人员 a
 where t.开单部门ID = 110
   and t.病人ID=a.病人id
   and a./*B2*/登记时间/*E2*/ between /*B0*/TO_DATE('2023-09-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and /*B1*/TO_DATE('2023-09-30 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/
   group by decode(a.团体id,null,'个人','团体')) n
   where m.类别=n.类别