统计门诊各种处方数

select a.名称,
       门诊使用中医非药物疗法总人次,
       金额1,
       西药处方数,
       金额2,
       中成药处方数,
       金额3,
       中药饮片处方数,
       金额4,
       门诊总人次
  from (
        -------------门诊使用中医非药物疗法总人次yyes-----------     
        
        Select Count(Distinct b.no) as 门诊使用中医非药物疗法总人次,
                sum(a.实收金额) 金额1,
                f.名称
          from 门诊费用记录 a,
                病人医嘱记录 C,
                病人挂号记录 b,
                收费分类目录 d,
                收费项目目录 e,
                部门表       f
         WHERE a.病人id = c.病人id
           and a.医嘱序号 = c.Id
           And a.开单部门id = f.id
           and a.病人id = b.病人id
           and b.no = c.挂号单
           --and a.开单人 = '綦学辉'
           and a.记录状态 <> 0
           and a.是否急诊 = 0
           and a.登记时间 between /*B0*/
               TO_DATE('2022-07-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
               and /*B1*/
               TO_DATE('2022-12-31 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
              
           And a.收费细目id = e.id
           and e.分类id = d.id
           and d.id in ('355', '615')
              --22.09.23  院里提出排除 101_急诊，1907_便民门诊，1327_发热门诊
           And a.开单部门id not In ('101', '114', '171', '1587', '1907', '1327')
         Group By f.名称) a,
       (select sum(m.西药) 西药处方数,
               sum(西药费) 金额2,
               sum(中成药) 中成药处方数,
               sum(中成药费) 金额3
          from (select A.NO,
                       sum(A.实收金额) as 金额,
                       to_char(A.登记时间, 'yyyy-mm-dd') as 日期,
                       A.病人ID,
                       decode(a.收费类别,
                              '5',
                              '西药',
                              '6',
                              '中成药',
                              '7',
                              '中草药') as 类别,
                       decode(a.收费类别, '5', 1, 0) 西药,
                       decode(a.收费类别, '5', sum(A.实收金额), 0) 西药费,
                       decode(a.收费类别, '6', 1, 0) 中成药,
                       decode(a.收费类别, '6', sum(A.实收金额), 0) 中成药费
                  from 门诊费用记录 A,
                       (Select Distinct 单据, No, 费用id
                          From 药品收发记录
                         Where 单据 In (8, 9)
                           And Mod(记录状态, 3) = 1
                           And 填制日期 between /*B0*/
                               TO_DATE('2022-07-01 00:00:00',
                                       'YYYY-MM-DD HH24:MI:SS') /*E0*/
                               and /*B1*/
                               TO_DATE('2022-12-31 23:59:59',
                                       'YYYY-MM-DD HH24:MI:SS') /*E1*/
                        ) B
                 where A.登记时间 between /*B0*/
                       TO_DATE('2022-07-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
                       and /*B1*/
                       TO_DATE('2022-12-31 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
                   and (A.记录性质 = 1 or A.记录性质 = 2)
                   and 记录状态 <> 0
                   --and a.开单人 = '綦学辉'
                      --and a.开单人 = '任海艇'
                   and A.开单人 is not null
                   And a.收费类别 In ('5', '6', '7')
                   And A.No = B.No
                   And A.Id = B.费用id
                 group by to_char(A.登记时间, 'yyyy-mm-dd'),
                          A.NO,
                          A.病人ID,
                          a.收费类别,
                          a.收据费目) m),
       ----------------门诊患者中应用中药饮片人次数yy------------
       (select count(*) 中药饮片处方数, sum(金额) 金额4
          from (Select a.no, sum(a.实收金额) 金额
                  from 门诊费用记录 a
                 WHERE a.记录状态 <> 0
                   --and a.开单人 = '綦学辉'
                   and a.登记时间 between /*B0*/
                       TO_DATE('2022-07-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
                       and /*B1*/
                       TO_DATE('2022-12-31 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
                   And a.收费细目id In
                       (Select b.药品id
                          From 诊疗项目目录 a, 药品规格 b
                         Where a.id = b.药名id
                              --23.06.07 田甜提出排除中药颗粒--颗粒类  颗粒类2 康仁堂颗粒 新绿色颗粒 广东一方颗粒                 
                           And a.分类id not in
                               ('2373', '3449', '3790', '4370', '4411'))
                   and a.收费类别 = '7'
                 group by a.no
                having sum(a.实收金额) > 0)),
       ---------- 门诊总人次yy------------
       
       (Select count(Distinct a.No) As 门诊总人次, c.名称
          From 病人挂号记录 A, 门诊费用记录 b, 部门表 c
         where a.记录状态 = 1
           And a.执行部门ID = c.id
           --and a.执行人 = '綦学辉'
           And a.病人id = b.病人id
           and a.急诊 = 0
              --231023 吴主任 窦主任 提出 没产生诊疗过程的不计算在内
           And a.执行时间 between /*B0*/
               TO_DATE('2022-07-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS') /*E0*/
               and /*B1*/
               TO_DATE('2022-12-31 23:59:59', 'YYYY-MM-DD HH24:MI:SS') /*E1*/
              --22.09.23  院里提出排除 101_急诊，1907_便民门诊，1327_发热门诊
           And a.执行部门id not In ('101', '114', '171', '1587', '1907', '1327')
         Group By c.名称)